Хабр Курсы для всех
РЕКЛАМА
Практикум, Хекслет, SkyPro, авторские курсы — собрали всех и попросили скидки. Осталось выбрать!
#!/usr/bin/perl
use Time::HiRes qw (usleep gettimeofday);
my $drop = 0;
while (1) {
my $t = gettimeofday();
my $r = `nfc-list`;
if ($r=~/UID \(NFCID1\): ((?:\w\w\s+)+)/) {
my $uid = uc $1;
$uid =~s/\s+//g;
print "UID: $uid\n";
if ($uid eq '34591709856866') {
if ($drop) {.
`iptables -D INPUT -d 192.168.10.22 -j DROP`;
`iptables -D FORWARD -d 192.168.10.22 -j DROP`;
print "Drop block\n";
$drop = 0;
} else {
`iptables -I INPUT -d 192.168.10.22 -j DROP`;
`iptables -I FORWARD -d 192.168.10.22 -j DROP`;
print "Add block\n";
$drop = 1;
}
sleep 3;
}
}
usleep 300000 if (gettimeofday() - $t < 1000000 );
}
СКУД, малина и чайник