#!/usr/bin/perl
use NetAddr::IP;
use Net::SSH::Perl;

$configfile = "admin.conf";

open(CONFIG, $configfile) or die "Couldn't open config file: $!\n";
while (<CONFIG>) {
  chomp;
  s/#.*//;
  s/^\s+//;
  next unless length;
  ($var, $value) = split(/\s*=\s*/, $_, 2);
  $User_Preferences{$var} = $value;
}

chop($User_Preferences{IP});

$ip = new NetAddr::IP "$User_Preferences{IP}";
@server_list = $ip->hostenum;

for ($i = 0; $i <= 254; $i++) {
  if ($server_list[$i] =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/) {
    $period = ".";
    $server_list[$i] = $1 . $period . $2 . $period . $3 . $period . $4;
    print "$server_list[$i]\n";
   }
}


sub test {
  foreach $server (@server_list) {
    $testcmd = "touch /tmp/success.$server";
    $ssh = Net::SSH::Perl->new($server);
    $ssh->login($User_Preferences{USER}, $User_Preferences{PASSWORD});
    ($stdout, $stderr, $exit) = $ssh->cmd($testcmd);
  }
}

sub restartapache {
  foreach $server (@server_list) {
    $apacherestartcmd = "$User_Preferences{APACHEPATH} restart";
    $ssh = Net::SSH::Perl->new($server);
    $ssh->login($User_Preferences{USER}, $User_Preferences{PASSWORD});
    ($stdout, $stderr, $exit) = $ssh->cmd($apacherestartcmd);
  }
}



if ($User_Preferences{TEST} == 1) { test(); }
if ($User_Preferences(RESTARTAPACHE} == 1 { restartapache(); }