Utility to read svn revision numbers from SQL scripts.

git-svn-id: http://svn.osgeo.org/postgis/trunk@4760 b70326c6-7e19-0410-871a-916f4a2858ee

diff --git a/utils/read_scripts_version.pl b/utils/read_scripts_version.pl
new file mode 100644 (file)
index 0000000..5dfde70
--- /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";
+
+