File Coverage

blib/lib/Apache/Yaalr.pm

Criterion	Covered	Total	%
statement	17	84	20.2
branch	0	42	0.0
condition	0	9	0.0
subroutine	6	12	50.0
pod	0	7	0.0
total	23	154	14.9

package Apache::Yaalr;

use 5.008008;
use strict;
use warnings;
use Carp qw(croak);

require Exporter;

our @ISA = qw(Exporter);
our @EXPORT = qw( @potential_confs );
our $VERSION = '0.03.3 ';

my (@potential_confs, @dirs);
my @mac = qw( /etc/apache /etc/apache2 /etc/httpd /usr/local/apache2 /Library/WebServer/ );
my @lin = qw( /etc/apache /etc/apache2/sites-avilable/ /etc/httpd /usr/local/apache2 /etc/apache-perl );

sub new {
  my $package = shift;
  return bless({}, $package);
}

sub os { # operating system best guess, we'll need this later
  my $self = shift;
  my $uname = `which uname`;
  my @os;

  if ($uname) {
    push @os, `uname -a` or croak "Cannot execute uname -a";
  } elsif ($^O) {
    push @os, "$^O unknown";
  } else {
    push @os, "unknown unknown";
  }
  return @os;
}


# This is for getting info from a user supplied Apache2 config file
sub apache2_conf {
  my ($self, $file) = @_;
  croak("$file does not exist.") unless (-e $file);
  croak("$file not readable.") unless (-r $file);
  my ($str, $line, $format);
  my (@formats, @format_string);
  open FH, $file or croak "Cannot open configuration file: $file";

  while () {
    if (/LogFormat/) {
      push @formats, $_;
    }
  }
  close FH;
  # here we need to scoop up everything in sites-available
  croak("Format not found\n") unless (($#formats) >= 0) ;

  for (@formats) {
    my @format_string = split / /, $_;
    $format = pop @format_string;
    $str = \@format_string;
  }
  return ($file, \$format, $str);
}


sub httpd_conf { # get LogFormat and type of log from user supplied httpd.conf file
  my $self = shift;
  my $file = shift;
  croak("$file does not exist.") unless (-e $file);
  # check the basename here to make sure we have a httpd.conf file
  my ($str, $line, $log_type, $location, $format);
  my ( @formats, @custom, @format_string,);
  open FH, $file or croak "Cannot open configuration file: $file";

  while () {
    if (/LogFormat/) {
      push @formats, $_;
    }
    if (/CustomLog/) {
      push @custom, $_;
    }
  }
  close FH;

  croak("Format not found\n") unless (($#formats) && ($#custom) >= 0) ;

  for $line (@custom) {
    if ($line !~ /#/) {   # this is a hack, it gets commented-out lines
      my ($CustomLog, $location, $log_type) = split / /, $line;
      $log_type =~ s/ //g;
      for (@formats) {
	my @format_string = split / /, $_;
	$format = pop @format_string;
	if ($format =~ /$log_type/) {
	  shift @format_string;
	  $str = \@format_string;
	  last; # no need to check further
	}
      }
      chomp($log_type);
      return ($file, $log_type, $location, $str);
    }
  }
}

sub find_conf {
  my $self = shift;

  use File::Find qw(find);
  if ($^O =~ /darwin/) {

    # grep for potential apache dirs on the system - note that apache2 does things differently!!

	@dirs = grep {-d} @mac;
	croak "no suitable directories" unless @dirs;

	find(\&httpd, @dirs);
	find(\&apache2, @dirs);

	# return an array of files
	return @potential_confs;

      } elsif ($^O =~ /linux/) {
	@dirs = grep {-d} @lin;
	croak "no suitable directories" unless @dirs;

	find(\&httpd, @dirs);
	find(\&apache2, @dirs);

	# return an array of files
	return @potential_confs;
      } else {
	croak "Cannot determine operating system.";
      }
}
sub httpd {
  /^httpd.conf$/ &&
    -r &&
      push @potential_confs, $File::Find::name;
}

sub apache2 {
  /^apache2.conf$/ &&
    -r &&
      push @potential_confs, $File::Find::name;
}


1;

__END__