Mlshah

#!/usr/local/bin/perl use Mysql; ############################################################################## # Guestbook Version 2.3.1 # # Created 06/05/2000 # # Scripts Archive at: http://www.showbizindia.com/cgi-bin/ # ############################################################################## print "Content-type: text/html\n\n"; require "/home/sites/home/cgi-bin/Setup_files/setup.conf"; require "$SETUP_PATH/database.conf"; require "$LIBRARY_PATH/header1.pl"; require "$LIBRARY_PATH/code.pl"; require "$LIBRARY_PATH/report_file.pl"; require "$LIBRARY_PATH/chk_reg.pl"; require "$LIBRARY_PATH/session.pl"; #require "../Setup_files/setup.conf"; &readcommandlinedata(*data); &readparse; # get i/p from form $name = $FORM{'name'}; $email = $FORM{'email'}; $sugg = $FORM{'sugg'}; # $guestbookurl - full URL to reach the actual guestbook page. $guestbookurl = "http://www.creativeeye.com/guest.htm"; # $guestbookreal - real path on the server to the guestbook page. $guestbookreal = "/home/sites/site45/web/guest.htm"; # $cgiurl - full URL to reach the guestbook program on the Web $cgiurl = "http://www.creativeeye.com/cgi-bin/guestbook.cgi"; $img_url="http://www.creativeeye.com/images"; # $date_command - already set correctly for our servers $mailprog = '/usr/sbin/sendmail'; ############################################################################## # Get the Date for Entry # Begin the Editing of the Guestbook File open (FILE,"$guestbookreal") || die "Can't Open $guestbookreal: $!\n"; @LINES=; close(FILE); $SIZE=$#LINES; # Open Link File in Output open (GOT,">$guestbookreal") || die "Can't Open $guestbookreal: $!\n"; for $lines(@LINES) { if($lines =~ //) { print GOT "\n"; print GOT ""; print GOT " "; print GOT " * $FORM{'sugg'}"; print GOT "$FORM{'name'}$FORM{'email'}\n"; } else { print GOT "$lines"; } } close (GOT); Mlshah

Name

Email

Comments

Copyright © 1999 - Powernetindia.com All rights reserved.
This site is created, maintained and hosted by
Please direct all your technical queries, comments, suggestions to us.

sub response { print <<"EOH";

Thank You For Signing Creative Eye Productions Guestbook
Thank you for filling in the guestbook. Your entry has
been added to the guestbook.
Here is what you submitted:
$FORM{'sugg'}

EOH } sub goback { print <<"EOH";
Back to the Guestbook
You may need to reload it to see your entry.

EOH } sub send_mail { open(MAIL, "|$mailprog -t ") || die; print MAIL "To: $to\n"; print MAIL "From: $FORM{'name'} <$FORM{'email'}>\n"; print MAIL "Reply-To: $FORM{'email'}\n"; print MAIL "Subject: Eye guest book filled in by $FORM{'name'} on $date\n"; print MAIL "Creative Eye guest book has been submitted by \n$FORM{'name'} <$FORM{'email'}>\n on $date \n"; print MAIL "Following Details have been provided by $FORM{'name'} : \n"; print MAIL "Name : $FORM{'name'}\n"; print MAIL "Email : $FORM{'email'}\n"; print MAIL "\t --------------------------------\n\n"; # print MAIL "\nRemote Host $ENV{'REMOTE_HOST'}\n"; # print MAIL "User Agent $ENV{'HTTP_USER_AGENT'}\n"; # print MAIL "Remote Address $ENV{'REMOTE_ADDR'}\n\n"; print MAIL "\n.\n"; close(MAIL); open(MAIL, "|$mailprog -t ") || die; print MAIL "To:$FORM{'email'}\n"; print MAIL "From: Creative Eye Ltd. <$to>\n"; print MAIL "Reply-To: $to\n"; print MAIL "Subject: Thank you $FORM{'name'} for visiting our site.\n"; print MAIL "Dear $FORM{'name'}\n\n"; print MAIL "We greatly appreciate you taking the time to visit our\n"; print MAIL "web-site ( $url/ ) \n on : $date \n\n"; print MAIL "Details provided by you are as follows : \n\n"; print MAIL "Your Name : $FORM{'name'}\n"; print MAIL "Email : $FORM{'email'}\n"; print MAIL "\t --------------------------------\n\n"; #print MAIL "You have evinced an interest in visiting our plot on either of\n"; print MAIL "\nRegards,\n"; # print MAIL "Mr. Ashik Shah\n"; print MAIL "Creative Eye."; print MAIL "\n--------------------------------------------\n"; print MAIL "Visit The Solitude on the WWW at: $url"; print MAIL "\n.\n"; close(MAIL);