1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
#!/usr/bin/perl -w
#
#############################################################################
#
# File: bump_version.pl
#
# Purpose: Minor script to enforce consistency in psad version tags.
#
#############################################################################
#
use strict;
my @files = qw(
psad
nf2csv
);
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;
|
