Changeset 3521
- Timestamp:
- 25/04/10 11:48:15 (2 years ago)
- Files:
-
- people/snide/async-polling/munin-async-client (modified) (3 diffs)
- people/snide/async-polling/munin-async-server (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
people/snide/async-polling/munin-async-client
r3520 r3521 23 23 use warnings; 24 24 25 my $SPOOLDIR = "/tmp"; 25 # Disable buffering 26 $| = 1; 27 28 my $SPOOLDIR = "/tmp/munin-async-spool"; 26 29 27 30 # Use STDIN/STDOUT, in order to be : … … 31 34 32 35 die "spooldir [$SPOOLDIR] not found" unless -d $SPOOLDIR; 36 37 my $hostname = `hostname`; 38 chomp($hostname); 39 print "# munin node at $hostname\n"; 33 40 34 41 while (my $line = <>) { … … 43 50 # XXX - there is a race condition here 44 51 unlink("$SPOOLDIR/munin-daemon.$1.data"); 52 } else { 53 print "# Unknown command.\n"; 45 54 } 46 55 } people/snide/async-polling/munin-async-server
r3520 r3521 28 28 # TODO - might be directly inserted in munin-node 29 29 my $host = "localhost:4949"; 30 my $SPOOLDIR = "/tmp ";30 my $SPOOLDIR = "/tmp/munin-async-spool"; 31 31 32 32 # Q&D spooldir creation
