Thread watchdog- Script für Logfile (3 answers)
Opened by vitali at 2005-02-01 12:20

renee
 2005-02-01 12:37
#51470 #51470
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Code: (dl )
1
2
3
4
5
6
7
8
9
my $file = '/path/to/file.log';
my $bool_pattern = 0;
open(R_LOG,"<$file") or die $!; # Datei zum Lesen öffnen, bei Fehler -> Programmabbruch und Fehlermeldung
while(my $line = <R_LOG>){ # solange Zeilen eingelesen werden
$bool_pattern = 1 if($line =~ /DEIN_PATTERN/); # setze $bool_pattern auf 1, wenn das Pattern auftaucht
}
close R_LOG; # schließe die Datei

restart_webserver() if($bool_pattern); # wenn pattern gefunden wurde, dann starte den Webserver
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

View full thread watchdog- Script für Logfile