diff options
Diffstat (limited to 'img/dist/IM/impack.in')
| -rw-r--r-- | img/dist/IM/impack.in | 66 |
1 files changed, 58 insertions, 8 deletions
diff --git a/img/dist/IM/impack.in b/img/dist/IM/impack.in index 15cb7f98..ad996271 100644 --- a/img/dist/IM/impack.in +++ b/img/dist/IM/impack.in @@ -5,7 +5,7 @@ ### ### Author: Internet Message Group <img@mew.org> ### Created: Apr 23, 1997 -### Revised: Apr 14, 2000 +### Revised: Dec 7, 2002 ### BEGIN { @@ -13,7 +13,7 @@ BEGIN { @im_src_siteperl@ }; -my $VERSION = "impack version 20000414(IM141)"; +my $VERSION = "impack version 20021207(IM142)"; $Prog = 'impack'; @@ -34,11 +34,10 @@ use vars qw($Prog $EXPLANATION @OptConfig ## Environments ## -$EXPLANATION = " -$Prog :: Internet Message Pack -$VERSION +$EXPLANATION = "$VERSION +pack mail/news messages in a folder -usage: $Prog [options] [+folder] +Usage: $Prog [OPTIONS] [FOLDER] "; @OptConfig =( @@ -71,7 +70,7 @@ exit $EXIT_SUCCESS; ## ## Work horse ## -sub impack ($) { +sub impack($) { my $folder = shift; my $msg = 1; my $dst; @@ -89,7 +88,7 @@ sub impack ($) { do { $dst =~ s|[^/]+$|$msg++|e; } while ($_ ne $dst && -e $dst); - if ($_ ne $dst){ + if ($_ ne $dst) { im_rename($_, $dst) || die $@; # XXX } } @@ -99,6 +98,57 @@ sub impack ($) { touch_folder($folder) unless $opt_noharm; } +__END__ + +=head1 NAME + +impack - pack mail/news messages in a folder + +=head1 SYNOPSIS + +B<impack> [OPTIONS] [FOLDER] + +=head1 DESCRIPTION + +The I<impack> command packs mail/news messages in a folder. + +This command is provided by IM (Internet Message). + +=head1 OPTIONS + +=over 5 + +=item I<-s, --src=FOLDER> + +Set source folder. Default value is "+inbox". +"--src=+xxx" is equivalent to "+xxx". + +=item I<-n, --noharm={on,off}> + +No packing. Show what will happen. + +=item I<-v, --verbose={on,off}> + +Print verbose messages when running. + +=item I<--debug=DEBUG_OPTION> + +Print debug messages when running. + +=item I<-h, --help> + +Display help message and exit. + +=back + +=head1 COPYRIGHT + +IM (Internet Message) is copyrighted by IM developing team. +You can redistribute it and/or modify it under the modified BSD +license. See the copyright file for more details. + +=cut + ### Copyright (C) 1997, 1998, 1999 IM developing team ### All rights reserved. ### |