MàJ ddtc 0.3.1

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

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 => 'desc@ddtp.debian.org';	# ddts address
+use constant VERSION   => "0.3.1";			# script version number
+use constant MAIL_DDTS => 'pdesc@ddtp.debian.org';	# 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 =~ /grisu-td-update\@auric\.debian\.org/) {
@@ -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;
 		}
 	}