#!/usr/bin/perl -w
# this perl script watches the packet radio frequency for a wx radio alert 
# message embeded inside a ping packet sent from a station with a noaa
# radio interfaced to it.  upon receiving the alert message the script can
# be configured to; email, wall users, ect.  This script must be run as root.

open L, "/usr/local/bin/listen |" or die "$!\n";
while (<L>) {
  if (/WX RADIO ALERT/i) {
    print "Message Sent\n";
    system("wall Weather Radio Alert! Check 162.55 MHz for more info.\n");
    sleep 1800;
  }
}
