From 7dba5bc73c31d3885dcc76bd97853e1552cca367 Mon Sep 17 00:00:00 2001
From: Thilo Graf <dbt@novatux.de>
Date: Mon, 16 Oct 2017 19:32:35 +0200
Subject: [PATCH] maintain: add version update script

---
 upgrade_version.pl | 42 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)
 create mode 100755 upgrade_version.pl

diff --git a/upgrade_version.pl b/upgrade_version.pl
new file mode 100755
index 000000000..3013a31eb
--- /dev/null
+++ b/upgrade_version.pl
@@ -0,0 +1,42 @@
+#! /usr/bin/perl
+
+$old_version = "";
+$new_version = "";
+
+sub replace_file {
+    ($file) = @_;
+
+    $tmp_fn = "uv.tmp";
+    open TMP, ">$tmp_fn";
+    open INF, "<$file";
+    while (<INF>) {
+	s/$old_version/$new_version/g;
+	print TMP;
+    }
+    close INF;
+    close TMP;
+#    `mv $tmp_fn $file`;
+    rename ($tmp_fn, $file);
+}
+
+###############################################################
+##  main
+###############################################################
+$old_version = shift;
+$new_version = shift;
+
+if (!$new_version) {
+    $_ = `grep AC_INIT configure.ac`;
+    chomp;
+    $_ =~ s/^.*,//;
+    $_ =~ s/\).*$//;
+    die "Usage: upgrade_version.pl old_version new_version\nold_verion=$_\n";
+}
+
+@files = (
+	  "configure.ac",
+	  );
+
+for $file (@files) {
+    replace_file ($file);
+}