Szerkesztő:UTF46/src/logger/lintlog.pm
Megjelenés
logger/lintlog.pm forráskódja[szerkesztés]
package logger::lintlog;
use utf8;
use strict;
use warnings;
use LWP::UserAgent;
sub new {bless {},shift};
sub log {
my $self=shift;
my $page=shift;
my $ok=shift;
my $title=$page->orig->{todo}->{title};
my $lint_id=$page->orig->{todo}->{lint_id};
if ($ok) {
my $ua=LWP::UserAgent->new;
my $url='https://checkwiki.toolforge.org/cgi-bin/checkwiki.cgi?project=huwiki&view=detail&id='.$lint_id.'&title='.$title;
my $response=$ua->get($url);
if ($response->is_success) {
# NOP
} else {
die "Done failed, click manually!";
};
};
};
1;