|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Andrey Kr. 2:5020/400 18 Sep 2000 14:06:39
To : All
Subject : Hу почему ???
--------------------------------------------------------------------------------
Привет, All !!!
Скачал я тут одну cgi-програмку, которая содержимое полей записывает в
определенный файл. Hо проблема в том, что на моем сервере (MS Windows 2000
ISS) она не работает. Выдает ошибку HTTP 500 Internal Server Error. Вот
текст програмки:
#!/usr/local/bin/perl
$title = "Form to File Demo"; #Title of the page
$bg_color = "White"; #Body color of the page
$text_color = "Black"; #Text color of the page
$data = "./data.txt"; #The location of the file on the servers
hard drive
print "Content-type: text/html\n\n";
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/~!/ ~!/g; $FORM{$name} = $value;}
$f = $FORM{'field_one'};
$s = $FORM{'field_two'};
$t = $FORM{'field_three'};
$fo = $FORM{'field_four'};
open(data,">>$data");
print data "-------Start Entry------\n";
print data "Name: $f \n";
print data "Email: $s \n";
print data "URL: $t \n";
print data "Info: $fo \n";
print data "-------End Entry------\n";
print "<html><head>\n";
print "<title>$title</title>\n";
print "<body bgcolor=$bg_color text=$text_color>\n";
print "<font face=\"Verdana\" size=\"2\"><img src=tophead.gif\" width=\"35\"
height=\"35\" border=\"0\" alt=\"DevHead\"><FONT COLOR=\"#003399\"
FACE=\"ARIEL,HELVETICA\" SIZE=\"-1\"><B>Live Demo: Form to
File</B></FONT><P>\n";
print "<b>Complete</b><br>\n";
print "Your form has been processed.\n";
print "</font>\n";
print "</head></html>\n";
Я только недавно начал изучать Perl, поэтому еще не совсем во всем
разбираюсь. Кто может, помогите разобраться !!!
Спасибо.
Андрей.
--- ifmail v.2.15dev5
* Origin: <Customer of IP Telecom Ltd.> (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
