#!/usr/bin/perl

#path to perl
###############################################################
# This program is being distributed as Freeware.  It may be used and
# modified free of charge use, so long as this copyright notice remain intact.
# 2b Guestbook v.2.0 Freeware
# Script created by Sergey Totsky thebest@mail.ru
# http://forumru.virtualave.net/aguest/
################################################################
print "Content-type: text/html\n\n";

if ($ENV{'QUERY_STRING'}) {$namevalues = $ENV{'QUERY_STRING'};}
else {read(STDIN, $namevalues, $ENV{'CONTENT_LENGTH'});}
@pairs = split(/&/, $namevalues);
	foreach $pair (@pairs) {
	($name, $value) = split(/=/, $pair);
        $value =~ tr/+/ /;
	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
        $value =~ s/<!--(.|\n)*-->//g;
        $value =~ s/<([^>]|\n)*>//g;
	$form{$name} = $value;}

#--------~~~~~VARIABLES~~~~~~~-------#

#path where info will be stored
$base = "base.txt";

#header of every page
$header = "header.htm";

#footer of every page
$footer = "footer.htm";

#pic for table creation
$pix = "pixel.gif";

# this picture split visitor post and admin reply ............
$line = "dots.gif";

#Url to script
$scripturl = "http://www.crumlinviaduct.co.uk/cgi-bin/viabook/2bguest.pl";
# visitor will see this name when you reply some post
$adminname = "Admin";

# also visitor will see this E-mail
$adminmail = "john\@crumlinviaduct.co.uk";

#end of editing ! 

#now run script http://www.crumlinviaduct.co.uk/cgi-bin/viabook/2bguest.pl?action=home
#if You want to make guestbook in Your language
#translate this VARIABLES>>
$namevar ="Name : ";
$countryvar = "Country : ";
$mailvar = "E-mail (optional) :";
$post_data = "Post Date : "; 
$urlvar = "Location : ";
$added = "Diolch Thanks. Message Received.";
$signgbvar = "Sign Guestbook";
$viewgbvar = "View Guestbook";

$form_contact_info = "Visitor Information :";
$form_name = "Your Name :";
$form_mail ="E-mail :";
$form_country ="Country : ";
$form_url ="Site Url :";
$form_message ="Message :";

&header;
########end translation
$action = $form{'action'};
$page = $form{'page'};
$first = $form{'first'};
$ip = $ENV{'REMOTE_ADDR'};
if ($action eq 'form') {&form;} 
if ($action eq 'view') {&view;}
if ($action eq 'sform') {&sform;}
if ($action eq 'home') {&home;}

