SHARE
TWEET

Untitled

a guest Dec 29th, 2016 74 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/perl
  2.  
  3. use strict;
  4. use Net::XMPP;
  5. use Data::Dumper;
  6.  
  7. my $con = Net::XMPP::Client->new( debuglevel=>1,);
  8. my $host = '<host name here>';
  9. my $user = '<my username>';
  10. my $pass = '<my password>';
  11.  
  12. my $status = $con->Connect(
  13.     hostname =>  $host,
  14.     connectiontype => 'tcpip',
  15.     tls => 1
  16. );
  17.  
  18. my @result = $con->AuthSend(
  19.     hostname =>  $host,
  20.     username =>  $user,
  21.     password =>  $pass,
  22. );
  23.  
  24. print Dumper @result;
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top