59912a8bfca98225a73f1341d1b9b9499c7652e9
1 #!/usr/bin/perl
2 #===============================================================================
3 #
4 # FILE: log-parser.pl
5 #
6 # USAGE: ./log-parser.pl
7 #
8 # DESCRIPTION:
9 #
10 # OPTIONS: ---
11 # REQUIREMENTS: ---
12 # BUGS: ---
13 # NOTES: ---
14 # AUTHOR: (), <>
15 # COMPANY:
16 # VERSION: 1.0
17 # CREATED: 13.03.2008 14:51:03 CET
18 # REVISION: ---
19 #===============================================================================
21 use strict;
22 use warnings;
23 use Getopt::Long;
25 my $log_file = "/var/log/gosa-si-server.log";
27 my $session;
28 GetOptions("s|session=s" => \$session);
30 if( not defined $session) { die "\tplease define a session to parse\n\ti.e. 'perl log-parser.pl -s 4'\n" };
32 print "session: $session\n";
34 open(FILE, "<$log_file") or die "\t can not open log-file";
36 # Read lines
37 my $line;
38 while ($line = <FILE>){
39 next if $line =~ /^\s/;
41 chomp($line);
42 my @line_list = split(" ", $line);
44 next if not $line_list[4];
46 if($line_list[4] eq $session) {
48 print "$line\n";
50 }
51 }