my @loc_daemons = qw(
        crond
        winbindd
        smbd
        nmbd
        cups
        sshd
        zappa
);

sub check_daemons {
        my ($process, $allcool, $psaxline);
        my @psax_list = `ps ax`;
        foreach $process (@loc_daemons) {
                chomp $process; # Just in case
                $allcool = 'true';
                foreach $psaxline (@psax_list) {
                        if ($psaxline =~ "$process") {
                                $allcool = 'true' unless ($allcool eq 'false');
                        } else {
                                $allcool = 'false';
                        }
                }
                if ($allcool eq 'false') {
                        $output .= "$process does not appear to be running!\n";
                        $hellbrokeloose = 'true';
                }
        }
}