[ tupa @ 28.07.2001. 18:34 ] @
Napravio sam form mail skript ali problem je sto nakon slanja podataka ne pokazuje stranu da je poruka poslata nego pokazuje gresku. Inace podaci stizu na adresu. Evo koda pa recite gde gresim #!usr/bin/perl print "Content-type:text/htmlnn"; read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @values=split(/&/, $buffer); foreach $i (@values) { ($varname,$value) = split(/=/,$i); $value=~ tr/+/ /; $value=~ s/%([a-fA-f0-9][a-fA-f0-9])/pack("C", hex($1)); $FORM{$name} = $value; } $mailprog='/usr/sbin/sendmail'; $recipient="tupa/@yahoo.com"; open (MAIL, "|$mailprog -t") or dienice("Ne moze se pokrenuti $mailprogn") print MAIL "To: $recipientn"; print MAIL "Replay-to: $FORM{'email'}n"; print MAIL "Subject: Poruka iz formenn"; foreach $key (keys(%FORM)) { print MAIL "$key = $FORM{$key}"; } close(MAIL); print "<html><head><title></title><head><body>Poslao si mail</body></html>"n; sub dienice { my($errmsg)=@_; print "$errmsg tu je greskan"; print "</body></html>"; exit; } |