common/scripts/test.pl


1
2
3
4
5
6
7
8
9
10
11
12

use lib qw(/usr/lib/libDrakX);
package Dhcpconf;
require "IFCFG.pm";
#require "__WIZ_HOME__/common/scripts/DrakconnectConf.pm";
use MDK::Common;
use strict;
use standalone;

my $o = IFCFG->new();
print $o->is_dhcp() ? "toto\n" : "tata\n";
print $o->itf_get("IPADDR");
print $o->network_get("DOMAINNAME");