Guestbook.pl Issue - On Submit Browser is OPENING

Member

Message

tnla2z

Joined: May 23, 2008

# Posts: 2

Posted: 05/23/2008 11:57 am

I dont know what the deal is so im asking for help.

Im sure you are familiar with the guestbook.pl addguest.html

Last night it worked fine. This morning, I go to test it one more time and press submit to add a new comment/guestbook entry and it tries to OPEN the .PL file..

It still RUNS The .PL too.. the entry gets submitted and the mail gets sent.. but WHY is the browser trying to open the .pl file ? :/

*confused*

ANY ideas? I am completely clueless as the code looks just as I left it -.-

Thanks in advance for any help.

<START ADDGUEST.HTML------------
<html>
<head>
<title>Add your Testimonial!</title>
</head>
<body>

<center>
<h1 align="center">Add your Testimonial/Comment/Question!</h1>
</center>

<p align="center">Thanks for Stopping By ******.Com! </p>

<p align="center">Fill in the blanks below to leave your mark on Clo2Plus. </p>
<p align="center">The only blanks that you have to fill in are Name, Email and Comments section.
Thanks!</p>
<hr align="center">

<form method=POST action="/cgi-bin/guestbook.pl">
<div align="center">
<table width="400">
<tr>
<td><div align="right">Name:</div></td>
<td><input type=text name=realname size=30></td>
</tr>
<tr>
<td><div align="right">E-Mail:
</div></td>
<td><input type=text name=email size=40></td>
</tr>
<tr>
<td><div align="right">Website: </div></td>
<td><input type=text name=url size=50></td>
</tr>
<tr>
<td><div align="right">City:

</div></td>
<td><input type=text name=city size=15></td>
</tr>
<tr>
<td><div align="right">State:

