Re: ddts-script v 0.1.2

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

Bon, avec la rustine c'est mieux.

Sinon c'est toujours au même endroit :
http://perso.wanadoo.fr/nico.bertol/ddts/ddts-script.txt
http://perso.wanadoo.fr/nico.bertol/ddts/dot.ddts-script.txt
http://perso.wanadoo.fr/nico.bertol/ddts/patch_0.1.2.txt

Nicolas
-- 

--- ddts-script_0.1.1.txt	Fri Nov  9 14:00:01 2001
+++ ddts-script_0.1.2.txt	Thu Nov 15 19:17:48 2001
@@ -16,6 +16,7 @@
     $fix_e,
     $sent_e,
     $old_e,
+    $ok_e,
     
     $mail_addr,
     $mail_self,
@@ -31,13 +32,14 @@
 # Read the config file
 my $void = $ENV{HOME}."/.ddts-script";		# config file
 die "You must define \$tr_dir, \$rev_dir, \$bug_dir, \$temp_dir, \$comment, \$todo_e,"
-   ."\$tr_e, \$rev_e, \$bug_e, \$fix_e, \$sent_e, \$old_e, \$debug, \$mail_addr, \$mail_self,"
-   ."\$mail_enc, \$mail_charset, \$editor Perl variables in \$HOME/.ddts-script" unless -r $void;
+   ."\$tr_e, \$rev_e, \$bug_e, \$fix_e, \$sent_e, \$old_e, \$ok_r, \$debug, \$mail_addr,"
+   ."\$mail_self, \$mail_enc, \$mail_charset, \$editor Perl variables in"
+   ."\$HOME/.ddts-script" unless -r $void;
 scalar eval `cat $void`;			# get the variables
 
 # Test if variables are defined
 foreach (qw(tr_dir rev_dir bug_dir temp_dir
-	    todo_e tr_e rev_e bug_e fix_e sent_e old_e
+	    todo_e tr_e rev_e bug_e fix_e sent_e old_e ok_e
 	    mail_addr mail_self mail_enc mail_charset
             comment debug editor)) {
 	eval "\$void=\$$_";
@@ -159,6 +161,8 @@
 
 =item I<$old_e>, extension for backup files
 
+=item I<$ok_e>, extension for descriptions which passed the review process
+
 =item I<$comment>, comment string for review, a space character will be added to this string
 
 =item I<$debug>, verbosity level (see below)
@@ -204,7 +208,7 @@
 
 =cut
 
-my $version = "0.1.1";
+my $version = "0.1.2";
 
 # Test if configuration as been made
 if (! -d $tr_dir) {
@@ -595,6 +599,8 @@
 			} elsif ($uu_file eq "$temp_dir/ddts-newreview-$$") {
 				&parse_review($package, $langage, $description, &uncomment($translation, "## "), $message_id);
 # DDTS ------------------------------------------------------------------------ $translation ------------------
+			} elsif ($uu_file eq "$temp_dir/ddts-reviewed-$$") {
+				&parse_reviewed($package);
 			} else {
 				&parse_bug($package, $langage, $description, $translation, $db_translation, $bug_number, $reviewer_addr, $message_id);
 			}
@@ -625,6 +631,7 @@
 	$debug>3 && print "    message id:   $message_id\n";
 
 	&move_file("$tr_dir/$package.$tr_e",   "$tr_dir/$package.$old_e");
+	&move_file("$tr_dir/$package.$ok_e",   "$tr_dir/$package.$sent_e");
 	&move_file("$tr_dir/$package.$sent_e", "$tr_dir/$package.$old_e");
 
 	open  PKG, ">$tr_dir/$package.$todo_e"	|| die "Can't open `$tr_dir/$package.$todo_e': $!";
@@ -659,6 +666,7 @@
 	$debug>3 && print "    langage:      $langage\n";
 	$debug>3 && print "    message id:   $message_id\n";
 
+	&move_file  ("$rev_dir/$package.$ok_e", "$rev_dir/$package.$sent_e");
 	&move_file  ("$rev_dir/$package.$sent_e", "$rev_dir/$package.$old_e");
 
 	my $todo = "# Package: $package\n"
@@ -724,6 +732,7 @@
 				     ."$package skiped\n.";
 		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, "## "))) {
 		$debug>2 && print "    ERROR: collision detected, $package.$sent_e exists,\n"
 				 ."           and has a DIFFERENT translation,\n"
@@ -848,6 +857,17 @@
 	}
 
 	close PKG				|| die "Can't write `$bug_dir/$package.$bug_e': $!";
+}
+
+# Parse descriptions to review
+sub parse_reviewed {
+	my $package	   = shift;
+
+	$debug>2 && print "parse_reviewed\n";
+	$debug>3 && print "    package:      $package\n";
+
+	&move_file("$rev_dir/$package.$sent_e", "$rev_dir/$package.$ok_e");
+	&move_file( "$tr_dir/$package.$sent_e",  "$tr_dir/$package.$ok_e");
 }
 
 # Parse a message