thx :)#!/usr/bin/perl use warnings; use strict; use Tk; use diagnostics; use Net::Jabber; my $con = new Net::Jabber::Client(); $con->SetCallBacks("message" => \&InMessage, "presence" => \&InPresence, "iq" => \&InIQ ); my $lol = $con->Connect(hostname => 'chrome.pl'); my $hm = $con->AuthSend(username=>'login', password=>'password', resource=>'w3b'); print $hm;
In reply to Jabber - temporary-auth-failure by w3b
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |