]>
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 | |
11 | use warnings; | |
12 | use CGI::Carp 'fatalsToBrowser'; | |
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/); |
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'}; |
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'; |
54 | $tripwiresettings{'LOCALKEY'} = 'ipfire'; | |
92004c61 CS |
55 | $tripwiresettings{'ACTION'} = ''; |
56 | ||
71dfc4b7 CS |
57 | &General::readhash("${General::swroot}/tripwire/settings", \%tripwiresettings); |
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 | Content-type: text/html ]>