Skip to content
Snippets Groups Projects
Commit a0998ad2 authored by Andreas Romeyke's avatar Andreas Romeyke
Browse files

Merge branch '3-Bug_Fix_beim_Dateien_Erstellung' into 'master'

Bug Fix beim Ordner bzw. Test Dateien Erstellung

See merge request slub-digitalpreservation/SLUB_SIP_Builder!2
parents 528b97ad ff3fcfcd
Branches
Tags
1 merge request!2Bug Fix beim Ordner bzw. Test Dateien Erstellung
......@@ -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";}
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment