andre/scripts
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

BMU SMS/send_sms.pl hinzugefügt

Browse Source
This commit is contained in:
andre
2025-02-06 12:50:12 +01:00
parent c7803bc52e
commit 9835da0bf6
1 changed files with 34 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
BMU SMS/send_sms.pl Normal file
View File

@@ -0,0 +1,34 @@
#!/usr/bin/perl
my $path="/usr/lib64/nagios/plugins";
my $log="/var/log/send_sms";
my $smspath="/var/spool/sms/outgoing";
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
my $smsfile="$smspath/out_" . sprintf("%4d-%02d-%02d_%02d-%02d-%02d", $year+1900, $mon+1, $mday, $hour, $min, $sec);
if (system("$path/feiertage.sh") != 0) {
open LF, ">>$log" || die "Kann Logfile nicht schreiben!";
printf LF "### %4d-%02d-%02d %02d-%02d-%02d\n", $year+1900, $mon+1, $mday, $hour, $min, $sec;
printf LF "Keine Alarmierung ($path/feiertage.sh)!\n";
close LF;
exit 0;
}
my $host=$ARGV[0];
my $msg=$ARGV[1];
my $lvl=$ARGV[2];
open SMS, "<$path/sms_receiver" || die "Kann SMS Receiver Datei nicht schreiben!";
my $nr=<SMS>;
close SMS;
open FH, ">$smsfile" || die "Kann SMS Datei nicht schreiben!";
open LF, ">>$log" || die "Kann Logfile nicht schreiben!";
printf FH "To: %s\n\nHost/Service:\n%s\n\nStatus: %s\n\nNachricht:\n%s\n", $nr, $host, $lvl, $msg;
printf LF "### %4d-%02d-%02d %02d-%02d-%02d\n", $year+1900, $mon+1, $mday, $hour, $min, $sec;
printf LF "To: %s\n\nHost/Service:\n%s\n\nStatus: %s\n\nNachricht:\n%s\n", $nr, $host, $lvl, $msg;
close FH;
close LF;