CVS: mharc/bin apply-config,1.14,1.15

Update of /cvsroot/mhonarc/mharc/bin
In directory subversions:/tmp/cvs-serv25774/bin

Modified Files:
	apply-config 
Log Message:
* Sanity check of SW_ROOT.
* Check existence of *_DIR to avoid stat error messages from File::Find.


Index: apply-config
===================================================================
RCS file: /cvsroot/mhonarc/mharc/bin/apply-config,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -r1.14 -r1.15
*** apply-config	13 Oct 2002 18:04:59 -0000	1.14
--- apply-config	17 Oct 2002 03:14:31 -0000	1.15
***************
*** 143,147 ****
--- 143,149 ----
  if (!(_at_)ARGV) {
    my $home = $config->{'SW_ROOT'};
+      $home = "$Dir/.."  unless $home;
    push(@ARGV, $home);
+ 
    my($dir);
    foreach $dir ($config->{'HTML_DIR'},
***************
*** 152,155 ****
--- 154,161 ----
  
      next  unless $dir =~ /\S/;
+     if (! -e $dir) {
+       warn qq/Warning: "$dir" does not exist\n/;
+       next;
+     }
      $dir =~ s/\/+$//;
      if ($dir !~ /^\Q$home\E\//o) {

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