34 lines
871 B
Perl
34 lines
871 B
Perl
#!/usr/bin/perl
|
|
|
|
use LWP;
|
|
use LWP::UserAgent;
|
|
use HTTP::Request::Common;
|
|
|
|
my $ua = LWP::UserAgent->new;
|
|
|
|
$ua->agent(
|
|
agent => "httpaprstester/1.0",
|
|
timeout => 10,
|
|
max_redirect => 0,
|
|
);
|
|
|
|
# test ###########################
|
|
|
|
my $data = "TEST>HTAPRS,TCPIP*:>http packet content";
|
|
my $out = "TEST>HTAPRS,TCPIP*,qAC,TESTING:>http packet content";
|
|
my $post = "user TEST pass 29939 vers httpaprstester 1.0\r\n"
|
|
. "$data\r\n";
|
|
my $url = "http://127.0.0.1:55080/";
|
|
my $req = HTTP::Request::Common::POST($url);
|
|
$req->header('Accept-Type', 'text/plain'); # wat?
|
|
#$req->header('Accept', 'text/plain'); # this is what HTTP uses, really
|
|
$req->header('Content-Type', 'application/octet-stream');
|
|
$req->header('Content-Length', length($post));
|
|
$req->content($post);
|
|
|
|
my $res = $ua->simple_request($req);
|
|
|
|
print $res->code . " " . $res->message . "\n\n";
|
|
print $res->content . "\n";
|
|
|