#!/usr/bin/perl -w
use strict; # har har
### ### ### conf ### ### ###
my $BASE_ADDRESS = "http://localhost/JHB/";
my $JABBER_SERVER = "localhost";
my $RID = 3197423130;
my $USER = "user01";
my $UPW = "topSecret";
my $DEBUG = 1;
# create an agent we can use for our requests
use LWP::UserAgent;
my $ua = new LWP::UserAgent();
### ### ### subs ### ### ###
sub doSend() {
my $content = shift;
print STDERR "\n\n" if ($DEBUG);
# create a request
my $req = new HTTP::Request(POST => $BASE_ADDRESS);
$req->content_type('text/xml; charset=utf-8');
$req->content($content);
print STDERR "<< Request\n", $req->as_string, "<<\n" if ($DEBUG);
# send request
my $res = $ua->request($req);
print STDERR ">> Response\n" if ($DEBUG);
if ($res->is_success) {
print STDERR $res->as_string if ($DEBUG);
} else {
print STDERR $res->status_line if ($DEBUG);
}
print STDERR "\n>>\n" if ($DEBUG);
return $res;
}
### ### ### main ### ### ###
$| = 1; # set streaming output
# no body
print "Sending some 'foo': ";
my $res = &doSend("foo");
if ($res->code == 400) {
print "OK.\n";
} else {
print "Failed!\n";
print $res->as_string, "\n";
}
# no body
print "Sending some '': ";
$res = &doSend("");
if ($res->code == 400) {
print "OK.\n";
} else {
print "Failed!\n";
print $res->as_string, "\n";
}
# empty body
print "Sending empty body: ";
$res = &doSend("");
if ($res->code == 400) {
print "OK.\n";
} else {
print "Failed!\n";
print $res->as_string, "\n";
}
# fake a sid
print "Sending wrong sid: ";
$res = &doSend("