[Po4a-commits] "po-debconf podebconf-report-po,1.55,1.56"

[Nicolas FRANCOIS]

Update of /cvsroot/po4a/po-debconf
In directory alioth:/tmp/cvs-serv24973

Modified Files:
	podebconf-report-po 
Log Message:
Do not use a default deadline, but prompt for a deadline if non is
specified.


Index: podebconf-report-po
===================================================================
RCS file: /cvsroot/po4a/po-debconf/podebconf-report-po,v
retrieving revision 1.55
retrieving revision 1.56
diff -u -d -r1.55 -r1.56
--- podebconf-report-po	8 May 2008 21:59:43 -0000	1.55
+++ podebconf-report-po	9 May 2008 21:58:42 -0000	1.56
@@ -317,8 +317,17 @@
 } elsif ($conf =~ m/^deadline\s*(?:\s|=)\s*(.*)$/m) {
 	$DEADLINE_ARG = $1;
 } else {
+	print "
+You should specify a deadline to help translators organize their work.
+This deadline is usually the date you are planning to make the next
+release (or the day before).
+Deadline? [+10days] ";
+	chomp($DEADLINE_ARG = <STDIN>);
+
 	# The default deadline is +10days
-	$DEADLINE_ARG = "+10days";
+	if ($DEADLINE_ARG eq "") {
+		$DEADLINE_ARG = "+10days";
+	}
 }
 
 if (defined $NO_LANGUAGETEAM) {
@@ -490,7 +499,7 @@
 }
 
 if ($DEADLINE_ARG ne "") {
-	$DEADLINE_ARG = "\nThe deadline for receiving the updated translation is\n$DEADLINE_ARG.";
+	$DEADLINE_ARG = "\n\nThe deadline for receiving the updated translation is\n$DEADLINE_ARG.";
 }
 
 my $REPLY = '';
@@ -957,7 +966,7 @@
 	my $body = shift;
 	my %To = ();
 
-	while ($body =~ s/#[ \t]*([^\n]*)\n//s) {
+	while ($body =~ s/^#[ \t]*([^\n]*)\n//s) {
 		my $comment = $1;
 		if ($comment =~ s/^##[ \t]*\[(?:\*|x|X)\][ \t]*([^:]*):[ \t]*([^\n]*)$//s) {
 			$To{$1} = $2;