Net::JabberPlagger::Plugin::Notify::Jabber へ向けての第一歩。とりあえず、Net::Jabber で接続して切断するだけのところまで動いたっぽい。 #!/usr/bin/perl use strict; use warnings; use Net::Jabber qw(Client); my $client = Net::Jabber::Client->new( debuglevel => 1, debugfile => "debug.log", ) or die "can't create Net::XMPP::Client instance."; my $ok = $client->Connect( hostname => q{jabber.org}, username => q{ziguzagu-bot}, passowrd => q{******}, ) or
