ddts-script 0.4.2

[Nicolas Bertolissio <nico.bertol@wanadoo.fr>]

Bonjour,

journal des modifications :
version 0.4.2
  - change: server address
  - bug fix:
    - change: warning when bug not in the script format, don't try to deal
      with it (I'll try to work on this later, I have no time at the moment)

Il semble qu'il y ait beaucoup de problème avec les descriptions qui ne
sont pas au bon format, donc le script n'essait plus de les traiter, il
n'affiche qu'un avertissement.

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

a+


Nicolas
-- 

--- ddts-script_0.4.1.txt	Sat Dec 15 20:25:26 2001
+++ ddts-script_0.4.2.txt	Sat Dec 29 16:52:29 2001
@@ -28,7 +28,7 @@
     $debug,
     $editor);
 
-my $mail_ddts = 'grisu-td@auric.debian.org';
+my $mail_ddts = 'desc@ddtp.debian.org';
 
 # Read the config file
 my $void = $ENV{HOME}."/.ddts-script";		# config file
@@ -268,7 +268,7 @@
 
 =cut
 
-my $version = "0.4.1";
+my $version = "0.4.2";
 
 # Test if configuration as been made
 foreach ($tr_dir, $bug_dir, $rev_dir, $temp_dir) {
@@ -836,8 +836,11 @@
 	$debug>3 && print "    message id:   $message_id\n";
 
 	if ($translation && (&uncomment($review, "^#") ne $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";
+		$debug>2 && print "    WARNING: review has not been sent in the script format\n"
+				 ."             $package skiped\n";
+		            warn      "WARNING: review has not been sent in the script format\n"
+				     ."$package skiped.\n";
+		return 0;
 		my $original = &uncomment($translation, "# ");
 		my $reviewed = &uncomment($review,      "# ");
 		my @diff     = split("\n", &superdiff($original, $reviewed));