1. server podrzava perl, bar tako pishe tamo :-)
2.posto sam totalni laik oko perla,ko sto rekoh:-) evo kako pocinje kod:
Code:
#!/usr/bin/perl
# Set-Up Variables
$root = "$ENV{'DOCUMENT_ROOT'}";
$forumdir = "$root/cgi-bin/forum/forumdata";
$html = "no";
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
local($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<!--(.|\n)*-->//g;
$in{$name} = $value;
}
.............itd.
ako je potrebno pastiracu celi kod pa da mi kazesh gde je greska:-))))
3. nisam probao sa promenom ekstenzije, nemam dovoljno vreme:-)), probacu veceras pa cu ti reci.
4.nisam uopste menjao dozvole na fajlovima :-)
MilaN
MilaN
Potrebna mi je pomoc oko ove perl scripte...
Re: Potrebna mi je pomoc oko ove perl scripte...