use LWP::Simple;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Request::Common qw(GET);
use HTTP::Response;
####
$|=1; #Disable buffering to allow instant output of text.
##
##
our $editorPassword = "**********";
our $language = "en"; # language code for wikipedia namespace
our $enabled = "true"; # set to false to take offline/disable
##
##
if ($enabled eq "true") {
##
##
if ($enabled) {
##
##
&getInput;
##
##
getInput();
##
##
my @gettheip = split(/\./,$ENV{'REMOTE_ADDR'});
my $remoteHost = "$gettheip[0].$gettheip[1].$gettheip[2].$gettheip[3]";
##
##
sub readEditTokens {
&checkFileCanBeAccessed($editTokenFile, "READ");
open(TOKENFILE,"$editTokenFile") || &error("Cannot open edit token file.");
flock(TOKENFILE, 2) || &error("Cannot lock edit token file.");
my $editTokens = ;
flock(TOKENFILE, 8);
close (TOKENFILE);
return ($editTokens);
}
##
##
sub readEditTokens {
open(my $TOKENFILE, '<', $editTokenFile) or
error("Cannot open edit token file: $!");
flock($TOKENFILE, 1) or
error("Cannot lock edit token file: $!");
my $editTokens = <$TOKENFILE>;
return ($editTokens);
}
##
##
print STDOUT "Content-type: text/html\n\n";