eleksir/irssi-scripts
1
Fork 0
Code Activity

img-save.pl: fix typos, now it actually downloads links

Browse Source
This commit is contained in:
eleksir
2018-04-29 00:15:51 +03:00
parent 8d107828bc
commit 0e18627177
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
web_link_saver/img-save.pl
View File

@@ -92,13 +92,13 @@ if (($HTINY == 0) or ($HTINYS == 0)) {
# print "* wget detected at $wgetpath.\n"; # print "* wget detected at $wgetpath.\n";
while ( 1 ) { while ( 1 ) {
my $memd = new Cache::Memcached { 'servers' => [ "$mc" ] }; my $memd = new Cache::Memcached { 'servers' => [ $mc ] };
my $itemref = $memd->stats(['items']); my $itemref = $memd->stats(['items']);
if (defined($itemref->{'hosts'}->{'$mc'}->{'items'}) if (defined($itemref->{'hosts'}->{$mc}->{'items'})
and (length($itemref->{'hosts'}->{'$mc'}->{'items'}) > 2)) { and (length($itemref->{'hosts'}->{$mc}->{'items'}) > 2)) {
foreach my $stat (split("\n", $itemref->{'hosts'}->{'$mc'}->{'items'})) { foreach my $stat (split("\n", $itemref->{'hosts'}->{$mc}->{'items'})) {
my $slab; my $slab;
my $itemsamount; my $itemsamount;
@@ -114,7 +114,7 @@ while ( 1 ) {
my $cachedump = $memd->stats(["cachedump $slab $itemsamount"]); my $cachedump = $memd->stats(["cachedump $slab $itemsamount"]);
my @keys = map { my @keys = map {
(split(/ /))[1]; (split(/ /))[1];
} split(/\n/, $cachedump->{'hosts'}->{'$mc'}->{"cachedump $slab $itemsamount"}); } split(/\n/, $cachedump->{'hosts'}->{$mc}->{"cachedump $slab $itemsamount"});
foreach my $key (@keys) { foreach my $key (@keys) {
if (($key =~ /^irssi_/) or ($key =~ /^xchtlink_/)) { if (($key =~ /^irssi_/) or ($key =~ /^xchtlink_/)) {