#!/usr/bin/perl

print "Content-type:text/html\n\n";

# Relative path of this.html

$this_file = "http://www.mrlarkins.com/folder/this.html";

/guestbook/guestbook.html gives the following error

[Fri Jan 2 11:36:22 2004] [error] [client 24.144.12.1] Premature end of script headers: /home/virtual/site160/fst/var/www/cgi-bin/guestbook.pl





guestbook/guestbook.html gives the following error

[Fri Jan 2 11:38:01 2004] [error] [client 24.144.12.1] Premature end of script headers: /home/virtual/site160/fst/var/www/cgi-bin/guestbook.pl






../guestbook/guestbook.html gives the following error

[Fri Jan 2 11:44:01 2004] [error] [client 24.144.12.1] Premature end of script headers: /home/virtual/site160/fst/var/www/cgi-bin/guestbook.pl





http://www.mrlarkins.com/guestbook/guestbook.html gives the following error

[Fri Jan 2 11:46:07 2004] [error] [client 24.144.12.1] Premature end of script headers: /home/virtual/site160/fst/var/www/cgi-bin/guestbook.pl

#!/usr/bin/perl

print "Content-type:text/html\n\n";

#===========================

# Initialize the variables

#===========================

# Relative path of Guestbook.html

$guestbook_file = '../guestbook/guestbook.html';

# Initialize list of months

@month = ("January", "February", "March", "April", "May",

"June", "July", "August", "September", "October",

"November", "December");

#===========================

# Read the data from the form

#===========================

if($ENV{'REQUEST_METHOD'} eq "POST"){

$data_length = $ENV{'CONTENT_LENGTH'};

$bytes_read = read(STDIN, $my_data, $data_length);

}

# Let's load it into something we can use

@name_value_array = split(/&/, $my_data);

# Here's where we do the actual work. We're going to cycle

# through @name_value_array to decode the name=value pairs

foreach $name_value_pair (@name_value_array) {

# Split the name=value pair in your HTML form data

($name, $value) = split(/=/, $name_value_pair);

# Now, replace '+' with ' '

$name =~ tr/+/ /;

$value =~ tr/+/ /;

# Next, we'll translate any hex values back into characters

$name =~ s/%(..)/pack("C",hex($1))/eg;

$value =~ s/%(..)/pack("C",hex($1))/eg;



# Finally, we'll load the variables into an associative array

# so we can use it when we need it.

if($form_data{$name})

{

$form_data{$name} .= "\t$value";

}

else

{

$form_data{$name} = $value;

}

}

#===========================

# Get the date and time

# information

#===========================

($Seconds, $Minutes, $Hours, $DayInMonth, $Month,

$ShortYear, $DayOfWeek, $DayOfYear, $IsDST) = localtime(time);

# Make the year four digits instead of just two

$Year = $ShortYear + 1900;

$EntryDate = "$month[$Month] $DayInMonth, $Year";

#===========================

# Open the file, using the

# variable set at the beginning

# of the script.

#===========================

open(GUESTBOOK, "<$guestbook_file") ||

die "Can't open GUESTBOOK: $guestbook_file\n";

# Read the entire file into a list so we can use it later

@guestbook =<GUESTBOOK>;

# ALWAYS close the file when you're done!

close(GUESTBOOK);

#===========================

# Now open it again, but this

# time we'll write to it

#===========================

open(GUESTBOOK, ">$guestbook_file") ||

die "Can't open GUESTBOOK: $guestbook_file\n";

#===========================

# Here's where we write it out

#===========================

foreach $line (@guestbook){

# Check to see if we're at the beginning of the guest book

if($line =~ /<!--My Latest Guest:-->/i) {

#===========================

# We are, so add our latest guest

# Start by adding the guestbook

# header to the file, so we can

# find it next time

#===========================

print GUESTBOOK "<!--My Latest Guest:-->\n";



#===========================

# The guestbook is an HTML

# file, so we'll have to add

# the tags too

#===========================

print GUESTBOOK "<DL>\n";

#===========================

if($form_data{'email'}) {

print GUESTBOOK "<DD><I><B><A HREF=\"mailto:$form_data{'email'}\">

$form_data{'name'}</A></B></I>\n";

} else {

print GUESTBOOK "<DD><B>From : </B><I> $form_data{'name'}</I>\n";

}

print GUESTBOOK "<DD><B>Period: </B><I>$form_data{'period'}</I>\n";



#===========================



#===========================

print GUESTBOOK "<DD><B>Homepage:</B><I><A HREF=\"$form_data{'web'}\">$form_data{'web'}</A></I>\n";



#===========================



#===========================

# add the comments

print GUESTBOOK "<P>\n";

print GUESTBOOK "$form_data{'comments'}\n";

print GUESTBOOK "</P>\n";

#===========================



#===========================

# add the date

print GUESTBOOK "<p><I><font size=2>\n";

print GUESTBOOK "signed on $EntryDate\n";

print GUESTBOOK "</font></I>\n";

#===========================



#===========================

# finish up

print GUESTBOOK "</DL>\n";

print GUESTBOOK "<HR color=blue size=3>\n";

#===========================

}# end: if($line =~ /<!--My Latest Guest:-->/i)

else {

#===========================

# just print the existing

# lines back to the updated file

#===========================

print GUESTBOOK "$line";

}# end: else[if($line =~ /<!--My Latest Guest:-->/i)]

}# end: foreach $line (@guestbook) {

