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 36 Options: | Line 36 Options: |
36 | exit ((scalar(@ARGV) < 1)? 1:0); | exit ((scalar(@ARGV) < 1)? 1:0); |
37 | } | } |
38 | ||
39 | $RServ::quiet = !$verbose; | |
40 | if ($debug) { | |
41 | $RServ::quiet = 0; | |
42 | no warnings 'vars'; | |
43 | $RServ::debug = $debug; | |
44 | } | |
45 | ||
46 | my $dbname = $ARGV[0]; | my $dbname = $ARGV[0]; |
47 | ||
48 | my $sinfo = "dbname=$dbname"; | my $sinfo = "dbname=$dbname"; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |