package WebServerRemote 0.000001;

use Carp;
use Moose;
use Data::Dumper;
use Modern::Perl;
use Params::Validate;
use MyWebsite;
use namespace::autoclean;
with 'MyOpenSSH';
with 'Apache2Info';

sub get_file {
  validate_pos(@_, 1, 1);
  my $self = shift;
  my $file_path = shift;

  return $self->capture("cat $file_path");
}

# get website objects based on domain name
sub get_websites {
  validate_pos(@_, 1, 1);
  my ($self, $domain) = @_;

  my @websites = ();                                       # website objects
  my $config_files = $self->lookup_config_files($domain);  # list of config files
  croak 'No config files found with ' . $domain if !@$config_files;
  foreach my $file (@$config_files) {
    my $config = $self->get_file($file);
    #my @cmds = qw( servername, suexecusergroup, customlog, serveralias );

    foreach my $docroot (@{$self->get_docroots_from_string($config)}) {
      my $vh           = $self->get_vh_context($config, 'documentroot', $docroot);

      my @aliases      = ();
      my $aliases      = '';
      while (my $alias = $vh->cmd_config('serveralias')) {
        push @aliases, $alias;
      }
      $aliases         = join ', ', @aliases;
      my $suexec       = $vh->cmd_config('suexecusergroup') || '';
      my $servername   = $vh->cmd_config('servername') || '';
      my $errorlog     = $vh->cmd_config('errorlog') || '';

      push @websites,
            MyWebsite->new (
              docroot            => $docroot,
              apache_config_path => $file,
              domain             => $servername,
              suexecgroup        => $suexec,
              aliases            => $aliases,
              error_log          => $errorlog,
              ssh                => $self->ssh->get_user . '@' . $self->ssh->get_host,
            );
    }
  }
  return \@websites;
}

sub check_dir_for_files {
  validate_pos(@_, 1, 1, 1);
  my $self = shift;
  my $dir = shift;
  my $files = shift;

  my $listing = $self->capture('ls -1 ' . $dir);
  my %files = map { $_ => 1 } split /\n/, $listing;
  my @fail = ();

  # $files can be a scalar or an array
  if (ref $files) {
    push @fail, grep { !exists $files{$_} } @$files;
    return !@fail;
  } else {
    return $files{$files};
  }
}
##########################################