</div></td>
<td><input type=text name=state size=2></td>
</tr>
<tr>
<td><div align="right">Country: </div></td>
<td><select name=country>
<option value="" selected="selected">Select Country</option>
<option value="United States">United States</option>
<option value="United Kingdom">United Kingdom</option>
<option value="Afghanistan">Afghanistan</option>
<option value="Albania">Albania</option>
<option value="Algeria">Algeria</option>
<option value="American Samoa">American Samoa</option>
<option value="Andorra">Andorra</option>
<option value="Angola">Angola</option>
<option value="Anguilla">Anguilla</option>
<option value="Antarctica">Antarctica</option>
<option value="Antigua and Barbuda">Antigua and Barbuda</option>
<option value="Argentina">Argentina</option>
<option value="Armenia">Armenia</option>
<option value="Aruba">Aruba</option>
<option value="Australia">Australia</option>
<option value="Austria">Austria</option>
<option value="Azerbaijan">Azerbaijan</option>
<option value="Bahamas">Bahamas</option>
<option value="Bahrain">Bahrain</option>
<option value="Bangladesh">Bangladesh</option>
<option value="Barbados">Barbados</option>
<option value="Belarus">Belarus</option>
<option value="Belgium">Belgium</option>
<option value="Belize">Belize</option>
<option value="Benin">Benin</option>
<option value="Bermuda">Bermuda</option>
<option value="Bhutan">Bhutan</option>
<option value="Bolivia">Bolivia</option>
<option value="Bosnia and Herzegovina">Bosnia and Herzegovina</option>
<option value="Botswana">Botswana</option>
<option value="Bouvet Island">Bouvet Island</option>
<option value="Brazil">Brazil</option>
<option value="British Indian Ocean Territory">British Indian Ocean Territory</option>
<option value="Brunei Darussalam">Brunei Darussalam</option>
<option value="Bulgaria">Bulgaria</option>
<option value="Burkina Faso">Burkina Faso</option>
<option value="Burundi">Burundi</option>
<option value="Cambodia">Cambodia</option>
<option value="Cameroon">Cameroon</option>
<option value="Canada">Canada</option>
<option value="Cape Verde">Cape Verde</option>
<option value="Cayman Islands">Cayman Islands</option>
<option value="Central African Republic">Central African Republic</option>
<option value="Chad">Chad</option>
<option value="Chile">Chile</option>
<option value="China">China</option>
<option value="Christmas Island">Christmas Island</option>
<option value="Cocos (Keeling) Islands">Cocos (Keeling) Islands</option>
<option value="Colombia">Colombia</option>
<option value="Comoros">Comoros</option>
<option value="Congo">Congo</option>
<option value="Congo, The Democratic Republic of The">Congo, The Democratic Republic of The</option>
<option value="Cook Islands">Cook Islands</option>
<option value="Costa Rica">Costa Rica</option>
<option value="Cote D'ivoire">Cote D'ivoire</option>
<option value="Croatia">Croatia</option>
<option value="Cuba">Cuba</option>
<option value="Cyprus">Cyprus</option>
<option value="Czech Republic">Czech Republic</option>
<option value="Denmark">Denmark</option>
<option value="Djibouti">Djibouti</option>
<option value="Dominica">Dominica</option>
<option value="Dominican Republic">Dominican Republic</option>
<option value="Ecuador">Ecuador</option>
<option value="Egypt">Egypt</option>
<option value="El Salvador">El Salvador</option>
<option value="Equatorial Guinea">Equatorial Guinea</option>
<option value="Eritrea">Eritrea</option>
<option value="Estonia">Estonia</option>
<option value="Ethiopia">Ethiopia</option>
<option value="Falkland Islands (Malvinas)">Falkland Islands (Malvinas)</option>
<option value="Faroe Islands">Faroe Islands</option>
<option value="Fiji">Fiji</option>
<option value="Finland">Finland</option>
<option value="France">France</option>
<option value="French Guiana">French Guiana</option>
<option value="French Polynesia">French Polynesia</option>
<option value="French Southern Territories">French Southern Territories</option>
<option value="Gabon">Gabon</option>
<option value="Gambia">Gambia</option>
<option value="Georgia">Georgia</option>
<option value="Germany">Germany</option>
<option value="Ghana">Ghana</option>
<option value="Gibraltar">Gibraltar</option>
<option value="Greece">Greece</option>
<option value="Greenland">Greenland</option>
<option value="Grenada">Grenada</option>
<option value="Guadeloupe">Guadeloupe</option>
<option value="Guam">Guam</option>
<option value="Guatemala">Guatemala</option>
<option value="Guinea">Guinea</option>
<option value="Guinea-bissau">Guinea-bissau</option>
<option value="Guyana">Guyana</option>
<option value="Haiti">Haiti</option>
<option value="Heard Island and Mcdonald Islands">Heard Island and Mcdonald Islands</option>
<option value="Holy See (Vatican City State)">Holy See (Vatican City State)</option>
<option value="Honduras">Honduras</option>
<option value="Hong Kong">Hong Kong</option>
<option value="Hungary">Hungary</option>
<option value="Iceland">Iceland</option>
<option value="India">India</option>
<option value="Indonesia">Indonesia</option>
<option value="Iran, Islamic Republic of">Iran, Islamic Republic of</option>
<option value="Iraq">Iraq</option>
<option value="Ireland">Ireland</option>
<option value="Israel">Israel</option>
<option value="Italy">Italy</option>
<option value="Jamaica">Jamaica</option>
<option value="Japan">Japan</option>
<option value="Jordan">Jordan</option>
<option value="Kazakhstan">Kazakhstan</option>
<option value="Kenya">Kenya</option>
<option value="Kiribati">Kiribati</option>
<option value="Korea, Democratic People's Republic of">Korea, Democratic People's Republic of</option>
<option value="Korea, Republic of">Korea, Republic of</option>
<option value="Kuwait">Kuwait</option>
<option value="Kyrgyzstan">Kyrgyzstan</option>
<option value="Lao People's Democratic Republic">Lao People's Democratic Republic</option>
<option value="Latvia">Latvia</option>
<option value="Lebanon">Lebanon</option>
<option value="Lesotho">Lesotho</option>
<option value="Liberia">Liberia</option>
<option value="Libyan Arab Jamahiriya">Libyan Arab Jamahiriya</option>
<option value="Liechtenstein">Liechtenstein</option>
<option value="Lithuania">Lithuania</option>
<option value="Luxembourg">Luxembourg</option>
<option value="Macao">Macao</option>
<option value="Macedonia, The Former Yugoslav Republic of">Macedonia, The Former Yugoslav Republic of</option>
<option value="Madagascar">Madagascar</option>
<option value="Malawi">Malawi</option>
<option value="Malaysia">Malaysia</option>
<option value="Maldives">Maldives</option>
<option value="Mali">Mali</option>
<option value="Malta">Malta</option>
<option value="Marshall Islands">Marshall Islands</option>
<option value="Martinique">Martinique</option>
<option value="Mauritania">Mauritania</option>
<option value="Mauritius">Mauritius</option>
<option value="Mayotte">Mayotte</option>
<option value="Mexico">Mexico</option>
<option value="Micronesia, Federated States of">Micronesia, Federated States of</option>
<option value="Moldova, Republic of">Moldova, Republic of</option>
<option value="Monaco">Monaco</option>
<option value="Mongolia">Mongolia</option>
<option value="Montserrat">Montserrat</option>
<option value="Morocco">Morocco</option>
<option value="Mozambique">Mozambique</option>
<option value="Myanmar">Myanmar</option>
<option value="Namibia">Namibia</option>
<option value="Nauru">Nauru</option>
<option value="Nepal">Nepal</option>
<option value="Netherlands">Netherlands</option>
<option value="Netherlands Antilles">Netherlands Antilles</option>
<option value="New Caledonia">New Caledonia</option>
<option value="New Zealand">New Zealand</option>
<option value="Nicaragua">Nicaragua</option>
<option value="Niger">Niger</option>
<option value="Nigeria">Nigeria</option>
<option value="Niue">Niue</option>
<option value="Norfolk Island">Norfolk Island</option>
<option value="Northern Mariana Islands">Northern Mariana Islands</option>
<option value="Norway">Norway</option>
<option value="Oman">Oman</option>
<option value="Pakistan">Pakistan</option>
<option value="Palau">Palau</option>
<option value="Palestinian Territory, Occupied">Palestinian Territory, Occupied</option>
<option value="Panama">Panama</option>
<option value="Papua New Guinea">Papua New Guinea</option>
<option value="Paraguay">Paraguay</option>
<option value="Peru">Peru</option>
<option value="Philippines">Philippines</option>
<option value="Pitcairn">Pitcairn</option>
<option value="Poland">Poland</option>
<option value="Portugal">Portugal</option>
<option value="Puerto Rico">Puerto Rico</option>
<option value="Qatar">Qatar</option>
<option value="Reunion">Reunion</option>
<option value="Romania">Romania</option>
<option value="Russian Federation">Russian Federation</option>
<option value="Rwanda">Rwanda</option>
<option value="Saint Helena">Saint Helena</option>
<option value="Saint Kitts and Nevis">Saint Kitts and Nevis</option>
<option value="Saint Lucia">Saint Lucia</option>
<option value="Saint Pierre and Miquelon">Saint Pierre and Miquelon</option>
<option value="Saint Vincent and The Grenadines">Saint Vincent and The Grenadines</option>
<option value="Samoa">Samoa</option>
<option value="San Marino">San Marino</option>
<option value="Sao Tome and Principe">Sao Tome and Principe</option>
<option value="Saudi Arabia">Saudi Arabia</option>
<option value="Senegal">Senegal</option>
<option value="Serbia and Montenegro">Serbia and Montenegro</option>
<option value="Seychelles">Seychelles</option>
<option value="Sierra Leone">Sierra Leone</option>
<option value="Singapore">Singapore</option>
<option value="Slovakia">Slovakia</option>
<option value="Slovenia">Slovenia</option>
<option value="Solomon Islands">Solomon Islands</option>
<option value="Somalia">Somalia</option>
<option value="South Africa">South Africa</option>
<option value="South Georgia and The South Sandwich Islands">South Georgia and The South Sandwich Islands</option>
<option value="Spain">Spain</option>
<option value="Sri Lanka">Sri Lanka</option>
<option value="Sudan">Sudan</option>
<option value="Suriname">Suriname</option>
<option value="Svalbard and Jan Mayen">Svalbard and Jan Mayen</option>
<option value="Swaziland">Swaziland</option>
<option value="Sweden">Sweden</option>
<option value="Switzerland">Switzerland</option>
<option value="Syrian Arab Republic">Syrian Arab Republic</option>
<option value="Taiwan, Province of China">Taiwan, Province of China</option>
<option value="Tajikistan">Tajikistan</option>
<option value="Tanzania, United Republic of">Tanzania, United Republic of</option>
<option value="Thailand">Thailand</option>
<option value="Timor-leste">Timor-leste</option>
<option value="Togo">Togo</option>
<option value="Tokelau">Tokelau</option>
<option value="Tonga">Tonga</option>
<option value="Trinidad and Tobago">Trinidad and Tobago</option>
<option value="Tunisia">Tunisia</option>
<option value="Turkey">Turkey</option>
<option value="Turkmenistan">Turkmenistan</option>
<option value="Turks and Caicos Islands">Turks and Caicos Islands</option>
<option value="Tuvalu">Tuvalu</option>
<option value="Uganda">Uganda</option>
<option value="Ukraine">Ukraine</option>
<option value="United Arab Emirates">United Arab Emirates</option>
<option value="United Kingdom">United Kingdom</option>
<option value="United States">United States</option>
<option value="United States Minor Outlying Islands">United States Minor Outlying Islands</option>
<option value="Uruguay">Uruguay</option>
<option value="Uzbekistan">Uzbekistan</option>
<option value="Vanuatu">Vanuatu</option>
<option value="Venezuela">Venezuela</option>
<option value="Viet Nam">Viet Nam</option>
<option value="Virgin Islands, British">Virgin Islands, British</option>
<option value="Virgin Islands, U.S.">Virgin Islands, U.S.</option>
<option value="Wallis and Futuna">Wallis and Futuna</option>
<option value="Western Sahara">Western Sahara</option>
<option value="Yemen">Yemen</option>
<option value="Zambia">Zambia</option>
<option value="Zimbabwe">Zimbabwe</option>
</select></td>
</tr>
<tr>
<td valign="top"><div align="right">Comments:<br>
</div></td>
<td><textarea name=comments cols=50 rows=10></textarea></td>
</tr>
<tr>
<td> </td>
<td align="right">
<input type=submit>
*
<input type=reset>
</div></td>
</tr>
</table>
</div>
</form>
<div align="center"><a href="/guestbook.html">
Back to the Testimonials/Comments/Questions</a><br>

