MàJ ddtc 0.3

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

Le mardi 26 février 2002, Nicolas Bertolissio écrit :
Bonjour,

Journal des modification :
Description: 
 ddtc       - Perl script to deal with ddts mail
Changes: 
 ddtc (0.3) unstable; urgency=low
 .
   * really deal with changed English descriptions
     thanks to Christian Pierrer for reporting this bug
   * add `--help' option when getting usage message in `bash_completion'
   * change `/' into `_' in package name if no name can be found
   * change maintainer address

La rustine est attachée, les paquets sont à jour :
deb http://nico.bertol.free.fr/debian bertol/fr/  pour votre sources.list
    http://nico.bertol.free.fr/rpm/bertol/        en rpm


Nicolas
-- 

--- ddtc_0.2.1	Sat Feb 23 00:00:00 2002
+++ ddtc_0.3	Sat Mar  2 00:00:00 2002
@@ -7,7 +7,7 @@
 # Constants setting
 #
 
-use constant VERSION   => "0.2.1";			# script version number
+use constant VERSION   => "0.3";			# script version number
 use constant MAIL_DDTS => 'desc@ddtp.debian.org';	# ddts address
 
 #
@@ -443,6 +443,7 @@
 	} else {
 		$name = "noname-$short";
 		$name =~ s/(\s)/_/g;
+		$name =~ s/\//_/g;
 
 		warning "I can't guess `$short', output file named `$name'\n";
 	}
@@ -731,7 +732,7 @@
 	if ($translation && (uncomment($review, "^#") ne $translation)) {
 		warning "review has not been sent in the script format",
 			"$package skiped";
-		return 0;
+		return;
 	}
 	if (-e "$Bug_dir/$package.$Fix_e") {
 		warning "collision detected, $package.$Fix_e exists,",
@@ -745,13 +746,22 @@
 			"$package skiped";
 		return;
 	}
-	move_file("$Tr_dir/$package.$Ok_e",   "$Tr_dir/$package.$Sent_e");
-	if ((-e "$Tr_dir/$package.$Sent_e") && (get_translation("$Tr_dir/$package.$Sent_e") ne uncomment($translation, "## "))) {
-		warning "collision detected, $package.$Sent_e exists,",
-			"and has a DIFFERENT translation,",
-			"$package skiped";
-		return;
+	unless ($package =~ /grisu-td-update\@auric\.debian\.org/) {
+		if	(   (-e "$Tr_dir/$package.$Ok_e")
+			 && (get_translation("$Tr_dir/$package.$Ok_e") ne uncomment($translation, "## "))) {
+			warning "collision detected, $package.$Ok_e exists,",
+				"and has a DIFFERENT translation,",
+				"$package skiped";
+			return;
+		} elsif	(   (-e "$Tr_dir/$package.$Sent_e")
+			 && (get_translation("$Tr_dir/$package.$Sent_e") ne uncomment($translation, "## "))) {
+			warning "collision detected, $package.$Sent_e exists,",
+				"and has a DIFFERENT translation,",
+				"$package skiped";
+			return;
+		}
 	}
+	move_file("$Tr_dir/$package.$Ok_e",   "$Tr_dir/$package.$Sent_e");
 		
 	my $i;
 	my $l;