#
#void currently absolete
#
###########################################################
#!/usr/local/bin/perl -wT                                 # 
#                                                         #
# Author name: Phani Adabala                              #
# Creation date: 06/20/2000                               #
#                                                         #
# Description: GuestBook Entery Form                      #
###########################################################

# Initilizing and modules/packages used

require TripodDate;
$CGI = new TripodDate; 
$todays_date = $CGI->currentDate();

use Header;
use Footer;

$header = &Header::header();
$footer = &Footer::footer();

# Log the user entery date-time, ip-address ....

    $user_log =
    "<br>$todays_date,$ENV{TZ},$ENV{REMOTE_HOST},
     $ENV{HTTP_USER_AGENT},--guestbook.pl";

    open 
     (LOG_DATA, ">>log.html")
      or die "Cannot open buddies.html";

    print LOG_DATA "$user_log";

    close (LOG_DATA);

$form_content =
"<table bgcolor=lightyellow width=100%>
<FORM ACTION=https://padabala.tripod.com/cgi-bin/guestbook_update.pl METHOD=POST>
<tr>
<td>
Name: <INPUT TYPE=TEXT NAME=name SIZE=50 MAXLENGTH=50></td>
</tr>
<tr><td>Email-Id: <INPUT TYPE=TEXT NAME=email SIZE=50 MAXLENGTH=50></td>
</tr>
<tr><td>
Your Comments:
</td>
</tr>
<tr><td>
<TEXTAREA NAME=comment ROWS=5 COLS=70></TEXTAREA>
</td></tr>
<tr><td>
Your HomePage http://<INPUT TYPE=TEXT NAME=url SIZE=50 MAXLENGTH=50><BR>
</td></tr>
<tr><td>
<INPUT TYPE=SUBMIT NAME=submit VALUE='Sign it!'>
<INPUT TYPE=RESET  NAME=reset  VALUE='Reset form'>
</td></tr>
</FORM>
</table>
<br>
<center>
<a href=https://padabala.tripod.com/cgi-bin/guestbook_entries.html>View My Guestbook</a>
</center>";

# Printing the contents

print << "END";
Content-type: text/html\n\n
$header

$form_content

$footer
END

exit;