From 902f02bcdaf698b3031e0c9a25e6213b1209d279 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Mon, 20 Nov 2006 14:09:12 +0000
Subject: [PATCH] committing a simple jabber registration script

git-svn-id: svn://svn.open-ils.org/ILS/trunk@6599 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 OpenSRF/examples/register.pl | 50 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 50 insertions(+)
 create mode 100755 OpenSRF/examples/register.pl

diff --git a/OpenSRF/examples/register.pl b/OpenSRF/examples/register.pl
new file mode 100755
index 0000000000..dfde4a6f38
--- /dev/null
+++ b/OpenSRF/examples/register.pl
@@ -0,0 +1,50 @@
+#!/usr/bin/perl
+# ----------------------------------------------------------------------
+# Utility script for registring users on a jabber server.  
+# ----------------------------------------------------------------------
+use Net::Jabber;
+use strict;
+
+if (@ARGV < 4) {
+    print "\nperl $0 <server> <port> <username> <password> \n\n";
+    exit(0);
+}
+
+my $server = $ARGV[0];
+my $port = $ARGV[1];
+my $username = $ARGV[2];
+my $password = $ARGV[3];
+my $resource = "test_${server}_$$";
+
+my $connection = Net::Jabber::Client->new;
+
+my $status = $connection->Connect(hostname=>$server, port=>$port);
+
+my @stat = $connection->RegisterSend(
+	$server, 
+	username => $username,
+	password => $password );
+
+
+print "Register results : @stat\n";
+
+
+if (!defined($status)) {
+    print "ERROR:  Jabber server is down or connection was not allowed.\n";
+    print "        ($!)\n";
+    exit(0);
+}
+
+my @result = $connection->AuthSend(
+	username=>$username, password=>$password, resource=>$resource);
+
+if ($result[0] ne "ok") {
+    print "ERROR: Authorization failed: $result[0] - $result[1]\n";
+    exit(0);
+}
+
+print "Logged in OK to $server:$port\nRegistration succeeded for $username\@$server!\n";
+
+$connection->Disconnect();
+
+
-- 
2.11.0