close(GUESTBOOK);





#open (MAIL, "|sendmail -t");

#print MAIL "To: $form_data{'name'}<$form_data{'email'}>\n";

#print MAIL "From: Mr. Larkins <larkinst\@conway.afsc.k12.ar.us>\n";

#print MAIL "Thank you $form_data{'name'} for signing my guestbook. You should be able to view it immediately.\n";

#print MAIL "You submitted the following information to www.MrLarkins.com.\n";

#print MAIL " \n";

#print MAIL "Name: $form_data{'name'}\n";

#print MAIL "Email Address: $form_data{'email'}\n";

#print MAIL "Web Address: $form_data{'web'}\n";

#print MAIL "Class Period: $form_data{'period'}\n";

#print MAIL "Comments:\n";

#print MAIL "$form_data{'comments'}\n";

#print MAIL " \n";

#print MAIL "Thanks.\n";

#print MAIL "Mr. Larkins\n";

#close (MAIL);

#open (MAIL, "|sendmail -t");

#print MAIL "To: Mr. Larkins <tlarkins\@conwaycorp.net>\n";

#print MAIL "From: $form_data{'name'}<$form_data{'email'}>\n";

#print MAIL "Subject: I signed your guestbook\n\n";

#print MAIL "$form_data{'name'} submitted the following entry to your guestbook.\n";

#print MAIL " \n";

#print MAIL "Name: $form_data{'name'}\n";

#print MAIL "Email Address: $form_data{'email'}\n";

#print MAIL "Web Address: $form_data{'web'}\n";

#print MAIL "Class Period: $form_data{'period'}\n";

#print MAIL "Comments:\n";

#print MAIL "$form_data{'comments'}\n";

#close (MAIL);

#===========================

# Let them know their entry

# is added

#===========================

print <<"EOF"

<HTML><TITLE>Entry Submitted</TITLE><HEAD> <META HTTP-EQUIV="refresh" content="4;URL=/home/virtual/site160/fst/var/www/guestbook/guestbook.html"></HEAD><BODY>



<H1>Your GuestBook Entry has been Submitted\!</H1>

Your guestbook entry has been successfully added to the

guestbook and in <font size=24>3</font> seconds you will be taken back to view it.

</BODY>

EOF

#===========================

#!/usr/bin/perl

print "Content-type:text/html\n\n";

# Relative path of Guestbook.html

$guestbook_file = '../guestbook/guestbook.html';

Maybe I missed something but I don't see where he used a URL?

anyother suggetions?

Web Document Path

/var/www/html

CGI Document Path /var/www/cgi-bin

davorg, i can't find "the command line" for my NEW server! it isn't a choice from the admin menu... but this i do know

i do not know how to run the script from the server command line...can you help me out? i do know that the apache server is runnning WEBppliance Pro 3.5.20-9 does that help?

i have both, but am ignorant in how to use them! please teach me, i learn super fast

perl -w guestbook.pl

when i logged into the secure shell and used the ls command, i noticed that there was a cgi folder AND a perl folder... i had originally placed the guestbook.pl script in the cgi folder (assuming it was the cgi-bin); however, when i saw the perl folder, i moved the script to it and ran it again, guess what, it worked!

just one problem left... you might have noticed some 'mail' stuff that was disabled in the script, well i originally wrote that in when i downloaded a demo of sendmail for my home server, and after the month was up i dicontinued using it (instead of paying for it)...but the new server has the sendmail program on it in the following directory: usr/sbin/sendmail

how would i modify my script to run the mail feature again?

he could have told me then the perl script was in the wrong directory