#!/usr/local/bin/perl
# twitter.com seems to have https solution, try and make ssl work to protect passwords

use LWP::UserAgent;
use HTTP::Cookies;
( $username, $password, $msg ) = @ARGV;
$tpost = "https://twitter.com/statuses/update.json";
$user_agent = new LWP::UserAgent();
if ( ! ref $user_agent ) {
    print "Failed to create UA.  Terminating.\n\n";
    exit;
}
$user_agent -> timeout( 10 );
$user_agent -> credentials( "www.twitter.com:443", "Twitter API", 
			    $username, $password );
$user_agent -> credentials( "twitter.com:443", "Twitter API", 
			    $username, $password );
$user_agent -> cookie_jar( new HTTP::Cookies( file => "/home/gershman/crap_cookies", autosave => 1 ) );
$result = $user_agent -> post( $tpost, { status => "$msg" } );
print "Result: " . $result -> status_line . "\n";