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.11 by root, Mon May 2 19:58:40 2005 UTC vs.
Revision 1.14 by root, Fri Oct 10 20:23:12 2008 UTC

… …
4# the resulting files to uudst/ 4# the resulting files to uudst/
5 5
6use Convert::UUlib ':all'; 6use Convert::UUlib ':all';
7 7
8sub namefilter { 8sub namefilter {
9 my($path)=@_; 9 my ($path) = @_;
10
10 $path=~s/^.*[\/\\]//; 11 $path=~s/^.*[\/\\]//;
12
11 $path; 13 $path
12} 14}
13 15
14sub busycb { 16sub busycb {
15 my ($action, $curfile, $partno, $numparts, $percent, $fsize) = @_; 17 my ($action, $curfile, $partno, $numparts, $percent, $fsize) = @_;
16 $_[0]=straction($action); 18 $_[0]=straction($action);
17 print "busy_callback(", (join ",",@_), ")\n"; 19 print "busy_callback(", (join ",",@_), ")\n";
18 0; 20 0
19} 21}
20 22
21SetOption OPT_RBUF, 128*1024; 23SetOption OPT_RBUF, 128*1024;
22SetOption OPT_WBUF, 1024*1024; 24SetOption OPT_WBUF, 1024*1024;
23SetOption OPT_IGNMODE, 1; 25SetOption OPT_IGNMODE, 1;
… …
39# of some subject lines not detected properly by uulib: 41# of some subject lines not detected properly by uulib:
40SetFileNameCallback sub { 42SetFileNameCallback sub {
41 return unless $_[1]; # skip "Re:"-plies et al. 43 return unless $_[1]; # skip "Re:"-plies et al.
42 local $_ = $_[0]; 44 local $_ = $_[0];
43 45
46 return $1 if /(\S+\s+IMG_\d+.jpg)/i;
47
44 # the following rules are rather effective on some newsgroups, 48 # the following rules are rather effective on some newsgroups,
45 # like alt.binaries.games.anime, where non-mime, uuencoded data 49 # like alt.binaries.games.anime, where non-mime, uuencoded data
46 # is very common 50 # is very common
47 51
48 # if we find some *.rar, take it as the filename 52 # if we find some *.rar, take it as the filename
… …
56 60
57 # - (xxx) No. 1 sayuri81.jpg 756565 bytes 61 # - (xxx) No. 1 sayuri81.jpg 756565 bytes
58 # - (20 files) No.17 Roseanne.jpg [2/2] 62 # - (20 files) No.17 Roseanne.jpg [2/2]
59 return $1 if /No\.[ 0-9]+ (\S+\....) (?:\d+ bytes )?\[/; 63 return $1 if /No\.[ 0-9]+ (\S+\....) (?:\d+ bytes )?\[/;
60 64
61 # try to detetc some common forms of filenames 65 # try to detect some common forms of filenames
62 return $1 if /([a-z0-9_\-+.]{3,}\.[a-z]{3,4}(?:.\d+))/i; 66 return $1 if /([a-z0-9_\-+.]{3,}\.[a-z]{3,4}(?:.\d+))/i;
63 67
64 # otherwise just pass what we have 68 # otherwise just pass what we have
65 return (); 69 ()
66}; 70};
67 71
68# now read all files in the directory uusrc/* 72# now read all files in the directory uusrc/*
69for(<uusrc/*>) { 73for(<uusrc/*>) {
70 my($retval,$count)=LoadFile ($_, $_, 1); 74 my ($retval, $count) = LoadFile ($_, $_, 1);
71 print "file($_), status(", strerror $retval, ") parts($count)\n"; 75 print "file($_), status(", strerror $retval, ") parts($count)\n";
72} 76}
73 77
74SetOption OPT_SAVEPATH, "uudst/"; 78SetOption OPT_SAVEPATH, "uudst/";
75 79
… …
94 print "$k > $v, "; 98 print "$k > $v, ";
95 } 99 }
96 print "\n"; 100 print "\n";
97 } 101 }
98 102
99 $uu->decode_temp; 103 print $uu->filename;
104 if (my $err = $uu->decode_temp) {
105 print " ", strerror $err, "\n";
106 } else {
100 print " temporarily decoded to ", $uu->binfile, "\n"; 107 print " temporarily decoded to ", $uu->binfile;
101 $uu->remove_temp; 108 $uu->remove_temp;
102 109
103 print strerror $uu->decode; 110 if (my $err = $uu->decode ()) {
111 print ", ", strerror $err, "\n";
112 } else {
104 print " saved as uudst/", $uu->filename, "\n"; 113 print ", saved as uudst/", $uu->filename, "\n";
114 }
115 }
105} 116}
106 117
107print "cleanup...\n"; 118print "cleanup...\n";
108 119
109CleanUp(); 120CleanUp();

Diff Legend

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