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.2 by root, Tue Jun 12 03:20:44 2001 UTC vs.
Revision 1.9 by root, Tue Dec 28 14:09:19 2004 UTC

… …
10 $path=~s/^.*[\/\\]//; 10 $path=~s/^.*[\/\\]//;
11 $path; 11 $path;
12} 12}
13 13
14sub busycb { 14sub busycb {
15 my($action,$curfile,$partno,$numparts,$percent,$fsize)=@_; 15 my ($action, $curfile, $partno, $numparts, $percent, $fsize) = @_;
16 $_[0]=straction($action); 16 $_[0]=straction($action);
17 print "busy_callback(",join(",",@_),")\n"; 17 print "busy_callback(", (join ",",@_), ")\n";
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 23
24# show the three ways you can set callback functions 24# show the three ways you can set callback functions. I normally
25# prefer the one with the sub inplace.
25SetFNameFilter (\&namefilter); 26SetFNameFilter \&namefilter;
26 27
27SetBusyCallback ("busycb",333); 28SetBusyCallback "busycb", 333;
28 29
29SetMsgCallback (sub { 30SetMsgCallback sub {
30 my($msg,$level)=@_; 31 my ($msg, $level) = @_;
31 print uc(strmsglevel($_[1])),": $msg\n"; 32 print uc strmsglevel $_[1], ": $msg\n";
32}); 33};
33 34
35# the following non-trivial FileNameCallback takes care
36# of some subject lines not detected properly by uulib:
37SetFileNameCallback sub {
38 return unless $_[1]; # skip "Re:"-plies et al.
39 local $_ = $_[0];
40
41 # the following rules are rather effective on some newsgroups,
42 # like alt.binaries.games.anime, where non-mime, uuencoded data
43 # is very common
44
45 return $1 if /([a-z0-9_]{3,}\.[a-z]{3,4}(?:.\d+))/i;
46
47 # if we find some *.rar, take it as the filename
48 return $1 if /(\S{3,}\.(?:[rstuvwxyz]\d\d|rar))\s/i;
49
50 # one common subject format
51 return $1 if /- "(.{2,}?\..+?)" (?:yenc )?\(\d+\/\d+\)/i;
52
53 # - filename.par (04/55)
54 return $1 if /- "?(\S{3,}\.\S+?)"? (?:yenc )?\(\d+\/\d+\)/i;
55
56 # - (xxx) No. 1 sayuri81.jpg 756565 bytes
57 # - (20 files) No.17 Roseanne.jpg [2/2]
58 return $1 if /No\.[ 0-9]+ (\S+\....) (?:\d+ bytes )?\[/;
59
60 # otherwise just pass what we have
61 return ();
62};
63
64# now read all files in the directory uusrc/*
34for(<uusrc/*>) { 65for(<uusrc/*>) {
35 my($retval,$count)=LoadFile ($_,$_,1); 66 my($retval,$count)=LoadFile ($_, $_, 1);
36 print "file($_), status(",strerror($retval),") parts($count)\n"; 67 print "file($_), status(", strerror $retval, ") parts($count)\n";
37} 68}
38 69
39SetOption (OPT_SAVEPATH, "uudst/"); 70SetOption OPT_SAVEPATH, "uudst/";
40 71
72# now wade through all files and their source parts
41$i=0; 73$i = 0;
42while($uu=GetFileListItem($i)) { 74while ($uu = GetFileListItem $i) {
43 $i++; 75 $i++;
44 print "file nr. $i"; 76 print "file nr. $i";
45 print " state ",$uu->state; 77 print " state ", $uu->state;
46 print " mode ",$uu->mode; 78 print " mode ", $uu->mode;
47 print " uudet ",strencoding($uu->uudet); 79 print " uudet ", strencoding $uu->uudet;
48 print " size ",$uu->size; 80 print " size ", $uu->size;
49 print " filename ",$uu->filename; 81 print " filename ", $uu->filename;
50 print " subfname ",$uu->subfname; 82 print " subfname ", $uu->subfname;
51 print " mimeid ",$uu->mimeid; 83 print " mimeid ", $uu->mimeid;
52 print " mimetype ",$uu->mimetype; 84 print " mimetype ", $uu->mimetype;
53 print "\n"; 85 print "\n";
54 86
55 # print additional info about all parts 87 # print additional info about all parts
56 for($uu->parts) { 88 for ($uu->parts) {
57 while(my($k,$v)=each(%$_)) { 89 while (my ($k, $v) = each %$_) {
58 print "$k > $v, "; 90 print "$k > $v, ";
59 } 91 }
60 print "\n"; 92 print "\n";
61 } 93 }
62 94
63 print strerror($uu->decode_temp)."\n"; 95 $uu->decode_temp;
64 print " temporarily decoded to ",$uu->binfile,"\n"; 96 print " temporarily decoded to ", $uu->binfile, "\n";
65 $uu->remove_temp; 97 $uu->remove_temp;
66 98
67 print strerror($uu->decode)."\n"; 99 print strerror $uu->decode;
68 print " saved as uudst/",$uu->filename,"\n"; 100 print " saved as uudst/", $uu->filename, "\n";
69} 101}
70 102
71print "cleanup...\n"; 103print "cleanup...\n";
72 104
73CleanUp(); 105CleanUp();

Diff Legend

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