#!/Perl5.8/bin/perl.exe
# Title = twemo
# Para = -h
# Output

use LWP::Simple;
use HTML::Entities;
use Encode;
use Date::Parse;
use Date::Format;

my $opt = shift(@ARGV);       # get options
my $screen_name = 'jscripter';# option: setup a screen_name
my $opth = 0;                 # option: add hyperlink tags
my $count = 20;               # option: a number of viewing statuses

if($opt =~ /-s([^-]+)/i){
    $screen_name = $1;
}
if($opt =~ /-h/i){
    $opth = 1;
}
if($opt =~ /-c(\d{1,3})/i){
    $count = $1;
}

my $user_statuses = get("http://twitter.com/statuses/user_timeline.xml" .
                            "?screen_name=$screen_name&count=$count");

my @statuses = (
    $user_statuses =~ /<status>.*?
                       <created_at>(.*?)<\/created_at>.*?
                       <text>(.*?)<\/text>.+?<\/status>/sgix
);

foreach (@statuses){
    if(my $time = str2time($_)){
        my @lt = localtime($time);
        my $timestr = strftime("%c %z", @lt);
        print  "${timestr}: ";
    }else{
        # -h option
        if($opth){
            $_ =~ s/(http:\/\/[^\s]+)\s*$/<a href="$1">$1<\/a>/g;
        }
	$_ = encode('cp932', decode_entities($_));
        print "$_\n";
    }
}