| 139 | | my ($vhost, $size, $line) = $log_line =~ m/^(\S+) (\d+|-) (.*)$/s; |
| | 139 | #Adapted regexp to handle logio output, ideally it should be handled |
| | 140 | # in a single regexp |
| | 141 | my ($vhost, $size, $line, $inby, $outby); |
| | 142 | if ( $main::cfg{'APACHE_LOGIO_ACTIVE'} ne 'yes' ) { |
| | 143 | print STDOUT "non-logio branch\n"; |
| | 144 | ($vhost, $size, $line) = $log_line =~ m/^(\S+) (\d+|-) (.*)$/s; |
| | 145 | } else { |
| | 146 | ($vhost, $size, $line, $inby, $outby) = $log_line =~ m/^(\S+) (\d+|-) (.*) (\d+|-) (\d+|-)$/s; |
| | 147 | $line = $line."\n"; |
| | 148 | my $sizeb = $outby+$inby; |
| | 149 | $size = $outby+$inby; |
| | 150 | } |