[people/teissler/ipfire-2.x.git] / html / cgi-bin / tripwire.cgi

#!/usr/bin/perl
#
# IPFire CGIs
#
# This code is distributed under the terms of the GPL
#
# (c) The IPFire Team

use strict;
# enable only the following on debugging purpose
#use warnings;
#use CGI::Carp 'fatalsToBrowser';

require '/var/ipfire/general-functions.pl';
require "${General::swroot}/lang.pl";
require "${General::swroot}/header.pl";

my %tripwiresettings = ();
my %checked = ();
my %netsettings = ();
my $message = "";
my $errormessage = "";
my @Logs = qx(ls -r /var/ipfire/tripwire/report/);
my $file = `ls -tr /var/ipfire/tripwire/report/ | tail -1`;
my @cronjobs = `ls /etc/fcron.daily/tripwire*`;
my $Log =$Lang::tr{'no log selected'};

my %color = ();
my %mainsettings = ();
&General::readhash("${General::swroot}/main/settings", \%mainsettings);
&General::readhash("/srv/web/ipfire/html/themes/".$mainsettings{'THEME'}."/include/colors.txt", \%color);

############################################################################################################################
################################################# Tripwire Default Variablen ################################################

$tripwiresettings{'ROOT'} = '/usr/sbin';
$tripwiresettings{'POLFILE'} = '/var/ipfire/tripwire/tw.pol';
$tripwiresettings{'DBFILE'} = '/var/ipfire/tripwire/$(HOSTNAME).twd';
$tripwiresettings{'REPORTFILE'} = '/var/ipfire/tripwire/report/$(DATE).twr';
$tripwiresettings{'SITEKEYFILE'} = '/var/ipfire/tripwire/site.key';
$tripwiresettings{'LOCALKEYFILE'} = '/var/ipfire/tripwire/local.key';
$tripwiresettings{'EDITOR'} = '/usr/bin/vi';
$tripwiresettings{'LATEPROMPTING'} = 'false';
$tripwiresettings{'LOOSEDIRECTORYCHECKING'} = 'false';
$tripwiresettings{'MAILNOVIOLATIONS'} = 'false';
$tripwiresettings{'EMAILREPORTLEVEL'} = '3';
$tripwiresettings{'REPORTLEVEL'} = '3';
$tripwiresettings{'MAILMETHOD'} = 'SENDMAIL';
$tripwiresettings{'SMTPHOST'} = 'ipfire.myipfire.de';
$tripwiresettings{'SMTPPORT'} = '25';
$tripwiresettings{'SYSLOGREPORTING'} = 'false';
$tripwiresettings{'MAILPROGRAM'} = '/usr/sbin/sendmail -oi -t';
$tripwiresettings{'SITEKEY'} = 'ipfire';
$tripwiresettings{'LOCALKEY'} = 'ipfire';
$tripwiresettings{'ACTION'} = '';

&General::readhash("${General::swroot}/tripwire/settings", \%tripwiresettings);

############################################################################################################################
######################################################### Tripwire HTML Part ###############################################

&Header::showhttpheaders();

&Header::getcgihash(\%tripwiresettings);
&Header::openpage('Tripwire', 1,);
&Header::openbigbox('100%', 'left', '', $errormessage);

############################################################################################################################
############################################### Tripwire Config Datei erstellen ############################################

