aconite — Wed, 01 Dec 1999 22:07:00 +0000

Thanks for your help rob. I tried your simple fix that calls the environment variable, but I get premature end of script header error. I ran the edited script against a debugger that my ISP provides, and it doesn't show any problems, but then again it might just be a syntax checker. I was also thinking about putting something like:

code:


if ($useredirect eq '1') {
	print "Content-type: text/html <html><META HTTP-EQUIV\='refresh' CONTENT='0; url\=www.aroma-massage.com/cart.html'></html>\n";
        
	}
[/code]
But i don't know if that will work. I might need to ad some escapes in the code above, if it will work at all. I am pretty new at PERL and was handed this script to modify.  I will give you the entire subroutine code below so that you might be able to see why I'm getting 500 errors when I try your fix.  Thanks so much for you insight.

code:
# Add a item to the cart, show review page, unless they included a redirect variable.
sub add_item {
open (REFFILE,"$reffile") | | print "Content-type: text/html\n\n Can't Open $reffile(r): $!\n";
@LINES=<REFFILE>;
close(REFFILE);
$SIZE=@LINES;
open (REFFILE,">$reffile") | | print "Content-type: text/html\n\n Can't Open $reffile(r): $!\n";
print REFFILE "$date\| $ENV{'REMOTE_HOST'}\| $ENV{'HTTP_USER_AGENT'}\|$usercurr\|NULL\|\n";
for ($i=1;$i<$SIZE;$i++) {
   	$_=$LINES[$i];
	my($itemname, $itemprice, $itemquant, $weight, $itemid) = split(/\|/,$_);
	print REFFILE join "\|", $itemname,$itemprice,$itemquant,$weight,$itemid,"\|\n";
	}
print REFFILE join "\|", $FORM{'itemname'},$FORM{'itemprice'},$FORM{'itemquant'},$FORM{'weight'},$FORM{'itemid'};
print REFFILE "\|\n";
close(REFFILE);
if ($useredirect eq '1') {
	print "Content-type: text/html\n\n <html><body bgcolor=\#ffffff onload=\"history.back()\">\n";

	}
#if ($FORM{'redirect'}) {
#		print "Location: $FORM{'redirect'} \n\n";
#		}
else {
	&review_items;
	}
}
[/code]

Rob Pengelly — Wed, 01 Dec 1999 20:34:00 +0000

Hmm, not sure if I understand this completely, but here goes nothing

$lasturl=$ENV{'HTTP_REFERER'};
#put this in when the user is at the URL you want them to be when they are redirected later on.

if ($useredirect eq '1')
{print "Location: $lasturl";}

else{}

Try that, if it doesn't work sorry

------------------
If you counted 24 hours a day, it would take 31,688 years to reach one trillion.

[This message has been edited by robp (edited 01 December 1999).]