/[libconf]/libconf/perl-Libconf/System/test/network/test.pl
ViewVC logotype

Diff of /libconf/perl-Libconf/System/test/network/test.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by dams, Thu May 8 14:36:42 2003 UTC revision 1.2 by dams, Sun May 25 12:36:59 2003 UTC
# Line 5  use Data::Dumper; Line 5  use Data::Dumper;
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";

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26