Changeset 1233

Timestamp:

11/08/07 15:05:16 (6 years ago)

Author:

tomyhero

Message:

lang/perl/Net-Twitter-FriendFinder?: support filter and sleep

Location:

lang/perl/Net-Twitter-FriendFinder/trunk

Files:

• Changes (modified) (1 diff)
• lib/Net/Twitter/FriendFinder.pm (modified) (7 diffs)

lang/perl/Net-Twitter-FriendFinder/trunk/Changes

@@ -1 +1 @@
 Revision history for Net-Twitter-FriendFinder
 
+0.01_03    2007-11-08/15:04
+           - filter_already_followers support. it can be reduced API request.
+             for this fix you must set username and passowrd at new() parameters
+           - support sleep setting. 
 0.01_02    2007-11-08/00:21
            - Bug Fix: can not load custom resource module.

lang/perl/Net-Twitter-FriendFinder/trunk/lib/Net/Twitter/FriendFinder.pm

@@ -5 +5 @@
 use UNIVERSAL::require;
 use base qw/Class::Accessor::Fast/;
-__PACKAGE__->mk_accessors(qw/default from setting ids scores resources/);
+__PACKAGE__->mk_accessors(qw/default from setting ids scores resources filters)/);
 use Text::SimpleTable;
 use Net::Twitter;
 
-our $VERSION = '0.01_02';
+our $VERSION = '0.01_03';
+
+# Net::Twitter HACK. I know this is not good way to do this.
+# REASON: Net::Twitter->following only allow to retrive 100 limit.
+sub Net::Twitter::following_screen_names {
+    my ( $self ) = @_;
+
+    my @screen_names = ();
+    # limit 20 pages for now.( 2000 twitters )
+    my @pages = (1..20);
+    for my $page ( @pages ) {
+        my $url = $self->{apiurl} . "/statuses/friends.json?page=$page" ;
+        my $req = $self->{ua}->get($url);
+        my $res = JSON::Any->jsonToObj($req->content) ;
+
+        last unless scalar @{ $res } ;
+
+        for my $item ( @{ $res } ) {
+            push @screen_names , $item->{screen_name};
+        }
+    }
+
+    return \@screen_names;
+    
+}
 
 sub search {
@@ -39 +63 @@
     }
 
+    if( $self->{setting}{filter_already_followers} ) {
+        my $twitter = Net::Twitter->new( username=> $self->{setting}{username} , password => $self->{setting}{password} );
+        my $screen_names = $twitter->following_screen_names();
+        my @filters = ();
+
+        for my $screen_name ( @{ $screen_names } ) {
+            if( defined $data->{ $screen_name } ) {
+                push @filters , { id => $screen_name , score =>  $data->{ $screen_name } };
+                delete $data->{ $screen_name };
+            }
+        }
+        $self->{filters} = \@filters;
+
+    }
+
     my @ids = sort { $data->{ $a } <=> $data->{ $b } } keys %{ $data };
 
@@ -82 +121 @@
     print $t3->draw;
 
+    if( scalar @{ $self->{filters} } ) {
+        my $t4 = Text::SimpleTable->new( 44 );
+        $t4->row( 'Filter Users' );
+        print $t4->draw;
+
+        my $t5= Text::SimpleTable->new( 3, 20, 15 );
+        my $cnt = 1;
+        for my $filter ( @{ $self->{filters} } ) {
+            $t5->row( $cnt , $filter->{id} , $filter->{score} );
+            $cnt++;
+        }
+        print $t5->draw;
+    }
 
 }
 
 sub follow {
+use Data::Dumper;
     my $self = shift;
-    my $username = shift;
-    my $password= shift;
-    my $twit = Net::Twitter->new( username=>$username ,password=> $password);
+    my $twit = Net::Twitter->new( username=>$self->{setting}{username} ,password=> $self->{setting}{password});
     foreach my $id (  @{ $self->{ids} } ) {
         my $result = $twit->follow( $id );
-        print "follow $id \n" if $self->{setting}{on_echo};
+        sleep( $self->{setting}{sleep} ) if  defined $self->{setting}{sleep};
+
+        my $res = defined $result ? 'ok' : 'fail';
+        print "follow $id [$res]\n" if $self->{setting}{on_echo};
     }
 }
@@ -120 +174 @@
             limit => 20,
             on_echo=> 1,
+            username => '****',
+            password => '****',
+            filter_already_followers => 1,
+            sleep => 60,
         },
         default => { 
@@ -133 +191 @@
     $tf->search( $keyword );
     $tf->show();
-    $tf->follow({ username => '****' , password=> '******' });
+    $tf->follow();
 
 =head1 MODULE
@@ -147 +205 @@
 
 on_echo - when on_echo = 1 then , $tf->follow() method print out who you are going to follow.
+
+username - twitter username
+
+password - twitter password
+
+sleep - since Twitter API has request count limitation, you may want to set sleep time when you try to follow a lot of people.
+
+filter_already_followers - when true, it will check your current followers and not try to follow again. required username and password for this. NOTICE: you may miss some friends to filter who add recently because Twitter API does not return them.
 
 ** default
@@ -182 +248 @@
 follow people you find. I recommend that before calling this module , you
 should check who you are going t follow with show() method.
-
-you must set your twitter username and passsword .
-
- $tf->follow( { username => '*****' , password => '*****' });
 
  =head1 HOW TO MAKE YOUR OWN RESOURCE