index 6158e87f2bc264032d7f57199037b12c5f776162..7a7cd5e74946c7afbbd245e4f4396a7615d99d9d 100755 (executable)
use Getopt::Long;
use Data::Dumper;
use Getopt::Long;
use Data::Dumper;
+my $pattern;
my $log_file = "/var/log/gosa-si-server.log";
my $log_file = "/var/log/gosa-si-server.log";
-my $within_session = 0;
-my $within_incoming = 0;
-my $within_header = 0;
-my $session;
-my $incoming;
-my $header;
-
-sub check_header {
- my ($line) = @_ ;
-
- # new header, set all values back to default
- if ($line =~ /INFO: Incoming msg with header/ ) {
- $within_header = 0;
- }
-
- if ($line =~ /INFO: Incoming msg with header '$header'/) {
- $within_header = 1;
- return $line;
- } else {
- if ($within_header) { return $line; }
- }
- return;
-}
-
-sub check_incoming {
- my ($line) = @_ ;
-
- # new incoming msg, set all values back to default
- if ($line =~ /INFO: Incoming msg with session ID \d+ from/ ) {
- $within_incoming = 0;
- }
-
- if ($line =~ /INFO: Incoming msg with session ID \d+ from '$incoming'/) {
- $within_incoming = 1;
- return $line;
- } else {
- if ($within_incoming) { return $line; }
- }
- return;
-}
-
-sub check_session {
- my ($line) = @_ ;
-
- if ($line =~ /gosa-si-server (\d+) / ) {
- if ((defined $1) && ($1 eq $session)) {
- $within_session = 1;
- return $line;
- } else { $within_session = 0; }
- } else {
- if ($within_session == 1) { return $line; }
- }
- return;
-}
-
### MAIN ######################################################################
GetOptions(
### MAIN ######################################################################
GetOptions(
- "s|session=s" => \$session,
- "i|incoming=s" => \$incoming,
- "h|header=s" => \$header,
+ "p|pattern=s" => \$pattern,
);
);
-# check script pram
-my $script_pram = {};
-if (defined $session) {
- print "session: $session\n";
- $script_pram->{'session'} = $session;
- }
-if (defined $incoming) {
- print "incoming: $incoming\n";
- $script_pram->{'incoming'} = $incoming;
-}
-if (defined $header) {
- print "header: $header\n";
- $script_pram->{'header'} = $header;
-}
-
-if (keys(%$script_pram) == 0) {
- # print usage and die
- print "exiting script\n";
- exit(0);
-}
-
-open(FILE, "<$log_file") or die "\t can not open log-file";
+open(FILE, "<$log_file") or die "\ncan not open log-file '$log_file'\n";
my @lines;
my @lines;
-my $positive_msg = 0;
+my $messages = {};
+
# Read lines
while ( my $line = <FILE>){
chomp($line);
# Read lines
while ( my $line = <FILE>){
chomp($line);
-
+
# start of a new message, plot saved log lines
# start of a new message, plot saved log lines
- if ($line =~ /INFO: Incoming msg with session ID \d+ from / ) {
- if ($positive_msg) {
- print join("\n", @lines)."\n";
- }
-
- $positive_msg = 0;
- $within_session = 0;
- $within_header = 0;
- $within_incoming = 0;
- @lines = ();
- }
-
- push (@lines, $line);
-
- my $positiv_counter = 0;
- while (my ($pram, $val) = each %$script_pram) {
- if ($pram eq 'session') {
- my $l = &check_session($line);
- if (defined $l) { $positiv_counter++; }
- }
-
- elsif ($pram eq 'incoming') {
- my $l = &check_incoming($line);
- if (defined $l) { $positiv_counter++; }
- }
-
- elsif ($pram eq 'header') {
- my $l = &check_header($line);
- if (defined $l) { $positiv_counter++; }
- }
- }
-
- if (keys(%$script_pram) == $positiv_counter) {
- $positive_msg = 1;
- }
+ if ($line =~ /$pattern/ ) {
+ print "$line\n";
+ }
}
}
-
-
+close FILE;