*** empty log message ***

diff --git a/disks/data2tape.pl b/disks/data2tape.pl
index 61f76384730e2f01e8990704e5d68a72acabb8c7..4508ae736960a2397cd74ec809c4cc4c6581da01 100755 (executable)
--- a/disks/data2tape.pl
+++ b/disks/data2tape.pl
@@ -12,17 +12,16 @@ use File::Basename;
 my $opt_help = 0;
 my $opt_startDate;
 my $opt_endDate;
-my @prefix_list = ("be");
+my @prefix_list = ();
 my @file_list;
 my $file_list_aref = \@file_list;
-my $archive = "hadessep10raw";
-my $opt_arch = 0;
+my $opt_arch;
 
 GetOptions ('h|help'      => \$opt_help,
             's|start=s'   => \$opt_startDate,
             'e|end=s'     => \$opt_endDate,
             'p|prefix=s'  => \@prefix_list,
-           'a|arch'      => \$opt_arch);
+           'a|arch=s'    => \$opt_arch);
 
 if( $opt_help ) {
     &help();
@@ -60,7 +59,7 @@ Usage:
    [-s|--start <date_time>]  : Beginning of time interval.
    [-t|--end <date_time>]    : End of time interval.
    [-p|--prefix <prefix>]    : Archive only these prefixes.
-   [-a|--arch]               : Archiving is done only with this option enabled.
+   [-a|--arch <archive>]     : Archiving is done only with this option enabled.
 
 Examples:
 
@@ -124,8 +123,8 @@ sub getFileList()
 
        foreach my $hldfile (@data){
 
-           #- File size must be above 1kB
-           next if(stat($hldfile)->size < 1024);
+           #- File size must be above 1 MB
+           next if(stat($hldfile)->size < 1024000);
 
            #- Check prefix
            if($hldfile =~ /(\w{2})\d+\.hld/){
@@ -154,16 +153,22 @@ sub archive()
 
     print "Number of files to archive: $nrOfFiles\n\n";
 
-    if($opt_arch){
-       print "The data will be written to the $archive archive!\n";
+    #- Return if nrOfFiles is zero
+    return 0 unless($nrOfFiles);
+
+    if(defined $opt_arch){
+       print "The data will be written to the $opt_arch archive!\n";
        &askUser();
     }
 
     foreach my $hldfile (@file_list){
+       
+       my $archive = "archive";
+       $archive = $opt_arch if( defined $opt_arch);
 
        my $cmd = "gstore arch \"$hldfile\" $archive \"hld\"";
        print "cmd: $cmd\n";
-       system($cmd) if($opt_arch);
+       system($cmd) if( defined $opt_arch);
     }
 }