eleksir/hexchat-scripts
1
Fork 0
Code Activity

img-save.pl:

Browse Source 
* fix download condition
* when getting memcached keys we use  only first  slab in list, now all slabs
  are used, so we get full list of keys
This commit is contained in:
eleksir
2018-03-17 23:23:31 +03:00
parent f9654faee0
commit 229d05b801
1 changed files with 29 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
web_link_saver/img-save.pl
View File

@@ -69,31 +69,39 @@ while ( 1 ) {
if (defined($itemref->{'hosts'}->{'127.0.0.1:11211'}->{'items'})
and (length($itemref->{'hosts'}->{'127.0.0.1:11211'}->{'items'}) > 2)) {
my $slabinfo = (split("\n", $itemref->{'hosts'}->{'127.0.0.1:11211'}->{'items'}))[0];
my $slab = (split(/\:/, $slabinfo))[1];
my $itemsamount = (split(/ /, $slabinfo))[2];
my $cachedump = $memd->stats(["cachedump $slab $itemsamount"]);
foreach my $stat (split("\n", $itemref->{'hosts'}->{'127.0.0.1:11211'}->{'items'})) {
my $slab;
my $itemsamount;
my @keys = map {
(split(/ /))[1];
} split(/\n/, $cachedump->{'hosts'}->{'127.0.0.1:11211'}->{"cachedump $slab $itemsamount"});
if ($stat =~ /^STAT items\:(\d+)\:number (\d+)/) {
$slab = $1;
$itemsamount = $2;
} else {
undef $slab;
undef $itemsamount;
next;
}
foreach my $key (@keys) {
next unless ($key =~ /^irssi_/);
next unless ($key =~ /^xchtlink_/);
my $cachedump = $memd->stats(["cachedump $slab $itemsamount"]);
my @keys = map {
(split(/ /))[1];
} split(/\n/, $cachedump->{'hosts'}->{'127.0.0.1:11211'}->{"cachedump $slab $itemsamount"});
my $url = $memd->get($key);
cdlfunc($url);
undef $url;
$memd->delete($key);
foreach my $key (@keys) {
if (($key =~ /^irssi_/) or ($key =~ /^xchtlink_/)) {
my $url = $memd->get($key);
cdlfunc($url);
undef $url;
$memd->delete($key);
}
}
undef $slab;
undef $itemsamount;
undef $cachedump;
@keys = -1;
undef @keys;
}
undef $slabinfo;
undef $slab;
undef $itemsamount;
undef $cachedump;
@keys = -1;
undef @keys;
}
undef $itemref;