Re: Working for IE

Okay, duh! I found how to post properly so you can see my script. Sorry about the earlier jarbled mess. Thanks again for your input. CA

#!/usr/local/bin/perl
BEGIN{unshift(@INC,"/usr/local/www/htdocs/pcworldlinks/cgi-bin/")};
use Cart;

$path="/usr/local/www/htdocs/pcworldlinks/cgi-bin/DIST/";
%ele=Cart::cgiparse;
if(!($ele{dist})){$dist=$ENV{'QUERY_STRING'};}else{$dist=$ele{dist};}
%var=Cart::get_client($dist,$path);
print "Content-Type: text/html\n\n";

if ($ele{dist}=~ /[guestmember]/i){

print <<"EOF";
<HTML>
<HEAD>
<script language="JavaScript"><!--- Hide from tired old browsers
function go(url){
opener.parent.main.location.href=url;
}
// End hiding --->
</script>
<base href="http://www.pcworldlinks.com/">
</HEAD>
<TITLE>Welcome to Pro Celebrity Golf & Travel</TITLE>
<frameset cols=16%,84% frameborder=no border=0 framespacing=0 noresize
+=yes>
<frame src="framedpgs/toolbarmg.htm" name="toolbar" scrolling=auto
marginwidth=0 marginheight=0 noresize=yes>
<frame src="Mainpage1.shtml" name="main" scrolling=auto
marginwidth=0 marginheight=0 noresize=yes>
</frameset>
</frameset>
<noframes>
You need a frames capable browser to view this page.
</noframes>
</HTML>


EOF

}else{

print <<"EOF";
<HTML>

<HEAD>
<script language="JavaScript">
<!--- Hide from tired old browsers
function go(url){
opener.parent.main.location.href=url;
}
// End hiding --->
</script>
<base href="http://www.pcworldlinks.com/">
</HEAD>
<TITLE>$var{title}</TITLE>
<frameset cols=15%,* frameborder=no border=0 framespacing=0 noresize=y
+es>
<frame src="cgi-bin/cgiwrap/pcworldlinks/toolbarir.pl?$var{dist}" name
+="toolbar" scrolling=auto
marginwidth=0 marginheight=0 noresize=yes>
<frameset rows=28%,*>
<frame src="cgi-bin/cgiwrap/pcworldlinks/irnfo.pl?$var{dist}" name="ir
+nfo" marginwidth=0
marginheight=0 scrolling=no>
<frame src="cgi-bin/cgiwrap/pcworldlinks/main.pl?$var{dist}" name="mai
+n" scrolling=auto
marginwidth=0 marginheight=0 noresize=no>
</frameset>
</frameset>
<noframes>
You need a frames capable browser to view this page.
</noframes>
</HTML>
EOF

}
[download]

Comment on Re: Working for IE Download Code

Replies are listed 'Best First'.
RE: Re: Working for IE by chromatic (Archbishop) on Jun 16, 2000 at 03:53 UTC
That much looks okay. You might move the `print "Content-Type: text/html\n\n";` line to before the Cart::cgiparse() call. (It may print its own headers, screwing things up.) Otherwise, you'll have to check the server configuration. That's probably beyond the scope of Perl Monks.	[reply] [d/l]