--- nfo/perl/scripts/dispatchmail/bin/dispatchmail	2003/01/22 17:50:56	1.4
+++ nfo/perl/scripts/dispatchmail/bin/dispatchmail	2003/01/27 08:52:40	1.5
@@ -7,10 +7,13 @@
 #    with the Perl-module "Mail::Audit" 
 #    available from CPAN.
 #
-#  $Id: dispatchmail,v 1.4 2003/01/22 17:50:56 root Exp $
+#  $Id: dispatchmail,v 1.5 2003/01/27 08:52:40 root Exp $
 #
 # ============================================================
 #  $Log: dispatchmail,v $
+#  Revision 1.5  2003/01/27 08:52:40  root
+#  + new command line arguments: "news" and "newsgroup"
+#
 #  Revision 1.4  2003/01/22 17:50:56  root
 #  - refactored most code to Mail::Audit::Dispath
 #
@@ -46,9 +49,11 @@
 
 my $args;
 GetOptions(
-  'user=s'  => \$args->{user},
-  'base=s'  => \$args->{base},
-  'rules=s' => \$args->{rules},
+  'user=s'      => \$args->{user},
+  'base=s'      => \$args->{base},
+  'rules=s'     => \$args->{rules},
+  'mode=s'      => \$args->{mode},
+  'newsgroup=s' => \$args->{newsgroup},
 );
 
 my $args_dispatch = merge($defaults, $args);