11 |
# |
# |
12 |
# ============================================================ |
# ============================================================ |
13 |
# $Log$ |
# $Log$ |
14 |
|
# Revision 1.5 2003/01/27 08:52:40 root |
15 |
|
# + new command line arguments: "news" and "newsgroup" |
16 |
|
# |
17 |
# Revision 1.4 2003/01/22 17:50:56 root |
# Revision 1.4 2003/01/22 17:50:56 root |
18 |
# - refactored most code to Mail::Audit::Dispath |
# - refactored most code to Mail::Audit::Dispath |
19 |
# |
# |
49 |
|
|
50 |
my $args; |
my $args; |
51 |
GetOptions( |
GetOptions( |
52 |
'user=s' => \$args->{user}, |
'user=s' => \$args->{user}, |
53 |
'base=s' => \$args->{base}, |
'base=s' => \$args->{base}, |
54 |
'rules=s' => \$args->{rules}, |
'rules=s' => \$args->{rules}, |
55 |
|
'mode=s' => \$args->{mode}, |
56 |
|
'newsgroup=s' => \$args->{newsgroup}, |
57 |
); |
); |
58 |
|
|
59 |
my $args_dispatch = merge($defaults, $args); |
my $args_dispatch = merge($defaults, $args); |