| 1 |
package Echolot::Conf; |
package Echolot::Conf; |
| 2 |
|
|
| 3 |
# (c) 2002 Peter Palfrader <peter@palfrader.org> |
# (c) 2002 Peter Palfrader <peter@palfrader.org> |
| 4 |
# $Id: Conf.pm,v 1.7 2002/06/20 04:27:07 weasel Exp $ |
# $Id: Conf.pm,v 1.8 2002/07/02 17:06:59 weasel Exp $ |
| 5 |
# |
# |
| 6 |
|
|
| 7 |
=pod |
=pod |
| 28 |
Echolot::Globals::get()->{'storage'}->delay_commit(); |
Echolot::Globals::get()->{'storage'}->delay_commit(); |
| 29 |
for my $remailer (Echolot::Globals::get()->{'storage'}->get_addresses()) { |
for my $remailer (Echolot::Globals::get()->{'storage'}->get_addresses()) { |
| 30 |
next unless ($remailer->{'status'} eq 'active'); |
next unless ($remailer->{'status'} eq 'active'); |
| 31 |
|
next unless ($remailer->{'fetch'}); |
| 32 |
print "Sending requests to ".$remailer->{'address'}."\n"; |
print "Sending requests to ".$remailer->{'address'}."\n"; |
| 33 |
for my $type (qw{conf key help stats}) { |
for my $type (qw{conf key help stats}) { |
| 34 |
Echolot::Tools::send_message( |
Echolot::Tools::send_message( |