Re: ddts-script
Le jeudi 8 novembre 2001, Nicolas Bertolissio écrit :
> Je confirme donc à tout le monde que c'est un bogue du ddts, j'ai envoyé
> un patch à Grisu, j'attend sa réponse.
Le problème est réglé.
Voici en plus quelques corrections.
changelog:
version 0.1.1
- change: mail subject contains package name
- change: comment line maximum length is 94 (instead of 75)
- add: accept any filename beginning with `new.' for attachment containing
descriptions to translate
La version conplète est ici :
http://perso.wanadoo.fr/nico.bertol/ddts/ddts-script.txt
La rustine est en attachement
Nicolas
--
--- ddts-script_0.1.txt Fri Nov 9 13:58:45 2001
+++ ddts-script_0.1.1.txt Fri Nov 9 14:00:01 2001
@@ -204,7 +204,7 @@
=cut
-my $version = "0.1";
+my $version = "0.1.1";
# Test if configuration as been made
if (! -d $tr_dir) {
@@ -507,7 +507,7 @@
while (<UU>) {
if (defined && /^# Package\(?s\)?: (\S+)/) {
- # DDTS -------------------------- \(s\)
+# DDTS ---------------------------------- \(s\) -
chomp ($package = $1);
$debug && $debug<3 && print "package: $package\n";
@@ -594,7 +594,7 @@
&parse_translation($package, $langage, $description, $translation, $db_translation, $message_id);
} elsif ($uu_file eq "$temp_dir/ddts-newreview-$$") {
&parse_review($package, $langage, $description, &uncomment($translation, "## "), $message_id);
- # DDTS ---------------------------------------------------------------- $translation
+# DDTS ------------------------------------------------------------------------ $translation ------------------
} else {
&parse_bug($package, $langage, $description, $translation, $db_translation, $bug_number, $reviewer_addr, $message_id);
}
@@ -893,6 +893,7 @@
next unless (defined $filename);
0, until (<> =~ /^$/);
+ $filename =~ s/^new(\..*)?/new/; # new\..* contains descriptions to translate
open FILE, ">$temp_dir/ddts-$filename-$$" || die "Can't create temp file `ddts-$filename-$$': $!";
print FILE "begin-base64 400 $temp_dir/ddts-$filename-$$\n";
print FILE $_ until (($_=<>) =~ /^$/);
@@ -943,7 +944,7 @@
$count++;
next if (/^# /);
- s/^## [+#-]# ?//;
+ s/^## [+#-]#.{0,14}//;
next unless (length($_) > 81);
next unless ((!$count) && (length($_) > 80));
@@ -1007,7 +1008,7 @@
print SENDMAIL "From: $mail_addr\n"
."To: ".($debug==9?"$mail_addr":$mail_ddts)."\n";
print SENDMAIL "Cc: $mail_addr\n" if ($mail_self eq "yes");
- print SENDMAIL "Subject: get 0 fr noguide\n"
+ print SENDMAIL "Subject: nothing fr $file\n"
."In-Reply-To: ".$messages[0]."\n"
."References: ".join(" ", @messages)."\n"
."Mime-Version: 1.0\n"
@@ -1055,7 +1056,7 @@
print SENDMAIL "From: $mail_addr\n"
."To: ".($debug==9?"$mail_addr":$mail_ddts)."\n";
print SENDMAIL "Cc: $mail_addr\n" if ($mail_self eq "yes");
- print SENDMAIL "Subject: review 0 fr noguide\n"
+ print SENDMAIL "Subject: nothing fr $file\n"
."In-Reply-To: ".$messages[0]."\n"
."Mime-Version: 1.0\n"
."Content-Type: multipart/mixed; boundary=\"$boundary\"\n"
Reply to: