#
# $Id: Availability.pm,v 1.2 2002/03/08 10:04:28 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.
#

package IPFC::Parse::Event::Availability;

use strict;
use warnings;
use IPFC::Log;

sub parse($$) {
	shift; # current class
	my $entry = shift;
	my $template_event = shift;
	
	# make local copies so that we don't pollute the global variables
	my $event = $template_event->clone;
	
	if (defined($entry->{'retrytime'}->[0])) { 
		$event->add_attributes({ 'retry_time' => $entry->{'retrytime'}->[0] });
	} else {
		warn "No retrytime, check XML ...";
	}
	
	return $event;
}

return 1;
