equal
deleted
inserted
replaced
6 use MIME::Parser; |
6 use MIME::Parser; |
7 use MIME::Entity; |
7 use MIME::Entity; |
8 use MIME::Head; |
8 use MIME::Head; |
9 use Getopt::Long; |
9 use Getopt::Long; |
10 use File::Basename; |
10 use File::Basename; |
|
11 use FindBin qw($Bin); |
11 |
12 |
12 my $ME = basename $0; |
13 my $ME = basename $0; |
13 my $MEPID = $$; |
14 my $MEPID = $$; |
14 my $CONFDIR = '.'; |
15 my $CONFDIR = -f "$Bin/.build" ? $Bin : "/etc/$0"; |
15 my $LOGDIR = '.'; |
16 my $LOGDIR = '.'; |
16 my $HELP = <<EOF; |
17 my $HELP = <<EOF; |
17 Usage: |
18 Usage: |
18 $ME [options] < mail |
19 $ME [options] < mail |
19 $ME [actions] |
20 $ME [actions] |