Foros del Web - Ver Mensaje Individual

#7 (**permalink**) 11/06/2002, 17:48

Código:

open(SLOG,&quot;&gt;$log&quot;) or error(&quot;Cannot save log : $!&quot;);
foreach $key(@keys)
{
print SLOG qq~$key|$linker_array{$key}\n~;
}
close(SLOG);

return;
}
sub show_topframe{
print &quot;Content-type: text/html\n\n&quot;;
foreach $r (@framehtml) {$r =~ s#\$in\{\'(.*?)\'\}#$in{$1}#gsi; print $r;}
exit; 
}

#################################################################################
# Modify top frame HTML here!
#
# You can use any additional variables. Example
# Call the script - http://mydomain.com/cgi-bin/frames.cgi?url=http://www.yahoo.com&amp;return=http://www.mydomain.com
#
# After it return variable will be accessible here as $in{'return'}
# using this rule, you can use unlimited additional values for top frame
# Please modify html after __END__. string. 
#######################################################################################
__END__.
&lt;html&gt;
&lt;head&gt;
&lt;title&gt;Marco superior de sitio.com&lt;/title&gt;
&lt;link rel=&quot;stylesheet&quot; href=&quot;http://www.sitio.com/a-estilos.css&quot; type=&quot;text/css&quot;&gt;
&lt;script language=&quot;javascript&quot; type=&quot;text/javascript&quot;&gt;
&lt;!--
function favoritos()
{
if (window.external)
external.AddFavorite(&quot;$in{'url'}&quot;, &quot;$in{'url'}&quot;)
else
alert(&quot;Lo siento, pero tu navegador no soporta esta característica. Debes añadir el sitio a tus favoritos manualmente o pulsando Ctrl+D.&quot;);
}
// --&gt;
&lt;/script&gt;
&lt;/head&gt;
&lt;body onmouseover=&quot;window.status='sitio'; return true;&quot; bgcolor=&quot;#990066&quot;&gt;
&lt;script language=&quot;JavaScript&quot; src=&quot;http://www.sitio.com/a-funcionesSIN.js&quot; type=&quot;text/javascript&quot;&gt;&lt;/script&gt;
&lt;table border=&quot;0&quot; cellpadding=&quot;0&quot; cellspacing=&quot;1&quot; width=&quot;100%&quot; bgcolor=&quot;black&quot;&gt;
&lt;tr&gt;
&lt;td bgcolor=&quot;#666666&quot; style=&quot;text-align:center;&quot;&gt;&lt;p&gt;&lt;b&gt;sitio.com&lt;/b&gt; no se hace responsable del contenido de este sitio - &lt;font color=&quot;black&quot;&gt;&amp;raquo;&lt;/font&gt; &lt;a href=&quot;javascript:favoritos();&quot; class=&quot;menu&quot;&gt;A&amp;ntilde;adir a Favoritos&lt;/a&gt; &lt;font color=&quot;black&quot;&gt;&amp;raquo;&lt;/font&gt;

sigue...