User:ImplSearchBot/Code: Difference between revisions

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


die "Unable to login: " . $loginres
die "Unable to login: " . $loginres
unless $loginres == "Success";
unless $loginres == 0;
return $editor;
return $editor;
Line 304: Line 304:
my $first = shift;
my $first = shift;
my $second = shift;
my $second = shift;
my @newinfirst = &diffcat_simple($second, $first);
my @onlyinfirst = &diffcat_simple($second, $first);
my @newinsecond = &diffcat_simple($first, $second);
my @onlyinsecond = &diffcat_simple($first, $second);
return (\@newinfirst, \@newinsecond);
return (\@onlyinfirst, \@onlyinsecond);
}
}


Line 413: Line 413:
&out(scalar @categorycontents . " members retrieved for $categoryname\n", 5);
&out(scalar @categorycontents . " members retrieved for $categoryname\n", 5);


my ($added, $removed) = &diffcat(&getcacheddata($categoryname), \@categorycontents);
my ($removed, $added) = &diffcat(&getcacheddata($categoryname), \@categorycontents);


&out(scalar @$removed . " removed, " . @$added . " added to $categoryname\n", &getloglevelfromdiff(2, $removed, $added));
&out(scalar @$removed . " removed, " . @$added . " added to $categoryname\n", &getloglevelfromdiff(2, $removed, $added));