[Tcldrop/CVS] tcldrop tcldrop

[Philip Moore]

CVSROOT:        /cvsroot/tcldrop
Module name:    tcldrop
Branch:         
Changes by:     Philip Moore <address@hidden>   03/11/04 12:15:11

Modified files:
        .              : tcldrop 

Log message:
        Added support for -v and -h command line parameters.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/tcldrop/tcldrop/tcldrop.diff?tr1=1.4&tr2=1.5&r1=text&r2=text

Patches:
Index: tcldrop/tcldrop
diff -u tcldrop/tcldrop:1.4 tcldrop/tcldrop:1.5
--- tcldrop/tcldrop:1.4 Tue Nov  4 07:04:17 2003
+++ tcldrop/tcldrop     Tue Nov  4 12:15:08 2003
@@ -2,7 +2,7 @@
 # The next line restarts using tclsh \
 exec tclsh8.3 "$0" ${1+"$@"}
 
-# $Id: tcldrop,v 1.4 2003/11/04 12:04:17 fireegl Exp $
+# $Id: tcldrop,v 1.5 2003/11/04 17:15:08 fireegl Exp $
 #
 # Copyright (C) 2003 FireEgl (Philip Moore) <address@hidden>
 #
@@ -56,6 +56,23 @@
                        {-c} { variable channel-stats 1 }
                        {-t} { variable simulate-dcc 1 }
                        {-m} { variable userfile-create 1 }
+                       {-v} {
+                               puts "Tcldrop v$::tcldrop::version (C) 2003 
FireEgl"
+                               exit 0
+                       }
+                       {-h} {
+                               puts "Tcldrop v$::tcldrop::version (C) 2003 
FireEgl
+
+Command line arguments:
+  -h   help
+  -v   print version and exit
+  -n   don't go into the background
+  -c   (with -n) display channel stats every 10 seconds
+  -t   (with -n) use terminal to simulate dcc-chat
+  -m   userfile creation mode
+  optional config filename (default 'tcldrop.conf')\n"
+                               exit 0
+                       }
                        {default} { lappend configs $a }
                }
        }