#!/usr/bin/perl


        my $haspatch = 0;
        open(SO,"/usr/local/apache/bin/suexec");
        while(<SO>) {
                if(/\/usr\/local\/cpanel\/3rdparty\/mailman\//) {
                        $haspatch = 1;
                }
        }
        close(SO);
        if (!$haspatch) {
		unlink("/var/cpanel/suexecpatch");
	} else {
		open(SUPATCH,">/var/cpanel/suexecpatch");
		close(SUPATCH);
	}