2009年5月アーカイブ

add_listener
Takes a number of arguments. Adds a new listener.
        'port', the TCP port to listen on. Default is a random port;
        'auth', enable or disable auth sub-system for this listener. Default enabled;
        'bindaddr', specify a local address to bind the listener to;
        'listenqueue', change the SocketFactory's ListenQueue;
A listener is required to accept connections from clients.

$ diff -u /usr/local/lib/perl5/site_perl/5.10.0/POE/Component/Server/IRC.pm ~/lib/perl/POE/Component/Server/IRC.pm
--- /usr/local/lib/perl5/site_perl/5.10.0/POE/Component/Server/IRC.pm   2009-01-27 22:20:14.000000000 +0900
+++ ~/lib/perl/POE/Component/Server/IRC.pm        2009-03-04 10:21:27.000000000 +0900
@@ -4668,7 +4668,7 @@
     $self->{config}->{ADMIN}->[1] = 'Some Institution';
     $self->{config}->{ADMIN}->[2] = 'someone@somewhere';
   }
-  if ( ( not defined ( $self->{config}->{INFO} ) ) or ( ref $self->{config}->{INFO} eq 'ARRAY' ) or ( scalar ( @{ $self->{config}->{INFO} } ) >= 1 ) ) {
+  if ( ( not defined ( $self->{config}->{INFO} ) ) or ( ref $self->{config}->{INFO} ne 'ARRAY' ) or ( scalar ( @{ $self->{config}->{INFO} } ) == 0 ) ) {
     $self->{config}->{INFO}->[0] = '# POE::Component::Server::IRC';
     $self->{config}->{INFO}->[1] = '#';
     $self->{config}->{INFO}->[2] = '# Author: Chris "BinGOs" Williams';
 

#!/usr/bin/env perl

use strict;
use warnings;
use Data::Dumper;
use YAML;
use Class::Inspector;
use POE qw(Component::Server::IRC);
use POE::Component::SSLify qw( Server_SSLify SSLify_Options Client_SSLify );


# 設定ファイル読み込み
my $yaml = YAML::LoadFile('irc.yaml');

# 通常運用時と、テスト起動時のポート
my ($switch) = @ARGV || ("");
my ($port_nossl, $port_ssl) = $switch =~ /test/i ? @{$yaml->{test_port}} : @{$yaml->{port}} ;

my $pocosi = POE::Component::Server::IRC->spawn( 
	config 			=> $yaml->{config},
	antiflood 		=> $switch =~ /test/i ? 0 : 1,
	debug 			=> $yaml->{debug},
	sslify_options 	=> $yaml->{sslify_options},
);

POE::Session->create(
	package_states => [ main =>  Class::Inspector->methods(__PACKAGE__) ],
    heap => { ircd => $pocosi },
);

$poe_kernel->run();
exit 0;

my @operator;
sub _start {
	my ($kernel,$heap) = @_[KERNEL,HEAP];
	$kernel->sig( HUP  => '_stop' );
	$kernel->sig( INT  => '_stop' );
	$kernel->sig( TERM => '_stop' );
	$kernel->sig( KILL => '_stop' );
	$heap->{ircd}->yield( 'register' );
	$heap->{ircd}->add_auth( mask => '*@*' );
	$heap->{ircd}->add_listener( port => $port_nossl );
	$heap->{ircd}->add_listener( port => $port_ssl, usessl => 1 );
	# オペレーター
	for( @{$yaml->{operator}} ){
		push @operator, $_->{username};
		$heap->{ircd}->add_operator( $_ );
	}
	# 起動時にチャンネルを作成するためのユーザーを作成
	$heap->{ircd}->yield(add_spoofed_nick=>{nick=>'ircd_bot', ircname => 'The IRC Serv Bot'});
	# 起動時に作成しておくチャンネル
	while ( my ($channel, $topic) = each %{$yaml->{channel_list}} ) {
		$heap->{ircd}->yield(daemon_cmd_join =>'ircd_bot',$channel);
		$heap->{ircd}->yield(daemon_cmd_topic=>'ircd_bot',$channel, $topic);
	}
	undef;
}


sub ircd_daemon_join {
    my $kernel  = $_[KERNEL];
    my $heap    = $_[HEAP];
    my $session = $_[SESSION];
	my ($full_user, $channel) = @_[ARG0, ARG1];
	# オペレーター
	for my $username( @operator ){
		if($full_user =~ /^$username!~$username/ and $heap->{ircd}->state_user_is_operator($username)){
			$heap->{ircd}->yield(daemon_cmd_mode=>'ircd_bot',$channel,'+o',$username);
			last;
		}
	}
}

sub _stop {
    my $heap    = $_[HEAP];
	$heap->{ircd}->yield( 'shutdown' );
	delete $heap->{ircd};
}

sub _default {
 my ( $event, $args ) = @_[ ARG0 .. $#_ ];
 print STDOUT "$event: ";
 foreach (@$args) {
 SWITCH: {
          if ( ref($_) eq 'ARRAY' ) {
              print STDOUT "[", join ( ", ", @$_ ), "] ";
              last SWITCH;
          }
          if ( ref($_) eq 'HASH' ) {
              print STDOUT "{", join ( ", ", %$_ ), "} ";
              last SWITCH;
          }
          print STDOUT "'$_' ";
      }
  }
  print STDOUT "\n";
  return 0;    # Don't handle signals.
}

$ cat irc.yaml
---
channel_list:
  '#lounge': ラウンジ. http://arbolbell.jp/irc
  '#test': テスト用. http://arbolbell.jp/irc
config:
  admin:
    - irc.arbolbell.jp
    - http://arbolbell.jp/irc
    - suzu@mail.*****.jp
  info:
    - '******************'
    - http://arbolbell.jp/irc
    - '******************'
  motd:
    - ''
    - ''
    - ''
    - ''
    - '    ----------------------------------------------------------------------'
    - '    The character code of this host is UTF-8.'
    - '    ----------------------------------------------------------------------'
    - ''
    - '    ようこそ irc.arbolbell.jp へ'
    - ''
    - '    ※実験的に立ち上げているサーバのため、予告無く再起動、停止等が行われる'
    - '      場合があります。あしからず御了承ください。'
    - '    ※全ては無保証で一切責任を負いませんので自己責任でご利用下さい。'
    - ''
    - '    このIRCサーバーはSSLに対応しています。'
    - '    SSL対応のクライアントをご利用の場合、SSLで接続可能です。'
    - ''
    - '    SSL接続  ポート番号：6668 '
    - '    非SSL接続ポート番号：6667'
    - ''
    - '    このIRCホストに関しては、http://arbolbell.jp/irc を参照してください。'
    - ''
    - '    ★次のチャンネルは、サーバー起動時に作られます。'
    - '      #lounge  ・・・・ラウンジです。'
    - '      #test    ・・・・テスト用です。'
    - ''
    - '    ★チャンネル作成のガイドライン '
    - '     ・チャンネル名は、わかりやすい名前を付けてください。 '
    - '     ・topic も、わかりやすくおねがいします。'
    - '     ・topic は必ず設定してください。'
    - ''
    - '    ----------------------------------------------------------------------'
  network: arbolbell.jp
  nicklen: 15
  serverdesc: http://arbolbell.jp/irc
  servername: irc.arbolbell.jp
  version: irc.arbolbell.jp 0.01
debug: 1
operator:
  - ipmask: '*'
    password: mypass1
    username: suzuk1
  - ipmask: '*'
    password: mypass2
    username: suzuk2
port:
  - 6667
  - 6668
sslify_options:
  - ./server-key.pem
  - ./server-cert.pem
test_port:
  - 16667
  - 16668