#!/usr/bin/perl

# twitter.pl - query Twitter and output results

# Eric Lease Morgan <eric_morgan@infomotions.com>
# December  8, 2010 - first hack; boy, net::twitter::lite requires a lot!
# February 13, 2010 - added username/password and no longer rate limited, mostly


# configure
use constant USERNAME => '-------';
use constant PASSWORD => '-------';
use constant QUERY    => '#c4l11';

# require
use strict;
use Net::Twitter::Lite;

# initialize
my $nt = Net::Twitter::Lite->new( username => USERNAME, password => PASSWORD );
my $page = 1;

# search & retreive
while ( my $r = $nt->search( QUERY, { page => $page } )) {
	
    # process results
    for my $status ( @{$r->{ results }} ) {
    
        # date
        my $date = $status->{ 'created_at' };
        
		# tweet id
		my $tweet_id = $status->{ 'id_str' };
		
		# author id
		my $author_id = $status->{ 'from_user_id_str' };
		
		# munge tweets
        my $tweet = $status->{text};
        $tweet =~ s/\r+/ /g;
        $tweet =~ s/\n+/ /g;
        while ( $tweet =~ /  / ) { $tweet =~ s/  / /g }
        #$tweet =~ s/#c4l11//g;
        #$tweet =~ s/RT//g;
        $tweet = lc( $tweet );
        
        # output
        print "$tweet_id\t$date\t$author_id\t$tweet\n";
        
    }
    
   # increment
   $page++;

}

# done
exit;