gate.plm

plum perl irc

ここんとこ PORT範囲値に変更するとNAT対応になる $listenno = &'listen( PORT, MAXCONN ); module\ctcp\dcc\gate.plm(328): $lno = &'listen(0, 1) || return @params; module\ctcp\dcc\gate.plm(397): $lno = &'listen(0, 1) || return @params; module\ct…

2005-10-25

gate.plm.diff続けてみた

perl plum irc

gate.plm.diff (gate.plm,v 2.39 - gate.plm,v 2.39.1) 4d3 < # 2.39.1 05.10.25 Magical.H Adding Resume 11c10 < local( @lname, @lhost, @lport ); --- > 215c214 < @msg = &client_gate($clientno, $user, $params[0], split(/\s+/, $params[1])); --- >…

2005-10-25

CTCPに付いての解説って少ないよな...

メモ irc perl plum

Client To Client Protocol CTCP USERINFOCTCP TIME nick!user@addr PRIVMSG :\001TIME\001 nick!user@addr NOTICE :\001TIME time-infomation\001 ローカルの時間を返します。CTCP PING nick!user@addr PRIVMSG :\001PING\001 nick!user@addr NOTICE :\001P…

2005-10-25

複数おんなじ関数を作るとき

perl

foreach my $sub (qw/FunctionA FunctionB FunctionC FunctionD FunctionE/){ no strict 'refs'; *$sub = sub { print $_[0] . $sub . "\n"; }; } FunctionA("あれげ"); FunctionB("あれげ"); FunctionC("あれげ"); FunctionD("あれげ"); FunctionE(…