if ($tripwiresettings{'ACTION'} eq $Lang::tr{'save'})
{
system("/usr/local/bin/tripwirectrl readconfig  >& /dev/null");
open (FILE, ">${General::swroot}/tripwire/twcfg.txt") or die "Can't save tripwire config: $!";
flock (FILE, 2);

print FILE <<END

ROOT                   =$tripwiresettings{'ROOT'}
POLFILE                =$tripwiresettings{'POLFILE'}
DBFILE                 =$tripwiresettings{'DBFILE'}
REPORTFILE             =$tripwiresettings{'REPORTFILE'}
SITEKEYFILE            =$tripwiresettings{'SITEKEYFILE'}
LOCALKEYFILE           =$tripwiresettings{'LOCALKEYFILE'}
EDITOR                 =$tripwiresettings{'EDITOR'}
LATEPROMPTING          =$tripwiresettings{'LATEPROMPTING'}
LOOSEDIRECTORYCHECKING =$tripwiresettings{'LOOSEDIRECTORYCHECKING'}
MAILNOVIOLATIONS       =$tripwiresettings{'MAILNOVIOLATIONS'}
EMAILREPORTLEVEL       =$tripwiresettings{'EMAILREPORTLEVEL'}
REPORTLEVEL            =$tripwiresettings{'REPORTLEVEL'}
MAILMETHOD             =$tripwiresettings{'MAILMETHOD'}
SMTPHOST               =$tripwiresettings{'SMTPHOST'}
SMTPPORT               =$tripwiresettings{'SMTPPORT'}
SYSLOGREPORTING        =$tripwiresettings{'SYSLOGREPORTING'}
MAILPROGRAM            =$tripwiresettings{'MAILPROGRAM'}

END
;
close FILE;

&General::writehash("${General::swroot}/tripwire/settings", \%tripwiresettings);
system("/usr/local/bin/tripwirectrl lockconfig  >& /dev/null");
}

############################################################################################################################
Commit	Line	Data
92004c61 CS	1	#!/usr/bin/perl
	2	#
	3	# IPFire CGIs
	4	#
	5	# This code is distributed under the terms of the GPL
	6	#
	7	# (c) The IPFire Team
	8
	9	use strict;
	10	# enable only the following on debugging purpose
cb5e9c6c CS	11	#use warnings;
cb5e9c6c CS	12	#use CGI::Carp 'fatalsToBrowser';
92004c61 CS	13
	14	require '/var/ipfire/general-functions.pl';
	15	require "${General::swroot}/lang.pl";
	16	require "${General::swroot}/header.pl";
	17
	18	my %tripwiresettings = ();
	19	my %checked = ();
	20	my %netsettings = ();
	21	my $message = "";
	22	my $errormessage = "";
71dfc4b7 CS	23	my @Logs = qx(ls -r /var/ipfire/tripwire/report/);
71dfc4b7 CS	24	my $file = `ls -tr /var/ipfire/tripwire/report/ \| tail -1`;
88932936	25	my @cronjobs = `ls /etc/fcron.daily/tripwire*`;
92004c61 CS	26	my $Log =$Lang::tr{'no log selected'};
92004c61 CS	27
f2fdd0c1 CS	28	my %color = ();
	29	my %mainsettings = ();
	30	&General::readhash("${General::swroot}/main/settings", \%mainsettings);
	31	&General::readhash("/srv/web/ipfire/html/themes/".$mainsettings{'THEME'}."/include/colors.txt", \%color);
	32
92004c61 CS	33	############################################################################################################################
	34	################################################# Tripwire Default Variablen ################################################
	35
	36	$tripwiresettings{'ROOT'} = '/usr/sbin';
	37	$tripwiresettings{'POLFILE'} = '/var/ipfire/tripwire/tw.pol';
	38	$tripwiresettings{'DBFILE'} = '/var/ipfire/tripwire/$(HOSTNAME).twd';
