mirror of
https://git.freebsd.org/ports.git
synced 2025-04-28 01:26:39 -04:00
62e8b91190
A Perl based tool to parse DMARC reports, based on John Levine's rddmarc,
but extended by the following features:
Allow to read messages from an IMAP server and not only from
the local filesystem.
Store much more XML values into the database (for example the
missing SPF and DKIM results from the policy_evaluated section)
and also the entire XML for later reference.
Supports MySQL and PostgreSQL.
Needed database tables and columns are created automatically,
database by themselves.
29 lines
1.4 KiB
Perl
29 lines
1.4 KiB
Perl
--- dmarcts-report-parser.pl.orig 2023-06-25 14:23:56 UTC
|
|
+++ dmarcts-report-parser.pl
|
|
@@ -88,7 +88,7 @@ sub show_usage {
|
|
print " ./dmarcts-report-parser.pl [OPTIONS] [PATH] \n";
|
|
print "\n";
|
|
print " This script needs a configuration file called <dmarcts-report-parser.conf> in \n";
|
|
- print " the current working directory, which defines a database server with credentials \n";
|
|
+ print " %%PREFIX%%/etc, which defines a database server with credentials \n";
|
|
print " and (if used) an IMAP server with credentials. \n";
|
|
print "\n";
|
|
print " Additionaly, one of the following source options must be provided: \n";
|
|
@@ -171,7 +171,7 @@ use constant ALLOWED_SPFRESULT => qw(
|
|
|
|
# Load script configuration options from local config file. The file is expected
|
|
# to be in the current working directory.
|
|
-my $conf_file = 'dmarcts-report-parser.conf';
|
|
+my $conf_file = '%%PREFIX%%/etc/dmarcts-report-parser.conf';
|
|
|
|
# Get command line options.
|
|
my %options = ();
|
|
@@ -265,7 +265,7 @@ if (exists $options{info}) {$processInfo = 1;}
|
|
|
|
# Setup connection to database server.
|
|
our %dbx;
|
|
-my $dbx_file = File::Basename::dirname($0) . "/dbx_$dbtype.pl";
|
|
+my $dbx_file = "%%DATADIR%%/dbx_$dbtype.pl";
|
|
my $dbx_return = do $dbx_file;
|
|
die "$scriptname: couldn't load DB definition for type $dbtype: $@" if $@;
|
|
die "$scriptname: couldn't load DB definition for type $dbtype: $!" unless defined $dbx_return;
|