|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Љ®«п Ѓ®Є®ў 2:5020/175.2 23 Jun 2006 14:04:48
To : All
Subject : Помогите пожалуйста с ситаксисом (LWP::UserAgent)
--------------------------------------------------------------------------------
Привет,
помогите пожалуйста с ситаксисом. У меня есть один аппарат, который
конфигурируется xml-файлом. Для его загрузки на сервере аппарата используется
Web-GUI. Консультируясь с различными источниками информации я написал такую
вот программку:
8<-----------------8<
#!c:/perl/bin/Perl.exe
use CGI::Carp "fatalsToBrowser";
use strict;
use LWP::UserAgent;
use HTTP::Request::Common;
my $ua = LWP::UserAgent->new();
my $resp = $ua->request(POST 'http://192.168.0.248/cfg.html',
Content_Type => 'form-data',
'SID' => 'xy00',
'id' => '56069145',
'file' => ["C:\Dokumente und
Einstellungen\user\Desktop\myConfigFile.xml"]);
my $content = $resp->content;
print <<HTML;
Content-type: text/html
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<body>
$content
</body>
</html>
HTML
8<-----------------8<
Ответ с сервера:
500 Server closed connection without sending any data back
За конструктивность - спасибо!
--- ifmail v.2.15dev5
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)
Вернуться к списку тем, сортированных по:
|
