|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : bvr 2:5020/400 12 Jan 2004 09:26:05
To : Konstantin Tokar
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";
----------------------------------------------------------------------------
> ls -la /home/sites/site156/www/cgi-bin/subscribe.cgi
Для выполнении этой команды что надо использовать?
ЗЫ: Вопросы конечно еще те, но прошу не пинать, а помочь советом
--
Бажанов
Владимир
"Konstantin Tokar" <fido7@tokar.ru> сообщил/сообщила в новостях следующее:
news:btta7o$2ja9$1@ddt.demos.su...
> bvr wrote:
>
> > Привет
> > Вот строчка из error log файла
> >
> > Premature end of script headers:
> > /home/sites/site156/www/cgi-bin/subscribe.cgi
> > может она что прояснит?
>
> Твой скрипт не отдал правильные заголовки. Запусти еко, как обычный
> скрипт, из телнета например, и посмотри, что он выдаёт. Приведи текст
> скрипта, без этоготолку не будет.
>
> >
> > Как проверить, у кого узнать, есть ли у меня права на эту операцию?
> >
>
> Дай команду
> ls -la /home/sites/site156/www/cgi-bin/subscribe.cgi
>
> и посмотри, есть ли права. Правильно ли сформирована первая строчка
> скрипта - существующий ли путь к perl , нет ли перевода строка в
dos-стиле,
>
> У любого сервера есть администратор или служба поддержки. Что он (она)
> говорит?
>
--- ifmail v.2.15dev5.1
* Origin: GenDR News Server (2:5020/400)
Вернуться к списку тем, сортированных по:
|
