Changeset 189 for trunk/dasscm/dasscm

Timestamp:

Nov 10, 2004, 9:53:48 AM (19 years ago)

Author:

joergs

Message:

added help

File:

• trunk/dasscm/dasscm (modified) (3 diffs)

trunk/dasscm/dasscm

@@ -13 +13 @@
 #use POSIX qw/getpgrp tcgetpgrp/;
 
+#####################################################################
+#
 # global
+#
 my $SVN = "svn ";
 
+#####################################################################
+#
 # util functions
+#
 sub usage()
 {
-        print "dasscm is intended to help versioning configuration files\n";
+        print "dasscm is intended to help versioning configuration files\n\n";
+        
+        print "usage: dasscm <subcommand> [options] [args]\n\n";
+        print "Available subcommands:\n";
+        print "   add <filename>\n";
+        print "   commit <filename>\n";
+        print "   diff <filename>\n";
+        print "   help <subcommand>\n";
 }
 
@@ -91 +104 @@
 
 
-
+#####################################################################
+#
 # functions
 
 sub help(;@)
 {
-        print "help for @_\n";
+        if( @_ == 0 ) {
+                usage();
+        } else {
+                print "help for @_: ...\n";
+        }
 }
 
@@ -173 +191 @@
 }
 
+#####################################################################
+#
 # main
+#
 
 my $number_arguments = @ARGV;