modules/installer/systemactions.pm

291 	my ($path) = @_;
293 	opendir my $dir, $path or return -1;
379 	my $path = "";
383 		if ( $installer::globals::temppathdefined ) { $path = $installer::globals::temppath; }
384 		else { $path = $installer::globals::unpackpath; }
385 		$path =~ s/\Q$installer::globals::separator\E\s*$//; # removing ending slashes and backslashes
386 		$path = $path . $installer::globals::separator;
390 		if ( $installer::globals::jdstemppathdefined ) { $path = $installer::globals::jdstemppath; }
391 		else { $path = $installer::globals::unpackpath; }
392 		$path =~ s/\Q$installer::globals::separator\E\s*$//; # removing ending slashes and backslashes
393 		$path = $path . $installer::globals::separator;
394 		installer::systemactions::create_directory($path);
398 		$path = $installer::globals::unpackpath . $installer::globals::separator;
404 			$path = $installer::globals::localinstalldir . $installer::globals::separator;
408 	$infoline = "create_directories: Using $path for $newdirectory !\n";
413 …$path = $path . ".." . $installer::globals::separator . "common" . $installer::globals::productext…
414 		create_directory($path);
416 		$path = $path . $newdirectory . $installer::globals::separator;
417 		create_directory($path);
430 …if ( $installer::globals::languagepack ) { $path = $path . $localproductname . "_languagepack" . $…
431 …elsif ( $installer::globals::patch ) { $path = $path . $localproductname . "_patch" . $installer::…
432 		else { $path = $path . $localproductname . $installer::globals::separator; }
434 		create_directory($path);
438 			$path = $path . $localproductsubdir . $installer::globals::separator;
439 			create_directory($path);
442 		$path = $path . $installer::globals::installertypedir . $installer::globals::separator;
443 		create_directory($path);
445 		$path = $path . $newdirectory . $installer::globals::separator;
446 		create_directory($path);
456 			$path = $path . $languagestring . $installer::globals::separator;
457 			create_directory($path);
461 	installer::remover::remove_ending_pathseparator(\$path);
463 	$path = installer::converter::make_path_conform($path);
465 	return $path;
1726 		my ($path, $relative_path) = @{shift @directory_queue};
1729 		next unless opendir(DH, $path);
1734 			$fullname = $path . $installer::globals::separator . $item;
1753 		$installer::logger::Lang->printf("    found %d new files in '%s'\n", $count, $path);