hi, everyone, can anyone explain me _vt_cnf folder and the files inside it which supports guestbook.htm,addguestbook.html and guestlog.html in the guest folder of the server www. I am using linux server and using guestbook.pl to generate guestbook.html. I cannot understand _vt_cnf folder and the files inside it ? in what language it is written ? how can one customize it . when i didn't have that folder in the guest folder my guestbook.html was edited by clients. when this folder _vt-cnf and the files was placed it was not edited --please explain. Moreover my guestbook.htm file is not stamped by date entrys when clients submit an entry. It can only stamp "Date" not day or date why . I am using perl script.
guestbook.html present in _vt_cnf folder vti_encoding:SR|utf8-nl vti_timelastmodified:TR|27 Apr 2000 19:58:02 -0000 vti_extenderversion:SR|4.0.2.2717 vti_cacheddtm:TX|27 Apr 2000 19:58:02 -0000 vti_filesize:IR|522 vti_cachedlinkinfo:VX|H|addguest.html H|../ H|http://worldwidemart.com/scripts/ vti_cachedsvcrellinks:VX|FHUS|guest/addguest.html WHUS|index.htm NHHS|http://worldwidemart.com/scripts/ vti_cachedtitle:SR|Guestbook vti_title:SR|Guestbook vti_cachedbodystyle:SR|<body> vti_cachedhasbots:BR|false vti_cachedhastheme:BR|false vti_cachedhasborder:BR|false vti_backlinkinfo:VX| #!/usr/bin/perl ############################################################################ ## # Guestbook Version 2.3.1 # # Copyright 1996 Matt Wright [EMAIL PROTECTED] # # Created 4/21/95 Last Modified 10/29/95 # # Scripts Archive at: http://www.worldwidemart.com/scripts/ # ############################################################################ ## # COPYRIGHT NOTICE # # Copyright 1996 Matthew M. Wright All Rights Reserved. # # # # Guestbook may be used and modified free of charge by anyone so long as # # this copyright notice and the comments above remain intact. By using this # # code you agree to indemnify Matthew M. Wright from any liability that # # might arise from it's use. # # # # Selling the code for this program without prior written consent is # # expressly forbidden. In other words, please ask first before you try and # # make money off of my program. # # # # Obtain permission before redistributing this software over the Internet or # # in any other medium. In all cases copyright and header must remain intact.# ############################################################################ ## # Set Variables $guestbookurl = "http://xxx.com/guest/guestbook.html";; $guestbookreal = "/home/sat/www/guest/guestbook.html"; $guestlog = "/home/vgms/www/guest/guestlog.html"; $cgiurl = "http://xxx.com/cgi-bin/guestbook.pl";; $mailprog = '/usr/sbin/sendmail'; $recipient = '[EMAIL PROTECTED]'; $date_command = "/usr/bin/date"; # Set Your Options: $mail = 1; # 1 = Yes; 0 = No $uselog = 1; # 1 = Yes; 0 = No $linkmail = 1; # 1 = Yes; 0 = No $separator = 1; # 1 = <hr>; 0 = <p> $redirection = 0; # 1 = Yes; 0 = No $entry_order = 1; # 1 = Newest entries added first; # 0 = Newest Entries added last. $remote_mail = 1; # 1 = Yes; 0 = No $allow_html = 1; # 1 = Yes; 0 = No $line_breaks = 0; # 1 = Yes; 0 = No # If you answered 1 to $mail or $remote_mail you will need to fill out # these variables below: # Done ############################################################################ ## # Get the Date for Entry $date = `$date_command +"%A, %B %d, %Y at %T (%Z)"`; chop($date); $shortdate = `$date_command +"%D %T %Z"`; chop($shortdate); # Get the input read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); # Split the name-value pairs @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); # Un-Webify plus signs and %-encoding $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ s/<!--(.|\n)*-->//g; if ($allow_html != 1) { $value =~ s/<([^>]|\n)*>//g; } $FORM{$name} = $value; } # Print the Blank Response Subroutines &no_comments unless $FORM{'comments'}; &no_name unless $FORM{'realname'}; # Begin the Editing of the Guestbook File open (FILE,"$guestbookreal") || die "Can't Open $guestbookreal: $!\n"; @LINES=<FILE>; close(FILE); [EMAIL PROTECTED]; # Open Link File to Output open (GUEST,">$guestbookreal") || die "Can't Open $guestbookreal: $!\n"; for ($i=0;$i<=$SIZE;$i++) { $_=$LINES[$i]; if (/<!--begin-->/) { if ($entry_order eq '1') { print GUEST "<!--begin-->\n"; print GUEST "<b>Name:</b>$FORM{'realname'}<br>\n"; } if ($FORM{'url'}) { print GUEST "<b>URL:</b><a href=\"$FORM{'url'}\">$FORM{'url'}</a><br>\n"; } else { print GUEST "$FORM{''}\n"; } if ( $FORM{'username'} ){ if ($linkmail eq '1') { print GUEST "<b>E-Mail:</b> \<<a href=\"mailto:$FORM{'username'}\">"; print GUEST "$FORM{'username'}</a>\><br>\n"; } else { print GUEST " <$FORM{''}>\n"; } } print GUEST "<br>\n"; if ( $FORM{'city'} ){ print GUEST "<b>City:</b>$FORM{'city'}<br>\n"; } if ( $FORM{'state'} ){ print GUEST "<b>State:</b> $FORM{'state'}<br>\n"; } if ( $FORM{'country'} ){ print GUEST "<b>Country:</b> $FORM{'country'}<br>\n"; } if ($line_breaks == 1) { $FORM{'comments'} =~ s/\cM\n/<br>\n/g; } print GUEST "<b>Comments:</b><blockquote>$FORM{'comments'}</blockquote>\n"; if ($separator eq '1') { print GUEST "<b>Date:</b> - $date<hr>\n\n"; } else { print GUEST "<b>Date:</b> - $date<p>\n\n"; } if ($entry_order eq '0') { print GUEST "<!--begin-->\n"; } } else { print GUEST $_; } } close (GUEST); # Log The Entry if ($uselog eq '1') { &log('entry'); } ######### # Options # Mail Option if ($mail eq '1') { open (MAIL, "|$mailprog $recipient") || die "Can't open $mailprog!\n"; print MAIL "Reply-to: $FORM{'username'} ($FORM{'realname'})\n"; print MAIL "From: $FORM{'username'} ($FORM{'realname'})\n"; print MAIL "Subject: Entry to Guestbook\n\n"; print MAIL "You have a new entry in your guestbook:\n\n"; print MAIL "------------------------------------------------------\n"; print MAIL "$FORM{'comments'}\n"; print MAIL "$FORM{'realname'}"; if ( $FORM{'username'} ){ print MAIL " <$FORM{'username'}>"; } print MAIL "\n"; if ( $FORM{'city'} ){ print MAIL "$FORM{'city'},"; } if ( $FORM{'state'} ){ print MAIL " $FORM{'state'}"; } if ( $FORM{'country'} ){ print MAIL " $FORM{'country'}"; } print MAIL " - $date\n"; print MAIL "------------------------------------------------------\n"; close (MAIL); } if ($remote_mail eq '1' && $FORM{'username'}) { open (MAIL, "|$mailprog -t") || die "Can't open $mailprog!\n"; print MAIL "To: $FORM{'username'}\n"; print MAIL "From: $recipient\n"; print MAIL "Subject: Entry to Guestbook\n\n"; print MAIL "Thank you for signing my Guest Book \n"; print MAIL "Mr.M.G.Sreekumar has sent you a greeting,click on the link to view the greeting\n"; print MAIL "http://xxx.com/greet.html \n"; print MAIL "------------------------------------------------------\n"; print MAIL "Here is what you have submitted:\n"; print MAIL "Name:$FORM{'realname'}\n"; if ( $FORM{'username'} ){ print MAIL "E-Mail: <$FORM{'username'}>\n"; } print MAIL "\n"; if ( $FORM{'city'} ){ print MAIL "City:$FORM{'city'}\n"; } if ( $FORM{'state'} ){ print MAIL "State: $FORM{'state'}\n"; } if ( $FORM{'country'} ){ print MAIL "Country: $FORM{'country'}\n"; } print MAIL "Comments:$FORM{'comments'}\n"; print MAIL "Date: - $date\n"; print MAIL "------------------------------------------------------\n"; close (MAIL); } # Print Out Initial Output Location Heading if ($redirection eq '1') { print "Location: $guestbookurl\n\n"; } else { &no_redirection; } #######################Ebebd3 # Subroutines sub no_comments { print "Content-type: text/html\n\n"; print "<html><head><title>Data Entry Error</title></head>\n"; # print "<body \"bgcolor=\"#Ebeb63\"text=\"#669999\"link=\"#FF9999\" vlink=\"#FFFF33\" alink=\"#99FF66\">\n"; print "<body \BGCOLOR=\"#EBEBD3\"text=\"#669999\"link=\"#FF9999\" vlink=\"#FFFF33\" alink=\"#99FF66\">\n"; print "<CENTER>You forgot to fill out comments, would you please type in the required field to complete the guestbook entry.</CENTER>\n"; print "<hr>\n"; print "<form method=POST action=\"$cgiurl\">\n"; print "<center><table border=0>\n"; print "<tr><th align=left>Your Name:<td><input type=text name=\"realname\"value=\"$FORM{'realname'}\" size=50><br></td></th></tr> \n"; print "<tr><th align=left>URL:<td><input type=text name=\"url\"value=\"$FORM{'url'}\" size=50><br></td></th></tr>\n"; print "<tr><th align=left>E-Mail:<td><input type=text name=\"username\"value=\"$FORM{'username'}\" size=50><br></td></th></tr>\n"; print "<tr><th align=left>City:<td> <input type=text name=\"city\" value=\"$FORM{'city'}\"size=15</td></th></tr>\n "; print "<tr><th align=left>State:<td> <input type=text name=\"state\"value=\"$FORM{'state'}\" size=15></td></th></tr>\n "; print "<tr><th align=left> Country:<td><input type=text name=\"country\" value=\"$FORM{'country'}\" size=15></td></th></tr>\n"; print "<tr><th align=left>Comments:<td><textarea Name=\"comments\" COLS=60 ROWS=4 wrap=physical>$FORM{'comments'}</textarea></td></th></tr>\n"; print "</table></center>\n"; print "<center><input type=submit> * <input type=reset></form></center>\n"; print "<center>Return to the <a href=\"$guestbookurl\">Guestbook</a>.</center>"; print "\n ____ � The WDVL Discussion List from WDVL.COM � ____<BR> To Join wdvltalk, Send An Email To: mailto:[EMAIL PROTECTED] <BR> Send Your Posts To: [EMAIL PROTECTED]<BR> To set a personal password send an email to [EMAIL PROTECTED] with the words: "set WDVLTALK pw=yourpassword" in the body of the email.<BR> To change subscription settings to the wdvltalk digest version:<BR> http://wdvl.internet.com/WDVL/Forum/#sub<BR> <BR> ________________ http://www.wdvl.com _______________________<BR> <BR> You are currently subscribed to wdvltalk as: [EMAIL PROTECTED]<BR> To unsubscribe send a blank email to [EMAIL PROTECTED] <BR> To unsubscribe via postal mail, please contact us at:<BR> Jupitermedia Corp.<BR> Attn: Discussion List Management<BR> 475 Park Avenue South<BR> New York, NY 10016<BR> <BR> Please include the email address which you have been contacted with.<BR> </BODY></html>\n"; # Log The Error if ($uselog eq '1') { &log('no_comments'); } exit; } sub no_name { print "Content-type: text/html\n\n"; print "<html><head><title>Data Entry Error</title></head>\n"; #print "<body background=\"../images/universe.gif\"bgcolor=\"#000000\"text=\"#99FFFF\"link =\"#66FF66\" vlink=\"#FFFFFF\" alink=\"#FF0066\">\n"; #print "<body background =\"bgcolor=\"#EBEBD3\"text=\"#669999\"link=\"#FF9999\" vlink=\"#FFFF33\" alink=\"#99FF66\">\n"; print "<body \BGCOLOR=\"#EBEBD3\"text=\"#669999\"link=\"#FF9999\" vlink=\"#FFFF33\" alink=\"#99FF66\">\n"; print "You forgot to fill out real name, would you please type in the required field to complete the guestbook entry.\n"; print "<hr>\n"; print "<form method=POST action=\"$cgiurl\">\n"; print "<center><table border=0>\n"; print "<tr><th align=left>Your Name:<td><input type=text name=\"realname\"value=\"$FORM{'realname'}\" size=50><br></td></th></tr> \n"; print "<tr><th align=left>URL:<td><input type=text name=\"url\"value=\"$FORM{'url'}\" size=50><br></td></th></tr>\n"; print "<tr><th align=left>E-Mail:<td><input type=text name=\"username\"value=\"$FORM{'username'}\" size=50><br></td></th></tr>\n"; print "<tr><th align=left>City:<td> <input type=text name=\"city\" value=\"$FORM{'city'}\"size=15</td></th></tr>\n "; print "<tr><th align=left>State:<td> <input type=text name=\"state\"value=\"$FORM{'state'}\" size=15></td></th></tr>\n "; print "<tr><th align=left> Country:<td><input type=text name=\"country\" value=\"$FORM{'country'}\" size=15></td></th></tr>\n"; print "<tr><th align=left>Comments:<td><textarea Name=\"comments\" COLS=60 ROWS=4 wrap=physical>$FORM{'comments'}</textarea></td></th></tr>\n"; print "</table></center>\n"; print "<center><input type=submit> * <input type=reset></form></center>\n"; print "<center>Return to the <a href=\"$guestbookurl\">Guestbook</a>.</center>"; print "\n ____ � The WDVL Discussion List from WDVL.COM � ____<BR> To Join wdvltalk, Send An Email To: mailto:[EMAIL PROTECTED] <BR> Send Your Posts To: [EMAIL PROTECTED]<BR> To set a personal password send an email to [EMAIL PROTECTED] with the words: "set WDVLTALK pw=yourpassword" in the body of the email.<BR> To change subscription settings to the wdvltalk digest version:<BR> http://wdvl.internet.com/WDVL/Forum/#sub<BR> <BR> ________________ http://www.wdvl.com _______________________<BR> <BR> You are currently subscribed to wdvltalk as: [EMAIL PROTECTED]<BR> To unsubscribe send a blank email to [EMAIL PROTECTED] <BR> To unsubscribe via postal mail, please contact us at:<BR> Jupitermedia Corp.<BR> Attn: Discussion List Management<BR> 475 Park Avenue South<BR> New York, NY 10016<BR> <BR> Please include the email address which you have been contacted with.<BR> </BODY></html>\n"; # Log The Error if ($uselog eq '1') { &log('no_name'); } exit; } # Log the Entry or Error sub log { $log_type = $_[0]; open (LOG, ">>$guestlog"); if ($log_type eq 'entry') { print LOG "$ENV{'REMOTE_HOST'} - [$shortdate]<br>\n"; } elsif ($log_type eq 'no_name') { print LOG "$ENV{'REMOTE_HOST'} - [$shortdate] - ERR: No Name<br>\n"; } elsif ($log_type eq 'no_comments') { print LOG "$ENV{'REMOTE_HOST'} - [$shortdate] - ERR: No "; print LOG "Comments<br>\n"; } } # Redirection Option sub no_redirection { # Print Beginning of HTML print "Content-Type: text/html\n\n"; print "<html><head><title>Thank You</title></head>\n"; #print "<body background=\"../images/universe.gif\"bgcolor=\"#000000\"text=\"#99FFFF\"link =\"#66FF66\" vlink=\"#FFFFFF\" alink=\"#FF0066\">\n"; print "<body \BGCOLOR=\"#Ebebd3\"text=\"#669999\"link=\"#FF9999\" vlink=\"#FFFF33\" alink=\"#99FF66\">\n"; # Print Response print "Thank you for filling in the guestbook. Your entry has\n"; print "been added to the guestbook.<hr>\n"; print "Here is what you have submitted:<p>\n"; print "<blockquote>\n"; print "<b>Name:</b>$FORM{'realname'}<br>\n"; if ($FORM{'url'}) { print "<b>URL:</b><a href=\"$FORM{'url'}\">$FORM{'url'}</a><br>\n"; } else { print "$FORM{''}"; } if ( $FORM{'username'} ){ if ($linkmail eq '1') { print "<b>E-Mail:</b> <<a href=\"mailto:$FORM{'username'}\">\n"; print "$FORM{'username'}</a>><br>\n"; } else { print " <$FORM{''}>\n"; } } print "<br>\n"; if ( $FORM{'city'} ){ print "<b>City:</b>$FORM{'city'}<br>\n"; } if ( $FORM{'state'} ){ print "<b>State:</b> $FORM{'state'}<br>\n"; } if ( $FORM{'country'} ){ print "<b>Country:</b> $FORM{'country'}<br>\n"; } print "<b>Date:</b> - $date<p><br>\n"; print "<b>Comments:</b><DD>$FORM{'comments'}</DL>\n"; print "</blockquote>\n"; # Print End of HTML print "<hr>\n"; print "<a href=\"$guestbookurl\">Back to the Guestbook</a>\n"; print "- You may need to reload it when you get there to see your\n"; print "entry.\n"; print " ____ � The WDVL Discussion List from WDVL.COM � ____<BR> To Join wdvltalk, Send An Email To: mailto:[EMAIL PROTECTED] <BR> Send Your Posts To: [EMAIL PROTECTED]<BR> To set a personal password send an email to [EMAIL PROTECTED] with the words: "set WDVLTALK pw=yourpassword" in the body of the email.<BR> To change subscription settings to the wdvltalk digest version:<BR> http://wdvl.internet.com/WDVL/Forum/#sub<BR> <BR> ________________ http://www.wdvl.com _______________________<BR> <BR> You are currently subscribed to wdvltalk as: [EMAIL PROTECTED]<BR> To unsubscribe send a blank email to [EMAIL PROTECTED] <BR> To unsubscribe via postal mail, please contact us at:<BR> Jupitermedia Corp.<BR> Attn: Discussion List Management<BR> 475 Park Avenue South<BR> New York, NY 10016<BR> <BR> Please include the email address which you have been contacted with.<BR> </BODY></html>\n"; exit; }
