From d322dfe4202d1659633c9daaf7c09e4f4eda71de Mon Sep 17 00:00:00 2001
From: Paul Ramsey <pramsey@cleverelephant.ca>
Date: Fri, 6 Nov 2009 22:55:47 +0000
Subject: [PATCH] Utility to read svn revision numbers from SQL scripts.

git-svn-id: http://svn.osgeo.org/postgis/trunk@4760 b70326c6-7e19-0410-871a-916f4a2858ee
---
 utils/read_scripts_version.pl | 36 +++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100644 utils/read_scripts_version.pl

diff --git a/utils/read_scripts_version.pl b/utils/read_scripts_version.pl
new file mode 100644
index 000000000..5dfde7066
--- /dev/null
+++ b/utils/read_scripts_version.pl
@@ -0,0 +1,36 @@
+#!/usr/bin/perl
+
+$url = "http://svn.osgeo.org/postgis/";
+
+if ( $ARGV[1] ) 
+{
+  $url .= "branches/" . $ARGV[1] . "/postgis/";
+  print "Reading scripts version from branch $ARGV[1] ...\n";
+}
+else
+{
+  $url .= "trunk/postgis/";
+  print "Reading scripts version from trunk ...\n";
+}
+
+@files = ( 
+  "postgis.sql.in.c",
+  "geography.sql.in.c",
+  "sqlmm.sql.in.c",
+  "long_xact.sql.in.c" 
+  );
+
+$rev = 0;
+
+foreach $f (@files)
+{
+  $uf = $url . $f;
+  $s = `svn info $uf`;
+  ($r) = ($s =~ /Last Changed Rev: (\d+)/);
+  print $uf," (Revision $r)\n";
+  $rev = $r if $r > $rev; 
+}
+
+print "\nScripts revision: $rev\n\n";
+
+
-- 
2.50.1