Re: ddts-script v 0.1.2
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
Reply to: