=head1 NAME

B<pre_redirect> - spong-network predata module that redirects update messages
to other spong-servers

=head1 DESCRIPTION

This is a pre data plugin module for the Spong L<spong-server> program. This
module redirects incoming update messages to other spong-servers. It is used to
selective redirect certain status messages to another Spong Server Host or
another Spong Server instance.

=cut

# pre_redirect - Redirect selective spong messages to other Spong Servers

# $Id: pre_redirect,v 1.1 2002/06/04 01:39:59 sljohnson Exp $

use Spong::Status "0.02";

# Register the routine with the plugin registry
$PREDATAFUNCS{'redirect'} = \&pre_redirect;

$SENDMSG_SERVERS = "localhost:19980";

sub pre_redirect {
   my( $msg ) = @_;


   my $tmp_msg = $msg->{'header'} . "\n" . $msg->{'message'};

   my $errmsg = Spong::Status::SendMsg( $SENDMSG_SERVERS,
                                        $main::SPONG_UPDATE_PORT, $tmp_msg );

   main::error("pre_redirect: $errmsg") if $errmsg;

}

1;


__END__

=head2 Configuration


=head1 EXAMPLES


=head1 SEE ALSO

L<spong-server>, L<spong.conf>,
L<Spong Developer Guide|developer-guide>

=head1 RESTRICTIONS

B<pre_redirect> uses the C<Spong::Status> library module to work.  It uses the
new capability to send a status message to multiple servers. It is only
available in versions 0.02 and up of the Spong::Status module.

=head1 AUTHOR

Stephen L Johnson <F<sjohnson@monsters.org>>.

