Lines Matching refs:directory
40 my ($directory) = @_;
45 if (!(-d $directory))
47 $returnvalue = mkdir($directory, 0775);
52 $installer::logger::Lang->printf("Created directory: %s\n", $directory);
54 my $localcall = "chmod 0775 $directory \>\/dev\/null 2\>\&1";
58 $localcall = "chmod a-s $directory \>\/dev\/null 2\>\&1";
70 $directory);
72 if (!(-d $directory))
76 my $parentdir = $directory;
94 …$infoline = "Error: \"$directory\" could not be created. Even the parent directory \"$parentdir\" …
114 $returnvalue = mkdir($directory, 0775);
121 $directory);;
123 my $localcall = "chmod 775 $directory \>\/dev\/null 2\>\&1";
128 if ( -d $directory )
133 $directory);
138 …installer::exiter::exit_program("ERROR: Failed to create the directory: $directory", "create_direc…
147 $directory);;
153 $installer::logger::Lang->printf("Already existing directory, did not create: %s\n", $directory);
163 my ($directory, $privileges) = @_;
168 if (!(-d $directory))
171 $returnvalue = mkdir($directory, $localprivileges);
176 $installer::logger::Lang->printf("Created directory: %s\n", $directory);
178 my $localcall = "chmod $privileges $directory \>\/dev\/null 2\>\&1";
190 $directory);
192 if (!(-d $directory))
196 my $parentdir = $directory;
200 $returnvalue = mkdir($directory, $localprivileges);
214 …$infoline = "Error: \"$directory\" could not be created. Even the parent directory \"$parentdir\" …
234 $returnvalue = mkdir($directory, $localprivileges);
240 $directory);
242 my $localcall = "chmod $privileges $directory \>\/dev\/null 2\>\&1";
247 if ( -d $directory )
252 $directory);
257 …installer::exiter::exit_program("ERROR: Failed to create the directory: $directory", "create_direc…
266 $directory);
273 $installer::logger::Lang->printf("Already existing directory, did not create: %s\n", $directory);
275 my $localcall = "chmod $privileges $directory \>\/dev\/null 2\>\&1";
317 my ($directory) = @_;
321 if (-d $directory)
323 if ( ! is_directory_empty($directory))
325 …nstaller::logger::Lang->printf("directory '%s' is not empty and can not be removed\n", $directory);
330 my $systemcall = "rmdir $directory";
338 $installer::logger::Lang->printf("ERROR: Could not remove \"%s\"!\n", $directory);
342 $installer::logger::Lang->printf("Success: Removed \"%s\"!\n", $directory);
1477 my ($directory) = @_;
1482 if (!(-d $directory))
1484 $returnvalue = mkdir($directory, 0775);
1490 $installer::logger::Lang->printf("Created directory: %s\n", $directory);
1492 my $localcall = "chmod 0775 $directory \>\/dev\/null 2\>\&1";
1496 $localcall = "chmod a-s $directory \>\/dev\/null 2\>\&1";
1518 my ($directory) = @_;
1520 if ( ! try_to_create_directory($directory) )
1522 my $parentdir = $directory;
1525 $installer::logger::Lang->printf("INFO: Did not create directory %s\n", $directory);
1531 create_directory($directory); # now it has to succeed
1540 my ($directory, $start) = @_;
1545 $directory =~ s/\Q$installer::globals::separator\E\s*$//;
1547 if ( -d $directory )
1552 $installer::logger::Lang->printf("Removing directory %s\n", $directory);
1555 opendir(DIR, $directory);
1565 my $item = $directory . $installer::globals::separator . $oneitem;
1581 if ( ! -d $directory)
1583 …installer::logger::Info->printf("trying to remove directory that doesn't exist: %s\n", $directory);
1585 my $returnvalue = rmdir $directory;
1589 $installer::logger::Lang->printf("Warning: Problem with removing empty dir %s\n", $directory);
1593 if ( -d $directory )
1597 if ( -d $directory )
1601 $j, $directory);
1603 $returnvalue = rmdir $directory;
1607 $installer::logger::Lang->printf("Successfully removed empty dir %s\n", $directory);
1611 $installer::logger::Lang->printf("Warning: rmdir %s failed.\n", $directory);
1625 my ($directory) = @_;
1627 $directory =~ s/\Q$installer::globals::separator\E\s*$//;
1628 $directory = $directory . "_INCREASINGNUMBER";
1636 $localdirectory = $directory;
1657 my ($directory) = @_;
1659 $directory =~ s/\Q$installer::globals::separator\E\s*$//;
1663 $directory = $directory . "_" . $pid . $time;
1665 if ( ! -d $directory ) { create_directory($directory); }
1666 …else { installer::exiter::exit_program("ERROR: Directory $directory already exists!", "create_pid_…
1668 return $directory;
1677 my ($directory, $pathstring, $filecollector) = @_;
1680 opendir(DIR, $directory);
1690 my $completefilename = $directory . $installer::globals::separator . $onefile;