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.18 by root, Sat Jul 18 05:58:26 2009 UTC vs.
Revision 1.21 by root, Tue Dec 14 21:19:33 2010 UTC

… …
21} 21}
22 22
23SetOption OPT_RBUF, 128*1024; 23SetOption OPT_RBUF, 128*1024;
24SetOption OPT_WBUF, 1024*1024; 24SetOption OPT_WBUF, 1024*1024;
25SetOption OPT_IGNMODE, 1; 25SetOption OPT_IGNMODE, 1;
26SetOption OPT_IGNMODE, 1;
27SetOption OPT_VERBOSE, 1; 26SetOption OPT_VERBOSE, 1;
27SetOption OPT_DOTDOT, 1;
28SetOption OPT_AUTOCHECK, 0;
28 29
29# show the three ways you can set callback functions. I normally 30# show the three ways you can set callback functions. I normally
30# prefer the one with the sub inplace. 31# prefer the one with the sub inplace.
31SetFNameFilter \&namefilter; 32SetFNameFilter \&namefilter;
32 33
… …
40# the following non-trivial FileNameCallback takes care 41# the following non-trivial FileNameCallback takes care
41# of some subject lines not detected properly by uulib: 42# of some subject lines not detected properly by uulib:
42SetFileNameCallback sub { 43SetFileNameCallback sub {
43 return unless $_[1]; # skip "Re:"-plies et al. 44 return unless $_[1]; # skip "Re:"-plies et al.
44 local $_ = $_[0]; 45 local $_ = $_[0];
46
47 if ($_[1] =~ /^(img_?\d+|\d+\w?)\./) {
48 return "$1 $_[1]"
49 if /^\s*\(([^)]+)\) \[\d+/;
50 }
45 51
46 # the following rules are rather effective on some newsgroups, 52 # the following rules are rather effective on some newsgroups,
47 # like alt.binaries.games.anime, where non-mime, uuencoded data 53 # like alt.binaries.games.anime, where non-mime, uuencoded data
48 # is very common 54 # is very common
49 55
… …
74for(<uusrc/*>) { 80for(<uusrc/*>) {
75 my ($retval, $count) = LoadFile ($_, $_, 1); 81 my ($retval, $count) = LoadFile ($_, $_, 1);
76 print "file($_), status(", strerror $retval, ") parts($count)\n"; 82 print "file($_), status(", strerror $retval, ") parts($count)\n";
77} 83}
78 84
85Smerge -1;
86
79SetOption OPT_SAVEPATH, "uudst/"; 87SetOption OPT_SAVEPATH, "uudst/";
80 88
81# now wade through all files and their source parts 89# now wade through all files and their source parts
82$i = 0; 90$i = 0;
83while ($uu = GetFileListItem $i) { 91while ($uu = GetFileListItem $i) {
… …
103 111
104 print $uu->filename; 112 print $uu->filename;
105 113
106 $uu->remove_temp; 114 $uu->remove_temp;
107 115
116 print "<s", $uu->state, ">";#d#
108 if (my $err = $uu->decode) { 117 if (my $err = $uu->decode) {
109 print ", ", strerror $err, "\n"; 118 print ", ", strerror $err, "\n";
110 } else { 119 } else {
111 print ", saved as uudst/", $uu->filename, "\n"; 120 print ", saved as uudst/", $uu->filename, "\n";
112 } 121 }

Diff Legend

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