Hi there,
When i try to execute the script using the web
browser i get no output from it but at shell prompt it
works.
Here is the script :
#!/usr/bin/perl -w
use CGI qw/:all/;
print "Content-type: text/html\n\n";
print "<title>- LISTA DE LINKS -</title>";
open(LISTA,"links") or die "Error ---- > : $!\n";
open(CATEGORIAS,"categorias") or die "Error ---- > :
$!\n";
print "<B>Lista de Categorias </B><BR><BR>";
print "<form name=\"miforma\" method=\"post\"
action=\"./links1.cgi\" >";
print "<select name=\"categorias\" size=\"1\">";
while ($file1 = <CATEGORIAS>) {
($no,$desc)=split(":",$file1);
print "<option value=\"$no\">$no</option>";
}
close(CATEGORIAS);
print "</select><Input type=\"submit\" value=\"GO\">";
print "<table border=5 cellpadding=5><caption><B>LISTA
DE LINKS
</B></caption><tr><th>TEMA</th><th>LINK</th></tr>";
if (param('categorias'))
{
$cate= param('categorias');
while ($file = <LISTA>) {
($categoria,$link) = split(":",$file);
if ($categoria eq $cate) {
print "<tr><td>
$categoria</td><td>$link</td></tr>";
}
}
}
print "</table></form>";
__________________________________________________
Do You Yahoo!?
Yahoo! Greetings - send holiday greetings for Easter, Passover
http://greetings.yahoo.com/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
