56 |
{-c} { variable channel-stats 1 } |
{-c} { variable channel-stats 1 } |
57 |
{-t} { variable simulate-dcc 1 } |
{-t} { variable simulate-dcc 1 } |
58 |
{-m} { variable userfile-create 1 } |
{-m} { variable userfile-create 1 } |
59 |
|
{-v} { |
60 |
|
puts "Tcldrop v$::tcldrop::version (C) 2003 FireEgl" |
61 |
|
exit 0 |
62 |
|
} |
63 |
|
{-h} { |
64 |
|
puts "Tcldrop v$::tcldrop::version (C) 2003 FireEgl |
65 |
|
|
66 |
|
Command line arguments: |
67 |
|
-h help |
68 |
|
-v print version and exit |
69 |
|
-n don't go into the background |
70 |
|
-c (with -n) display channel stats every 10 seconds |
71 |
|
-t (with -n) use terminal to simulate dcc-chat |
72 |
|
-m userfile creation mode |
73 |
|
optional config filename (default 'tcldrop.conf')\n" |
74 |
|
exit 0 |
75 |
|
} |
76 |
{default} { lappend configs $a } |
{default} { lappend configs $a } |
77 |
} |
} |
78 |
} |
} |