#!/usr/bin/perl
use Net::Twitter;
require "weblib.lib";
if($ENV{GATEWAY_INTERFACE}){
	&ReadParse;
	&htmlopen("TRitter|");
	print <<EOF;
<form action="$weblib::URL" method="POST">
<input type="radio" name="TYPE" value="" checked>Generic<br />
<input type="radio" name="TYPE" value="[Sighting] ">Sighting<br />
<input type="radio" name="TYPE" value="[Press Release] ">Press Release<br />
<input type="radio" name="TYPE" value="[Gallery] ">Gallery<br />
<input type="radio" name="TYPE" value="[Radio] ">Radio<br />
<input type="radio" name="TYPE" value="[ToddCast] ">ToddCast<br />
<input type="radio" name="TYPE" value="[Toddstock] ">Toddstock<br />
<input type="radio" name="TYPE" value="[Tour Date] ">Tour Date<br />
<input type="radio" name="TYPE" value="[Site Update] ">Site Update<br />
<input type="radio" name="TYPE" value="[Rumor] ">Rumor<br />
<input type="radio" name="TYPE" value="[Debunked] ">Debunked<br />
<input type="radio" name="TYPE" value="[Factoid] ">Factoid<br />
<input type="radio" name="TYPE" value="D ">Direct Message<br />
<input size="80" name="STATUS" />
<input type="submit" value="TRit It!" />
</form>
<a href="http://twitter.com/TRConnection"><img
	src="http://s3.amazonaws.com/twitter_production/profile_images/53260152/trc_normal.png" border=0 /></a>
EOF
}
my $twit=Net::Twitter->new(username=>"rdlinder", password=>"iawazy");
dumpResult($twit->update("$in{TYPE}$in{STATUS}")) if $in{STATUS};
#dumpResult($result=$twit->public_timeline());
#dumpResult($result=$twit->user_timeline({id=>'trconnection',count=>1}));
dumpResult($result=$twit->replies());
#dumpResult($result=$twit->show_status(796060542-600000000));
#dumpResult($result=$twit->featured());
print "<h2>Followers</h2>\n" if $ENV{GATEWAY_INTERFACE};
dumpResult($result=$twit->followers());
#dumpResult($twit->following_timeline({id=>'rdlinder'}));
if($ENV{GATEWAY_INTERFACE}){
	&htmlclose;
}
sub dumpResult{
	local($result)=shift;
	local($tl)=-1;
	local($item);
	print $twit->http_code(),": ",$twit->http_message(),"\n";
	if(ref($result) eq "ARRAY"){print $#$result+1," items\n";}
	if($ENV{GATEWAY_INTERFACE}){print "<pre>\n";}
	if(ref($result) eq "HASH"){printHASH($result);}
	else{
		foreach $item(@$result){
			printHASH($item);
		}
	}
	if($ENV{GATEWAY_INTERFACE}){print "</pre>\n";}
}
sub printHASH{
	local($result)=shift;
	local($key,$ref);
	$tl++;
	if($ENV{GATEWAY_INTERFACE} && exists $result->{profile_image_url}){
		print qq{<a href="http://twitter.com/$result->{screen_name}"><img src="$result->{profile_image_url}" align="left" /></a>\n};
	}
	foreach $key(keys %$result){
		if(ref($ref=$result->{$key}) eq "HASH"){print "\t"x$tl,"$key:\n";printHASH($ref);}
		else{
			#if($key eq "profile_image_url"){print qq{<img src="$result->{$key}" align="left" />\n};}
			print "\t"x$tl,"$key: $result->{$key}\n";}
	}
	print "\t"x$tl,"="x80,"\n";
	$tl--;
}