Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- use strict;
- use Net::XMPP;
- use Data::Dumper;
- my $con = Net::XMPP::Client->new( debuglevel=>1,);
- my $host = '<host name here>';
- my $user = '<my username>';
- my $pass = '<my password>';
- my $status = $con->Connect(
- hostname => $host,
- connectiontype => 'tcpip',
- tls => 1
- );
- my @result = $con->AuthSend(
- hostname => $host,
- username => $user,
- password => $pass,
- );
- print Dumper @result;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement