Net::IRCService - Perl extension for creating a irc services for:
o ircd-hybrid-6.3.1 o ircd-hybrid-7rc3 o bahamut-1.4.33
use Net::IRCService; &init_service( SERVER_NAME => 'services.network.no', LOCALADDR => '10.0.0.1', LOCALPORT => 7110, COMMENT => 'Services for network.no', PROTOCOL => 'Hybrid6', CAPAB => 'QS EX');
&main_loop;
Net::IRCService is suposed to be a easy interface to create more or less usefull IRC-Services. If you have worked with Net::IRC before, you will fast get to grip on how this module works. It has -almost- the same event-driven interface. It lets you add one or more event handlers to EVENTS seen by the module.
This functions prepares the module. This must be run before &do_one_loop and/or &main_loop.
Parameters;
SERVER_NAME The server name. Must match the servernameyou use in the C/N's lines on the hub. COMMENT This comment will show up in /links. LOCALADDR The local ip/host to bind the server to. LOCALPORT The local port to listen on. PASSWORD The link password. CAPAB The content of the CAPAB line. Read the ircd source to understand this. PROTOCOL This tell the module witch protocol to use. (Hybrid6, Hybrid7 or Bahamut3). =head3 close_connection()
Close the uplink connection with a message;
&close_connection("Something is wrong");
&add_event_handler
&do_one_loop &main_loop
&add_timer &del_timer
&irc_send &irc_send_now
%remote_capab %our_capab
=head3 add_event_handler
Kay Sindre Bærulfsen, <kaysb@uten.net>
perl.