Init add to CVS repository

diff --git a/contrib/plugins/spong-server/pre_redirect b/contrib/plugins/spong-server/pre_redirect
new file mode 100644 (file)
index 0000000..c51ca5a
--- /dev/null
+++ b/contrib/plugins/spong-server/pre_redirect
@@ -0,0 +1,64 @@
+=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>>.
+