forked from Wavyzz/dolibarr
23 lines
620 B
Perl
23 lines
620 B
Perl
#!/usr/bin/perl
|
|
#--------------------------------------------------------------------
|
|
# Script to get version of a source file
|
|
# Does not work with cygwin cvs command on Windows.
|
|
#
|
|
# \version $Id$
|
|
#--------------------------------------------------------------------
|
|
|
|
# Usage: dolibarr-doxygen-getversion.pl pathtofilefromdolibarrroot
|
|
|
|
$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\'';
|
|
#print $commande;
|
|
$result=`$commande 2>&1`;
|
|
|
|
print $result;
|