🚀 go-pugleaf

Filip Byrski wrote:
> 
> Pytanie: dlaczego to nie dziala ?
> 
> #!/usr/bin/sperl5.003
> use CGI;
> $query = new CGI;
> print $query->header;
> print $query->start_html("Taki maly problem");
> if ($query->param(nazwa) ne "") {
>    $nazwa = $query->param(nazwa);
>    print "przed";
>    open(PLIK,">/tmp/$nazwa");
>    print PLIK "nic";
>    close PLIK;
>    print "po";
> } else {
>    print $query->startform;
>    print $query->textfield('nazwa','',10,8);
>    print $query->endform;
> }
> po zmianie #!/usr/bin/sperl5.003 na #!/usr/bin/perl dziala bez zarzutu.
> Wlasciwie to potrzebuje stworzyc pusty plik i nie bardzo wiem jak.
> Dzieki za pomoc.

Moze być, że masz zablokowane skrypty setuid. 
Najlepiej stwórz ten plik w katalogu a+rwx 
lub wykorzystaj istniejacy plik z takimi atrybutami


-- 
 /       Staszek Pasko        \ 
 | UNIX/Network administrator | Indifference will be the downfall of
 | e-mail:staszek@ic.com.pl   | mankind, but who cares?
 \ Finger for PGP             /