logs.cgi/ids.dat: Add support for generating reports

This commit allows to manaully generate certain reports
of logged suricata alerts.

Signed-off-by: Stefan Schantl <stefan.schantl@ipfire.org>

diff --git a/html/cgi-bin/logs.cgi/ids.dat b/html/cgi-bin/logs.cgi/ids.dat
index 7991e3936b4ca88c48c7bdf076c5c07052fbf7b1..90e05a52c23c71c5aaa44b0bc76d0136f317daca 100644 (file)
--- a/html/cgi-bin/logs.cgi/ids.dat
+++ b/html/cgi-bin/logs.cgi/ids.dat
@@ -18,6 +18,12 @@ use strict;
 #use warnings;
 #use CGI::Carp 'fatalsToBrowser';
 
+# Path where the suricata-report-generator binary lives.
+my $report_generator_binary = "/usr/bin/suricata-report-generator";
+
+# File which contais the alert SQlite database.
+my $database_file = "/var/log/suricata/reporter.db";
+
 require '/var/ipfire/general-functions.pl';
 require "${General::swroot}/lang.pl";
 require "${General::swroot}/header.pl";
@@ -193,6 +199,60 @@ if ($cgiparams{'ACTION'} eq $Lang::tr{'export'})
        exit;
 }
 
+if ($cgiparams{'ACTION'} eq "$Lang::tr{'generate report'}") {
+       # Array which contains the report-generator command and it's arguments.
+       my @report_cmd = ("$report_generator_binary", " --database=$database_file", " --output=-");
+       
+       # Filename for the generated report.
+       my $filename = "suricata-report";
+       my $file_extension = "pdf";
+
+       # Assign easy to access variables.
+       my $day = $cgiparams{'DAY'};
+       my $month = $cgiparams{'MONTH'};
+       my $year = $year;
+
+       # Calculate the year value.
+       #
+       # Check if the given day and/or month is different from today.
+       if (($day ne $now[3]) || ($month ne $now[4])) {
+               # Check if the given date is in the future.
+               if (($month eq $now[4]) && ($day > $now[3]) || ($month > $now[4] )) {
+                       # Assume we are looking for data from the past year.
+                       $year = $year-1;
+               }
+       }
+
+       # Parse, which kind of report has been requested.
+       if ($cgiparams{'GENERATE_WHAT'} eq "YEAR") {
+               push(@report_cmd, " --year=$year");
+       } elsif ($cgiparams{'GENERATE_WHAT'} eq "MONTH") {
+               push(@report_cmd, " --month=$month");
+               push(@report_cmd, " --year=$year");
+       } elsif ($cgiparams{'GENERATE_WHAT'} eq "DAY") {
+               push(@report_cmd, " --day=$day");
+               push(@report_cmd, " --month=$month");
+               push(@report_cmd, " --year=$year");
+       } else {
+               # Assign an error message.
+               $errormessage = "Could not generate report - Unsupported request.\n";
+       }
+
+       # Check if there has been any error.
+       unless ($errormessage) {
+               # Call the suricata-report-generator binary and return it's output.
+               my @report = &General::system_output(@report_cmd);
+
+               # Send addition HTTP headers to the client and the generated report.
+               print "Content-Type:application/x-download\n";
+               print "Content-Disposition:attachment;filename=$filename.$file_extension\n\n";
+               print @report;
+
+               # Exit gracefully.
+               exit (0);
+       }
+}
+
 &Header::showhttpheaders();
 
 &Header::openpage($Lang::tr{'ids log viewer'}, 1, '');
@@ -247,6 +307,34 @@ print <<END
        <td width='10%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'export'}' /></td>
 </tr>
 </table>
+
+<br><br>
+
+<table width='100%'>
+       <tr>
+               <td>
+                       <h5>$Lang::tr{'report exporting'}</h5>
+               </td>
+       </tr>
+
+       <tr>
+               <td width='50%' class='base'>
+                       $Lang::tr{'generate pdf report for'}
+               </td>
+
+               <td witdh='25%'>
+                       <select name='GENERATE_WHAT'>
+                               <option value='DAY'>$Lang::tr{'selected date'}</option>
+                               <option value='MONTH'>$Lang::tr{'selected month'}</option>
+                               <option value='YEAR'>$Lang::tr{'selected year'}</option>
+                       </select>
+               </td>
+
+               <td witch='25%'>
+                       <input type='submit' name='ACTION' value='$Lang::tr{'generate report'}'>
+               </td>
+       </tr>
+</table>
 </form>
 END
 ;

diff --git a/langs/en/cgi-bin/en.pl b/langs/en/cgi-bin/en.pl
index 57ccaa701ab727e1f6bffeecfd468ae752d34bb4..9dda76add5c59cdef4f3f4b23313428bbe0e0799 100644 (file)
--- a/langs/en/cgi-bin/en.pl
+++ b/langs/en/cgi-bin/en.pl
@@ -1376,12 +1376,14 @@
 'generate' => 'Generate root/host zertifikate',
 'generate a certificate' => 'Generate a certificate:',
 'generate iso' => 'Generate ISO',
+'generate pdf report for', => 'Generate PDF report for:',
 'generate ptr' => 'Generate PTR',
 'generate root/host certificates' => 'Generate root/host certificates',
 'generate tripwire keys and init' => 'generate tripwire keys and init',
 'generatekeys' => 'Generate Keys',
 'generatepolicy' => 'Generate new policy',
 'generatereport' => 'Generate new report',
+'generate report' => 'Generate report',
 'generating the root and host certificates may take a long time. it can take up to several minutes on older hardware. please be patient' => 'Generating the root and host certificates may take a long time.  It can take up to several minutes on older hardware. Please be patient.',
 'genkey' => 'Generate PSK',
 'genre' => 'Genre',
@@ -2289,6 +2291,7 @@
 'repeat' => 'Repeat',
 'reportfile' => 'Reportfile',
 'reportlevel' => 'Reportlevel',
+'report exporting' => 'Report exporting:',
 'requested data' => '1. Connection Settings:',
 'required' => 'Required',
 'required field' => 'Required field',
@@ -2351,6 +2354,9 @@
 'select dest net' => 'Select a destination net.',
 'select media' => 'Select media <br />(only FAT supported for removable media)',
 'select source net' => 'Select a source net. If you have no ORAGNE or BLUE net configured, you need no DMZ Pinholes.',
+'selected date' => 'Selected date',
+'selected month' => 'Selected month',
+'selected year' => 'Selected year',
 'selecttraffic' => 'Select utilization-overview:',
 'send cr' => 'ISP requires Carriage Return:',
 'send email notification' => 'Enabled, send e-mail notification',