suricata: Change midstream policy to "pass-flow"

[people/pmueller/ipfire-2.x.git] / html / cgi-bin / index.cgi

diff --git a/html/cgi-bin/index.cgi b/html/cgi-bin/index.cgi
index bd6a02ef5ecbbce105348490d20a8e519148adc4..5e32ce038196058e735e32e44ad65e4461316552 100644 (file)
--- a/html/cgi-bin/index.cgi
+++ b/html/cgi-bin/index.cgi
@@ -2,7 +2,7 @@
 ###############################################################################
 #                                                                             #
 # IPFire.org - A linux based firewall                                         #
-# Copyright (C) 2007-2014  IPFire Team  <info@ipfire.org>                     #
+# Copyright (C) 2007-2023  IPFire Team  <info@ipfire.org>                     #
 #                                                                             #
 # This program is free software: you can redistribute it and/or modify        #
 # it under the terms of the GNU General Public License as published by        #
@@ -70,11 +70,11 @@ $pppsettings{'PROFILENAME'} = 'None';
 my %color = ();
 my %mainsettings = ();
 &General::readhash("${General::swroot}/main/settings", \%mainsettings);
-&General::readhash("/srv/web/ipfire/html/themes/".$mainsettings{'THEME'}."/include/colors.txt", \%color);
+&General::readhash("/srv/web/ipfire/html/themes/ipfire/include/colors.txt", \%color);
 
 my $connstate = &Header::connectionstatus();
 
