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

Comparing Convert-UUlib/UUlib.pm (file contents):
Revision 1.28 by root, Sun Mar 25 00:18:07 2007 UTC vs.
Revision 1.40 by root, Wed Dec 15 00:10:59 2010 UTC

… …
6use Carp; 6use Carp;
7 7
8require Exporter; 8require Exporter;
9require DynaLoader; 9require DynaLoader;
10 10
11our $VERSION = '1.08'; 11our $VERSION = '1.34';
12 12
13our @ISA = qw(Exporter DynaLoader); 13our @ISA = qw(Exporter DynaLoader);
14 14
15our @_consts = qw( 15our @_consts = qw(
16 ACT_COPYING ACT_DECODING ACT_ENCODING ACT_IDLE ACT_SCANNING 16 ACT_COPYING ACT_DECODING ACT_ENCODING ACT_IDLE ACT_SCANNING
… …
22 22
23 OPT_RBUF OPT_WBUF 23 OPT_RBUF OPT_WBUF
24 OPT_BRACKPOL OPT_DEBUG OPT_DESPERATE OPT_DUMBNESS OPT_ENCEXT 24 OPT_BRACKPOL OPT_DEBUG OPT_DESPERATE OPT_DUMBNESS OPT_ENCEXT
25 OPT_ERRNO OPT_FAST OPT_IGNMODE OPT_IGNREPLY OPT_OVERWRITE OPT_PREAMB 25 OPT_ERRNO OPT_FAST OPT_IGNMODE OPT_IGNREPLY OPT_OVERWRITE OPT_PREAMB
26 OPT_PROGRESS OPT_SAVEPATH OPT_TINYB64 OPT_USETEXT OPT_VERBOSE 26 OPT_PROGRESS OPT_SAVEPATH OPT_TINYB64 OPT_USETEXT OPT_VERBOSE
27 OPT_VERSION OPT_REMOVE OPT_MOREMIME OPT_DOTDOT 27 OPT_VERSION OPT_REMOVE OPT_MOREMIME OPT_DOTDOT OPT_AUTOCHECK
28 28
29 RET_CANCEL RET_CONT RET_EXISTS RET_ILLVAL RET_IOERR RET_NODATA 29 RET_CANCEL RET_CONT RET_EXISTS RET_ILLVAL RET_IOERR RET_NODATA
30 RET_NOEND RET_NOMEM RET_OK RET_UNSUP 30 RET_NOEND RET_NOMEM RET_OK RET_UNSUP
31 31
32 B64_ENCODED BH_ENCODED PT_ENCODED QP_ENCODED 32 B64_ENCODED BH_ENCODED PT_ENCODED QP_ENCODED
… …
159 OPT_TINYB64 detect short B64 outside of Mime 159 OPT_TINYB64 detect short B64 outside of Mime
160 OPT_ENCEXT extension for single-part encoded files 160 OPT_ENCEXT extension for single-part encoded files
161 OPT_REMOVE remove input files after decoding (dangerous) 161 OPT_REMOVE remove input files after decoding (dangerous)
162 OPT_MOREMIME strict MIME adherence 162 OPT_MOREMIME strict MIME adherence
163 OPT_DOTDOT ".."-unescaping has not yet been done on input files 163 OPT_DOTDOT ".."-unescaping has not yet been done on input files
164 OPT_RBUF set default read I/O buffer size in bytes *EXPERIMENTAL* 164 OPT_RBUF set default read I/O buffer size in bytes
165 OPT_WBUF set default write I/O buffer size in bytes *EXPERIMENTAL* 165 OPT_WBUF set default write I/O buffer size in bytes
166 OPT_AUTOCHECK automatically check file list after every loadfile
166 167
167=head2 Result/Error codes 168=head2 Result/Error codes
168 169
169 RET_OK everything went fine 170 RET_OK everything went fine
170 RET_IOERR I/O Error - examine errno 171 RET_IOERR I/O Error - examine errno
… …
281If you are desperate, try to call C<Smerge> with increasing C<$pass> 282If you are desperate, try to call C<Smerge> with increasing C<$pass>
282values, beginning at C<0>, to try to merge parts that usually would not 283values, beginning at C<0>, to try to merge parts that usually would not
283have been merged. 284have been merged.
284 285
285Most probably this will result in garbled files, so never do this by 286Most probably this will result in garbled files, so never do this by
286default. 287default, except:
288
289If the C<OPT_AUTOCHECK> option has been disabled (by default it is
290enabled) to speed up file loading, then you I<have> to call C<Smerge -1>
291after loading all files as an additional pre-pass (which is normally done
292by C<LoadFile>).
287 293
288=item $item = GetFileListItem $item_number 294=item $item = GetFileListItem $item_number
289 295
290Return the C<$item> structure for the C<$item_number>'th found file, or 296Return the C<$item> structure for the C<$item_number>'th found file, or
291C<undef> of no file with that number exists. 297C<undef> of no file with that number exists.
… …
437=head1 LARGE EXAMPLE DECODER 443=head1 LARGE EXAMPLE DECODER
438 444
439This is the file C<example-decoder> from the distribution, put here 445This is the file C<example-decoder> from the distribution, put here
440instead of more thorough documentation. 446instead of more thorough documentation.
441 447
448 #!/usr/bin/perl
449
442 # decode all the files in the directory uusrc/ and copy 450 # decode all the files in the directory uusrc/ and copy
443 # the resulting files to uudst/ 451 # the resulting files to uudst/
444 452
445 use Convert::UUlib ':all'; 453 use Convert::UUlib ':all';
446 454
447 sub namefilter { 455 sub namefilter {
448 my($path)=@_; 456 my ($path) = @_;
457
449 $path=~s/^.*[\/\\]//; 458 $path=~s/^.*[\/\\]//;
459
450 $path; 460 $path
451 } 461 }
452 462
453 sub busycb { 463 sub busycb {
454 my ($action, $curfile, $partno, $numparts, $percent, $fsize) = @_; 464 my ($action, $curfile, $partno, $numparts, $percent, $fsize) = @_;
455 $_[0]=straction($action); 465 $_[0]=straction($action);
456 print "busy_callback(", (join ",",@_), ")\n"; 466 print "busy_callback(", (join ",",@_), ")\n";
457 0; 467 0
458 } 468 }
459 469
470 SetOption OPT_RBUF, 128*1024;
471 SetOption OPT_WBUF, 1024*1024;
460 SetOption OPT_IGNMODE, 1; 472 SetOption OPT_IGNMODE, 1;
473 SetOption OPT_IGNMODE, 1;
461 SetOption OPT_VERBOSE, 1; 474 SetOption OPT_VERBOSE, 1;
462 475
463 # show the three ways you can set callback functions. I normally 476 # show the three ways you can set callback functions. I normally
464 # prefer the one with the sub inplace. 477 # prefer the one with the sub inplace.
465 SetFNameFilter \&namefilter; 478 SetFNameFilter \&namefilter;
466 479
467 SetBusyCallback "busycb", 333; 480 SetBusyCallback "busycb", 333;
468 481
469 SetMsgCallback sub { 482 SetMsgCallback sub {
470 my ($msg, $level) = @_; 483 my ($msg, $level) = @_;
471 print uc strmsglevel $_[1], ": $msg\n"; 484 print uc strmsglevel $_[1], ": $msg\n";
472 }; 485 };
473 486
474 # the following non-trivial FileNameCallback takes care 487 # the following non-trivial FileNameCallback takes care
475 # of some subject lines not detected properly by uulib: 488 # of some subject lines not detected properly by uulib:
476 SetFileNameCallback sub { 489 SetFileNameCallback sub {
477 return unless $_[1]; # skip "Re:"-plies et al. 490 return unless $_[1]; # skip "Re:"-plies et al.
478 local $_ = $_[0]; 491 local $_ = $_[0];
479 492
480 # the following rules are rather effective on some newsgroups, 493 # the following rules are rather effective on some newsgroups,
481 # like alt.binaries.games.anime, where non-mime, uuencoded data 494 # like alt.binaries.games.anime, where non-mime, uuencoded data
482 # is very common 495 # is very common
483 496
484 # if we find some *.rar, take it as the filename 497 # if we find some *.rar, take it as the filename
485 return $1 if /(\S{3,}\.(?:[rstuvwxyz]\d\d|rar))\s/i; 498 return $1 if /(\S{3,}\.(?:[rstuvwxyz]\d\d|rar))\s/i;
486 499
487 # one common subject format 500 # one common subject format
488 return $1 if /- "(.{2,}?\..+?)" (?:yenc )?\(\d+\/\d+\)/i; 501 return $1 if /- "(.{2,}?\..+?)" (?:yenc )?\(\d+\/\d+\)/i;
489 502
490 # - filename.par (04/55) 503 # - filename.par (04/55)
491 return $1 if /- "?(\S{3,}\.\S+?)"? (?:yenc )?\(\d+\/\d+\)/i; 504 return $1 if /- "?(\S{3,}\.\S+?)"? (?:yenc )?\(\d+\/\d+\)/i;
492 505
493 # - (xxx) No. 1 sayuri81.jpg 756565 bytes 506 # - (xxx) No. 1 sayuri81.jpg 756565 bytes
494 # - (20 files) No.17 Roseanne.jpg [2/2] 507 # - (20 files) No.17 Roseanne.jpg [2/2]
495 return $1 if /No\.[ 0-9]+ (\S+\....) (?:\d+ bytes )?\[/; 508 return $1 if /No\.[ 0-9]+ (\S+\....) (?:\d+ bytes )?\[/;
496 509
510 # try to detect some common forms of filenames
511 return $1 if /([a-z0-9_\-+.]{3,}\.[a-z]{3,4}(?:.\d+))/i;
512
497 # otherwise just pass what we have 513 # otherwise just pass what we have
498 return (); 514 ()
499 }; 515 };
500 516
501 # now read all files in the directory uusrc/* 517 # now read all files in the directory uusrc/*
502 for(<uusrc/*>) { 518 for(<uusrc/*>) {
503 my($retval,$count)=LoadFile ($_, $_, 1); 519 my ($retval, $count) = LoadFile ($_, $_, 1);
504 print "file($_), status(", strerror $retval, ") parts($count)\n"; 520 print "file($_), status(", strerror $retval, ") parts($count)\n";
505 } 521 }
506 522
507 SetOption OPT_SAVEPATH, "uudst/"; 523 SetOption OPT_SAVEPATH, "uudst/";
508 524
509 # now wade through all files and their source parts 525 # now wade through all files and their source parts
510 $i = 0; 526 $i = 0;
511 while ($uu = GetFileListItem($i)) { 527 while ($uu = GetFileListItem $i) {
512 $i++; 528 $i++;
513 print "file nr. $i"; 529 print "file nr. $i";
514 print " state ", $uu->state; 530 print " state ", $uu->state;
515 print " mode ", $uu->mode; 531 print " mode ", $uu->mode;
516 print " uudet ", strencoding $uu->uudet; 532 print " uudet ", strencoding $uu->uudet;
517 print " size ", $uu->size; 533 print " size ", $uu->size;
518 print " filename ", $uu->filename; 534 print " filename ", $uu->filename;
519 print " subfname ", $uu->subfname; 535 print " subfname ", $uu->subfname;
520 print " mimeid ", $uu->mimeid; 536 print " mimeid ", $uu->mimeid;
521 print " mimetype ", $uu->mimetype; 537 print " mimetype ", $uu->mimetype;
522 print "\n"; 538 print "\n";
523 539
524 # print additional info about all parts 540 # print additional info about all parts
525 for ($uu->parts) { 541 for ($uu->parts) {
526 while (my ($k, $v) = each %$_) { 542 while (my ($k, $v) = each %$_) {
527 print "$k > $v, "; 543 print "$k > $v, ";
528 } 544 }
529 print "\n"; 545 print "\n";
530 } 546 }
531 547
532 $uu->decode_temp; 548 print $uu->filename;
533 print " temporarily decoded to ", $uu->binfile, "\n"; 549
534 $uu->remove_temp; 550 $uu->remove_temp;
535 551
536 print strerror $uu->decode; 552 if (my $err = $uu->decode ()) {
553 print ", ", strerror $err, "\n";
554 } else {
537 print " saved as uudst/", $uu->filename, "\n"; 555 print ", saved as uudst/", $uu->filename, "\n";
538 } 556 }
557 }
539 558
540 print "cleanup...\n"; 559 print "cleanup...\n";
541 560
542 CleanUp(); 561 CleanUp;
543 562
544=head1 AUTHOR 563=head1 AUTHOR
545 564
546Marc Lehmann <schmorp@schmorp.de>, the original uulib library was written 565Marc Lehmann <schmorp@schmorp.de>, the original uulib library was written
547by Frank Pilhofer <fp@informatik.uni-frankfurt.de>, and later heavily 566by Frank Pilhofer <fp@informatik.uni-frankfurt.de>, and later heavily

Diff Legend

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