User:ImplSearchBot/Code: Difference between revisions

Content added Content deleted
m (ImplSearchBot:0)
m (ImplSearchBot:0)
Line 22: Line 22:


my $posttosite = shift @ARGV;
my $posttosite = shift @ARGV;
my $starttime = time;

my $pagesedited = 0;


print "Creating editor\n";
print "Creating editor\n";
Line 33: Line 36:
my $remark = shift;
my $remark = shift;
my $minoredit = shift;
my $minoredit = shift;

++$pagesedited;


unless( defined $posttosite )
unless( defined $posttosite )
Line 152: Line 157:
# &postpage($pagename, $pagedata, "ImplSearchBot:Updating layout of listing page.",1);
# &postpage($pagename, $pagedata, "ImplSearchBot:Updating layout of listing page.",1);


# In the future, this should check against a category to see if we've already created this page,
my $omitcategoryname = "Category:$language/Omit";
my $omitcategoryname = "Category:$language/Omit";
my $omitcatpagedata = "{{omitcat_head|$language}}";
my $omitcatpagedata = "{{omitcat_head|$language}}";
&postpage($omitcategoryname, $omitcatpagedata, "ImplSearchBot:Updating Omit category body")
&postpage($omitcategoryname, $omitcatpagedata, "ImplSearchBot:Updating Omit category body", 0)
unless ( exists $createdomitcategories{$omitcategoryname} );
unless ( exists $createdomitcategories{$omitcategoryname} );


Line 164: Line 168:
# 2. Time last run started
# 2. Time last run started
# 3. Time to completion from start to just prior to stat post point.
# 3. Time to completion from start to just prior to stat post point.

my $runtime = time() - $starttime;
my $statsdata = "Pages edited last run: $pagesedited\nTime to post all per-language updates: $runtime seconds\n";
print "Updating stats page. Runtime ($runtime), Pages edited ($pagesedited)\n";

&postpage("User:ImplSearchBot/Stats", $statsdata, 0);



print "Updating bot code page\n";
print "Updating bot code page\n";