REDROOM

Preview: Sendmail.pm Size: 4.24 KB

/usr/src/csf/ConfigServer/Sendmail.pm

###############################################################################
# Copyright 2006-2023, Way to the Web Limited
# URL: http://www.configserver.com
# Email: sales@waytotheweb.com
###############################################################################
## 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;

Name	Size	Perms	Modified	Actions
AbuseIP.pm	2.85 KB	lrw-r--r--	2023-07-26 15:40:34	Edit Download recursive recursive
CheckIP.pm	3.01 KB	lrw-r--r--	2024-09-20 10:36:03	Edit Download recursive recursive
CloudFlare.pm	15.15 KB	lrw-r--r--	2023-07-26 15:40:34	Edit Download recursive recursive
Config.pm	17.41 KB	lrw-r--r--	2025-02-25 16:16:09	Edit Download recursive recursive
cseUI.pm	36.03 KB	lrw-r--r--	2023-07-26 15:40:34	Edit Download recursive recursive
DisplayResellerUI.pm	10.16 KB	lrw-r--r--	2023-07-26 15:40:34	Edit Download recursive recursive
DisplayUI.pm	138.08 KB	lrw-r--r--	2023-07-26 15:40:34	Edit Download recursive recursive
GetEthDev.pm	3.62 KB	lrw-r--r--	2023-07-26 15:40:34	Edit Download recursive recursive
GetIPs.pm	2.19 KB	lrw-r--r--	2023-07-26 15:40:34	Edit Download recursive recursive
KillSSH.pm	2.43 KB	lrw-r--r--	2023-07-26 15:40:34	Edit Download recursive recursive
Logger.pm	1.83 KB	lrw-r--r--	2023-07-26 15:40:34	Edit Download recursive recursive
LookUpIP.pm	11.41 KB	lrw-r--r--	2024-02-15 11:55:30	Edit Download recursive recursive
Messenger.pm	41.43 KB	lrw-r--r--	2023-10-02 11:23:25	Edit Download recursive recursive
Ports.pm	5.69 KB	lrw-r--r--	2023-07-26 15:40:34	Edit Download recursive recursive
RBLCheck.pm	6.77 KB	lrw-r--r--	2023-07-26 15:40:34	Edit Download recursive recursive
RBLLookup.pm	2.92 KB	lrw-r--r--	2023-07-26 15:40:34	Edit Download recursive recursive
RegexMain.pm	44.17 KB	lrw-r--r--	2025-02-10 11:48:56	Edit Download recursive recursive
Sanity.pm	1.88 KB	lrw-r--r--	2023-07-26 15:40:34	Edit Download recursive recursive
Sendmail.pm	4.24 KB	lrw-r--r--	2023-07-26 15:40:34	Edit Download recursive recursive
ServerCheck.pm	77.62 KB	lrw-r--r--	2024-09-20 10:36:03	Edit Download recursive recursive
ServerStats.pm	134.43 KB	lrw-r--r--	2023-07-26 15:40:34	Edit Download recursive recursive
Service.pm	2.88 KB	lrw-r--r--	2023-07-26 15:40:34	Edit Download recursive recursive
Slurp.pm	1.56 KB	lrw-r--r--	2023-07-26 15:40:34	Edit Download recursive recursive
URLGet.pm	7.37 KB	lrw-r--r--	2025-02-10 12:06:08	Edit Download recursive recursive

Directory Contents