mirror of
https://github.com/waytotheweb/scripts.git
synced 2026-03-29 19:27:07 +00:00
GPL v3 Release
This commit is contained in:
chirpy
179
csf/ConfigServer/Sendmail.pm
Normal file
179
csf/ConfigServer/Sendmail.pm
Normal file
@@ -0,0 +1,179 @@
|
||||
###############################################################################
|
||||
# Copyright (C) 2006-2025 Jonathan Michaelson
|
||||
#
|
||||
# https://github.com/waytotheweb/scripts
|
||||
#
|
||||
# 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 the Free Software
|
||||
# Foundation; either version 3 of the License, or (at your option) any later
|
||||
# version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful, but WITHOUT
|
||||
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
|
||||
# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
|
||||
# details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License along with
|
||||
# this program; if not, see <https://www.gnu.org/licenses>.
|
||||
###############################################################################
|
||||
## no critic (RequireUseWarnings, ProhibitExplicitReturnUndef, ProhibitMixedBooleanOperators, RequireBriefOpen)
|
||||
# start main
|
||||
package ConfigServer::Sendmail;
|
||||
|
||||
use strict;
|
||||
use lib '/usr/local/csf/lib';
|
||||
use Carp;
|
||||
use POSIX qw(strftime);
|
||||
use Fcntl qw(:DEFAULT :flock);
|
||||
use ConfigServer::Config;
|
||||
use ConfigServer::CheckIP qw(checkip);
|
||||
|
||||
use Exporter qw(import);
|
||||
our $VERSION = 1.02;
|
||||
our @ISA = qw(Exporter);
|
||||
our @EXPORT_OK = qw();
|
||||
|
||||
my $config = ConfigServer::Config->loadconfig();
|
||||
my %config = $config->config();
|
||||
my $tz = strftime("%z", localtime);
|
||||
my $hostname;
|
||||
if (-e "/proc/sys/kernel/hostname") {
|
||||
open (my $IN, "<", "/proc/sys/kernel/hostname");
|
||||
flock ($IN, LOCK_SH);
|
||||
$hostname = <$IN>;
|
||||
chomp $hostname;
|
||||
close ($IN);
|
||||
} else {
|
||||
$hostname = "unknown";
|
||||
}
|
||||
|
||||
if ($config{LF_ALERT_SMTP}) {
|
||||
require Net::SMTP;
|
||||
import Net::SMTP;
|
||||
}
|
||||
|
||||
# end main
|
||||
###############################################################################
|
||||
# start sendmail
|
||||
sub relay {
|
||||
my ($to, $from, @message) = @_;
|
||||
my $time = localtime(time);
|
||||
if ($to eq "") {$to = $config{LF_ALERT_TO}} else {$config{LF_ALERT_TO} = $to}
|
||||
if ($from eq "") {$from = $config{LF_ALERT_FROM}} else {$config{LF_ALERT_FROM} = $from}
|
||||
my $data;
|
||||
|
||||
if ($from =~ /([\w\.\=\-\_]+\@[\w\.\-\_]+)/) {$from = $1}
|
||||
if ($from eq "") {$from = "root"}
|
||||
if ($to =~ /([\w\.\=\-\_]+\@[\w\.\-\_]+)/) {$to = $1}
|
||||
if ($to eq "") {$to = "root"}
|
||||
|
||||
my $header = 1;
|
||||
foreach my $line (@message) {
|
||||
$line =~ s/\r//;
|
||||
if ($line eq "") {$header = 0}
|
||||
$line =~ s/\[time\]/$time $tz/ig;
|
||||
$line =~ s/\[hostname\]/$hostname/ig;
|
||||
if ($header) {
|
||||
if ($line =~ /^To:\s*(.*)\s*$/i) {
|
||||
my $totxt = $1;
|
||||
if ($config{LF_ALERT_TO} ne "") {
|
||||
$line =~ s/^To:.*$/To: $config{LF_ALERT_TO}/i;
|
||||
} else {
|
||||
$to = $totxt;
|
||||
}
|
||||
}
|
||||
if ($line =~ /^From:\s*(.*)\s*$/i) {
|
||||
my $fromtxt = $1;
|
||||
if ($config{LF_ALERT_FROM} ne "") {
|
||||
$line =~ s/^From:.*$/From: $config{LF_ALERT_FROM}/i;
|
||||
} else {
|
||||
$from = $1;
|
||||
}
|
||||
}
|
||||
}
|
||||
$data .= $line."\n";
|
||||
}
|
||||
|
||||
$data = &wraptext($data, 990);
|
||||
|
||||
if ($config{LF_ALERT_SMTP}) {
|
||||
if ($from !~ /\@/) {$from .= '@'.$hostname}
|
||||
if ($to !~ /\@/) {$to .= '@'.$hostname}
|
||||
my $smtp = Net::SMTP->new($config{LF_ALERT_SMTP}, Timeout => 10) or carp("Unable to send SMTP alert via [$config{LF_ALERT_SMTP}]: $!");
|
||||
if (defined $smtp) {
|
||||
$smtp->mail($from);
|
||||
$smtp->to($to);
|
||||
$smtp->data();
|
||||
$smtp->datasend($data);
|
||||
$smtp->dataend();
|
||||
$smtp->quit();
|
||||
}
|
||||
} else {
|
||||
local $SIG{CHLD} = 'DEFAULT';
|
||||
my $error = 0;
|
||||
open (my $MAIL, "|-", "$config{SENDMAIL} -f $from -t") or carp("Unable to send SENDMAIL alert via [$config{SENDMAIL}]: $!");
|
||||
print $MAIL $data;
|
||||
close ($MAIL) or $error = 1;
|
||||
if ($error and $config{DEBUG}) {
|
||||
logfile("Failed to send message via sendmail binary: $?");
|
||||
logfile("Failed message: [$data]");
|
||||
}
|
||||
}
|
||||
|
||||
return;
|
||||
}
|
||||
# end sendmail
|
||||
###############################################################################
|
||||
# start wraptext
|
||||
sub wraptext {
|
||||
my $text = shift;
|
||||
my $column = shift;
|
||||
my $original = $text;
|
||||
my $return = "";
|
||||
my $hit = 1;
|
||||
my $loop = 0;
|
||||
while ($hit) {
|
||||
$hit = 0;
|
||||
$return = "";
|
||||
foreach my $line (split(/\n/, $text)) {
|
||||
if (length($line) > $column) {
|
||||
foreach ($line =~ /(.{1,$column})/g) {
|
||||
my $chunk = $_;
|
||||
my $newchunk = "";
|
||||
my $thishit = 0;
|
||||
my @chars = split(//,$chunk);
|
||||
for (my $x = length($chunk)-1;$x >= 0; $x--) {
|
||||
if ($chars[$x] =~ /\s/) {
|
||||
for (0..$x) {$newchunk .= $chars[$_]}
|
||||
$newchunk .= "\n";
|
||||
for ($x+1..length($chunk)-1) {$newchunk .= $chars[$_]}
|
||||
$thishit = 1;
|
||||
last;
|
||||
}
|
||||
}
|
||||
if ($thishit) {
|
||||
$hit = 1;
|
||||
$thishit = 0;
|
||||
$return .= $newchunk;
|
||||
} else {
|
||||
$return .= $chunk."\n";
|
||||
}
|
||||
}
|
||||
} else {
|
||||
$return .= $line."\n";
|
||||
}
|
||||
}
|
||||
$text = $return;
|
||||
$loop++;
|
||||
if ($loop > 1000) {
|
||||
return $original;
|
||||
last;
|
||||
}
|
||||
}
|
||||
if (length($return) < length($original)) {$return = $original}
|
||||
return $return;
|
||||
}
|
||||
# end wraptext
|
||||
###############################################################################
|
||||
|
||||
1;
|
||||
Reference in New Issue
Block a user