From: Bill Erickson <berick@esilibrary.com>
Date: Thu, 10 Apr 2014 17:27:34 +0000 (-0400)
Subject: LP#1306044 Removing deprecated jabber register script
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=0d2c6d74cf60e000646e534a7682b508c84ea55a;p=working%2FOpenSRF.git

LP#1306044 Removing deprecated jabber register script

This script is no longer user, since ejabberdctrl is used instead.
What's more, this script uses a Perl package (libnet-jabber-perl) which
is no longer available in Debian (Jessie).

Signed-off-by: Bill Erickson <berick@esilibrary.com>
Signed-off-by: Galen Charlton <gmc@esilibrary.com>
---

diff --git a/Makefile.am b/Makefile.am
index 79b644a..ed59a61 100644
--- a/Makefile.am
+++ b/Makefile.am
@@ -53,7 +53,6 @@ EXAMPLES_FILES = @srcdir@/examples/fieldmapper2cdbi.xsl \
 				 @srcdir@/examples/math_bench.pl \
 				 @srcdir@/examples/math_client.py \
 				 @srcdir@/examples/multisession-test.pl \
-				 @srcdir@/examples/register.pl \
 				 @srcdir@/examples/srfsh_config.xsd \
 				 @srcdir@/examples/math_xul_client/math \
 				 @srcdir@/examples/math_xul_client/install.js
diff --git a/examples/register.pl b/examples/register.pl
deleted file mode 100755
index dfde4a6..0000000
--- a/examples/register.pl
+++ /dev/null
@@ -1,50 +0,0 @@
-#!/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();
-
-