Index: mailnotify
===================================================================
RCS file: /var/cvs/twiki/bin/mailnotify,v
retrieving revision 1.1
retrieving revision 1.2
diff -c -r1.1 -r1.2
*** mailnotify  TWikiAthensRelease
--- mailnotify  2002/09/02 12:41:15     1.2
***************
*** 20,26 ****
  use TWiki;
  use TWiki::Net;

! my $debug = ! ( @ARGV && $ARGV[0] eq "-q" );

  &main();

--- 20,26 ----
  use TWiki;
  use TWiki::Net;

! my $debug = ! ( @ARGV && $ARGV[0] eq "-q" && pop @ARGV);

  &main();

***************
*** 33,38 ****
--- 33,41 ----
      opendir( DIR, "$dataDir" ) or die "could not open $dataDir";
      @weblist = grep !/^\.\.?$/, readdir DIR;
      closedir DIR;
+
+     @weblist = @ARGV  if ("@ARGV" ne "");
+
      foreach $web ( @weblist ) {
          if( -d "$dataDir/$web" ) {
               processWeb( $web );