blob: 347dfae7055bf52cd85b5f3dd7c6ebbdb15bc43e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
#!/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;
|
