-
Notifications
You must be signed in to change notification settings - Fork 111
/
BasicAuthor.pm
117 lines (90 loc) · 2.51 KB
/
BasicAuthor.pm
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
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
# Movable Type (r) (C) 2001-2018 Six Apart, Ltd. All Rights Reserved.
# This code cannot be redistributed without permission from www.sixapart.com.
# For more information, consult your Movable Type license.
#
# $Id$
package MT::BasicAuthor;
# fake out the require for this package since we're
# declaring it inline...
use strict;
use warnings;
use base qw( MT::Object );
__PACKAGE__->install_properties(
{ column_defs => {
'id' => 'integer not null auto_increment',
'name' => 'string(50) not null',
'password' => 'string(124) 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 .. 16;
my $crypt_sha;
if ( eval { require Digest::SHA } ) {
# Can use SHA512
$crypt_sha
= '$6$'
. $salt . '$'
. Digest::SHA::sha512_base64( $salt . $pass );
}
else {
# Use SHA-1 algorism
$crypt_sha
= '{SHA}'
. $salt . '$'
. MT::Util::perl_sha1_digest_hex( $salt . $pass );
}
$auth->column( 'password', $crypt_sha );
}
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