Skip to content
Snippets Groups Projects
Commit ccd28a80 authored by Jens Steidl's avatar Jens Steidl :baby_chick:
Browse files

- addded comments

parent 7f6200ea
No related branches found
No related tags found
No related merge requests found
......@@ -277,10 +277,10 @@ sub get_mods_from ($$) { # $mods = ($url, $ppn)
sub main {
# get date
my $export_to_archive_date = DateTime->now->iso8601();#
my $export_to_archive_date = DateTime->now->iso8601();
my $file_date = $export_to_archive_date;
$file_date =~ s/T/_/g;
$file_date =~ s/:/-/g;
$file_date =~ s/T/_/g; # replace 'T' with '_'
$file_date =~ s/:/-/g; # replace ':' with '-'
# create output dir
if (! -d $output) {
mkpath("$output") || confess("could not create SIP directory for '$output', $!");
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment