From 0d2c6d74cf60e000646e534a7682b508c84ea55a Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Thu, 10 Apr 2014 13:27:34 -0400 Subject: [PATCH] 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 Signed-off-by: Galen Charlton --- Makefile.am | 1 - examples/register.pl | 50 -------------------------------------------------- 2 files changed, 51 deletions(-) delete mode 100755 examples/register.pl 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 \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