Plagger::Plugin::Publish::Gmail改良後

Perl Plagger

とりあえず、遠慮気味に少し変更してみました。
自分で、ライブラリを変更したい時は、継承して対応したほうが良いかなぁ。
さて、実家変える準備しないと…



    - module: Publish::Gmail

      config:

       mailto: xxxxxxxxxxxx+test@gmail.com

       mailfrom: xxxxxxxxxxxxxxx+plagger@gmail.com

       mailroute:

        via: smtp_tls

        host: smtp.gmail.com:587

        username: xxxxxxxxxxx@gmail.com

        password: xxxxxxxxxxxxxxx

       not_recommend:

        custom_message_id : 'mx.gmail.com'




13a14

> use Digest::MD5 qw(md5_hex);

77,83c78,93<     my $msg = MIME::Lite->new(<         Date => $now->format('Mail'),<         From => encode('MIME-Header', qq("$feed_title" <$cfg->{mailfrom}>)),<         To   => $cfg->{mailto},<         Subject => encode('MIME-Header', $subject),<         Type => 'multipart/related',<     );



    

  • 

      

    • -
      • 

    • 

>     my %mail_header

>         = (

>             Date => $now->format('Mail'),

>             From => encode('MIME-Header', qq("$feed_title" <$cfg->{mailfrom}>)),

>             To   => $cfg->{mailto},

>             Subject => encode('MIME-Header', $subject),

>             Type => 'multipart/related',

>         );


>     if( $cfg->{not_recommend}{custom_message_id} ) {
>         $mail_header{'Message-ID'}
>             =  '<' . md5_hex($feed->link ) . '@'
>                . $cfg->{not_recommend}{custom_message_id} .'>';
>     }
>     my $msg = MIME::Lite->new( %mail_header );