Sign the guestbook
|
Gand-Khujli.com Guestbook |
|||
|
http://www.gand-khujli.com/index2.htm |; } #Print HTML form. Edit this to change the GUESTBOOK appearance. Make sure you #didn't change the field name or the script will not work. sub PrintRecord { $num--; print qq|
|; } #################### #Print HTML form. Edit this to change the FORM appearance. Make sure you #didn't change the field name or the script will not work. sub PrintForm { &header; print qq| |
";
open ("data", "$datafail") || &CgiDie ("Cannot open Guestbook Database");
open ("a","count.txt")|| &CgiDie ("Cannot open count file");
$bil = ;
$bil++;
close (a);
@data = ;
if ($LIFO) {
@data = reverse(@data);
}
close (data);
foreach (@data) {
($num, $nama, $email, $hp, $urlhp, $lokasi, $komen, $ip, $date, $masa) = split ('[|]',$_);
chop ($masa);
$num++;
if ($LIFO) {
$anum = $bil-$num;
$anum++;
} else {
$anum = $num;
}
$d = ($page + 1) * $viewperpage;
if ($anum > ($d-$viewperpage) && $anum <= $d) {
&PrintRecord;
}
}
print " Please enter your name Please enter a valid email address Please write something in the comment field
|; exit; } sub save { open ("a","count.txt")|| &CgiDie ("Cannot open Count file"); $num = ; close (a); $num++; $line = join('|', $num, $nama, $email, $hp, $urlhp, $lokasi, $komen, $ip, $date, $masa); $line .= "\n"; open ("data",">>$datafail")|| &CgiDie ("Cannot open Guestbook Database"); print data "$line"; close (data); open ("masuk",">count.txt")|| &CgiDie ("Cannot open count file"); print masuk "$num"; close (masuk); # send mail to admin if new entry if ($sendtoadmin) { $recip = $adminemail ; open (MAIL, "|$mail_prog -t") || &CgiDie ("Cannot open MAIL Program"); print MAIL "To: $recip\n"; print MAIL "From: $guestbookname\n"; print MAIL "Subject: You have new entry in you guestbook\n"; print MAIL "\n\n"; print MAIL "You have new entry in you guestbook.\n" ; print MAIL "\n" ; print MAIL "Name : ".$nama."\n" ; print MAIL "Email : ".$email."\n" ; print MAIL "Homepage Name : ".$hp."\n" ; print MAIL "Homepage URL : ".$urlhp."\n" ; print MAIL "Location : ".$lokasi."\n" ; print MAIL "Komem : ".$komen."\n" ; print MAIL "\n\n"; close (MAIL); } if ($sendtosigner && email ne '') { $recip = $email ; open (MAIL, "|$mail_prog -t") || &CgiDie ("Cannot open MAIL program"); print MAIL "To: $recip\n"; print MAIL "From: $guesbookname\n"; print MAIL "Subject: Thank for signing our guestbook.\n"; print MAIL "\n\n"; print MAIL "Thank you for signing our guestbook.\n" ; print MAIL "\n\n"; close (MAIL); } &display; } # end form checking. Let's do the job sub ckomen { $komen =~ s//>/g; $komen =~ s/\cM//g; $komen =~ s/\n\n/
/g;
$komen =~ s/\n/
/g;
# Remove any badword
foreach (@badwords) {
$komen =~ s/$_/****/gi;
}
}
#get time and date in nice format
sub get_date
{
local($date,$localtime);
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
if ($sec < 10) {
$sec = "0$sec";
}
if ($min < 10) {
$min = "0$min";
}
if ($hour < 10) {
$hour = "0$hour";
}
if ($mon < 10) {
$mon = "0$mon";
}
if ($mday < 10) {
$mday = "0$mday";
}
@months = ("January","February","March","April","May","June","July","August","September","October","November","December");
$year = $year + 1900;
$localtime = "$hour\:$min\:$sec";
$date = "$mday "."$months[$mon]"." $year";
chop($date) if ($date =~ /\n$/);
chop($local) if ($local =~ /\n$/);
($date,$localtime);
}
#sent thank you message to you signer
# Print error message
sub PrintError {
print $message ;
exit 0 ;
return 1 ;
}