diff options
| author | fukachan <fukachan> | 2002-04-07 12:13:02 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-04-07 12:13:02 +0000 |
| commit | eab38d001d7f459bfe8c940d1905f72f92ff33d7 (patch) | |
| tree | b72f8c265c515429ec44e97601a731771a906210 /fml/lib/FML/Command/UserControl.pm | |
| parent | 98dde351410282433875892b6f589a8a0b5e33f1 (diff) | |
| download | fml8-eab38d001d7f459bfe8c940d1905f72f92ff33d7.tar.gz fml8-eab38d001d7f459bfe8c940d1905f72f92ff33d7.tar.bz2 fml8-eab38d001d7f459bfe8c940d1905f72f92ff33d7.zip | |
admin_member_passwd_maps -> admin_member_password_maps
more friendly variable name syntax
more comments, documents
Diffstat (limited to 'fml/lib/FML/Command/UserControl.pm')
| -rw-r--r-- | fml/lib/FML/Command/UserControl.pm | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/fml/lib/FML/Command/UserControl.pm b/fml/lib/FML/Command/UserControl.pm index 734ac1a9..acef9ef1 100644 --- a/fml/lib/FML/Command/UserControl.pm +++ b/fml/lib/FML/Command/UserControl.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: UserControl.pm,v 1.2 2002/03/30 11:08:34 fukachan Exp $ +# $FML: UserControl.pm,v 1.3 2002/04/01 12:41:40 fukachan Exp $ # package FML::Command::UserControl; @@ -12,7 +12,10 @@ use strict; use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD); use Carp; use File::Spec; +use FML::Credential; use FML::Log qw(Log LogWarn LogError); +use IO::Adapter; + =head1 NAME @@ -26,10 +29,6 @@ FML::Command::UserControl - utility functions to send back file(s) =cut -use IO::Adapter; -use FML::Credential; -use FML::Log qw(Log LogWarn LogError); - # Descriptions: standard constructor # Arguments: OBJ($self) @@ -59,7 +58,7 @@ sub useradd my $cred = new FML::Credential; unless ($cred->has_address_in_map($map, $address)) { my $obj = new IO::Adapter $map; - $obj->touch(); + $obj->touch(); # create a new map entry (e.g. file) if needed. $obj->add( $address ); unless ($obj->error()) { Log("add $address to map=$map"); |