sub view {
if ($first eq '1') {$kick = 0;$pageval1 = 0;}
else {$kick = 10*$first-10;$pageval1 = 50*$first-50;} 
$pagesssma = 0+$kick;$pagesssmb = 1+$kick;$pagesssmc = 2+$kick;$pagesssmd = 3+$kick;
$pagesssme = 4+$kick;$pagesssmf = 5+$kick;$pagesssmg = 6+$kick;$pagesssmh = 7+$kick;
$pagesssmi = 8+$kick;$pagesssmj = 9+$kick;$pagesssmj = 10+$kick;
$ar = 1+$kick;$br = 2+$kick;$cr = 3+$kick;$dr = 4+$kick;$er = 5+$kick;$fr = 6+$kick;
$gr = 7+$kick;$hr = 8+$kick;$ir = 9+$kick;$jr = 10+$kick;$pagevala = 0+$pageval1;$pagevalb = 5+$pageval1;
$pagevalc = 10+$pageval1;$pagevald = 15+$pageval1;$pagevale = 20+$pageval1;$pagevalf = 25+$pageval1;
$pagevalg = 30+$pageval1;$pagevalh = 35+$pageval1;$pagevali = 40+$pageval1;$pagevalj = 45+$pageval1;
$aa ="<a>$ar</a>";$bb =" | <a>$br</a>";$cc =" | <a>$cr</a>";$dd =" | <a>$dr</a>";$ee =" | <a>$er</a>";
$ff =" | <a>$fr</a>";$gg =" | <a>$gr</a>";$hh =" | <a>$hr</a>";$ii =" | <a>$ir</a>";
$jj = " | <a>$jr</a>";

$a ="<a href=\"$scripturl?action=view&first=$first&page=".($pagevala)."\">$ar</a>";
$b =" | <a href=\"$scripturl?action=view&first=$first&page=".($pagevalb)."\">$br</a>";
$c =" | <a href=\"$scripturl?action=view&first=$first&page=".($pagevalc)."\">$cr</a>";
$d =" | <a href=\"$scripturl?action=view&first=$first&page=".($pagevald)."\">$dr</a>";
$e =" | <a href=\"$scripturl?action=view&first=$first&page=".($pagevale)."\">$er</a>";
$f =" | <a href=\"$scripturl?action=view&first=$first&page=".($pagevalf)."\">$fr</a>";
$g =" | <a href=\"$scripturl?action=view&first=$first&page=".($pagevalg)."\">$gr</a>";
$h =" | <a href=\"$scripturl?action=view&first=$first&page=".($pagevalh)."\">$hr</a>";
$i =" | <a href=\"$scripturl?action=view&first=$first&page=".($pagevali)."\">$ir</a>";
$j =" | <a href=\"$scripturl?action=view&first=$first&page=".($pagevalj)."\">$jr</a>";
######end~

open (FE, "$base")|| die "not found";
@lines = <FE>;
foreach $lines (@lines){$howmanylines++;}
$perpage = "7";
$pagesss = $howmanylines/$perpage;
@lines = reverse(@lines);
($as,$bs,$cs,$ds,$es,$fs,$gs) = (0,1,2,3,4,5,6);
@kat = ($as+$page,$bs+$page,$cs+$page,$ds+$page,$es+$page,$fs+$page,$gs+$page);

if ($howmanylines > $page+7) {$astop1 = $as+$page+1;$astop2 = $gs+$page+1;}
else {$astop1 = $as+$page+1; $astop2 = $howmanylines;}

#header
print qq~
<div align="center">
  <p> <font face="verdana,geneva" size="1" color="000080"><font size="2"><b><b><b><b><b><b><b><b><font face="verdana,geneva" size="1" color="000080"><font size="2"><b><b><b><b><b><b><b><b><font face="verdana,geneva" size="1" color="000080"><font size="2"><b><b><b><b><b><b><b><b><font face="verdana,geneva" size=1></font></b></b></b></b></b></b></b></b></font></font></b></b></b></b></b></b></b></b></font></font></b></b></b></b></b></b></b></b></font></font><font face="verdana,geneva" color="000080" size="3">[ 
    <a href="$scripturl?action=form">$signgbvar</a> ]</font><font face="verdana,geneva" size="1" color="000080"><font size="2"><b><b><b><b><b><b><b><b><font face="verdana,geneva" size="1" color="000080"><font size="2"><b><b><b><b><b><b><b><b><font face="verdana,geneva" size="1" color="000080"><font size="2"><b><b><b><b><b><b><b><b><font face="verdana,geneva" size=1></font></b></b></b></b></b></b></b></b></font></font></b></b></b></b></b></b></b></b></font></font></b></b></b></b></b></b></b></b></font></font><font face="verdana,geneva" size="1" color="000080"><font size="2"><b><b><b><b><b><b><b><b><font face="verdana,geneva" size="1" color="000080"><font face="verdana,geneva" size="1" color="000080"><font size="2"><b><b><b><b><b><b><b><b><font face="verdana,geneva" size=1></font></b></b></b></b></b></b></b></b></font></font></font></b></b></b></b></b></b></b></b></font></font>
</div>
<font size="2" face="verdana"><b><font color="#FF0000"> 
      </font></b><font color="#FF0000"></font><b><font color="#FF0000"> 
      </font></b><font color="#FF0000"></font></font>
~;
#end header				




foreach (@lines[@kat]){	($id,$month,$day,$year,$date,$name,$mail,$url,$country,$ip,$desc,$reply) = split('[|]',$_);
if($url eq ""){$urld = "";}
else {$urld = "<font face=\"verdana, arial, helvetica\" size=\"1\"><font face=\"verdana, arial, helvetica\" size=\"1\" color=\"#CCCCCC\"><font color=\"#CC0066\">$url</font>";}
if($country eq ""){$country = "";}


if($name ne ""){
##############################################
print qq~
<hr color="#FF9900" width="80%" noshade>
<font color="#CC0066"></font>
<p style="margin-top: 0; margin-bottom: 0">
<font color="#000080" size="2" face="verdana, arial, helvetica">$desc</font></p>
<p style="margin-top: 0; margin-bottom: 0"><font face="verdana, arial, helvetica" size="2" color="#CC0066">$name
<a href="mailto:$mail">$mail</a></font></p>
<p style="margin-top: 0; margin-bottom: 0">
<font color="#CC0066"><font face="verdana, arial, helvetica" size="2">$url $country </font><font face="verdana, arial, helvetica" size="2" color="#CC0066">
on -$date</font></p>
~;
if($reply ne ""){
print qq~

<p style="margin-top: 0; margin-bottom: 0">&nbsp;</p>


~;
}
print qq~

	~;
}
}
print "<center><font face=\"verdana, arial, helvetica\" size=\"2\" color=\"#000080\">Pages  </font><font face=\"verdana, arial, helvetica\" size=\"2\" color=\"#CCCCCC\"><b><font color=\"#000080\">";
if ($first > "1") {print "<a> </a><a href=\"$scripturl?action=view&first=".($first-1)."&page=".($pageval1-5)."\"><</a><a> </a>";}
if ($pagesssma < $pagesss) {if ($page eq $pagevala) {print $aa;}else {print $a;}}
if ($pagesssmb < $pagesss) {if ($page eq $pagevalb) {print $bb;}else {print $b;}}
if ($pagesssmc < $pagesss) {if ($page eq $pagevalc) {print $cc;}else {print $c;}}
if ($pagesssmd < $pagesss) {if ($page eq $pagevald) {print $dd;}else {print $d;}}
if ($pagesssme < $pagesss) {if ($page eq $pagevale) {print $ee;}else {print $e;}}
if ($pagesssmf < $pagesss) {if ($page eq $pagevalf) {print $ff;}else {print $f;}}
if ($pagesssmg < $pagesss) {if ($page eq $pagevalg) {print $gg;}else {print $g;}}
if ($pagesssmh < $pagesss) {if ($page eq $pagevalh) {print $hh;}else {print $h;}}
if ($pagesssmi < $pagesss) {if ($page eq $pagevali) {print $ii;}else {print $i;}}
if ($pagesssmj < $pagesss) {if ($page eq $pagevalj) {print $jj;}else {print $j;}}
if ($pagesssmj < $pagesss) {print "<a> </a><a href=\"$scripturl?action=view&first=".($first+1)."&page=".($pageval1+50)."\"> \></a>";}



print qq~
<p align="center"><font face="Verdana,Arial,Helvetica,sans-serif" size="2"><font size="1"><font color="000080">Total 
  entries : <font color="#666699">$howmanylines</font></font></font></font></p>
<p align="center"</p>
~;

&iocopy;
}
########~~~Submit Form~~~~
sub form {
print qq~
<form name="form" method="GET" action="$scripturl?action=sform">
  <TABLE height=8 cellSpacing=0 cellPadding=0 width="167" align=center border=0 bordercolor="#000080">
  <TBODY>
  <TR>
    <TD borderColor=#000080 width=167 bgColor=#b6ccc0 height=2 style="border: 1 solid #000080">
      <P align=center><SPAN 
      style="FONT-WEIGHT: bold; COLOR: #787878; FONT-FAMILY: arial, helvetica"><FONT 
      color=#000080 size=3>Fill in the blanks</FONT></SPAN><FONT color=#ffffff 
      size=3><SPAN 
      style="FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #787878; FONT-FAMILY: arial, helvetica">&nbsp;</SPAN></FONT></P></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 align=center border=1 bordercolor="#000080">
  <TBODY>

          <TD borderColor=#b6ccc0 width=136 bgColor=#b6ccc0 height=2>
            <DIV align=center><SPAN 
            style="FONT-WEIGHT: bold; COLOR: #787878; FONT-FAMILY: arial, helvetica"><FONT 
            color=#000080 size=2>Your Name :</FONT></SPAN></DIV></TD>
          <TD borderColor=#b6ccc0 width=272 bgColor=#b6ccc0 height=2><FONT 
            face="verdana, arial, helvetica" color=#cccccc size=1><B><INPUT 
            type=hidden value=sform name=action> <INPUT size=30 name=name> 
            </B></FONT></TD></TR>
        <TR>
          <TD borderColor=#b6ccc0 width=136 bgColor=#b6ccc0 height=31>
            <DIV align=center><B><FONT color=#000080 size=3>E-mail (optional)
            :</FONT></B></DIV></TD>
          <TD borderColor=#b6ccc0 width=272 bgColor=#b6ccc0 height=31><FONT 
            face="verdana, arial, helvetica" size=1><INPUT size=30 name=mail> 
            </FONT></TD></TR>
        <TR>
          <TD borderColor=#b6ccc0 width=136 bgColor=#b6ccc0 height=2>
            <DIV align=center><SPAN 
            style="COLOR: #000080; FONT-FAMILY: arial, helvetica"><B><FONT 
            color=#000080 size=2>Country :</FONT></B> </SPAN></DIV></TD>
          <TD borderColor=#b6ccc0 width=272 bgColor=#b6ccc0 height=2><FONT 
            face="verdana, arial, helvetica" size=1><INPUT size=30 name=country> 
            </FONT><FONT face="verdana, arial, helvetica" color=#cccccc 
            size=1><B></B></FONT></TD></TR>
        <TR>
          <TD borderColor=#b6ccc0 width=136 bgColor=#b6ccc0 height=1>
            <DIV align=center><B><FONT color=#000080>Location 
          :</FONT></B></DIV></TD>
          <TD borderColor=#b6ccc0 width=272 bgColor=#b6ccc0 height=1><FONT 
            face="verdana, arial, helvetica" size=1><INPUT size=30 name=url> 
            </FONT></TD></TR>
        <TR>
          <TD borderColor=#b6ccc0 width=408 bgColor=#b6ccc0 colSpan=2 
            height=1><DIV align=center><SPAN 
            style="FONT-SIZE: 11px; COLOR: #787878; FONT-FAMILY: arial, helvetica"><FONT 
            color=#000080 size=2><B>Message :</B></FONT></SPAN></DIV></TD></TR>
        <TR>
          <TD borderColor=#b6ccc0 width=408 bgColor=#b6ccc0 colSpan=2 
            height=0><P align=center><FONT face="verdana, arial, helvetica" 
            color=#000080 size=1><B><TEXTAREA name=desc rows=8 cols=50></TEXTAREA> 
            </B></FONT></P></TD></TR></TBODY></TABLE>
<p align="center"><INPUT type=submit value=Submit name=Submit> 


  </p>
</form>
~;
}

