5 |
|
|
6 |
#my $network = new Libconf::Glueconf::Shell('network'); |
#my $network = new Libconf::Glueconf::Shell('network'); |
7 |
my $sys_network = new Libconf::System::Network(); |
my $sys_network = new Libconf::System::Network(); |
8 |
|
$sys_network->readConf; |
9 |
#print Data::Dumper->Dump([$network->{libconf}], ['network']) . "\n" |
#print Data::Dumper->Dump([$network->{libconf}], ['network']) . "\n" |
10 |
print Data::Dumper->Dump([$sys_network], ['sys_network']) . "\n"; |
print Data::Dumper->Dump([$sys_network], ['sys_network']) . "\n"; |
11 |
|
|
12 |
|
#print "-------------\n"; |
13 |
|
#$sys_network->{general}{NETWORKING} = 'no'; |
14 |
print "-------------\n"; |
print "-------------\n"; |
15 |
$sys_network->{general}{NETWORKING} = 'no'; |
$sys_network->{interfaces}{lo}{ONBOOT} = 'no'; |
|
print "-------------\n"; |
|
|
$sys_network->{interfaces}{eth0}{ONBOOT} = 'no'; |
|
16 |
print "-------------\n"; |
print "-------------\n"; |
17 |
|
#$sys_network->writeConf; |
18 |
print Data::Dumper->Dump([$sys_network], ['sys_network']) . "\n"; |
print Data::Dumper->Dump([$sys_network], ['sys_network']) . "\n"; |
19 |
|
|
20 |
#print Data::Dumper->Dump([$network], ['network']) . "\n"; |
#print Data::Dumper->Dump([$network], ['network']) . "\n"; |