Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

executable file 48 lines (41 sloc) 1.4 kb
#!/usr/bin/perl -w
#
#############################################################################
#
# File: bump_version.pl
#
# Purpose: Minor script to enforce consistency in fwsnort version tags.
#
#############################################################################
#
use strict;
my @files = (qw(
fwsnort
README
));
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;
Jump to Line
Something went wrong with that request. Please try again.