71dfc4b7	39	$tripwiresettings{'REPORTFILE'} = '/var/ipfire/tripwire/report/$(DATE).twr';
92004c61	40	$tripwiresettings{'SITEKEYFILE'} = '/var/ipfire/tripwire/site.key';
71dfc4b7	41	$tripwiresettings{'LOCALKEYFILE'} = '/var/ipfire/tripwire/local.key';
92004c61 CS	42	$tripwiresettings{'EDITOR'} = '/usr/bin/vi';
	43	$tripwiresettings{'LATEPROMPTING'} = 'false';
	44	$tripwiresettings{'LOOSEDIRECTORYCHECKING'} = 'false';
	45	$tripwiresettings{'MAILNOVIOLATIONS'} = 'false';
	46	$tripwiresettings{'EMAILREPORTLEVEL'} = '3';
	47	$tripwiresettings{'REPORTLEVEL'} = '3';
	48	$tripwiresettings{'MAILMETHOD'} = 'SENDMAIL';
	49	$tripwiresettings{'SMTPHOST'} = 'ipfire.myipfire.de';
	50	$tripwiresettings{'SMTPPORT'} = '25';
	51	$tripwiresettings{'SYSLOGREPORTING'} = 'false';
	52	$tripwiresettings{'MAILPROGRAM'} = '/usr/sbin/sendmail -oi -t';
71dfc4b7 CS	53	$tripwiresettings{'SITEKEY'} = 'ipfire';
71dfc4b7 CS	54	$tripwiresettings{'LOCALKEY'} = 'ipfire';
92004c61 CS	55	$tripwiresettings{'ACTION'} = '';
92004c61 CS	56
71dfc4b7 CS	57	&General::readhash("${General::swroot}/tripwire/settings", \%tripwiresettings);
71dfc4b7 CS	58
92004c61 CS	59	############################################################################################################################
	60	######################################################### Tripwire HTML Part ###############################################
	61
	62	&Header::showhttpheaders();
88932936	63
92004c61	64	&Header::getcgihash(\%tripwiresettings);
88932936	65	&Header::openpage('Tripwire', 1,);
92004c61 CS	66	&Header::openbigbox('100%', 'left', '', $errormessage);
	67
	68	############################################################################################################################
	69	############################################### Tripwire Config Datei erstellen ############################################
	70
	71	if ($tripwiresettings{'ACTION'} eq $Lang::tr{'save'})
	72	{
88932936	73	system("/usr/local/bin/tripwirectrl readconfig >& /dev/null");
71dfc4b7	74	open (FILE, ">${General::swroot}/tripwire/twcfg.txt") or die "Can't save tripwire config: $!";
92004c61 CS	75	flock (FILE, 2);
	76
	77	print FILE <<END
	78
	79	ROOT =$tripwiresettings{'ROOT'}
	80	POLFILE =$tripwiresettings{'POLFILE'}
	81	DBFILE =$tripwiresettings{'DBFILE'}
	82	REPORTFILE =$tripwiresettings{'REPORTFILE'}
	83	SITEKEYFILE =$tripwiresettings{'SITEKEYFILE'}
	84	LOCALKEYFILE =$tripwiresettings{'LOCALKEYFILE'}
	85	EDITOR =$tripwiresettings{'EDITOR'}
	86	LATEPROMPTING =$tripwiresettings{'LATEPROMPTING'}
	87	LOOSEDIRECTORYCHECKING =$tripwiresettings{'LOOSEDIRECTORYCHECKING'}
	88	MAILNOVIOLATIONS =$tripwiresettings{'MAILNOVIOLATIONS'}
	89	EMAILREPORTLEVEL =$tripwiresettings{'EMAILREPORTLEVEL'}
	90	REPORTLEVEL =$tripwiresettings{'REPORTLEVEL'}
	91	MAILMETHOD =$tripwiresettings{'MAILMETHOD'}
	92	SMTPHOST =$tripwiresettings{'SMTPHOST'}
	93	SMTPPORT =$tripwiresettings{'SMTPPORT'}
	94	SYSLOGREPORTING =$tripwiresettings{'SYSLOGREPORTING'}
	95	MAILPROGRAM =$tripwiresettings{'MAILPROGRAM'}
	96
	97	END
	98	;
	99	close FILE;
	100
	101	&General::writehash("${General::swroot}/tripwire/settings", \%tripwiresettings);
88932936	102	system("/usr/local/bin/tripwirectrl lockconfig >& /dev/null");
92004c61 CS	103	}
	104
	105	############################################################################################################################
	106