src/Utilities/AddDir.pm

#!/usr/local/bin/perl5
#

package AddDir;
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.1
Committed:	Mon Mar 1 10:35:01 1999 UTC (26 years, 2 months ago) by williamc
Content type:	text/plain
Branch:	MAIN
Log Message:	Utility modules
#	User	Rev	Content
1	williamc	1.1	#!/usr/local/bin/perl5
2			#
3
4			package AddDir;
5			require Exporter;
6			use Cwd;
7			@ISA = qw(Exporter);
8			@EXPORT = qw(adddir);
9
10			sub adddir ($directory) {
11			my $indir=shift;
12			my $startdir=cwd;
13			my @dir=split /\//, $indir;
14
15			if ( $indir=~/^\// ) {
16			chdir "/";
17			shift @dir;
18			}
19			umask 02;
20			foreach $dirname ( @dir ) {
21			next if ( $dirname eq "" );
22			if ( ! -e $dirname ) {
23			mkdir ( $dirname , 0775) \|\|
24			die "cannot make directory ".$dirname." $!\n";
25			print $i." ".$dirname."\n" if $debug;
26			}
27			chdir $dirname;
28			}
29			chdir $startdir;
30			}