summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakTermServ
diff options
context:
space:
mode:
authorStew Benedict <stewb@mandriva.org>2003-05-13 22:23:14 +0000
committerStew Benedict <stewb@mandriva.org>2003-05-13 22:23:14 +0000
commit915ea664660f1c7443f770350414a205c007fd11 (patch)
tree33e3723e39d65510eac1e4e925fe18ce74af3ce1 /perl-install/standalone/drakTermServ
parent31ed67610697d5ecadf0dd18e69b28d23b71544f (diff)
downloaddrakx-915ea664660f1c7443f770350414a205c007fd11.tar
drakx-915ea664660f1c7443f770350414a205c007fd11.tar.gz
drakx-915ea664660f1c7443f770350414a205c007fd11.tar.bz2
drakx-915ea664660f1c7443f770350414a205c007fd11.tar.xz
drakx-915ea664660f1c7443f770350414a205c007fd11.zip
perl_checker cleaning
Diffstat (limited to 'perl-install/standalone/drakTermServ')
-rwxr-xr-xperl-install/standalone/drakTermServ20
1 files changed, 10 insertions, 10 deletions
diff --git a/perl-install/standalone/drakTermServ b/perl-install/standalone/drakTermServ
index c6c4eb4ed..e5a4a95d2 100755
--- a/perl-install/standalone/drakTermServ
+++ b/perl-install/standalone/drakTermServ
@@ -121,16 +121,16 @@ if ("@ARGV" =~ /--deluser/) {
}
if ("@ARGV" =~ /--addclient/) {
- die "$0 $ARGV[0] requires hostname, MAC address, IP, nbi-image...\n" if $#ARGV < 4;
+ die "$0 $ARGV[0] requires hostname, MAC address, IP, nbi-image, 0/1 for THIN_CLIENT...\n" if $#ARGV < 5;
my $cmd_line = 1;
- addclient($cmd_line, $ARGV[1], $ARGV[2], $ARGV[3], $ARGV[4]);
+ addclient($cmd_line, $ARGV[1], $ARGV[2], $ARGV[3], $ARGV[4], $ARGV[5]);
exit(0);
}
if ("@ARGV" =~ /--delclient/) {
die "$0 $ARGV[0] requires hostname...\n" if $#ARGV < 1;
my $cmd_line = 1;
- delclient($cmd_line, $ARGV[1], $ARGV[2], $ARGV[3]);
+ delclient($cmd_line, $ARGV[1]);
exit(0);
}
@@ -139,14 +139,14 @@ interactive_mode() if $#ARGV < 1;
sub read_conf_file() {
if (-e $cfg_file) {
- local *CONF_FILE;
+ local *CONF_FILE;
open(CONF_FILE, "<" . $cfg_file) || print "You must be root to read configuration file. \n";
- local $_;
+ local $_;
while (<CONF_FILE>) {
- if (/^ALLOW_THIN/) {
- $thin_clients = 1;
- last;
- }
+ if (/^\bALLOW_THIN\b/) {
+ $thin_clients = 1;
+ last;
+ }
}
}
}
@@ -1015,7 +1015,7 @@ sub dhcpd_config() {
foreach (@resolve) {
@ifvalues = split / /;
- if ($ifvalues[0] =~ /nameserver/ && $i lt 4) {
+ if ($ifvalues[0] =~ /nameserver/ && $i < 4) {
$nservers[$i++] = $ifvalues[1];
}
}