#!/usr/bin/perl
#
# $Id: alert-default.pl,v 1.4 2002/03/15 16:11:29 fpmip Exp $
#

# Author : Tycho Fruru <tycho@fruru.com>

# Copyright (C) 2001 Tycho Fruru <tycho@fruru.com>
# Copyright (C) 2001 Conostix S.A. Luxembourg - Tycho Fruru <tycho@conostix.com>

# This program is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by the
# Free Software Foundation; either version 2 of the License, or (at your
# option) any later version.  See <http://www.fsf.org/copyleft/gpl.txt>.
#
# This program is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
# or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
# for more details.
#

# alerting subroutines take the following arguments
#	event			an IPFC::Event
#	alert_destinations	a ref to an array containing
#				URI's of the destinations of the alerts
#	alert_summary		a one-line description of the alert
#				(if one was generated before)
#	alert_text		a full-text description of the alert
#				(if one was generated before)
#
# the outputs are as follows :
#
#	status			0 = error , 1 = all OK
#	alert_destinations	see above
#	alert_summary		see above
#	alert_text		see above

sub alert_default($$$$) {

    my $event = shift;
    my $alert_destinations = shift;
    my $alert_summary = shift;
    my $alert_text = shift;

    return (1,$alert_destinations,$alert_summary,$alert_text);
}

return 1;
