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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
#!/usr/bin/perl -w
# $Id$
# Author: Chris Green <cmg@sourcefire.com>
# Purpose: make sure snort versions stay in sync
# Created: Tue Jul 22 17:21:42 EDT 2003
use strict;
my $version = "Unknown!";
if($#ARGV < 0)
{
die "bad args found!\n";
}
my $prefix = $ARGV[0];
open(CONFIGURE,"$prefix/configure.in") or die "Can't open configure.in!\n";
while(<CONFIGURE>)
{
if($_ =~ m/^AM_INIT_AUTOMAKE\(snort,/)
{
chomp;
$version = $_;
$version =~ s/^AM_INIT_AUTOMAKE\(snort,([^\)]+)\)/$1/;
last;
}
}
close(CONFIGURE);
# print "version is $version!\n";
open(WIN32CONFIG, "$prefix/src/win32/WIN32-Includes/config.h");
open(WIN32CONFIGNEW, ">$prefix/src/win32/WIN32-Includes/config.h.new");
while(<WIN32CONFIG>) {
if($_ =~ m/^\#define VERSION "[^"]+"/) {
$_ =~ s/^(\#define VERSION ")[^"]+(.*$)/${1}${version}${2}/;
}
print WIN32CONFIGNEW $_;
}
system("mv -f ${prefix}/src/win32/WIN32-Includes/config.h.new ${prefix}/src/win32/WIN32-Includes/config.h");
open(MANUAL, "<$prefix/doc/snort_manual.tex");
open(MANUALNEW, ">$prefix/doc/snort_manual.tex.new");
while(<MANUAL>) {
s/(Snort\\texttrademark Users Manual\\\\ ).*?(\})/$1 $version $2/;
print MANUALNEW $_;
}
system("mv -f $prefix/doc/snort_manual.tex.new $prefix/doc/snort_manual.tex");
open(MANUAL, "<$prefix/rpm/snort.spec");
open(MANUALNEW, ">$prefix/rpm/snort.spec.new");
while(<MANUAL>) {
s/^Version: .*$/Version: $version/;
print MANUALNEW $_;
}
system("mv -f $prefix/rpm/snort.spec.new $prefix/rpm/snort.spec");
open (CONF, "<$prefix/etc/snort.conf");
open (CONFNEW,">$prefix/etc/snort.conf.new");
while (<CONF>) {
s/Snort .* Ruleset/Snort $version Ruleset/;
print CONFNEW $_;
}
system("mv -f $prefix/etc/snort.conf.new $prefix/etc/snort.conf");
|
