Skip to content
Snippets Groups Projects

Bug Fix beim Ordner bzw. Test Dateien Erstellung

Merged Serhiy Bolkun requested to merge 3-Bug_Fix_beim_Dateien_Erstellung into master
1 file
+ 11
16
Compare changes
  • Side-by-side
  • Inline
+ 11
16
@@ -549,23 +549,18 @@ my $valid_ie_dir_path = $export_dir_kitodo_path->absolute . "/" . $valid_ie_dir;
my $not_valid_ie_dir_path = $export_dir_kitodo_path->absolute . "/" . $not_valid_ie_dir;
my $file = "test.txt";
my $file2 = "test+.txt";
if(! -d $export_dir_kitodo_path) {
mkdir $export_dir_kitodo_path or die "Error creating directory: $export_dir_kitodo_path";
if(! -d $export_dir_kitodo_path->child($valid_ie_dir)) {
mkdir $export_dir_kitodo_path->child($valid_ie_dir) or die "Error creating directory: $export_dir_kitodo_path->child($valid_ie_dir)";
if(! -f $export_dir_kitodo_path->child($valid_ie_dir)->child($file)) {
open FILE, '>'.$export_dir_kitodo_path->child($valid_ie_dir)->child($file) or die "Unable to create $file";
close FILE;
}
}
if(! -d $export_dir_kitodo_path->child($not_valid_ie_dir)) {
mkdir $export_dir_kitodo_path->child($not_valid_ie_dir) or die "Error creating directory: $export_dir_kitodo_path->child($not_valid_ie_dir)";
if(! -f $export_dir_kitodo_path->child($not_valid_ie_dir)->child($file2)) {
open FILE, '>'.$export_dir_kitodo_path->child($not_valid_ie_dir)->child($file2) or die "Unable to create $file";
close FILE;
}
}
if(! -d $export_dir_kitodo_path) { mkdir $export_dir_kitodo_path or die "Error creating directory: $export_dir_kitodo_path"; }
if(! -d $export_dir_kitodo_path->child($valid_ie_dir)) { mkdir $export_dir_kitodo_path->child($valid_ie_dir) or die "Error creating directory: $export_dir_kitodo_path->child($valid_ie_dir)"; }
if(! -f $export_dir_kitodo_path->child($valid_ie_dir)->child($file)) {
open FILE, '>'.$export_dir_kitodo_path->child($valid_ie_dir)->child($file) or die "Unable to create $file";
close FILE;
}
if(! -d $export_dir_kitodo_path->child($not_valid_ie_dir)) { mkdir $export_dir_kitodo_path->child($not_valid_ie_dir) or die "Error creating directory: $export_dir_kitodo_path->child($not_valid_ie_dir)"; }
if(! -f $export_dir_kitodo_path->child($not_valid_ie_dir)->child($file2)) {
open FILE, '>'.$export_dir_kitodo_path->child($not_valid_ie_dir)->child($file2) or die "Unable to create $file";
close FILE;
}
my $mysip_path = path(__FILE__)->parent->parent->child('tmp')->child('mysip');
if(! -d $mysip_path->parent) { mkdir $mysip_path->parent or die "Error creating directory: tmp";}
if(! -d $mysip_path) { mkdir $mysip_path or die "Error creating directory: $mysip_path";}
Loading