Révision 17f78427
Whitespace cleanup
- remove trailing whitespace
- remove empty lines at the end of files
| plugins/apache/apache_byprojects/byprojects_access | ||
|---|---|---|
| 3 | 3 |
# |
| 4 | 4 |
# byprojects_access |
| 5 | 5 |
# |
| 6 |
# Perl script to monitor access *byprojects* (e.g. vhost) from multiple files
|
|
| 6 |
# Perl script to monitor access *byprojects* (e.g. vhost) from multiple files |
|
| 7 | 7 |
# and/or regex. |
| 8 | 8 |
# |
| 9 |
# Danny Fullerton <northox@mantor.org>
|
|
| 9 |
# Danny Fullerton <northox@mantor.org> |
|
| 10 | 10 |
# Mantor Organization <www.mantor.org> |
| 11 | 11 |
# This work is licensed under a MIT license. |
| 12 | 12 |
# |
| 13 | 13 |
# You need logtail (https://www.fourmilab.ch/webtools/logtail/) |
| 14 | 14 |
# |
| 15 |
# Log can be gathered from multiple sources by simply specifying multiple log
|
|
| 15 |
# Log can be gathered from multiple sources by simply specifying multiple log |
|
| 16 | 16 |
# filename or using wildcards (glob). File content can be selected using regex. |
| 17 | 17 |
# |
| 18 | 18 |
# - 'prod' => [ {'path' => '/home/prod/log/access.log'} ],
|
| ... | ... | |
| 74 | 74 |
my @paths = glob $log->{'path'};
|
| 75 | 75 |
foreach my $path (@paths) {
|
| 76 | 76 |
my $state = $statepath.'/'.$project.$x.'_access.state'; |
| 77 |
open(LT, "$logtail -f ".$log->{'path'}." -o $state |") or
|
|
| 77 |
open(LT, "$logtail -f ".$log->{'path'}." -o $state |") or
|
|
| 78 | 78 |
die "Can't open $logtail : $!"; |
| 79 | 79 |
while (<LT>) {
|
| 80 | 80 |
my $buf = $_; |
Formats disponibles : Unified diff