mirror of
https://git.osgeo.org/gitea/postgis/postgis
synced 2024-10-25 17:42:38 +00:00
88301cc4d4
git-svn-id: http://svn.osgeo.org/postgis/trunk@4837 b70326c6-7e19-0410-871a-916f4a2858ee
39 lines
527 B
Perl
39 lines
527 B
Perl
#!/usr/bin/perl
|
|
|
|
my $debug = 0;
|
|
|
|
my @files = (
|
|
"postgis.sql.in.c",
|
|
"geography.sql.in.c",
|
|
"sqlmm.sql.in.c",
|
|
"long_xact.sql.in.c"
|
|
);
|
|
|
|
my $rev = 0;
|
|
|
|
foreach $f (@files)
|
|
{
|
|
my $file = "./postgis/$f";
|
|
if( -f $file )
|
|
{
|
|
my $r = 0;
|
|
open(F, $file);
|
|
while(<F>)
|
|
{
|
|
$r = $1 if /\$Id: \S+ (\d+) /;
|
|
}
|
|
print "$f got revision $r\n" if $debug && $r;
|
|
$rev = $r if $r > $rev;
|
|
}
|
|
else
|
|
{
|
|
die "Could not open input file $f\n";
|
|
}
|
|
}
|
|
|
|
print "\nMaximum scripts revision: $rev\n\n" if $debug;
|
|
|
|
print $rev if ! $debug;
|
|
|
|
|