##############
sub checkparms
##############
{
    push (@THINGS, "Username")   if ( $USERNAME eq "UNDEFINED" );
    push (@THINGS, "Password")   if ( $NEWPASS  eq "UNDEFINED" and
                                      $MODE eq "-a" or
                                      $MODE eq "-p" or
                                      $MODE eq "-ha");

    push (@THINGS, "httpd.conf") if ( $MODE eq "-ha"  or
                                      $MODE eq "-hd" and
                                      $APACHECONF eq "UNDEFINED" );

    my $return_val = ( scalar(@THINGS) == 0 ) ? "0" : "1";
    return $return_val;
}