| 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); |