[BACK]Return to memcached_dump.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / debugging_tools

Diff for /loncom/debugging_tools/memcached_dump.pl between versions 1.1 and 1.2

version 1.1, 2016/02/21 17:29:33 version 1.2, 2017/05/07 12:58:12
Line 1 Line 1
 #!/usr/bin/perl -w  #!/usr/bin/perl 
 #  #
 # The LearningOnline Network  # The LearningOnline Network
 #  #
Line 36  use Data::Dumper; Line 36  use Data::Dumper;
 use Getopt::Long;  use Getopt::Long;
 use lib '/home/httpd/lib/perl/';  use lib '/home/httpd/lib/perl/';
 use LONCAPA;  use LONCAPA;
   use Apache::lonnet;
   
   
 $SIG{'__WARN__'} = sub { warn $_[0] unless (caller eq "Cache::Memcached"); };  $SIG{'__WARN__'} = sub { warn $_[0] unless (caller eq "Cache::Memcached"); };
   
Line 94  foreach my $line (split(/\r\n/,$items)) Line 96  foreach my $line (split(/\r\n/,$items))
 }  }
   
 my $count = 0;  my $count = 0;
   my @possdoms = &Apache::lonnet::current_machine_domains();
   my %machinedoms = ();
   map { $machinedoms{$_} = 1; } @possdoms;
 foreach my $container (sort(keys(%containers))) {  foreach my $container (sort(keys(%containers))) {
       my $result = $memd->stats("cachedump $container 0");        my $result = $memd->stats("cachedump $container 0");
       my $contents = $result->{hosts}->{$instance}->{"cachedump $container 0"};        my $contents = $result->{hosts}->{$instance}->{"cachedump $container 0"};
Line 114  foreach my $container (sort(keys(%contai Line 119  foreach my $container (sort(keys(%contai
               }                 } 
               next unless($match);                 next unless($match); 
           }            }
             if ($name =~ /^ltitools/) {
                 my ($dom) = (&unescape($escname) =~/:([^:]+)$/);
                 if (($dom eq '') || (!$machinedoms{$dom})) {
                     next;
                 }
             }
           my $val = $memd->get($escname);            my $val = $memd->get($escname);
           $count ++;            $count ++;
           if ($showsize) {            if ($showsize) {
Removed from v.1.1  
changed lines
  Added in v.1.2

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>