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) { |