projects
/
app-edwardng.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Make template path customizable
[app-edwardng.git]
/
lib
/
App
/
EdwardNG.pm
diff --git
a/lib/App/EdwardNG.pm
b/lib/App/EdwardNG.pm
index 2d81020ea24ca6a287929f1b683cf3dc0844be3c..9a01dc03458e4a19f5b6c64e2f4cf402a4951cb9 100644
(file)
--- a/
lib/App/EdwardNG.pm
+++ b/
lib/App/EdwardNG.pm
@@
-9,6
+9,7
@@
our @EXPORT = qw/process_message/;
use Email::Sender::Simple qw/sendmail/;
use File::Slurp qw/read_file/;
use Email::Sender::Simple qw/sendmail/;
use File::Slurp qw/read_file/;
+use File::Spec::Functions qw/rel2abs/;
use Getopt::Long;
use MIME::Entity;
use MIME::Parser;
use Getopt::Long;
use MIME::Entity;
use MIME::Parser;
@@
-95,8
+96,10
@@
sub run {
'key=s' => \$ENV{EDWARDNG_KEY},
'keydir=s' => \$ENV{EDWARDNG_KEYDIR},
'passphrase=s' => \$ENV{EDWARDNG_PASSPHRASE},
'key=s' => \$ENV{EDWARDNG_KEY},
'keydir=s' => \$ENV{EDWARDNG_KEYDIR},
'passphrase=s' => \$ENV{EDWARDNG_PASSPHRASE},
+ 'tmpl-path=s' => \$ENV{EDWARDNG_TMPL_PATH},
'use-agent!' => \$ENV{EDWARDNG_USE_AGENT},
);
'use-agent!' => \$ENV{EDWARDNG_USE_AGENT},
);
+ my $tmpl_path = $ENV{EDWARDNG_TMPL_PATH} // 'en';
my $parser = MIME::Parser->new;
$parser->decode_bodies(0);
my $parser = MIME::Parser->new;
$parser->decode_bodies(0);
@@
-112,7
+115,7
@@
sub run {
$params{plaintext} = first_part $params{decrypted} if $params{decrypted};
$params{plaintext} = first_part $params{decrypted} if $params{decrypted};
- my $tt = Template->new(INCLUDE_PATH =>
'tmpl/en
');
+ my $tt = Template->new(INCLUDE_PATH =>
rel2abs $tmpl_path, 'tmpl
');
my $data;
$tt->process($tmpl, \%params, \$data);
my $email = MIME::Entity->build(
my $data;
$tt->process($tmpl, \%params, \$data);
my $email = MIME::Entity->build(
This page took
0.010313 seconds
and
4
git commands to generate.