/[libconf]/libconf/perl-Libconf/Glueconf/test/resolv/test.pl
ViewVC logotype

Diff of /libconf/perl-Libconf/Glueconf/test/resolv/test.pl

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

revision 1.1 by dams, Tue Apr 22 23:16:48 2003 UTC revision 1.2 by dams, Fri May 2 10:58:28 2003 UTC
# Line 6  use Data::Dumper; Line 6  use Data::Dumper;
6  my $resolv = new Libconf::Glueconf::Resolv('resolv.conf');  my $resolv = new Libconf::Glueconf::Resolv('resolv.conf');
7  print Data::Dumper->Dump([$resolv], ['resolv']) . "\n";  print Data::Dumper->Dump([$resolv], ['resolv']) . "\n";
8    
9  #$resolv->readConf();  #$resolv->{search}->[3] = 'mdk.fr';
10    push(@{$resolv->{nameserver}}, '192.168.76.7');
11    
12  #print Data::Dumper->Dump([$resolv], ['resolv']) . "\n";  print Data::Dumper->Dump([$resolv], ['resolv']) . "\n";
13    
14    splice(@{$resolv->{nameserver}}, 1, 2, '192.168.76.222', '192.168.76.223');
15    
16    print Data::Dumper->Dump([$resolv], ['resolv']) . "\n";
17    #$resolv->writeConf();
18    
 #$resolv->{DEVICE} = 'eth1';  
19    
20  #print Data::Dumper->Dump([$resolv], ['resolv']) . "\n";  #print Data::Dumper->Dump([$resolv], ['resolv']) . "\n";
21    

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