r636 - Warn when we can't fork

[twirssi-net-twitter-lite.git] / twirssi.pl

diff --git a/twirssi.pl b/twirssi.pl
index 0d2a1b2819711e4ef7fcf5659fffc6aa4afedb8e..4ba6417450d25ba46f4de1ef035e09e0f9f4a093 100644 (file)
--- a/twirssi.pl
+++ b/twirssi.pl
@@ -11,7 +11,7 @@ $Data::Dumper::Indent = 1;
 use vars qw($VERSION %IRSSI);
 
 $VERSION = "2.2.3beta";
 use vars qw($VERSION %IRSSI);
 
 $VERSION = "2.2.3beta";

-my ($REV) = '$Rev: 616 $' =~ /(\d+)/;
+my ($REV) = '$Rev: 636 $' =~ /(\d+)/;

 %IRSSI = (
     authors     => 'Dan Boger',
     contact     => 'zigdon@gmail.com',
 %IRSSI = (
     authors     => 'Dan Boger',
     contact     => 'zigdon@gmail.com',


@@ -20,7 +20,7 @@ my ($REV) = '$Rev: 616 $' =~ /(\d+)/;
       . 'Can optionally set your bitlbee /away message to same',
     license => 'GNU GPL v2',
     url     => 'http://twirssi.com',
       . 'Can optionally set your bitlbee /away message to same',
     license => 'GNU GPL v2',
     url     => 'http://twirssi.com',

-    changed => '$Date: 2009-04-21 12:20:40 -0700 (Tue, 21 Apr 2009) $',
+    changed => '$Date: 2009-05-13 15:34:34 -0700 (Wed, 13 May 2009) $',

 );
 
 my $window;
 );
 
 my $window;


@@ -30,12 +30,14 @@ my $user;
 my $defservice;
 my $poll;
 my $last_poll;
 my $defservice;
 my $poll;
 my $last_poll;

-my $last_friends_poll = time;
+my $last_friends_poll = 0;

 my %nicks;
 my %friends;
 my %tweet_cache;
 my %id_map;
 my %nicks;
 my %friends;
 my %tweet_cache;
 my %id_map;

-my $failwhale            = 0;
+my $failwhale  = 0;
+my $first_call = 1;
+

 my %irssi_to_mirc_colors = (
     '%k' => '01',
     '%r' => '05',
 my %irssi_to_mirc_colors = (
     '%k' => '01',
     '%r' => '05',


@@ -771,10 +773,12 @@ sub get_updates {
             $error++ unless &do_updates( $fh, $_, $twits{$_}, \%context_cache );
         }
 
             $error++ unless &do_updates( $fh, $_, $twits{$_}, \%context_cache );
         }
 

+        print $fh "__friends__\n";

         if (
             time - $last_friends_poll >
             Irssi::settings_get_int('twitter_friends_poll') )
         {
         if (
             time - $last_friends_poll >
             Irssi::settings_get_int('twitter_friends_poll') )
         {

+            print $fh "__updated ", time, "\n";

             my ( $added, $removed ) = &load_friends($fh);
             if ( $added + $removed ) {
                 print $fh "type:debug %R***%n Friends list updated: ",
             my ( $added, $removed ) = &load_friends($fh);
             if ( $added + $removed ) {
                 print $fh "type:debug %R***%n Friends list updated: ",


@@ -783,11 +787,8 @@ sub get_updates {
                     sprintf( "%d removed", $removed ) ),
                   "\n";
             }
                     sprintf( "%d removed", $removed ) ),
                   "\n";
             }

-
-            $last_friends_poll = time;

         }
 
         }
 

-        print $fh "__friends__\n";

         foreach ( sort keys %friends ) {
             print $fh "$_ $friends{$_}\n";
         }
         foreach ( sort keys %friends ) {
             print $fh "$_ $friends{$_}\n";
         }


@@ -800,6 +801,8 @@ sub get_updates {
         }
         close $fh;
         exit;
         }
         close $fh;
         exit;

+    } else {
+        &ccrap("Failed to fork for updating: $!");

     }
     print scalar localtime, " - get_updates ends" if &debug;
 }
     }
     print scalar localtime, " - get_updates ends" if &debug;
 }


