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 => '[EMAIL PROTECTED]'; # 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 =~ /[EMAIL PROTECTED]/) { + 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;