X-Git-Url: https://git.sthu.org/?a=blobdiff_plain;f=gpgdir%2Fbump_version.pl;fp=gpgdir%2Fbump_version.pl;h=cf2c93f74ea7fa0c5bddb3d007cfa9d1a7047fd6;hb=957ed3e08d73f53b2df43e5c20c03c78f54c08f1;hp=0000000000000000000000000000000000000000;hpb=8b16f5d3cdfc8dd2886d86fabd7467c65b687c86;p=pgp-tools.git

diff --git a/gpgdir/bump_version.pl b/gpgdir/bump_version.pl
new file mode 100755
index 0000000..cf2c93f
--- /dev/null
+++ b/gpgdir/bump_version.pl
@@ -0,0 +1,49 @@
+#!/usr/bin/perl -w
+#
+#############################################################################
+#
+# File: bump_version.pl
+#
+# Purpose: Minor script to enforce consistency in gpgdir version tags.
+#
+#############################################################################
+#
+# $Id: bump_version.pl 1055 2008-05-21 02:57:17Z mbr $
+#
+
+use strict;
+
+my @files = qw(
+    gpgdir
+    test/gpgdir_test.pl
+);
+
+my $new_version = $ARGV[0] or die "[*] $0 <new version>";
+
+open F, '< VERSION' or die "[*] Could not open VERSION file: $!";
+my $old_version = <F>;
+close F;
+chomp $old_version;
+
+print "[+] Updating software versions...\n";
+for my $file (@files) {
+    if ($file =~ /\.c/) {
+        ###*  Version: 1.8.4-pre2
+        my $search_re   = qr/^\*\s+Version:\s+$old_version/;
+        my $replace_str = '*  Version: ' . $new_version;
+        system qq{perl -p -i -e 's|$search_re|} .
+            qq{$replace_str|' $file};
+    } else {
+        ### Version: 1.8.4
+        my $search_re   = qr/#\s+Version:\s+$old_version/;
+        my $replace_str = '# Version: ' . $new_version;
+        system qq{perl -p -i -e 's|$search_re|$replace_str|' $file};
+        ### my $version = '1.8.4';
+        $search_re   = qr/^my\s+\x24version\s+=\s+'$old_version';/;
+        $replace_str = q|my \x24version = '| . $new_version . q|';|;
+        system qq{perl -p -i -e "s|$search_re|$replace_str|" $file};
+    }
+}
+system qq{perl -p -i -e 's|$old_version|$new_version|' VERSION};
+
+exit 0;