#!/usr/local/bin/perl
#
# Name		: wrapnet.pl
# 
# Version	: $Header: /cvsroot/ipfc/ipfc/src/wrapper/perl-skeleton/wrapnet-skeleton.pl,v 1.3 2002/01/13 19:04:17 adulau Exp $
#
# Purpose	: It's a simple network wrapper acting as network manager
#		  between the wrapper collector and the dr-server.
#      
# Author	: Alexandre Dulaunoy <alex@thinkingsecure.com>

# Copyright (C) 2000,2001 Alexandre Dulaunoy <adulau@thinkingsecure.com>
# Copyright (C) 2001 Conostix S.A. Luxembourg - Alexandre Dulaunoy <adulau@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.

 
require $ENV{IPFCDIR}."/lib/libipfc.pl";

&ipfc_init;
&ipfc_going_daemon;

until ($ipfc_time_to_die)
{
	sleep 10;
	&IpfcFlushQueue;
}

