lib/Lovers/LoveLetter.pm

   1 # Copyright (c) 2008 Movable Type ACME Plugin Project, All rights reserved.
   2 #
   3 # Permission is hereby granted, free of charge, to any person obtaining a copy
   4 # of this software and associated documentation files (the "Software"), to deal
   5 # in the Software without restriction, including without limitation the rights
   6 # to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
   7 # copies of the Software, and to permit persons to whom the Software is
   8 # furnished to do so, subject to the following conditions:
   9 #
  10 # The above copyright notice and this permission notice shall be included in
  11 # all copies or substantial portions of the Software.
  12 #
  13 # THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
  14 # IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
  15 # FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
  16 # AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
  17 # LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
  18 # OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
  19 # THE SOFTWARE.
  20
  21 package Lovers::LoveLetter;
  22 use strict;
  23 use warnings;
  24
  25 use MT::Object;
  26 use base qw( MT::Object );
  27
  28 __PACKAGE__->install_properties({
  29         column_defs => {
  30                 'id' => 'integer not null auto_increment',
  31
  32                 'letter_identifier' => 'string(255)',
  33                 'entry_id' => 'integer not null',
  34                 'template_id' => 'integer not null',
  35                 'author_id' => 'integer not null',
  36
  37                 'from' => 'string(255)',
  38                 'to' => 'string(255)',
  39                 'language' => 'string(10)',
  40
  41                 'sent_on' => 'datetime',
  42         },
  43         audit => 1,
  44         indexes => {
  45                 unique_letter => {
  46                         columns => [ 'letter_identifier', 'entry_id', 'template_id' ],
  47                 }
  48         },
  49         default => {
  50                 sent_on => '00000000000000',
  51         },
  52         datasource => 'love_letter',
  53         primary_key => 'id',
  54 });
  55
  56 sub mail_param {
  57         my $self = shift;
  58         my $app = MT->instance;
  59         my $param = $self->column_values;
  60         if (! $param->{'from'}) {
  61                 my $author_class = $app->model('author');
  62                 my $author = $author_class->load($param->{'author_id'});
  63                 $param->{'from'} =
  64                         $author->nickname . ' <' . $author->email . '>';
  65         }
  66
  67         $param;
  68 }
  69
  70 1;