Error management

This commit is contained in:
Laurent Destailleur 2009-12-28 11:32:44 +00:00
parent ee554c2fd1
commit 711daf4c4b
2 changed files with 11 additions and 1 deletions

View File

@ -6,9 +6,14 @@
# \author Laurent Destailleur # \author Laurent Destailleur
#-------------------------------------------------------------------- #--------------------------------------------------------------------
# Usage: dolibarr-doxygen-getversion.pl pathtofilefromdolibarrroot # Usage: dolibarr-doxygen-filter.pl pathtofilefromdolibarrroot
$file=$ARGV[0]; $file=$ARGV[0];
if (! $file)
{
print "Usage: dolibarr-doxygen-filter.pl pathtofilefromdolibarrroot\n";
exit;
}
open(FILE,$file) || die "Failed to open file $file"; open(FILE,$file) || die "Failed to open file $file";
while (<FILE>) while (<FILE>)

View File

@ -8,6 +8,11 @@
# Usage: dolibarr-doxygen-getversion.pl pathtofilefromdolibarrroot # Usage: dolibarr-doxygen-getversion.pl pathtofilefromdolibarrroot
$file=$ARGV[0]; $file=$ARGV[0];
if (! $file)
{
print "Usage: dolibarr-doxygen-getversion.pl pathtofilefromdolibarrroot\n";
exit;
}
$commande='cvs status "'.$file.'" | sed -n \'s/^[ \]*Working revision:[ \t]*\([0-9][0-9\.]*\).*/\1/p\''; $commande='cvs status "'.$file.'" | sed -n \'s/^[ \]*Working revision:[ \t]*\([0-9][0-9\.]*\).*/\1/p\'';
#print $commande; #print $commande;