Lines Matching refs:directory
37 my ($directory) = @_;
42 if ($directory eq "" )
47 if (!(-d $directory))
49 $returnvalue = mkdir($directory, 0775);
53 $infoline = "Created directory: $directory\n";
58 my $localcall = "chmod 775 $directory \>\/dev\/null 2\>\&1";
68 if (!(-d $directory))
70 …pre2par::exiter::exit_program("Error: Could not create directory: $directory", "create_directory");
74 … $infoline = "\nAnother process created this directory in exactly this moment :-) : $directory\n";
81 $infoline = "\nAlready existing directory, did not create: $directory\n";
92 my ($directory, $languagesref) =@_;
104 if ($directory eq "unzip" )
109 $path = $path . $directory . $pre2par::globals::separator;
120 $path = $path . $directory . $pre2par::globals::separator;