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