|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : bvr 2:5020/400 09 Jan 2004 11:50:14
To : Victor Wagner
Subject : Re: 500 Internal Server Error
--------------------------------------------------------------------------------
Hиже привожу скрипт целиком. Hекоторые вещи заменены на ХХХХ
-------------------------------------------------------------
#!/usr/bin/perl
#Zamenite moy email na vash
$YourEMail='support@ХХХХХ.com';
$login = 'ххх';
#Ukazhite adres rassilki
$MailListMail='majordomo@ХХХХХ.com';
#Vvedite to, chto dolzhno bit` v pole Subject
$MailListName=ХХХХХ_news';
#Vvedite deistvie
$Whattodo='subscribe';
#Kuda redirectnut'
$Location='../message2.htm';
$env=$ENV{"QUERY_STRING"};
$env=~s/%([0-9a-hA-H]{2})/pack('C',hex($1))/ge;
%parameters=split(/[&=]/,$env);
if(defined($parameters{maillistmail})){
$MailListMail=$parameters{maillistmail};}
if(defined($parameters{maillistname})){
$MailListName=$parameters{maillistname};}
if(defined($parameters{whattodo})){
$Whattodo=$parameters{whattodo};}
if(defined($parameters{location})){
$Location=$parameters{location};}
$KlientEMail=$parameters{email};
open(SENDMAIL, "| /usr/sbin/sendmail -t -f$login");
print SENDMAIL "From: $KlientEMail\n";
print SENDMAIL "To: $MailListMail\n";
print SENDMAIL "Subject: 'ХХХХХNews'\n";
print SENDMAIL "Content-Type: text/plain; charset=Windows-1251\n";
print SENDMAIL "\n";
print SENDMAIL "$Whattodo $MailListName $KlientEMail\n";
close (SENDMAIL);
print "Location: $Location\n\n";
----------------------------------------------------------------------------
----------------
Есть в нем синтаксическая или ещё какая нибудь ошибка?
Еще вопрос Сам скрипт запускается или нет?
Может кто может поделиться примером подобного скрипта?
Если я поставлю Perl, смогу ли я отлаживать скрипты локально не пользуясь
интернетом? Какой Perl лучше выбрать (если есть из чего выбирать)?
За совет 1 спасибо.
"Victor Wagner" <vitus@45.free.net> сообщил/сообщила в новостях следующее:
news:btlkgc$7m8$4@wagner.wagner.home...
> bvr <bvr@dd.vaz.tlt.ru> wrote:
> b> Привет
> skip
--
Бажанов
Владимир
--- ifmail v.2.15dev5.1
* Origin: GenDR News Server (2:5020/400)
Вернуться к списку тем, сортированных по:
|
Re: 500 Internal Server Error 