From 824b458a2526ed8b2e6628a77fd21510e7dc7d4e Mon Sep 17 00:00:00 2001 From: Arnaud Desmons Date: Thu, 19 Sep 2002 10:09:26 +0000 Subject: added dhcp check --- client_wizard/scripts/Clientconf.pm | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'client_wizard/scripts') diff --git a/client_wizard/scripts/Clientconf.pm b/client_wizard/scripts/Clientconf.pm index 44a72482..f2454dba 100644 --- a/client_wizard/scripts/Clientconf.pm +++ b/client_wizard/scripts/Clientconf.pm @@ -1,8 +1,8 @@ #!/usr/bin/perl package Clientconf; -require "__WIZ_HOME__/common/scripts/Vareqval.pm"; -require "__WIZ_HOME__/common/scripts/DrakconnectConf.pm"; +require "/home/logarno/soft/wizard_perl/test/common/scripts/Vareqval.pm"; +require "/home/logarno/soft/wizard_perl/test/common/scripts/DrakconnectConf.pm"; use MDK::Common; use strict; use standalone; @@ -19,6 +19,11 @@ sub ip { $wiz_ip_server; } +sub check { + $> and return 1; + $o->is_dhcp() and return 2; + 0; +} sub up_serial { my ($file) = @_; -- cgit v1.2.1