From 76de9bf1fa04854b26bf276140f6d88697ef53ec Mon Sep 17 00:00:00 2001
From: Tom Eastep <teastep@shorewall.net>
Date: Tue, 10 Apr 2012 10:20:53 -0700
Subject: [PATCH] Add Perl version of configure for use in rpm builds

Signed-off-by: Tom Eastep <teastep@shorewall.net>
---
 Shorewall-core/configure    |   2 +-
 Shorewall-core/configure.pl | 130 ++++++++++++++++++++++++++++++++++++
 2 files changed, 131 insertions(+), 1 deletion(-)
 create mode 100755 Shorewall-core/configure.pl

diff --git a/Shorewall-core/configure b/Shorewall-core/configure
index b36045b9b..0b3d97db8 100755
--- a/Shorewall-core/configure
+++ b/Shorewall-core/configure
@@ -21,7 +21,7 @@
 #	along with this program; if not, write to the Free Software
 #	Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 #
-#       Usage: ./configure <vendor> [ <option>=<setting> ] ...
+#       Usage: ./configure <option>=<setting> ...
 #
 #
 ################################################################################################
diff --git a/Shorewall-core/configure.pl b/Shorewall-core/configure.pl
new file mode 100755
index 000000000..32095eb72
--- /dev/null
+++ b/Shorewall-core/configure.pl
@@ -0,0 +1,130 @@
+#! /usr/bin/perl -w
+#
+#     Shorewall Packet Filtering Firewall RPM configuration program - V4.5
+#
+#     This program is under GPL [http://www.gnu.org/licenses/old-licenses/gpl-2.0.txt]
+#
+#     (c) 2012 - Tom Eastep (teastep@shorewall.net)
+#
+#	Shorewall documentation is available at http://www.shorewall.net
+#
+#	This program is free software; you can redistribute it and/or modify
+#	it under the terms of Version 2 of the GNU General Public License
+#	as published by the Free Software Foundation.
+#
+#	This program is distributed in the hope that it will be useful,
+#	but WITHOUT ANY WARRANTY; without even the implied warranty of
+#	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+#	GNU General Public License for more details.
+#
+#	You should have received a copy of the GNU General Public License
+#	along with this program; if not, write to the Free Software
+#	Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+#
+#       Usage: ./configure.pl <option>=<setting> ...
+#
+#
+################################################################################################
+use strict;
+
+my %params;
+my %options;
+
+my %aliases = ( VENDOR => 'HOST',
+		SHAREDSTATEDIR => 'VARDIR',
+		DATADIR => 'SHAREDIR',
+		SYSCONFDIR => 'CONFDIR' );
+
+die "Usage: $0 <var>=<val> ..." unless @ARGV;
+
+for ( @ARGV) {
+    s/^--//;
+
+    next unless defined $_ && $_ ne '';
+
+    die "Invalid option specification ( $_ )" unless /^(\w+)=(.*)$/;
+
+    my $pn = uc $1;
+    my $pv = $2 || '';
+
+    $pn = $aliases{$pn} if exists $aliases{$pn};
+
+    $params{$pn} = $pv;
+}
+
+my $vendor = $params{HOST};
+my $rcfile;
+my $rcfilename;
+
+if ( defined $vendor ) {
+    $rcfilename = 'shorewallrc.' . $vendor;
+} else {
+    $rcfilename = 'shorewallrc.default';
+    $vendor     = 'linux';
+}
+
+open $rcfile, '<', $rcfilename or die "Unable to open $rcfilename for input: $!";
+
+while ( <$rcfile> ) {
+    next if /\s*#/;
+    
+    die "Invalid entry ($_) in $rcfile, line $." unless /\s*(\w+)=(.*)/;
+
+    $options{$1} = $2;
+}
+
+close $rcfile;
+
+while ( my ( $p, $v ) = each %params ) {
+    $options{$p} = ${v};
+}
+
+my $outfile;
+
+open $outfile, '>', 'shorewallrc' or die "Can't open 'shorewallrc' for output: $!";
+
+print          "HOST=$vendor\n";
+print $outfile "HOST=$vendor\n";
+
+for ( qw/ PREFIX
+	  SHAREDIR
+	  LIBEXECDIR
+	  PERLLIBDIR
+	  CONFDIR
+	  SBINDIR
+	  MANDIR 
+	  INITDIR
+	  INITSOURCE
+	  INITFILE
+	  AUXINITSOURCE
+	  AUXINITFILE
+	  SYSTEMD
+	  SYSCONFFILE
+	  SYSCONFDIR
+	  ANNOTATED
+	  VARDIR / ) {
+
+    my $val = $options{$_} || '';
+
+    print          "$_=$val\n";
+    print $outfile "$_=$val\n";
+}
+
+close $outfile;
+
+1;
+
+
+    
+
+    
+
+    
+
+
+    
+	
+    
+
+    
+