#  Small script to update twitter. (needs curl)
#  Author: Jonathan Hernandez <ion@suavizado.com>

IRC::register ("Twitter update", "0.1", "", "");
IRC::print "Loading twitter xchat script 0.1\n";
IRC::add_command_handler("twit", "twit");

sub twit {
    $username = "<Your twitter user>";
    $password = "<Your twitter password>";
    system("curl -u $username:$password -d status=\"@_\" http://twitter.com/statuses/update.xml");
    IRC::command("/me @_");
}