ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/Convert-UUlib/example-decoder
(Generate patch)

Comparing Convert-UUlib/example-decoder (file contents):
Revision 1.5 by root, Fri Apr 5 21:56:57 2002 UTC vs.
Revision 1.6 by root, Mon Aug 19 23:25:34 2002 UTC

… …
18 0; 18 0;
19} 19}
20 20
21SetOption (OPT_IGNMODE, 1); 21SetOption (OPT_IGNMODE, 1);
22SetOption (OPT_VERBOSE, 1); 22SetOption (OPT_VERBOSE, 1);
23#SetOption (OPT_DOTDOT, 1);
23 24
24# show the three ways you can set callback functions 25# show the three ways you can set callback functions
25SetFNameFilter (\&namefilter); 26SetFNameFilter (\&namefilter);
26 27
27SetBusyCallback ("busycb",333); 28SetBusyCallback ("busycb",333);
… …
42 # if we find some *.rar, take it 43 # if we find some *.rar, take it
43 return $1 if /(\S+\.(?:[rstuvwxyz]\d\d|rar))\s/i; 44 return $1 if /(\S+\.(?:[rstuvwxyz]\d\d|rar))\s/i;
44 45
45 # - filename.par (04/55) 46 # - filename.par (04/55)
46 return $1 if /- "?(\S+\.\S+?)"? (:yenc )?\(\d+\/\d+\)/i; 47 return $1 if /- "?(\S+\.\S+?)"? (:yenc )?\(\d+\/\d+\)/i;
48
49 return $1 if /No\.[ 0-9]+ (\S+\....) (?:\d+ bytes )?\[/;
47 50
48 # otherwise just pass what we have 51 # otherwise just pass what we have
49 return (); 52 return ();
50}; 53};
51 54
… …
77 print "$k > $v, "; 80 print "$k > $v, ";
78 } 81 }
79 print "\n"; 82 print "\n";
80 } 83 }
81 84
85 if ($uu->state & FILE_OK) {
82 print strerror($uu->decode_temp)."\n"; 86 print strerror($uu->decode_temp)."\n";
83 print " temporarily decoded to ",$uu->binfile,"\n"; 87 print " temporarily decoded to ",$uu->binfile,"\n";
84 $uu->remove_temp; 88 $uu->remove_temp;
85 89
86 print strerror($uu->decode)."\n"; 90 print strerror($uu->decode)."\n";
87 print " saved as uudst/",$uu->filename,"\n"; 91 print " saved as uudst/",$uu->filename,"\n";
92 } else {
93 print "file NOT ok, not decoding\n";
94 }
88} 95}
89 96
90print "cleanup...\n"; 97print "cleanup...\n";
91 98
92CleanUp(); 99CleanUp();

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines