src/Utilities/AddDir.pm

package AddDir;
require 5.001;
require Exporter;
use Cwd;
@ISA    = qw(Exporter);
@EXPORT = qw(adddir);

sub adddir ($directory) {
 my $indir=shift;
 my $startdir=cwd;
 my @dir=split /\//,  $indir;

 if ( $indir=~/^\// ) {
   chdir "/";
   shift @dir;
 }
 umask 02;
 foreach $dirname ( @dir ) {
  next if ( $dirname eq "" );
  if ( ! -e $dirname ) {
   mkdir ( $dirname , 0775) ||
                die "cannot make directory ".$dirname." $!\n";
   print $i." ".$dirname."\n" if $debug;
  }
 chdir $dirname;
 }
 chdir $startdir;
}
Revision:	1.2
Committed:	Mon Mar 1 11:01:36 1999 UTC (26 years, 2 months ago) by williamc
Content type:	text/plain
Branch:	MAIN
Changes since 1.1:	+1 -3 lines
Log Message:	get rid of unessary shell invocation stuff in modules
#	User	Rev	Content
1	williamc	1.1	package AddDir;
2	williamc	1.2	require 5.001;
3	williamc	1.1	require Exporter;
4			use Cwd;
5			@ISA = qw(Exporter);
6			@EXPORT = qw(adddir);
7
8			sub adddir ($directory) {
9			my $indir=shift;
10			my $startdir=cwd;
11			my @dir=split /\//, $indir;
12
13			if ( $indir=~/^\// ) {
14			chdir "/";
15			shift @dir;
16			}
17			umask 02;
18			foreach $dirname ( @dir ) {
19			next if ( $dirname eq "" );
20			if ( ! -e $dirname ) {
21			mkdir ( $dirname , 0775) \|\|
22			die "cannot make directory ".$dirname." $!\n";
23			print $i." ".$dirname."\n" if $debug;
24			}
25			chdir $dirname;
26			}
27			chdir $startdir;
28			}