[test suite] added tests/rijndael_hmac_fuzzing.pl file
[fwknop.git] / 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;