--- Convert-UUlib/UUlib.pm	2008/06/13 13:33:08	1.31
+++ Convert-UUlib/UUlib.pm	2008/10/13 12:12:56	1.32
@@ -8,7 +8,7 @@
 require Exporter;
 require DynaLoader;
 
-our $VERSION = '1.11';
+our $VERSION = '1.12';
 
 our @ISA = qw(Exporter DynaLoader);
 
@@ -439,107 +439,122 @@
 This is the file C<example-decoder> from the distribution, put here
 instead of more thorough documentation.
 
- # decode all the files in the directory uusrc/ and copy
- # the resulting files to uudst/
+   #!/usr/bin/perl
 
- use Convert::UUlib ':all';
+   # decode all the files in the directory uusrc/ and copy
+   # the resulting files to uudst/
 
- sub namefilter {
-    my($path)=@_;
-    $path=~s/^.*[\/\\]//;
-    $path;
- }
+   use Convert::UUlib ':all';
 
- sub busycb {
-    my ($action, $curfile, $partno, $numparts, $percent, $fsize) = @_;
-    $_[0]=straction($action);
-    print "busy_callback(", (join ",",@_), ")\n";
-    0;
- }
+   sub namefilter {
+      my ($path) = @_;
 
- SetOption OPT_IGNMODE, 1;
- SetOption OPT_VERBOSE, 1;
+      $path=~s/^.*[\/\\]//;
 
- # show the three ways you can set callback functions. I normally
- # prefer the one with the sub inplace.
- SetFNameFilter \&namefilter;
-
- SetBusyCallback "busycb", 333;
-
- SetMsgCallback sub {
-    my ($msg, $level) = @_;
-    print uc strmsglevel $_[1], ": $msg\n";
- };
-
- # the following non-trivial FileNameCallback takes care
- # of some subject lines not detected properly by uulib:
- SetFileNameCallback sub {
-    return unless $_[1]; # skip "Re:"-plies et al.
-    local $_ = $_[0];
-
-    # the following rules are rather effective on some newsgroups,
-    # like alt.binaries.games.anime, where non-mime, uuencoded data
-    # is very common
-
-    # if we find some *.rar, take it as the filename
-    return $1 if /(\S{3,}\.(?:[rstuvwxyz]\d\d|rar))\s/i;
-
-    # one common subject format
-    return $1 if /- "(.{2,}?\..+?)" (?:yenc )?\(\d+\/\d+\)/i;
-
-    # - filename.par (04/55)
-    return $1 if /- "?(\S{3,}\.\S+?)"? (?:yenc )?\(\d+\/\d+\)/i;
-
-    # - (xxx) No. 1 sayuri81.jpg 756565 bytes
-    # - (20 files) No.17 Roseanne.jpg [2/2]
-    return $1 if /No\.[ 0-9]+ (\S+\....) (?:\d+ bytes )?\[/;
-
-    # otherwise just pass what we have
-    return ();
- };
-
- # now read all files in the directory uusrc/*
- for(<uusrc/*>) {
-    my($retval,$count)=LoadFile ($_, $_, 1);
-    print "file($_), status(", strerror $retval, ") parts($count)\n";
- }
+      $path
+   }
 
- SetOption OPT_SAVEPATH, "uudst/";
+   sub busycb {
+      my ($action, $curfile, $partno, $numparts, $percent, $fsize) = @_;
+      $_[0]=straction($action);
+      print "busy_callback(", (join ",",@_), ")\n";
+      0
+   }
 
- # now wade through all files and their source parts
- $i = 0;
- while ($uu = GetFileListItem($i)) {
-    $i++;
-    print "file nr. $i";
-    print " state ", $uu->state;
-    print " mode ", $uu->mode;
-    print " uudet ", strencoding $uu->uudet;
-    print " size ", $uu->size;
-    print " filename ", $uu->filename;
-    print " subfname ", $uu->subfname;
-    print " mimeid ", $uu->mimeid;
-    print " mimetype ", $uu->mimetype;
-    print "\n";
-
-    # print additional info about all parts
-    for ($uu->parts) {
-       while (my ($k, $v) = each %$_) {
-          print "$k > $v, ";
-       }
-       print "\n";
-    }
+   SetOption OPT_RBUF, 128*1024;
+   SetOption OPT_WBUF, 1024*1024;
+   SetOption OPT_IGNMODE, 1;
+   SetOption OPT_IGNMODE, 1;
+   SetOption OPT_VERBOSE, 1;
+
+   # show the three ways you can set callback functions. I normally
+   # prefer the one with the sub inplace.
+   SetFNameFilter \&namefilter;
+
+   SetBusyCallback "busycb", 333;
+
+   SetMsgCallback sub {
+      my ($msg, $level) = @_;
+      print uc strmsglevel $_[1], ": $msg\n";
+   };
+
+   # the following non-trivial FileNameCallback takes care
+   # of some subject lines not detected properly by uulib:
+   SetFileNameCallback sub {
+      return unless $_[1]; # skip "Re:"-plies et al.
+      local $_ = $_[0];
+
+         return $1 if /(\S+\s+IMG_\d+.jpg)/i;
+
+      # the following rules are rather effective on some newsgroups,
+      # like alt.binaries.games.anime, where non-mime, uuencoded data
+      # is very common
+
+      # if we find some *.rar, take it as the filename
+      return $1 if /(\S{3,}\.(?:[rstuvwxyz]\d\d|rar))\s/i;
+
+      # one common subject format
+      return $1 if /- "(.{2,}?\..+?)" (?:yenc )?\(\d+\/\d+\)/i;
+
+      # - filename.par (04/55)
+      return $1 if /- "?(\S{3,}\.\S+?)"? (?:yenc )?\(\d+\/\d+\)/i;
+
+      # - (xxx) No. 1 sayuri81.jpg 756565 bytes
+      # - (20 files) No.17 Roseanne.jpg [2/2]
+      return $1 if /No\.[ 0-9]+ (\S+\....) (?:\d+ bytes )?\[/;
+
+      # try to detect some common forms of filenames
+      return $1 if /([a-z0-9_\-+.]{3,}\.[a-z]{3,4}(?:.\d+))/i;
+
+      # otherwise just pass what we have
+      ()
+   };
+
+   # now read all files in the directory uusrc/*
+   for(<uusrc/*>) {
+      my ($retval, $count) = LoadFile ($_, $_, 1);
+      print "file($_), status(", strerror $retval, ") parts($count)\n";
+   }
 
-    $uu->decode_temp;
-    print " temporarily decoded to ", $uu->binfile, "\n";
-    $uu->remove_temp;
+   SetOption OPT_SAVEPATH, "uudst/";
 
-    print strerror $uu->decode;
-    print " saved as uudst/", $uu->filename, "\n";
- }
+   # now wade through all files and their source parts
+   $i = 0;
+   while ($uu = GetFileListItem $i) {
+      $i++;
+      print "file nr. $i";
+      print " state ", $uu->state;
+      print " mode ", $uu->mode;
+      print " uudet ", strencoding $uu->uudet;
+      print " size ", $uu->size;
+      print " filename ", $uu->filename;
+      print " subfname ", $uu->subfname;
+      print " mimeid ", $uu->mimeid;
+      print " mimetype ", $uu->mimetype;
+      print "\n";
+
+      # print additional info about all parts
+      for ($uu->parts) {
+         while (my ($k, $v) = each %$_) {
+            print "$k > $v, ";
+         }
+         print "\n";
+      }
+
+      print $uu->filename;
+
+      $uu->remove_temp;
+
+      if (my $err = $uu->decode ()) {
+         print ", ", strerror $err, "\n";
+      } else {
+         print ", saved as uudst/", $uu->filename, "\n";
+      }
+   }
 
- print "cleanup...\n";
+   print "cleanup...\n";
 
- CleanUp();
+   CleanUp;
 
 =head1 AUTHOR