|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Nataly Melekhovets 2:5085/30.1 23 Mar 2001 09:43:18
To : All
Subject : Перестала работать отправка писем
--------------------------------------------------------------------------------
Салям, All-джан!
Hеделю назад появилась проблема - перестала работать отправка писем. Вот
программа
------------------ 8< ... ----------------
#!/usr/local/bin/perl
use CGI;
use CGI::Carp qw/fatalsToBrowser/;
$q = new CGI;
$mailprog = '/usr/lib/sendmail';
#$recip= 'softmall@yahoo.com';
#my($values,$key);
#Read Form Data
print $q->header();
$fileid=$q->cookie('FileId');
$adress=$q->param('adress');
$realname=$q->param('realname');
$order=$q->param('order');
# Open The Mail Program
open(MAIL,"|$mailprog -t");
print MAIL "To: $recip\n";
print MAIL "From: $adress\n";
print MAIL "Subject: SoftMall Form Order\n\n";
print MAIL "Below is the result of your feedback form. It was submitted by\n";
print MAIL "$realname ($adress) \n";
print MAIL "Order in file $fileid .crt \n";
print MAIL "-" x 75 . "\n\n";
print MAIL "Payment method : $payment\n\n";
print MAIL "-" x 75 . "\n\n";
print MAIL "$order\n";
print MAIL "-" x 75 . "\n\n";
close (MAIL);
$fileid=$q->cookie('FileId',''); #delete cookie
------------------ ... >8 ----------------
До этого письма приходили, а сейчас нет. Что могло случиться и где это нужно
подправить. Да и еще. Кука вот тек не удаляется. Почему ?
$fileid=$q->cookie('FileId',''); #delete cookie
Устанавливаю я ее без указания path.
With *.*
Nataly
... Видимо никто не виноват, что каждый по-своему прав.
---
* Origin: Hotin Yurt -= Toshkent Ozbekiston =- (2:5085/30.1)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
