summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPaul Buetow <paul@buetow.org>2011-08-06 20:37:06 +0000
committerPaul Buetow <paul@buetow.org>2011-08-06 20:37:06 +0000
commit796a4793036d11600967608541c74e7f8243c920 (patch)
tree06051819bf9a2d0f3a9ae61f8c4fe2964ec6d3f1
parentc627a59b2a78644aec256f0e0fc96531fff8a9dc (diff)
Not needed here
-rwxr-xr-xloadbars.pl23
1 files changed, 0 insertions, 23 deletions
diff --git a/loadbars.pl b/loadbars.pl
index 0413542..b0b0c17 100755
--- a/loadbars.pl
+++ b/loadbars.pl
@@ -47,8 +47,6 @@ use Time::HiRes qw(usleep gettimeofday);
use threads;
use threads::shared;
-use IO::Socket;
-
use constant {
DEPTH => 8,
VERSION => 'loadbars v0.2.1-devel',
@@ -101,27 +99,6 @@ sub sum (@) { my $sum = 0; $sum += $_ for @_; return $sum }
sub null ($) { my $arg = shift; return defined $arg ? $arg : 0 }
sub set_togglecpu_regexp () { $CONF{cpuregexp} = $CONF{togglecpu} ? 'cpu ' : 'cpu' }
-sub unix_make_server_socket ($) {
- my $socket_name = shift;
- unlink $socket_name;
-
- return IO::Socket::UNIX->new(
- LocalAddr => $socket_name,
- Type => SOCK_DGRAM,
- Listen => 5
- ) or die "$@\n";
-}
-
-sub unix_make_client_socket ($) {
- my $socket_name = shift;
-
- return IO::Socket::UNIX->new(
- PeerAddr => $socket_name,
- Type => SOCK_DGRAM,
- Timeout => 10
- ) or die "$@\n";
-}
-
sub parse_cpu_line ($) {
my ($name, %load);