1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
|
# Movable Type (r) Open Source (C) 2001-2008 Six Apart, Ltd.
# This program is distributed under the terms of the
# GNU General Public License, version 2.
#
# $Id: BasicAuthor.pm 1174 2008-01-08 21:02:50Z bchoate $
package MT::BasicAuthor;
# fake out the require for this package since we're
# declaring it inline...
use base qw( MT::Object );
__PACKAGE__->install_properties({
column_defs => {
'id' => 'integer not null auto_increment',
'name' => 'string(50) not null',
'password' => 'string(60) not null',
'email' => 'string(75)',
'hint' => 'string(75)',
},
indexes => {
name => 1,
email => 1,
},
datasource => 'author',
primary_key => 'id',
});
sub nickname {
my $author = shift;
$author->name;
}
sub is_valid_password {
my $author = shift;
my($pass, $crypted, $error_ref) = @_;
$pass ||= '';
require MT::Auth;
return MT::Auth->is_valid_password($author, $pass, $crypted, $error_ref);
}
sub set_password {
my $auth = shift;
my($pass) = @_;
my @alpha = ('a'..'z', 'A'..'Z', 0..9);
my $salt = join '', map $alpha[rand @alpha], 1..2;
$auth->column('password', crypt $pass, $salt);
}
sub magic_token {
my $auth = shift;
require MT::Util;
my $pw = $auth->column('password');
if ($pw eq '(none)') {
$pw = $auth->id . ';' . $auth->name . ';' . ($auth->email || '') . ';' . ($auth->hint || '');
}
require MT::Util;
MT::Util::perl_sha1_digest_hex($pw);
}
# trans('authors');
1;
__END__
=head1 NAME
MT::BasicAuthor
=head1 METHODS
=head2 $author->is_valid_password($pass, $crypted, $error_ref)
Return the value of L<MT::Auth/is_valid_password>
=head2 $author->set_password
Set the I<$author> password with the perl C<crypt> function.
=head2 $author->magic_token()
Return the value of L<MT::Util/perl_sha1_digest_hex> for the I<password> column.
=head1 AUTHOR & COPYRIGHT
Please see L<MT/AUTHOR & COPYRIGHT>.
=cut
|
