#!/usr/bin/perl -w

use IO::Socket;
use XML::Simple;
use strict;

my $Config = XMLin('config.xml');

while(sleep($Config->{'Delay'})) {
	my $s = IO::Socket::INET->new(
		PeerAddr=>$Config->{'Server'},
		PeerPort=>$Config->{'Port'},
		Proto=>'tcp') or tolog("Can't connect to " . $Config->{'Server'} . ":" . $Config->{'Port'} ." ". $!, 'error');
	tolog("Connected to " . $Config->{'Server'} . ":" . $Config->{'Port'}, 'status');
}

sub tolog {
	my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime time;
	$year = 1900 + $year; $mon = 1 + $mon;
	$_ = shift;
	my $file = shift;
	open(LOG, '>>log' . $file . '.log');
	print LOG "[$mday.$mon.$year][$hour:$min:$sec] " . $_ . " n";
	close(LOG);
}

sub hook {
	opendir(DIR, $Config->{'Extension'}) or tolog("Can't open dir: " . $Config->{'Extension'});
	my @dots = grep { /.pl$/ && -f $Config->{'Extension'} . "/$_" } readdir(DIR);
	closedir DIR;
		
	foreach(@dots) {
		if(eval {require $Config->{'Extension'} . "/$_"}) {
			require $Config->{'Extension'} . "/$_";
		}
		else {
			tolog("Error include $_ $!", 'error');
		}
	}
}