use Frontier::Client;
use MIME::Base64 ();
#$server_url = 'http://MyHost:8080/';
$server_url = @ARGV[0];
print "\nTrying to connect to xmlBlaster server on $server_url ...\n";
# Make an object to represent the XML-RPC server.
$server = Frontier::Client->new(url => $server_url);
print "Connected to xmlBlaster server on $server_url \n";
# Call the remote server and get our result.
$sessionId = $server->call('authenticate.login', "dk3", "dk2", "false", "");
print "\nLogin success with sessionId=$sessionId \n";
my $c=0;
my $cdata="testing";
$message = $server->call('xmlBlaster.publish', $sessionId,
"".
"post".
"request".
"123".
"",
$cdata,
"truefalse");
print "published... $c\n";
# Logout from xmlBlaster
$server->call('authenticate.logout', $sessionId);
print "\nLogout done, bye.\n";