source: trollforge/mao/xmpp-ruin/jid-ruin.pl @ 548 Tweet

#!/usr/bin/perl
use strict;
use utf8;
use AnyEvent;
use AnyEvent::XMPP qw/xep-86/;
use AnyEvent::XMPP::Client;

die "usage: $0 <target jid>" unless $ARGV[0];

my $target = $ARGV[0];
my $j = AnyEvent->condvar;

open(ACCS, "<", "accounts.txt");
my @accounts = <ACCS>;
close(ACCS);
use Data::Dumper;

foreach my $account(@accounts) {
  chomp $account;
  #print $account;
  my ($user, $pw) = split ":" => $account;
  ruin($user, $pw);
}

sub ruin {
  my $user = shift;
  my $pw = shift;
  my $cl = AnyEvent::XMPP::Client->new (debug => 0);
  
  $cl->add_account ($user, $pw);

  $cl->set_presence ('away', 'FUCK YOU', 1);

  $cl->reg_cb (
               session_ready => sub {
                 print "Connected!\n";
                 #print Dumper($_[0]);
                 $cl->send_message ("LOL" => $target, $cl->get_account($user), 'normal');
                 $cl->send_message ("LOL" => $target, $cl->get_account($user), 'error');
                 $cl->send_message ("LOL" => $target, $cl->get_account($user), 'headline');
                 0
               },
               roster_update => sub {
                 my ($cl, $acc, $roster, $contacts) = @_;
                 #$roster->debug_dump;
                 #print "OEOFWEFIEJWFEWO\n" if not $roster->is_retrieved;
                 1
               },
               presence_update => sub {
                 my ($cl, $acc, $roster, $contact, $old, $new) = @_;
                 #$roster->debug_dump;
                 1
               },
               error => sub {
                 my ($cl, $acc, $error) = @_;
                 print "ERROR: ".$error->string."\n";
               },
               disconnect => sub { warn "DISCON[@_]\n"; 1 },
              );

#$cl->reg_cb (contact_request_subscribe => sub {
#   my ($cl, $acc, $roster, $contact) = @_;
#   $contact->send_subscribe;
#   0
#});

#$cl->reg_cb (contact_did_unsubscribe => sub {
#   my ($cl, $acc, $roster, $contact, $rdoit) = @_;
#   1
#});

#$cl->reg_cb (roster_update => sub {
#   my ($cl, $acc, $roster, $contacts) = @_;
#   $roster->debug_dump;
#   0
#});

  $cl->start;
}

#my $timer = 
#      $cl->send_message ("Hello!" => 'd@jabbim.com');

$j->wait;