Syslog verfeinern ?

F

flugopa

Dieses funktionstüchtige Perlscript (untern) heute gefunden.

(syslog vom router)
<134>INET: NAT: refused incoming session on ifc 10001 prot 6 84.57.27.91:5900 <- 84.52.131.222:2042

1. Ich würde gern die Ausgabe kürzen, die in das Logfile geschrieben wird.
Alles vor refused = weg

2. Rufe externes shell-script (z.B. shell1.sh) auf wenn "5900 <-" "auftaucht".

3. Wie sollte ich das Perlscript autom. starten?
Perlscript sollte auch nach einen Neustart autom. wieder aktiviert werden.

4. Wer hat eine Idee, oder kennt gute Perlseiten?

Ich hoffe, daß das nicht zu viele Fragen auf einmal sind.

Danke Flugopa

#!/usr/bin/perl -w
use strict;
use IO::Socket;
my ($hSock, $sLine);
$hSock = IO::Socket::INET->new( LocalPort => 514, Proto => 'udp', Reuse => 1) or die "Ups,socket: $@";
print "Ok, Port 514-UDP ist aktiv\n";

while ($hSock->recv($sLine, 200))
{
print $sLine, "\n";
open (FILE,'>>log.txt') || die "kann file nicht öffnen: $!\n";
print FILE "$sLine\n";
close(FILE);
}
die "Jetzt nicht!\n"
 

Ähnliche Themen

Server und Client für TCP und UDP

"send: Cannot determine peer address" nach Timeout mit UDP Server -Perl Socket eval{}

Sambaserver mit USB-Drucker

Perl IPC

add machine script unter samba opensuse 11

Zurück
Oben