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.16 by root, Mon Oct 13 12:13:43 2008 UTC vs.
Revision 1.20 by root, Mon Aug 24 06:15:00 2009 UTC

… …
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; 26SetOption OPT_IGNMODE, 1;
27SetOption OPT_VERBOSE, 1; 27SetOption OPT_VERBOSE, 1;
28SetOption OPT_DOTDOT, 1;
29SetOption OPT_AUTOCHECK, 0;
28 30
29# show the three ways you can set callback functions. I normally 31# show the three ways you can set callback functions. I normally
30# prefer the one with the sub inplace. 32# prefer the one with the sub inplace.
31SetFNameFilter \&namefilter; 33SetFNameFilter \&namefilter;
32 34
… …
41# of some subject lines not detected properly by uulib: 43# of some subject lines not detected properly by uulib:
42SetFileNameCallback sub { 44SetFileNameCallback sub {
43 return unless $_[1]; # skip "Re:"-plies et al. 45 return unless $_[1]; # skip "Re:"-plies et al.
44 local $_ = $_[0]; 46 local $_ = $_[0];
45 47
48 if ($_[1] =~ /^(img_?\d+|\d+\w?)\./) {
49 return "$1 $_[1]"
50 if /^\s*\(([^)]+)\) \[\d+/;
51 }
52
46 # the following rules are rather effective on some newsgroups, 53 # the following rules are rather effective on some newsgroups,
47 # like alt.binaries.games.anime, where non-mime, uuencoded data 54 # like alt.binaries.games.anime, where non-mime, uuencoded data
48 # is very common 55 # is very common
56
57 # File 06 of 33 - Kendo - Final - 0001.jpg (2/3)
58 return $1 if /File \d+ of \d+ - (.*) \(\d+\/\d+\)/i;
49 59
50 # if we find some *.rar, take it as the filename 60 # if we find some *.rar, take it as the filename
51 return $1 if /(\S{3,}\.(?:[rstuvwxyz]\d\d|rar))\s/i; 61 return $1 if /(\S{3,}\.(?:[rstuvwxyz]\d\d|rar))\s/i;
52 62
53 # one common subject format 63 # one common subject format
… …
70# now read all files in the directory uusrc/* 80# now read all files in the directory uusrc/*
71for(<uusrc/*>) { 81for(<uusrc/*>) {
72 my ($retval, $count) = LoadFile ($_, $_, 1); 82 my ($retval, $count) = LoadFile ($_, $_, 1);
73 print "file($_), status(", strerror $retval, ") parts($count)\n"; 83 print "file($_), status(", strerror $retval, ") parts($count)\n";
74} 84}
85
86Smerge -1;
75 87
76SetOption OPT_SAVEPATH, "uudst/"; 88SetOption OPT_SAVEPATH, "uudst/";
77 89
78# now wade through all files and their source parts 90# now wade through all files and their source parts
79$i = 0; 91$i = 0;
… …
100 112
101 print $uu->filename; 113 print $uu->filename;
102 114
103 $uu->remove_temp; 115 $uu->remove_temp;
104 116
117 print "<s", $uu->state, ">";#d#
105 if (my $err = $uu->decode ()) { 118 if (my $err = $uu->decode) {
106 print ", ", strerror $err, "\n"; 119 print ", ", strerror $err, "\n";
107 } else { 120 } else {
108 print ", saved as uudst/", $uu->filename, "\n"; 121 print ", saved as uudst/", $uu->filename, "\n";
109 } 122 }
110} 123}

Diff Legend

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