[xiph-cvs] cvs commit: snatch snatch.pl

[Monty]

xiphmont    01/11/11 12:50:16

  Modified:    .        snatch.pl
  Log:
  fix to running out of timer entries to trigger, but still waiting with
  negative time (cosmetic)

Revision  Changes    Path
1.26      +6 -3      snatch/snatch.pl

Index: snatch.pl
===================================================================
RCS file: /usr/local/cvsroot/snatch/snatch.pl,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -r1.25 -r1.26
--- snatch.pl	2001/11/11 20:42:50	1.25
+++ snatch.pl	2001/11/11 20:50:16	1.26
@@ -15,7 +15,7 @@
     exit 1;
 }
 
-$version="Snatch 20011110";
+$version="Snatch 20011111";
 $configdir=$HOME."/.snatch";
 $configfile=$configdir."/config.txt";
 $historyfile=$configdir."/history.txt";
@@ -28,8 +28,8 @@
 my $mode='active';
 
 # default config
-$CONFIG{'REALPLAYER'}='{realplay,~/RealPlayer8/realplay}';
-$CONFIG{'LIBSNATCH'}='{~/snatch/libsnatch.so}';
+$CONFIG{'REALPLAYER'}='{realplay,~/RealPlayer8/realplay,/usr/bin/realplay,/usr/local/bin/realplay}';
+$CONFIG{'LIBSNATCH'}='{/usr/local/lib/libsnatch.so,/usr/lib/libsnatch.so,~/snatch/libsnatch.so,~/.snatch/libsnatch.so}';
 $CONFIG{'OUTPUT_PATH'}=$HOME;
 $CONFIG{'AUDIO_DEVICE'}="/dev/dsp*";
 $CONFIG{'AUDIO_MUTE'}='no';
@@ -673,6 +673,9 @@
 sub TimerWatch{
     if($mode=~/timer/){
         my$now=time();
+
+	Robot_Inactive() if($now>$next_timer_event);
+
         my$waiting_seconds=$next_timer_event-$now;
         
         my$waiting_minutes=int($waiting_seconds/60);

--- >8 ----
List archives:  http://www.xiph.org/archives/
Ogg project homepage: http://www.xiph.org/ogg/
To unsubscribe from this list, send a message to 'cvs-request at xiph.org'
containing only the word 'unsubscribe' in the body.  No subject is needed.
Unsubscribe messages sent to the list will be ignored/filtered.