view release on metacpan or  search on metacpan

lib/HTTPD/UserAdmin.pm  view on Meta::CPAN

59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
sub group {
    my($self) = shift;
    $self->load('HTTPD::GroupAdmin');
    my %attr = %{$self};
    foreach(qw(DB _HASH)) {
        delete $attr{$_}; #just incase, everything else should be OK
    }
    return new HTTPD::GroupAdmin (%attr, @_);
}
 
sub update {
    my($self, $username, $passwd, @fields) = @_;
    return (0, "User '$username' does not exist") unless $self->exists($username);
    my ($old_encr, $bool);
    if (!defined $passwd) {
        $bool = 1;
        $passwd = $self->password($username);
        $old_encr = $self->{ENCRYPT};
        $self->{ENCRYPT} = 'none';
    }
    $self->delete($username);

lib/HTTPD/UserAdmin/DBM/netscape.pm  view on Meta::CPAN

83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
    return $self;
}
 
sub add {
    # deliberately get rid of additional info
    # since we don't understand Netscape format.
    my($self,$user,$passwd) = @_;
    $self->SUPER::add($user,$passwd);
}
 
sub update {
    my($self, $username, $passwd) = @_;
    $self->SUPER::update($username,$passwd);
}
             
1;

lib/HTTPD/UserAdmin/SQL.pm  view on Meta::CPAN

101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
 
sub delete {
    my($self, $username) = @_;
    my $statement = 
        sprintf("DELETE from %s where %s='%s'\n",
                @{$self}{qw(USERTABLE NAMEFIELD)}, $username);
    print STDERR $statement if $self->debug;
    $self->{'_DBH'}->do($statement) || Carp::croak($DBI::errstr);
}
 
sub update {
    my($self, $username, $passwd,$other) = @_;
    return 0 unless $self->exists($username);
 
    my(%f);
    if ($other) {
        Carp::croak('Specify other fields as a hash ref for SQL databases')
            unless ref($other) eq 'HASH';
          foreach (keys %{$other}) {
              $f{$_} = $other->{$_};
          }