|
ru.website
- RU.WEBSITE -------------------------------------------------------------------
From : M.E. 2:5020/400 02 Aug 2000 08:40:45
To : All
Subject : Re: Apache
--------------------------------------------------------------------------------
Здравствуй.
>Hу как, блин, прикажешь нам догадаться, какую ошибку ты допустил в каком-то
там скрипте?
В скрипте ошибки нет, потому что в Интернете он работает. А Apache выдает
Internal Server Error.
>Трудно было додуматься до того, чтобы привести текст скрипта?
кстати, вместо "Трудно было додуматься до того, чтобы" можно было бы
написать "Hе могла бы ты". И короче, и приятнее.
А вот текст самого короткого из трех скриптов (которые все в Apache не
работают, думаешь все неправильные?):
-------Hачало--------
#!/usr/bin/perl
###############################################
#Программа SENDMAIL
$mailprog = '/usr/sbin/sendmail';
###############################################
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$name =~ s/<!--(.|\n)*-->//g;
$name =~ s/<([^>]|\n)*>//g;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<!--(.|\n)*-->//g;
$value =~ s/<([^>]|\n)*>//g;
$FORM{$name} = $value;
}
$subject = $FORM{subject};
$to = $FORM{to};
$from = $FORM{from};
$followupurl = $FORM{followupurl};
# Open the mail program
open(MAIL,"|$mailprog -t");
print MAIL "To: $to\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n";
print MAIL "\n";
print MAIL
"---------------------------------------------------------------------\n";
foreach $key (keys(%FORM)) {
if ($key ne "subject" && $key ne "to" && $key ne "from" && $key ne
"followupurl") {
print MAIL "$key: $FORM{$key}\n";
}
}
print MAIL
"---------------------------------------------------------------------\n";
close(MAIL);
print "Location: $followupurl\n\n";
-----Конец----
С уважением, М.Е.
--- ifmail v.2.15dev5
* Origin: Novokuznetsk TTS (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
| Тема: |
Автор: |
Дата: |
|
Apache |
M.E. |
01 Aug 2000 04:38:31 |
 Apache |
Anton Zheltov |
01 Aug 2000 16:11:45 |
  Re: Apache |
M.E. |
02 Aug 2000 08:40:46 |
 Apache |
Sergey Borodinov |
04 Aug 2000 01:21:30 |
|
Apache |
Oleg Kunov |
04 Aug 2000 21:23:42 |
|
Re: Apache |
Mark Shevchenko |
04 Aug 2000 12:43:03 |
|
Re: Apache |
M.E. |
08 Aug 2000 09:59:25 |
|
Apache |
Alexander Temerev |
06 Aug 2000 12:45:52 |
|
Re: Apache |
Max Kuriloff |
01 Aug 2000 09:21:49 |
|
Re: Apache |
M.E. |
01 Aug 2000 14:24:11 |
 Apache |
Oleg Kunov |
02 Aug 2000 17:23:32 |
|
Apache |
Andrej Ramaszeuski |
01 Aug 2000 22:07:25 |
|
Apache |
Ilia Sprite |
01 Aug 2000 13:38:55 |
|
Re: Apache |
Serge Shikov |
01 Aug 2000 16:58:06 |
|
Re: Apache |
M.E. |
02 Aug 2000 08:40:45 |
|
Hа: Apache |
Max Kuriloff |
02 Aug 2000 10:03:06 |
|
Re: Apache |
Roman Drobov |
02 Aug 2000 10:11:45 |
|
Hа: Apache |
Max Kuriloff |
02 Aug 2000 20:19:54 |
 Re: Apache |
Andrew Perevodchik |
03 Aug 2000 10:38:53 |
|
Hа: Apache |
Oleg N. Kotenko |
04 Aug 2000 20:22:37 |
|
Hа: Apache |
Max Kuriloff |
05 Aug 2000 07:27:47 |
|
Re: Hа: Apache |
Serge Shikov |
05 Aug 2000 12:07:32 |
|
Hа: Apache |
Oleg N. Kotenko |
14 Aug 2000 08:09:17 |
|
Re: Hа: Apache |
Mark Shevchenko |
05 Aug 2000 15:20:22 |
|
Re^2: Apache |
Ilia Kharlamoff |
04 Aug 2000 10:01:06 |
|
Re: Hа: Apache |
Mark Shevchenko |
04 Aug 2000 12:14:58 |
|
Re: Apache |
Serge Shikov |
03 Aug 2000 10:57:53 |
|
Apache |
Oleg N. Kotenko |
04 Aug 2000 20:26:18 |
|
Re: Apache |
Ilia Kharlamoff |
02 Aug 2000 09:15:38 |
|
|
