#!/usr/bin/perl

use Fcntl;
use strict;


my (@allowed_hosts) = qw(
rcntalkware.net 		www.rcntalkware.net 
rcntalkware.org 		www.rcntalkware.org 
rcnbusinesspbx.com 		www.rcnbusinesspbx.com 
rcnbusinessservices.net 	www.rcnbusinessservices.net 
rcnbusinessservices.com 	www.rcnbusinessservices.com
rcnbusinessvoip.com 		www.rcnbusinessvoip.com
rcnbusinessvoip.net 		www.rcnbusinessvoip.net
rcnhostedvoip.net   		www.rcnhostedvoip.net
rcnhostedvoip.com   		www.rcnhostedvoip.com
rcninternettelephone.net 	www.rcninternettelephone.net
rcninternettelephone.com 	www.rcninternettelephone.com
rcnippbx.com    		www.rcnippbx.com
rcnippbx.net 	     		www.rcnippbx.net
rcnonlinetelephone.com 		www.rcnonlinetelephone.com
rcnonlinetelephone.net		www.rcnonlinetelephone.net
rcntalkware.biz			www.rcntalkware.biz
rcntalkware.tv			www.rcntalkware.tv
rcntalkwear.net			www.rcntalkwear.net
rcntalkwear.com			www.rcntalkwear.com
rcntalkwhere.net		www.rcntalkwhere.net
rcntalkwhere.com		www.rcntalkwhere.com
rcnvcentrix.com			www.rcnvcentrix.com
rcnvcentrix.net			www.rcnvcentrix.net
);


my $domain_path = '/log/';

while(<>)
{
 next unless m/daemon.info/;
 s/(.*)pound: //;
 
 my ($vhost) = split;
 s/^(\S+) //;

 next unless and_in($vhost, @allowed_hosts);
 

  
 my ($sec,$min,$hour,$day,$month,$year,$wday,$yday) = (localtime())[0..7];
           $month++;  $year+=1900;
 my ($file) = sprintf "ex%04d%02d%02d.log" , $year,$month,$day;
 open(FILE,'>>', "${domain_path}RCN/logs/$file");
 print FILE "$vhost $_";
 close(FILE); 
}



sub and_in {
  my $item = shift;
  my @list = @_;

  foreach my $list_item (@list) {
	if( $list_item eq $item ) {
		return 1;
	}
  }
 return 0;
}