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";