</div>
</body>
</html>

----------------------END ADDGUEST.HTML>
___________________________________________________________________________

<START GUESTBOOK.PL--------------------------------
# Set Variables

$guestbookurl = "http://**********.com/guestbook.html";
$guestbookreal = "/home/**********/public_html/guestbook.html";
$guestlog = "/home/**********/public_html/guestlog.html";
$cgiurl = "http://**********.com/cgi-bin/guestbook.pl";
$date_command = "/usr/bin/date";
$COUPCODE = "************";

# 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 = 0; # 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:
$mailprog = '/usr/lib/sendmail';
$recipient = '*****@gmail.com';

# 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///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" wink

die "Can't Open $guestbookreal: $!n";
@LINES=<FILE>;
close(FILE);
$SIZE=@LINES;

# Open Link File to Output
open (GUEST,">$guestbookreal" wink

die "Can't Open $guestbookreal: $!n";

for ($i=0;$i<=$SIZE;$i++) {
$_=$LINES[$i];
if (//) {

if ($entry_order eq '1') {
print GUEST "n";
}

if ($line_breaks == 1) {
$FORM{'comments'} =~ s/cMn/<br>n/g;
}

print GUEST "<b>$FORM{'comments'}</b><br>n";

if ($FORM{'url'}) {
print GUEST "<a href="$FORM{'url'}">$FORM{'realname'}</a>";
}
else {
print GUEST "$FORM{'realname'}";
}

if ( $FORM{'email'} ){
if ($linkmail eq '1') {
print " <<a href="mailto:$FORM{'email'}">";
print "$FORM{'email'}</a>>";
}
else {
print " <$FORM{'email'}>";
}
}

print GUEST "<br>n";

if ( $FORM{'city'} ){
print GUEST "$FORM{'city'},";
}

if ( $FORM{'state'} ){
print GUEST " $FORM{'state'}";
}

if ( $FORM{'country'} ){
print GUEST " $FORM{'country'}";
}

if ($separator eq '1') {
print GUEST " - $date<hr>nn";
}
else {
print GUEST " - $date<p>nn";
}

if ($entry_order eq '0') {
print GUEST "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" wink

die "Can't open $mailprog!n";

print MAIL "Reply-to: $FORM{'email'} ($FORM{'realname'})n";
print MAIL "From: $FORM{'email'} ($FORM{'realname'})n";
print MAIL "Subject: There is a New Testimonial-Question-Comment on ******.COMnn";
print MAIL "Here is our most recent Submission to *******nn";
print MAIL "------------------------------------------------------n";
print MAIL "$FORM{'comments'}n";
print MAIL "$FORM{'realname'}";

if ( $FORM{'email'} ){
print MAIL " <$FORM{'email'}>";
}

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 " - $daten";
print MAIL "------------------------------------------------------n";

close (MAIL);
}

if ($remote_mail eq '1' && $FORM{'email'}) {
open (MAIL, "$mailprog -t" wink

die "Can't open $mailprog!n";

print MAIL "To: $FORM{'email'}n";
print MAIL "From: $recipientn";
print MAIL "Subject: Thank for your submission to *******!nn";
print MAIL "------------------------------------------------------n";
print MAIL "Just for Adding Your Testimonail, Here is Your Complimentary Coupon!nn";
print MAIL "Use this code on your next purchase to receive 10% off the Total!nn";
print MAIL " nn";
print MAIL "Coupon Code:$COUPCODEnn";
print MAIL " nn";
print MAIL " nn";
print MAIL "Thank you for adding to our testimonial block,nn";
print MAIL " ***** Corpnn";
print MAIL "------------------------------------------------------n";
print MAIL "$FORM{'comments'}n";
print MAIL "$FORM{'realname'}";

if ( $FORM{'email'} ){
print MAIL " <$FORM{'email'}>";
}

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 " - $daten";
print MAIL "------------------------------------------------------n";

close (MAIL);
}

# Print Out Initial Output Location Heading
if ($redirection eq '1') {
print "Location: $guestbookurlnn";
}
else {
&no_redirection;
}

#######################
# Subroutines

sub no_comments {
print "Content-type: text/htmlnn";
print "<html><head><title>No Comments</title></head>n";
print "<body><h1>Your Comments appear to be blank</h1>n";
print "The comment section in the fillout form appearsn";
print "to be blank and therefore the Addition was notn";
print "added. Please enter your comments below.<p>n";
print "<form method=POST action="$cgiurl">n";
print "Your Name:<input type=text name="realname" size=30 ";
print "value="$FORM{'realname'}"><br>n";
print "E-Mail: <input type=text name="email"";
print "value="$FORM{'email'}" size=40><br>n";
print "City: <input type=text name="city" value="$FORM{'city'}" ";
print "size=15>, State: <input type=text name="state" ";
print "value="$FORM{'state'}" size=15> Country: <input type=text ";
print "name="country" value="$FORM{'country'}" size=15><p>n";
print "Comments:<br>n";
print "<textarea name="comments" COLS=60 ROWS=4></textarea><p>n";
print "<input type=submit> * <input type=reset></form><hr>n";
print "Return to the <a href="$guestbookurl">Testimonials/Comments/Questions</a>.";
print "n</body></html>n";

# Log The Error
if ($uselog eq '1') {
&log('no_comments');
}

exit;
}

sub no_name {
print "Content-type: text/htmlnn";
print "<html><head><title>No Name</title></head>n";
print "<body><h1>Your Name appears to be blank</h1>n";
print "The Name Section in the fillout form appears ton";
print "be blank and therefore your entry was notn";
print "added. Please add your name in the blank below.<p>n";
print "<form method=POST action="$cgiurl">n";
print "Your Name:<input type=text name="realname" size=30><br>n";
print "E-Mail: <input type=text name="email"";
print " value="$FORM{'email'}" size=40><br>n";
print "City: <input type=text name="city" value="$FORM{'city'}" ";
print "size=15>, State: <input type=text name="state" ";
print "value="$FORM{'state'}" size=2> Country: <input type=text ";
print "value=USA name="country" value="$FORM{'country'}" ";
print "size=15><p>n";
print "Comments have been retained.<p>n";
print "<input type=hidden name="comments" ";
print "value="$FORM{'comments'}">n";
print "<input type=submit> * <input type=reset><hr>n";
print "Return to the <a href="$guestbookurl">Testimonials/Comments/Questions</a>.";
print "n</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" wink

;
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/htmlnn";
print "<html><head><title>Thank You</title></head>n";
print "<body><h1>Thank You For Your Submission!</h1>n";

# Print Response
print "Your entry hasn";
print "been added to our collection.<hr>n";
print "Here is what you submitted to us:<p>n";
print "<b>$FORM{'comments'}</b><br>n";

if ($FORM{'url'}) {
print "<a href="$FORM{'url'}">$FORM{'realname'}</a>";
}
else {
print "$FORM{'realname'}";
}

if ( $FORM{'email'} ){
if ($linkmail eq '1') {
print " <<a href="mailto:$FORM{'email'}">";
print "$FORM{'email'}</a>>";
}
else {
print " <$FORM{'email'}>";
}
}

print "<br><br>n";

if ( $FORM{'city'} ){
print "$FORM{'city'},";
}

if ( $FORM{'state'} ){
print " $FORM{'state'}";
}

if ( $FORM{'country'} ){
print " $FORM{'country'}";
}

print " - $date<p>n";

# Print End of HTML
print "<hr>n";
print "<a href="$guestbookurl">Back to Testimonials/Comments/Questions</a>n"; print "- You may need to reload it when you get there to see yourn";
print "entry.n";
print "</body></html>n";

exit;
}

----------------------------END GUESTBOOK.PL>

[ Message was edited by: tnla2z 05/23/2008 12:29 pm ]

[ Message was edited by: tnla2z 05/23/2008 12:29 pm ]

(Copy Shortcut)

tnla2z

Joined: May 23, 2008

# Posts: 2

Posted: 05/24/2008 10:45 am

Never mind... I resolved it somehow.

(Copy Shortcut)

Prowler

Moderator

Joined: Aug 14, 2000

# Posts: 1697

Website

Posted: 05/25/2008 10:54 pm

Welcome tnla2z. Many things would result in the browser trying to "open" .pl file. The server parses the Perl code and executes the code on the server side. If for any reason, it can't run the script, it won't send the right header and as a result, the browser tries to "open" the file.

Most server configurations will expect you to place the CGI codes in a designated directory.

Another thing - your script has a known vulnerability. Anyone can use that script from your server to send spam to anyone at the least.

(Copy Shortcut)

You are not permitted to post messages in this forum or topic, because of one or more of the following reasons:

You have not yet logged in, or registered properly as a member
You are a member, but no longer have posting rights.
This is a private forum, for which you do not have permissions.

If you are a recent member, it's possible that you simply have not yet confirmed your account. Please check your email for a message entitled 'JimWorld Forums: Confirm Your Account' and follow the instructions contained within.

If you cannot find this message, click here to Re-Send it.

If you are still experiencing problem, please read the Login Assistance Article for some advice on what may be causing your login not to work properly.

Switch to Advanced Editor and ... Create a New Topic or Reply to this Thread

SEF