perl/legacy/fwknop/bump_version.pl

   1 #!/usr/bin/perl -w
   2 #
   3 #############################################################################
   4 #
   5 # File: bump_version.pl
   6 #
   7 # Purpose: Minor script to enforce consistency in fwknop version tags.
   8 #
   9 #############################################################################
  10 #
  11 # $Id: bump_version.pl 1397 2009-02-02 12:53:06Z mbr $
  12 #
  13
  14 use strict;
  15
  16 my @files = qw(
  17     fwknop
  18     fwknop.h
  19     fwknop_serv
  20     fwknopd
  21     knoptm
  22     knopmd.c
  23     knopwatchd.c
  24     test/fwknop_test.pl
  25 );
  26
  27 my $new_version = $ARGV[0] or die "[*] $0 <new version>";
  28
  29 open F, '< VERSION' or die "[*] Could not open VERSION file: $!";
  30 my $old_version = <F>;
  31 close F;
  32 chomp $old_version;
  33
  34 print "[+] Updating software versions...\n";
  35 for my $file (@files) {
  36     if ($file =~ /\.c/) {
  37         ###*  Version: 1.8.4-pre2
  38         my $search_re   = qr/^\*\s+Version:\s+$old_version/;
  39         my $replace_str = '*  Version: ' . $new_version;
  40         system qq{perl -p -i -e 's|$search_re|} .
  41             qq{$replace_str|' $file};
  42     } elsif ($file =~ /\.h/) {
  43
  44         ### FWKNOP_VERSION      "1.9.10-pre1"
  45         my $search_re   = qr/FWKNOP_VERSION\s+"$old_version"/;
  46         my $replace_str = qq|FWKNOP_VERSION      "$new_version"|;
  47         system qq{perl -p -i -e 's|$search_re|$replace_str|' $file};
  48
  49         ###*  Version: 1.8.4-pre2
  50         $search_re   = qr/^\*\s+Version:\s+$old_version/;
  51         $replace_str = '*  Version: ' . $new_version;
  52         system qq{perl -p -i -e 's|$search_re|} .
  53             qq{$replace_str|' $file};
  54     } else {
  55         ### Version: 1.8.4
  56         my $search_re   = qr/#\s+Version:\s+$old_version/;
  57         my $replace_str = '# Version: ' . $new_version;
  58         system qq{perl -p -i -e 's|$search_re|$replace_str|' $file};
  59         ### my $version = '1.8.4';
  60         $search_re   = qr/^my\s+\x24version\s+=\s+'$old_version';/;
  61         $replace_str = q|my \x24version = '| . $new_version . q|';|;
  62         system qq{perl -p -i -e "s|$search_re|$replace_str|" $file};
  63     }
  64 }
  65 system qq{perl -p -i -e 's|$old_version|$new_version|' VERSION};
  66
  67 exit 0;