sub error {
print qq~
<title>Error</title>
<div align="center">
<p><font face="verdana,geneva" size="3" color="FF0000"><b>E\~r\~r\~o\~r :</b></font> 
</p>
<p>&nbsp;<b> 
<font color="#000080" size="2"> $message</font></b></p><br
<p><font face="verdana,geneva" size="1" color="FF0000">\< </font>
<a href="javascript:history.go(-1)"  onMouseOver="self.status=document.referrer;return true"><font face="verdana,geneva" color="FF0000" size="2"><b>Go Back</b></font></a>
</div>
~;
&footer;
exit 0 ;
return 1 ;
}
sub header {
open(FILE,"$header");
while(<FILE>) {
   print $_;
}
}
sub footer {
open(FILE,"$footer");
while(<FILE>) {
   print $_;
}
}
sub home {
print qq~
<div align="center">
  <p> <font face="verdana,geneva" size="1" color="000080"><font size="2"><b><b><b><b><b><b><b><b><font face="verdana,geneva" size="1" color="000080"><font size="2"><b><b><b><b><b><b><b><b><font face="verdana,geneva" size="1" color="000080"><font size="2"><b><b><b><b><b><b><b><b><font face="verdana,geneva" size=1></font></b></b></b></b></b></b></b></b></font></font></b></b></b></b></b></b></b></b></font></font></b></b></b></b></b></b></b></b></font></font><font face="verdana,geneva" size="3" color="000080"> [ 
    <a href="$scripturl?action=form">$signgbvar</a> ]<font face="verdana,geneva" size="1" color="000080"><b> 
  </b></font>[ 
    <a href="$scripturl?action=view&first=1&page=0">$viewgbvar</a> ]</font></p>
</div>
~;
}
sub sform {
if ($ENV{'QUERY_STRING'}) {$namevalues = $ENV{'QUERY_STRING'};}
else {read(STDIN, $namevalues, $ENV{'CONTENT_LENGTH'});}
@pairs = split(/&/, $namevalues);
	foreach $pair (@pairs) {
	($name, $value) = split(/=/, $pair);
        $value =~ tr/+/ /;
	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
        $value =~ s/<!--(.|\n)*-->//g;
        $value =~ s/<([^>]|\n)*>//g;
	$form{$name} = $value;}


$message = "" ;
$found_err = "" ;
$words= '30' ;  
$vocal = "temp_words.txt";
$message = "" ;
$found_err = "" ;
$new_word = $form{'desc'};
$new_word =~ s/ /\n/g;
$new_word =~ s/<([^>]|\n)*>//g;
open(FILE, ">$vocal");
print FILE "$new_word" ;
close(FILE);
open(FILE, "$vocal");
@eword = <FILE> ;
close(FILE);
foreach $eword(@eword) {
chomp($eword);
if (length("$eword") > $words ){
$errmsg = "<p>No more grrrrrrrrrr pleeeeeeeeease</p>\n" ;
$message = $message.$errmsg ;
$serror = 1 ;  	  }
}

@months = ('Jan','Feb','Mar','Apr','May','June','July','Aug','Sept','Oct','Nov','Dec');
@days = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday');
($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6];
$year += 1900;$date = "$months[$mon] $mday,$year";


@months_digi = ('01','02','03','04','05','06','07','08','09','10','11','12');
@days_digi = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday');
($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6];
$year += 1900;
$months_digi = "$months_digi[$mon]";
$day = "$mday";
if (length($day)<2) {$day = "0$day"}

#random ID
$tt = time;
$n=substr($tt,4,);
$id="$n$$";


$name = $form{'name'};
$mail = $form{'mail'};
$url = $form{'url'};
$country = $form{'country'};
$desc = $form{'desc'};



$desc =~ s/</&lt;/g;$desc =~ s/>/&gt;/g;$desc =~ s/\cM//g;$desc =~ s/\n\n/<P>/g;		
$desc =~ s/\n/<br>/g;


#name check
$errmsg = "<p>Enter Your Name</p>\n" ;
if (length($name)<2) {  
$message = $message.$errmsg ;
$serror = 1 ; }
#description check

$errmsg = "<p>Comment field must be between 5 and 1000 characters</p>\n" ;

if (length($desc)<5 || length($desc)>1000) {  

$message = $message.$errmsg ;

$serror = 1 ; }
if ($serror) {
	&error; }

open(FE, ">>$base");
print FE "$id|$months_digi|$day|$year|$date|$name|$mail|$url|$country|$ip|$desc|$reply|\n";
close(FE);
&thanks;
&home;
}

sub thanks {
print qq~
<div align="center"><font color="#000080" size="6">$added</font></b></DIV>
<SCRIPT LANGUAGE="JavaScript">
<!-- Begin
window.location="http://www.crumlinviaduct.co.uk/cgi-bin/viabook/2bguest.pl?action=view&first=1&page=0";
// End -->
</script>
<noscript>

~;
}
#If You want to delete this message contact me 
sub iocopy {
print qq~
<center>
    <font face="Geneva, Arial, Helvetica, san-serif" size="2">To view entries posted prior Oct. 17th 2001 click : <a href="http://www.welshcoalmines.co.uk/Oldbooks/voldbook1.html"


" target="_top">HERE</a> 
</center>
~;
}
&footer;