version 1.2, 2002/01/31 17:32:25
|
version 1.3, 2002/01/31 17:37:19
|
Line 30
|
Line 30
|
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
# YEAR=2002 |
# YEAR=2002 |
# 1/28 - Scott Harrison |
# 1/28,1/29,1/30,1/31 - Scott Harrison |
# |
# |
### |
### |
|
|
Line 76 END
|
Line 76 END
|
# ------------------------------------------------- Grab command line arguments |
# ------------------------------------------------- Grab command line arguments |
|
|
my $mode; |
my $mode; |
if (@ARGV==4) { |
if (@ARGV==3) { |
$mode = shift @ARGV; |
$mode = shift @ARGV; |
} |
} |
else { |
else { |