#!/usr/bin/perl
use Net::Twitter;
require "weblib.lib";
if($ENV{GATEWAY_INTERFACE}){
	&ReadParse;
	&htmlopen("TRitter|");
	$auth=getcookie("TRitter");
	if(!$auth){print "Sorry, you're not allowed to post";&htmlclose;exit}
	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="[Video] ">Video<br />
<input type="radio" name="TYPE" value="[Review] ">Review<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>
<div style="position: absolute; right: 0px; top:0px;">
<a href="http://twitter.com/TRConnection"><img
	src="https://pbs.twimg.com/profile_images/53260152/trc_400x400.png" border=0></a>
</div>
EOF
}
#my $twit=Net::Twitter->new(username=>"trconnection", password=>"utopia13");
my $twit=Net::Twitter->new(
	traits              => [qw/API::RESTv1_1/],
	consumer_key        => "Mgw1wE59xGVWXvU9knfZw",
	consumer_secret     => "VN05laqDDfpYrDHJjcFFAqFREYwjeqLAi7h4s1ug8",
	access_token        => "14513708-7qEu2aQCA9AlYjBeeptmvSqkI7RA6UrH4vmk3VD3A",
	access_token_secret => "qlcisG4lWxa2DWyYoj8LZO4Ax4e1ajId69qnAse46Nw"
);
dumpResult($twit->update("$in{TYPE}$in{STATUS}")) if $in{STATUS};
if(0){
#dumpResult($result=$twit->user_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--;
}