From 8663144f1f5a3d163119f17a7f9c06655e32727a Mon Sep 17 00:00:00 2001 From: Guilhem Moulin Date: Tue, 17 Apr 2012 01:25:28 +0200 Subject: OO Perl library for our LDAP schema. --- lib/Fripost/Schema/Result/Alias.pm | 52 -------------------------- lib/Fripost/Schema/Result/Domain.pm | 51 ------------------------- lib/Fripost/Schema/Result/Mailbox.pm | 72 ------------------------------------ 3 files changed, 175 deletions(-) delete mode 100644 lib/Fripost/Schema/Result/Alias.pm delete mode 100644 lib/Fripost/Schema/Result/Domain.pm delete mode 100644 lib/Fripost/Schema/Result/Mailbox.pm (limited to 'lib/Fripost/Schema/Result') diff --git a/lib/Fripost/Schema/Result/Alias.pm b/lib/Fripost/Schema/Result/Alias.pm deleted file mode 100644 index 4d9306c..0000000 --- a/lib/Fripost/Schema/Result/Alias.pm +++ /dev/null @@ -1,52 +0,0 @@ -package Fripost::Schema::Result::Alias; - -use 5.010_000; -use warnings; -use strict; - -use base qw/DBIx::Class::Core/; - -# mysql> describe alias; -# +-------------+--------------+------+-----+---------------------+-------+ -# | Field | Type | Null | Key | Default | Extra | -# +-------------+--------------+------+-----+---------------------+-------+ -# | address | varchar(255) | NO | PRI | | | -# | goto | text | NO | | NULL | | -# | 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 | | -# +-------------+--------------+------+-----+---------------------+-------+ -# 6 rows in set (0.00 sec) - -__PACKAGE__->load_components(qw/InflateColumn::DateTime/); - -__PACKAGE__->table('alias'); -__PACKAGE__->add_columns(qw/ address goto domain create_date change_date 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('address'); - -=head1 NAME - -Fripost::Schema::Result::Alias - - -=head1 AUTHOR - -Stefan Kangas C<< >> - -=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 Alias.pm diff --git a/lib/Fripost/Schema/Result/Domain.pm b/lib/Fripost/Schema/Result/Domain.pm deleted file mode 100644 index 36649de..0000000 --- a/lib/Fripost/Schema/Result/Domain.pm +++ /dev/null @@ -1,51 +0,0 @@ -package Fripost::Schema::Result::Domain; - -use 5.010_000; -use warnings; -use strict; - -use base qw/DBIx::Class::Core/; - -# mysql> describe domain; -# +-------------+--------------+------+-----+---------------------+-------+ -# | Field | Type | Null | Key | Default | Extra | -# +-------------+--------------+------+-----+---------------------+-------+ -# | domain | varchar(255) | NO | PRI | | | -# | description | varchar(255) | NO | | | | -# | create_date | datetime | NO | | 0000-00-00 00:00:00 | | -# | change_date | timestamp | NO | | CURRENT_TIMESTAMP | | -# | active | tinyint(4) | NO | | 1 | | -# +-------------+--------------+------+-----+---------------------+-------+ -# 5 rows in set (0.00 sec) - -__PACKAGE__->load_components(qw/InflateColumn::DateTime/); - -__PACKAGE__->table('domain'); -__PACKAGE__->add_columns(qw/ domain description create_date change_date 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('domain'); - -=head1 NAME - -Fripost::Schema::Result::Domain - - -=head1 AUTHOR - -Stefan Kangas C<< >> - -=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 Domain.pm diff --git a/lib/Fripost/Schema/Result/Mailbox.pm b/lib/Fripost/Schema/Result/Mailbox.pm deleted file mode 100644 index 48d81fb..0000000 --- a/lib/Fripost/Schema/Result/Mailbox.pm +++ /dev/null @@ -1,72 +0,0 @@ -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<< >> - -=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 -- cgit v1.2.3