[Po4a-commits] "po4a/lib/Locale/Po4a Po.pm,1.73,1.74"

[Nicolas FRANCOIS]

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