Lines Matching refs:directory
399 my ($directory) = @_;
401 if ( ! try_to_create_directory($directory) )
403 my $parentdir = $directory;
408 create_directory($directory); # now it has to succeed
417 my ($directory) = @_;
419 if ( ! -d $directory ) { mkdir($directory, 0775); }
428 my ($directory) = @_;
433 if (!(-d $directory))
435 $returnvalue = mkdir($directory, 0775);
441 my $localcall = "chmod 775 $directory \>\/dev\/null 2\>\&1";
887 my ($directory, $privileges) = @_;
892 if (!(-d $directory))
895 $returnvalue = mkdir($directory, $localprivileges);
899 my $localcall = "chmod $privileges $directory \>\/dev\/null 2\>\&1";
905 my $localcall = "chmod $privileges $directory \>\/dev\/null 2\>\&1";
916 my ($directory) = @_;
918 $directory =~ s/\Q$separator\E\s*$//;
922 $directory = $directory . "_" . $pid . $time;
924 if ( ! -d $directory ) { create_directory($directory); }
925 else { exit_program("ERROR: Directory $directory already exists!"); }
927 return $directory;
1002 my ($directory, $start) = @_;
1007 $directory =~ s/\Q$separator\E\s*$//;
1009 if ( -d $directory )
1011 if ( $start ) { print "Removing directory $directory\n"; }
1013 opendir(DIR, $directory);
1023 my $item = $directory . $separator . $oneitem;
1038 my $returnvalue = rmdir $directory;
1039 if ( ! $returnvalue ) { print "Warning: Problem with removing empty dir $directory\n"; }