version 0.9.8

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

Bonjour,

- suppression du test de signature inutile, avec l'option -w, il y a un
  avertissement : $_ n'est pas défini donc le test était toujours faut.
  Il y a donc un bogue : si il n'y a pas de ligne vide avant la
  signature, la dernière description n'est pas traîtée

une rustine de Denis (merci) :
- ajout d'un fichier de conf, ~/.ddts-rev
- ajout de l'option -w
- disclavie dans la doc

a+

Nicolas
-- 

--- ddts-rev.old	Sun Sep 23 20:22:21 2001
+++ ddts-rev	Mon Sep 24 10:30:36 2001
@@ -1,23 +1,10 @@
-#! /usr/bin/perl
+#! /usr/bin/perl -w
 
 use strict;
 
 ### Config part
-# where to put all the files
-# Things you MUST change
-
-my $home="/home/nico/Mail/rel/ddts";
-my $tmp="/tmp";
-my $mail_from='Nicolas Bertolissio <nico.bertol@wanadoo.fr>';
-my $mail_begin="Bonjour,\n\n"
-  #."Tu trouveras en attachement un fichier diff entre la version que tu as\n"
-  #."soumise au ddts et une version corrigée par mes soins de la description\n"
-  #."de ce paquet. Si tu es d'accord avec les corrections, merci de renvoyer\n"
-  #."une version corrigée au ddts. Dans le cas contraire, n'hésite pas à me\n"
-  #."contacter.\n";
-   ."Si tu n'es pas d'accord avec mes corrections, contacte-moi, sinon envoie\n"
-   ."une version corrigée au ddts.\n";
-my $mail_end="\na+\n\nNicolas\n";
+# Things you must change in $HOME/.ddts-rev
+my ($home, $tmp, $mail_from, $mail_begin, $mail_end);
 
 # Things you can change
 my $debug=0;			 # level of verbosity 0..3
@@ -37,6 +24,16 @@
 my $mail="mail";	# extention of ready to be sent mail files
 my $sent="sent";	# extention of mails sent                  (*)
 
+my $conffile = $ENV{HOME}."/.ddts-rev";
+die 'You must define $home, $tmp, $mail_from, $mail_begin and $mail_end Perl variables in $HOME/.ddts-rev' unless -r $conffile;
+scalar eval `cat $conffile`;
+
+my $var;
+foreach (qw(home tmp mail_from mail_begin mail_end)) {
+    eval "\$var = \$$_";
+    die "\$$_ not defined in \$HOME/.ddts-rev" unless $var ne '';
+}
+
 # files in category marked with (*) are automatically generated.
 # Don't edit them, change their name before it.
 
@@ -47,7 +44,7 @@
   
 =head1 SYNOPSIS
 
-ddts-rev [parse|mail|clean|stast]
+ddts-rev [parse|mail|clean|stats]
   
 =head1 DESCRIPTION
 
@@ -108,7 +105,7 @@
   
 =cut
 
-my $version="0.9.7";
+my $version="0.9.8";
 
 # Test if configuration as been made
 if (! -d $home) {
@@ -224,9 +221,9 @@
 	$debug>2 && print "Description: $desc\n";
 
 	# Read the translated description
-	if (/^Description-(..)(_..)?: *(.*)$/) {
-	    $lang="$1$2";
-	    $trans="$3\n";
+	if (/^Description-(..(_..)?): *(.*)$/) {
+	    $lang=$1;
+	    $trans=$3."\n";
 	    $trans .= $_ while (($_ = <>) =~ /^ /);
 	}
 	$debug>2 && print "Description-$lang: $trans\n";
@@ -298,9 +295,6 @@
 	    # clears the variables
 	    $pkg=$translator=$desc=$trans=$lang = "";
 	}
-
-	# stop when encountering the signature
-	last if /^-- ?$/;
     }
 }
 
@@ -526,7 +520,7 @@
     printf ("   total: %${l}d\n", $count_pkg);
 }    
 
-my $cmd=shift;
+my $cmd=shift || '';
 if ($cmd eq "parse") {
     &parse_report();
 } elsif ($cmd eq "mail") {

# where to put all the files
# Things you MUST change

$home="/home/nico/Mail/rel/ddts";
$tmp="/tmp";
$mail_from='Nicolas Bertolissio <nico.bertol@wanadoo.fr>';
$mail_begin="Bonjour,\n\n"
  #."Tu trouveras en attachement un fichier diff entre la version que tu as\n"
  #."soumise au ddts et une version corrigée par mes soins de la description\n"
  #."de ce paquet. Si tu es d'accord avec les corrections, merci de renvoyer\n"
  #."une version corrigée au ddts. Dans le cas contraire, n'hésite pas à me\n"
  #."contacter.\n";
   ."Si tu n'es pas d'accord avec mes corrections, contacte-moi, sinon envoie\n"
   ."une version corrigée au ddts.\n";
$mail_end="\na+\n\nNicolas\n";