User:ImplSearchBot/Code: Difference between revisions
Content added Content deleted
m (ImplSearchBot:0) |
m (ImplSearchBot:0) |
||
| Line 16: | Line 16: | ||
our @initialcache; |
our @initialcache; |
||
our $alllanguages; |
our $alllanguages; |
||
our @logoutput; |
|||
my %options; |
my %options; |
||
| Line 266: | Line 267: | ||
chomp $string; |
chomp $string; |
||
push @logoutput, ($string); |
|||
if($options{'verbosity'} >= $loglevel) |
if($options{'verbosity'} >= $loglevel) |
||
| Line 401: | Line 404: | ||
print $outfile to_json($data); |
print $outfile to_json($data); |
||
close $outfile; |
close $outfile; |
||
&out(scalar $data . " members cached to $filename.\n", 5); |
&out(scalar @$data . " members cached to $filename.\n", 5); |
||
} |
} |
||
| Line 771: | Line 774: | ||
&postpage("User:ImplSearchBot/Code", "<$tag perl>$botsource</$tag>", 0); |
&postpage("User:ImplSearchBot/Code", "<$tag perl>$botsource</$tag>", 0); |
||
my $logdata = "<pre>" . join( "\n", @logoutput) . "</pre>"; |
|||
&postpage("User:ImplSearchBot/Log", $logdata, 0); |
|||
&out("Updating cache\n", 4); |
&out("Updating cache\n", 4); |
||