Foros del Web - Ver Mensaje Individual

#5 (**permalink**) 10/06/2002, 22:00

pués sí, claro, pero no tengo el original, así que te tendrás que conformar lo que tengo (de todas formas he cambiado algo)

Código:

#!/usr/bin/perl
##################################################################################
# Frame Redirector
#                               
# Allow you to redirect users to specifed URL with frame with your additional
# info or ADS
#
# Can work with Links 2.0 script or analogic.
#
# You can add any custom values to ADS frame
#
# By Alexey Habibulin --&gt; http://www.mycgiscripts.com/
#                     All rights reserved                      `
#
# For installation of cgi scripts or any custom works email to [email protected]
#
##################################################################################
#Modify here. Please don't forget to change template with frame at end of file

# Log redirects? If yes, change to unix/nt path to log file

$log=&quot;&quot;;

#size of top frame %

$top=&quot;27&quot;;

#size of bottom frame %

$bottom=&quot;*&quot;;

#It all variables to modify. Don't forget to edit html text of frame
#in end of this file
################################################################################
%in=&amp;parse;

@framehtml=&lt;DATA&gt;;

if (!$in{'url'}) {error(&quot;URL is not specifed!&quot;);}

if ($in{'step'}) {&amp;show_topframe;exit;}

&amp;show_frames_page;

exit;

sub show_frames_page{
#all variables.

if ($log) {&amp;logger;}

$all=&quot;&quot;;

foreach $item (keys %in) { $all.=&quot;&amp;$item=$in{$item}&quot;; }

print &quot;Content-type: text/html\n\n&quot;;
print qq~
&lt;html&gt;
&lt;head&gt;
&lt;title&gt;Todos los enlaces están en sitio - $in{'url'}&lt;/title&gt;
&lt;/head&gt;
&lt;frameset rows=&quot;$top,$bottom&quot; border=&quot;0&quot;&gt;
  &lt;frame name=&quot;header&quot; scrolling=&quot;no&quot; target=&quot;main&quot; src=&quot;ir.cgi?step=1$all&quot; marginwidth=&quot;0&quot; marginheight=&quot;0&quot; noresize&gt;
  &lt;frame name=&quot;main&quot; src=&quot;$in{'url'}&quot; marginwidth=&quot;0&quot; marginheight=&quot;0&quot; scrolling=&quot;auto&quot;&gt;
  &lt;noframes&gt;
  &lt;body&gt;
  &lt;p&gt;¡A ver si

sigue...