self-hosted/postgis
self-hosted/postgis
1
0
Fork 0
mirror of https://git.osgeo.org/gitea/postgis/postgis synced 2024-10-25 01:22:47 +00:00
Code Issues Packages Projects Releases Wiki Activity

Change from scripts-based script versions to repository based versions. Should also be more robust? ha ha ha. (#1282)

Browse source 
git-svn-id: http://svn.osgeo.org/postgis/trunk@9123 b70326c6-7e19-0410-871a-916f4a2858ee
This commit is contained in:
Paul Ramsey 2012-02-08 23:01:34 +00:00
parent cac26025c5
commit 4d331005f7
1 changed files with 32 additions and 30 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

62
utils/read_scripts_version.pl
View file

@ -1,37 +1,39 @@
#!/usr/bin/perl
my $debug = 0;
my @files = (
"postgis.sql.in.c",
"geography.sql.in.c",
"long_xact.sql.in.c"
);
$ENV{"LC_ALL"} = "C";
use Cwd;
my $cwd = &Cwd::cwd();
my $svn_exe = `which svn`;
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";
}
# We have a repo and can read from it
if ( $svn_exe && -d ".svn" ) {
my $svn_info;
$svn_info = `svn info`;
if ( $svn_info =~ /Last Changed Rev: (\d+)/ ) {
$rev = $1;
open(OUT,">$cwd/svnrevision.h");
print OUT "#define SVNREV $rev\n";
close(OUT);
}
else {
die "Unable to find revision in svn info\n";
}
}
# No repo, but there's a version file in the tarball
elsif ( -f "svnrevision.h" ) {
my $svn_revision_file = `cat svnrevision.h`;
if ( $svn_revision_file =~ /SVNREV (\d+)/ ) {
$rev = $1;
}
else {
die "svnrevision.h has an unexpected format\n";
}
}
else {
die "Unable read svnrevision.h or svn repository metadata\n";
}
print "\nMaximum scripts revision: $rev\n\n" if $debug;
print $rev if ! $debug;
print $rev;