Changeset 1970 for trunk/gsdl/bin/script/filecopy.pl

Timestamp:

2001-02-14T12:48:56+13:00 (23 years ago)

Author:

sjboddie

Message:

Added more usage information to all perl programs and removed a few
programs that are no longer useful.

File:

• trunk/gsdl/bin/script/filecopy.pl (modified) (2 diffs)

trunk/gsdl/bin/script/filecopy.pl

@@ -40 +40 @@
 
 sub print_usage {
+    print STDERR "\n";
+    print STDERR "filecopy.pl: Recursively copies files into a collections import directory.\n\n";
     print STDERR "\n  usage: $0 [options] [directories] collection-name\n\n";
 
@@ -45 +47 @@
     print STDERR "   -collectdir directory   Collection directory (defaults to " .
     &util::filename_cat ($ENV{'GSDLHOME'}, "collect") . ")\n";
-    print STDERR "   -out                  Filename or handle to print output status to.\n";
-    print STDERR "                         The default is STDERR\n\n";
+    print STDERR "   -out                    Filename or handle to print output status to.\n";
+    print STDERR "                           The default is STDERR\n\n";
 }