@@ -1015,15 +1018,17 @@ sub monitor_child {
 
     # first time we run we don't want to print out *everything*, so we just
     # pretend
 
     # first time we run we don't want to print out *everything*, so we just
     # pretend

-    my $suppress = 0;
-    $suppress = 1 unless keys %tweet_cache;

 
     if ( open FILE, $filename ) {
         my @lines;
         my %new_cache;
         while (<FILE>) {
 
     if ( open FILE, $filename ) {
         my @lines;
         my %new_cache;
         while (<FILE>) {

-            chomp;

             last if /^__friends__/;
             last if /^__friends__/;

+            unless (/\n$/) {    # skip partial lines
+                                # print "Skipping partial line: $_" if &debug;
+                next;
+            }
+            chomp;

             my $hilight = 0;
             my %meta;
 
             my $hilight = 0;
             my %meta;
 


@@ -1074,8 +1079,7 @@ sub monitor_child {
 
             my $hilight_color =
               $irssi_to_mirc_colors{ Irssi::settings_get_str("hilight_color") };
 
             my $hilight_color =
               $irssi_to_mirc_colors{ Irssi::settings_get_str("hilight_color") };

-            my $nick =
-              '@' . substr( $meta{account}, 0, index( $meta{account}, "@" ) );
+            my $nick = "\@$meta{account}";

             if ( $_ =~ /\Q$nick\E(?:\W|$)/i
                 and Irssi::settings_get_bool("twirssi_hilights") )
             {
             if ( $_ =~ /\Q$nick\E(?:\W|$)/i
                 and Irssi::settings_get_bool("twirssi_hilights") )
             {


@@ -1113,8 +1117,9 @@ sub monitor_child {
             } elsif ( $meta{type} eq 'searchid' ) {
                 print "Search '$meta{topic}' returned id $meta{id}" if &debug;
                 if (
             } elsif ( $meta{type} eq 'searchid' ) {
                 print "Search '$meta{topic}' returned id $meta{id}" if &debug;
                 if (

+                    not

                     exists $id_map{__searches}{ $meta{account} }{ $meta{topic} }
                     exists $id_map{__searches}{ $meta{account} }{ $meta{topic} }

-                    and $meta{id} >=
+                    or $meta{id} >=

                     $id_map{__searches}{ $meta{account} }{ $meta{topic} } )
                 {
                     $id_map{__searches}{ $meta{account} }{ $meta{topic} } =
                     $id_map{__searches}{ $meta{account} }{ $meta{topic} } )
                 {
                     $id_map{__searches}{ $meta{account} }{ $meta{topic} } =


@@ -1138,6 +1143,12 @@ sub monitor_child {
 
         %friends = ();
         while (<FILE>) {
 
         %friends = ();
         while (<FILE>) {

+            if (/^__updated (\d+)$/) {
+                $last_friends_poll = $1;
+                print "Friend list updated" if &debug;
+                next;
+            }
+

             if (/^-- (\d+)$/) {
                 ($new_last_poll) = ($1);
                 last;
             if (/^-- (\d+)$/) {
                 ($new_last_poll) = ($1);
                 last;


@@ -1149,7 +1160,7 @@ sub monitor_child {
         if ($new_last_poll) {
             print "new last_poll    = $new_last_poll" if &debug;
             print "new last_poll_id = ", Dumper( $id_map{__last_id} ) if &debug;
         if ($new_last_poll) {
             print "new last_poll    = $new_last_poll" if &debug;
             print "new last_poll_id = ", Dumper( $id_map{__last_id} ) if &debug;

-            if ($suppress) {
+            if ($first_call) {

                 print "First call, not printing updates" if &debug;
             } else {
                 foreach my $line (@lines) {
                 print "First call, not printing updates" if &debug;
             } else {
                 foreach my $line (@lines) {


@@ -1189,7 +1200,8 @@ sub monitor_child {
                     &ccrap("Failed to write replies to $file: $!");
                 }
             }
                     &ccrap("Failed to write replies to $file: $!");
                 }
             }

-            $failwhale = 0;
+            $failwhale  = 0;
+            $first_call = 0;

             return;
         }
     }
             return;
         }
     }