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

[Monty]

xiphmont    01/11/08 20:55:44

  Modified:    .        snatch.pl
  Log:
  fix the (^*&(&* URL==11 bug.

Revision  Changes    Path
1.11      +5 -7      snatch/snatch.pl

Index: snatch.pl
===================================================================
RCS file: /usr/local/cvsroot/snatch/snatch.pl,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -r1.10 -r1.11
--- snatch.pl	2001/11/09 04:45:38	1.10
+++ snatch.pl	2001/11/09 04:55:44	1.11
@@ -667,7 +667,7 @@
 
 sub LengthParse{
     my($line)=@_;
-    $line=~/(\d+):(.+)/;
+    $line=~/(\d+):(.*)/;
     $length=$1;
     $rest=$2;
 
@@ -1308,9 +1308,13 @@
 sub Timer_Entry{
     my$row=shift;
 
+    print "$_[0]\n";
+
     my($year,$month,$day,$dayofweek,$hour,$minute,$duration,$audio,$video,$username,
        $password,$outfile,$url)=SplitTimerEntry(shift);
 
+    print "$url\n";
+
     my($nowsec,$nowmin,$nowhour,$nowday,$nowmonth,$nowyear)=localtime time;    
     $nowmonth++;
     $nowyear+=1900;
@@ -1503,8 +1507,6 @@
     $y+=$tentry_passwordlabel->reqheight()+5;
 
 
-    print "$audio $video\n";
-
     my$tentry_silent=$tentry_shell->Label(-text=>"silent record:")->place(-y=>$y,-x=>5);
     my$tentry_audio=$tentry_shell->Button(-text=>"audio")->
         place(-in=>$tentry_silent,-relx=>1.0,-x=>5,-relheight=>1.0,-bordermode=>outside);
@@ -1513,13 +1515,9 @@
         place(-in=>$tentry_audio,-relx=>1.0,-x=>5,-relheight=>1.0,-bordermode=>outside);
     $tentry_video->configure(-command=>[main::nonmomentary,\$tentry_video,\$video]);
     #laziness
-    print "$audio $video\n";
     nonmomentary(\$tentry_audio,\$audio);
-    print "$audio $video\n";
     nonmomentary(\$tentry_audio,\$audio);
-    print "$audio $video\n";
     nonmomentary(\$tentry_video,\$video);
-    print "$audio $video\n";
     nonmomentary(\$tentry_video,\$video);
 
     $tentry->minsize($reqwidth,$reqheight);

--- >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.