mirror of
https://github.com/Dolibarr/dolibarr.git
synced 2025-12-24 18:31:29 +01:00
25 lines
556 B
Perl
Executable File
25 lines
556 B
Perl
Executable File
#!/usr/bin/perl
|
|
#--------------------------------------------------------------------
|
|
# Script filtrage des sources Dolibarr pour doxygen
|
|
#
|
|
# \version $Id$
|
|
#--------------------------------------------------------------------
|
|
|
|
# Usage: dolibarr-doxygen-getversion.pl pathtofilefromdolibarrroot
|
|
|
|
$file=$ARGV[0];
|
|
|
|
open(FILE,$file) || die "Failed to open file $file";
|
|
while (<FILE>)
|
|
{
|
|
if ($_ =~ /\\version\s/i)
|
|
{
|
|
$_ =~ s/\$Id://i;
|
|
$_ =~ s/(Exp|)\s\$$//i;
|
|
$_ =~ s/(\\version\s+)[^\s]+\s/$1/i;
|
|
$_ =~ s/(\w)\s(\w)/$1_$2/g;
|
|
}
|
|
print $_;
|
|
}
|
|
close(FILE);
|