ddts-script 0.4.11
Bonjour,
journal des modifications :
version 0.4.11
- change: use a regexp to clean files, to add compatibility with other
scripts (l10n-check)
il faut ajouter la ligne suivante dans votre ~/.ddts-script :
$clean_re = "~\$|\.$old_e\$|\.bak\$"; # regexp for clean command
La rustine est attachée, le script complet n'a pas bougé :
http://perso.wanadoo.fr/nico.bertol/ddts/ddts-script.txt
Nicolas
--
--- ddts-script_0.4.10.txt Sat Jan 12 12:00:18 2002
+++ ddts-script_0.4.11.txt Sat Jan 26 14:32:06 2002
@@ -25,6 +25,7 @@
$mail_charset,
$comment,
+ $clean_re,
$debug,
$editor);
@@ -32,17 +33,17 @@
# 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, \$ok_r, \$debug, \$mail_addr,"
- ."\$mail_from, \$mail_self, \$mail_enc, \$mail_charset, \$editor Perl variables in"
- ."\$HOME/.ddts-script" unless -r $void;
+die "You must define \$tr_dir, \$rev_dir, \$bug_dir, \$temp_dir, \$comment, \$todo_e,\n"
+ ."\$tr_e, \$rev_e, \$bug_e, \$fix_e, \$sent_e, \$old_e, \$ok_e, \$clean_re, \$debug,\n"
+ ."\$mail_addr, \$mail_from, \$mail_self, \$mail_enc, \$mail_charset, \$editor Perl\n"
+ ."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 ok_e
mail_addr mail_from mail_self mail_enc mail_charset
- comment debug editor)) {
+ comment clean_re debug editor)) {
eval "\$void=\$$_";
die "\$$_ not defined in \$HOME/.ddts-script" unless ($void ne "");
}
@@ -237,6 +238,8 @@
=item I<$comment>, comment string for review, a space character will be added to this string [>>]
+=item I<$clean_re>, regular expression to remove file with I<clean> command [~\$|\.$old_e\$|\.bak\$]
+
=item I<$debug>, verbosity level (see below) [1]
=item I<$editor>, editor command, must contain `B<%s>' for the filename [$ENV{EDITOR} %s]
@@ -277,7 +280,7 @@
=cut
-my $version = "0.4.10";
+my $version = "0.4.11";
# Test if configuration as been made
foreach ($tr_dir, $bug_dir, $rev_dir, $temp_dir) {
@@ -1333,8 +1336,7 @@
foreach (&ls_dir($tr_dir)) {
next if /^\./;
- &remove_file("$tr_dir/$_") if /\.$old_e$/;
- &remove_file("$tr_dir/$_") if /\~$/;
+ &remove_file("$tr_dir/$_") if /$clean_re/;
s/\..*$//;
if (-e "$tr_dir/$_.$todo_e") {
@@ -1346,15 +1348,13 @@
foreach (&ls_dir($bug_dir)) {
next if /^\./;
- &remove_file("$bug_dir/$_") if /\.$old_e$/;
- &remove_file("$bug_dir/$_") if /\~$/;
+ &remove_file("$bug_dir/$_") if /$clean_re/;
}
foreach (&ls_dir($rev_dir)) {
next if /^\./;
- &remove_file("$rev_dir/$_") if /\.$old_e$/;
- &remove_file("$rev_dir/$_") if /\~$/;
+ &remove_file("$rev_dir/$_") if /$clean_re/;
s/\..*$//;
if (-e "$rev_dir/$_.$todo_e") {
Reply to: