#!/bin/ksh93
# IBM_PROLOG_BEGIN_TAG 
# This is an automatically generated prolog. 
#  
# 61haes_r714 src/43haes/lib/ksh93/hacmp/KLIB_HACMP_delete_event.sh 1.5 
#  
# Licensed Materials - Property of IBM 
#  
# Restricted Materials of IBM 
#  
# COPYRIGHT International Business Machines Corp. 2012,2013 
# All Rights Reserved 
#  
# US Government Users Restricted Rights - Use, duplication or 
# disclosure restricted by GSA ADP Schedule Contract with IBM Corp. 
#  
# IBM_PROLOG_END_TAG 

#================================================
# The following, commented line enforces coding
# standards when this file is edited via vim.
#================================================
# vim:tabstop=4:shiftwidth=4:expandtab:smarttab
#================================================

# Start of POD-formatted documentation. Viewing suggestions:
#      perldoc <FILENAME>
#      pod2text -c <FILENAME>
#      pod2text -c --code <FILENAME>
#      pod2html <FILENAME>
function devDoc {
    : <<'=cut' >/dev/null 2>&1

=head1 NAME

KLIB_HACMP_delete_event

=head1 VERSION

 Version Number:  1.5
 Last Extracted:  1/31/14 04:42:01
 Last Changed:    4/29/13 13:18:08

 Path, Component, Release(, Level):
 src/43haes/lib/ksh93/hacmp/KLIB_HACMP_delete_event.sh, hacmp.assist, 61haes_r714

=head1 SYNOPSIS

clmgr delete event {<event>[,<event#2>,<event#n>,...] | ALL}

=head1 DESCRIPTION

Deletes one or more custom cluster events from the local system.

=head1 ARGUMENTS

 1. events [REQUIRED] [string]
    One or more (comma or space separated) event devices to attempt to delete.

=head1 RETURN

 0: no errors were detected; the operation appears to have been successful
 1: a general error has occurred
 2: a specified resource does not exist, or could not be found
 3: some required input was missing
 4: some detected input was incorrect in some way
 5: a required dependency does not exist
 6: a specified search failed to match any data

=head1 COPYRIGHT

COPYRIGHT International Business Machines Corp. 2005,2010
All Rights Reserved

=cut
} # End of POD-formatted documentation.


function KLIB_HACMP_delete_event {
    LINENO=2 . $HALIBROOT/log_entry "$0()" "$CL"
    : version=1.5, src/43haes/lib/ksh93/hacmp/KLIB_HACMP_delete_event.sh, hacmp.assist, 61haes_r714
    : INPUTS: $*

    typeset events=${1//\"/}
            events=${events//,/ }

    [[ $CLMGR_LOGGING == 'med' ]] && set +x  # Only trace param values

    #===================================
    : Declare and initialize variables
    #===================================
    typeset -i rc=$RC_UNKNOWN
    typeset -i i=0
    typeset event=

    #=================
    : Validate input
    #=================
    if [[ -z $events ]]; then
        /usr/bin/dspmsg -s $CLMGR_SET $CLMGR_MSGS 100 "\nERROR: a name/label must be provided.\n\n" 1>&2
        rc=$RC_MISSING_INPUT

    else
        typeset -u uctext=$events
        if [[ $uctext == "ALL" ]]; then
            events=
            typeset available
            CL=$LINENO KLIB_HACMP_list_events available
            for (( i=0; i<${#available[*]}; i++ )); do
                events="$events ${available[$i]}"
            done

            if [[ $events == *([[:space:]]) ]]; then
                /usr/bin/dspmsg -s $CLMGR_SET $CLMGR_MSGS 334 "Warning: there are no events to delete.\n"
                rc=$RC_SUCCESS
            fi
        fi
    fi

    #========================================================
    : Delete the event if no input errors have been detected
    #========================================================
    if (( $rc == RC_UNKNOWN )); then
        for event in $events; do

            CL=$LINENO KLIB_HACMP_is_known_event "$event"
            if (( $? != RC_SUCCESS )); then
                /usr/bin/dspmsg -s $CLMGR_SET $CLMGR_MSGS 102 "\nERROR: \"%1\$s\" does not appear to exist!\n\n" "$event" 1>&2
                /usr/bin/dspmsg -s $CLMGR_SET $CLMGR_MSGS 170 "Available Events:\n\n" 1>&2

                typeset available
                CL=$LINENO KLIB_HACMP_list_events available
                for (( i=0; i<${#available[*]}; i++ )); do
                    if [[ ${available[$i]} != *([[:space:]]) ]]; then
                        print -u2 "\t${available[$i]}"
                    fi
                done
                rc=$RC_NOT_FOUND

            else
                print -- "$0()[$LINENO]($SECONDS): $HAUTILS/clrmcustom -t event -n \"$event\"" >>$CLMGR_TMPLOG  # Always log commands
                $HAUTILS/clrmcustom -t event -n "$event"
                rc=$?
                print -- "$0()[$LINENO]($SECONDS): clrmcustom RC: $rc" >>$CLMGR_TMPLOG
                if (( $rc == RC_SUCCESS )); then
                    typeset predef
                    CL=$LINENO KLIB_HACMP_list_events predef TYPE=PREDEFINED
                    for (( i=0; i<${#predef[*]}; i++ )); do
                        typeset -A eProps
                        CL=$LINENO KLIB_HACMP_get_event_attributes "${predef[$i]}" eProps TYPE=PREDEFINED
                        for key in PRE_EVENT_COMMAND POST_EVENT_COMMAND; do
                            if [[ " ${eProps[$key]//,/ } " == *\ $event\ * ]]
                            then
                                /usr/bin/dspmsg -s $CLMGR_SET $CLMGR_MSGS 9999 '*** Removing "%1$s" from "%2$s" in event "%3$s".\n' "$event" "$key" "${eProps[NAME]}"
                                typeset NEW_EVENTS=" ${eProps[$key]//,/ } "
                                NEW_EVENTS=$(CL=$LINENO trim ${NEW_EVENTS/ $event / })
                                NEW_EVENTS=${NEW_EVENTS// /,}
                                case $key in
                                    PRE_EVENT_COMMAND)
                                        $HAUTILS/clmgr -T $CLMGR_TRANSACTION_ID modify event "${predef[$i]}" PRE_EVENT_COMMAND="$NEW_EVENTS"
                                    ;;
                                    POST_EVENT_COMMAND)
                                        $HAUTILS/clmgr -T $CLMGR_TRANSACTION_ID modify event "${predef[$i]}" POST_EVENT_COMMAND="$NEW_EVENTS"
                                    ;;
                                esac
                                cmd_rc=$?
                                if (( $rc == RC_SUCCESS && $cmd_rc != RC_SUCCESS )); then
                                    rc=$cmd_rc
                                    /usr/bin/dspmsg -s $CLMGR_SET $CLMGR_MSGS 9999 '\nERROR: failed to remove "%1$s" from "%2$s" in event "%3$s".\n\n' "$event" "$key" "${eProps[NAME]}" 1>&2
                                fi
                            fi
                        done
                        unset eProps
                    done

                else
                    rc=$RC_ERROR
                    /usr/bin/dspmsg -s $CLMGR_SET $CLMGR_MSGS 300 "\nERROR: failed to delete \"%1\$s\".\n\n" "$event" 1>&2
                    break
                fi
            fi
        done

        (( $rc != RC_SUCCESS )) && print -u2
    fi

    #=======================================================================
    : If a user input error was detected, provide some helpful suggestions
    #=======================================================================
    if (( $rc == RC_MISSING_INPUT || $rc == RC_INCORRECT_INPUT )) && \
       [[ $CLMGR_GUI == *([[:space:]]) ]]
    then
        CL=$LINENO cl_dspmsg -s $CLMGR_SET $CLMGR_MSGS 104 "For more information about available options and syntax, try\n\"$HAUTILS/clmgr %1\$s\". As an\nalternative, if the PowerHA SystemMirror man pages have been installed, invoke\n\"$HAUTILS/clmgr -hv\" (or \"/usr/bin/man clmgr\"),\nsearching for \"%2\$s\" in the displayed text.\n\n" \
        "delete event -h" "EVENT:" "$CLMGR_PROGNAME" 1>&2
    fi

    log_return_msg "$rc" "$0()" "$LINENO"
    return $?
} # End of "KLIB_HACMP_delete_event()"