Changeset 197

Timestamp:

Dec 6, 2004, 10:26:58 PM (20 years ago)

Author:

joergs

Message:

added comments. cleanup

File:

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

trunk/dasscm/dasscm

@@ -22 +22 @@
 # command line options get stored in options hash
 my %options = (); 
+# subcommand, that gets executed (add, commit, ...)
 my $command;
 
@@ -241 +242 @@
 
 my $number_arguments = @ARGV;
-#print "$number_arguments\n";
 
 if ($number_arguments > 0) {
@@ -251 +251 @@
         # get command line options and store them in options hash
         my $result = GetOptions ( \%options, 'message=s' );
+        # print options
         foreach my $option (keys %options) {
                 print $option.": ".$options{$option}."\n";