GIF89a;
EcchiShell v1.0
/
/
proc/
self/
root/
usr/
local/
bin/
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;