#!/local/bin/perl

$sunray_down = 0;

open (CURRENT_MACROS, "<database");

foreach $line (<CURRENT_MACROS>){
	chop($line);
	if ( $line =~ /^#/ ) { next; }
	if ( $line =~ /^(([A-F0-9]){12})\s+((\d+){1,2})\s+([^ ]*)/){
	#0003BA0CC1F9 11 0.156
	$mac =  $1;
	$room = $5;
	$mac =~ s/([A-Z0-9][A-Z0-9])(?=.)/$1:/g;
        system("/local/cipadm/bin/arping -q -c 1 -i ge0 $mac");
	if ($? == 256) { print("$mac -> $room\n"); $sunray_down = 1; } 
	}	
}

close(CURRENT_MACROS);

if ( $sunray_down == 0 ) { print "All sunrays are up and running\n"; }