Perl - z lokalu na server

Sat Apr 8 10:12:41 CEST 2000

Kdyz jsem na server http://free.prohosting.com dal muj skript tak mi to
hlasilo nejakou chybu ??? Doma mi to na lokalu funguje. Nevi nekdo cim by to
mohlo byt ???
Stranky jsou na adrese http://hammer.prohosting.com/~1markon/index.shtml

Zde je kod skriptu ( pouzivam promenou url metodou post, ktera se jednoduse
zapise do souboru )

Pozn.: Server skripty CGI napsane v PERLu samozrejme podporuje, takze
takovehle vystvetleni mi nemajlujte !!!

#!/usr/bin/perl

# verze 1.2
# Martin KonicekC2000

$HOST="filtry.txt";   #Do promene host ulozi jmeno souboru, do ktereho se
budou ukladat data

$HOST2="filtry.htm";   #Do promene host ulozi jmeno souboru, do ktereho se
budou ukladat data

read ( STDIN, $data, $ENV{"CONTENT_LENGTH"} );

$data=~ s/^url=//i;  # Odstrani ze zacatku URL=

$data=~ s/\+/ /g; # Konvertuje mezery

$data=~ s/%5C/\//g; # Konvertuje lomitka

$data=~ s/%(..)/pack("c",hex($1))/ge; # Konvertuje nepovolene znaky

$data=~ s/^<//i; #Potlaci pokus vlozit tag

$data=~ s/^>//i;

open (HOST,">>$HOST");   #Otevre soubor hlas.txt pro pridavani udaju.

print HOST "\n";   #Do souboru host prida znak konec radku

print HOST $data;

close(HOST);

open (HOST2,">>$HOST2");   #Otevre soubor hlas.txt pro pridavani udaju.

print HOST2 $data;

print HOST2 "<BR>";   #Do souboru host prida znak konec radku

print HOST2 "\n";   #Do souboru host prida znak konec radku

close(HOST2);

print "Content-type: text/html\n\n";

print "<html><body link=\"#000080\" vlink=\"#000080\" alink=\"#000080\">";
print "<style fprolloverstyle>A:hover {color: #FF0000; font-family: Arial;
font-size: 36pt;
text-decoration: underline}</style>";
print "<p align=\"center\"><font face=\"MS Sans Serif\"
size=\"2\"><b>Filtrovany odkaz ( ";
print $data;
print " )<BR>";
print "Byl uspesne pridan</b></font></p>";
print "<p align=\"center\"><font face=\"Arial\" size=\"7\"><a
href=\"javascript:history.back
();\" onmouseover=\"status='index.htm'; return true;\"
onMouseOut=\"status=''\">Zpet</a>
</font></p>";
print "</body></html>";

--
__________________________________
Martin Konicek < Martin.Konicek at atlas.cz >
-->>Muzete psat cesky ISO 8859-2 nebo Windows <<--
-->> http://konicek.zde.cz <<--
---[ ICQ ]-------[ 62610883 ]-----------

--
__________________________________
Martin Konicek < Martin.Konicek at atlas.cz >
-->>Muzete psat cesky ISO 8859-2 nebo Windows <<--
-->> www.martin.zde.cz <<--
---[ ICQ ]-------[ 62610883 ]-----------