Add PagerDuty Perl notification method for Check_MK

pagerduty-perl

#!/bin/bash
# PagerDuty (Perl)

COMMAND="/usr/local/bin/pagerduty_nagios.pl"

if [ "$NOTIFY_WHAT" = "SERVICE" ]; then
    $COMMAND enqueue -f pd_nagios_object=service -f CONTACTPAGER="$NOTIFY_PARAMETER_1" -f NOTIFICATIONTYPE="$NOTIFY_NOTIFICATIONTYPE" -f HOSTNAME="$NOTIFY_HOSTNAME" -f SERVICEDESC="$NOTIFY_SERVICEDESC" -f SERVICESTATE="$NOTIFY_SERVICESTATE"
elif [ "$NOTIFY_WHAT" = "HOST" ]; then
    $COMMAND enqueue -f pd_nagios_object=host -f CONTACTPAGER="$NOTIFY_PARAMETER_1" -f NOTIFICATIONTYPE="$NOTIFY_NOTIFICATIONTYPE" -f HOSTNAME="$NOTIFY_HOSTNAME" -f HOSTSTATE="$NOTIFY_HOSTSTATE"
fi