Perl | #! /usr/bin/perl use stric - NiggerGrinder - f7eb56d4e

#! /usr/bin/perl

use strict;
use XML::Simple;
use LWP::UserAgent;
use DBI;

# CONFIGURE THE BOT

my $twitter_username = "";
my $twitter_password = "";

my $database_host = "";
my $database_username = "";
my $database_password = "";
my $database_name = "";

my $search_word = "%23gorillapenis";

# CONFIGURATION ENDS HERE

# prepare MySQL
my $DSN = "dbi:mysql:database=$database_name;host=$database_host;user=$database_username;password=$database_password";

my @write = ();

# search Twitter
my @records = searchTwitter();
if (scalar(@records) <= 0) {
        die "No new tweets to post.\n";
        exit;
}

# post new tweets
my $i = 0;
foreach my $item (@records) {
        my $statusid = $item->{statusid};
        my $text =     $item->{text};
        my $username = $item->{username};
        my $handle   = $item->{handle};

        $text =~ s/'/''/g;

        my $tweet = "RT \@".$handle.": ".$text;
                $tweet =~ s/([^A-Za-z0-9])/sprintf("%%%02X", ord($1))/seg;

                my $ua = new LWP::UserAgent;
                my $req = new HTTP::Request POST => 'http://twitter.com/statuses/update.xml';
                $req->authorization_basic($twitter_username, $twitter_password);
                $req->content("status=$tweet");

                my $res = $ua->request($req);

                if ($res->is_success) {
                  print $res->content;
            }
                else {
                print "ERROR POSTING TO TWITTER: " . $res->status_line, "\n";
                        exit;
                }

        push (@write, $statusid);
        sleep 59;
}

# update database
if($write[0] != '0') {
my $dbh = DBI->connect($DSN);

        my $checkid = "insert into tabela values ('', '".$write[0]."')";
        my $sth_check = $dbh->prepare($checkid);
        my $rv = $sth_check->execute;
}

exit;

sub searchTwitter() {


  my $dbh = DBI->connect($DSN);

        my $checkid = "select twitter from tabela order by id desc limit 1";
        my $sth_check = $dbh->prepare($checkid);
        my $rv = $sth_check->execute;

        my $tweetid = $sth_check->fetchrow();

        my @res = ();

        my $ua = new LWP::UserAgent;
        my $req = new HTTP::Request GET => "http://search.twitter.com/search.atom?q=$search_word&rpp=100&since_id=$tweetid";
        my $content = $ua->request($req)->content() or die "Error searching Twitter";

        my $xml = new XML::Simple (KeyAttr=>[]);

        my $data = $xml->XMLin($content);

        foreach my $item (@{$data->{entry}}) {
                my $rec = {};

                if ($item->{title}) {
                        $item->{author}{name} =~ /\s*(\S+)\s+\(/;
        my $handle = $1;
                        my $id = (split ':',$item->{id})[2];

                        print "Search id: $id username: $handle\n";
                        $rec->{'statusid'} = $id;
                        $rec->{'text'} =     $item->{title};
                        $rec->{'handle'}   = $handle;
                        if($handle ne $twitter_username) { push (@res, $rec); }
                }
        }

        return @res;
}