/[Sack]/trunk/lib/Sack/Client.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Sack/Client.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 273 by dpavlin, Thu Feb 4 22:36:05 2010 UTC revision 274 by dpavlin, Wed Apr 28 19:09:54 2010 UTC
# Line 28  $sel->add($sock); Line 28  $sel->add($sock);
28    
29  my $data = Storable::retrieve $data_path if -e $data_path;  my $data = Storable::retrieve $data_path if -e $data_path;
30    
31    sub proc {
32            local $/ = undef;
33            open(my $fh, '<', '/proc/' . shift);
34            <$fh>;
35    }
36    
37  while (1) {  while (1) {
38          for my $sock ($sel->can_read(1)) {          for my $sock ($sel->can_read(1)) {
39                  my $request = eval { Storable::fd_retrieve($sock) };                  my $request = eval { Storable::fd_retrieve($sock) };
# Line 39  while (1) { Line 45  while (1) {
45                  my $response = { port => $port };                  my $response = { port => $port };
46                  if ( $request->{ping} ) {                  if ( $request->{ping} ) {
47                          $response->{ping} = 'pong';                          $response->{ping} = 'pong';
48                            $response->{proc}->{$_} = proc $_ foreach ( 'loadavg', 'meminfo', "$$/status" );
49                  } elsif ( $request->{load} ) {                  } elsif ( $request->{load} ) {
50                          $response->{load} = 'shard';                          $response->{load} = 'shard';
51                  } elsif ( $request->{bulk_load} ) {                  } elsif ( $request->{bulk_load} ) {
Legend:
Removed from v.273  
changed lines
  Added in v.274
  ViewVC Help
Powered by ViewVC 1.1.26