aboutsummaryrefslogtreecommitdiffstats
path: root/lib/Fripost/Schema/Result/Mailbox.pm
blob: 577c35020ffc1b40d3d3efab3664e3d80a08e518 (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
package Fripost::Schema::Result::Mailbox;

use 5.010_000;
use warnings;
use strict;

use base qw/DBIx::Class::Core/;

# 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 | datetime     | NO   |     | 0000-00-00 00:00:00 |       | 
# | 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 => "se_SV" },
    change_date => { data_type => 'datetime', timezone => "Europe/Stockholm", locale => "se_SV" }
);
  
__PACKAGE__->set_primary_key('username');

=head1 NAME

Fripost::Schema::Result::Mailbox - 

=head1 AUTHOR

Stefan Kangas C<< <skangas at skangas.se> >>

=head1 COPYRIGHT

Copyright 2010 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