OpenWRT New Client Signal Generator for Arduino LED

gistfile1.pl

#!/usr/bin/perl

# Nexus 4
$db{'10:68:ff:ff:ff:ff'} = 0;
# Nexus 5
$db{'c4:43:ff:ff:ff:ff'} = 0;

sub worker {
	$scan=`(iw dev wlan1 station dump; iw dev wlan0 station dump) | grep Station`;
	foreach $key (keys(%db)) {
		if (index($scan, $key) != -1) {
			print "found " . $key . "\n";
			if (not $db{$key}) {
				print "new key\n";
				system("curl http://led.local/arduino/signal/alarm");
				$db{$key} = 1;
			}
		} else {
			$db{$key} = 0;
		}
	}
}

while (1) {
	worker();
	sleep(5);
}