-if ( -e "/var/ipfire/main/gpl-accepted" ) {
+if ( -e "/var/ipfire/main/gpl_accepted" ) {
        if ($connstate =~ /$Lang::tr{'connecting'}/ || /$Lang::tr{'connection closed'}/ ){
                $refresh = "<meta http-equiv='refresh' content='5;'>";
        }elsif ($connstate =~ /$Lang::tr{'dod waiting'}/ || -e "${General::swroot}/main/refreshindex") {
@@ -113,15 +113,15 @@ if ($cgiparams{'ACTION'} eq $Lang::tr{'dial profile'})
        chmod 0600, "${General::swroot}/ppp/secrets";
        close FILE;
 
-       &General::log("$Lang::tr{'profile made current'} $tempcgiparams{'PROFILENAME'}"); 
+       &General::log("$Lang::tr{'profile made current'} $tempcgiparams{'PROFILENAME'}");
        $cgiparams{'ACTION'} = "$Lang::tr{'dial'}";
 }
 
 if ($cgiparams{'ACTION'} eq $Lang::tr{'dial'}) {
-       system('/usr/local/bin/redctrl start > /dev/null') == 0
+       &General::system('/usr/local/bin/redctrl', 'start') == 0
        or &General::log("Dial failed: $?"); sleep 1;
 }elsif ($cgiparams{'ACTION'} eq $Lang::tr{'hangup'}) {
-       system('/usr/local/bin/redctrl stop > /dev/null') == 0
+       &General::system('/usr/local/bin/redctrl', 'stop') == 0
        or &General::log("Hangup failed: $?"); sleep 1;
 }
 
@@ -138,7 +138,7 @@ for ($c = 1; $c <= $maxprofiles; $c++)
 }
 my %selected;
 for ($c = 1; $c <= $maxprofiles; $c++) {
-       $selected{'PROFILE'}{$c} = ''; 
+       $selected{'PROFILE'}{$c} = '';
 }
 $selected{'PROFILE'}{$pppsettings{'PROFILE'}} = "selected='selected'";
 my $dialButtonDisabled = "disabled='disabled'";
@@ -173,9 +173,9 @@ print <<END;
 <!-- Table of networks -->
 <table class='tbl' style='width:80%;'>
   <tr>
-        <th style='background-color:$color{'color20'};'>$Lang::tr{'network'}</th>
-        <th style='background-color:$color{'color20'};'>$Lang::tr{'ip address'}</th>
-        <th style='background-color:$color{'color20'};'>$Lang::tr{'status'}</th>
+        <th>$Lang::tr{'network'}</th>
+        <th>$Lang::tr{'ip address'}</th>
+        <th>$Lang::tr{'status'}</th>
   </tr>
   <tr>
         <td style='width:25%; text-align:center; background-color:$Header::colourred;'><a href='/cgi-bin/pppsetup.cgi' style='color:white;'><b>$Lang::tr{'internet'}</b></a><br/></td>
@@ -457,6 +457,7 @@ END
                                                if (($line =~ /\"$vpnconfig{$key}[1]\".*IPsec SA established/) || ($line =~/$vpnconfig{$key}[1]\{.*INSTALLED/ )){
                                                        $activecolor = $Header::colourgreen;
                                                        $activestatus = $Lang::tr{'capsopen'};
+                                                       last;
                                                } elsif ($line =~ /$vpnconfig{$key}[1]\[.*CONNECTING/) {
                                                        $activecolor = $Header::colourorange;
                                                        $activestatus = $Lang::tr{'vpn connecting'};
@@ -535,16 +536,17 @@ END
 &Header::closebox();
 }
 
-my $dnssec_status = &General::dnssec_status();
-if ($dnssec_status eq "off") {
-       $warnmessage .= "<li>$Lang::tr{'dnssec disabled warning'}</li>";
-}
-
 # Fireinfo
 if ( ! -e "/var/ipfire/main/send_profile") {
        $warnmessage .= "<li><a style='color: white;' href='fireinfo.cgi'>$Lang::tr{'fireinfo please enable'}</a></li>";
 }
 
+# EOL architecture
+my ($sysname, $nodename, $release, $version, $machine) = &POSIX::uname();
+if ($machine =~ m/^arm/) {
+       $warnmessage .= "<li><a href='https://wiki.ipfire.org/hardware/requirements' style='color:white;'>$Lang::tr{'eol architecture warning'}</a></li>";
+}
+
 # Memory usage warning
 my @free = `/usr/bin/free`;
 $free[1] =~ m/(\d+)/;
@@ -562,6 +564,7 @@ my $temp2=();
 my @df = `/bin/df -B M -P -x rootfs`;
 foreach my $line (@df) {
        next if $line =~ m/^Filesystem/;
+       next if $line =~ m/^efivarfs/;
        if ($line =~ m/root/ ) {
                $line =~ m/^.* (\d+)M.*$/;
                @temp = split(/ +/,$line);
@@ -570,7 +573,7 @@ foreach my $line (@df) {
                        # and root size should not vary during time
                        $warnmessage .= "<li>$Lang::tr{'filesystem full'}: $temp[0] <b>$Lang::tr{'free'}=$1M</b> !</li>";
                }
-               
+
        } else {
                # $line =~ m/^.* (\d+)m.*$/;
                $line =~ m/^.* (\d+)\%.*$/;
@@ -593,13 +596,6 @@ foreach my $file (@files) {
        }
 }
 
-# Reiser4 warning
-my @files = `mount | grep " reiser4 (" 2>/dev/null`;
-foreach my $disk (@files) {
-       chomp ($disk);
-       $warnmessage .= "<li>$disk - $Lang::tr{'deprecated fs warn'}</li>";
-}
-
 if ($warnmessage) {
        &Header::openbox('100%','center', );
        print "<table class='tbl' style='width:80%;'>";
@@ -609,13 +605,24 @@ if ($warnmessage) {
        &Header::closebox();
 }
 
-&Pakfire::dblist("upgrade", "notice");
+my %coredb = &Pakfire::coredbinfo();
+if (defined $coredb{'AvailableRelease'}) {
+       print "<br /><br /><br /><a href='pakfire.cgi'>$Lang::tr{'core notice 1'} $coredb{'Release'} $Lang::tr{'core notice 2'} $coredb{'AvailableRelease'} $Lang::tr{'core notice 3'}</a>";
+}
+
 if ( -e "/var/run/need_reboot" ) {
        print "<div style='text-align:center; color:red;'>";
        print "<br/><br/>$Lang::tr{'needreboot'}!";
        print "</div>";
 }
 
+if ( `/bin/grep -c "reiserfs" /proc/self/mounts`  > 0 ) {
+        print "<div style='text-align:center; color:blue;'>";
+        print "<br/><br/>$Lang::tr{'reiserfs warning1'}";
+        print "<br/>$Lang::tr{'reiserfs warning2'}";
+        print "</div>";
+}
+
 &Header::closebigbox();
 &Header::closepage();