diff -Naur Net-XMPP-1.0.orig/lib/Net/XMPP/Stanza.pm Net-XMPP-1.0/lib/Net/XMPP/Stanza.pm

--- Net-XMPP-1.0.orig/lib/Net/XMPP/Stanza.pm	2004-08-17 08:09:22 +0400

+++ Net-XMPP-1.0/lib/Net/XMPP/Stanza.pm	2004-10-03 23:46:40 +0400

@@ -212,6 +212,7 @@

 use strict;

 use Carp;

+use Net::XMPP::Debug;

 use Net::XMPP::Namespaces;

 use vars qw( $AUTOLOAD %FUNCTIONS $DEBUG );

diff -Naur Net-XMPP-1.0.orig/t/3_client_jabberd2.t Net-XMPP-1.0/t/3_client_jabberd2.t

--- Net-XMPP-1.0.orig/t/3_client_jabberd2.t	2004-07-30 04:08:33 +0400

+++ Net-XMPP-1.0/t/3_client_jabberd2.t	1970-01-01 03:00:00 +0300

@@ -1,103 +0,0 @@

-use lib "t/lib";

-use Test::More tests=>5;

-

-BEGIN{ use_ok( "Net::XMPP" ); }

-

-my $Client;

-my $connected = 0;

-

-my $server = "obelisk.net";

-my $port = 5225;

-my $username = "test-netjabber";

-my $password = "test";

-my $resource = $$.time.qx(hostname);

-chomp($resource);

-

-###############################################################################

-#

-# Make sure you can ever connect to the server.  If we cannot then we should

-# skip the rest of the tests because they will fail.

-#

-###############################################################################

-SKIP:

-{

-    my $sock = IO::Socket::INET->new(PeerAddr=>"$server:$port");

-    skip "Cannot open connection (maybe a firewall?)",4 unless defined($sock);

-    $sock->close();

-    

-    $Client = new Net::XMPP::Client();

-

-    $Client->SetCallBacks(onconnect => \&onConnect,

-                          onauth    => \&onAuth,

-                          message   => \&onMessage,

-                         );

-

-    $Client->Execute(username=>$username,

-                     password=>$password,

-                     resource=>$resource,

-                     hostname=>$server,

-                     port=>$port,

-                     register=>1,

-                     connectsleep=>0,

-                     connectattempts=>1,

-                   );

-

-    #--------------------------------------------------------------------------

-    # If all went well, we should never get here.

-    #--------------------------------------------------------------------------

-    ok(0,"Connected") unless $connected;

-    ok(0,"Authenticated");

-    ok(0,"Subject");

-    ok(0,"Body");

-}

-

-

-###############################################################################

-#

-# onConnect - when we establish an initial connection to the server run the

-#             following

-#

-###############################################################################

-sub onConnect

-{

-    $connected = 1;

-    ok(1, "Connected");

-}

-

-

-###############################################################################

-#

-# onAuth - when we have successfully authenticated with the server send a

-#          test message to ourselves.

-#

-###############################################################################

-sub onAuth

-{

-    $Client->MessageSend(to=>$username."@".$server."/".$resource,

-                         subject=>"test",

-                         body=>"This is a test.");

-

-    ok(1, "Authenticated");

-}

-

-

-###############################################################################

-#

-# onMessage - when we get a message, check that the contents match what we sent

-#             above.

-#

-###############################################################################

-sub onMessage

-{

-    my $sid = shift;

-    my $message = shift;

-

-    is( $message->GetSubject(), "test", "Subject" );

-    is( $message->GetBody(), "This is a test.", "Body" );

-

-    $Client->Disconnect();

-

-    exit(0);

-}

-

-