ddts-script 0.4

[Nicolas Bertolissio]

Bonjour,

le journal des modifications :
version 0.4
  - add:
    deal with non-script bug reports

Le script essaie de créé un rapport au bon format avant de mélanger les
rapports de relecture, il y a certainement un problème avec les
descriptions courtes.

La rustine est attachée, le script ici :
http://perso.wanadoo.fr/nico.bertol/ddts/ddts-script.txt


Nicolas
-- 

--- ddts-script_0.4.txt Tue Dec 11 20:40:52 2001
+++ ddts-script_0.3.2.txt       Sun Dec  9 23:32:25 2001
@@ -268,7 +268,7 @@
 
 =cut
 
-my $version = "0.3.2";
+my $version = "0.4";
 
 # Test if configuration as been made
 foreach ($tr_dir, $bug_dir, $rev_dir, $temp_dir) {
@@ -835,6 +835,17 @@
        $debug>3 && print "    langage:      $langage\n";
        $debug>3 && print "    message id:   $message_id\n";
 
+       unless (&uncomment($review, "^#") eq $translation) {
+               $debug>2 && print "    WARNING: review has not been sent in the 
script format\n";
+                           warn      "WARNING: review has not been sent in the 
script format for `$package'\n";
+               my $original = &uncomment($translation, "# ");
+               my $reviewed = &uncomment($review,      "# ");
+               my @diff     = split("\n", &superdiff($original, $reviewed));
+
+               @diff=map (/^$comment[+-]$comment/?$_="$comment$'":$_, @diff);
+
+               $review = (join("\n", @diff)."\n");
+       }
        if (-e "$bug_dir/$package.$fix_e") {
                $debug>2 && print "    WARNING: collision detected, 
$package.$fix_e exists,\n"
                                 ."             $package skiped\n";