Bonjour,
Journal des modification :
Description:
ddtc - Perl script to deal with ddts mail
Changes:
ddtc (0.3.1) unstable; urgency=low
.
* change ddtp address
* fix some typo.
thanks to Benoît Sibaud for this patch
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.3 Sat Mar 2 00:00:00 2002
+++ ddtc_0.3.1 Sat Mar 2 00:00:00 2002
@@ -7,8 +7,8 @@
# Constants setting
#
-use constant VERSION => "0.3"; # script version number
-use constant MAIL_DDTS => '[EMAIL PROTECTED]'; # ddts address
+use constant VERSION => "0.3.1"; # script version number
+use constant MAIL_DDTS => '[EMAIL PROTECTED]'; # ddts address
#
# Default configuration part
@@ -20,17 +20,17 @@
my $Bug_dir; # directory for bugs
my $Temp_dir = "/var/tmp"; # temporary directory
-my $Todo_e = "todo"; # file extention for
files to review/translate
-my $Tr_e = "tr"; # file extention for
translated files
-my $Rev_e = "rev"; # file extention for
reviewed files
-my $Bug_e = "bug"; # file extention for
bug report files
-my $Fix_e = "fix"; # file extention for
bugs fixed files
-my $Sent_e = "sent"; # file extention for
sent files
-my $Old_e = "old"; # file extention for
old files
-my $Ok_e = "ok"; # file extention for
descriptions which passed the review process
+my $Todo_e = "todo"; # file extension for
files to review/translate
+my $Tr_e = "tr"; # file extension for
translated files
+my $Rev_e = "rev"; # file extension for
reviewed files
+my $Bug_e = "bug"; # file extension for
bug report files
+my $Fix_e = "fix"; # file extension for
bugs fixed files
+my $Sent_e = "sent"; # file extension for
sent files
+my $Old_e = "old"; # file extension for
old files
+my $Ok_e = "ok"; # file extension for
descriptions which passed the review process
my $Mail_addr = $ENV{EMAIL} || ''; # outgoing mail address
-my $Mail_from; # incomming mail address
+my $Mail_from; # incoming mail address
my $Mail_self = "yes"; # send mails to myself
also if set to `yes'
my $Mail_enc = "8bit"; # mail encoding for mime
my $Mail_charset = "iso-8859-1"; # mail charset for mime
@@ -731,19 +731,19 @@
if ($translation && (uncomment($review, "^#") ne $translation)) {
warning "review has not been sent in the script format",
- "$package skiped";
+ "$package skipped";
return;
}
if (-e "$Bug_dir/$package.$Fix_e") {
warning "collision detected, $package.$Fix_e exists,",
"try to rename it into $package.$Bug_e.\n",
- "$package skiped";
+ "$package skipped";
return;
}
if (-e "$Tr_dir/$package.$Tr_e") {
warning "collision detected, $package.$Tr_e exists,",
"try to remove it and rename $package.$Fix_e.$Old_e
into $package.$Bug_e.\n",
- "$package skiped";
+ "$package skipped";
return;
}
unless ($package =~ /[EMAIL PROTECTED]/) {
@@ -751,13 +751,13 @@
&& (get_translation("$Tr_dir/$package.$Ok_e") ne
uncomment($translation, "## "))) {
warning "collision detected, $package.$Ok_e exists,",
"and has a DIFFERENT translation,",
- "$package skiped";
+ "$package skipped";
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";
+ "$package skipped";
return;
}
}
