<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/bin/perl
#--------------------------------------------------------------------
# Script to get version of a source file
# Does not work with cygwin cvs command on Windows.
#
#--------------------------------------------------------------------

# 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&gt;&amp;1`;

print $result;
</pre></body></html>