--- Convert-UUlib/example-decoder 2009/07/18 05:58:26 1.18 +++ Convert-UUlib/example-decoder 2009/08/24 04:38:23 1.19 @@ -25,6 +25,8 @@ SetOption OPT_IGNMODE, 1; SetOption OPT_IGNMODE, 1; SetOption OPT_VERBOSE, 1; +SetOption OPT_DOTDOT, 1; +SetOption OPT_AUTOCHECK, 0; # show the three ways you can set callback functions. I normally # prefer the one with the sub inplace. @@ -43,6 +45,11 @@ return unless $_[1]; # skip "Re:"-plies et al. local $_ = $_[0]; + if ($_[1] =~ /^(img_?\d+|\d+\w?)\./) { + return "$1 $_[1]" + if /^\s*\(([^)]+)\) \[\d+/; + } + # the following rules are rather effective on some newsgroups, # like alt.binaries.games.anime, where non-mime, uuencoded data # is very common @@ -76,6 +83,8 @@ print "file($_), status(", strerror $retval, ") parts($count)\n"; } +CheckGlobalList; + SetOption OPT_SAVEPATH, "uudst/"; # now wade through all files and their source parts