diff options
author | Denis Barbier <barbier> | 2002-05-29 00:50:52 +0000 |
---|---|---|
committer | Denis Barbier <barbier> | 2002-05-29 00:50:52 +0000 |
commit | e20118d0bbf8568d4b9678336f268d645365689e (patch) | |
tree | 1ad383d44064ca1da6f2d3800701f8755a294b73 /check_trans.pl | |
parent | c641e39d4307bd7364e9a86abdfc909f4a9e85de (diff) |
Add a -c flag to define charset used in mails
CVS version numbers
check_trans.pl: 1.47 -> 1.48
Diffstat (limited to 'check_trans.pl')
-rwxr-xr-x | check_trans.pl | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/check_trans.pl b/check_trans.pl index c0076a03ef4..d57c0652bb9 100755 --- a/check_trans.pl +++ b/check_trans.pl @@ -12,7 +12,7 @@ # Invocation: # check_trans.pl [-vqdlM] [-C dir] [-p pattern] [-s subtree] -# [-m email -n N] [-g] [-t outputtype] +# [-m email -n N] [-c charset] [-g] [-t outputtype] # [language] # It needs to be run from the top level webwml directory. @@ -45,6 +45,7 @@ # (it should be the list used for organisation, # e.g. debian-l10n-french@lists.debian.org) # -g debuG +# -c <charset> charset used in mails # -n <1|2|3> send mails of priority upper or equal to # 1 (monthly), 2 (weekly) or 3 (daily) @@ -97,13 +98,13 @@ my %translators;# the real hash my $maintainer = "mquinson\@ens-lyon.fr"; # the default e-mail at which to bitch :-) # options (note: with perl 5.6, this could change to our()) -use vars qw($opt_C $opt_M $opt_Q $opt_d $opt_g $opt_l $opt_m $opt_n $opt_p $opt_q $opt_s $opt_t $opt_T $opt_v); +use vars qw($opt_C $opt_M $opt_Q $opt_c $opt_d $opt_g $opt_l $opt_m $opt_n $opt_p $opt_q $opt_s $opt_t $opt_T $opt_v); $opt_n = 5; # an invalid default $opt_s = ''; $opt_C = '.'; $opt_t = 'text'; -unless (getopts('vgdqQC:m:s:Tt:p:ln:M')) +unless (getopts('vgdqQC:m:c:s:Tt:p:ln:M')) { open SELF, "<$0" or die "Unable to display help: $!\n"; HELP: while (<SELF>) @@ -290,9 +291,11 @@ sub init_mails { } 1 while ($str =~ s/#(.*?)#/eval $1/ge); - $translators{$name}{"msg"}->attach( + my $part = MIME::Lite->new( Type => 'TEXT', Data => $str); + $part->attr('content-type.charset' => $opt_c) if $opt_c; + $translators{$name}{"msg"}->attach($part); $translators{$name}{"send"}=0; } } |