sub Alrm {
        &M(0, $cfg->{staff}, "Received SIGALRM.");
        my $sth1 = $dbh->prepare('SELECT COUNT(*) FROM rand_reqs WHERE acted = 0');
        $sth1->execute();
        my @ary = $sth1->fetchrow_array();
        my $reqs = $ary[0];
        if ($reqs) {
                &M(0, $cfg->{home}, "There are $reqs requests in-queue.");
                &M(0, $cfg->{staff}, "CHECK QUEUE.");
        }
        $SIG{ALRM} = \&Alrm;
        alarm(30);
}