use Astro::Sunrise;
...
my ($min, $hour, $wday) = (localtime)[1,2,6];
my ($sethour, $setmin) = split /:/, sun_set -75.3045, 40.1697;
$hour += $min / 60;
$sethour += $setmin / 60;
if (9 <= $hour && $hour <= $sethour && # 9am to Sunset
1 <= $wday && $wday <= 5 && # Mon to Fri
$ip->{src_ip} eq "207.8.186.2")
{
$ipq->set_verdict($msg->packet_id, NF_ACCEPT);
}
|
