#!/usr/local/bin/perl

#
#
# $EtcDir is the location of database files
# Modify the next line to represent your site
###$EtcDir

# End editable section
#
#

dbmopen (GSites, "$EtcDir/GSites", "0666") ||
				die "Can't open HostIP: $!\n";

while ()
{
	foreach (sort keys (%GSites))
	{
		$GSite = $_;
		last if ($GSites{$GSite} =~ /\?/);
	}
	
	last if ($GSites{$GSite} !~ /\?/);
	$GSites{$GSite} = 'X';

	($IP, $Port) = split(/\t/, $GSite);

	if ($IP !~ /\d+\.\d+\.\d+\.\d+/) {$GSites{$GSite} = 0; next;}
	if ($Port eq '0') {$GSites{$GSite} = 0; next;}
	
	$cmd = "tree.local $IP $Port";
	print "$cmd\n";
 	system($cmd);
	sleep (int(rand(5)) + 10);
}

dbmclose (HostIP);
dbmclose (GSites);
