[Po4a-commits] "po4a/lib/Locale/Po4a Po.pm,1.73,1.74"
Nicolas FRANCOIS
nekral-guest at alioth.debian.org
Sat Mar 24 21:49:43 CET 2007
Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory alioth:/tmp/cvs-serv25609/lib/Locale/Po4a
Modified Files:
Po.pm
Log Message:
Add options --msgid-bugs-address and --copyright-holder.
Add support for global options in the configuration file.
Index: Po.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Po.pm,v
retrieving revision 1.73
retrieving revision 1.74
diff -u -d -r1.73 -r1.74
--- Po.pm 24 Mar 2007 12:04:44 -0000 1.73
+++ Po.pm 24 Mar 2007 20:49:41 -0000 1.74
@@ -145,6 +145,8 @@
# $options = ref($options) || $options;
$self->{options}{'porefs'}= 'full';
+ $self->{options}{'msgid-bugs-address'}= undef;
+ $self->{options}{'copyright-holder'}= "Free Software Foundation, Inc.";
foreach my $opt (keys %$options) {
if ($options->{$opt}) {
die wrap_mod("po4a::po", dgettext ("po4a", "Unknown option: %s"), $opt) unless exists $self->{options}{$opt};
@@ -163,12 +165,15 @@
$self->{count_doc}=0;
$self->{header_comment}=
escape_text( " SOME DESCRIPTIVE TITLE\n"
- ." Copyright (C) YEAR Free Software Foundation, Inc.\n"
+ ." Copyright (C) YEAR ".$self->{options}{'copyright-holder'}."\n"
." FIRST AUTHOR <EMAIL\@ADDRESS>, YEAR.\n"
." \n"
.", fuzzy");
# $self->header_tag="fuzzy";
$self->{header}=escape_text("Project-Id-Version: PACKAGE VERSION\n".
+ ((defined $self->{options}{'msgid-bugs-address'})?
+ "Report-Msgid-Bugs-To: ".$self->{options}{'msgid-bugs-address'}."\n":
+ "").
"POT-Creation-Date: $date\n".
"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n".
"Last-Translator: FULL NAME <EMAIL\@ADDRESS>\n".
@@ -176,6 +181,7 @@
"MIME-Version: 1.0\n".
"Content-Type: text/plain; charset=CHARSET\n".
"Content-Transfer-Encoding: ENCODING");
+
$self->{encoder}=find_encoding("ascii");
# To make stats about gettext hits
More information about the Po4a-commits
mailing list