#!/usr/bin/perl
use lib "../lib";
use Rest::Twitter;
use Data::Dumper;
my $twitter = new Rest::Twitter;
$twitter->auth("goatflayer","onetimeonly");
my $url_file = "../tmp/goat-data.txt";
my $tweet_file = "../tmp/goat-tweet.txt";

while (1)
	{
	my $which = int rand 10;
	if ($which < 6)
		{
		my $tweet = get_next_tweet($url_file);
		if ($tweet)
			{
			$twitter->tweet_post("#nsfw #tasteless " . $tweet);
			sleep 3600*(5+rand(5));
			}
		else
			{ print "\n\n\n\nNo more tweets!\n"; exit; }
		}
	else
		{
		my $tweet = get_next_tweet($tweet_file);
		if ($tweet)
			{
			$twitter->tweet_post($tweet);
			sleep 600 * (4+rand(4));
			}
		}
	}

sub coin_toss
	{
	my (@faces) = @_;
	my $face = uc $faces[ int rand scalar @faces ];
#	my $face_string = join "/", @faces;
	return $face;
	}
sub get_next_tweet
	{
	my ($file) = @_;
	open TWEETS, $file;
	my @tweets = <TWEETS>;
	close TWEETS;
	my $picked = int rand scalar @tweets;
	my $tweet = '';
	open TWEETS, ">$file";
	for (my $i = 0; $i < scalar @tweets; $i++)
		{
		if ($i == $picked)
			{
			$tweet = $tweets[$i];
			chomp $tweet;
			}
		else
			{
			print TWEETS $tweets[$i];
			}
		}
	close TWEETS;
	return $tweet;
	}
1;