Легенда:
 новое сообщение
 закрытая нитка
 новое сообщение
 в закрытой нитке
 старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
[Perl] Apache говорит 500, но скрипт работает! 28.02.02 10:25
Автор: GorynYch Статус: Member
Отредактировано 28.02.02 10:39 Количество правок: 1
|
Типа странно....
Скрипт должен постить объяву.
Када я его запускаю в DZPerlEditor, все нормально, загружается пага с месагой что типа ваша объява пропостилась. А када я его запускаю по-нормальному через апача, то мне возвращается ошибка 500... Но объява все равно постится! ХЗ!
Привожу сурс:
#!c:/Perl/bin/perl
use strict;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $name='Тестер-Тостер';
my $SComment = 'Тут длжно быть сообщение';
my $SPostString = '&name=' . $name . '&message=' . $SComment . '&address=t@e.st';
my $req = HTTP::Request->new(POST => 'http://www.himprom.saminfo.ru/add.phtml');
$req -> content_type('application/x-www-form-urlencoded');
$req -> content($SPostString);
my $res = $ua->request($req);
print $res->as_string;
#print "Content-type: plain/text";
#print "OK!"
---
|
|
Типа, я разобрался... 28.02.02 12:31
Автор: GorynYch Статус: Member
|
#!c:/Perl/bin/perl
# Обязательно ставь везде
use strict;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $name='Тестер-Тостер';
my $SComment = 'Тут длжно быть сообщение, но оно куда-то пропало :(';
my $SPostString = '&name=' . $name .'&message=' . $SComment . '&address=t@e.st';
my $req = HTTP::Request->new(POST => 'http://www.himprom.saminfo.ru/add.phtml');
$req -> content_type('application/x-www-form-urlencoded');
$req -> content($SPostString);
my $res = $ua->request($req);
print "Content-type: text/html\n\n"; #Надо было подставить эту строку, я думал что мне ее подставит у даленный сервер(на каторый я делаю пост)
print "<h1>OK!</h1>";
print $res->as_string;
---
|
|
|
подробно о проекте
Анализ криптографических сетевых... 
