#!/usr/bin/perl use CGI qw(:all); print header; print "\n"; $QueryString = $ENV{'QUERY_STRING'}; $Name = param ( "name" ); $Homepage = param ( "homepage" ); $Email = param ( "email" ); $Refby = param ( "refby" ); $Country = param ( "country" ); $Comments = param ( "comments" ); $Save = param ( "save" ); $Revise = param ( "revise"); $Newtime = localtime(); if (param) { if ($Revise eq 'yes') { dis1(); }else { $Comments =~ s/\n/
/g; if ($Save eq 'yes' ) { print "

Thank You $Name, For Writing In Our Guest Book

"; print "

You Save :

";} else{ print "

Thank You

"; print "

You Wrote :

";} tt1(); print <
$Newtime
Name: $Name
Homepage: $Homepage
E-Mail: $Email
Referred By: $Refby
City/Country: $Country
Comments: $Comments

t2 if ($Save eq 'yes' ) { open(F,">>guestbook.cnj") or dienice("Couldn't open mycgi.txt for reading: $! \n"); flock(F,2); seek(F,0,2); #$Comments =~ s/\n/@/g; print F "$Newtime\|$Name\|$Homepage\|$Email\|$Refby\|$Country\|$Comments\n"; print ""; }else { print " "; print ""; } } } else{ dis1(); } print "\n"; ##################################################### sub tt1 { print <
Sri Lankan Student Association Chico

t1 } ####################################################3 #################################################### sub dis1 { print <

Sign Guest Book

Sri Lankan Student Association Chico
Name:
Homepage:
E-Mail:
Referred By:
City/Country:
Comments:
dis11 }