From ecd052098413f87701ba00e28f88563248a177f6 Mon Sep 17 00:00:00 2001 From: Peter Palfrader Date: Wed, 5 Jun 2002 04:05:40 +0000 Subject: Initial Import --- pingd | 40 ++++++++++++++++++++++++++++++++++++++++ 1 file changed, 40 insertions(+) create mode 100755 pingd (limited to 'pingd') diff --git a/pingd b/pingd new file mode 100755 index 0000000..21ce893 --- /dev/null +++ b/pingd @@ -0,0 +1,40 @@ +#!/usr/bin/perl -wT + +# (c) 2002 Peter Palfrader +# $Id: pingd,v 1.1 2002/06/05 04:05:40 weasel Exp $ +# + +use strict; +use XML::Parser; +use XML::Dumper; +use Getopt::Long; +use lib '.'; +use Echolot::Config; +use Echolot::Globals; +use Echolot::Storage::File; +#use Echolot::Scheduler; +use Echolot::Conf; +use Echolot::Mailin; + +$ENV{'PATH'} = '/bin:/usr/bin'; +delete @ENV{'IFS', 'CDPATH', 'ENV', 'BASH_ENV'}; + +Echolot::Config::init(); +Echolot::Globals::init(); + +#my $storage = new Echolot::Storage::File ( datadir => 'data' ); +#my $conf = new Echolot::Conf( storage => $storage ); + +#$conf->send_requests(); + +#my @addr = $storage->get_query_addresses(); + +require Data::Dumper; +print Data::Dumper->Dump([Echolot::Globals::get()]); +#Echolot::Conf::send_requests(); +Echolot::Mailin::process(); + +#$storage->commit(); + + +# vim: set ts=4 shiftwidth=4: -- cgit v1.2.3