Parent Directory | Revision Log | Patch
revision 1.4 by dpavlin, Tue Aug 5 21:10:28 2003 UTC | revision 1.5 by dpavlin, Tue Aug 5 21:43:24 2003 UTC | |
---|---|---|
# | Line 38 Options: | Line 38 Options: |
38 | exit ((scalar(@ARGV) < 2)? 1:0); | exit ((scalar(@ARGV) < 2)? 1:0); |
39 | } | } |
40 | ||
41 | $RServ::quiet = !$verbose; | |
42 | if ($debug) { | |
43 | $RServ::quiet = 0; | |
44 | no warnings 'vars'; | |
45 | $RServ::debug = $debug; | |
46 | } | |
47 | ||
48 | my $dbname = $ARGV[0]; | my $dbname = $ARGV[0]; |
49 | my $howold = $ARGV[1]; | my $howold = $ARGV[1]; |
50 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |