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

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

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

revision 1.2 by dams, Thu Feb 20 17:24:38 2003 UTC revision 1.3 by chl, Sat Apr 12 16:34:15 2003 UTC
# Line 3  Line 3 
3  use Libconf::Glueconf::Autologin;  use Libconf::Glueconf::Autologin;
4  use Data::Dumper;  use Data::Dumper;
5    
6  my $autologin = new Libconf::Glueconf::Autologin(autologin);  my $autologin = new Libconf::Glueconf::Autologin('autologin');
7    
8  print "user : " . $autologin->getUser() . "\n";  print Data::Dumper->Dump([$autologin], ['autologin']) . "\n";
9  print "is autologin ? : ". $autologin->isAutologin() . "\n";  
10    $autologin->{USER} = 'chl';
11    $autologin->{AUTOLOGIN} = 'no';
12    
13    print Data::Dumper->Dump([$autologin], ['autologin']) . "\n";
14    
15    #print "user : " . $autologin->getUser() . "\n";
16    #print "is autologin ? : ". $autologin->isAutologin() . "\n";

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

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