blob: 48d81fb2ffbf96bfa496bb03afded5a747bd1822 (
plain)
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
|
package Fripost::Schema::Result::Mailbox;
use 5.010_000;
use warnings;
use strict;
use base qw/DBIx::Class::Core/;
use Fripost::Password;
# mysql> describe mailbox;
# +-------------+--------------+------+-----+---------------------+-------+
# | Field | Type | Null | Key | Default | Extra |
# +-------------+--------------+------+-----+---------------------+-------+
# | username | varchar(255) | NO | PRI | | |
# | password | varchar(255) | NO | | | |
# | name | varchar(255) | NO | | | |
# | maildir | varchar(255) | NO | | | |
# | domain | varchar(255) | NO | | | |
# | create_date | datetime | NO | | 0000-00-00 00:00:00 | |
# | change_date | timestamp | NO | | CURRENT_TIMESTAMP | |
# | active | tinyint(4) | NO | | 1 | |
# +-------------+--------------+------+-----+---------------------+-------+
# 8 rows in set (0.00 sec)
__PACKAGE__->load_components(qw/InflateColumn::DateTime/);
__PACKAGE__->table('mailbox');
__PACKAGE__->add_columns(qw/ username password name maildir domain active /);
__PACKAGE__->add_columns(
create_date => { data_type => 'datetime', timezone => "Europe/Stockholm", locale => 'sv_SE' },
change_date => { data_type => 'datetime', timezone => "Europe/Stockholm", locale => 'sv_SE' }
);
__PACKAGE__->set_primary_key('username');
=head2 store_column
override store_column to encrypt the password when stored
=cut
sub store_column {
my ($self, $col, $val) = @_;
if ($col eq 'password') {
$val = smd5($val);
}
return $self->next::method($col,$val);
}
=head1 NAME
Fripost::Schema::Result::Mailbox -
=head1 AUTHOR
Stefan Kangas C<< <skangas at skangas.se> >>
=head1 COPYRIGHT
Copyright 2010,2011 Stefan Kangas, all rights reserved.
=head1 LICENSE
This program is free software; you can redistribute it and/or modify it
under the same terms as perl itself.
=cut
1; # End of Mailbox.pm
|
