Rob Pengelly — Sat, 30 Sep 2000 03:33:18 +0000

Hello.

I hope the code below is what your looking for. I have tested it and it ran fine.

#!/usr/bin/perl
#Variables
$error_url = 'http://mainsite'; #URL if there an error occurs
$top_url = 'http://www.mainsite.com/topframe.html'; #URL to the top frame
$html_title = 'Link'; #title of framed page



#Parsing any input
&parse;


if($ENV{'QUERY_STRING'})
{
	#a url is in the $query string, go on with script
	print "Content-type:text/html\n\n";
	print qq|
	<html><head><title>$html_title</title></head>
	<frameset framespacing="0" border="0" frameborder="0" rows="5%,95%">
	<frame scrolling="no" noresize src="$top_url" marginwidth="1" marginheight="1">
        <frame src="$ENV{'QUERY_STRING'}" scrolling="auto" marginwidth="1" marginheight="1" noresize>
	</frameset>
	<html>	
	|;
	exit;

}
else
{
	#error occured,probably no url entered, redirecting user to $error_url
	print "Location: $error_url\nURI: $error_url\n\n";
	exit;
}


sub parse {

	(*fval) = @_ if @_ ;

	local ($buf);
	if ($ENV{'REQUEST_METHOD'} eq 'POST') {
		read(STDIN,$buf,$ENV{'CONTENT_LENGTH'});
	}
	else {
		$buf=$ENV{'QUERY_STRING'};
	}
	if ($buf eq "") {
			return 0 ;
		}
	else {
 		@fval=split(/&/,$buf);
		foreach $i (0 .. $#fval){
			($name,$val)=split (/=/,$fval[$i],2);
			$val=~tr/+/ /;
			$val=~ s/%(..)/pack("c",hex($1))/ge;
			$name=~tr/+/ /;
			$name=~ s/%(..)/pack("c",hex($1))/ge;

			if (!defined($field{$name})) {
				$field{$name}=$val;
			}
			else {
				$field{$name} .= ",$val";

			}


		   }
		}
return 1;
}

Just link your sites to
domain.com/cgi-bin/scriptname.cgi?http://link_here

This will than create a frame in which the specified top frame appears, and the link is placed below it.

Hope that helps

Orpheus — Fri, 29 Sep 2000 22:54:25 +0000

you going to pay for it?

mjames — Fri, 29 Sep 2000 20:46:37 +0000

I don't recommend using the frames like that (or really any way at all!)... it will annoy your users and when they are annoyed, are they going to want to come back? I think not.

Vincent Puglia — Fri, 29 Sep 2000 15:48:25 +0000

Hi Chris,

I may be way offbase here, but...
Do you mean something like:

You can try to implement it in javascript, but it's a bad idea for 2 reasons:

1) the onUnload doesn't always fire
2) many people object to being held hostage.

Vinny