mhonarc-commits
[Top] [All Lists]

CVS: mharc/bin apply-config,1.10,1.11

2002-09-27 22:01:12
Update of /cvsroot/mhonarc/mharc/bin
In directory subversions:/tmp/cvs-serv22938

Modified Files:
	apply-config 
Log Message:
Fixed handling of case when no directories are supplied.  Cases
where HTML_DIR, or other directories, are different from the default
are now handled.
(Thanks to Eugene Eric Kim for spotting this.)


Index: apply-config
===================================================================
RCS file: /cvsroot/mhonarc/mharc/bin/apply-config,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -r1.10 -r1.11
*** apply-config	15 Sep 2002 03:33:08 -0000	1.10
--- apply-config	28 Sep 2002 05:01:07 -0000	1.11
***************
*** 143,148 ****
  
  if (!(_at_)ARGV) {
!   @ARGV = ("$Dir/..");
  }
  find({ wanted => \&wanted,
       },
--- 143,162 ----
  
  if (!(_at_)ARGV) {
!   my $home = $config->{'SW_ROOT'};
!   push(@ARGV, $home);
!   my($dir);
!   foreach $dir ($config->{'HTML_DIR'},
! 		$config->{'CGI_DIR'},
! 		$config->{'MBOX_DIR'},
! 		$config->{'INFO_DIR'},
! 		$config->{'MKNMZ_TMPL_DIR'}) {
! 
!     $dir =~ s/\/+$//;
!     if ($dir !~ /^\Q$home\E\//o) {
!       push(@ARGV, $dir);
!     }
!   }
  }
+ 
  find({ wanted => \&wanted,
       },

---------------------------------------------------------------------
To sign-off this list, send email to majordomo(_at_)mhonarc(_dot_)org with the
message text UNSUBSCRIBE MHONARC-DEV