#!/usr/bin/perl
use cPanelUserConfig;
use LWP::Simple;
use CGI;
####################################
####################################
print "Content-type: text/html", "\n\n"; # A critical line for Perl CGI scripting!!!

$content = get('https://chesswise.defiantchris.com/index.php/pl/perl-pl');# or die 'Unable to get page';

####################################
# Template configuration
$html_template = "Perl"; # uses Perl section menu
$default_template_title = "Perl"; # default title in the template to be replaced by the $article_title
$article_title = "Odgadnij liczbę"; # new article title
####################################

if ($content)
{
    $content =~ /(^.+?<div itemprop="articleBody">)(.+?)(<\/div>.+$)/s;

    $top = $1;
    $bottom = $3;
    $top =~ s/(<h2 itemprop="headline">.+?)($default_template_title)(.+?<\/h2>)/$1$article_title$3/s; # change the article title
}
else
{
    ####################################
    ####################################
    # Read top HTML page template
    $html_template_top = $html_template . "_top_pl.html";
    open(TOP, "<./templates/$html_template_top") or die "Cannot open file \'$html_template_top\' $!";
    	while ($line = <TOP>)
    	{
    		$top .= $line;
    	}
    close TOP;
    $top =~ s/(<h2 itemprop="headline">.+?)($default_template_title)(.+?<\/h2>)/$1$article_title$3/s; # change the article title
    ####################################
    ####################################
    # Read bottom HTML page template
    $html_template_bottom = $html_template . "_bottom_pl.html";
    open(BOTTOM, "<./templates/$html_template_bottom") or die "Cannot open file \'$html_template_bottom\' $!";
    	while ($line = <BOTTOM>)
    	{
    		$bottom .= $line;
    	}
    close BOTTOM;   
}
####################################
####################################
print "$top\n";
####################################
####################################
#### MY PERL CODE COMES IN HERE ####
####################################
my $cgi = CGI->new;
my %param = map {$_ => scalar $cgi->param($_)} $cgi->param();
# for my $key (sort keys %param)
# {
#    print join ": ", $key, $param{$key};
#    print "<br>\n";
# }

# Guess the random number from 0 to $upper_limit!
$upper_limit = 200;

#############
# INPUT PROCESSING
if ($param{'submit'} eq "Sprawdź!")
{
    $random_number = $param{'random_number'};
    
    $user_number = $param{'user_number'};
    if ($user_number eq '')
    {
        $user_number = 0;
    }
    
    $attempt = $param{'attempt'};
    
 	$attempt++;

	if ($user_number < $random_number) 
	{
		print "\n\nTwoja liczba <b>$user_number</b> jest <b>zbyt mała</b>! Spróbuj ponownie! <b>Próba nr</b> <b>$attempt</b><br>\n\n";
	}
	elsif ($user_number > $random_number) 
	{
		print "\n\nTwoja liczba <b>$user_number</b> jest <b>zbyt duża</b>! Spróbuj ponownie! <b>Próba nr</b> <b>$attempt</b><br>\n\n";
	}
	else
	{
		print "\n\n<b>Gratulacje</b>!!!\n\n<b>Wylosowana liczba to $user_number</b>.\n\nOdgadłeś ją za <b>$attempt</b>. <b>razem</b>!!!<br><br>\n\n";
	    
	    #############
        # INPUT FORM
        print "<form action=\"\" method=\"post\">\n";
        print "<table>\n";
        print "<tr><td><input type=\"submit\" name=\"submit\" value=\"Zagraj ponownie!\" autofocus/> &nbsp;&nbsp;&nbsp;&nbsp; <a href=\"/cgi-bin/07_guess_number_source_pl.pl\" target=\"_blank\">pokaż kod źródłowy</a></td></tr>\n";
        print "</table>\n";
        print "</form>\n";
	}
}
else
{
    $random_number = rand($upper_limit+1);
    $random_number = int($random_number);
    
    $user_number = -1;
    
    $attempt = 0;
}

if ($user_number != $random_number)
{
    #############
    # INPUT FORM
    print "<form action=\"\" method=\"post\">\n";
    print "<h3>Odgadnij liczbę całkowitą od 0 do $upper_limit !</h3>\n";
    print "<table>\n";
    print "<tr><td>Twoja liczba &nbsp;&nbsp;</td><td><input type=\"number\" name=\"user_number\" id=\"\" min=\"0\" max=\"$upper_limit\" autofocus /></td></tr>\n";
    print "<tr><td><input type=\"reset\" value=\"&nbsp;&nbsp;&nbsp;Anuluj&nbsp;&nbsp;&nbsp;\" /></td><td><input type=\"submit\" name=\"submit\" value=\"Sprawdź!\" /> &nbsp;&nbsp;&nbsp;&nbsp; <a href=\"/cgi-bin/07_guess_number_source_pl.pl\" target=\"_blank\">pokaż kod źródłowy</a></td></tr>\n";
    print "</table>\n";
    print "<input type=\"hidden\" name=\"random_number\" value=\"$random_number\" id=\"\" />\n";
    print "<input type=\"hidden\" name=\"attempt\" value=\"$attempt\" id=\"\" />\n";
    print "</form>\n";
}
print "<br><br><br><br><br><br>";
####################################
########## END OF MY CODE ##########
####################################
print "<!-- Author: Christopher Knap; License: Open for All. Feel free to download the source code and modify it at will. Enjoy! :-) //-->\n";
print "$bottom";