Szerkesztő:UTF46/src/logger/lintlog.pm

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;

en:WTFPL