*** empty log message ***

diff --git a/disks/data2tape.pl b/disks/data2tape.pl
index 90a513680df88edbbbd15352de7edcca2922ec1a..61f76384730e2f01e8990704e5d68a72acabb8c7 100755 (executable)
--- a/disks/data2tape.pl
+++ b/disks/data2tape.pl
@@ -24,6 +24,11 @@ GetOptions ('h|help'      => \$opt_help,
             'p|prefix=s'  => \@prefix_list,
            'a|arch'      => \$opt_arch);
 
+if( $opt_help ) {
+    &help();
+    exit(0);
+}
+
 if(-1 == &checkArgs()){
     exit(0);
 }
@@ -39,6 +44,32 @@ exit(0);
 
 ########################### END OF MAIN ############################
 
+sub help()
+{
+    print "\n";
+    print << 'EOF';
+date2tape.pl
+
+This script archives the data if the data were not archived during
+data taking automatically via RFIO.
+
+Usage:
+
+   Command line:  date2tape.pl
+   [-h|--help]               : Show this help.
+   [-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.
+
+Examples:
+
+   Archive all hld files with prefixes 'st' and 'be' from sept 4th, 2010:
+   date2tape.pl -p be -p st -s 2010-09-04_00:00:00 -e 2010-09-04_23:59:59 -a
+
+EOF
+}
+
 sub checkArgs()
 {
     my $retval = 0;