package auto_answer;
$_ = 'auto_answer';
sub ss_privmsg {
local($serverno, $prefix, $cmd, $chan, $msg) = @_;
local($userno);
$userno = $'userno[$serverno];
foreach $reply (&'property($userno, 'reply')) {
# $B$^$@:n$C$F$J$$ItJ,(B
}
return ($prefix, $cmd, $chan, $msg);
}
&'property$B$O0z?t$H$7$F%f!<%6(BNO$B$,I,MW$J$N$G!"(B$'userno[]$B$H$$$&G[NsJQ?t$G(B
$B$3$NH/8@$,$I$N%f!<%6$KB0$9$k$b$N$+$rD4$Y$F$$$^$9!#(B
$B$^$?!"%5%V%k!<%A%sFb$G;HMQ$9$kJQ?t$OI,$:(Blocal$B$r:n$C$F!"(B
$BB>$N%5%V%k!<%A%s$+$i8+$($J$$$h$&$K$7$F2<$5$$!#(B
package auto_answer;
$_ = 'auto_answer';
sub ss_privmsg {
local($serverno, $prefix, $cmd, $chan, $msg) = @_;
local($userno, $str, $answer);
$userno = $'userno[$serverno];
foreach $reply (&'property($userno, 'reply')) {
($str, $answer) = split(/\s+/, $reply, 2);
if ($msg eq $str) {
# $B$^$@:n$C$F$J$$ItJ,(B
}
}
return ($prefix, $cmd, $chan, $msg);
}
package auto_answer;
$_ = 'auto_answer';
sub ss_privmsg {
local($serverno, $prefix, $cmd, $chan, $msg) = @_;
local($userno, $str, $answer);
$userno = $'userno[$serverno];
if ($chan =~ /^[\#\&\+\-]/) {
foreach $reply (&'property($userno, 'reply')) {
($str, $answer) = split(/\s+/, $reply, 2);
if ($msg eq $str) {
&'s_print($serverno, '', 'PRIVMSG', $chan, $answer);
last;
}
}
}
return ($prefix, $cmd, $chan, $msg);
}
$BJV;v$O%5!<%P$KBP$7$F9T$o$J$1$l$P$J$j$^$;$s!#(B
$B$3$N>l9g$OH/8@$,$5$l$?%5!<%P$,$o$+$C$F$$$k$N$G!"(B
$BJV;v$b$=$N%5!<%P$KBP$7$F9T$$$^$9!#(B
+ auto/answer.plm
auto.answer.reply: $B$3$s$K$A$O(B $B$3$s$K$A$O!A!y(B
$B$3$l$GC/$+$,!V$3$s$K$A$O!W$HH/8@$9$k$H!"!V$3$s$K$A$O!A!y!W$HJV;v$r$7$^$9!#(B
/5!G=$,A}$($F$$$^$9$,!"(B
$B$"$kDxEY$o$+$C$F$7$^$($P%b%8%e!<%k$N2~B$$b4JC1$G$9!#(B
plum-2.33.1.orig/doc/plum.html 0100644 0010013 0000620 00000024314 06676174332 016013 0 ustar gotom kobayashi
plum
$B$O$8$a$K(B
plum$B$O(BIRC(internet relay chat)$BMQ$NCf7Q(B/$B%/%i%$%"%s%H%W%m%0%i%`$G$9!#(B
IRC$B%5!<%Q$H(BIRC$B%/%i%$%"%s%H$N@\B3$rCf7Q$7$F$$$m$$$m$J5!G=$rDs6!$7$^$9!#(B
$BF1$8$h$&$J%W%m%0%i%`$K(Bpirc$B$J$I$,$"$j$^$9$,!"(B
plum$B$K$O0J2<$N$h$&$JFCD'$,$"$j$^$9!#(B
$B3HD%$,4JC1(B
plum$B$NDs6!$9$k5!G=$N$[$H$s$I$O%b%8%e!<%k$G
$B%G%P%C%0$,4JC1(B
plum$B$OE0Dl$7$?%b%8%e!<%k2=$r9T$C$F$$$k$N$G!"(B
$B%P%0$N860x$K$J$C$F$$$k%b%8%e!<%k$r4JC1$KFCDj$9$k$3$H$,$G$-$^$9!#(B
$B$^$?!"(Bplum$B$O$N4V0c$$$J$I$r4JC1$KH/8+$9$k$3$H$,$G$-$^$9!#(B
$B$$$m$$$m$J(BOS$B$GF0$/(B
plum$B$O(Bperl$B$G=q$+$l$F$$$^$9$,!"(B
$BFCDj$N4D6-$K0MB8$9$k=hM}$O$[$H$s$I9T$C$F$$$J$$$?$a!"(B
perl$B$5$($"$l$P%O!<%I%&%'%"$d(BOS$B$rLd$o$:!"$I$s$J4D6-$G$bF0:n$7$^$9!#(B
$BJ#?t$N%5!<%P$K@\B3$G$-$k(B
plum$B$OF1;~$KJ#?t$N%5!<%P$K@\B3$G$-$k$h$&$K@_7W$5$l$F$$$^$9!#(B
$B$=$N$?$a!"J#?t$N(BIRC$B%M%C%H%o!<%/$rF1;~$KMxMQ$7$?$j!"(B
1$B$D$N(Bplum$B$G%a%C%;!<%8$J$I$K<+F0$GH?1~$9$k%m%\%C%H$r(B
$BJ#?t>oCs$5$;$k$3$H$,$G$-$^$9!#(B
plum$B$NF0:n(B
plum$B$O(BIRC$B%5!<%P$H(BIRC$B%/%i%$%"%s%H$H$N4V$GE>Aw$rCf7Q$7$^$9!#(B
$B$D$^$j!"K\Mh$OD>@\@\B3$9$k$O$:$N(BIRC$B%5!<%P$H(BIRC$B%/%i%$%"%s%H$r(B
$B@\B3$7$J$$$h$&$K$7!"(BIRC$B%5!<%P$H(Bplum$B!"(Bplum$B$H(BIRC$B%/%i%$%"%s%H$r@\B3$7$^$9!#(B
$B$3$l$K$h$j(Bplum$B$O(BIRC$B%5!<%P$H(BIRC$B%/%i%$%"%s%H$+$iAw$i$l$F$/$k(B
$B%a%C%;!<%8$rA4$F
IRC$B%/%i%$%"%s%H(B --- IRC$B%5!<%P(B
plum$B$r;H$&$H!"(Bplum$B$,(BIRC$B%/%i%$%"%s%H$H(BIRC$B%5!<%P$NCf7Q$r9T$$$^$9!#(B
$B$3$N$H$-(BIRC$B%/%i%$%"%s%H$H(Bplum$B!"(Bplum$B$H(BIRC$B%5!<%P$O@\B3$5$l$F$$$^$9$,!"(B
IRC$B%/%i%$%"%s%H$H(BIRC$B%5!<%P$O@\B3$5$l$F$$$^$;$s!#(B
IRC$B%/%i%$%"%s%H(B --- plum --- IRC$B%5!<%P(B
$B$3$l$@$1$G$O@\@\B3$5$l$F$$$J$$$@$1$G$9!#(B
$B$=$3$G(Bplum$B$O(BIRC$B%/%i%$%"%s%H$KBP$7$F$O(BIRC$B%5!<%P$N$U$j$r$7!"(B
IRC$B%5!<%P$KBP$7$F$O(BIRC$B%/%i%$%"%s%H$N$U$j$r$7$^$9!#(B
+---- plum ----+
IRC$B%/%i%$%"%s%H(B --- IRC$B%5!<%P(B
IRC$B%/%i%$%"%s%H(B --- IRC$B%5!<%P(B
$B$3$l$K$h$j!"(Bplum$B$K(BIRC$B%/%i%$%"%s%H$,@\B3$5$l$F$$$J$$$H$-$G$b(B
IRC$B%5!<%P$+$i$O(BIRC$B%/%i%$%"%s%H$,$"$k$h$&$K8+$(!"(B
plum$B$K(BIRC$B%5!<%P$,@\B3$5$l$F$$$J$$$H$-$G$b!"(B
IRC$B%/%i%$%"%s%H$+$i$O$=$3$K(BIRC$B%5!<%P$,$"$k$h$&$K8+$($^$9!#(B
$B$=$N$?$a!"(BIRC$B%/%i%$%"%s%H$r=*N;$7$F$7$^$C$F$b!"(B
IRC$B%5!<%P$+$i$O$^$@(BIRC$B%/%i%$%"%s%H$,@\B3$5$l$F$$$k$h$&$K8+$($^$9!#(B
IRC$B$K>oCs$7$F$$$k?M$NB?$/$O!"$3$N$h$&$JJ}K!$G(BIRC$B%5!<%P$K@\B3$7$F$$$^$9!#(B
$BI,MW$J$b$N(B
plum$B$rMxMQ$9$k$?$a$K$O0J2<$N$b$N$,I,MW$G$9!#(B
perl
plum$B$O(Bperl$B$G=q$+$l$F$$$k$N$G!"(B
$Be$N$b$N$J$i$I$l$G$b$+$^$$$^$;$s$,!"(B
$B%M%C%H%o!<%/$N5!G=$r;HMQ$7$F$$$k$?$a!"(B
$B$J$k$Y$/%P!<%8%g%s(B5.003$B0J>e$N$b$N$r$*$9$9$a$7$^$9!#(B
$B$^$?!"(BMS-DOS$BMQ$J$I$N(Bperl$B$G$O%M%C%H%o!<%/$N5!G=$,(B
$B
$B%M%C%H%o!<%/(B
IRC$B$O%M%C%H%o!<%/$rMxMQ$7$?%5!<%S%9$J$N$G!"(B
IRC$B$N%2!<%H%&%'%$$G$"$k(Bplum$B$b%M%C%H%o!<%/$rMxMQ$7$F$$$^$9!#(B
$B$=$N$?$a!"%M%C%H%o!<%/$,MxMQ$G$-$J$$4D6-$G$O(B
plum$B$rMxMQ$9$k$3$H$O$G$-$^$;$s!#(B
IRC$B%/%i%$%"%s%H(B
plum$B$OC1$J$k%2!<%H%&%'%$$K$9$.$J$$$N$G!"(B
plum$B$rMxMQ$9$k$?$a$K$O(BIRC$B$N%/%i%$%"%s%H%W%m%0%i%`$,I,MW$G$9!#(B
IRC$B%/%i%$%"%s%H$O$I$s$J$b$N$G$b$+$^$$$^$;$s$,!"(B
RFC1459$B$N(BIRC$B%W%m%H%3%k$K=`5r$7$?$b$N$r;HMQ$7$F2<$5$$!#(B
$B$^$?!"(BIRC$B%/%i%$%"%s%H$OF|K\8l$KBP1~$7$F$$$k$b$N$,$h$$$G$9$,!"(B
plum$B$K$O4A;z%3!<%I$rJQ49$9$k5!G=$,$"$k$N$G!"(B
$BF|K\8l$KBP1~$7$F$$$J$$$b$N$G$bMxMQ$G$-$k$b$N$,$"$j$^$9!#(B
$B
plum$B$r
perl plum
$B$C$F%b%8%e!<%k$NAH$_9~$_$r9T$$$^$9!#(B
$B$3$N$H$-!"(Bplum.conf$B$,8+$D$+$i$J$1$l$P2?$b$;$:$K=*N;$7$^$9!#(B
perl plum user1 user2
$B$3$N$H$-!"(Bplum.conf$B!"(Bplum-user1.conf$B!"(Bplum-user2.conf$B$N(B
3$B$D$N@_Dj%U%!%$%k$rFI$_9~$_$^$9!#(B
$B;XDj$7$?@_Dj%U%!%$%k$N$I$l$+$,8+$D$+$i$J$/$F$bL5;k$7$Fl9g$O2?$b$;$:$K=*N;$7$^$9!#(B
$B%/%i%$%"%s%H$N@_Dj(B
plum$B$r
$B$^$:!"(BIRC$B%5!<%P$NL>A0$r(Bplum$B$rA0$K$7$^$9!#(B
plum$B$rA0$,$D$$$F$$$J$$>l9g!"(B
$B$b$7$/$OL>A0$,$o$+$i$J$$>l9g$O!"L>A0$N$+$o$j$K(BIP$B%"%I%l%9$r;XDj$7$^$9!#(B
$B
$B:G8e$K!"(BIRC$B%5!<%P$K@\B3$9$k%Q%9%o!<%I$r@_Dj$7$^$9!#(B
$BK\J*$N(BIRC$B%5!<%P$OIaDL%Q%9%o!<%I$rMW5a$7$^$;$s$,!"(B
plum$B$G$OIaDL%Q%9%o!<%I$r@_Dj$7$FB>$N?M$K>!
$B$3$l$G(BIRC$B%/%i%$%"%s%H$+$i(Bplum$B$K@\B3$G$-$k$O$:$G$9!#(B
$B@\B3$G$-$J$$>l9g$O@_Dj$,4V0c$C$F$$$J$$$+$r$h$/3NG'$7$F2<$5$$!#(B
$B$^$?0J2<$N%H%i%V%k%7%e!<%F%#%s%0$b;29M$K$7$F2<$5$$!#(B
$B%H%i%V%k%7%e!<%F%#%s%0(B
$B
plum.conf$B$,$J$$(B
plum.conf$B$O%+%l%s%H%G%#%l%/%H%j$K$"$k$b$N$r;HMQ$7$^$9!#(B
$B%+%l%s%H%G%#%l%/%H%j$K(Bplum.conf$B$,$"$k$3$H$r3NG'$7$F2<$5$$!#(B
$B%5!<%P$K@\B3$7$J$$(B
$B%U%!%$%"%&%)!<%k$,$"$k(B
plum$B$O%5!<%P$H$N4V$K%U%!%$%"%&%)!<%k$,$"$k$H!"(B
$B%5!<%P$K@\B3$9$k$3$H$,$G$-$^$;$s!#(B
$B%U%!%$%"%&%)!<%k$N1F6A$r $B%5!<%P$N@\B3$,$$$C$Q$$$K$J$C$F$$$k(B
$B%5!<%P$K@\B3$G$-$k?M?t$,$$$C$Q$$$K$J$k$H!"(B
$B$=$l0J>e@\B3$9$k$3$H$,$G$-$J$/$J$j$^$9!#(B
plum.conf$B$KJL$N%5!<%P$N@_Dj$rDI2C$7$F2<$5$$!#(B
$B%M%C%H%o!<%/5wN%$,1s$$(B
$B%M%C%H%o!<%/E*$J5wN%$,1s$+$C$?$j!"(B
$B2s@~B.EY$,CY$$$H@\B3$9$k$^$G$KHs>o$K(B
$B;~4V$,$+$+$k$3$H$,$"$j$^$9!#(B
$B%/%i%$%"%s%H$+$i@\B3$G$-$J$$(B
$B%U%!%$%"%&%)!<%k$,$"$k(B
plum$B$H%/%i%$%"%s%H$H$N4V$K%U%!%$%"%&%)!<%k$,$"$k$H!"(B
$B%/%i%$%"%s%H$+$i@\B3$9$k$3$H$,$G$-$^$;$s!#(B
$B%U%!%$%"%&%)!<%k$N1F6A$r $B%M%C%H%o!<%/5wN%$,1s$$(B
$B%M%C%H%o!<%/E*$J5wN%$,1s$+$C$?$j!"(B
$B2s@~B.EY$,CY$$$H@\B3$9$k$^$G$KHs>o$K(B
$B;~4V$,$+$+$k$3$H$,$"$j$^$9!#(B
$B%/%i%$%"%s%H$+$i@\B3$7$F$b$9$0$K@Z$i$l$F$7$^$&(B
plum.conf$B$K@_Dj$7$?%/%i%$%"%s%H%^%9%/$K0z$C$+$+$C$F$$$k(B
IRC$B%/%i%$%"%s%H$r $BJL$N%f!<%6$,F1$8%]!<%H$r$9$G$K;HMQ$7$F$$$k(B
plum.client$B$N%]!<%H$NHV9f$rJQ99$7$F$_$F2<$5$$!#(B
$B%Q%9%o!<%I$,4V0c$C$F$$$k(B
$B%Q%9%o!<%I$O@5$7$/F~NO$7$F2<$5$$!#(B
$B$=$NB>(B
$BITL@(B
$B$I$s$J>uBV$J$N$+$r$J$k$Y$/>\$7$/65$($F2<$5$$!#(B
$B$=$N;~$K$G$-$l$P(Bsys/dump.plm$B$N=PNO$9$k(B
$B%7%9%F%`>pJs$r0l=o$K65$($F2<$5$$!#(B
plum-2.33.1.orig/module/ 0040755 0010013 0000620 00000000000 06676174332 014667 5 ustar gotom kobayashi plum-2.33.1.orig/module/client/ 0040755 0010013 0000620 00000000000 06676174333 016146 5 ustar gotom kobayashi plum-2.33.1.orig/module/client/kanji.plm 0100644 0010013 0000620 00000004460 06676174332 017754 0 ustar gotom kobayashi
client/kanji.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
client/kanji.plm - $B%/%i%$%"%s%H$H$NF~=PNO$G4A;z%3!<%I$rJQ49$9$k(B
$B@bL@(B
$B%/%i%$%"%s%H$+$i(Bjis$B0J30$GF~NO$5$l$?4A;z%3!<%I$r(Bjis$B$KJQ49$7$^$9!#(B
$B$^$?%/%i%$%"%s%H$KBP$7$F=PNO$9$k4A;z%3!<%I$r;XDj$7$?$b$N$K$7$^$9!#(B
$B%W%m%Q%F%#(B
client.kanji.input* ({jis|euc|sjis})
$B%/%i%$%"%s%H$+$i$NF~NO$,;XDj$7$?4A;z%3!<%I$N$b$N$G$"$l$P!"(B
$B$=$l$r(Bjis$B$KJQ49$7$^$9!#(Beuc$B$H(Bsjis$B$OF1;~$K;XDj$G$-$^$;$s!#(B
client.kanji.output {jis|euc|sjis}
$B%/%i%$%"%s%H$K=PNO$9$k4A;z%3!<%I$r;XDj$7$?$b$N$K$7$^$9!#(B
$B@_DjNc(B
+ client/kanji.plm
client.kanji.input: euc
$B%/%i%$%"%s%H$+$i$NF~NO$,(Beuc$B$@$C$?$H$-$K!"$=$l$r(Bjis$B$KJQ49$7$^$9!#(B
+ client/kanji.plm
client.kanji.input: sjis,jis
client.kanji.output: sjis
$B%/%i%$%"%s%H$+$i$NF~NO$,(Bsjis$B$@$C$?$H$-$K!"$=$l$r(Bjis$B$KJQ49$7$^$9!#(B
$B$^$?%/%i%$%"%s%H$KBP$9$k=PNO$r(Bsjis$B$K$7$^$9!#(B
plum-2.33.1.orig/module/server/ 0040755 0010013 0000620 00000000000 06676174333 016176 5 ustar gotom kobayashi plum-2.33.1.orig/module/server/timeout.plm 0100644 0010013 0000620 00000002612 06676174332 020373 0 ustar gotom kobayashi
server/timeout.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
server/timeout.plm - $B0lDj;~4VF~NO$,$J$$%5!<%P$H$N@\B3$r@ZCG$9$k(B
$B@bL@(B
$B0lDj;~4V$N4V!"%5!<%P$+$i$NF~NO$,A4$/$J$+$C$?>l9g!"(B
$B$=$N%5!<%P$H$N@\B3$r@ZCG$7$^$9!#(B
$B%W%m%Q%F%#(B
server.timeout.limit $B%?%$%`%"%&%H;~4V(B
$B%5!<%P$+$i$NF~NO$,$3$3$G;XDj$5$l$?;~4V0J>e$J$+$C$?>l9g$O!"(B
$B%5!<%P$H$N@\B3$r@ZCG$7$^$9!#%G%U%)%k%H$G$O(B30$BJ,$K$J$C$F$$$^$9!#(B
$B@_DjNc(B
+ server/timeout.plm
server.timeout.limit: 1200
20$BJ,0J>e%5!<%P$+$i$NF~NO$,$J$+$C$?>l9g!"%5!<%P$H$N@\B3$r@ZCG$7$^$9!#(B
plum-2.33.1.orig/module/server/info.plm 0100644 0010013 0000620 00000011214 06676174332 017636 0 ustar gotom kobayashi
server/info.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
server/info.plm - $B%/%i%$%"%s%H$N@\B3;~$K%5!<%P>pJs$rAw$k(B
$B@bL@(B
$B%/%i%$%"%s%H$r@\B3$7$?$H$-$K!"8=:_@\B3$7$F$$$k%5!<%P$N>pJs$rAw$j$^$9!#(B
$B$3$l$i$N>pJs$O(Bplum$B$,%5!<%P$K@\B3$7$?;~$d!"(B
$B%f!<%6$,L@<(E*$K?7$7$$>pJs$rLd$$9g$o$;$?$H$-$K99?7$5$l$^$9!#(B
$B%W%m%Q%F%#(B
$B@_DjNc(B
+ server/info.plm
plum-2.33.1.orig/module/server/kanji.plm 0100644 0010013 0000620 00000004171 06676174332 020003 0 ustar gotom kobayashi
server/kanji.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
server/kanji.plm - $B%5!<%P$H$NF~=PNO$G4A;z%3!<%I$rJQ49$9$k(B
$B@bL@(B
$B%5!<%P$+$i(BJIS$B0J30$GF~NO$5$l$?4A;z%3!<%I$r(BJIS$B$KJQ49$7$^$9!#(B
$B$^$?%5!<%P$KBP$7$F=PNO$9$k4A;z%3!<%I$r;XDj$7$?$b$N$K$7$^$9!#(B
$B%W%m%Q%F%#(B
server.kanji.input* ({jis|euc|sjis})
$B%5!<%P$+$i$NF~NO$,;XDj$7$?4A;z%3!<%I$N$b$N$G$"$l$P!"(B
$B$=$l$r(Bjis$B$KJQ49$7$^$9!#(Beuc$B$H(Bsjis$B$OF1;~$K;XDj$G$-$^$;$s!#(B
server.kanji.output {jis|euc|sjis}
$B%5!<%P$K=PNO$9$k4A;z%3!<%I$r;XDj$7$?$b$N$K$7$^$9!#(B
$B@_DjNc(B
+ server/kanji.plm
server.kanji.input: sjis,jis
server.kanji.output: sjis
$B%5!<%P$+$i$NF~NO$,(Bsjis$B$@$C$?$H$-$K!"$=$l$r(Bjis$B$KJQ49$7$^$9!#(B
$B$^$?%5!<%P$KBP$9$k=PNO$r(Bsjis$B$K$7$^$9!#(B
plum-2.33.1.orig/module/auto/ 0040755 0010013 0000620 00000000000 06676174333 015640 5 ustar gotom kobayashi plum-2.33.1.orig/module/auto/nako.plm 0100644 0010013 0000620 00000057264 06676174332 017314 0 ustar gotom kobayashi
auto/nako.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
auto/nako.plm - Internet Relay Chat Robot nako$B$N%(%_%e%l!<%7%g%s$r9T$&(B
$B@bL@(B
Internet Relay Chat Robot nako$B$N%(%_%e%l!<%7%g%s$r9T$$$^$9!#(B
nako$B$G;HMQ$7$F$$$k@_Dj%U%!%$%k$r$=$N$^$^MxMQ$9$k$3$H$,$G$-$^$9!#(B
$B>\$7$/$O(Bnako$B$N%I%-%e%a%s%H$r;2>H$7$F2<$5$$!#(B
$B%W%m%Q%F%#(B
auto.nako.sysfile $B%U%!%$%kL>(B[;({jis|euc|sjis})]
$B%7%9%F%`$N@_Dj%U%!%$%k$r;XDj$7$^$9!#(B
$B%G%U%)%k%H$G$O!V(B.nako.sys$B!W$K$J$C$F$$$^$9!#(B
auto.nako.msgfile $B%U%!%$%kL>(B[;({jis|euc|sjis})]
$B%a%C%;!<%8%G!<%?$N@_Dj%U%!%$%k$r;XDj$7$^$9!#(B
$B%G%U%)%k%H$G$O!V(B.nako.msg$B!W$K$J$C$F$$$^$9!#(B
$B@_DjNc(B
+ auto/nako.plm
auto.nako.sysfile: .nako.sys;euc,jis
auto.nako.msgfile: .nako.msg;euc,jis
$B%7%9%F%`@_Dj$N%U%!%$%k$H%a%C%;!<%8%G!<%?@_Dj$N%U%!%$%k$K$=$l$>$l(B
$B!V(B.nako.sys$B!W$H!V(B.nako.msg$B!W$r;HMQ$7$^$9!#(B
$B$3$l$i$N%U%!%$%k$O$$$:$l$b4A;z%3!<%I$,(Beuc$B$b$7$/$O(Bjis$B$GJ]B8$5$l$F$$$k(B
$BI,MW$,$"$j$^$9!#(B
plum-2.33.1.orig/module/auto/reply.plm 0100644 0010013 0000620 00000030132 06676174332 017500 0 ustar gotom kobayashi
auto/reply.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
auto/reply.plm - $BFCDj$NH/8@$KH?1~$7$?%a%C%;!<%8$rH/8@$9$k(B
$B@bL@(B
$BFCDj$NH/8@$KH?1~$7$F!"$=$l$KBP$9$k%a%C%;!<%8$rH/8@$7$^$9!#(B
$B0l$D$NH/8@$KBP$7$FJ#?t$N%a%C%;!<%8$r;XDj$9$k$3$H$,$G$-!"(B
$B$=$NCf$+$i%i%s%@%`$G$I$l$+0l$D$N%a%C%;!<%8$rH/8@$7$^$9!#(B
$B%a%C%;!<%8$O%U%!%$%k$G;XDj$7!"%U%!%$%k$N%U%)!<%^%C%H$O(B
$B0J2<$N$h$&$K$J$C$F$$$^$9!#(B
$B$3$s$P$s$o(B : $B$3$s$P$s$o!A!y(B $B$3$s$P$s!&$o$s!A(B
$B$4$O$s(B* : $B$"$?$7$b9T$/!A(B
*$B$W$i$`(B* : $B$h$s$@$!(B? $B$O!<$$!y(B
$BH?1~$O0l9T$K0l$D5-=R$7!"H?1~$9$kH/8@$H$=$l$KBP$9$k%a%C%;!<%8$O(B
$B!V(B:$B!W$H$=$NA08e$K(B1$B$D0J>e$N6uGr$r$D$1$F6h@Z$C$F;XDj$7$^$9!#(B
$B$^$?!"H/8@$H%a%C%;!<%8$N$=$l$>$l$O(B1$B$D0J>e$N6uGr$G6h@Z$j$^$9!#(B
$BH?1~$9$kH/8@$K$O%o%$%k%I%+!<%I$H$7$F!V(B*$B!W$,;XDj$G$-$^$9!#(B
$B%W%m%Q%F%#(B
auto.reply.file $B%U%!%$%kL>(B[;({jis|euc|sjis})]
$BH?1~$9$k%a%C%;!<%8$rJ]B8$9$k%U%!%$%kL>$r;XDj$7$^$9!#(B
$B%U%!%$%k$O;XDj$7$?4A;z%3!<%I$GJ]B8$5$l$^$9!#(B
$B4A;z%3!<%I$rJ#?t;XDj$7$?>l9g$O!":G=i$K;XDj$7$?4A;z%3!<%I$G(B
$BJ]B8$5$l!">JN,$7$?>l9g$O!V(Bjis$B!W$r;XDj$7$?$3$H$HF1$8$G$9!#(B
$B$^$?!"!V(Beuc$B!W$H!V(Bsjis$B!W$rF1;~$K;XDj$9$k$3$H$O$G$-$^$;$s!#(B
auto.random.alias $B%U%!%$%kL>(B[;({jis|euc|sjis})]
$B%(%$%j%"%9$r;2>H$9$k%U%!%$%k$r;XDj$7$^$9!#(B
$B$3$N%U%!%$%k$O(Bauto/alias.plm$B$G;H$&$b$N$HF1$8$b$N$G$9!#(B
$B%U%!%$%k$O;XDj$7$?4A;z%3!<%I$GJ]B8$5$l$F$$$kI,MW$,$"$j$^$9!#(B
auto.reply.format* $B%U%)!<%^%C%H(B
$B%a%C%;!<%8$rH/8@$9$k:]$N%U%)!<%^%C%H$r;XDj$7$^$9!#(B
$B%U%)!<%^%C%H$K(B#(nick)$B$N$h$&$K;XDj$9$k$3$H$G%(%$%j%"%9Cf$N(B
$BBP1~$9$kCM$GCV$-49$($^$9!#$^$?(B#(message)$B$G%a%C%;!<%8$NFbMF$K!"(B
#(nick.now)$B$G8=:_$N%K%C%/%M!<%`$K!"(B#(channel)$B$G%A%c%s%M%kL>$K(B
$B$=$l$>$lCV$-49$($^$9!#(B
auto.reply.rate $B3NN((B
$BH/8@$KH?1~$9$k3NN($r;XDj$7$^$9!#(B0$B$r;XDj$9$k$HA4$/H?1~$;$:!"(B
100$B$r;XDj$9$k$HA4$F$NH/8@$KH?1~$7$^$9!#(B
auto.reply.add* $BJ8;zNs(B
$BH?1~$9$k%a%C%;!<%8$rDI2C$9$k$?$a$NJ8;zNs$r;XDj$7$^$9!#(B
$BJ8;zNs$K$OH?1~$9$kH/8@$H$=$l$KBP$9$k%a%C%;!<%8$r(B
$B6uGr$G6h@Z$C$F;XDj$7$^$9!#(B
auto.reply.remove* $BJ8;zNs(B
$BH?1~$9$k%a%C%;!<%8$r:o=|$9$k$?$a$NJ8;zNs$r;XDj$7$^$9!#(B
$BJ8;zNs$K$OH?1~$9$kH/8@$H$=$l$KBP$9$k%a%C%;!<%8$r(B
$B6uGr$G6h@Z$C$F;XDj$7$^$9!#(B
auto.reply.change* $BJ8;zNs(B
$BH?1~$9$k%a%C%;!<%8$rJQ99$9$k$?$a$NJ8;zNs$r;XDj$7$^$9!#(B
$BJ8;zNs$K$OH?1~$9$kH/8@$H$=$l$KBP$9$k%a%C%;!<%8$r(B
$B6uGr$G6h@Z$C$F;XDj$7$^$9!#(B
$B@_DjNc(B
+ auto/reply.plm
auto.reply.file: reply.txt;jis
auto.reply.format: #(name): #(message)
auto.reply.rate: 100
auto.reply.add: $B%a%C%;!<%8DI2C(B
auto.reply.remove: $B%a%C%;!<%8:o=|(B
auto.reply.change: $B%a%C%;!<%8JQ99(B
$B!V(Breply.txt$B!W$K=q$+$l$?FbMF$K4p$E$$$F!"H/8@$KH?1~$7$F$=$l$KBP$9$k(B
$B%a%C%;!<%8$rH/8@$7$^$9!#(Breply.txt$B$O(Bjis$B$G=q$+$l$F$$$kI,MW$,$"$j$^$9!#(B
$B$^$?!"!V%a%C%;!<%8DI2C(B $B$3$s$K$A$O(B $B$3$s$K$A$O!A!y!W$N$h$&$KH/8@$9$l$P!"(B
$B?7$?$JH?1~$rDI2C$9$k$3$H$,$G$-$^$9!#(B
$BF1MM$K!"!V%a%C%;!<%8:o=|(B $B$3$s$K$A$O(B $B$3$s$K$A$O!A!y!W$d!"(B
$B!V%a%C%;!<%8JQ99(B $B$3$s$K$A$O(B $B$3$s$K$A!&$o$s!A!W$N$h$&$KH/8@$9$k$3$H$G!"(B
$BH?1~$r:o=|$7$?$jJQ99$9$k$3$H$,$G$-$^$9!#(B
plum-2.33.1.orig/module/auto/oper.plm 0100644 0010013 0000620 00000026174 06676174332 017325 0 ustar gotom kobayashi
auto/oper.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
auto/oper.plm - $BFCDj$NH/8@$r$7$??M$r%A%c%s%M%k%*%Z%l!<%?$K$9$k(B
$B@bL@(B
$BFCDj$NJ8;zNs$rH/8@$7$??M$r%A%c%s%M%k%*%Z%l!<%?$K$7$^$9!#(B
$B2?$i$+$NM}M3$G%A%c%s%M%k%*%Z%l!<%?$K$G$-$J$$$G$-$J$$>l9g$O!"(B
$B$=$l$>$l$NM}M3$K1~$8$?J8;zNs$rH/8@$7$^$9!#(B
$B%W%m%Q%F%#(B
auto.oper.alias $B%U%!%$%kL>(B[;({jis|euc|sjis})]
$B%f!<%6$N%(%$%j%"%9$r;2>H$9$k$?$a$N%U%!%$%k$r;XDj$7$^$9!#(B
$B$3$3$G;XDj$9$k%U%!%$%k$O(Bauto/alias.plm$B$G;H$&$b$N$H(B
$BF1$87A<0$N$b$N$G$9!#(B
auto.oper.request* $BJ8;zNs(B
$B%A%c%s%M%k%*%Z%l!<%?$rMW5a$9$kJ8;zNs$r;XDj$7$^$9!#(B
$B$3$3$G;XDj$7$?J8;zNs$rH/8@$7$??M$r%A%c%s%M%k%*%Z%l!<%?$K$7$^$9!#(B
auto.oper.mask* {+|-}$B%f!<%6%^%9%/(B [($B%A%c%s%M%kL>(B)]
$B%A%c%s%M%k%*%Z%l!<%?$rMW5a$7$??M$,!"$3$3$G;XDj$7$?%^%9%/$K(B
$B%^%C%A$7$J$+$C$?>l9g$O!"(Bauto.oper.deny$B$G;XDj$7$?J8;zNs$rH/8@$7!"(B
$B%A%c%s%M%k%*%Z%l!<%?$K$O$7$^$;$s!#(B
auto.oper.message* $B%U%)!<%^%C%H(B
$B%A%c%s%M%k%*%Z%l!<%?$rMW5a$7$??M$r$lCV49$5$l$^$9!#(B
auto.oper.deny* $B%U%)!<%^%C%H(B
$B%A%c%s%M%k%*%Z%l!<%?$rMW5a$7$??M$,(Bauto.oper.mask$B$G;XDj$7$?$b$N$K(B
$B%^%C%A$7$J$+$C$?>l9g!"$3$3$G;XDj$7$?$b$N$rH/8@$7$^$9!#(B
#(nick)$B$N$h$&$K=q$/$3$H$G!"%(%$%j%"%9Cf$NBP1~$9$kCM$G(B
$BCV$-49$($^$9!#(B
auto.oper.oper* $B%U%)!<%^%C%H(B
$B%A%c%s%M%k%*%Z%l!<%?$rMW5a$7$??M$,$9$G$K%A%c%s%M%k%*%Z%l!<%?$@$C$?(B
$B>l9g!"$3$3$G;XDj$7$?$b$N$rH/8@$7$^$9!#(B
#(nick)$B$N$h$&$K=q$/$3$H$G!"%(%$%j%"%9Cf$NBP1~$9$kCM$G(B
$BCV$-49$($^$9!#(B
auto.oper.notoper* $B%U%)!<%^%C%H(B
$B%A%c%s%M%k%*%Z%l!<%?$rMW5a$5$l$?$H$-$K!"(B
$B<+J,$,%A%c%s%M%k%*%Z%l!<%?$G$J$$$?$a$K$=$N?M$r%A%c%s%M%k%*%Z%l!<%?$K(B
$B$G$-$J$$>l9g!"$3$3$G;XDj$7$?$b$N$rH/8@$7$^$9!#(B
#(nick)$B$N$h$&$K=q$/$3$H$G!"%(%$%j%"%9Cf$NBP1~$9$kCM$G(B
$BCV$-49$($^$9!#(B
auto.oper.private* $B%U%)!<%^%C%H(B
$B%A%c%s%M%k%*%Z%l!<%?$NMW5a$,%A%c%s%M%k$KBP$7$F$G$O$J$/!"(B
$B<+J,$KBP$7$F$5$l$?>l9g!"$3$3$G;XDj$7$?$b$N$rH/8@$7$^$9!#(B
#(nick)$B$N$h$&$K=q$/$3$H$G!"%(%$%j%"%9Cf$NBP1~$9$kCM$G(B
$BCV$-49$($^$9!#(B
auto.oper.out* $B%U%)!<%^%C%H(B
$B%A%c%s%M%k%*%Z%l!<%?$NMW5a$,%A%c%s%M%k$N30$+$iH/8@$5$l$?>l9g!"(B
$B$3$3$G;XDj$7$?$b$N$rH/8@$7$^$9!#(B
#(nick)$B$N$h$&$K=q$/$3$H$G!"%(%$%j%"%9Cf$NBP1~$9$kCM$G(B
$BCV$-49$($^$9!#(B
$B@_DjNc(B
+ auto/oper.plm
auto.oper.alias: alias.txt;euc
auto.oper.request: $B$W$i$`$J$k$H(B
auto.oper.mask: +*!*@*
auto.oper.message: $B$O!A$$!y(B
auto.oper.deny: $B$J$k$H$O$"$2$i$l$^$;$s$o!#(B
auto.oper.oper: #(name|nick.now)$B$5$s$O$b$&$J$k$H;}$C$F$^$9$h!#(B
auto.oper.notoper: $B$4$a$s$J$5$$!#$J$k$H;}$C$F$J$$$s$G$9!#(B
auto.oper.private: $B$J$k$H$,$[$7$$%A%c%s%M%k$G8@$C$F$/$@$5$$$M!#(B
auto.oper.out: $B$($C!"$I$3$K$$$k$s$G$9$+(B?
$B!V$W$i$`$J$k$H!W$HH/8@$7$??M$r%A%c%s%M%k%*%Z%l!<%?$K$7$^$9!#(B
$B$9$Y$F$N%f!<%6$r%A%c%s%M%k%*%Z%l!<%?$K$9$k$3$H$r5v2D$7$F$$$k$N$G!"(B
$BC/$,$I$N%A%c%s%M%k$GMW5a$7$F$-$F$b!"$=$N?M$r%A%c%s%M%k%*%Z%l!<%?$K$7$^$9!#(B
$B2?$i$+$NM}M3$G%A%c%s%M%k%*%Z%l!<%?$K$G$-$J$$$H$-$O!"(B
$B$=$l$>$l$NM}M3$K1~$8$?%a%C%;!<%8$rH/8@$7$^$9!#(B
+ auto/oper.plm
auto.oper.request: $B$J$k$H(B
auto.oper.request: $B$J$k$H$/$l(B
auto.oper.request: $B$J$k$H$/$@$5$$(B
auto.oper.request: $B$J$k$H$A$g$&$@$$(B
auto.oper.mask: -*!*@*.com
auto.oper.mask: +*!*@* #$B$^$I$+(B:*.jp
auto.oper.mask: +*!*@*.jp
$B%A%c%s%M%k%*%Z%l!<%?$NMW5a$,(B4$B$N%A%c%s%M%k$G$O!V(B*!*@*.jp$B!W$K%^%C%A$9$k?M$@$1$r(B
$B%A%c%s%M%k%*%Z%l!<%?$K$7$^$9!#(B
$B2?$i$+$NM}M3$G%A%c%s%M%k%*%Z%l!<%?$K$G$-$J$$$H$7$F$b2?$bH/8@$7$^$;$s!#(B
plum-2.33.1.orig/module/auto/yuurii.plm 0100644 0010013 0000620 00000035047 06676174332 017705 0 ustar gotom kobayashi
auto/yuurii.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
auto/yuurii.plm - pirc bot $B$f!<$j$#$N%W%i%0%$%s$rAH$_9~$`(B
$B@bL@(B
pirc bot $B$f!<$j$#$N%(%_%e%l!<%7%g%s$r9T$$!"(B
$B$f!<$j$#MQ$N%W%i%0%$%s$r\$7$/$O(Bpirc bot $B$f!<$j$#$N%I%-%e%a%s%H$r;2>H$7$F2<$5$$!#(B
$B%W%m%Q%F%#(B
auto.yuurii.cache $B%-%c%C%7%e%5%$%:(B
$BF1$8%a%C%;!<%8$r2?EY$bH/8@$7$J$$$h$&$K!"(B
$B$3$3$G;XDj$7$?Bg$-$5$N%-%c%C%7%e$r:n$j$^$9!#(B
$BH/8@$7$h$&$H$7$F$$$k%a%C%;!<%8$,%-%c%C%7%e$NCf$K$"$C$?>l9g$O(B
$B$=$N%a%C%;!<%8$rH/8@$7$^$;$s!#(B
$B$f!<$j$#$N(BCACHE$B$N@_Dj$HF1$8$G$9!#(B
auto.yuurii.pluginrc $B%U%!%$%kL>(B
$B%W%i%0%$%s$N@_Dj%U%!%$%k$r;XDj$7$^$9!#(B
$B$f!<$j$#$N(BPLUGINRC$B$N@_Dj$HF1$8$G$9!#(B
$B$f!<$j$#$G;HMQ$7$F$$$?!V(B.pluginrc$B!W$,$=$N$^$^MxMQ$G$-$^$9!#(B
auto.yuurii.plugindir* $B%G%#%l%/%H%jL>(B
$B%W%i%0%$%s$N$*$$$F$"$k%G%#%l%/%H%j$r;XDj$7$^$9!#(B
$B$f!<$j$#$N(BPLUGINDIR$B$N@_Dj$HF1$8$G$9!#(B
auto.yuurii.down $B%j%V!<%H4V3V(B
$B%a%b%j$NBgNL>CHq$rKI$0$?$a$K!"(B
$B$3$3$G;XDj$5$l$?;~4V$,7P2a$9$k$H:F5/F0$r9T$$$^$9!#(B
$B$f!<$j$#$N(BDOWN$B$N@_Dj$HF1$8$G$9!#(B
$B$?$@$78=:_$O:F5/F0$N5!G=$O$J$$$N$G!"$3$N%W%m%Q%F%#$O;HMQ$7$F$$$^$;$s!#(B
auto.yuurii.downmes $B%a%C%;!<%8(B
$B:F5/F0$r9T$&$H$-$K!"$3$3$G;XDj$7$?%a%C%;!<%8$G(BIRC$B$r=*N;$7$^$9!#(B
$B$f!<$j$#$N(BDOWNMES$B$N@_Dj$HF1$8$G$9!#(B
$B$?$@$78=:_$O:F5/F0$N5!G=$O$J$$$N$G!"(B
$B$3$N%W%m%Q%F%#$O;HMQ$7$F$$$^$;$s!#(B
auto.yuurii.timer $B%+%&%s%H(B
1$BIC4V$K(B1$B2s%+%&%s%H$9$k%A%c%s%M%k%?%$%^$N=i4|CM$G$9!#(B
$B$f!<$j$#$N(BTIMER$B$N@_Dj$HF1$8$G$9!#(B
$B%?%$%^$NCM$,(B0$B$h$jBg$-$1$l$P!"(B1$BIC$K(B1$B$:$D8:>/$7!"(B
0$B$h$j>/$5$1$l$P!"(B1$BIC$K(B1$B$:$DA}2C$7$^$9!#(B
auto.yuurii.usetimer $B%?%$%^4V3V(B
$B;XDj$7$?IC?t$K(B1$B2s$N3d9g$G%W%i%0%$%s$r
auto.yuurii.mode $B%U%!%$%k%b!<%I(B
$B%W%i%0%$%s$NCf$G:n@.$9$k%U%!%$%k$N%U%!%$%k%b!<%I$r;XDj$7$^$9!#(B
$B$f!<$j$#$G$N%G%U%)%k%H$O(B600$B$G$9!#(B
auto.yuurii.header $B$X%C%@(B
$B%G%P%C%0$N=PNO$K$D$1$k;~9o$N%U%)!<%^%C%H$r;XDj$7$^$9!#(B
$BJ8;zNsCf$K(B%$B$G;O$^$kJ8;zNs$,4^$^$l$F$$$k$H!"(B
$BBP1~$9$k$b$N$K$*$-$+$o$j$^$9!#(B
$B$f!<$j$#$G$N%G%U%)%k%H$O(B%H:%M:%S$B$G$9!#(B
auto.yuurii.debug $B%U%!%$%kL>(B
$B%W%i%0%$%s$NCf$G%G%P%C%0%k!<%A%s$r
$B@_DjNc(B
+ auto/yuurii.plm
auto.yuurii.cache: 50
auto.yuurii.pluginrc: .pluginrc
auto.yuurii.down: 48
auto.yuurii.downmes: auto down
auto.yuurii.timer: 2000
auto.yuurii.usetimer: 0
auto.yuurii.mode: 600
auto.yuurii.header: %H:%M:%S
auto.yuurii.debug: log%m%d
$B$f!<$j$#$N%G%U%)%k%H$HF1$8@_Dj$G$9!#(B
$B$?$@$7:F5/F0$O$7$J$$$N$G!V(Bauto.yuurii.down$B!W$H(B
$B!V(Bauto.yuurii.downmes$B!W$N@_Dj$OL58z$G$9!#(B
+ auto/yuurii.plm
auto.yuurii.cache: 0
auto.yuurii.pluginrc: yuurii.conf
auto.yuurii.usetimer: 1
$B%-%c%C%7%e$r;H$o$J$$$h$&$K$7$F!"(B1$BIC4V$K(B1$B2s%W%i%0%$%s$r
plum-2.33.1.orig/module/auto/random.plm 0100644 0010013 0000620 00000023271 06676174332 017633 0 ustar gotom kobayashi
auto/random.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
auto/random.plm - $BFCDj$NH/8@$KH?1~$7$F%i%s%@%`$JH/8@$r$9$k(B
$B@bL@(B
$BFCDj$N%a%C%;!<%8$,H/8@$5$l$k$H!";XDj$5$l$?%a%C%;!<%8$NCf$+$i(B
$B$I$l$+(B1$B$D$r%i%s%@%`$KA*Br$7$FH/8@$7$^$9!#(B
$B%W%m%Q%F%#(B
auto.random.file $B%U%!%$%kL>(B[;({jis|euc|sjis})]
$B%i%s%@%`$KH/8@$9$k%a%C%;!<%8$N=q$+$l$?%U%!%$%k$r;XDj$7$^$9!#(B
$B%U%!%$%k$NCf$G$O(B1$B9T$K(B1$B$D$N%a%C%;!<%8$r=q$$$F2<$5$$!#(B
$B%U%!%$%k$O;XDj$7$?4A;z%3!<%I$GJ]B8$5$l$^$9!#(B
$B4A;z%3!<%I$rJ#?t;XDj$7$?>l9g$O!":G=i$K;XDj$7$?4A;z%3!<%I$G(B
$BJ]B8$5$l!">JN,$7$?>l9g$O!V(Bjis$B!W$r;XDj$7$?$3$H$HF1$8$G$9!#(B
$B$^$?!"!V(Beuc$B!W$H!V(Bsjis$B!W$rF1;~$K;XDj$9$k$3$H$O$G$-$^$;$s!#(B
auto.random.alias $B%U%!%$%kL>(B[;({jis|euc|sjis})]
$B%(%$%j%"%9$r;2>H$9$k%U%!%$%k$r;XDj$7$^$9!#(B
$B$3$N%U%!%$%k$,;XDj$5$l$F$$$k$H!"C/$KBP$9$kH/8@$+$r(B
$B%K%C%/%M!<%`$G$O$J$/!"BP1~$9$kL>A0$GH/8@$7$^$9!#(B
auto.random.request* $BJ8;zNs(B
$BH?1~$9$kH/8@$r;XDj$7$^$9!#(B
$B$3$3$G;XDj$7$?%a%C%;!<%8$N$I$l$+(B1$B$D$H0lCW$7$?>l9g$K(B
$B%i%s%@%`$KA*Br$5$l$?%a%C%;!<%8$rH/8@$7$^$9!#(B
auto.random.format* $B%U%)!<%^%C%H(B
$B%a%C%;!<%8$rH/8@$9$k:]$N%U%)!<%^%C%H$r;XDj$7$^$9!#(B
$B%U%)!<%^%C%H$K(B#(nick)$B$N$h$&$K;XDj$9$k$3$H$G%(%$%j%"%9Cf$N(B
$BBP1~$9$kCM$GCV$-49$($^$9!#$^$?(B#(message)$B$G%a%C%;!<%8$NFbMF$K!"(B
#(nick.now)$B$G8=:_$N%K%C%/%M!<%`$K!"(B#(channel)$B$G%A%c%s%M%kL>$K(B
$B$=$l$>$lCV$-49$($^$9!#(B
auto.random.rate $B3NN((B
$BH/8@$KH?1~$9$k3NN($r;XDj$7$^$9!#(B0$B$r;XDj$9$k$HA4$/H?1~$;$:!"(B
100$B$r;XDj$9$k$HA4$F$NH/8@$KH?1~$9$k$h$&$K$J$j$^$9!#(B
$B%G%U%)%k%H$G$O(B100$B$K$J$C$F$$$^$9!#(B
auto.random.add* $BJ8;zNs(B
$B%a%C%;!<%8$rDI2C$9$kJ8;zNs$r;XDj$7$^$9!#(B
$B$3$3$G;XDj$7$?J8;zNs$rH/8@$9$k$H!"?7$7$$%a%C%;!<%8$rDI2C$7$^$9!#(B
auto.random.remove* $BJ8;zNs(B
$B%a%C%;!<%8$r:o=|$9$kJ8;zNs$r;XDj$7$^$9!#(B
$B$3$3$G;XDj$7$?J8;zNs$rH/8@$9$k$H!"0lCW$9$k%a%C%;!<%8$r:o=|$7$^$9!#(B
$B@_DjNc(B
+ auto/random.plm
auto.random.request: $B:#F|$N1?@*$O(B?
auto.random.request: $B$&$i$J$$(B
auto.random.file: random.txt;jis
auto.random.format: #(name|nick|nick.now)$B$5$s$N1?@*$O!V(B#(message)$B!W$@$h$C(B
auto.random.rate: 100
auto.random.add: $B$&$i$J$$DI2C(B
auto.random.remove: $B$&$i$J$$:o=|(B
$B!V:#F|$N1?@*$O(B?$B!W$+!V$&$i$J$$!W$N$I$A$i$+$NH/8@$,$"$C$?$H$-$K!"(B
$B!V(Brandom.txt$B!W$NCf$K=q$+$l$?%a%C%;!<%8$NCf$N$I$l$+(B1$B$D$rH/8@$7$^$9!#(B
random.txt$B$O(Bjis$B$G=q$+$l$F$$$J$$$H$$$1$^$;$s!#(B
$B$^$?!"!V$&$i$J$$DI2C(B $BBg5H$G$9!y!W$J$I$N$h$&$KH/8@$9$k$3$H$G!"(B
$B?7$7$$%a%C%;!<%8$rDI2C$9$k$3$H$,$G$-$^$9!#(B
plum-2.33.1.orig/module/auto/alias.plm 0100644 0010013 0000620 00000040341 06676174332 017441 0 ustar gotom kobayashi
auto/alias.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
auto/alias.plm - $B%f!<%6%(%$%j%"%9>pJs$N4IM}(B
$B@bL@(B
$B%f!<%6L>$N%(%$%j%"%9$NDI2C!":o=|!"3NG'$r9T$$$^$9!#(B
$B%(%$%j%"%9$NDI2C!":o=|$O<+J,$N>pJs$KBP$7$F$7$+9T$&$3$H$O$G$-$^$;$s!#(B
$B%(%$%j%"%9$O4pK\E*$K(Bnick$B!"(Bname$B!"(Buser$B$N(B3$B$D$N%U%#!<%k%I$+$i$J$C$F$*$j!"(B
$B$=$l$>$l%K%C%/%M!<%`!"L>A0!"%f!<%6%^%9%/$rI=$7$^$9!#(B
$B
nick: plum,plum_j,plum-j
name: $B$W$i$`(B $B$W$i$`$A$c$s(B
user: *!plum@*.plum.org
user: plum*!*plum@*.plum.com
nick: plum_
name: $B$W$i$`(B($B56(B)
user: *!*plum@*.plum.org
$B%W%m%Q%F%#(B
auto.alias.file $B%U%!%$%kL>(B[;({jis|euc|sjis})]
$B%(%$%j%"%9$rJ]B8$9$k%U%!%$%kL>$r;XDj$7$^$9!#(B
$B%U%!%$%kL>$N8e$K4A;z%3!<%I$r;XDj$9$k$3$H$,$G$-$^$9!#(B
$B4A;z%3!<%I$rJ#?t;XDj$7$?>l9g$O:G=i$K;XDj$7$?4A;z%3!<%I$GJ]B8$5$l!"(B
$B>JN,$7$?>l9g$O!V(Bjis$B!W$r;XDj$7$?$3$H$HF1$8$K$J$j$^$9!#(B
$B$^$?!V(Beuc$B!W$H!V(Bsjis$B!W$rF1;~$K;XDj$9$k$3$H$O$G$-$^$;$s!#(B
auto.alias.readonly* ($B%?%$%W(B)
$BJQ99$9$k$3$H$N$G$-$J$$%?%$%W$r;XDj$7$^$9!#(B
auto.alias.invisible* ($B%?%$%W(B)
$B8+$k$3$H$N$G$-$J$$%?%$%W$r;XDj$7$^$9!#(B
auto.alias.private* ($B%?%$%W(B)
$BK\?M$K$7$+8+$k$3$H$N$G$-$J$$%?%$%W$r;XDj$7$^$9!#(B
auto.alias.scalar* ($B%?%$%W(B)
$BCM$r0l$D$7$+@_Dj$9$k$3$H$,$G$-$J$$%?%$%W$r;XDj$7$^$9!#(B
auto.alias.get* $BJ8;zNs(B
$B%(%$%j%"%9$r3NG'$9$k$?$a$N%a%C%;!<%8$G$9!#(B
$B$3$N%a%C%;!<%8$HF1$8J8;zNs$rH/8@$r$9$k$H!"(B
$B<+J,$K@_Dj$5$l$F$$$k%(%$%j%"%9$r3NG'$9$k$3$H$,$G$-$^$9!#(B
$B$^$?!"0z?t$H$7$F%(%$%j%"%9$N%?%$%W$H%G!<%?$r;XDj$9$k$H!"(B
$B$=$l$K%^%C%A$9$k?M$N%(%$%j%"%9$r3NG'$G$-$^$9!#(B
auto.alias.add* $BJ8;zNs(B
$B%(%$%j%"%9$rDI2C$9$k$?$a$N%a%C%;!<%8$G$9!#(B
$B$3$N%a%C%;!<%8$K0z?t$H$7$F%(%$%j%"%9$N%?%$%W$H%G!<%?$r;XDj$9$k$H!"(B
$B<+J,$N%(%$%j%"%9$K;XDj$7$?%G!<%?$rDI2C$7$^$9!#(B
auto.alias.remove* $BJ8;zNs(B
$B%(%$%j%"%9$r:o=|$9$k$?$a$N%a%C%;!<%8$G$9!#(B
$B$3$N%a%C%;!<%8$K0z?t$H$7$F%(%$%j%"%9$N%?%$%W$H%G!<%?$r;XDj$9$k$H!"(B
$B<+J,$N%(%$%j%"%9$N$&$A$G;XDj$7$?%G!<%?$r:o=|$7$^$9!#(B
nick$B$KBP$9$k%G!<%?$r:o=|$9$k$H!"%(%$%j%"%9$=$N$b$N$,:o=|$5$l$^$9!#(B
auto.alias.change* $BJ8;zNs(B
$B%(%$%j%"%9$rJQ99$9$k$?$a$N%a%C%;!<%8$G$9!#(B
$B$3$N%a%C%;!<%8$K0z?t$H$7$F%(%$%j%"%9$N%?%$%W!"8E$$%G!<%?!"(B
$B?7$7$$%G!<%?$r;XDj$9$k$H!"<+J,$N%(%$%j%"%9$N$&$A$G(B
$B;XDj$7$?%?%$%W$N8E$$%G!<%?$r?7$7$$%G!<%?$KJQ99$7$^$9!#(B
$B?7$7$$%G!<%?$,$9$G$KB8:_$9$k$+$I$&$+$O3NG'$7$F$$$J$$$N$G!"(B
$BF1$8%G!<%?$,(B2$B$D$G$-$J$$$h$&$K$7$F$/$@$5$$!#(B
$B@_DjNc(B
+ auto/alias.plm
auto.alias.file: alias.txt;jis,euc
auto.alias.get: $B%(%$%j%"%9(B
auto.alias.add: $B%(%$%j%"%9DI2C(B
auto.alias.remove: $B%(%$%j%"%9:o=|(B
auto.alias.change: $B%(%$%j%"%9JQ99(B
$B!V%(%$%j%"%9!W$H$$$&H/8@$,$"$k$H!"H/8@$7$??M$N%(%$%j%"%9$rH/8@$7$^$9!#(B
$B%(%$%j%"%9$O!V(Balias.txt$B!W$H$$$&%U%!%$%k$+$iFI$_9~$_$^$9!#(B
alias.txt$B$O4A;z%3!<%I$,!V(Bjis$B!W$+!V(Beuc$B!W$G=q$+$l$F$$$kI,MW$,$"$j$^$9$,!"(B
IRC$B>e$+$i%(%$%j%"%9$NJQ99$r9T$C$?>l9g$O(Bjis$B$GJ]B8$5$l$^$9!#(B
$B$^$?!"!V%(%$%j%"%9(B name $B$W$i$`!W$N$h$&$KH/8@$9$k$H!"(B
$B%?%$%W$,!V(Bname$B!W$G!"%G!<%?$,!V$W$i$`!W$H$$$&?M$N%(%$%j%"%9$rJV$7$^$9!#(B
auto/message.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
auto/message.plm - $B%f!<%64V$G%a%C%;!<%8$NAw$B@bL@(B
$B%f!<%64V$GAj8_$K%a%C%;!<%8$N$d$j$H$j$,$G$-$k$h$&$K$7$^$9!#(B
$B%a%C%;!<%8$rAw$k$?$a$NH/8@$,$"$k$H!"$=$NAw$j@h$H%a%C%;!<%8$NFbMF$r(B
$B%U%!%$%k$KJ]B8$7$^$9!#%f!<%6$,%A%c%s%M%k$KF~$C$F$-$?$j!"%K%C%/%M!<%`$r(B
$BJQ99$7$?$H$-$J$I$K!"$=$N%f!<%608$N%a%C%;!<%8$,$J$$$+$I$&$+3NG'$7!"(B
$B%a%C%;!<%8$,$"$l$P!"%a%C%;!<%8$,$"$k$3$H$rEA$($^$9!#(B
$B%a%C%;!<%8$NAw$j@h$O4pK\E*$K%K%C%/%M!<%`$G;XDj$9$kI,MW$,$"$j$^$9$,!"(B
$B%(%$%j%"%9$r;2>H$9$k$3$H$G4A;z$r4^$s$@L>A0$r;H$&$3$H$b$G$-$^$9!#(B
$B%a%C%;!<%8$r$B%W%m%Q%F%#(B
auto.message.file $B%U%!%$%kL>(B[;({jis|euc|sjis})]
$B%a%C%;!<%8$r3JG<$9$k%U%!%$%k$r;XDj$7$^$9!#$3$N%U%!%$%k$OIaDL$N(B
$B%F%-%9%H%U%!%$%k$G!"0l9T$K$D$-0l$D$N%a%C%;!<%8$,J]B8$5$l$^$9!#(B
$B4A;z%3!<%I$O%G%U%)%k%H$G$O(Bjis$B$GJ]B8$5$l$^$9$,!"$=$l0J30$N(B
$B4A;z%3!<%I$GJ]B8$7$?$$>l9g$O!"%U%!%$%kL>$N8e$K%;%_%3%m%s$G(B
$B6h@Z$C$F4A;z%3!<%I$r;XDj$7$^$9!#(B
auto.message.alias $B%U%!%$%kL>(B[;({jis|euc|sjis})]
$B%(%$%j%"%9$r;2>H$9$k%U%!%$%k$r;XDj$7$^$9!#(B
$BE,@Z$K%(%$%j%"%9$r@_Dj$7$F$*$/$3$H$G!"Aw$j@h$K%K%C%/%M!<%`$@$1(B
$B$G$O$J$/!"G$0U$NL>A0$r;XDj$9$k$3$H$,$G$-$^$9!#(B
$B$^$?!"Aw$j85$NL>A0$b%K%C%/%M!<%`$G$O$J$/!"%(%$%j%"%9$H$7$F(B
$BDj5A$5$l$F$$$kL>A0$r;H$$$^$9!#(B
$B$3$N%U%!%$%k$O(Bauto/alias.plm$B$G07$($k%U%!%$%k$HF1$87A<0$G$9!#(B
$B%U%!%$%k$N4A;z%3!<%I$,(Bjis$B0J30$N>l9g$O!"$=$N4A;z%3!<%I$r(B
$B;XDj$9$kI,MW$,$"$j$^$9!#(B
auto.message.get* $BJ8;zNs(B
$B%a%C%;!<%8$r
auto.message.send* $BJ8;zNs(B
$B%a%C%;!<%8$rAw$k$?$a$NJ8;zNs$r;XDj$7$^$9!#(B
$B$3$3$G;XDj$7$?J8;zNs$KB3$1$FAw$j@h$N%K%C%/%M!<%`$+L>A0$H(B
$B%a%C%;!<%8$NFbMF$r6uGr$G6h@Z$C$FH/8@$9$k$3$H$K$h$j!"(B
$B$=$N%a%C%;!<%8$r%U%!%$%k$KJ]B8$7$^$9!#(B
auto.message.check* $BJ8;zNs(B
$B%a%C%;!<%8$,FO$$$F$$$k$+$I$&$+3NG'$9$k$?$a$NJ8;zNs$r;XDj$7$^$9!#(B
$B$3$3$G;XDj$7$?J8;zNs$HF1$8J8;zNs$,H/8@$5$l$k$H!"(B
$B$=$N?M$KBP$7$FAw$i$l$?%a%C%;!<%8$,$"$k$+$I$&$+3NG'$7!"(B
$B$=$N7k2L$rH/8@$7$^$9!#(B
auto.message.date $BJ8;zNs(B
auto.message.format$B$G;XDj$9$k$3$H$N$G$-$kCM$N$&$A!"(B
#(date)$B$GCV49$5$l$kF|IU$N%U%)!<%^%C%H$r;XDj$7$^$9!#(B
$B%G%U%)%k%H$G$O!V(B%m/%d %H:%M$B!W$H$J$C$F$$$^$9!#(B
auto.message.format* $B%U%)!<%^%C%H(B
$BAw$j@h$K%a%C%;!<%8$rAw$k$H$-$K!"$I$N$h$&$J7A<0$GH/8@$9$k$+$r(B
$B;XDj$7$^$9!#%U%)!<%^%C%H$K(B#(nick)$B$N$h$&$K=q$/$3$H$G!"(B
$B%a%C%;!<%8$rpJs$H$7$F$O!"(B
#(date)$B$G%a%C%;!<%8$rAw$C$?F|IU$H;~9o$r!"(B#(message)$B$G(B
$B%a%C%;!<%8$NFbMF$r$=$l$>$lCV$-49$($^$9!#(B
$B$^$?!"3g8LFb$r!V(B|$B!W$G6h@Z$C$FJ#?t;XDj$7$?>l9g!"(B
$B:G=i$KDj5A$5$l$F$$$kCM$GCV$-49$($^$9!#(B
auto.message.accept* $B%U%)!<%^%C%H(B
$B%a%C%;!<%8$r@5$7$/A0$r!"(B
#(to.nick)$B$N$h$&$K!V(Bto.$B!W$rIU$1$k$3$H$G!"%a%C%;!<%8$NAw$j@h$N(B
$B%(%$%j%"%9$NBP1~$9$kCM$GCV$-49$($^$9!#(B
auto.message.unknown* $B%U%)!<%^%C%H(B
$B%a%C%;!<%8$rAw$kAjA0$KCV$-49$($^$9!#(B
auto.message.receive* $B%U%)!<%^%C%H(B
$B%A%c%s%M%k$KF~$C$F$-$?;~$d!"%K%C%/%M!<%`$rJQ99$7$?;~$K!"(B
$B$=$N?M$KBP$9$k%a%C%;!<%8$,FO$$$F$$$l$P!"$3$3$G;XDj$7$?$b$N$r(B
$BH/8@$7$^$9!#%U%)!<%^%C%H$K(B#(nick)$B$N$h$&$K;XDj$9$k$3$H$G!"(B
$B%a%C%;!<%8$NAw$j85$N%(%$%j%"%9$NBP1~$9$kCM$GCV$-49$($^$9!#(B
$B$^$?!"(B#(number)$B$GFO$$$F$$$k%a%C%;!<%8$N?t$KCV$-49$($^$9!#(B
auto.message.nothing* $B%U%)!<%^%C%H(B
$B%a%C%;!<%8$r
auto.message.exists* $B%U%)!<%^%C%H(B
$B%a%C%;!<%8$,FO$$$F$$$k$+$I$&$+3NG'$7$?$H$-$K!"(B
$BFO$$$F$$$k%a%C%;!<%8$,$"$l$P!"$3$3$G;XDj$7$?$b$N$rH/8@$7$^$9!#(B
$B@_DjNc(B
+ auto/message.plm
auto.message.file: message.txt;jis
auto.message.alias: alias.txt;jis,euc
auto.message.get: $BEA8@65$($F(B
auto.message.send: $BEA8@(B
auto.message.check: $BEA8@$"$k(B?
auto.message.format: #(from.name|from.nick.now)$B$5$s$+$i!"!V(B#(message)$B!W(B
auto.message.accept: #(to)$B$5$s$X$NEA8@$r3P$($^$7$?(B
auto.message.unknown: #(to)$B$5$s$H$$$&$N$OC/$G$9$+(B?
auto.message.receive: #(number)$B8D$NEA8@$,FO$$$F$$$^$9!#!VEA8@65$($F!W$G$*EA$($7$^$9!#(B
auto.message.nothing: #(name|nick.now)$B$5$s$X$NEA8@$O$"$j$^$;$s(B
auto.message.exists: #(name|nick.now): #(number)$B8D$NEA8@$,$"$j$^$9!#(B
$B!VEA8@(B pupu_j $B$[$($[$(!W$N$h$&$KH/8@$9$k$H!"(B
$B!V(Bpupu_j$B!W$H$$$&%K%C%/%M!<%`$N?M$K!V$[$($[$(!W$H$$$&%a%C%;!<%8$rEA$($^$9!#(B
$B$^$?!V(Balias.txt$B!W$K;XDj$5$l$F$$$kL>A0$r;H$C$F!"(B
$B!VEA8@(B $B$W$W(B $B$[$($[$(!W$N$h$&$K$7$F%a%C%;!<%8$rEA$($k$3$H$b$G$-$^$9!#(B
auto/package.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
auto/package.plm - $B;XDj$7$??M$K(BDCC$B$G%U%!%$%k$rFO$1$k(B
$B@bL@(B
$B;XDj$7$??M$K%a%C%;!<%8$r$D$1$F(BDCC$B$G%U%!%$%k$rFO$1$^$9!#(B
DCC$B$G%U%!%$%k$NAw?.MW5a$r=P$7$?$"$H!"(B
$BAw$j@h$r;XDj$9$k$3$H$G%U%!%$%k$rAw?.$9$k$3$H$,$G$-$^$9!#(B
$B%U%!%$%k$,FO$$$F$$$k$+$I$&$+$N3NG'$O%f!<%6$,%A%c%s%M%k$KF~$C$F$-$?$H$-$H!"(B
$B%K%C%/%M!<%`$rJQ99$7$?$H$-$K9T$$$^$9!#(B
$B$=$N$?$a!"F1$8%A%c%s%M%k$KF~$i$J$$%f!<%6$KBP$7$F$O(B
$B%U%!%$%k$rAw$k$3$H$O$G$-$^$;$s!#(B
$B%W%m%Q%F%#(B
auto.package.file $B%U%!%$%kL>(B[;({jis|euc|sjis})]
$BpJs$r3JG<$9$k%U%!%$%k$r;XDj$7$^$9!#(B
$B%U%!%$%k$O;XDj$7$?4A;z%3!<%I$GJ]B8$5$l$^$9!#(B
$B4A;z%3!<%I$rJ#?t;XDj$7$?>l9g$O!":G=i$K;XDj$7$?4A;z%3!<%I$G(B
$BJ]B8$5$l!">JN,$7$?>l9g$O!V(Bjis$B!W$r;XDj$7$?$3$H$HF1$8$G$9!#(B
$B$^$?!"!V(Beuc$B!W$H!V(Bsjis$B!W$rF1;~$K;XDj$9$k$3$H$O$G$-$^$;$s!#(B
auto.package.directory $B%G%#%l%/%H%jL>(B
$BC$5$l$^$9!#(B
auto.package.alias $B%U%!%$%kL>(B[;({jis|euc|sjis})]
$B%(%$%j%"%9$r;2>H$9$k%U%!%$%kL>$r;XDj$7$^$9!#(B
$B$3$N%U%!%$%k$O(Bauto/alias.plm$B$G;HMQ$9$k$b$N$HF1$8$b$N$G$9!#(B
$B%U%!%$%k$O;XDj$7$?4A;z%3!<%I$GJ]B8$5$l$F$$$kI,MW$,$"$j$^$9!#(B
auto.package.get* $BJ8;zNs(B
$B%U%!%$%k$r
auto.package.send* $BJ8;zNs(B
$B%U%!%$%k$rAw$k$?$a$NJ8;zNs$G$9!#(BDCC$B$NAw?.BT$A$N>uBV$G(B
$B$3$3$G;XDj$7$?J8;zNs$H!"$=$l$KB3$/Aw$j@h$H%a%C%;!<%8$rH/8@$9$k$H!"(B
$B;XDj$7$?Aw$j@h$K%U%!%$%k$rAw?.$7$^$9!#(B
auto.package.check* $BJ8;zNs(B
$B%U%!%$%k$,FO$$$F$$$k$+$I$&$+3NG'$9$k$?$a$NJ8;zNs$r;XDj$7$^$9!#(B
$B$3$3$G;XDj$7$?J8;zNs$HF1$8J8;zNs$,H/8@$5$l$k$H!"(B
$B$=$N?M$KBP$7$FAw$i$l$?%U%!%$%k$,$"$k$+$I$&$+3NG'$7!"(B
$B$=$N7k2L$rH/8@$7$^$9!#(B
auto.package.date $BJ8;zNs(B
auto.package.format$B$G;XDj$9$k$3$H$N$G$-$kCM$N$&$A!"(B
#(date)$B$GCV49$5$l$kF|IU$N%U%)!<%^%C%H$r;XDj$7$^$9!#(B
$B%G%U%)%k%H$G$O!V(B%m/%d %H:%M$B!W$H$J$C$F$$$^$9!#(B
auto.package.format* $B%U%)!<%^%C%H(B
$BAw$j@h$K%U%!%$%k$rAw$k$H$-$K!"$I$N$h$&$J7A<0$GH/8@$9$k$+$r(B
$B;XDj$7$^$9!#%U%)!<%^%C%H$K(B#(nick)$B$N$h$&$K=q$/$3$H$G!"(B
$B%U%!%$%k$rpJs$H$7$F$O!"(B
#(date)$B$G%U%!%$%k$rAw$C$?F|IU$H;~9o$r!"(B#(message)$B$G(B
$B%U%!%$%k$NFbMF$r$=$l$>$lCV$-49$($^$9!#(B
$B$^$?!"3g8LFb$r!V(B|$B!W$G6h@Z$C$FJ#?t;XDj$7$?>l9g!"(B
$B:G=i$KDj5A$5$l$F$$$kCM$GCV$-49$($^$9!#(B
auto.package.accept* $B%U%)!<%^%C%H(B
$B%U%!%$%k$r@5$7$/A0$r!"(B
#(to.nick)$B$N$h$&$K!V(Bto.$B!W$rIU$1$k$3$H$G!"%U%!%$%k$NAw$j@h$N(B
$B%(%$%j%"%9$NBP1~$9$kCM$GCV$-49$($^$9!#(B
auto.package.receive* $B%U%)!<%^%C%H(B
$B%A%c%s%M%k$KF~$C$F$-$?;~$d!"%K%C%/%M!<%`$rJQ99$7$?;~$K!"(B
$B$=$N?M$KBP$9$k%a%C%;!<%8$,FO$$$F$$$l$P!"$3$3$G;XDj$7$?$b$N$r(B
$BH/8@$7$^$9!#%U%)!<%^%C%H$K(B#(nick)$B$N$h$&$K;XDj$9$k$3$H$G!"(B
$B%U%!%$%k$NAw$j85$N%(%$%j%"%9$NBP1~$9$kCM$GCV$-49$($^$9!#(B
$B$^$?!"(B#(number)$B$GFO$$$F$$$k%U%!%$%k?t$KCV$-49$($^$9!#(B
auto.package.norequest* $B%U%)!<%^%C%H(B
DCC$B$NAw?.MW5a$r=P$5$:$K%U%!%$%k$rAw$m$&$H$7$?>l9g$K(B
$B$3$3$G;XDj$7$?$b$N$rH/8@$7$^$9!#(B
$B%U%)!<%^%C%H$K(B#(nick)$B$N$h$&$K;XDj$9$k$3$H$G!"(B
$B%U%!%$%k$NAw$j85$N%(%$%j%"%9$NBP1~$9$kCM$GCV$-49$($^$9!#(B
auto.package.unknown* $B%U%)!<%^%C%H(B
$B%U%!%$%k$rAw$kAjA0$KCV$-49$($^$9!#(B
auto.package.nothing* $B%U%)!<%^%C%H(B
$B%U%!%$%k$r
auto.package.exists* $B%U%)!<%^%C%H(B
$B%U%!%$%k$,FO$$$F$$$k$+$I$&$+3NG'$7$?$H$-$K!"(B
$BFO$$$F$$$k%U%!%$%k$,$"$l$P!"$3$3$G;XDj$7$?$b$N$rH/8@$7$^$9!#(B
auto.package.geterror* $B%U%)!<%^%C%H(B
$B%f!<%6$,%U%!%$%k$rl9g!"(B
$B$3$3$G;XDj$7$?$b$N$rH/8@$7$^$9!#%U%)!<%^%C%H$K(B#(nick)$B$N$h$&$K(B
$B;XDj$9$k$3$H$G!"%(%$%j%"%9$NBP1~$9$kCM$GCV$-49$($^$9!#(B
$B$^$?!"(B#(file)$B$GE>AwCf$N%U%!%$%kL>$KCV$-49$($^$9!#(B
auto.package.senderror* $B%U%)!<%^%C%H(B
$B%f!<%6$,%U%!%$%k$rAw?.$7$F$$$k$H$-$K%(%i!<$,H/@8$7$?>l9g!"(B
$B$3$3$G;XDj$7$?$b$N$rH/8@$7$^$9!#%U%)!<%^%C%H$K(B#(nick)$B$N$h$&$K(B
$B;XDj$9$k$3$H$G!"%(%$%j%"%9$NBP1~$9$kCM$GCV$-49$($^$9!#(B
$B$^$?!"(B#(file)$B$GE>AwCf$N%U%!%$%kL>$KCV$-49$($^$9!#(B
$B@_DjNc(B
+ auto.package.plm
auto.package.file: package.txt;jis
auto.package.directory: DCC
auto.package.alias: alias.txt;jis,euc
auto.package.get: $B>.JqAw$C$F(B
auto.package.send: $B>.Jq(B
auto.package.format: #(from.name|from.nick.now)$B$5$s$+$i!V(B#(message)$B!W(B(#(date))
auto.package.date: %m$B7n(B%d$BF|(B%H$B;~(B%M$BJ,(B
auto.package.accept: $B>.Jq$r.Jq$,FO$$$F$$$^$9!#!V>.JqAw$C$F!W$G$*FO$1$7$^$9!#(B
auto.package.norequest: #(name|nick.now): DCC$BMW5a$,$"$j$^$;$s(B
auto.package.unknown: #(to)$B$5$s$H$$$&$N$OC/$G$9$+(B?
auto.package.nothing: #(name|nick)$B$5$s08$N>.Jq$OFO$$$F$$$^$;$s(B
auto.package.geterror: #(nick.now): #(file)$B$NAw?.$K<:GT$7$^$7$?(B
auto.package.senderror: #(nick.now): #(file)$B$N
DCC$B$G%U%!%$%k$NAw?.MW5a$r=P$7$?$"$H!"!V>.Jq(B pupu $B$[$2$[$2!W(B
$B$N$h$&$KH/8@$9$k$H!"!V$[$2$[$2!W$H$$$&%a%C%;!<%8$H$H$b$K(B
DCC$B$GAw?.$7$?%U%!%$%k$r(Bpupu$B$H$$$&%K%C%/%M!<%`$N?M$KAw$j$^$9!#(B
$B$^$?!V(Balias.txt$B!W$NCf$KE,Ev$J>pJs$r;XDj$9$k$3$H$K$h$C$F!"(B
$B!V>.Jq(B $B$W$W(B $B$[$2$[$2!W$N$h$&$J;H$$J}$b$G$-$^$9!#(B
$B$^$?!"$3$N$H$-Aw$i$l$?%U%!%$%k$O(BDCC$B$H$$$&%G%#%l%/%H%j$NCf$KJ]B8$5$l$^$9!#(B
A0$H%a%C%;!<%8$rH/8@$7$F!"(B
DCC$B$G%U%!%$%k$rAw$C$F$-$^$9!#(B
plum-2.33.1.orig/module/auto/response.plm 0100644 0010013 0000620 00000020371 06676174332 020207 0 ustar gotom kobayashi
auto/response.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
auto/response.plm - $B%a%C%;!<%8$KH?1~$7$FH/8@$r9T$&(B
$B@bL@(B
$B%f!<%6$NH/8@$KH?1~$7$F!"$=$l$KBP$9$kH/8@$r9T$$$^$9!#(B
$BH?1~$H$=$NH/8@$O%U%!%$%k$K0J2<$N$h$&$J%U%)!<%^%C%H$G5-=R$7$^$9!#(B
pattern: ^$B$3$s$K$A(B($B$O(B|$B$o(B)$B!A(B?$
rate: 100
response: $B$3$s$K$A$O!A(B
response: #(name|nick|nick.now)$B$5$s!"$$$i$C$7$c!A$$(B
pattern: ($B$M$k(B|$B$*$d$9$_(B)
rate: 50
response: #(name|nick|nick.now)$B$5$s!"$*$d$9$_$J$5$$(B
response: #(nick.now): $B$@$a!y(B
response: $B$($C!"$b$&?2$A$c$&$s$G$9$+!A(B?(;-;)
$B$=$l$>$l$N%Q%?!<%s$O@55,I=8=$G!"BgJ8;z>.J8;z$O6hJL$7$^$9!#(B
$B$^$?!"(Brate$B$KB3$/(Bresponse$B$NO"B3$7$?9T$N$&$A$+$i0l9T$rA*Br$7$F!"(B
rate$B%Q!<%;%s%H$N3NN($GH/8@$r9T$$$^$9!#(B
$B%W%m%Q%F%#(B
auto.response.file $B%U%!%$%kL>(B[;({euc|jis|sjis})]
$BH?1~$9$kH/8@$H!"$=$l$KBP$9$kH/8@$r5-=R$9$k%U%!%$%k$G$9!#(B
$B%U%!%$%k$N4A;z%3!<%I$,(Bjis$B0J30$N>l9g$O4A;z%3!<%I$r(B
$B;XDj$9$kI,MW$,$"$j$^$9!#(B
auto.response.alias $B%U%!%$%kL>(B[;({euc|jis|sjis})]
$B%(%$%j%"%9$r;2>H$9$k%U%!%$%k$r;XDj$7$^$9!#(B
$B$3$N%U%!%$%k$NFbMF$K=>$C$F!"%a%C%;!<%8Cf$N%U%)!<%^%C%H$H!"(B
auto.response.format$B$rE83+$7$^$9!#(B
auto.response.format* $B%U%)!<%^%C%H(B
$BH/8@;~$N%U%)!<%^%C%H$r;XDj$7$^$9!#$9$Y$F$NH/8@$KBP$7$F!"(B
$B$3$N%U%)!<%^%C%H$GH/8@$r9T$$$^$9!#(B#(nick)$B$N$h$&$K=q$/$3$H$G!"(B
$B%(%$%j%"%9$NBP1~$9$kCM$GCV$-49$($^$9!#%(%$%j%"%90J30$NCM$G$O!"(B
#(nick.now)$B$G%K%C%/%M!<%`!"(B#(channel)$B$G%A%c%s%M%k!"(B#(message)$B$G(B
$BH/8@$7$h$&$H$7$F$$$k%a%C%;!<%8$KCV$-49$($^$9!#(B
$B%G%U%)%k%H$G$O!V(B#(message)$B!W$G$9!#(B
$B@_DjNc(B
+ auto/response.plm
auto.response.file: response.txt;euc
auto.response.alias: alias.txt
$BH?1~$r5-=R$9$k%U%!%$%k$H$7$F!V(Bresponse.txt$B!W$r!"(B
$B%(%$%j%"%9$r;2>H$9$k%U%!%$%k$H$7$F!V(Balias.txt$B!W$r;HMQ$7$^$9!#(B
$B!V(Bresponse.txt$B!W$O4A;z%3!<%I$r!V(Beuc$B!W$G5-=R$7$^$9!#(B
$B$^$?!V(Balias.txt$B!W$O4A;z%3!<%I$r!V(Bjis$B!W$G5-=R$7$^$9!#(B
plum-2.33.1.orig/module/auto/answer.plm 0100644 0010013 0000620 00000015335 06676174332 017654 0 ustar gotom kobayashi
auto/answer.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
auto/answer.plm - $BFCDj$NH/8@$KH?1~$7$FBP1~$9$kH/8@$r$9$k(B
$B@bL@(B
$BFCDj$NJ8;zNs$,H/8@$5$l$k$H!"$=$l$KBP1~$9$kJ8;zNs$rH/8@$7$^$9!#(B
$B$9$Y$F$NH/8@$KH?1~$9$k$?$a!"F1$8H/8@$r2?EY$b7+$jJV$92DG=@-$,(B
$B$"$k$N$GCm0U$7$F2<$5$$!#(B
$B%W%m%Q%F%#(B
auto.answer.alias $B%U%!%$%kL>(B[;({jis|euc|sjis})]
$B%f!<%6L>$N%(%$%j%"%9$rDj5A$9$k%U%!%$%k$r;XDj$7$^$9!#(B
$B$3$N%U%!%$%k$O(Bauto/alias.plm$B$G;H$&$b$N$HF1$8$b$N$G$9!#(B
$B%U%!%$%k$O;XDj$7$?4A;z%3!<%I$GJ]B8$5$l$F$$$kI,MW$,$"$j$^$9!#(B
auto.answer.reply* $BJ8;zNs(B $B%U%)!<%^%C%H(B
$BH?1~$9$kH/8@$H!"$=$l$KBP$9$kJV;v$r;XDj$7$^$9!#H?1~$9$kH/8@$K$O(B
$B6uGr$r4^$a$k$3$H$O$G$-$^$;$s!#JV;v$K(B#(nick)$B$N$h$&$K=q$/$3$H$G!"(B
$B%(%$%j%"%9$NBP1~$9$k%G!<%?$GCV$-49$($k$3$H$,$G$-$^$9!#(B
$B$^$?!"%(%$%j%"%90J30$K$b(B#(nick.now)$B$G8=:_$N%K%C%/%M!<%`$K!"(B
#(channel)$B$GH/8@$N$"$C$?%A%c%s%M%kL>$KCV49$7$^$9!#(B
$B$^$?!"3g8LFb$r!V(B|$B!W$G6h@Z$C$FJ#?t;XDj$7$?>l9g!"(B
$B:G=i$KDj5A$5$l$F$$$kCM$GCV$-49$($^$9!#(B
$B@_DjNc(B
+ auto/answer.plm
auto.answer.alias: alias.txt
auto.answer.reply: $B$3$s$K$A$O(B $B$3$s$K$A$O!A!y(B
auto.answer.reply: $B$3$s$P$s$O(B #(name|nick|nick.now)$B$5$s!"$3$s$P$s$O!A!y(B
$B!V$3$s$K$A$O!W$H$$$&H/8@$,$"$C$?$H$-$K!V$3$s$K$A$O!A!y!W$HH/8@$7$^$9!#(B
$B$^$?!"!V$3$s$P$s$O!W$H$$$&H/8@$,$"$C$?$H$-$K!"(B
$BH/8@$7$??M$N%(%$%j%"%9$r!V(Balias.txt$B!W$+$i;2>H$7$F!"(B
$BNc$($P!V$W$i$`$5$s!"$3$s$P$s$o!A!y!W$N$h$&$KH/8@$7$^$9!#(B
+ auto/answer.plm
auto.answer.reply: $B$X$k$W(B $BEA8@5!G=$H>.Jq5!G=$N%X%k%W$G$9(B
auto.answer.reply: $B$X$k$W(B $B$G$s$4$s(B nick message : nick$B08$K%a%C%;!<%8$rFO$1$^$9(B
auto.answer.reply: $B$X$k$W(B $B$3$E$D$_(B nick message : nick$B08$K%U%!%$%k$rFO$1$^$9(B
auto.answer.reply: $B$3$E$D$_$X$k$W(B DCC$B$rAw$C$F$+$i08@h$r65$($F2<$5$$$M(B
$B!V$X$k$W!W$HH/8@$9$k$H!"(B3$B9T$K$o$?$k%X%k%W%a%C%;!<%8$rH/8@$7$^$9!#(B
$B$^$?!"!V$3$E$D$_$X$k$W!W$HH/8@$9$k$H!"(B
$B!V(BDCC$B$r@h$KAw$C$F$+$i08@h$r65$($F2<$5$$$M!W$HH/8@$7$^$9!#(B
plum-2.33.1.orig/module/auto/cache.plm 0100644 0010013 0000620 00000006671 06676174332 017423 0 ustar gotom kobayashi
auto/cache.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
auto/cache.plm - $BF1$8H/8@$r7+$jJV$5$J$$$h$&$K@)8B$9$k(B
$B@bL@(B
$B2a5n$KH/8@$7$?J8;zNs$rJ]B8$7$F$*$-!"$=$NCf$KH/8@$7$h$&$H$7$F$$$k(B
$BJ8;zNs$,$"$l$P!"$=$l$rH/8@$7$J$$$h$&$K$7$^$9!#(B
$B%W%m%Q%F%#(B
auto.cache.size $B%-%c%C%7%e$NBg$-$5(B
$BJ]B8$7$F$*$/H/8@?t$N?t$r;XDj$7$^$9!#(B
$B%G%U%)%k%H$G$O(B10$B$K$J$C$F$$$^$9!#(B
auto.cache.expire $B%-%c%C%7%e$NM-8z4|8B(B
$B%-%c%C%7%e$,M-8z$J;~4V$r;XDj$7$^$9!#(B
$B$3$3$G;XDj$7$?IC?t$,7P2a$7$?%-%c%C%7%e$O<+F0E*$K%/%j%"$5$l$^$9!#(B
0$B$r;XDj$9$k$H!"%/%j%"$O9T$o$l$^$;$s!#(B
$B%G%U%)%k%H$G$O(B600$B$K$J$C$F$$$^$9!#(B
auto.cache.clear* $B%-%c%C%7%e$r%/%j%"$9$kH/8@(B
$B$3$3$G;XDj$7$?J8;zNs$rH/8@$9$k$H!"%-%c%C%7%e$r%/%j%"$7$^$9!#(B
$B@_DjNc(B
+ auto/cache.plm
auto.cache.size: 5
auto.cache.expire: 300
auto.cache.clear: $B$W$i$`$7$g$-$+(B
$B2a5n$NH/8@$r(B5$B$D$^$GJ]B8$7$F$*$-!"$=$l$HF1$8H/8@$r$7$J$$$h$&$K$7$^$9!#(B
$B!V$W$i$`$7$g$-$+!W$HH/8@$9$k$H!"$=$N%A%c%s%M%k$N%-%c%C%7%e$r%/%j%"$7$^$9!#(B
$B$^$?!"(B300$BIC$,7P2a$7$?%-%c%C%7%e$b<+F0E*$K%/%j%"$5$l$^$9!#(B
plum-2.33.1.orig/module/sys/ 0040755 0010013 0000620 00000000000 06676174333 015506 5 ustar gotom kobayashi plum-2.33.1.orig/module/sys/web.plm 0100644 0010013 0000620 00000124647 06676174332 017007 0 ustar gotom kobayashi
sys/web.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
sys/web.plm - Web$B%V%i%&%6$J$I$G(BIRC$B$r9T$&$?$a$N%$%s%?!<%U%'%$%9(B
$B@bL@(B
HTTP$B%W%m%H%3%k$rMxMQ$9$k$3$H$G!"(BWeb$B%V%i%&%6$J$I$+$i(BIRC$B$r9T$$$^$9!#(B
$B%U%l!<%`$rMQ$$$FI=<($rJ,3d$7$F$$$k$N$G!"%U%l!<%`$KBP1~$7$?(B
Web$B%V%i%&%6$,I,MW$G$9!#(B
$B%W%m%Q%F%#(B
sys.web.method {post|get}
$B%U%)!<%`$N%G!<%?$rAw?.$9$k$H$-$K;HMQ$9$k%a%=%C%I$r;XDj$7$^$9!#(B
$B%G%U%)%k%H$G$O(Bget$B$K$J$C$F$$$^$9!#(B
sys.web.client* $B%[%9%H%^%9%/(B:$B%]!<%HHV9f(B $B%f!<%6L>(B:$B%Q%9%o!<%I(B
HTTP$B%W%m%H%3%k$K$h$C$FDL?.$r9T$&%]!<%H!"(B
$B@\B32DG=$J%/%i%$%"%s%H$N%^%9%/$H!"MxMQ2DG=$J%f!<%6$r;XDj$7$^$9!#(B
sys.web.header $B$X%C%@(B
$B%m%0$N;~9o$N%U%)!<%^%C%H$r;XDj$7$^$9!#(B
%$B$G$O$8$^$kJ8;z$,$"$k$H!"BP1~$9$k;~4V$KJQ49$5$l$^$9!#(B
sys.web.line $B9T?t(B
$B%a%C%;!<%8$N%m%0$r;D$99T?t$r;XDj$7$^$9!#%G%U%)%k%H$G$O(B50$B9T$G$9!#(B
sys.web.kanji* ({euc|jis|sjis})
$B%U%)!<%`$+$iF~NO$5$l$?J8;zNs$N4A;z%3!<%I$r;XDj$7$^$9!#(B
$B%G%U%)%k%H$G$O(Bjis,sjis$B$G$9!#(B
$B@_DjNc(B
+ sys/web.plm
sys.web.method: get
sys.web.client: *.jp:8080 userid:passwd
sys.web.header: %H:%M
sys.web.line: 50
sys.web.kanji: jis,sjis
$B%]!<%HHV9f(B8080$B$G(BHTTP$B%W%m%H%3%k$r;HMQ$7$?DL?.$r9T$$$^$9!#(B
$B%f!<%6(BID$B$H$7$F!V(Buserid$B!W!"%Q%9%o!<%I$H$7$F!V(Bpasswd$B!W$r(B
$B;XDj$9$k$3$H$G@\B3$9$k$3$H$,$G$-$^$9!#(B
$B$?$@$7@\B32DG=$J$N$O@\B385$N%[%9%H$,!V(B*.jp$B!W$K%^%C%A$9$k>l9g$@$1$G$9!#(B
plum-2.33.1.orig/module/sys/background.plm 0100644 0010013 0000620 00000001544 06676174332 020337 0 ustar gotom kobayashi
sys/background.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
sys/background.plm - plum$B$r%P%C%/%0%i%&%s%I$G$B@bL@(B
plum$B$r%P%C%/%0%i%&%s%I$G$B%W%m%Q%F%#(B
$B@_DjNc(B
= sys/background.plm
plum-2.33.1.orig/module/sys/dump.plm 0100644 0010013 0000620 00000003563 06676174332 017170 0 ustar gotom kobayashi
sys/dump.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
sys/dump.plm - plum$B$,FbIt$G;HMQ$9$k>pJs$rI=<($9$k(B
$B@bL@(B
plum$B$,FbIt$G;HMQ$9$k3FpJs$J$I$rI=<($7$^$9!#(B
$B$3$N%b%8%e!<%k$rAH$_9~$`$H!"(Bplum$B<+?H$N$B%W%m%Q%F%#(B
$B@_DjNc(B
= sys/dump.plm
plum-2.33.1.orig/module/sys/module/ 0040755 0010013 0000620 00000000000 06676174333 016773 5 ustar gotom kobayashi plum-2.33.1.orig/module/sys/module/update.plm 0100644 0010013 0000620 00000004153 06676174332 020766 0 ustar gotom kobayashi
sys/module/update.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
sys/module/update.plm - $B%b%8%e!<%k$,JQ99$5$l$k$H<+F0E*$KAH$_9~$_D>$9(B
$B@bL@(B
$B0lDj;~4V$4$H$KAH$_9~$s$@%b%8%e!<%k$,JQ99$5$l$F$$$J$$$+$r%A%'%C%/$7!"(B
$BJQ99$5$l$F$$$l$P$=$l$rAH$_9~$_D>$7$^$9!#(B
$B%W%m%Q%F%#(B
$B@_DjNc(B
+ sys/module/update.plm
plum-2.33.1.orig/module/sys/show.plm 0100644 0010013 0000620 00000002150 06676174332 017172 0 ustar gotom kobayashi
sys/show.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
sys/show.plm - $BG$0U$N(Bperl$B$NJ8$r$B@bL@(B
show$B$H$$$&%3%^%s%I$rDI2C$7$^$9!#(B
show$B%3%^%s%I$N0z?t$O(B1$B$D$G!"G$0U$N(Bperl$B$NJ8$r;XDj$7$^$9!#(B
$B$3$NJ8$O(Bplum$B$K$h$C$F$B%W%m%Q%F%#(B
$B@_DjNc(B
+ sys/show.plm
plum-2.33.1.orig/module/sys/conf/ 0040755 0010013 0000620 00000000000 06676174333 016433 5 ustar gotom kobayashi plum-2.33.1.orig/module/sys/conf/load.plm 0100644 0010013 0000620 00000002120 06676174332 020053 0 ustar gotom kobayashi
sys/conf/load.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
sys/conf/load.plm - plum.conf$B$rFI$_9~$_D>$9(B
$B@bL@(B
load$B$H$$$&%3%^%s%I$rDI2C$7$^$9!#(Bload$B%3%^%s%I$K$O0z?t$O$"$j$^$;$s!#(B
$B$3$N%3%^%s%I$r$B%W%m%Q%F%#(B
$B@_DjNc(B
+ sys/conf/load.plm
plum-2.33.1.orig/module/sys/conf/update.plm 0100644 0010013 0000620 00000002556 06676174332 020433 0 ustar gotom kobayashi
sys/conf/update.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
sys/conf/update.plm - plum.conf$B$,JQ99$5$l$k$H<+F0E*$KFI$_9~$_D>$9(B
$B@bL@(B
$B0lDj;~4V$4$H$K(Bplum.conf$B$,JQ99$5$l$F$$$J$$$+$r%A%'%C%/$7!"(B
$BJQ99$5$l$F$$$l$P$=$l$rFI$_9~$s$G%b%8%e!<%k$H%W%m%Q%F%#$N:F@_Dj$r9T$$$^$9!#(B
$B%W%m%Q%F%#(B
$B@_DjNc(B
+ sys/conf/update.plm
plum-2.33.1.orig/module/sys/timer.plm 0100644 0010013 0000620 00000005162 06676174332 017340 0 ustar gotom kobayashi
sys/timer.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
sys/timer.plm - $B;XDj$5$l$?;~4V$K;XDj$5$l$?%3%^%s%I$r$B@bL@(B
$B;XDj$5$l$?;~4V$K$J$k$H;XDj$5$l$?%3%^%s%I$r$B%W%m%Q%F%#(B
sys.timer.exec* $BF|IU(B $B;~4V(B $B%3%^%s%I(B
$B%3%^%s%I$r$l6uGr$G6h@Z$j$^$9!#(B
$BF|IU$O(B1970/01/01$B!";~4V$O(B00:00:00$B$N%U%)!<%^%C%H$G!"(B
$B$=$l$>$l%o%$%k%I%+!<%I$H$7$F(B*$B$H(B?$B$,;XDj$G$-$^$9!#(B
$B%3%^%s%I$K$O(Bperl$B$NJ8$G$O$J$/!"(B
$B
$B@_DjNc(B
+ sys/timer.plm
sys.timer.exec: */01/01 *:*:* echo 'A happy new year' | mail hasegawa
$BKhG/(B1$B7n(B1$BF|$K$J$k$H!"!V(Becho 'A happy new year' | mail hasegawa$B!W(B
$B$H$$$&%3%^%s%I$r
+ sys/timer.plm
sys.timer.exec: */*/* 00:*:* logmail
$BKhF|(B0$B;~$K$J$k$H!"!V(Blogmail$B!W$H$$$&%3%^%s%I$r
+ sys/timer.plm
sys.timer.exec: */*/* *:*:* echo start plum
$B5/F0;~$K0l2s$@$1!V(Becho start plum$B!W$H$$$&%3%^%s%I$r
plum-2.33.1.orig/module/sys/multicast.plm 0100644 0010013 0000620 00000111071 06676174332 020222 0 ustar gotom kobayashi
sys/multicast.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
sys/multicast.plm - $BJ#?t$N%5!<%P$rC10l$N%5!<%P$N$h$&$K%(%_%e%l!<%H$9$k(B
$B@bL@(B
$BJ#?t$N@_Dj%U%!%$%k$r;H$C$F%5!<%P$K@\B3$7!"$=$l$>$l$N@_Dj$N%5!<%P$r(B
$BJL$N@_Dj$N%/%i%$%"%s%H$+$i%"%/%;%9$G$-$k$h$&$K$7$^$9!#(B
$B$3$N%b%8%e!<%k$rF~$l$k$H!"$9$Y$F$N%A%c%s%M%kL>$O!V%A%c%s%M%kL>(B@$B@_DjL>!W(B
$B$H$$$&L>A0$KJQ49$5$l$^$9!#(B
$B%W%m%Q%F%#(B
$B@_DjNc(B
+ sys/multicast.plm
plum-2.33.1.orig/module/ctcp/ 0040755 0010013 0000620 00000000000 06676174333 015621 5 ustar gotom kobayashi plum-2.33.1.orig/module/ctcp/clientinfo.plm 0100644 0010013 0000620 00000002446 06676174332 020467 0 ustar gotom kobayashi
ctcp/clientinfo.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
ctcp/clientinfo.plm - CTCP CLIENTINFO$B$KH?1~$7$F%/%i%$%"%s%H>pJs$rAw$k(B
$B@bL@(B
CTCP CLIENTINFO$B$,Aw$i$l$F$-$?$H$-!"(B
$B$=$l$KH?1~$7$F%/%i%$%"%s%H>pJs$rAw$jJV$7$^$9!#(B
$B%W%m%Q%F%#(B
$B@_DjNc(B
+ ctcp/clientinfo.plm
plum-2.33.1.orig/module/ctcp/comment.plm 0100644 0010013 0000620 00000001601 06676174332 017767 0 ustar gotom kobayashi
ctcp/comment.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
ctcp/comment.plm - CTCP COMMENT$B$KH?1~$7$F%a%C%;!<%8$r$B@bL@(B
CTCP COMMENT$B$,Aw$i$l$F$-$?$H$-!"(B
$B$=$l$KH?1~$7$F%3%a%s%H$r$B%W%m%Q%F%#(B
$B@_DjNc(B
+ ctcp/comment.plm
plum-2.33.1.orig/module/ctcp/echo.plm 0100644 0010013 0000620 00000002210 06676174332 017240 0 ustar gotom kobayashi
ctcp/echo.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
ctcp/echo.plm - CTCP ECHO$B$KH?1~$7$F$B@bL@(B
CTCP ECHO$B$,Aw$i$l$F$-$?$H$-!"(B
$B$=$l$KH?1~$7$F$B%W%m%Q%F%#(B
$B@_DjNc(B
+ ctcp/echo.plm
plum-2.33.1.orig/module/ctcp/part.plm 0100644 0010013 0000620 00000004672 06676174332 017306 0 ustar gotom kobayashi
ctcp/part.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
ctcp/part.plm - CTCP PART$B$KH?1~$7$F%A%c%s%M%k$rH4$1$k(B
$B@bL@(B
CTCP PART$B$,Aw$i$l$F$-$?$H$-!"(B
$B$=$l$KH?1~$7$F;XDj$5$l$?%A%c%s%M%k$rH4$1$^$9!#(B
$B%W%m%Q%F%#(B
ctcp.part.mask* $B%f!<%6%^%9%/(B [($B%A%c%s%M%kL>(B)]
CTCP PART$B$,Aw$i$l$F$-$?$H$-!"Aw$j
$B@_DjNc(B
+ ctcp/part.plm
ctcp.part.mask: *!*@* #$B$^$I$+(B
$B!V(B#$B$^$I$+!W$rH4$1$k$h$&$K(BCTCP PART$B$,Aw$i$l$F$-$?>l9g!"(B
$B!V(B#$B$^$I$+!W$+$iH4$1$^$9!#(B
+ ctcp/part.plm
ctcp.part.mask: *!*@*.jp
CTCP PART$B$,Aw$i$l$F$-$?$H$-!"$=$l$rAw$C$??M$,!V(B*!*@*.jp$B!W$K%^%C%A$7$?$i!"(B
$B$=$N%A%c%s%M%k$rH4$1$^$9!#(B
plum-2.33.1.orig/module/ctcp/ping.plm 0100644 0010013 0000620 00000002210 06676174332 017257 0 ustar gotom kobayashi
ctcp/ping.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
ctcp/ping.plm - CTCP PING$B$KH?1~$7$F$B@bL@(B
CTCP PING$B$,Aw$i$l$F$-$?$H$-!"(B
$B$=$l$KH?1~$7$F$B%W%m%Q%F%#(B
$B@_DjNc(B
+ ctcp/ping.plm
plum-2.33.1.orig/module/ctcp/time.plm 0100644 0010013 0000620 00000002003 06676174332 017260 0 ustar gotom kobayashi
ctcp/time.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
ctcp/time.plm - CTCP TIME$B$KH?1~$7$F8=:_;~9o$rAw$k(B
$B@bL@(B
CTCP TIME$B$,Aw$i$l$F$-$?$H$-!"$=$l$KH?1~$7$F8=:_;~9o$rAw$j$^$9!#(B
$B%W%m%Q%F%#(B
$B@_DjNc(B
+ ctcp/time.plm
plum-2.33.1.orig/module/ctcp/userinfo.plm 0100644 0010013 0000620 00000002575 06676174332 020172 0 ustar gotom kobayashi
ctcp/userinfo.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
ctcp/userinfo.plm - CTCP USERINFO$B$KH?1~$7$F%f!<%6>pJs$rAw$k(B
$B@bL@(B
CTCP USERINFO$B$,Aw$i$l$F$-$?$H$-!"$=$l$KH?1~$7$F%f!<%6>pJs$rAw$j$^$9!#(B
$B%W%m%Q%F%#(B
ctcp.userinfo.info $B%f!<%6>pJs(B
$B%f!<%6>pJs$r@_Dj$7$^$9!#(B
$BJ8;z?t$d;HMQ$G$-$kJ8;z$N@)8B$O$"$j$^$;$s!#(B
$B@_DjNc(B
+ ctcp/userinfo.plm
ctcp.userinfo.info: $B$J$$$7$g(B
CTCP USERINFO$B$,Aw$i$l$F$-$?$H$-$K!"!V$J$$$7$g!W$H$$$&%f!<%6>pJs$rAw$j$^$9!#(B
plum-2.33.1.orig/module/ctcp/version.plm 0100644 0010013 0000620 00000002475 06676174332 020024 0 ustar gotom kobayashi
ctcp/version.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
ctcp/version.plm - CTCP VERSION$B$KH?1~$7$F%P!<%8%g%s>pJs$rAw$k(B
$B@bL@(B
CTCP VERSION$B$,Aw$i$l$F$-$?$H$-!"$=$l$KH?1~$7$F%P!<%8%g%s>pJs$rAw$j$^$9!#(B
$B%W%m%Q%F%#(B
$B@_DjNc(B
+ ctcp/version.plm
plum-2.33.1.orig/module/ctcp/dcc/ 0040755 0010013 0000620 00000000000 06676174333 016352 5 ustar gotom kobayashi plum-2.33.1.orig/module/ctcp/dcc/http.plm 0100644 0010013 0000620 00000024336 06676174332 020047 0 ustar gotom kobayashi
ctcp/dcc/http.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
ctcp/dcc/http.plm - DCC SEND$B$H(BDCC CHAT$B$r(BHTTP$B$r;H$C$FCf7Q$9$k(B
$B@bL@(B
DCC SEND$B$H(BDCC CHAT$B$N%j%/%(%9%H$,Aw$i$l$F$-$?$H$-$K!"(B
HTTP$B$N(BProxy$B$rDL$7$F@\B3$rCf7Q$7$^$9!#(B
$BAw$i$l$?%U%!%$%k$r(BDCC$B$H(BHTTP$B$rJQ49$9$k%2!<%H%&%'%$$rMQ$$$F(B
HTTP$B$KJQ49$7!"$=$l$r$5$i$K(BDCC$B$KJQ49$7$F%/%i%$%"%s%H$KAw$j$^$9!#(B
$B%W%m%Q%F%#(B
ctcp.dcc.http.proxy $B%[%9%HL>(B:$B%]!<%HHV9f(B
HTTP$B$N(BProxy$B$r;XDj$7$^$9!#(B
ctcp.dcc.http.gateway $B%[%9%HL>(B:$B%]!<%HHV9f(B
HTTP$B$H(BDCC$B$rJQ49$9$k%2!<%H%&%'%$$r;XDj$7$^$9!#(B
ctcp.dcc.http.mask* $B%f!<%6%^%9%/(B [($B%A%c%s%M%kL>(B)]
$B%U%!%$%k$rAw?.$7$F$-$??M$,!"$3$3$G;XDj$5$l$?$b$N$K%^%C%A$7$?$i(B
$BE>Aw$NCf7Q$r9T$$$^$9!#(B
$B@_DjNc(B
+ ctcp/dcc/http.plm
ctcp.dcc.http.proxy: proxy:10080
ctcp.dcc.http.gateway: caviar.agusa.nuie.nagoya-u.ac.jp:18080
ctcp.dcc.http.mask: *!*@*
HTTP$B$N(BProxy$B$H$7$F!V(Bproxy:10080$B!W$r;H$$!"(BDCC-HTTP$BJQ49$N(B
$B%2!<%H%&%'%$$H$7$F!V(Bcaviar.agusa.nuie.nagoya-u.ac.jp:18080$B!W$r;HMQ$7$^$9!#(B
$BC/$+$iAw?.$5$l$?$b$N$G$"$C$F$b!"E>Aw$NCf7Q$r9T$$$^$9!#(B
plum-2.33.1.orig/module/ctcp/dcc/get.plm 0100644 0010013 0000620 00000014725 06676174332 017650 0 ustar gotom kobayashi
ctcp/dcc.get.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
ctcp/dcc/get.plm - DCC SEND$B$KH?1~$7$FAw$i$l$F$-$?%U%!%$%k$r$B@bL@(B
DCC SEND$B%j%/%(%9%H$,Aw$i$l$F$-$?$H$-!"(B
$B$=$l$KH?1~$7$FAw$i$l$F$-$?%U%!%$%k$r<+F0E*$K$B%W%m%Q%F%#(B
ctcp.dcc.get.directory $B%G%#%l%/%H%j(B
$B
ctcp.dcc.get.mask* $B%f!<%6%^%9%/(B [($B%A%c%s%M%kL>(B)]
$B%U%!%$%k$rAw?.$7$F$-$??M$,$3$3$G;XDj$5$l$?$b$N$K%^%C%A$7$?$i!"(B
$BAw$i$l$F$-$?%U%!%$%k$r
ctcp.dcc.get.mode $B%U%!%$%k%b!<%I(B
$B%U%!%$%k$r
$B@_DjNc(B
+ ctcp/dcc/get.plm
ctcp.dcc.get.mask: *!*@*
DCC SEND$B$G%U%!%$%k$,Aw?.$5$l$F$-$?$H$-!"(B
$B$=$l$,C/$+$iAw$i$l$F$-$?$+$K$+$+$o$i$:!"$=$N%U%!%$%k$r
+ ctcp/dcc/get.plm
ctcp.dcc.get.directory: dcc
ctcp.dcc.get.mask: *!*@*.jp
DCC SEND$B$G%U%!%$%k$,Aw?.$5$l$F$-$?$H$-!"(B
$BAw?.$7$F$-$??M$,!V(B*!*@*.jp$B!W$K%^%C%A$7$?$i!"$=$N%U%!%$%k$rA0$N%G%#%l%/%H%j$,B8:_$7$J$$>l9g$d!"(B
$B=q$-9~$_$,$G$-$J$$>l9g$O%U%!%$%k$O
plum-2.33.1.orig/module/ctcp/dcc/send.plm 0100644 0010013 0000620 00000011635 06676174332 020017 0 ustar gotom kobayashi
ctcp/dcc/send.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
ctcp/dcc/send.plm - DCC SEND$B$G%U%!%$%k$rAw?.$9$k(B
$B@bL@(B
$B$3$N%b%8%e!<%k$rF~$l$k$H!"(BSEND$B$H$$$&%3%^%s%I$,;H$($k$h$&$K$J$j!"(B
$B$3$N%3%^%s%I$r;H$C$F(BDCC$B$G%U%!%$%k$rAw?.$9$k$3$H$,$G$-$k$h$&$K$J$j$^$9!#(B
SEND$B%3%^%s%I$N%Q%i%a!<%?$O%K%C%/%M!<%`$H%U%!%$%kL>$G!"(B
$B0J2<$N$h$&$K;HMQ$7$^$9!#(B
/SEND nick filename
$B%W%m%Q%F%#(B
$B@_DjNc(B
+ ctcp/dcc/send.plm
plum-2.33.1.orig/module/ctcp/dcc/gate.plm 0100644 0010013 0000620 00000027700 06676174332 020006 0 ustar gotom kobayashi
ctcp/dcc.gate.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
ctcp/dcc/gate.plm - CTCP DCC SEND$B$KH?1~$7$FE>Aw$NCf7Q$r9T$&(B
$B@bL@(B
CTCP DCC SNED$B$,Aw$i$l$F$-$?$H$-!"(B
$BAw$j85$H%/%i%$%"%s%H$N4V$N%U%!%$%k$NAw$B%W%m%Q%F%#(B
ctcp.dcc.gate.mask* $B%f!<%6%^%9%/(B [($B%A%c%s%M%kL>(B)]
$B%U%!%$%k$rAw?.$7$F$-$??M$,$3$3$G;XDj$5$l$?$b$N$K%^%C%A$7$?$i!"(B
$B%U%!%$%k$NE>Aw$rCf7Q$7$^$9!#(B
ctcp.dcc.gate.known $B%f!<%6>pJs(B ($B%K%C%/%M!<%`(B)
DCC$B$rAw$kAjpJs$,$o$+$i$J$$$?$a$K!"E>Aw$r(B
$BCf7Q$7$F$$$$$+$I$&$+H=CG$G$-$J$$$H$-!"$3$3$G;XDj%f!<%6>pJs$r(B
$B;2>H$7$FH=CG$7$^$9!#$3$3$G$bH=CG$G$-$J$+$C$?>l9g$OBe$o$j$K<+J,$N(B
$B%f!<%6>pJs$r;2>H$7$^$9!#(B
$B@_DjNc(B
+ ctcp/dcc/gate.plm
ctcp.dcc.gate.mask: -*!*@*.nagoya-u.ac.jp
ctcp.dcc.gate.mask: *!*@*
ctcp.dcc.gate.known: plum!plum@agusa.nuie.nagoya-u.ac.jp plum,plum_d
ctcp.dcc.gate.known: unknown!unknown@unknown.jp
$B%U%!%$%k$rAw$C$F$-$??M!"$b$7$/$OAw$m$&$H$7$??M$,(B
$B!V(B*!*@*.nagoya-u.ac.jp$B!W$K%^%C%A$7$J$1$l$P!"E>Aw$NCf7Q$r9T$$$^$9!#(B
$B$^$?!"%U%!%$%k$rAw$m$&$H$7$??M$N%f!<%6>pJs$,$o$+$i$J$$$H$-!"(B
$B$=$N?M$N%K%C%/%M!<%`$,!V(Bplum$B!W$+!V(Bplum_d$B!W$J$i$P!"%f!<%6>pJs$H$7$F!"(B
$B!V(Bplum!plum@agusa.nuie.nagoya-u.ac.jp$B!W$r;HMQ$7$^$9!#(B
$B$=$l0J30$N%K%C%/%M!<%`$N?M$KBP$7$F$O!V(Bunknown!unknown@unknown.jp$B!W$r(B
$B;HMQ$7$^$9!#(B
plum-2.33.1.orig/module/ctcp/dcc/forward.plm 0100644 0010013 0000620 00000004543 06676174332 020532 0 ustar gotom kobayashi
ctcp/dcc/forward.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
ctcp/dcc/forward.plm - CTCP DCC$B$r;XDj$7$?%f!<%6$KE>Aw$9$k(B
$B@bL@(B
CTCP DCC$B$,Aw$i$l$F$-$?$H$-!"$=$l$r;XDj$7$?%f!<%6$KE>Aw$7$^$9!#(B
$B$?$@$7E>Aw$9$k$H$-$KAw$jAw$5$l$?(BCTCP DCC$B$r(B
$B%-%c%s%;%k$9$k$3$H$O$G$-$^$;$s!#(B
$B%W%m%Q%F%#(B
ctcp.dcc.forward.nick* ($B%K%C%/%M!<%`(B)
CTCP DCC$B$rE>Aw$9$k%K%C%/%M!<%`!#A0$+$i=gHV$K8+$F$$$-!"(B
$BF1$8%A%c%s%M%k$K;XDj$7$?%K%C%/%M!<%`$N%f!<%6$,$$$l$P!"(B
$B$=$N%f!<%6$KE>Aw$7$^$9!#;XDj$7$?%K%C%/%M!<%`$N%f!<%6$,(B
$B$$$J$1$l$PE>Aw$O9T$$$^$;$s!#(B
$B@_DjNc(B
+ ctcp/dcc/forward.plm
ctcp.dcc.forward.nick: pupu_j,pupu_d
ctcp.dcc.forward.nick: pupu_ppp
CTCP DCC$B$,Aw$i$l$F$-$?$H$-$K!"(Bpupu_j$B!"(Bpupu_d$B!"(Bpupu_ppp$B$N(B
$B$I$l$+$N%K%C%/%M!<%`$N%f!<%6$,$$$l$P!"$=$N%f!<%6$K(BCTCP DCC$B$rE>Aw$7$^$9!#(B
plum-2.33.1.orig/module/ctcp/dcc/cancel.plm 0100644 0010013 0000620 00000002560 06676174332 020310 0 ustar gotom kobayashi
ctcp/dcc/cancel.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
ctcp/dcc/cancel.plm - DCC CHAT$B$r%-%c%s%;%k$9$k(B
$B@bL@(B
DCC CHAT$B$N%j%/%(%9%H$,$-$?$H$-$K!"$=$l$r%-%c%s%;%k$7$^$9!#(B
DCC CHAT$B0J30$N(BDCC$B$K$D$$$F$O2?$b$7$^$;$s!#(B
$B%W%m%Q%F%#(B
$B@_DjNc(B
+ ctcp/dcc/cancel.plm
plum-2.33.1.orig/module/ctcp/dcc/client.plm 0100644 0010013 0000620 00000002674 06676174332 020347 0 ustar gotom kobayashi
ctcp_dcc_client
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
ctcp/dcc/client.plm - CTCP DCC$B$r%/%i%$%"%s%H$KAw$k(B
$B@bL@(B
CTCP DCC$B%3%^%s%I$,Aw$i$l$F$-$?$H$-$K!"(Bplum$B$K%/%i%$%"%s%H$,@\B3$5$l$F$$$l$P(B
$B@\%/%i%$%"%s%H$KAw$j$^$9!#(B
CTCP DCC$B$r=hM}$9$k$h$&$J%b%8%e!<%k$rAH$_9~$s$G$$$k>l9g$G$b!"(B
$B$3$N%b%8%e!<%k$rAH$_9~$s$G$*$1$P!"%/%i%$%"%s%H$,@\B3$5$l$F$$$k$H$-$O(B
$B$=$l$i$N%b%8%e!<%k$K=hM}$r$5$;$J$$$h$&$K$9$k$3$H$,$G$-$^$9!#(B
$B%W%m%Q%F%#(B
$B@_DjNc(B
+ ctcp/dcc/client.plm
plum-2.33.1.orig/module/ctcp/dcc/nat.plm 0100644 0010013 0000620 00000007514 06676174332 017651 0 ustar gotom kobayashi
ctcp/dcc/nat.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
ctcp/dcc/nat.plm - NAT$B$r7PM3$7$F(BDCC$B$rMxMQ$9$k(B
$B@bL@(B
NAT$B$r;HMQ$7$F$$$k>l9g$K!"(BNAT$B$NFbB&$+$i(BDCC$B$NAw?.$,9T$($k$h$&$K$7$^$9!#(B
$B%W%i%$%Y!<%H$J(BIP$B%"%I%l%9$H%0%m!<%P%k$J(BIP$B%"%I%l%9$NBP1~$,$"$i$+$8$a(B
$B$o$+$C$F$$$k>l9g$O(Bplum$B$r$I$3$Gl9g$O!"(Bplum$B$r(BNAT$B$N$9$030B&$G@\%5!<%P$K@\B3$9$kI,MW$,$"$j$^$9!#(B
$B$3$N%b%8%e!<%k$G(BDCC$B$,Aw?.$G$-$k$h$&$K$J$k$N$O(BNAT$B$N>l9g$@$1$G!"(B
IP masquerade$B$N>l9g$O$3$N%b%8%e!<%k$r;H$C$F$b(BDCC$B$OAw?.$G$-$^$;$s!#(B
$B%W%m%Q%F%#(B
ctcp.dcc.nat.mapping* $B%W%i%$%Y!<%H(BIP $B%0%m!<%P%k(BIP
$B$=$l$>$l$N%^%7%s$KBP1~$9$k(BIP$B%"%I%l%9$N%^%C%T%s%0$r;XDj$7$^$9!#(B
$B%W%i%$%Y!<%H(BIP$B$+$iAw$i$l$F$-$?(BDCC$B$r%0%m!<%P%k(BIP$B$KJQ49$7$F(B
$BAw?.@h$NAj
ctcp.dcc.nat.private* $B@hF,%"%I%l%9(B $B=*N;%"%I%l%9(B
$B%W%i%$%Y!<%H$J(BIP$B%"%I%l%9$NHO0O$r;XDj$7$^$9!#(B
$BAw$m$&$H$9$k(BDCC$B$,$3$NHO0OFb$N$b$N$+$i$G$"$l$P!"(B
IP$B%"%I%l%9$rJQ49$7$^$9!#(B
$B@_DjNc(B
+ ctcp/dcc/nat.plm
ctcp.dcc.nat.mapping: 192.168.1.1 133.6.108.1
ctcp.dcc.nat.mapping: 192.168.1.2 133.6.108.2
$B!V(B192.168.1.1$B!W$+$iAw$i$l$F$-$?(BDCC$B$r!V(B133.6.108.1$B!W$+$iAw$C$?$h$&$K(B
$B8+$;$+$1$FAw?.@h$NAj
+ ctcp/dcc/nat.plm
ctcp.dcc.nat.private: 192.168.0.0 192.168.255.255
$B!V(B192.168.0.0$B!W$+$i!V(B192.168.255.255$B!W$N4V$+$iAw$i$l$F$-$?(BDCC$B$r(B
$B%0%m!<%P%k$J(BIP$B%"%I%l%9$KJQ49$7$FAw?.@h$NAj
plum-2.33.1.orig/module/ctcp/finger.plm 0100644 0010013 0000620 00000002637 06676174332 017611 0 ustar gotom kobayashi
ctcp/finger.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
ctcp/finger.plm - CTCP FINGER$B$KH?1~$7$F%/%i%$%"%s%H$N>pJs$rAw$k(B
$B@bL@(B
CTCP FINGER$B$,Aw$i$l$F$-$?$H$-!"(B
$B@\B3$5$l$F$$$k%/%i%$%"%s%H$N>pJs$rAw$jJV$7$^$9!#(B
$B%/%i%$%"%s%H$N>pJs$O%K%C%/%M!<%`!"@\B3;~$N%f!<%6L>$H(B
$B@\B385$N%[%9%HL>$G$9!#(B
$B%W%m%Q%F%#(B
$B@_DjNc(B
+ ctcp/finger.plm
plum-2.33.1.orig/module/log/ 0040755 0010013 0000620 00000000000 06676174333 015451 5 ustar gotom kobayashi plum-2.33.1.orig/module/log/mail.plm 0100644 0010013 0000620 00000013452 06676174332 017106 0 ustar gotom kobayashi
log/mail.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
log/mail.plm - $B%m%0%U%!%$%k$r;XDj$7$?%"%I%l%9$X%a!<%k$GAw?.$9$k(B
$B@bL@(B
$B%m%0%U%!%$%k$r;XDj$7$?%"%I%l%9$X%a!<%k$GAw?.$7$^$9!#(B
$B%W%m%Q%F%#(B
log.mail.from $B%"%I%l%9(B
$BAw?.85$H$7$F;HMQ$9$k%"%I%l%9$r;XDj$7$^$9!#(B
$B%a!<%k$NAw?.$,%(%i!<$K$J$C$?$H$-$O!"$3$3$G;XDj$7$?%"%I%l%9$X(B
$B%(%i!<$N%a!<%k$,Aw$i$l$^$9!#(B
log.mail.smtpserver $B%[%9%HL>(B[:$B%]!<%HHV9f(B]
$B;HMQ$9$k(BSMTP$B%5!<%P$r;XDj$7$^$9!#(B
$B%5!<%P$K@\B3$G$-$J$$$H$-$dAw?.$K<:GT$7$?$H$-$O2?$b$7$^$;$s!#(B
log.mail.directory $B%G%#%l%/%H%jL>(B
$B%m%0%U%!%$%k$NB8:_$9$k%G%#%l%/%H%j$r;XDj$7$^$9!#(B
$B%G%#%l%/%H%j$O(Bplum$B$r
log.mail.file* $B%U%!%$%kL>(B[;({jis|euc|sjis})] ($B%"%I%l%9(B)
$BAw?.$9$k%U%!%$%k$H$=$l$rAw$k%"%I%l%9$r;XDj$7$^$9!#(B
$B%U%!%$%kL>$K(B%$B$G;O$^$kJ8;z$,$"$k$H!"BP1~$9$kF|IU$KJQ49$5$l!"(B
$B$=$NL>A0$,JQ$o$k$?$S$K%a!<%k$G%U%!%$%k$rAw?.$7$^$9!#(B
$B@_DjNc(B
+ log/mail.plm
log.mail.from: plum@plum.or.jp
log.mail.smtpserver: mail.plum.or.jp:25
log.mail.file: log%m%d hogehoge@plum.gr.jp
log.mail.file: plum%m;euc hoehoe@plum.gr.jp,hogehoge@plum.or.jp
$B!V(Bplum@plum.or.jp$B!W$rAw?.85$H$7$F!"%m%0$r%a!<%k$GAw?.$7$^$9!#(B
$B$3$N$H$-!"(BSMTP$B%5!<%P$H$7$F!V(Bmail.plum.or.jp$B!W$N%]!<%H!V(B25$B!W$r;HMQ$7$^$9!#(B
$BAw?.$9$k%U%!%$%k$O(B2$B$D$G!"!V(Bhogehoge@plum.gr.jp$B!W08$K!V(Blog%m%d$B!W$r(B
$B!V(Bhoehoe@plum.gr.jp$B!W$H!V(Bhogehoge@plum.or.jp$B!W08$K!V(Bplum%m$B!W$rAw?.$7$^$9!#(B
log%m%d$B$H(Bplum%m$B$O$=$l$>$lF|IU$,E83+$5$l!"%U%!%$%k$NF|IU$,JQ$o$C$?$H$-$K(B
$B%a!<%k$GAw?.$7$^$9!#$=$N$?$a!"(Blog%m%d$B$O(B1$BF|(B1$B2s!"(Bplum%m$B$O(B1$B7n$K(B1$B2sAw?.$5$l$^$9!#(B
plum-2.33.1.orig/module/log/channel.plm 0100644 0010013 0000620 00000031174 06676174332 017575 0 ustar gotom kobayashi
log/channel.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
log/channel.plm - $B%a%C%;!<%8$r%A%c%s%M%k$4$H$N%m%0$H$7$FJ]B8$9$k(B
$B@bL@(B
$B%A%c%s%M%k$4$H$K%U%!%$%k$r;XDj$7$F%m%0$rJ]B8$7$^$9!#(B
$B%W%m%Q%F%#(B
log.channel.directory $B%G%#%l%/%H%j(B
$B%m%0$r:n@.$9$k%G%#%l%/%H%j$r;XDj$7$^$9!#(B
$B%G%#%l%/%H%j$O(Bplum$B$r
log.channel.file* $B%U%!%$%kL>(B[;({jis|euc|sjis})] [($B%A%c%s%M%k(B)]
$B%m%0$N%U%!%$%kL>$HJ]B8$9$k%A%c%s%M%k$r;XDj$7$^$9!#(B
%$B$G$O$8$^$kJ8;z$,$"$k$HBP1~$9$kF|IU$KJQ49$5$l$^$9!#(B
$B$^$?%A%c%s%M%kL>$NJQ$o$j$K(B*$B$r;XDj$9$k$3$H$G<+J,08$N(B
$B%a%C%;!<%8$r%m%0$KJ]B8$9$k$3$H$,$G$-$^$9!#(B
$BF1$8%A%c%s%M%k$,J#?t$N%U%!%$%k$K;XDj$5$l$F$$$?$H$-$O!"(B
$B:G=i$K=q$$$?%U%!%$%k$K$@$1J]B8$7!"%A%c%s%M%kL>$r>JN,$9$k$H!"(B
$B;D$j$N$9$Y$F$N%m%0$,$=$N%U%!%$%k$KJ]B8$5$l$^$9!#(B
log.channel.header $B$X%C%@(B
$B%m%0$K=PNO$9$k;~9o$N%U%)!<%^%C%H$r;XDj$7$^$9!#(B
%$B$G$O$8$^$kJ8;z$,$"$k$HBP1~$9$k;~4V$KJQ49$5$l$^$9!#(B
log.channel.mode $B%U%!%$%k%b!<%I(B
$B%m%0$N%U%!%$%k%b!<%I$r$3$3$G;XDj$7$?CM$K$7$^$9!#(B
log.channel.command ({invite|join|kick|mode|nick|notice|part|privmsg|quit|topic})
$BJ]B8$9$k%a%C%;!<%8$N
$B@_DjNc(B
+ log/channel.plm
log.channel.directory: log
log.channel.file: log%-8O%m%d;sjis #$B$^$I$+(B,#$B$^$I$+(B:*.jp
$B!V(B#$B$^$I$+!W$H!V(B#$B$^$I$+(B:*.jp$B!W$N%m%0$r!V(Blog/log%m%d$B!W$KJ]B8$7$^$9!#(B
$B$=$l0J30$N%A%c%s%M%k$N%m%0$OJ]B8$7$^$;$s!#(B
$B$3$N$H$-$N4A;z%3!<%I$O(Bsjis$B$G$9!#(B
$B$^$?!"%m%0$N%U%!%$%kL>$OKhF|(B8$B;~$K$=$NF|$NF|IU$N$b$N$KJQ$o$j$^$9!#(B
+ log/channel.plm
log.channel.file: madoka/%m%d #$B$^$I$+(B,*
log.channel.file: log%m%d
log.channel.command: privmsg,notice,topic
$B!V(B#$B$^$I$+!W$N%m%0$H<+J,08$N%a%C%;!<%8$r!V(Bmadoka/log%m%d$B!W$KJ]B8$7!"(B
$B$=$l0J30$N%m%0$r!V(Blog%m%d$B!W$KJ]B8$7$^$9!#(B
$B!V(B%m$B!W$H!V(B%d$B!W$O$=$l$>$l8=:_$N7n$HF|$KJQ49$5$l$^$9!#(B
$B$^$?!"!V(Bprivmsg$B!W!"!V(Bnotice$B!W!"!V(Btopic$B!W0J30$N%m%0$OJ]B8$7$^$;$s!#(B
plum-2.33.1.orig/module/log/client.plm 0100644 0010013 0000620 00000006146 06676174332 017444 0 ustar gotom kobayashi
log/client.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
log/client.plm - $B%/%i%$%"%s%H$+$i$NF~NO$r%m%0$H$7$FJ]B8$9$k(B
$B@bL@(B
$B%/%i%$%"%s%H$+$iF~NO$r$9$Y$F%m%0$KJ]B8$7$^$9!#(B
$B%W%m%Q%F%#(B
log.client.directory $B%G%#%l%/%H%j(B
$B%m%0$rJ]B8$9$k%G%#%l%/%H%j$r;XDj$7$^$9!#(B
$B%G%U%)%k%H$G$O%+%l%s%H%G%#%l%/%H%j$KJ]B8$7$^$9!#(B
log.client.file $B%U%!%$%kL>(B
$B%m%0$N%U%!%$%kL>$r;XDj$7$^$9!#(B
%$B$G$O$8$^$kJ8;z$,$"$k$H!"BP1~$9$kF|IU$KJQ49$5$l$^$9!#(B
$B%G%U%)%k%H$G$O!V(Blogclient$B!W$H$$$&%U%!%$%k$KJ]B8$7$^$9!#(B
log.client.header $B$X%C%@(B
$B%m%0$K=PNO$9$k;~9o$N%U%)!<%^%C%H$r;XDj$7$^$9!#(B
%$B$G$O$8$^$kJ8;z$,$"$k$H!"BP1~$9$k;~4V$KJQ49$5$l$^$9!#(B
log.client.mode $B%U%!%$%k%b!<%I(B
$B%m%0$N%U%!%$%k%b!<%I$r;XDj$7$^$9!#(B
$B@_DjNc(B
+ log/client.plm
log.client.file: client%m%d
$B%/%i%$%"%s%H$+$i$NF~NO$r!V(Bclient%m%d$B!W$KJ]B8$7$^$9!#(B
$B!V(B%m$B!W$H!V(B%d$B!W$O$=$l$>$l8=:_$N7n$HF|$KJQ49$5$l$^$9!#(B
plum-2.33.1.orig/module/log/daily.plm 0100644 0010013 0000620 00000023070 06676174332 017263 0 ustar gotom kobayashi
log/daily.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
log/daily.plm - $B%a%C%;!<%8$r%m%0$KJ]B8$9$k(B
$B@bL@(B
$B%m%0$r;XDj$7$?%U%!%$%k$KJ]B8$7$^$9!#(B
$B%W%m%Q%F%#(B
log.daily.directory $B%G%#%l%/%H%j(B
$B%m%0$r:n@.$9$k%G%#%l%/%H%j$r;XDj$7$^$9!#(B
$B%G%#%l%/%H%j$O(Bplum$B$r
log.daily.file $B%U%!%$%kL>(B[;({jis|euc|sjis})]
$B%m%0$rJ]B8$9$k%U%!%$%k$r;XDj$7$^$9!#(B
%$B$G$O$8$^$kJ8;z$,$"$k$HBP1~$9$kF|IU$KJQ49$5$l$^$9!#(B
$B%G%U%)%k%H$G$O!V(Blog%m%d$B!W$G$9!#(B
$B%U%!%$%kL>$N8e$KJ]B8$9$k4A;z%3!<%I$r;XDj$9$k$3$H$,$G$-$^$9!#(B
$B4A;z%3!<%I$rJ#?t;XDj$7$?>l9g$O:G=i$K;XDj$7$?4A;z%3!<%I$GJ]B8$5$l!"(B
$B>JN,$7$?>l9g$O!V(Bjis$B!W$r;XDj$7$?$3$H$HF1$8$K$J$j$^$9!#(B
$B$^$?!V(Beuc$B!W$H!V(Bsjis$B!W$rF1;~$K;XDj$9$k$3$H$O$G$-$^$;$s!#(B
log.daily.header $B$X%C%@(B
$B%m%0$K=PNO$9$k;~9o$N%U%)!<%^%C%H$r;XDj$7$^$9!#(B
%$B$G$O$8$^$kJ8;z$,$"$k$HBP1~$9$k;~4V$KJQ49$5$l$^$9!#(B
$B%G%U%)%k%H$G$O!V(B%H:%M$B!W$G$9!#(B
log.daily.mode $B%U%!%$%k%b!<%I(B
$B%m%0$N%U%!%$%k%b!<%I$r$3$3$G;XDj$7$?CM$K$7$^$9!#(B
log.daily.command ({invite|join|kick|mode|nick|notice|part|privmsg|quit|topic})
$BJ]B8$9$k%a%C%;!<%8$N
$B@_DjNc(B
+ log/daily.plm
log.daily.file: log/log%y%m%d;euc
$B%m%0$r!V(Blog/log%y%m%d$B!W$KJ]B8$7$^$9!#$^$?!"%m%0$N4A;z%3!<%I$r(Beuc$B$K$7$^$9!#(B
$B!V(B%y$B!W!"!V(B%m$B!W!"!V(B%d$B!W$O$=$l$>$l8=:_$NG/!"7n!"F|$KJQ49$5$l$^$9!#(B
+ log/daily.plm
log.daily.file: log%+1O%m%d
log.daily.command: privmsg,topic,join,part,kick,nick
$BJ]B8$9$k%m%0$r!V(Bprivmsg$B!W!"!V(Btopic$B!W!"!V(Bjoin$B!W!"!V(Bpart$B!W!"!V(Bkick$B!W!"(B
$B!V(Bnick$B!W$N(B6$B$l8=:_$NG/!"7n!"F|$KJQ49$5$l$^$9!#(B
$B%m%0%U%!%$%k$N%U%!%$%kL>$OKhF|(B23$B;~$KMbF|$NF|IU$N$b$N$KJQ$o$j$^$9!#(B
plum-2.33.1.orig/module/log/error.plm 0100644 0010013 0000620 00000001733 06676174332 017314 0 ustar gotom kobayashi
log/error.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
log/error.plm - $B%(%i!<$r%m%0$H$7$FJ]B8$9$k(B
$B@bL@(B
$BI8=`=PNO$H%(%i!<=PNO$r!V(Blogerror$B!W$H$$$&%U%!%$%k$KJ]B8$7$^$9!#(B
$B%W%m%Q%F%#(B
$B@_DjNc(B
+ log/error.plm
plum-2.33.1.orig/module/log/recent.plm 0100644 0010013 0000620 00000017107 06676174332 017445 0 ustar gotom kobayashi
log/recent.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
log/recent.plm - $B%/%i%$%"%s%H$r@\B3$7$?$H$-$K:G6a$N%a%C%;!<%8$rAw$k(B
$B@bL@(B
$B:G6a$N%a%C%;!<%8$r;XDj$7$??t$@$1J]B8$7$F$*$-!"(B
$B%/%i%$%"%s%H$r@\B3$7$?$H$-$K!"$=$l$rAw$j$^$9!#(B
$B%W%m%Q%F%#(B
log.recent.header $B$X%C%@(B
$B%m%0$N;~9o$N%U%)!<%^%C%H$r;XDj$7$^$9!#(B
%$B$G$O$8$^$kJ8;z$,$"$k$H!"BP1~$9$k;~4V$KJQ49$5$l$^$9!#(B
log.recent.line $B9T?t(B
$B%m%0$r;D$99T?t$r;XDj$7$^$9!#%G%U%)%k%H$G$O(B50$B9T$G$9!#(B
log.recent.command ({invite|join|kick|mode|nick|notice|part|privmsg|quit|topic})
$BJ]B8$9$k%a%C%;!<%8$N
$B@_DjNc(B
log.recent.header: %H%M%S
log.recent.command: notice,privmsg,topic
$B$X%C%@$r!V(B%H%M%S$B!W$K$7!"%m%0$N$l8=:_$N;~!"J,!"IC$KJQ49$5$l$^$9!#(B
plum-2.33.1.orig/module/log/server.plm 0100644 0010013 0000620 00000006152 06676174332 017471 0 ustar gotom kobayashi
log/server.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
log/server.plm - $B%5!<%P$+$i$NF~NO$r%m%0$H$7$FJ]B8$9$k(B
$B@bL@(B
$B%5!<%P$+$i$NF~NO$r$9$Y$F%m%0$KJ]B8$7$^$9!#(B
$B%W%m%Q%F%#(B
log.server.directory $B%G%#%l%/%H%j(B
$B%m%0$rJ]B8$9$k%G%#%l%/%H%j$r;XDj$7$^$9!#(B
$B%G%U%)%k%H$G$O%+%l%s%H%G%#%l%/%H%j$KJ]B8$7$^$9!#(B
log.server.file $B%U%!%$%kL>(B
$B%m%0$N%U%!%$%kL>$r;XDj$7$^$9!#(B
%$B$G$O$8$^$kJ8;z$,$"$k$H!"BP1~$9$kF|IU$KJQ49$5$l$^$9!#(B
$B%G%U%)%k%H$G$O!V(Blogserver$B!W$H$$$&%U%!%$%k$KJ]B8$7$^$9!#(B
log.server.header $B$X%C%@(B
$B%m%0$K=PNO$9$k;~9o$N%U%)!<%^%C%H$r;XDj$7$^$9!#(B
%$B$G$O$8$^$kJ8;z$,$"$k$H!"BP1~$9$k;~4V$KJQ49$5$l$^$9!#(B
log.server.mode $B%U%!%$%k%b!<%I(B
$B%m%0$N%U%!%$%k%b!<%I$r;XDj$7$^$9!#(B
$B@_DjNc(B
+ log/server.plm
log.server.file: server%Y%m%d
$B%5!<%P$+$i$NF~NO$r!V(Bserver%m%d$B!W$KJ]B8$7$^$9!#(B
$B!V(B%Y$B!W!"!V(B%m$B!W!"!V(B%d$B!W$O$=$l$>$l8=:_$NG/!"7n!"F|$KJQ49$5$l$^$9!#(B
plum-2.33.1.orig/module/channel/ 0040755 0010013 0000620 00000000000 06676174333 016300 5 ustar gotom kobayashi plum-2.33.1.orig/module/channel/join/ 0040755 0010013 0000620 00000000000 06676174333 017237 5 ustar gotom kobayashi plum-2.33.1.orig/module/channel/join/kick.plm 0100644 0010013 0000620 00000005655 06676174332 020701 0 ustar gotom kobayashi
channel/join/kick.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
channel/join/kick.plm - $B%A%c%s%M%k$+$i%-%C%/$5$l$F$bF~$jD>$9(B
$B@bL@(B
$B%A%c%s%M%k$+$i%-%C%/$5$l$?$H$-$K!":F$S$=$N%A%c%s%M%k$KF~$j$^$9!#(B
$B%W%m%Q%F%#(B
channel.join.kick.mask* $B%f!<%6%^%9%/(B [($B%A%c%s%M%kL>(B)]
$B%-%C%/$7$??M$,$3$3$G;XDj$7$?$b$N$K%^%C%A$7$?$i!"(B
$B%-%C%/$5$l$?%A%c%s%M%k$K:F$SF~$j$^$9!#(B
$B@_DjNc(B
+ channel/join/kick.plm
channel.join.kick.mask: -*!*@* #$B$^$I$+(B:*.jp
channel.join.kick.mask: *!*@*
$B!V(B#$B$^$I$+(B:*.jp$B!W$+$i%-%C%/$5$l$?$H$-$O2?$b$7$^$;$s$,!"(B
$B$=$l0J30$N%A%c%s%M%k$+$i%-%C%/$5$l$?$H$-$O$=$N%A%c%s%M%k$K(B
$B:F$SF~$j$^$9!#(B
plum-2.33.1.orig/module/channel/join/invite.plm 0100644 0010013 0000620 00000005530 06676174332 021246 0 ustar gotom kobayashi
channel/join/invite.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
channel/join/invite.plm - $B>7BT$5$l$?%A%c%s%M%k$KF~$k(B
$B@bL@(B
$B%A%c%s%M%k$K>7BT$5$l$?$H$-$K!"$=$N%A%c%s%M%k$KF~$j$^$9!#(B
$B%W%m%Q%F%#(B
channel.join.invite.mask* $B%f!<%6%^%9%/(B [($B%A%c%s%M%kL>(B)]
$B>7BT$7$??M!"$*$h$S%A%c%s%M%k$,$3$3$G;XDj$5$l$?(B
$B$b$N$K%^%C%A$7$?>l9g!"$=$N%A%c%s%M%k$KF~$j$^$9!#(B
$B@_DjNc(B
+ channel/join/invite.plm
channel.join.invite.mask: *!*@* #$B$^$I$+(B:*.jp
channel.join.invite.mask: *!*@* #$B$W$i$`(B
$B>7BT$5$l$?%A%c%s%M%k$,!V(B#$B$^$I$+(B:*.jp$B!W$+!V(B#$B$W$i$`!W$@$C$?>l9g$K!"(B
$B$=$N%A%c%s%M%k$KF~$j$^$9!#(B
+ channel/join/invite.plm
channel.join.invite.mask: pupu_j!*@*.jp
channel.join.invite.mask: pupu_d!*@*.jp %$B$^$I$+(B
$B$^$?!">7BT$7$??M$,!V(Bpupu_j!*@*.jp$B!W$K%^%C%A$7$?>l9g!"(B
$B$=$N%A%c%s%M%k$KF~$j$^$9!#$^$?>7BT$5$l$??M$,!V(Bpupu_d!*@**.jp$B!W(B
$B$K%^%C%A$7!"%A%c%s%M%k$,!V(B%$B$^$I$+!W$@$C$?>l9g!"!V(B%$B$^$I$+!W$K(B
$BF~$j$^$9!#(B
+ channel/join/invite.plm
channel.join.invite.mask: -*!*@* #$B$W$i$`(B
channel.join.invite.mask: *!*@*
$B>7BT$5$l$?%A%c%s%M%k$,!V(B#$B$W$i$`!W$@$C$?>l9g$O!"(B
$B!V(B#$B$W$i$`!W$K$OF~$j$^$;$s!#$=$l0J30$N%A%c%s%M%k$@$C$?>l9g$O!"(B
$B$=$N%A%c%s%M%k$KF~$j$^$9!#(B
plum-2.33.1.orig/module/channel/join/connect.plm 0100644 0010013 0000620 00000010712 06676174332 021377 0 ustar gotom kobayashi
channel/join/connect.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
channel/join/connect.plm - $B%5!<%P$K@\B3$7$?$H$-$K;XDj$7$?%A%c%s%M%k$KF~$k(B
$B@bL@(B
$B%5!<%P$K@\B3$7$?$H$-$K!";XDj$7$?%A%c%s%M%k$KF~$j$^$9!#(B
$B%5!<%P$H$N@\B3$,@Z$l$F:F$S@\B3$7D>$7$?$H$-$O!"(B
$B;XDj$7$?%A%c%s%M%k$H$O4X78$J$/!"(B
$B@\B3$,@Z$l$kA0$KF~$C$F$$$?%A%c%s%M%k$KF~$j$^$9!#(B
$B%W%m%Q%F%#(B
channel.join.connect.channel* ($B%A%c%s%M%k(B) ($B%-!<(B)
$B%5!<%P$K@\B3$7$?$H$-$KF~$k%A%c%s%M%k$r;XDj$7$^$9!#(B
$B%A%c%s%M%k$N%-!<$,;XDj$5$l$F$$$k$H$-$O!"$=$N%-!<$r;H$$$^$9!#(B
$B@_DjNc(B
+ channel/join/connect.plm
channel.join.connect.channel: #$B$^$I$+(B mdk
$B%5!<%P$K@\B3$7$?$H$-$K!"!V(B#$B$^$I$+!W$K!V(Bmdk$B!W$H$$$&%-!<$GF~$j$^$9!#(B
+ channel/join/connect.plm
channel.join.connect.channel: #$B$^$I$+(B:*.jp,#$B$W$i$`(B:*.jp
channel.join.connect.channel: #$B$W$i$`(B
$B%5!<%P$K@\B3$7$?$H$-$K!"!V(B#$B$^$I$+(B:*.jp$B!W!"!V(B#$B$W$i$`(B:*.jp$B!W!"(B
$B!V(B#$B$W$i$`!W$N(B3$B$D$N%A%c%s%M%k$KF~$j$^$9!#(B
plum-2.33.1.orig/module/channel/mode/ 0040755 0010013 0000620 00000000000 06676174333 017224 5 ustar gotom kobayashi plum-2.33.1.orig/module/channel/mode/set.plm 0100644 0010013 0000620 00000003760 06676174332 020533 0 ustar gotom kobayashi
channel/mode/set.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
channel/mode/set.plm - $B%A%c%s%M%k$r:n@.$7$?$H$-$K%A%c%s%M%k%b!<%I$r@_Dj$9$k(B
$B@bL@(B
$B<+J,$,%A%c%s%M%k$KF~$k0JA0$K$O%A%c%s%M%k$,B8:_$;$:!"(B
$B<+J,$,%A%c%s%M%k$KF~$k$3$H$K$h$C$F%A%c%s%M%k$r:n@.$7$?$H$-!"(B
$B$=$N%A%c%s%M%k$N%A%c%s%M%k%b!<%I$r@_Dj$7$^$9!#(B
$B%W%m%Q%F%#(B
channel.mode.set.mode* ($B%A%c%s%M%kL>(B) $B%b!<%I(B
$B%A%c%s%M%k$H$=$N%A%c%s%M%k$K@_Dj$9$k%A%c%s%M%k%b!<%I$r;XDj$7$^$9!#(B
$B@_DjNc(B
+ channel/mode/set.plm
channel.mode.set.mode: #$B$W$i$`(B +nt
channel.mode.set.mode: #plum:*.jp,#plum +pmk plum
$B%A%c%s%M%k!V(B#$B$W$i$`!W$r:n@.$7$?$H$-$K!"%A%c%s%M%k%b!<%I$H$7$F(B
$B!V(B+nt$B!W$r@_Dj$7$^$9!#(B
$B$^$?!V(B#plum:*.jp$B!W$b$7$/$O!V(B#plum$B!W$r:n@.$7$?$H$-$O!"(B
$B%A%c%s%M%k%b!<%I$H$7$F!V(B+pmk plum$B!W$r@_Dj$7$^$9!#(B
plum-2.33.1.orig/module/channel/mode/oper/ 0040755 0010013 0000620 00000000000 06676174333 020171 5 ustar gotom kobayashi plum-2.33.1.orig/module/channel/mode/oper/set.plm 0100644 0010013 0000620 00000015626 06676174332 021504 0 ustar gotom kobayashi
channel/mode/oper/set.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
channel/mode/oper/set.plm - $BFCDj$N?M$r%A%c%s%M%k%*%Z%l!<%?$K$9$k(B
$B@bL@(B
$B%A%c%s%M%k$KF~$C$F$-$??M$,;XDj$5$l$??M$J$i!"(B
$B$=$N?M$r%A%c%s%M%k%*%Z%l!<%?$K$7$^$9!#(B
$B$B%W%m%Q%F%#(B
channel.mode.oper.set.delay $BBT$A;~4V(B
$B%A%c%s%M%k%*%Z%l!<%?$K$9$k$^$G$NBT$A;~4V$G$9!#(B
$BC/$+$,%A%c%s%M%k$KF~$C$F$/$k$H!"(B
$B$3$3$G;XDj$5$l$?$N?t$@$1FbIt$G%+%&%s%H$7!"(B
$B$=$N8e$G$=$N?M$r%A%c%s%M%k%*%Z%l!<%?$K$7$^$9!#(B
$B%G%U%)%k%H$G$O(B20$B$H$J$C$F$$$^$9!#(B
channel.mode.oper.set.mask* $B%f!<%6%^%9%/(B [($B%A%c%s%M%kL>(B)]
$B%A%c%s%M%k$KF~$C$F$-$??M$,$3$3$G;XDj$7$?$b$N$K%^%C%A$7$?$i!"(B
$B$=$N?M$r%A%c%s%M%k%*%Z%l!<%?$K$7$^$9!#(B
$B@_DjNc(B
+ channel/mode/oper/set.plm
channel.mode.oper.set.mask: +pupu_j!*@*
channel.mode.oper.set.mask: +pupu_d!*@*
$B%A%c%s%M%k$KF~$C$F$-$??M$,!V(Bpupu_j!*@*$B!W$+!V(Bpupu_d!*@*$B!W$K(B
$B%^%C%A$7$?>l9g!"$=$N?M$r%A%c%s%M%k%*%Z%l!<%?$K$7$^$9!#(B
+ channel/mode/oper/set.plm
channel.mode.oper.set.delay: 0
channel.mode.oper.set.mask: -*!*@*.com
channel.mode.oper.set.mask: +*!*@* %$B$^$I$+(B,#$B$W$i$`(B
$B!V(B%$B$^$I$+!W$+!V(B#$B$W$i$`!W$KF~$C$F$-$??M$,!V(B*!*@*.com$B!W$K%^%C%A$7$J$1$l$P!"(B
$B$=$N?M$r$9$0$K%A%c%s%M%k%*%Z%l!<%?$K$7$^$9!#(B
plum-2.33.1.orig/module/channel/mode/oper/get.plm 0100644 0010013 0000620 00000004577 06676174332 021473 0 ustar gotom kobayashi
channel/mode/oper/get.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
channel/mode/oper/get.plm - $B%A%c%s%M%k%*%Z%l!<%?$rI|5"$9$k(B
$B@bL@(B
$B%A%c%s%M%k$K<+J,$7$+$$$J$$$K$b$+$+$o$i$:!"(B
$B<+J,$,%A%c%s%M%k%*%Z%l!<%?$G$O$J$$>l9g!"(B
$B0lEY%A%c%s%M%k$rH4$1$F:F$SF~$jD>$9$3$H$K$h$C$F!"(B
$B%A%c%s%M%k%*%Z%l!<%?$K$J$j$^$9!#(B
$B%W%m%Q%F%#(B
$B@_DjNc(B
+ channel/mode/oper/get.plm
plum-2.33.1.orig/module/channel/alias.plm 0100644 0010013 0000620 00000004073 06676174332 020103 0 ustar gotom kobayashi
channel/alias.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
channel/alias.plm - $B%A%c%s%M%k%(%$%j%"%9$rJQ49$9$k(B
$B@bL@(B
IRC$B$N%3%^%s%I$rAw$k$H$-$K!"%A%c%s%M%k%(%$%j%"%9$r;H$($k$h$&$K$7$^$9!#(B
$B%A%c%s%M%kL>$N;XDj$,!V(B%$B%A%c%s%M%kL>!W$H$$$&7A<0$@$C$?>l9g$K!"(B
$B$=$l$r!V(B#$B%A%c%s%M%kL>(B:*.jp$B!W$H$$$&7A<0$KJQ49$7$FAw$j$^$9!#(B
$B%W%m%Q%F%#(B
$B@_DjNc(B
+ channel/alias.plm
plum-2.33.1.orig/module/channel/filter.plm 0100644 0010013 0000620 00000015113 06676174332 020274 0 ustar gotom kobayashi
channel/filter.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
channel/filter.plm - $B%/%i%$%"%s%H$+$i8+$($k%A%c%s%M%k$r@)8B$9$k(B
$B@bL@(B
$B%/%i%$%"%s%H$r@\B3$7$?$H$-$K!"$B%W%m%Q%F%#(B
$B@_DjNc(B
+ channel/filter.plm
plum-2.33.1.orig/module/user/ 0040755 0010013 0000620 00000000000 06676174333 015646 5 ustar gotom kobayashi plum-2.33.1.orig/module/user/away/ 0040755 0010013 0000620 00000000000 06676174333 016607 5 ustar gotom kobayashi plum-2.33.1.orig/module/user/away/client.plm 0100644 0010013 0000620 00000004503 06676174332 020575 0 ustar gotom kobayashi
user/away/client.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
user/away/client.plm - $B%/%i%$%"%s%H$H$N@\B3>uBV$K$h$C$F(BAWAY$B$r@_Dj$9$k(B
$B@bL@(B
plum$B$K%/%i%$%"%s%H$,@\B3$5$l$F$$$k$+$I$&$+$K$h$C$F!"(B
AWAY$B$r@_Dj$7$?$jC$7$?$j$7$^$9!#(B
plum$B$K%/%i%$%"%s%H$,@\B3$5$l$F$$$J$$$H$-$O(BAWAY$B$r@_Dj$7!"(B
$B%/%i%$%"%s%H$,@\B3$5$l$k$H(BAWAY$B$rC$7$^$9!#(B
$B%W%m%Q%F%#(B
user.away.client.set $B%a%C%;!<%8(B
$B%/%i%$%"%s%H$,@\B3$5$l$F$$$J$$$H$-$K!"(B
$B$3$3$G;XDj$7$?(BAMAY$B$r@_Dj$7$^$9!#(B
$B@_DjNc(B
+ user/away/client.plm
user.away.client.set: $B$$$^$;$s(B
$B%/%i%$%"%s%H$,@\B3$5$l$F$$$J$$$H$-$K!"!V$$$^$;$s!W$H$$$&(BAWAY$B$r@_Dj$7$^$9!#(B
$B%/%i%$%"%s%H$,@\B3$5$l$k$H!"$3$N(BAWAY$B$OC$5$l$^$9!#(B
plum-2.33.1.orig/module/user/away/nick.plm 0100644 0010013 0000620 00000004461 06676174332 020246 0 ustar gotom kobayashi
user/away/nick.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
user/away/nick.plm - $B%K%C%/%M!<%`$rJQ99$9$k$H$=$l$KBP1~$9$k(BAWAY$B$r@_Dj$9$k(B
$B@bL@(B
$B%K%C%/%M!<%`$rJQ99$7$?$H$-$K!"$=$N%K%C%/%M!<%`$KBP1~$9$k(BAWAY$B$,(B
$B;XDj$5$l$F$$$l$P!"$=$N(BAWAY$B$r@_Dj$7$^$9!#(B
$B$=$&$G$J$1$l$P(BAWAY$B$rC$7$^$9!#(B
$B%W%m%Q%F%#(B
user.away.nick.set* ($B%K%C%/%M!<%`(B) $B%a%C%;!<%8(B
$B%K%C%/%M!<%`$HBP1~$9$k(BAWAY$B$r;XDj$7$^$9!#(B
$B%K%C%/%M!<%`$rJQ99$7$?$H$-$K!"(B
$B$=$N%K%C%/%M!<%`$,$3$3$G;XDj$5$l$?$b$N$J$i!"(B
$BBP1~$9$k(BAWAY$B$r@_Dj$7$^$9!#(B
$B%K%C%/%M!<%`$,;XDj$5$l$F$$$J$1$l$P(BAWAY$B$rC$7$^$9!#(B
$B@_DjNc(B
+ user/away/nick.plm
user.away.nick.set: pupu_Zzz $B$M$F$^$9(B
user.away.nick.set: pupu_work,pupu_job $B;E;vCf$G$9(B
$B%K%C%/%M!<%`$r!V(Bpupu_Zzz$B!W$KJQ99$9$k$H!"(B
$B!V$M$F$^$9!W$H$$$&(BAWAY$B$r@_Dj$7$^$9!#(B
$B$^$?%K%C%/%M!<%`$r!V(Bpupu_work$B!W$+!V(Bpupu_job$B!W$KJQ99$9$k$H!"(B
$B!V;E;vCf$G$9!W$H$$$&(BAWAY$B$r@_Dj$7$^$9!#(B
$B$=$l0J30$N%K%C%/%M!<%`$KJQ99$7$?>l9g$O(BAWAY$B$rC$7$^$9!#(B
plum-2.33.1.orig/module/user/mode/ 0040755 0010013 0000620 00000000000 06676174333 016572 5 ustar gotom kobayashi plum-2.33.1.orig/module/user/mode/set.plm 0100644 0010013 0000620 00000002265 06676174332 020100 0 ustar gotom kobayashi
user/mode/set.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
user/mode/set.plm - $B%5!<%P$K@\B3$7$?$H$-$K%f!<%6%b!<%I$r@_Dj$9$k(B
$B@bL@(B
$B%5!<%P$K@\B3$7$?$H$-$K!";XDj$5$l$?%f!<%6%b!<%I$r@_Dj$7$^$9!#(B
$B%W%m%Q%F%#(B
user.mode.set.mode $B%b!<%I(B
$B@_Dj$9$k%f!<%6%b!<%I$r;XDj$7$^$9!#(B
$B@_DjNc(B
+ usr/mode/set.plm
user.mode.set.mode: +i
$B%5!<%P$H@\B3$7$?$H$-$K!"%f!<%6%b!<%I$H$7$F!V(B+i$B!W$r@_Dj$7$^$9!#(B
plum-2.33.1.orig/module/user/nick/ 0040755 0010013 0000620 00000000000 06676174333 016572 5 ustar gotom kobayashi plum-2.33.1.orig/module/user/nick/client.plm 0100644 0010013 0000620 00000007535 06676174332 020570 0 ustar gotom kobayashi
user/nick/client.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
user/nick/client.plm - $B%/%i%$%"%s%H$H$N@\B3>uBV$K$h$C$F%K%C%/%M!<%`$rJQ99$9$k(B
$B@bL@(B
plum$B$K%/%i%$%"%s%H$,@\B3$5$l$F$$$k$+$I$&$+$K$h$C$F!"(B
$B%K%C%/%M!<%`$rJQ99$7$^$9!#(B
$B%W%m%Q%F%#(B
user.nick.client.stay* ($B%K%C%/%M!<%`(B)
$B%/%i%$%"%s%H$,@\B3$5$l$F$$$k$H$-$N%K%C%/%M!<%`$r;XDj$7$^$9!#(B
$B;XDj$7$?%K%C%/%M!<%`$,$9$G$K;H$o$l$F$$$F!"(B
$B$=$N%K%C%/%M!<%`$KJQ99$G$-$J$$$H$-$O!"(B
$B:G=i$K;XDj$7$?$b$N$+$i=gHV$KJQ99$7$^$9!#(B
user.nick.client.away* ($B%K%C%/%M!<%`(B)
$B%/%i%$%"%s%H$,@\B3$5$l$F$$$J$$$H$-$N%K%C%/%M!<%`$r;XDj$7$^$9!#(B
$B;XDj$7$?%K%C%/%M!<%`$,$9$G$K;H$o$l$F$$$F!"(B
$B$=$N%K%C%/%M!<%`$KJQ99$G$-$J$$$H$-$O!"(B
$B:G=i$K;XDj$7$?$b$N$+$i=gHV$KJQ99$7$^$9!#(B
$B@_DjNc(B
+ user/nick/client.plm
user.nick.client.stay: pupu_j
user.nick.client.away: pupu_d,pupu_Zzz
$B%/%i%$%"%s%H$,@\B3$5$l$F$$$k$H$-$N%K%C%/%M!<%`$r!V(Bpupu_j$B!W$K!"(B
$B%/%i%$%"%s%H$,@\B3$5$l$F$$$J$$$H$-$N%K%C%/%M!<%`$r!V(Bpupu_d$B!W$K$7$^$9!#(B
$B!V(Bpupu_d$B!W$H$$$&%K%C%/%M!<%`$N?M$,$9$G$KB8:_$9$k$H$-$O!"(B
$B!V(Bpupu_Zzz$B!W$H$$$&%K%C%/%M!<%`$r;H$$$^$9!#(B
plum-2.33.1.orig/module/user/ignore.plm 0100644 0010013 0000620 00000006060 06676174332 017641 0 ustar gotom kobayashi
user/ignore.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
user/ignore.plm - $B;XDj$7$?%f!<%6$NH/8@$rL5;k$9$k(B
$B@bL@(B
$B;XDj$7$?%f!<%6$NH/8@$r%/%i%$%"%s%H$KAw$i$J$$$h$&$K$7$^$9!#(B
$B%W%m%Q%F%#(B
user.ignore.mask* $B%f!<%6%^%9%/(B [($B%A%c%s%M%kL>(B)]
$BH/8@$7$??M$,$3$3$G;XDj$7$?$b$N$K%^%C%A$7$?>l9g!"(B
$B$=$N?M$NH/8@$rL5;k$7!"%/%i%$%"%s%H$KAw$i$J$$$h$&$K$7$^$9!#(B
user.ignore.command* ({privmsg|notice})
$BL5;k$9$k%a%C%;!<%8$NJ}$rL5;k$7$^$9!#(B
$B@_DjNc(B
+ user/ignore.plm
user.ignore.mask: -*!*@*.jp
user.ignore.mask: *!*@*
$B!V(B*!*@*.jp$B!W$K%^%C%A$7$J$$?M$NH/8@$r$9$Y$FL5;k$7$^$9!#(B
+ user/ignore.plm
user.ignore.mask: dummy!*@*
user.ignore.command: privmsg
$B!V(Bdummy$B!W$H$$$&%K%C%/%M!<%`$N%f!<%6$N!"(BPRIVMSG$B$G$NH/8@$rL5;k$7$^$9!#(B
plum-2.33.1.orig/module/user/idle.plm 0100644 0010013 0000620 00000001677 06676174332 017304 0 ustar gotom kobayashi
user/idle.plm
$B%*%s%i%$%s%I%-%e%a%s%H(B
$BL>A0(B
user/idle.plm - WHOIS$B$r$B@bL@(B
WHOIS$B%3%^%s%I$G%f!<%6$N>pJs$r8+$k$H$-$K!"$=$N%f!<%6$N(BIDLE$B;~4V$,(B
$BI,$:I=<($5$l$k$h$&$K$7$^$9!#(B
$B%W%m%Q%F%#(B
$B@_DjNc(B
+ user/idle.plm
plum-2.33.1.orig/plum 0100755 0010013 0000620 00000171622 06676174332 014313 0 ustar gotom kobayashi #!/bin/perl -w
# $Id: plum,v 2.140 1999/03/15 14:04:30 hasegawa Exp $
# copyright (c)1997-1999 Yoshinori Hasegawa
package plum;
$NAME = 'plum';
$VERSION = '2.33';
$NIL = $;;
$NOTRAILING = &'list('004', '215', '221', '324', '341', '367', 'mode');
$ALIAS = '*.jp';
$TIMEOUT = 120;
$READSIZE = 1024;
$IRCPORT = 6667;
$SOCKADDR = 'S n N x8';
$PROTO = (getprotobyname('tcp'))[2];
if ($] < 5) {
foreach $inc (@INC) {
if (-r "$inc/sys/socket.ph") {
eval 'require "sys/socket.ph"';
$SOCKET = "$inc/sys/socket.ph" unless $@;
last;
}
if (-r "$inc/socket.ph") {
eval 'require "socket.ph"';
$SOCKET = "$inc/socket.ph" unless $@;
last;
}
}
} else {
eval 'use Socket';
$SOCKET = 'Socket.pm' unless $@;
}
$SOCKET = '' unless $SOCKET;
$AF_INET = eval '&AF_INET' || 2;
$PF_INET = eval '&PF_INET' || 2;
$SOCK_STREAM = eval '&SOCK_STREAM' || 1;
$SOMAXCONN = eval '&SOMAXCONN' || 16;
$INADDR_ANY = eval '&INADDR_ANY' || "\0\0\0\0";
$SOL_SOCKET = eval '&SOL_SOCKET';
$SO_REUSEADDR = eval '&SO_REUSEADDR';
$KANJI = &'add($KANJI, 'euc') if "\241\241\242\242" !~ /\241\242/;
$KANJI = &'add($KANJI, 'sjis') if "\201\201\202\202" !~ /\201\202/;
$SIG{'HUP'} = 'IGNORE' if &'exist(&'list(keys(%SIG)), 'HUP');
$SIG{'PIPE'} = 'IGNORE' if &'exist(&'list(keys(%SIG)), 'PIPE');
if ($0 =~ /^(.*)[\\\/][^\\\/]*$/) {
unshift(@INC, "$1/module");
} else {
unshift(@INC, './module');
}
select((select(STDOUT), $| = 1)[0]);
select((select(STDERR), $| = 1)[0]);
$'rin = '';
$'win = '';
$'rout = '';
$'wout = '';
$'kanjilist = $KANJI;
$'kanjilist = '' unless $'kanjilist;
$handle = 0;
srand();
&'load('', "$NAME.conf") if -r "$NAME.conf";
foreach $user (@ARGV) {
&'load($user, "$NAME-$user.conf") if -r "$NAME-$user.conf";
}
exit unless @'username;
print $NAME, ' ', $VERSION, "\n";
&main;
sub main {
local($access, $i, $time, $nfound, $timeleft);
$access = '';
for (;;) {
for ($i = 0; $i < @'username; $i++) {
&open_event($i, 'main_loop', $i);
}
foreach $cno (&'array($'clientlist)) {
&c_read($cno) if vec($'rout, $cno, 1);
&c_write($cno) if vec($'wout, $cno, 1);
}
foreach $sno (&'array($'serverlist)) {
&s_read($sno) if vec($'rout, $sno, 1);
&s_write($sno) if vec($'wout, $sno, 1);
}
foreach $lno (&'array($'listenlist)) {
&c_accept($lno) if vec($'rout, $lno, 1);
}
$time = time();
for ($i = 0; $i < length($access) * 8; $i++) {
$'access[$i] = $time if vec($access, $i, 1);
}
($nfound, $timeleft) = select($'rout = $'rin, $'wout = $'win, undef, $TIMEOUT);
$access = $'rout;
}
}
sub c_read {
local($clientno) = @_;
local($next, $rest, $tmp);
$tmp = '';
if (sysread($'socket[$clientno], $tmp, $READSIZE)) {
$rbuf[$clientno] .= $tmp;
while ((($next, $rest) = split(/[\r\n]+/, $rbuf[$clientno], 2)) == 2) {
$rbuf[$clientno] = $rest;
next unless $next;
if ($'avail[$clientno]) {
$next = &read_event($'userno[$clientno], 'client_read', $clientno, $next);
next unless $next;
}
&c_scan($clientno, $next);
}
} else {
&'c_close($clientno);
}
}
sub c_scan {
local($clientno, $line) = @_;
local($prefix, $cmd, @params, $sub);
($prefix, $cmd, @params) = &'parse($line);
if ($'avail[$clientno]) {
($prefix, $cmd, @params) = &scan_event($'userno[$clientno], "cs_\L$cmd\E", $clientno, $prefix, $cmd, @params);
return unless $cmd;
return unless $'server[$clientno];
&'s_print($'server[$clientno], $prefix, $cmd, @params);
} else {
$sub = "cn_\L$cmd\E";
&$sub($clientno, $prefix, $cmd, @params) if defined(&$sub);
}
}
sub 'c_print {
local($clientno, $prefix, $cmd, @params) = @_;
if ($'avail[$clientno]) {
($prefix, $cmd, @params) = &print_event($'userno[$clientno], "cp_\L$cmd\E", $clientno, $prefix, $cmd, @params);
return unless $cmd;
}
$wbuf{$clientno} = '' unless defined($wbuf{$clientno});
$wbuf{$clientno} .= &'build($prefix, $cmd, @params) . $NIL;
vec($'win, $clientno, 1) = 1;
}
sub c_write {
local($clientno) = @_;
local($socket, $next, $rest);
$socket = $'socket[$clientno];
while ($wbuf{$clientno}) {
($next, $rest) = split(/$NIL/, $wbuf{$clientno}, 2);
$wbuf{$clientno} = $rest || '';
next unless $next;
if ($'avail[$clientno]) {
$next = &write_event($'userno[$clientno], 'client_write', $clientno, $next);
next unless $next;
}
print $socket $next, "\r\n" if fileno($socket);
}
vec($'win, $clientno, 1) = 0;
}
sub 'c_flush {
local($clientno) = @_;
while (vec($'win, $clientno, 1)) {
&c_write($clientno);
}
}
sub s_read {
local($serverno) = @_;
local($next, $rest, $tmp);
$tmp = '';
if (sysread($'socket[$serverno], $tmp, $READSIZE)) {
$rbuf[$serverno] .= $tmp;
while ((($next, $rest) = split(/[\r\n]+/, $rbuf[$serverno], 2)) == 2) {
$rbuf[$serverno] = $rest;
next unless $next;
if ($'avail[$serverno]) {
$next = &read_event($'userno[$serverno], 'server_read', $serverno, $next);
next unless $next;
}
&s_scan($serverno, $next);
}
} else {
&'s_close($serverno);
}
}
sub s_scan {
local($serverno, $line) = @_;
local($prefix, $cmd, @params, $sub);
($prefix, $cmd, @params) = &'parse($line);
if ($'avail[$serverno]) {
($prefix, $cmd, @params) = &scan_event($'userno[$serverno], "ss_\L$cmd\E", $serverno, $prefix, $cmd, @params);
return unless $cmd;
foreach $cno (&'array($'clientlist)) {
next unless $'avail[$cno];
next unless $'server[$cno] == $serverno;
&'c_print($cno, $prefix, $cmd, @params);
}
} else {
$sub = "sn_\L$cmd\E";
&$sub($serverno, $prefix, $cmd, @params) if defined(&$sub);
}
}
sub 's_print {
local($serverno, $prefix, $cmd, @params) = @_;
local($key);
if ($'avail[$serverno]) {
($prefix, $cmd, @params) = &print_event($'userno[$serverno], "sp_\L$cmd\E", $serverno, $prefix, $cmd, @params);
return unless $cmd;
}
$key = "$serverno$;\L$cmd\E";
$wbuf{$key} = '' unless defined($wbuf{$key});
$wbuf{$key} .= &'build($prefix, $cmd, @params) . $NIL;
$sequence[$serverno] = &'add($sequence[$serverno], "\L$cmd\E");
vec($'win, $serverno, 1) = 1;
}
sub s_write {
local($serverno) = @_;
local($socket, $next, $rest, $time, @array, $cmd);
$socket = $'socket[$serverno];
$time = time();
$timer[$serverno] = $time if ($timer[$serverno] || 0) < $time;
@array = &'array($sequence[$serverno]);
while (@array) {
if ($timer[$serverno] > $time + 10) {
$sequence[$serverno] = &'list(@array);
return;
} else {
$cmd = shift(@array);
($next, $rest) = split(/$NIL/, $wbuf{$serverno, $cmd}, 2);
$wbuf{$serverno, $cmd} = $rest || '';
push(@array, $cmd) if $rest;
next unless $next;
if ($'avail[$serverno]) {
$next = &write_event($'userno[$serverno], 'server_write', $serverno, $next);
next unless $next;
}
print $socket $next, "\r\n" if fileno($socket);
$timer[$serverno] += 2;
}
}
$sequence[$serverno] = '';
vec($'win, $serverno, 1) = 0;
}
sub 's_flush {
local($serverno) = @_;
while (vec($'win, $serverno, 1)) {
&s_write($serverno);
}
}
sub 'parse {
local($line) = @_;
local($arg, $rest, @params);
@params = ();
$line =~ s/^\s*//;
if ($line =~ /^\:(.*)$/) {
($arg, $rest) = (split(/\s+/, $1, 2), '');
} else {
($arg, $rest) = ('', $line);
}
while ($line) {
push(@params, $arg);
if ($rest =~ /^\:(.*)$/) {
push(@params, $1);
last;
}
$line = $rest;
($arg, $rest) = (split(/\s+/, $line, 2), '');
}
return @params;
}
sub 'build {
local($prefix, $cmd, @params) = @_;
local($trailing);
return '' unless $cmd;
if (@params) {
$trailing = pop(@params) || '';
if (&'exist($NOTRAILING, "\L$cmd\E")) {
push(@params, $trailing . ' ');
} else {
push(@params, ':' . $trailing);
}
} else {
@params = ();
}
unshift(@params, $cmd);
unshift(@params, ':' . $prefix) if $prefix;
return join(' ', @params);
}
sub 'user {
local($no) = @_;
local($userno, $host);
$userno = $'userno[$no];
if (defined($userno) && $address[$userno]) {
return "$'nick[$no]\!$address[$userno]";
} elsif ($no && $'socket[$no] && fileno($'socket[$no])) {
$host = (&'peername($no))[2] || join('.', unpack('C4', pack('N', (&'peername($no))[1])));
} else {
$host = 'unknown';
}
return "$'nick[$no]!$'user[$no]\@$host";
}
sub 'prefix {
local($prefix) = @_;
local($idx, $rest, $nick, $user, $host);
if (wantarray) {
if (($idx = index($prefix, '@')) != -1) {
$host = substr($prefix, $idx + 1);
$rest = substr($prefix, 0, $idx);
} else {
$host = '';
$rest = $prefix;
}
if (($idx = index($rest, '!')) != -1) {
$nick = substr($rest, 0, $idx);
$user = substr($rest, $idx + 1);
} else {
$nick = $rest;
$user = '';
}
return ($nick, $user, $host);
} else {
if (($idx = index($prefix, '!')) != -1) {
return substr($prefix, 0, $idx);
} else {
return $prefix;
}
}
}
sub 'regex {
local($mask) = @_;
$mask =~ s/(\W)/\\$1/g;
$mask =~ s/\\\?/\./g;
$mask =~ s/\\\*/\.\*/g;
return "\^$mask\$";
}
sub 'load {
local($user, $file) = @_;
local($userno, $newlist, $no, $var, $line, $name, $arg, @key, $label, $sub, $oldlist);
@'username = () unless @'username;
open(FILE, $file) || return;
if (!&'exist(&'list(@'username), $user)) {
push(@'username, $user);
}
for ($userno = 0; $userno < @'username; $userno++) {
last if $user eq $'username[$userno];
}
foreach $key (keys(%property)) {
($no, $var) = split(/$;/, $key, 2);
next unless $no == $userno;
delete $property{$key};
}
$'filename[$userno] = $file;
$newlist = &'list('plum');
while (defined($line = )) {
$line =~ s/^\s+//;
next if $line =~ /^[\#\;]/;
$line =~ tr/\r\n//d;
next unless $line;
$line =~ s/\s+$//;
if ($line =~ /^\+\s*(\S+)\s+(\S+)/) {
$name = $1;
$label = $2;
&'import($userno, $name);
$newlist = &'add($newlist, $'package{$name});
$'labellist{$userno, $'package{$name}} = &'list(split(/\,/, $label));
} elsif ($line =~ /^\+\s*(\S+)/) {
$name = $1;
&'import($userno, $name);
$newlist = &'add($newlist, $'package{$name});
$'labellist{$userno, $'package{$name}} = '';
} elsif ($line =~ /^\-\s*(\S+)/) {
$name = $1;
if ($'package{$name}) {
$newlist = &'remove($newlist, $'package{$name});
$'labellist{$userno, $'package{$name}} = '';
}
} elsif ($line =~ /^\=\s*(\S+)/) {
$name = $1;
&'import($userno, $name);
if (&'exist($'modulelist[$userno], $'package{$name})) {
$newlist = &'add($newlist, $'package{$name});
}
} elsif ((($var, $arg) = split(/\s*\:\s*/, $line, 2)) == 2) {
$arg = &kanji_jis($userno, $arg);
@key = split(/\./, $var);
$property{$userno, @key} = &'add($property{$userno, @key}, $arg);
}
}
close(FILE);
foreach $module (&'array($newlist)) {
if (!&'exist($'modulelist[$userno], $module)) {
$sub = $module . '\'module_enable';
&$sub($userno) if defined(&$sub);
}
}
$oldlist = $'modulelist[$userno];
$'modulelist[$userno] = $newlist;
foreach $module (&'array($oldlist)) {
if (!&'exist($'modulelist[$userno], $module)) {
$sub = $module . '\'module_disable';
&$sub($userno) if defined(&$sub);
}
}
}
sub kanji_jis {
local($userno, $line) = @_;
local($code);
$code = '';
foreach $kanji (&'property($userno, 'kanji')) {
$code = &'add($code, split(/\,/, "\L$kanji\E"));
}
foreach $code (&'array($code)) {
if ($code eq 'euc') {
$line = &'euc_jis($line);
} elsif ($code eq 'jis') {
$line = &'jis_jis($line);
} elsif ($code eq 'sjis') {
$line = &'sjis_jis($line);
}
}
return $line;
}
sub 'import {
local($userno, $name) = @_;
local($file, $pkg);
foreach $dir (&'property($userno, 'directory'), @INC) {
$file = &'expand("$dir/$name");
next unless -f $file;
$_ = $'package{$name} || 'plum';
require $file;
$pkg = $_;
$'package{$name} = $pkg;
$'directory{$pkg} = $dir;
$'filename{$pkg} = $name;
return;
}
$file = &'expand($name);
$_ = $'package{$name} || 'plum';
require $file;
$pkg = $_;
$'package{$name} = $pkg;
$'directory{$pkg} = '';
$'filename{$pkg} = $name;
}
sub 'property {
local($userno, $name) = @_;
local(@pkg, $list);
@pkg = split(/\_/, (caller())[0]);
if ($label) {
$list = $property{$userno, @pkg, $label, $name} || $property{$userno, @pkg, $name};
} else {
$list = $property{$userno, @pkg, $name};
}
if (defined($list)) {
if (wantarray) {
return &'array($list);
} else {
return (&'array($list))[0];
}
} else {
if (wantarray) {
return ();
} else {
return undef;
}
}
}
sub 'expand {
local($name) = @_;
local($user, $rest, $home);
if ($name =~ /^\~([^\/]*)\/(.*)$/) {
($user, $rest) = ($1, $2);
if ($user) {
$home = eval '(getpwnam($user))[7]' || '.';
} else {
$home = $ENV{'HOME'} || eval '(getpwuid($<))[7]' || '.';
}
return "$home/$rest";
} else {
return $name;
}
}
sub 'timelocal {
local(@local) = @_;
local($now, @base, $year, $day, $time);
$now = time();
@base = localtime($now);
$day = ($local[5] - $base[5]) * 365;
$year = $local[5] + 1900;
$day += int($year / 4) - int($year / 100) + int($year / 400) + &days($local[3], $local[4], $local[5]);
$year = $base[5] + 1900;
$day -= int($year / 4) - int($year / 100) + int($year / 400) + &days($base[3], $base[4], $base[5]);
$time = $now + $day * 86400 + ($local[2] - $base[2]) * 3600 + ($local[1] - $base[1]) * 60 + $local[0] - $base[0];
return $time;
}
sub days {
local(@time) = @_;
local($day, $year);
$day = (0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334)[$time[1]];
$day += $time[0] - 1;
$year = $time[2] + 1900;
if ($time[1] < 2 && $year % 4 == 0 && ($year % 100 != 0 || $year % 400 == 0)) {
$day -= 1;
}
return $day;
}
sub 'date {
local($format, $time) = @_;
local(@time, $char, $str, $i, $number);
$time = time() unless $time;
@time = localtime($time);
$str = '';
for ($i = 0; $i < length($format); $i++) {
$char = substr($format, $i, 1);
if ($char eq '%') {
$i++;
if ($i < length($format)) {
$char = substr($format, $i, 1);
if ($char eq '+' || $char eq '-') {
$i++;
$number = $char;
while ($i < length($format)) {
$char = substr($format, $i, 1);
last if index('0123456789.', $char) == -1;
$number .= $char;
$i++;
}
} else {
$number = 0;
}
if ($char eq '%') {
$str .= $char;
} elsif ($char eq 'a') {
$str .= ('Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat')[$time[6]];
} elsif ($char eq 'b') {
$str .= ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec')[$time[4]];
} elsif ($char eq 'd') {
$str .= sprintf('%02d', $time[3]);
} elsif ($char eq 'H') {
$str .= sprintf('%02d', $time[2]);
} elsif ($char eq 'I') {
$str .= sprintf('%02d', $time[2] % 12 + 1);
} elsif ($char eq 'j') {
$str .= sprintf('%3d', $time[7]);
} elsif ($char eq 'k') {
$str .= sprintf('%2d', $time[2]);
} elsif ($char eq 'l') {
$str .= sprintf('%2d', $time[2] % 12 + 1);
} elsif ($char eq 'M') {
$str .= sprintf('%02d', $time[1]);
} elsif ($char eq 'm') {
$str .= sprintf('%02d', $time[4] + 1);
} elsif ($char eq 'O') {
@time = localtime($time + $number * 3600);
} elsif ($char eq 'o') {
@time = localtime($time + $number);
} elsif ($char eq 'p') {
if ($time[2] < 12) {
$str .= 'AM';
} else {
$str .= 'PM';
}
} elsif ($char eq 'S') {
$str .= sprintf('%02d', $time[0]);
} elsif ($char eq 'w') {
$str .= sprintf('%d', $time[6]);
} elsif ($char eq 'Y') {
$str .= sprintf('%d', $time[5] + 1900);
} elsif ($char eq 'y') {
$str .= sprintf('%02d', $time[5] % 100);
}
} else {
$str .= $char;
}
} else {
$str .= $char;
}
}
return $str;
}
sub 'format {
local($text, %data) = @_;
local($ret, $idx, $end, $ret, $str);
$ret = '';
while (($idx = index($text, '#(')) != -1) {
$end = index($text, ')', $idx + 2);
last if $end == -1;
$ret .= substr($text, 0, $idx);
foreach $item (split(/\|/, substr($text, $idx + 2, $end - $idx - 2))) {
$str = &replace($item, %data);
next unless defined($str);
$ret .= $str;
last;
}
$text = substr($text, $end + 1);
}
$ret .= $text;
return $ret;
}
sub replace {
local($item, %data) = @_;
local($list, $text, @data);
($list, $text) = split(/\;/, $item, 2);
if ($list) {
foreach $key (split(/\,/, $list)) {
if (!defined($data{$key})) {
return undef;
}
push(@data, $data{$key});
}
if ($text) {
return sprintf($text, @data);
} else {
return join('', @data);
}
} else {
return $text;
}
}
sub 'real {
local($name) = @_;
if ($name =~ /^\%(.*)$/) {
return "\#$1\:$ALIAS";
} else {
return $name;
}
}
sub 'alias {
local($name) = @_;
if ($name =~ /^\#(.*)\:(.*)$/ && "\L$2\E" eq "\L$ALIAS\E") {
return '%' . $1;
} else {
return $name;
}
}
sub 'channel {
local($name) = @_;
if ($name && $name =~ /^[\#\&\+\!]/) {
return 1;
} else {
return 0;
}
}
sub 'add {
local($list, @items) = @_;
$list = '' unless $list;
foreach $item (@items) {
next if &'exist($list, $item);
$list .= $NIL . $item;
}
return $list;
}
sub 'remove {
local($list, @items) = @_;
local($idx);
$list = '' unless $list;
$list .= $NIL;
foreach $item (@items) {
$idx = index("\L$list\E", "$NIL\L$item\E$NIL");
next if $idx == -1;
substr($list, $idx, length("$NIL$item$NIL")) = $NIL;
}
return substr($list, 0, length($list) - 1);
}
sub 'change {
local($list, @items) = @_;
local($old, $new, $idx);
return '' unless $list;
$list .= $NIL;
while (@items > 1) {
$old = shift(@items);
$new = shift(@items);
$idx = index("\L$list\E", "$NIL\L$old\E$NIL");
next if $idx == -1;
substr($list, $idx, length("$NIL$old$NIL")) = "$NIL$new$NIL";
}
return substr($list, 0, length($list) - 1);
}
sub 'exist {
local($list, @items) = @_;
return 0 unless $list;
$list .= $NIL;
foreach $item (@items) {
return 1 if index("\L$list\E", "$NIL\L$item\E$NIL") != -1;
}
return 0;
}
sub 'list {
local(@array) = @_;
return join($NIL, '', @array);
}
sub 'array {
local($list) = @_;
return () unless $list;
$list = substr($list, 1);
return split(/$NIL/, $list, -1);
}
sub 'euc_euc {
local($euc) = @_;
return $euc;
}
sub 'euc_jis {
local($euc) = @_;
local($jis, $kanji, $c, $n, $i);
$kanji = 0;
$jis = '';
$euc = &'euc_euc($euc);
for ($i = 0; $i < length($euc); $i++) {
$c = substr($euc, $i, 1);
$n = ord($c);
if ($n >= 0241) {
if ($kanji != 1) {
$jis .= "\e\$B";
$kanji = 1;
}
$jis .= pack('C', $n & 0177);
$i++;
$jis .= pack('C', ord(substr($euc, $i, 1)) & 0177);
} elsif ($n == 0216) {
if ($kanji != 2) {
$jis .= "\e(I";
$kanji = 2;
}
$i++;
$jis .= pack('C', ord(substr($euc, $i, 1)) & 0177);
} elsif ($n == 0217) {
if ($kanji != 3) {
$jis .= "\e\$(D";
$kanji = 3;
}
$i++;
$jis .= pack('C', ord(substr($euc, $i, 1)) & 0177);
$i++;
$jis .= pack('C', ord(substr($euc, $i, 1)) & 0177);
} else {
if ($kanji) {
$jis .= "\e\(B";
$kanji = 0;
}
$jis .= $c;
}
}
$jis .= "\e\(B" if $kanji;
return $jis;
}
sub 'euc_sjis {
local($euc) = @_;
local($sjis, $c, $n1, $n2, $i);
$sjis = '';
$euc = &'euc_euc($euc);
for ($i = 0; $i < length($euc); $i++) {
$c = substr($euc, $i, 1);
$n1 = ord($c);
if ($n1 >= 0241) {
$i++;
$n2 = ord(substr($euc, $i, 1));
if (($n1 & 01) == 0) {
$n2 -= 03;
} else {
$n2 -= 0141;
}
$n2++ if $n2 >= 0177;
$n1 = ((($n1 - 0241) >> 1) + 0241) ^ 040;
$sjis .= pack('CC', $n1, $n2);
} elsif ($n1 == 0216) {
$i++;
$sjis .= substr($euc, $i, 1);
} elsif ($n1 == 0217) {
$i += 2;
$sjis .= "\201\254";
} else {
$sjis .= $c;
}
}
return $sjis;
}
sub 'jis_euc {
local($jis) = @_;
local($euc, $kanji, $i);
$kanji = 0;
$euc = '';
$jis = &'jis_jis($jis);
for ($i = 0; $i < length($jis); $i++) {
if (substr($jis, $i, 3) eq "\e\(B") {
$kanji = 0;
$i += 2;
next;
} elsif (substr($jis, $i, 3) eq "\e\$B") {
$kanji = 1;
$i += 2;
next;
} elsif (substr($jis, $i, 3) eq "\e\(I") {
$kanji = 2;
$i += 2;
next;
} elsif (substr($jis, $i, 4) eq "\e\$(D") {
$kanji = 3;
$i += 3;
next;
}
if ($kanji == 0) {
$euc .= substr($jis, $i, 1);
} elsif ($kanji == 1) {
$euc .= pack('C', ord(substr($jis, $i, 1)) | 0200);
$i++;
$euc .= pack('C', ord(substr($jis, $i, 1)) | 0200);
} elsif ($kanji == 2) {
$euc .= "\216" . pack('C', ord(substr($jis, $i, 1)) | 0200);
} elsif ($kanji == 3) {
$euc .= "\217" . pack('C', ord(substr($jis, $i, 1)) | 0200);
$i++;
$euc .= pack('C', ord(substr($jis, $i, 1)) | 0200);
}
}
return $euc;
}
sub 'jis_jis {
local($jis) = @_;
local($ret, $kanji, $last, $seq, $c, $i);
$kanji = 0;
$last = 0;
$ret = '';
for ($i = 0; $i < length($jis); $i++) {
$c = substr($jis, $i, 1);
$seq = substr($jis, $i, 3);
if ($seq eq "\e\$\@" || $seq eq "\e\$B") {
$ret .= "\e\$B";
$kanji = 1;
$i += 2;
next;
} elsif ($seq eq "\e(J" || $seq eq "\e(B") {
$ret .= "\e(B";
$kanji = 0;
$i += 2;
next;
} elsif ($seq eq "\e(I") {
$ret .= "\e(I";
$kanji = 2;
$i += 2;
next;
} elsif ($c eq "\cN") {
if ($kanji != 2) {
$last = $kanji;
$ret .= "\e(I";
$kanji = 2;
}
next;
} elsif ($c eq "\cO") {
if ($kanji != 2) {
if ($last) {
$ret .= "\e\$B";
} else {
$ret .= "\e(B";
}
$kanji = $last;
}
next;
} elsif (substr($jis, $i, 6) eq "\e&\@\e\$B") {
$ret .= "\e\$B";
$kanji = 1;
$i += 5;
next;
} elsif (substr($jis, $i, 4) eq "\e\$(D") {
$ret .= "\e\$(D";
$kanji = 3;
$i += 3;
next;
}
if ($kanji == 0) {
$ret .= $c;
} elsif ($kanji == 1) {
$ret .= substr($jis, $i, 2);
$i++;
} elsif ($kanji == 2) {
$ret .= $c;
} elsif ($kanji == 3) {
$ret .= substr($jis, $i, 2);
$i++;
}
}
$ret .= "\e(B" if $kanji;
return $ret;
}
sub 'jis_sjis {
local($jis) = @_;
local($sjis, $kanji, $n1, $n2, $i);
$kanji = 0;
$sjis = '';
$jis = &'jis_jis($jis);
for ($i = 0; $i < length($jis); $i++) {
if (substr($jis, $i, 3) eq "\e\(B") {
$kanji = 0;
$i += 2;
next;
} elsif (substr($jis, $i, 3) eq "\e\$B") {
$kanji = 1;
$i += 2;
next;
} elsif (substr($jis, $i, 3) eq "\e\(I") {
$kanji = 2;
$i += 2;
next;
} elsif (substr($jis, $i, 4) eq "\e\$(D") {
$kanji = 3;
$i += 3;
next;
}
if ($kanji == 0) {
$sjis .= substr($jis, $i, 1);
} elsif ($kanji == 1) {
$n1 = ord(substr($jis, $i, 1));
$i++;
$n2 = ord(substr($jis, $i, 1));
if (($n1 & 01) == 0) {
$n2 += 0175;
} else {
$n2 += 037;
}
$n2++ if $n2 >= 0177;
$n1 = ((($n1 - 041) >> 1) + 0241) ^ 040;
$sjis .= pack('CC', $n1, $n2);
} elsif ($kanji == 2) {
$sjis .= pack('C', ord(substr($jis, $i, 1)) | 0200);
} elsif ($kanji == 3) {
$i++;
$sjis .= "\201\254";
}
}
return $sjis;
}
sub 'sjis_euc {
local($sjis) = @_;
local($euc, $c, $n1, $n2, $i);
$euc = '';
$sjis = &'sjis_sjis($sjis);
for ($i = 0; $i < length($sjis); $i++) {
$c = substr($sjis, $i, 1);
$n1 = ord($c);
if ($n1 >= 0240 && $n1 <= 0337) {
$euc .= "\216$c";
} elsif ($n1 >= 0201) {
$i++;
$n2 = ord(substr($sjis, $i, 1));
$n2-- if $n2 > 0177;
if ($n2 >= 0236) {
$n1 = ((($n1 ^ 040) - 0241) << 1) + 0242;
$n2 += 03;
} else {
$n1 = ((($n1 ^ 040) - 0241) << 1) + 0241;
$n2 += 0141;
}
$euc .= pack('CC', $n1, $n2);
} else {
$euc .= $c;
}
}
return $euc;
}
sub 'sjis_jis {
local($sjis) = @_;
local($jis, $kanji, $c, $n1, $n2, $i);
$kanji = 0;
$jis = '';
$sjis = &'sjis_sjis($sjis);
for ($i = 0; $i < length($sjis); $i++) {
$c = substr($sjis, $i, 1);
$n1 = ord($c);
if ($n1 >= 0240 && $n1 <= 0337) {
if ($kanji != 2) {
$jis .= "\e(I";
$kanji = 2;
}
$jis .= pack('C', $n1 & 0177);
} elsif ($n1 >= 0201) {
if ($kanji != 1) {
$jis .= "\e\$B";
$kanji = 1;
}
$i++;
$n2 = ord(substr($sjis, $i, 1));
$n2-- if $n2 > 0177;
if ($n2 >= 0236) {
$n1 = ((($n1 ^ 040) - 0241) << 1) + 042;
$n2 -= 0175;
} else {
$n1 = ((($n1 ^ 040) - 0241) << 1) + 041;
$n2 -= 037;
}
$jis .= pack('CC', $n1, $n2);
} else {
if ($kanji) {
$jis .= "\e\(B";
$kanji = 0;
}
$jis .= $c;
}
}
$jis .= "\e\(B" if $kanji;
return $jis;
}
sub 'sjis_sjis {
local($sjis) = @_;
return $sjis;
}
sub 'connect {
local($host, $port) = @_;
local($serverno, $socket, $ip, @addr, $name);
if ($host =~ /^\d+$/) {
$ip = $host;
} elsif ($host =~ /^[\d\.]+$/) {
@addr = split(/\./, $host);
$ip = unpack('N', pack('C4', @addr, 0, 0, 0));
} else {
$ip = unpack('N', (gethostbyname($host))[4] || "\0\0\0\0");
}
return 0 unless $ip;
$socket = '\'S' . ++$handle;
socket($socket, $PF_INET, $SOCK_STREAM, $PROTO) || return 0;
$name = pack($SOCKADDR, $AF_INET, $port, $ip);
connect($socket, $name) || return 0;
binmode($socket);
$serverno = fileno($socket);
vec($'rin, $serverno, 1) = 1;
$'socket[$serverno] = $socket;
select((select($socket), $| = 1)[0]);
$'access[$serverno] = time();
return $serverno;
}
sub 'listen {
local($port, $count) = @_;
local($listenno, $socket, $name);
$socket = '\'L' . ++$handle;
socket($socket, $PF_INET, $SOCK_STREAM, $PROTO) || return 0;
if (defined($SOL_SOCKET) && defined($SO_REUSEADDR)) {
setsockopt($socket, $SOL_SOCKET, $SO_REUSEADDR, pack('l', 1));
}
$name = pack($SOCKADDR, $AF_INET, $port, unpack('N', $INADDR_ANY));
bind($socket, $name) || return 0;
listen($socket, $count || $SOMAXCONN) || return 0;
$listenno = fileno($socket);
vec($'rin, $listenno, 1) = 1;
$'socket[$listenno] = $socket;
select((select($socket), $| = 1)[0]);
$'access[$listenno] = time();
return $listenno;
}
sub 'accept {
local($listenno) = @_;
local($clientno, $socket);
$socket = '\'C' . ++$handle;
accept($socket, $'socket[$listenno]) || return 0;
binmode($socket);
$clientno = fileno($socket);
vec($'rin, $clientno, 1) = 1;
$'socket[$clientno] = $socket;
select((select($socket), $| = 1)[0]);
$'access[$clientno] = time();
return $clientno;
}
sub 'close {
local($no) = @_;
close($'socket[$no]);
vec($'rin, $no, 1) = 0;
}
sub 'sockname {
local($no) = @_;
local($port, $ip, $host);
($port, $ip) = (unpack($SOCKADDR, getsockname($'socket[$no])))[1, 2];
$host = (gethostbyaddr(pack('N', $ip), $AF_INET))[0];
return ($port, $ip, $host);
}
sub 'peername {
local($no) = @_;
local($port, $ip, $host);
($port, $ip) = (unpack($SOCKADDR, getpeername($'socket[$no])))[1, 2];
$host = (gethostbyaddr(pack('N', $ip), $AF_INET))[0];
return ($port, $ip, $host);
}
sub 's_connect {
local($userno) = @_;
local($server, $host, $name, $list, $pass, $serverno, @port);
foreach $server (&'property($userno, 'server')) {
next if &'exist($errorlist[$userno], $server);
($host, $pass) = (split(/\s+/, $server), '');
($name, $list) = split(/\:/, $host);
@port = split(/\,/, $list || '');
$serverno = &'connect($name, $port[rand(@port)] || $IRCPORT);
next unless $serverno;
$'serverlist = &'add($'serverlist, $serverno);
$'avail[$serverno] = 0;
$'userno[$serverno] = $userno;
$pass[$serverno] = $pass;
$serverhost[$serverno] = $server;
$rbuf[$serverno] = '';
&s_init($serverno);
last;
}
$errorlist[$userno] = '' unless $host;
}
sub 's_close {
local($serverno) = @_;
local($userno, $no, $cmd);
$userno = $'userno[$serverno];
$rbuf[$serverno] = '';
$sequence[$serverno] = '';
foreach $key (keys(%wbuf)) {
($no, $cmd) = split(/$;/, $key, 2);
next unless $no == $serverno;
delete $wbuf{$key};
}
$serverhost[$serverno] = '';
&'close($serverno);
$'serverlist = &'remove($'serverlist, $serverno);
if ($'avail[$serverno]) {
$'avail[$serverno] = 0;
&close_event($userno, 'server_close', $serverno);
}
}
sub c_listen {
local($userno) = @_;
local($listenno, $name, $port, $i, $uselist);
foreach $port (&get_port($userno)) {
$port = $IRCPORT unless $port;
next if &'exist($portlist, $port);
$listenno = &'listen($port, $SOMAXCONN);
next unless $listenno;
$'listenlist = &'add($'listenlist, $listenno);
$portlist = &'add($portlist, $port);
}
for ($i = 0; $i < @'username; $i++) {
foreach $port (&get_port($i)) {
$uselist = &'add($uselist, $port || $IRCPORT);
}
}
foreach $lno (&'array($'listenlist)) {
$port = (&'sockname($lno))[0];
next if &'exist($uselist, $port);
&'close($lno);
$'listenlist = &'remove($'listenlist, $lno);
$portlist = &'remove($portlist, $port);
}
}
sub c_accept {
local($listenno) = @_;
local($clientno, $port, $ip, $name, $host, $pass, $regex, $i);
$clientno = &'accept($listenno);
return unless $clientno;
$port = (&'sockname($clientno))[0];
$ip = join('.', unpack('C4', pack('N', (&'peername($clientno))[1])));
$name = (&'peername($clientno))[2];
for ($i = 0; $i < @'username; $i++) {
foreach $client (&'property($i, 'client')) {
($host, $pass) = (split(/\s+/, $client), '');
next unless $port == ((split(/\:/, $host))[1] || $IRCPORT);
$regex = &'regex((split(/\:/, $host))[0]);
next unless ($ip =~ /$regex/i || $name =~ /$regex/i);
$'clientlist = &'add($'clientlist, $clientno);
$'avail[$clientno] = 0;
$'nick[$clientno] = '';
$'user[$clientno] = '';
$rbuf[$clientno] = '';
$pass[$clientno] = '';
return;
}
}
&'close($clientno);
}
sub get_port {
local($userno) = @_;
local($host, $pass, $mask, $port, $list);
$list = '';
foreach $client (&'property($userno, 'client')) {
($host, $pass) = split(/\s+/, $client, 2);
($mask, $port) = split(/\:/, $host);
$list = &'add($list, $port);
}
return &'array($list);
}
sub 'c_close {
local($clientno) = @_;
$rbuf[$clientno] = '';
$sequence[$clientno] = '';
delete $wbuf{$clientno};
&'close($clientno);
$'clientlist = &'remove($'clientlist, $clientno);
if ($'avail[$clientno]) {
$'avail[$clientno] = 0;
&close_event($'userno[$clientno], 'client_close', $clientno);
}
}
sub s_init {
local($serverno) = @_;
local($userno, $nick, $user, $name);
$userno = $'userno[$serverno];
&'s_print($serverno, '', 'PASS', $pass[$serverno]) if $pass[$serverno];
$nick = $nickname[$userno] || &'property($userno, 'nick') || getlogin() || eval '(getpwuid($<))[0]' || "$NAME-user";
&'s_print($serverno, '', 'NICK', (split(/\,/, $nick))[0]);
$user = &'property($userno, 'user') || getlogin() || eval '(getpwuid($<))[0]' || "$NAME-user";
$name = &'property($userno, 'name');
$name = eval '((split(/\,/, (getpwuid($<))[6]))[0])' || $user unless defined($name);
&'s_print($serverno, '', 'USER', $user, '*', '*', $name);
$'user[$serverno] = $user;
}
sub c_init {
local($clientno) = @_;
local($port, $ip, $name, $host, $pass, $regex, $i);
$port = (&'sockname($clientno))[0];
$ip = join('.', unpack('C4', pack('N', (&'peername($clientno))[1])));
$name = (&'peername($clientno))[2];
for ($i = 0; $i < @'username; $i++) {
foreach $client (&'property($i, 'client')) {
($host, $pass) = (split(/\s+/, $client), '');
next unless $port == ((split(/\:/, $host))[1] || $IRCPORT);
$regex = &'regex((split(/\:/, $host))[0]);
next unless ($ip =~ /$regex/i || $name =~ /$regex/i);
next if ($pass && $pass ne $pass[$clientno]);
$'userno[$clientno] = $i;
$'avail[$clientno] = 1;
$'server[$clientno] = 0;
$'servername[$clientno] = $NAME;
foreach $sno (&'array($'serverlist)) {
next unless $'avail[$sno];
next unless $'userno[$sno] == $'userno[$clientno];
$'server[$clientno] = $sno;
$'servername[$clientno] = $'servername[$sno];
}
&open_event($'userno[$clientno], 'client_open', $clientno);
return;
}
}
&'c_print($clientno, $NAME, '464', $'nick[$clientno], 'Password incorrect');
&'c_print($clientno, '', 'ERROR', 'Closing Link: ' . &'user($clientno) . ' (Bad Password)');
&'c_flush($clientno);
&'c_close($clientno);
}
sub cn_mode {
local($clientno, $prefix, $cmd, @params) = @_;
&'c_print($clientno, $NAME, '451', '*', 'You have not registered');
}
sub cn_nick {
local($clientno, $prefix, $cmd, @params) = @_;
$'nick[$clientno] = $params[0];
&c_init($clientno) if $'user[$clientno];
}
sub cn_pass {
local($clientno, $prefix, $cmd, @params) = @_;
$pass[$clientno] = $params[0];
}
sub cn_ping {
local($clientno, $prefix, $cmd, @params) = @_;
&'c_print($clientno, $NAME, '451', '*', 'You have not registered');
}
sub cn_quit {
local($clientno, $prefix, $cmd, @params) = @_;
$params[0] = 'I Quit' unless $params[0];
&'c_print($clientno, '', 'ERROR', 'Closing Link: ' . &'user($clientno) . " ($params[0])");
&'c_flush($clientno);
&'c_close($clientno);
}
sub cn_user {
local($clientno, $prefix, $cmd, @params) = @_;
if (defined(@params) && @params >= 4) {
$'user[$clientno] = $params[0];
&c_init($clientno) if $'nick[$clientno];
} else {
&'c_print($clientno, $NAME, '461', 'Not enough parameters');
}
}
sub sn_error {
local($serverno, $prefix, $cmd, @params) = @_;
local($userno);
$userno = $'userno[$serverno];
$errorlist[$userno] = &'add($errorlist[$userno], $serverhost[$serverno]);
}
sub sn_ping {
local($serverno, $prefix, $cmd, @params) = @_;
&'s_print($serverno, '', 'PONG', @params);
}
sub sn_001 {
local($serverno, $prefix, $cmd, @params) = @_;
local($userno, @user);
$userno = $'userno[$serverno];
$'avail[$serverno] = 1;
$'nick[$serverno] = $params[0];
$'servername[$serverno] = $prefix;
$nickname[$userno] = $params[0];
$errorlist[$userno] = '';
@user = &'prefix(substr($params[1], rindex($params[1], ' ') + 1));
if ($user[1] && $user[2]) {
$address[$userno] = "$user[1]\@$user[2]";
}
&open_event($userno, 'server_open', $serverno);
}
sub sn_432 {
local($serverno, $prefix, $cmd, @params) = @_;
&anothernick($serverno, $params[1]);
}
sub sn_433 {
local($serverno, $prefix, $cmd, @params) = @_;
&anothernick($serverno, $params[1]);
}
sub sn_437 {
local($serverno, $prefix, $cmd, @params) = @_;
&anothernick($serverno, $params[1]);
}
sub sn_451 {
local($serverno, $prefix, $cmd, @params) = @_;
}
sub anothernick {
local($serverno, $newnick) = @_;
local(@nickentry, $list, $user);
$list = '';
foreach $nick (&'property($'userno[$serverno], 'nick')) {
foreach $name (split(/\,/, $nick)) {
$list = &'add($list, substr($name, 0, 9));
}
}
$user = substr(getlogin() || eval '(getpwuid($<))[0]' || "$NAME-user", 0, 9);
$list = &'add($list, $user);
$user = substr($user, 0, 8);
$list = &'add($list, "${user}_", "_${user}", "${user}-", "-${user}");
@nickentry = &'array($list);
if (&'exist($list, $newnick)) {
while ($nickentry[0] ne $newnick) {
push(@nickentry, shift(@nickentry));
}
push(@nickentry, shift(@nickentry));
}
&'s_print($serverno, '', 'NICK', $nickentry[0]);
}
sub main_loop {
local($userno) = @_;
&c_listen($userno);
foreach $sno (&'array($'serverlist)) {
return if $'userno[$sno] == $userno;
}
&'s_connect($userno);
}
sub client_open {
local($clientno) = @_;
local($sno);
$sno = $'server[$clientno];
&'c_print($clientno, $'servername[$clientno], '001', $'nick[$clientno], 'Welcome to the Internet Relay Network ' . &'user($clientno));
if ($sno) {
&'c_print($clientno, &'user($clientno), 'NICK', $'nick[$sno]) if ($'nick[$clientno] ne $'nick[$sno]);
foreach $chan (&'array($'channellist[$sno])) {
&'c_print($clientno, &'user($clientno), 'JOIN', $chan);
&'c_print($clientno, $'servername[$clientno], '332', $'nick[$clientno], $chan, $'topic{$sno, $chan}) if $'topic{$sno, $chan};
&'c_print($clientno, $'servername[$clientno], '353', $'nick[$clientno], '=', $chan, join(' ', reverse(&'array($'nameslist{$sno, $chan}))));
&'c_print($clientno, $'servername[$clientno], '366', $'nick[$clientno], $chan, 'End of /NAMES list.');
}
}
}
sub client_close {
local($clientno) = @_;
&clear_variable($clientno);
}
sub server_open {
local($serverno) = @_;
foreach $cno (&'array($'clientlist)) {
next unless $'avail[$cno];
next if $'server[$cno];
next unless $'userno[$cno] == $'userno[$serverno];
$'server[$cno] = $serverno;
next unless $'nick[$cno] ne $'nick[$serverno];
&'c_print($cno, &'user($cno), 'NICK', $'nick[$serverno]);
}
}
sub server_close {
local($serverno) = @_;
foreach $cno (&'array($'clientlist)) {
next unless $'avail[$cno];
next unless $'server[$cno] == $serverno;
&'c_print($cno, '', 'NOTICE', $'nick[$cno], "*** Server $'servername[$serverno] closed the connection");
foreach $chan (&'array($'channellist[$serverno])) {
&'c_print($cno, &'user($cno), 'PART', $chan);
}
$'server[$cno] = 0;
}
&clear_variable($serverno);
}
sub clear_variable {
local($num) = @_;
local($no, $var);
$'channellist[$num] = '';
foreach $key (keys(%'nameslist)) {
($no, $var) = split(/$;/, $key, 2);
next unless $no == $num;
delete $'nameslist{$key};
}
foreach $key (keys(%'channelmode)) {
($no, $var) = split(/$;/, $key, 2);
next unless $no == $num;
delete $'channelmode{$key};
}
foreach $key (keys(%'usermode)) {
($no, $var) = split(/$;/, $key, 2);
next unless $no == $num;
delete $'usermode{$key};
}
foreach $key (keys(%'topic)) {
($no, $var) = split(/$;/, $key, 2);
next unless $no == $num;
delete $'topic{$key};
}
}
sub cs_exit {
local($clientno, $prefix, $cmd, @params) = @_;
local($i, $list, $sub);
foreach $sno (&'array($'serverlist)) {
&'s_flush($sno);
&'s_print($sno, '', 'QUIT', $params[0] || $NAME);
&'s_flush($sno);
&'s_close($sno);
}
$params[0] = 'I Quit' unless $params[0];
foreach $cno (&'array($'clientlist)) {
&'c_print($cno, '', 'ERROR', 'Closing Link: ' . &'user($cno) . " ($params[0])");
&'c_flush($cno);
&'c_close($cno);
}
foreach $lno (&'array($'listenlist)) {
&'close($lno);
}
for ($i = 0; $i < @'username; $i++) {
$list = $'modulelist[$i];
$'modulelist[$i] = '';
foreach $module (&'array($list)) {
$sub = $module . '\'module_disable';
&$sub($i) if defined(&$sub);
}
}
exit(0);
}
sub cs_quit {
local($clientno, $prefix, $cmd, @params) = @_;
$params[0] = 'I Quit' unless $params[0];
&'c_print($clientno, '', 'ERROR', 'Closing Link: ' . &'user($clientno) . " ($params[0])");
&'c_flush($clientno);
&'c_close($clientno);
return ();
}
sub cp_join {
local($clientno, $prefix, $cmd, $chan) = @_;
local($userno, $nick, $name, $mode);
$nick = &'prefix($prefix);
($name, $mode) = (split(/\cG/, $chan), '');
if ($nick eq $'nick[$clientno]) {
$'channellist[$clientno] = &'add($'channellist[$clientno], $name);
$'nameslist{$clientno, $name} = '';
} else {
if (index($mode, 'o') != -1) {
$'nameslist{$clientno, $name} = &'add($'nameslist{$clientno, $name}, "\@$nick");
} elsif (index($mode, 'v') != -1) {
$'nameslist{$clientno, $name} = &'add($'nameslist{$clientno, $name}, "+$nick");
} else {
$'nameslist{$clientno, $name} = &'add($'nameslist{$clientno, $name}, $nick);
}
}
return ($prefix, $cmd, $chan);
}
sub ss_join {
local($serverno, $prefix, $cmd, $chan) = @_;
local($nick, $name, $mode);
$nick = &'prefix($prefix);
($name, $mode) = (split(/\cG/, $chan), '');
if ($nick eq $'nick[$serverno]) {
$'channellist[$serverno] = &'add($'channellist[$serverno], $name);
$'nameslist{$serverno, $name} = '';
} else {
if (index($mode, 'o') != -1) {
$'nameslist{$serverno, $name} = &'add($'nameslist{$serverno, $name}, "\@$nick");
} elsif (index($mode, 'v') != -1) {
$'nameslist{$serverno, $name} = &'add($'nameslist{$serverno, $name}, "+$nick");
} else {
$'nameslist{$serverno, $name} = &'add($'nameslist{$serverno, $name}, $nick);
}
}
return ($prefix, $cmd, $chan);
}
sub cp_kick {
local($clientno, $prefix, $cmd, @params) = @_;
if ($params[1] eq $'nick[$clientno]) {
$'channellist[$clientno] = &'remove($'channellist[$clientno], $params[0]);
delete $'nameslist{$clientno, $params[0]};
} else {
$'nameslist{$clientno, $params[0]} = &'remove($'nameslist{$clientno, $params[0]}, $params[1], "+$params[1]", "\@$params[1]");
}
return ($prefix, $cmd, @params);
}
sub ss_kick {
local($serverno, $prefix, $cmd, @params) = @_;
if ($params[1] eq $'nick[$serverno]) {
$'channellist[$serverno] = &'remove($'channellist[$serverno], $params[0]);
delete $'nameslist{$serverno, $params[0]};
} else {
$'nameslist{$serverno, $params[0]} = &'remove($'nameslist{$serverno, $params[0]}, $params[1], "+$params[1]", "\@$params[1]");
}
return ($prefix, $cmd, @params);
}
sub cp_mode {
local($clientno, $prefix, $cmd, @params) = @_;
local($chan, $mode, @modes, $char, $flag, $name, $i);
($chan, $mode, @modes) = @params;
if (&'channel($chan)) {
for ($i = 0; $i < length($mode); $i++) {
$char = substr($mode, $i, 1);
if ($char eq '+' || $char eq '-') {
$flag = $char;
} elsif ($char eq 'b') {
shift(@modes);
} elsif ($char eq 'e') {
shift(@modes);
} elsif ($char eq 'I') {
shift(@modes);
} elsif ($char eq 'k') {
if ($flag eq '+') {
$'channelmode{$clientno, $chan, $char} = shift(@modes);
} else {
shift(@modes);
delete $'channelmode{$clientno, $chan, $char};
}
} elsif ($char eq 'l') {
if ($flag eq '+') {
$'channelmode{$clientno, $chan, $char} = shift(@modes);
} else {
delete $'channelmode{$clientno, $chan, $char};
}
} elsif ($char eq 'O') {
shift(@modes);
} elsif ($char eq 'o') {
$name = shift(@modes);
if ($flag eq '+') {
$'nameslist{$clientno, $chan} = &'change($'nameslist{$clientno, $chan}, $name, "\@$name", "+$name", "\@$name");
} elsif ($flag eq '-') {
$'nameslist{$clientno, $chan} = &'change($'nameslist{$clientno, $chan}, "\@$name", $name);
}
} elsif ($char eq 'v') {
$name = shift(@modes);
if ($flag eq '+') {
$'nameslist{$clientno, $chan} = &'change($'nameslist{$clientno, $chan}, $name, "+$name");
} elsif ($flag eq '-') {
$'nameslist{$clientno, $chan} = &'change($'nameslist{$clientno, $chan}, "+$name", $name);
}
} else {
if ($flag eq '+') {
$'channelmode{$clientno, $chan, $char} = 1;
} else {
delete $'channelmode{$clientno, $chan, $char};
}
}
}
} else {
for ($i = 0; $i < length($mode); $i++) {
$char = substr($mode, $i, 1);
if ($char eq '+' || $char eq '-') {
$flag = $char;
} else {
if ($flag eq '+') {
$'usermode{$serverno, $char} = 1;
} else {
delete $'usermode{$serverno, $char};
}
}
}
}
return ($prefix, $cmd, @params);
}
sub ss_mode {
local($serverno, $prefix, $cmd, @params) = @_;
local($chan, $mode, @modes, $char, $flag, $name, $i);
($chan, $mode, @modes) = @params;
if (&'channel($chan)) {
for ($i = 0; $i < length($mode); $i++) {
$char = substr($mode, $i, 1);
if ($char eq '+' || $char eq '-') {
$flag = $char;
} elsif ($char eq 'b') {
shift(@modes);
} elsif ($char eq 'e') {
shift(@modes);
} elsif ($char eq 'I') {
shift(@modes);
} elsif ($char eq 'k') {
if ($flag eq '+') {
$'channelmode{$serverno, $chan, $char} = shift(@modes);
} else {
shift(@modes);
delete $'channelmode{$serverno, $chan, $char};
}
} elsif ($char eq 'l') {
if ($flag eq '+') {
$'channelmode{$serverno, $chan, $char} = shift(@modes);
} else {
delete $'channelmode{$serverno, $chan, $char};
}
} elsif ($char eq 'O') {
shift(@modes);
} elsif ($char eq 'o') {
$name = shift(@modes);
if ($flag eq '+') {
$'nameslist{$serverno, $chan} = &'change($'nameslist{$serverno, $chan}, $name, "\@$name", "+$name", "\@$name");
} elsif ($flag eq '-') {
$'nameslist{$serverno, $chan} = &'change($'nameslist{$serverno, $chan}, "\@$name", $name);
}
} elsif ($char eq 'v') {
$name = shift(@modes);
if ($flag eq '+') {
$'nameslist{$serverno, $chan} = &'change($'nameslist{$serverno, $chan}, $name, "+$name");
} elsif ($flag eq '-') {
$'nameslist{$serverno, $chan} = &'change($'nameslist{$serverno, $chan}, "+$name", $name);
}
} else {
if ($flag eq '+') {
$'channelmode{$serverno, $chan, $char} = 1;
} else {
delete $'channelmode{$serverno, $chan, $char};
}
}
}
} else {
for ($i = 0; $i < length($mode); $i++) {
$char = substr($mode, $i, 1);
if ($char eq '+' || $char eq '-') {
$flag = $char;
} else {
if ($flag eq '+') {
$'usermode{$serverno, $char} = 1;
} else {
delete $'usermode{$serverno, $char};
}
}
}
}
return ($prefix, $cmd, @params);
}
sub cp_nick {
local($clientno, $prefix, $cmd, @params) = @_;
local($nick);
$nick = &'prefix($prefix);
if ($nick eq $'nick[$clientno]) {
$'nick[$clientno] = $params[0];
}
foreach $chan (&'array($'channellist[$clientno])) {
$'nameslist{$clientno, $chan} = &'change($'nameslist{$clientno, $chan}, $nick, $params[0], "+$nick", "+$params[0]", "\@$nick", "\@$params[0]");
}
return ($prefix, $cmd, @params);
}
sub ss_nick {
local($serverno, $prefix, $cmd, @params) = @_;
local($userno, $nick);
$userno = $'userno[$serverno];
$nick = &'prefix($prefix);
if ($nick eq $'nick[$serverno]) {
$'nick[$serverno] = $params[0];
$nickname[$userno] = $params[0];
}
foreach $chan (&'array($'channellist[$serverno])) {
$'nameslist{$serverno, $chan} = &'change($'nameslist{$serverno, $chan}, $nick, $params[0], "+$nick", "+$params[0]", "\@$nick", "\@$params[0]");
}
return ($prefix, $cmd, @params);
}
sub cp_part {
local($clientno, $prefix, $cmd, @params) = @_;
local($nick);
$nick = &'prefix($prefix);
if ($nick eq $'nick[$clientno]) {
$'channellist[$clientno] = &'remove($'channellist[$clientno], $params[0]);
delete $'nameslist{$clientno, $params[0]};
} else {
$'nameslist{$clientno, $params[0]} = &'remove($'nameslist{$clientno, $params[0]}, $nick, "+$nick", "\@$nick");
}
return ($prefix, $cmd, @params);
}
sub ss_part {
local($serverno, $prefix, $cmd, @params) = @_;
local($nick);
$nick = &'prefix($prefix);
if ($nick eq $'nick[$serverno]) {
$'channellist[$serverno] = &'remove($'channellist[$serverno], $params[0]);
delete $'nameslist{$serverno, $params[0]};
} else {
$'nameslist{$serverno, $params[0]} = &'remove($'nameslist{$serverno, $params[0]}, $nick, "+$nick", "\@$nick");
}
return ($prefix, $cmd, @params);
}
sub ss_ping {
local($serverno, $prefix, $cmd, @params) = @_;
&'s_print($serverno, '', 'PONG', @params);
return ($prefix, $cmd, @params);
}
sub cs_pong {
local($clientno, $prefix, $cmd, @params) = @_;
return ();
}
sub cp_quit {
local($clientno, $prefix, $cmd, @params) = @_;
local($nick);
$nick = &'prefix($prefix);
foreach $chan (&'array($'channellist[$clientno])) {
$'nameslist{$clientno, $chan} = &'remove($'nameslist{$clientno, $chan}, $nick, "+$nick", "\@$nick");
}
return ($prefix, $cmd, @params);
}
sub ss_quit {
local($serverno, $prefix, $cmd, @params) = @_;
local($nick);
$nick = &'prefix($prefix);
foreach $chan (&'array($'channellist[$serverno])) {
$'nameslist{$serverno, $chan} = &'remove($'nameslist{$serverno, $chan}, $nick, "+$nick", "\@$nick");
}
return ($prefix, $cmd, @params);
}
sub cp_topic {
local($clientno, $prefix, $cmd, @params) = @_;
$'topic{$clientno, $params[0]} = $params[1];
return ($prefix, $cmd, @params);
}
sub ss_topic {
local($serverno, $prefix, $cmd, @params) = @_;
$'topic{$serverno, $params[0]} = $params[1];
return ($prefix, $cmd, @params);
}
sub cp_324 {
local($clientno, $prefix, $cmd, @params) = @_;
local($nick, $chan, $mode, @modes, $char, $flag, $i);
($nick, $chan, $mode, @modes) = @params;
for ($i = 0; $i < length($mode); $i++) {
$char = substr($mode, $i, 1);
if ($char eq '+' || $char eq '-') {
$flag = $char;
} elsif ($char eq 'k') {
if ($flag eq '+') {
$'channelmode{$clientno, $chan, $char} = shift(@modes);
} else {
shift(@modes);
delete $'channelmode{$clientno, $chan, $char};
}
} elsif ($char eq 'l') {
if ($flag eq '+') {
$'channelmode{$clientno, $chan, $char} = shift(@modes);
} else {
delete $'channelmode{$clientno, $chan, $char};
}
} else {
if ($flag eq '+') {
$'channelmode{$clientno, $chan, $char} = 1;
} else {
delete $'channelmode{$clientno, $chan, $char};
}
}
}
return ($prefix, $cmd, @params);
}
sub ss_324 {
local($serverno, $prefix, $cmd, @params) = @_;
local($nick, $chan, $mode, @modes, $char, $flag, $i);
($nick, $chan, $mode, @modes) = @params;
for ($i = 0; $i < length($mode); $i++) {
$char = substr($mode, $i, 1);
if ($char eq '+' || $char eq '-') {
$flag = $char;
} elsif ($char eq 'k') {
if ($flag eq '+') {
$'channelmode{$serverno, $chan, $char} = shift(@modes);
} else {
shift(@modes);
delete $'channelmode{$serverno, $chan, $char};
}
} elsif ($char eq 'l') {
if ($flag eq '+') {
$'channelmode{$serverno, $chan, $char} = shift(@modes);
} else {
delete $'channelmode{$serverno, $chan, $char};
}
} else {
if ($flag eq '+') {
$'channelmode{$serverno, $chan, $char} = 1;
} else {
delete $'channelmode{$serverno, $chan, $char};
}
}
}
return ($prefix, $cmd, @params);
}
sub cp_332 {
local($clientno, $prefix, $cmd, @params) = @_;
if (&'exist($'channellist[$clientno], $params[1])) {
$'topic{$clientno, $params[1]} = $params[2];
}
return ($prefix, $cmd, @params);
}
sub ss_332 {
local($serverno, $prefix, $cmd, @params) = @_;
if (&'exist($'channellist[$serverno], $params[1])) {
$'topic{$serverno, $params[1]} = $params[2];
}
return ($prefix, $cmd, @params);
}
sub cp_353 {
local($clientno, $prefix, $cmd, @params) = @_;
local($key);
$key = "$clientno$;$params[2]";
if (&'exist($'channellist[$clientno], $params[2])) {
$'nameslist{$key} = &'add($'nameslist{$key}, reverse(split(/\s+/, $params[3])));
if ($params[1] eq '@') {
$'channelmode{$key, 's'} = 1;
} elsif ($params[1] eq '*') {
$'channelmode{$key, 'p'} = 1;
}
}
return ($prefix, $cmd, @params);
}
sub ss_353 {
local($serverno, $prefix, $cmd, @params) = @_;
local($key);
$key = "$serverno$;$params[2]";
if (&'exist($'channellist[$serverno], $params[2])) {
$'nameslist{$key} = &'add($'nameslist{$key}, reverse(split(/\s+/, $params[3])));
if ($params[1] eq '@') {
$'channelmode{$key, 's'} = 1;
} elsif ($params[1] eq '*') {
$'channelmode{$key, 'p'} = 1;
}
}
return ($prefix, $cmd, @params);
}
sub cs_privmsg {
local($clientno, $prefix, $cmd, @params) = @_;
local($tmp, $ctmp, $rest, $ctcp, $list);
if ($params[1]) {
$tmp = '';
$ctmp = '';
$rest = $params[1];
while ($rest =~ /^([^\cA]*)\cA([^\cA]*)\cA(.*)$/) {
$tmp .= $1;
$ctmp .= $1;
$ctcp = $2;
$rest = $3;
$tmp .= &ctcp_scan($clientno, 'cpcs', $prefix, $params[0], $ctcp) unless &'exist($list, $ctcp);
$list = &'add($list, $ctcp);
}
$tmp .= $rest || '';
$ctmp .= $rest || '';
return () unless $tmp;
$params[1] = $ctmp;
foreach $cno (&'array($'clientlist)) {
next unless $clientno != $cno;
next unless $'avail[$cno];
next unless $'server[$cno] == $'server[$clientno];
&'c_print($cno, &'user($cno), $cmd, @params);
}
$params[1] = $tmp;
}
return ($prefix, $cmd, @params);
}
sub cp_privmsg {
local($clientno, $prefix, $cmd, @params) = @_;
local($tmp, $rest, $ctcp, $list);
if ($params[1]) {
$tmp = '';
$rest = $params[1];
while ($rest =~ /^([^\cA]*)\cA([^\cA]*)\cA(.*)$/) {
$tmp .= $1;
$ctcp = $2;
$rest = $3;
$tmp .= &ctcp_print($clientno, 'cpcp', $prefix, $params[0], $ctcp) unless &'exist($list, $ctcp);
$list = &'add($list, $ctcp);
}
$tmp .= $rest || '';
return () unless $tmp;
$params[1] = $tmp;
}
return ($prefix, $cmd, @params);
}
sub ss_privmsg {
local($serverno, $prefix, $cmd, @params) = @_;
local($tmp, $rest, $ctcp, $list);
if ($params[1]) {
$tmp = '';
$rest = $params[1];
while ($rest =~ /^([^\cA]*)\cA([^\cA]*)\cA(.*)$/) {
$tmp .= $1;
$ctcp = $2;
$rest = $3;
$tmp .= &ctcp_scan($serverno, 'cpss', $prefix, $params[0], $ctcp) unless &'exist($list, $ctcp);
$list = &'add($list, $ctcp);
}
$tmp .= $rest || '';
return () unless $tmp;
$params[1] = $tmp;
}
return ($prefix, $cmd, @params);
}
sub sp_privmsg {
local($serverno, $prefix, $cmd, @params) = @_;
local($tmp, $rest, $ctcp, $list);
if ($params[1]) {
$tmp = '';
$rest = $params[1];
while ($rest =~ /^([^\cA]*)\cA([^\cA]*)\cA(.*)$/) {
$tmp .= $1;
$ctcp = $2;
$rest = $3;
$tmp .= &ctcp_print($serverno, 'cpsp', $prefix, $params[0], $ctcp) unless &'exist($list, $ctcp);
$list = &'add($list, $ctcp);
}
$tmp .= $rest || '';
return () unless $tmp;
$params[1] = $tmp;
}
return ($prefix, $cmd, @params);
}
sub cs_notice {
local($clientno, $prefix, $cmd, @params) = @_;
local($tmp, $ctmp, $rest, $ctcp, $list);
if ($params[1]) {
$tmp = '';
$ctmp = '';
$rest = $params[1];
while ($rest =~ /^([^\cA]*)\cA([^\cA]*)\cA(.*)$/) {
$tmp .= $1;
$ctmp .= $1;
$ctcp = $2;
$rest = $3;
$tmp .= &ctcp_scan($clientno, 'cncs', $prefix, $params[0], $ctcp) unless &'exist($list, $ctcp);
$list = &'add($list, $ctcp);
}
$tmp .= $rest || '';
$ctmp .= $rest || '';
return () unless $tmp;
foreach $cno (&'array($'clientlist)) {
next unless $clientno != $cno;
next unless $'avail[$cno];
next unless $'server[$cno] == $'server[$clientno];
&'c_print($cno, &'user($cno), $cmd, $params[0], $ctmp);
}
}
return ($prefix, $cmd, @params);
}
sub cp_notice {
local($clientno, $prefix, $cmd, @params) = @_;
local($tmp, $rest, $ctcp, $list);
if ($params[1]) {
$tmp = '';
$rest = $params[1];
while ($rest =~ /^([^\cA]*)\cA([^\cA]*)\cA(.*)$/) {
$tmp .= $1;
$ctcp = $2;
$rest = $3;
$tmp .= &ctcp_print($clientno, 'cncp', $prefix, $params[0], $ctcp) unless &'exist($list, $ctcp);
$list = &'add($list, $ctcp);
}
$tmp .= $rest || '';
return () unless $tmp;
}
return ($prefix, $cmd, @params);
}
sub ss_notice {
local($serverno, $prefix, $cmd, @params) = @_;
local($tmp, $rest, $ctcp, $list);
if ($params[1]) {
$tmp = '';
$rest = $params[1];
while ($rest =~ /^([^\cA]*)\cA([^\cA]*)\cA(.*)$/) {
$tmp .= $1;
$ctcp = $2;
$rest = $3;
$tmp .= &ctcp_scan($serverno, 'cnss', $prefix, $params[0], $ctcp) unless &'exist($list, $ctcp);
$list = &'add($list, $ctcp);
}
$tmp .= $rest || '';
return () unless $tmp;
}
return ($prefix, $cmd, @params);
}
sub sp_notice {
local($serverno, $prefix, $cmd, @params) = @_;
local($tmp, $rest, $ctcp, $list);
if ($params[1]) {
$tmp = '';
$rest = $params[1];
while ($rest =~ /^([^\cA]*)\cA([^\cA]*)\cA(.*)$/) {
$tmp .= $1;
$ctcp = $2;
$rest = $3;
$tmp .= &ctcp_print($serverno, 'cnsp', $prefix, $params[0], $ctcp) unless &'exist($list, $ctcp);
$list = &'add($list, $ctcp);
}
$tmp .= $rest || '';
return () unless $tmp;
}
return ($prefix, $cmd, @params);
}
sub ctcp_scan {
local($no, $event, $prefix, $chan, $ctcp) = @_;
local($cmd, $param);
($cmd, $param) = split(/\s+/, $ctcp, 2);
return '' unless $cmd;
($prefix, $cmd, $chan, $param) = &print_event($'userno[$no], "${event}\_\L$cmd\E", $no, $prefix, $cmd, $chan, $param);
return '' unless $cmd;
if ($param) {
return "\cA$cmd $param\cA";
} else {
return "\cA$cmd\cA";
}
}
sub ctcp_print {
local($no, $event, $prefix, $chan, $ctcp) = @_;
local($cmd, $param);
($cmd, $param) = split(/\s+/, $ctcp, 2);
return '' unless $cmd;
($prefix, $cmd, $chan, $param) = &print_event($'userno[$no], "${event}\_\L$cmd\E", $no, $prefix, $cmd, $chan, $param);
return '' unless $cmd;
if ($param) {
return "\cA$cmd $param\cA";
} else {
return "\cA$cmd\cA";
}
}
sub scan_event {
local($userno, $event, $no, $prefix, $cmd, @params) = @_;
local($name, $sub, $label);
$name = '\'' . $event;
foreach $module (&'array($'modulelist[$userno])) {
$sub = $module . $name;
next unless defined(&$sub);
if ($'labellist{$userno, $module}) {
foreach $label (&'array($'labellist{$userno, $module})) {
($prefix, $cmd, @params) = &$sub($no, $prefix, $cmd, @params);
return () unless $cmd;
}
} else {
($prefix, $cmd, @params) = &$sub($no, $prefix, $cmd, @params);
return () unless $cmd;
}
}
return ($prefix, $cmd, @params);
}
sub print_event {
local($userno, $event, $no, $prefix, $cmd, @params) = @_;
local($name, $sub, $label);
$name = '\'' . $event;
foreach $module (reverse(&'array($'modulelist[$userno]))) {
$sub = $module . $name;
next unless defined(&$sub);
if ($'labellist{$userno, $module}) {
foreach $label (&'array($'labellist{$userno, $module})) {
($prefix, $cmd, @params) = &$sub($no, $prefix, $cmd, @params);
return () unless $cmd;
}
} else {
($prefix, $cmd, @params) = &$sub($no, $prefix, $cmd, @params);
return () unless $cmd;
}
}
return ($prefix, $cmd, @params);
}
sub read_event {
local($userno, $event, $no, $msg) = @_;
local($name, $sub, $label);
$name = '\'' . $event;
foreach $module (&'array($'modulelist[$userno])) {
$sub = $module . $name;
next unless defined(&$sub);
if ($'labellist{$userno, $module}) {
foreach $label (&'array($'labellist{$userno, $module})) {
$msg = &$sub($no, $msg);
return '' unless $msg;
}
} else {
$msg = &$sub($no, $msg);
return '' unless $msg;
}
}
return $msg;
}
sub write_event {
local($userno, $event, $no, $msg) = @_;
local($name, $sub, $label);
$name = '\'' . $event;
foreach $module (reverse(&'array($'modulelist[$userno]))) {
$sub = $module . $name;
next unless defined(&$sub);
if ($'labellist{$userno, $module}) {
foreach $label (&'array($'labellist{$userno, $module})) {
$msg = &$sub($no, $msg);
return '' unless $msg;
}
} else {
$msg = &$sub($no, $msg);
return '' unless $msg;
}
}
return $msg;
}
sub open_event {
local($userno, $event, $no) = @_;
local($name, $sub, $label);
$name = '\'' . $event;
foreach $module (&'array($'modulelist[$userno])) {
$sub = $module . $name;
next unless defined(&$sub);
if ($'labellist{$userno, $module}) {
foreach $label (&'array($'labellist{$userno, $module})) {
&$sub($no);
}
} else {
&$sub($no);
}
}
}
sub close_event {
local($userno, $event, $no) = @_;
local($name, $sub, $label);
$name = '\'' . $event;
foreach $module (reverse(&'array($'modulelist[$userno]))) {
$sub = $module . $name;
next unless defined(&$sub);
if ($'labellist{$userno, $module}) {
foreach $label (&'array($'labellist{$userno, $module})) {
&$sub($no);
}
} else {
&$sub($no);
}
}
}
__END__
plum.kanji* ({euc|jis|sjis})
plum.nick* ($B%K%C%/%M!<%`(B)
plum.user $B%f!<%6%M!<%`(B
plum.name $B(B
plum.server* $B%5!<%PL>(B[:($B%]!<%HHV9f(B)] [$B%Q%9%o!<%I(B]
plum.client* $B%/%i%$%"%s%H%^%9%/(B[:$B%]!<%HHV9f(B] [$B%Q%9%o!<%I(B]
plum.directory* $B%G%#%l%/%H%j(B
plum-2.33.1.orig/plum-default.conf 0100600 0010013 0000620 00000012660 06676174332 016642 0 ustar gotom kobayashi # plum.kanji:
# plum.nick:
# plum.user:
# plum.name:
plum.server: irc.karrn.ad.jp:6660,6661,6662,6663,6664,6665,6666,6668,6669
plum.server: irc.rcac.tdi.co.jp:6660,6661,6662,6663,6664,6665,6666,6668,6669
plum.server: irc.kyoto.wide.ad.jp:6660,6661,6662,6663,6664,6665,6666,6668,6669
plum.server: irc.tokyo.wide.ad.jp:6660,6661,6662,6663,6664,6665,6666,6668,6669
plum.server: irc.karrn.ad.jp
plum.server: irc.rcac.tdi.co.jp
plum.server: irc.kyoto.wide.ad.jp
plum.server: irc.tokyo.wide.ad.jp
plum.server: irc.dti.ne.jp
plum.server: irc.race.u-tokyo.ac.jp
plum.server: irc.huie.hokudai.ac.jp
plum.server: irc.tohoku.ac.jp
plum.client: *:6667 passwd
# plum.directory:
- auto/alias.plm
# auto.alias.file:
# auto.alias.readonly:
# auto.alias.invisible:
# auto.alias.private:
# auto.alias.scalar:
# auto.alias.get:
# auto.alias.add:
# auto.alias.remove:
# auto.alias.change:
- auto/answer.plm
# auto.answer.alias:
# auto.answer.reply:
- auto/cache.plm
# auto.cache.size: 10
# auto.cache.expire: 600
# auto.cache.clear:
- auto/message.plm
# auto.message.file:
# auto.message.alias:
# auto.message.get:
# auto.message.send:
# auto.message.check:
# auto.message.date: %m/%d %H:%M
# auto.message.format: #(date) #(from.name|from.nick|from.nick.now) >> #(message)
# auto.message.accept:
# auto.message.unknown:
# auto.message.receive:
# auto.message.nothing:
# auto.message.exists:
- auto/nako.plm
# auto.nako.sysfile: .nako.sys
# auto.nako.msgfile: .nako.msg
- auto/oper.plm
# auto.oper.alias:
# auto.oper.request:
# auto.oper.mask:
# auto.oper.message:
# auto.oper.deny:
# auto.oper.oper:
# auto.oper.notoper:
# auto.oper.private:
# auto.oper.out:
- auto/package.plm
# auto.package.file:
# auto.package.directory:
# auto.package.alias:
# auto.package.get:
# auto.package.send:
# auto.package.check:
# auto.package.date: %m/%d %H:%M
# auto.package.format: #(date) #(from.name|from.nick|from.nick.now) >> #(message)
# auto.package.accept:
# auto.package.receive:
# auto.package.norequest:
# auto.package.unknown:
# auto.package.nothing:
# auto.package.exists:
# auto.package.geterror:
# auto.package.senderror:
- auto/random.plm
# auto.random.file:
# auto.random.alias:
# auto.random.request:
# auto.random.format: #(name|nick|nick.now): #(message)
# auto.random.rate:
# auto.random.add:
# auto.random.remove:
- auto/reply.plm
# auto.reply.file:
# auto.reply.alias:
# auto.reply.format: #(message)
# auto.reply.rate:
# auto.reply.add:
# auto.reply.remove:
# auto.reply.change:
- auto/response.plm
# auto.response.file:
# auto.response.alias:
# auto.response.format: #(message)
- auto/yuurii.plm
# auto.yuurii.cache:
# auto.yuurii.pluginrc:
# auto.yuurii.plugindir:
# auto.yuurii.down:
# auto.yuurii.downmes:
# auto.yuurii.timer:
# auto.yuurii.usetimer:
# auto.yuurii.mode:
# auto.yuurii.header:
# auto.yuurii.debug:
- channel/alias.plm
- channel/filter.plm
+ channel/join/connect.plm
# channel.join.connect.channel:
- channel/join/invite.plm
# channel.join.invite.mask:
+ channel/join/kick.plm
channel.join.kick.mask: +*!*@*
- channel/mode/oper/get.plm
- channel/mode/oper/set.plm
# channel.mode.oper.set.delay: 20
# channel.mode.oper.set.mask:
- channel/mode/set.plm
# channel.mode.set.mode:
+ client/kanji.plm
client.kanji.input: jis
# client.kanji.output:
+ ctcp/clientinfo.plm
+ ctcp/comment.plm
- ctcp/dcc/cancel.plm
- ctcp/dcc/client.plm
- ctcp/dcc/forward.plm
# ctcp.dcc.forward.nick:
- ctcp/dcc/gate.plm
# ctcp.dcc.gate.mask:
# ctcp.dcc.gate.known:
- ctcp/dcc/get.plm
# ctcp.dcc.get.directory:
# ctcp.dcc.get.mask:
# ctcp.dcc.get.mode:
- ctcp/dcc/http.plm
# ctcp.dcc.http.proxy:
# ctcp.dcc.http.gateway:
# ctcp.dcc.http.mask:
- ctcp/dcc/nat.plm
# ctcp.dcc.nat.mapping:
# ctcp.dcc.nat.private:
- ctcp/dcc/send.plm
+ ctcp/echo.plm
- ctcp/finger.plm
- ctcp/part.plm
# ctcp.part.mask:
+ ctcp/ping.plm
+ ctcp/time.plm
+ ctcp/userinfo.plm
# ctcp.userinfo.info:
+ ctcp/version.plm
- log/channel.plm
# log.channel.directory:
# log.channel.file:
# log.channel.header: %H:%M
# log.channel.mode:
# log.channel.command: privmsg,join,part,kick,invite,mode,nick,quit,topic
- log/client.plm
# log.client.directory:
# log.client.file: logclient
# log.client.header: %H:%M
# log.client.mode:
+ log/daily.plm
# log.daily.directory:
# log.daily.file: log%m%d
# log.daily.header: %H:%M
# log.daily.mode:
# log.daily.command: privmsg,join,part,kick,invite,mode,nick,quit,topic
- log/error.plm
- log/mail.plm
# log.mail.from:
# log.mail.smtpserver:
# log.mail.file:
+ log/recent.plm
# log.recent.header: %H:%M
# log.recent.line: 50
# log.recent.command: privmsg
- log/server.plm
# log.server.directory:
# log.server.file: logserver
# log.server.header: %H:%M
# log.server.mode:
+ server/info.plm
- server/kanji.plm
# server.kanji.input:
# server.kanji.output:
+ server/timeout.plm
# server.timeout.limit: 1800
- sys/background.plm
- sys/conf/load.plm
+ sys/conf/update.plm
- sys/dump.plm
- sys/module/update.plm
- sys/multicast.plm
- sys/show.plm
- sys/timer.plm
# sys.timer.exec:
- sys/web.plm
# sys.web.method: get
# sys.web.client:
# sys.web.header: %H%M
# sys.web.line: 50
# sys.web.kanji: jis,sjis
+ user/away/client.plm
# user.away.client.set:
- user/away/nick.plm
# user.away.nick.set:
- user/idle.plm
- user/ignore.plm
# user.ignore.mask:
# user.ignore.command: privmsg,notice
- user/mode/set.plm
# user.mode.set.mode:
+ user/nick/client.plm
# user.nick.client.stay:
# user.nick.client.away:
plum-2.33.1.orig/plum-dump.conf 0100600 0010013 0000620 00000000333 06676174332 016155 0 ustar gotom kobayashi # $B$3$N@_Dj%U%!%$%k$O(Bplum$B$N>pJs$rI=<($9$k$?$a$N$b$N$G$9!#(B
# perl plum dump
# $B$N$h$&$K!"$3$N@_Dj%U%!%$%k$r;H$C$F(Bplum$B$rpJs$rI=<($7$^$9!#(B
= sys/dump.plm
plum-2.33.1.orig/plum-example.conf 0100600 0010013 0000620 00000024303 06676174332 016646 0 ustar gotom kobayashi # [$BCm0U(B] $B$3$N@_Dj$O$"$/$^$G=q$-J}$NNc$G$9!#(B
# $B$=$N$^$^;HMQ$7$F$bF0:n$O$7$^$9$,!"$"$^$j$*$9$9$a$7$^$;$s!#(B
# $B$J$k$Y$/(Bplum-default.conf$B$r;HMQ$9$k$h$&$K$7$F2<$5$$!#(B
plum.kanji: jis,euc
plum.nick: plum,plum_,plum_j,plum_d,[plum]
# plum.user: plum
plum.name: $B$W$i$`(B
plum.server: irc.karrn.ad.jp:6660,6661,6662,6663,6664,6665,6666,6668,6669
plum.server: irc.rcac.tdi.co.jp:6660,6661,6662,6663,6664,6665,6666,6668,6669
plum.server: irc.kyoto.wide.ad.jp:6660,6661,6662,6663,6664,6665,6666,6668,6669
plum.server: irc.tokyo.wide.ad.jp:6660,6661,6662,6663,6664,6665,6666,6668,6669
plum.server: irc.karrn.ad.jp:6667
plum.server: irc.rcac.tdi.co.jp:6667
plum.server: irc.kyoto.wide.ad.jp:6667
plum.server: irc.tokyo.wide.ad.jp:6667
plum.server: irc.dti.ne.jp:6667
plum.server: irc.race.u-tokyo.ac.jp:6667
plum.server: irc.huie.hokudai.ac.jp:6667
plum.server: irc.tohoku.ac.jp:6667
plum.client: *:16667 password
# plum.directory:
+ auto/alias.plm
auto.alias.file: alias.txt;jis
auto.alias.readonly: level
auto.alias.invisible: level
auto.alias.private: realname,tel
auto.alias.scalar: realname
auto.alias.get: $B$W$i$`%(%$%j%"%9(B
auto.alias.get: $B$W$i$`$($$$j$"$9(B
auto.alias.get: $B$W$i$`%(%$%j%"%965$($F(B
auto.alias.get: $B$W$i$`%(%$%j%"%9$*$7$($F(B
auto.alias.get: $B$W$i$`$($$$j$"$9$*$7$($F(B
auto.alias.add: $B$W$i$`%(%$%j%"%9DI2C(B
auto.alias.add: $B$W$i$`%(%$%j%"%9$D$$$+(B
auto.alias.add: $B$W$i$`$($$$j$"$9$D$$$+(B
auto.alias.remove: $B$W$i$`%(%$%j%"%9:o=|(B
auto.alias.remove: $B$W$i$`%(%$%j%"%9$5$/$8$g(B
auto.alias.remove: $B$W$i$`$($$$j$"$9$5$/$8$g(B
auto.alias.change: $B$W$i$`%(%$%j%"%9JQ99(B
auto.alias.change: $B$W$i$`%(%$%j%"%9$X$s$3$&(B
auto.alias.change: $B$W$i$`$($$$j$"$9$X$s$3$&(B
+ auto/answer.plm
auto.answer.alias: alias.txt
auto.answer.reply: $B$W$i$`%P!<%8%g%s(B #(name|nick|nick.now): PLUM OS 1.00
auto.answer.reply: $B$W$i$`$X%k%W(B $B$W$i$`$K$O$3$s$J5!G=$,$"$j$^$9(B
auto.answer.reply: $B$W$i$`$X%k%W(B $B%(%$%j%"%9$N@_Dj(B/$BJQ99(B
auto.answer.reply: $B$W$i$`$X%k%W(B $B!&$W$i$`%(%$%j%"%9(B
auto.answer.reply: $B$W$i$`$X%k%W(B $B!&$W$i$`%(%$%j%"%9DI2C(B $B%U%#!<%k%I(B $B%G!<%?(B
auto.answer.reply: $B$W$i$`$X%k%W(B $B!&$W$i$`%(%$%j%"%9:o=|(B $B%U%#!<%k%I(B $B%G!<%?(B
auto.answer.reply: $B$W$i$`$X%k%W(B $B!&$W$i$`%(%$%j%"%9JQ99(B $B%U%#!<%k%I(B $B5l%G!<%?(B $B?7%G!<%?(B
auto.answer.reply: $B$W$i$`$X%k%W(B $B$*$_$/$8$r$R$/(B
auto.answer.reply: $B$W$i$`$X%k%W(B $B!&$W$i$`$*$_$/$8(B
auto.answer.reply: $B$W$i$`$X%k%W(B $BEA8@(B
auto.answer.reply: $B$W$i$`$X%k%W(B $B!&$W$i$`EA8@(B $B%K%C%/%M!<%`(B $BEA8@FbMF(B
auto.answer.reply: $B$W$i$`$X%k%W(B $B!&$W$i$`EA8@65$($F(B
auto.answer.reply: $B$W$i$`$X%k%W(B $B>.Jq(B
auto.answer.reply: $B$W$i$`$X%k%W(B $B!&$W$i$`>.Jq(B $B%K%C%/%M!<%`(B $B%3%a%s%H(B
auto.answer.reply: $B$W$i$`$X%k%W(B $B!&$W$i$`>.JqAw$C$F(B
auto.answer.reply: $B$W$i$`$X%k%W(B $B$J$k$HG[$j(B
auto.answer.reply: $B$W$i$`$X%k%W(B $B!&$W$i$`$J$k$H(B
+ auto/cache.plm
auto.cache.size: 5
auto.cache.expire: 300
auto.cache.clear: $B$W$i$`$-$c$C$7$e$/$j$"(B
+ auto/message.plm
auto.message.file: message.txt;jis
auto.message.alias: alias.txt;jis,euc
auto.message.get: $B$W$i$`EA8@65$($F(B
auto.message.send: $B$W$i$`EA8@(B
auto.message.check: $B$W$i$`EA8@$"$k(B?
auto.message.date: %Y:%m:%d %H:%M:%S
auto.message.format: #(name|nick|nick.now): #(from.name|from.nick|from.nick.now)$B$5$s$+$i!V(B#(message)$B!W(B(#(date))
auto.message.accept: #(name|nick|nick.now): #(to.name|to)$B$5$s$X$NEA8@$r>5$j$^$7$?(B
auto.message.unknown: #(name|nick|nick.now): $B08@h$,$o$+$j$^$;$s(B
auto.message.receive: #(number)$B8D$NEA8@$,FO$$$F$$$^$9(B
auto.message.nothing: #(name|nick|nick.now): $BEA8@$OFO$$$F$$$^$;$s(B
auto.message.exists: #(name|nick|nick.now): #(number)$B8D$NEA8@$,FO$$$F$$$^$9(B
- auto/nako.plm
# auto.nako.sysfile: .nako.sys
# auto.nako.msgfile: .nako.msg
+ auto/oper.plm
auto.oper.alias: alias.txt
auto.oper.request: $B$W$i$`$J$k$H(B
auto.oper.mask: +*!*@* #$B$W$i$`(B:*.jp
auto.oper.mask: +*!*@*.jp #$B$W$i$`(B
auto.oper.message: #(name|nick|nick.now): $B$O$$(B
auto.oper.deny: #(name|nick|nick.now): $B$J$k$H$O$"$2$i$l$^$;$s(B
auto.oper.oper: #(name|nick|nick.now): $B$b$&$J$k$H$r;}$C$F$$$^$9(B
auto.oper.notoper: #(name|nick|nick.now): $B$J$k$H$,$"$j$^$;$s(B
auto.oper.private: $B%A%c%s%M%k$G8@$C$F2<$5$$(B
auto.oper.out: $B%A%c%s%M%k$KF~$C$F2<$5$$(B
+ auto/package.plm
auto.package.file: package.txt;jis
auto.package.directory: ~/package
auto.package.alias: alias.txt;jis,euc
auto.package.get: $B$W$i$`>.JqAw$C$F(B
auto.package.send: $B$W$i$`>.Jq(B
auto.package.check: $B$W$i$`>.Jq$"$k(B?
auto.package.date: %Y$BG/(B%m$B7n(B%d$BF|(B%H$B;~(B%M$BJ,(B%S$BIC(B
auto.package.format: #(name|nick|nick.now): #(from.name|from.nick|from.nick.now)$B$5$s$+$i!V(B#(message)$B!W(B(#(date))
auto.package.accept: #(to.name|to)$B$5$s$X$N>.Jq$r>5$j$^$7$?(B
auto.package.receive: $B>.Jq$,FO$$$F$$$^$9(B
auto.package.norequest: #(name|nick|nick.now): DCC$B%j%/%(%9%H$,Mh$F$$$^$;$s(B
auto.package.unknown: #(name|nick|nick.now): $B08@h$,$o$+$j$^$;$s(B
auto.package.nothing: #(name|nick|nick.now): $B>.Jq$OFO$$$F$$$^$;$s(B
auto.package.exists: #(name|nick|nick.now): #(number)$B8D$N>.Jq$,FO$$$F$$$^$9(B
auto.package.geterror: #(name|nick|nick.now): #(file)$B$NAw?.Cf$K%(%i!<$,H/@8$7$^$7$?(B
auto.package.senderror: #(name|nick|nick.now): #(file)$B$N
&main(@ARGV);
sub main {
local(@args) = @_;
local($dir, $i);
if (!@args) {
&usage();
exit(1);
}
@package = ();
$dir = shift(@args);
&stub("$dir/plum");
&traverse("$dir/module", '');
print '__END__', "\n";
for ($i = 0; $i < @package; $i += 2) {
print $package[$i], ' ', $package[$i + 1], "\n";
}
}
sub stub {
local($file) = @_;
local($line, $import);
print '#!/bin/perl', "\n";
if (open(FILE, $file)) {
while (defined($line = )) {
$line =~ tr/\r\n//d;
last if $line eq '__END__';
if ($import && $line =~ /^\}\s*$/) {
while (defined($im = )) {
$im =~ tr/\r\n//d;
print $im, "\n";
}
$import = 0;
next;
}
if ($import) {
next;
}
if ($line =~ /^sub\s+\'import/) {
$import = 1;
next;
}
print $line, "\n";
}
close(FILE);
}
}
sub traverse {
local($base, $dir) = @_;
local(@files, $file);
opendir(DIR, "$base/$dir") || die;
@files = readdir(DIR);
closedir(DIR);
foreach $file (sort(@files)) {
next if $file =~ /^\./;
next if $file eq 'SCCS';
next if $file eq 'RCS';
next if $file eq 'CVS';
next if $file =~ /\,v$/;
if (-d "$base/$dir/$file") {
if ($dir) {
&traverse($base, "$dir/$file");
} else {
&traverse($base, $file);
}
} elsif ($file =~ /\.plm/) {
if ($dir) {
&merge("$base/$dir/$file", "$dir/$file");
} else {
&merge("$base/$file", "$file");
}
}
}
}
sub merge {
local($file, $path) = @_;
local($line, $init, @statement, $pkg);
$init = 0;
@statement = ();
if (open(FILE, $file)) {
while (defined($line = )) {
$line =~ tr/\r\n//d;
last if $line eq '__END__';
if ($line =~ /^\$\_\s*\=\s*\'([^\']+)\'/) {
if ($pkg ne $1) {
warn "$path: illegal package\n";
}
$init = 0;
print "\n";
print 'sub init {', "\n";
foreach $st (@statement) {
print ' ', $st, "\n";
}
print '}', "\n";
next;
}
if ($init) {
if ($line =~ /\S/) {
push(@statement, $line);
}
next;
}
if ($line =~ /^\s*package\s+(.*)\s*\;/) {
$pkg = $1;
push(@package, $path, $pkg);
$init = 1;
}
print $line, "\n";
}
}
}
sub usage {
print 'usage: perl merge ', "\n";
}
__END__
sub 'import {
local($name) = @_;
local($line, $file, $pkg, $sub);
while (defined($line = )) {
$line =~ tr/\r\n//d;
($file, $pkg) = split(/\s+/, $line);
$'package{$file} = $pkg;
$'filename{$pkg} = $file;
}
$pkg = $'package{$name} || 'main';
$sub = $pkg . '\'init';
&$sub();
}
plum-2.33.1.orig/support/cnvcode 0100755 0010013 0000620 00000022374 06676174332 016472 0 ustar gotom kobayashi #!/bin/perl -w
# $Id: cnvcode,v 2.14 1998/12/19 14:15:22 hasegawa Exp $
# copyright (c)1997-1998 Yoshinori Hasegawa
&main(@ARGV);
sub main {
local(@args) = @_;
local($input, $output, $return, $arg);
$input = 'jis';
$output = 'jis';
$return = "\n";
if (!@args) {
&usage();
exit(1);
}
binmode(STDIN);
binmode(STDOUT);
while (@args) {
$arg = shift(@args);
if ($arg =~ /^\-/) {
if ($arg eq '-') {
&convert(shift(@args), $input, $output, $return);
} elsif ($arg eq '--') {
&convert($arg, $input, $output, $return);
} elsif ($arg eq '-l' || $arg eq '--lf') {
$return = "\n";
} elsif ($arg eq '-r' || $arg eq '--cr') {
$return = "\r";
} elsif ($arg eq '-n' || $arg eq '--crlf') {
$return = "\r\n";
} elsif ($arg eq '-i') {
$input = shift(@args);
} elsif ($arg =~ /^\-\-input\=/) {
$input = $';
} elsif ($arg eq '-o') {
$output = shift(@args);
} elsif ($arg =~ /^\-\-output\=/) {
$output = $';
} else {
&usage();
exit(1);
}
} else {
&convert($arg, $input, $output, $return);
}
}
}
sub convert {
local($file, $input, $output, $return) = @_;
local(@sub, $sub, $tmp, $buf, @item);
foreach $in (split(/\,/, $input)) {
$sub = $in . '_' . $output;
if (!defined(&$sub)) {
warn 'cannot convert ', $in, ' to ', $output, "\n";
return;
}
push(@sub, $sub);
}
if ($file eq '--') {
open(FILE, '<&STDIN');
} elsif (open(FILE, $file)) {
binmode(FILE);
} else {
warn $file, ' not found', "\n";
return;
}
$buf = '';
$tmp = '';
while (read(FILE, $tmp, 1024)) {
$buf .= $tmp;
while ($buf =~ /(\r\n|\n|\r)/) {
@item = ($`, $');
foreach $sub (@sub) {
$item[0] = &$sub($item[0]);
}
print $item[0], $return;
$buf = $item[1] || '';
}
}
close(FILE);
}
sub usage {
print 'usage: perl cnvcode [] [] ...', "\n";
print 'options:', "\n";
print ' -i, --input=[,] input kanji codes', "\n";
print ' -o, --output= output kanji code', "\n";
print ' -l, --lf line feed only (UNIX)', "\n";
print ' -r, --cr carriage return only (Macintosh)', "\n";
print ' -n, --crlf line feed and carriage return (MS-DOS/Windows)', "\n";
print 'codes:', "\n";
print ' jis euc sjis', "\n";
}
sub 'euc_euc {
local($euc) = @_;
return $euc;
}
sub 'euc_jis {
local($euc) = @_;
local($jis, $kanji, $c, $n, $i);
$kanji = 0;
$jis = '';
$euc = &'euc_euc($euc);
for ($i = 0; $i < length($euc); $i++) {
$c = substr($euc, $i, 1);
$n = ord($c);
if ($n >= 0241) {
if ($kanji != 1) {
$jis .= "\e\$B";
$kanji = 1;
}
$jis .= pack('C', $n & 0177);
$i++;
$jis .= pack('C', ord(substr($euc, $i, 1)) & 0177);
} elsif ($n == 0216) {
if ($kanji != 2) {
$jis .= "\e(I";
$kanji = 2;
}
$i++;
$jis .= pack('C', ord(substr($euc, $i, 1)) & 0177);
} elsif ($n == 0217) {
if ($kanji != 3) {
$jis .= "\e\$(D";
$kanji = 3;
}
$i++;
$jis .= pack('C', ord(substr($euc, $i, 1)) & 0177);
$i++;
$jis .= pack('C', ord(substr($euc, $i, 1)) & 0177);
} else {
if ($kanji) {
$jis .= "\e\(B";
$kanji = 0;
}
$jis .= $c;
}
}
$jis .= "\e\(B" if $kanji;
return $jis;
}
sub 'euc_sjis {
local($euc) = @_;
local($sjis, $c, $n1, $n2, $i);
$sjis = '';
$euc = &'euc_euc($euc);
for ($i = 0; $i < length($euc); $i++) {
$c = substr($euc, $i, 1);
$n1 = ord($c);
if ($n1 >= 0241) {
$i++;
$n2 = ord(substr($euc, $i, 1));
if (($n1 & 01) == 0) {
$n2 -= 03;
} else {
$n2 -= 0141;
}
$n2++ if $n2 >= 0177;
$n1 = ((($n1 - 0241) >> 1) + 0241) ^ 040;
$sjis .= pack('CC', $n1, $n2);
} elsif ($n1 == 0216) {
$i++;
$sjis .= substr($euc, $i, 1);
} elsif ($n1 == 0217) {
$i += 2;
$sjis .= "\201\254";
} else {
$sjis .= $c;
}
}
return $sjis;
}
sub 'jis_euc {
local($jis) = @_;
local($euc, $kanji, $i);
$kanji = 0;
$euc = '';
$jis = &'jis_jis($jis);
for ($i = 0; $i < length($jis); $i++) {
if (substr($jis, $i, 3) eq "\e\(B") {
$kanji = 0;
$i += 2;
next;
} elsif (substr($jis, $i, 3) eq "\e\$B") {
$kanji = 1;
$i += 2;
next;
} elsif (substr($jis, $i, 3) eq "\e\(I") {
$kanji = 2;
$i += 2;
next;
} elsif (substr($jis, $i, 4) eq "\e\$(D") {
$kanji = 3;
$i += 3;
next;
}
if ($kanji == 0) {
$euc .= substr($jis, $i, 1);
} elsif ($kanji == 1) {
$euc .= pack('C', ord(substr($jis, $i, 1)) | 0200);
$i++;
$euc .= pack('C', ord(substr($jis, $i, 1)) | 0200);
} elsif ($kanji == 2) {
$euc .= "\216" . pack('C', ord(substr($jis, $i, 1)) | 0200);
} elsif ($kanji == 3) {
$euc .= "\217" . pack('C', ord(substr($jis, $i, 1)) | 0200);
$i++;
$euc .= pack('C', ord(substr($jis, $i, 1)) | 0200);
}
}
return $euc;
}
sub 'jis_jis {
local($jis) = @_;
local($ret, $kanji, $last, $seq, $c, $i);
$kanji = 0;
$last = 0;
$ret = '';
for ($i = 0; $i < length($jis); $i++) {
$c = substr($jis, $i, 1);
$seq = substr($jis, $i, 3);
if ($seq eq "\e\$\@" || $seq eq "\e\$B") {
$ret .= "\e\$B";
$kanji = 1;
$i += 2;
next;
} elsif ($seq eq "\e(J" || $seq eq "\e(B") {
$ret .= "\e(B";
$kanji = 0;
$i += 2;
next;
} elsif ($seq eq "\e(I") {
$ret .= "\e(I";
$kanji = 2;
$i += 2;
next;
} elsif ($c eq "\cN") {
if ($kanji != 2) {
$last = $kanji;
$ret .= "\e(I";
$kanji = 2;
}
next;
} elsif ($c eq "\cO") {
if ($kanji != 2) {
if ($last) {
$ret .= "\e\$B";
} else {
$ret .= "\e(B";
}
$kanji = $last;
}
next;
} elsif (substr($jis, $i, 6) eq "\e&\@\e\$B") {
$ret .= "\e\$B";
$kanji = 1;
$i += 5;
next;
} elsif (substr($jis, $i, 4) eq "\e\$(D") {
$ret .= "\e\$(D";
$kanji = 3;
$i += 3;
next;
}
if ($kanji == 0) {
$ret .= $c;
} elsif ($kanji == 1) {
$ret .= substr($jis, $i, 2);
$i++;
} elsif ($kanji == 2) {
$ret .= $c;
} elsif ($kanji == 3) {
$ret .= substr($jis, $i, 2);
$i++;
}
}
$ret .= "\e(B" if $kanji;
return $ret;
}
sub 'jis_sjis {
local($jis) = @_;
local($sjis, $kanji, $n1, $n2, $i);
$kanji = 0;
$sjis = '';
$jis = &'jis_jis($jis);
for ($i = 0; $i < length($jis); $i++) {
if (substr($jis, $i, 3) eq "\e\(B") {
$kanji = 0;
$i += 2;
next;
} elsif (substr($jis, $i, 3) eq "\e\$B") {
$kanji = 1;
$i += 2;
next;
} elsif (substr($jis, $i, 3) eq "\e\(I") {
$kanji = 2;
$i += 2;
next;
} elsif (substr($jis, $i, 4) eq "\e\$(D") {
$kanji = 3;
$i += 3;
next;
}
if ($kanji == 0) {
$sjis .= substr($jis, $i, 1);
} elsif ($kanji == 1) {
$n1 = ord(substr($jis, $i, 1));
$i++;
$n2 = ord(substr($jis, $i, 1));
if (($n1 & 01) == 0) {
$n2 += 0175;
} else {
$n2 += 037;
}
$n2++ if $n2 >= 0177;
$n1 = ((($n1 - 041) >> 1) + 0241) ^ 040;
$sjis .= pack('CC', $n1, $n2);
} elsif ($kanji == 2) {
$sjis .= pack('C', ord(substr($jis, $i, 1)) | 0200);
} elsif ($kanji == 3) {
$i++;
$sjis .= "\201\254";
}
}
return $sjis;
}
sub 'sjis_euc {
local($sjis) = @_;
local($euc, $c, $n1, $n2, $i);
$euc = '';
$sjis = &'sjis_sjis($sjis);
for ($i = 0; $i < length($sjis); $i++) {
$c = substr($sjis, $i, 1);
$n1 = ord($c);
if ($n1 >= 0240 && $n1 <= 0337) {
$euc .= "\216$c";
} elsif ($n1 >= 0201) {
$i++;
$n2 = ord(substr($sjis, $i, 1));
$n2-- if $n2 > 0177;
if ($n2 >= 0236) {
$n1 = ((($n1 ^ 040) - 0241) << 1) + 0242;
$n2 += 03;
} else {
$n1 = ((($n1 ^ 040) - 0241) << 1) + 0241;
$n2 += 0141;
}
$euc .= pack('CC', $n1, $n2);
} else {
$euc .= $c;
}
}
return $euc;
}
sub 'sjis_jis {
local($sjis) = @_;
local($jis, $kanji, $c, $n1, $n2, $i);
$kanji = 0;
$jis = '';
$sjis = &'sjis_sjis($sjis);
for ($i = 0; $i < length($sjis); $i++) {
$c = substr($sjis, $i, 1);
$n1 = ord($c);
if ($n1 >= 0240 && $n1 <= 0337) {
if ($kanji != 2) {
$jis .= "\e(I";
$kanji = 2;
}
$jis .= pack('C', $n1 & 0177);
} elsif ($n1 >= 0201) {
if ($kanji != 1) {
$jis .= "\e\$B";
$kanji = 1;
}
$i++;
$n2 = ord(substr($sjis, $i, 1));
$n2-- if $n2 > 0177;
if ($n2 >= 0236) {
$n1 = ((($n1 ^ 040) - 0241) << 1) + 042;
$n2 -= 0175;
} else {
$n1 = ((($n1 ^ 040) - 0241) << 1) + 041;
$n2 -= 037;
}
$jis .= pack('CC', $n1, $n2);
} else {
if ($kanji) {
$jis .= "\e\(B";
$kanji = 0;
}
$jis .= $c;
}
}
$jis .= "\e\(B" if $kanji;
return $jis;
}
sub 'sjis_sjis {
local($sjis) = @_;
return $sjis;
}
plum-2.33.1.orig/support/mkconf 0100755 0010013 0000620 00000003617 06676174332 016325 0 ustar gotom kobayashi #!/bin/perl -w
# $Id: mkconf,v 2.10 1998/11/11 05:47:03 hasegawa Exp $
# copyright (c)1997-1998 Yoshinori Hasegawa
&main(@ARGV);
sub main {
local(@args) = @_;
local($dir);
if (!@args) {
&usage();
exit(1);
}
$dir = shift(@args);
&property("$dir/plum", 'plum');
print "\n";
&traverse("$dir/module", '');
}
sub traverse {
local($base, $dir) = @_;
local(@files, $file, $prop);
opendir(DIR, "$base/$dir") || die;
@files = readdir(DIR);
closedir(DIR);
foreach $file (sort(@files)) {
next if $file =~ /^\./;
next if $file eq 'SCCS';
next if $file eq 'RCS';
next if $file eq 'CVS';
next if $file =~ /\,v$/;
if (-d "$base/$dir/$file") {
if ($dir) {
&traverse($base, "$dir/$file");
} else {
&traverse($base, $file);
}
} elsif ($file =~ /\.plm/) {
$prop = "$dir.$`";
$prop =~ tr/\//\./;
if ($dir) {
print "- $dir/$file\n";
&property("$base/$dir/$file", $prop);
} else {
print "- $file\n";
&property("$base/$file", $prop);
}
print "\n";
}
}
}
sub property {
local($file, $prop) = @_;
local(@prog, @doc);
@prog = ();
@doc = ();
if (open(FILE, $file)) {
while (defined($line = )) {
$line =~ tr/\r\n//d;
while ($line =~ /\&\'property\(.*\,\s*\'([^\']*)\'\)/) {
push(@prog, "# $prop.$1: ");
$line = $';
}
last if $line eq '__END__';
}
while (defined($line = )) {
$line =~ tr/\r\n//d;
if ($line =~ /^\s*\\s+([\w\.]+)/) {
push(@doc, "# $1: ");
}
}
close(FILE);
}
foreach $doc (@doc) {
print $doc, "\n";
@prog = grep($_ ne $doc, @prog);
}
$last = '';
foreach $prog (sort(@prog)) {
print '# ', $prog, "\n" if $prog ne $last;
$last = $prog;
}
}
sub usage {
print 'usage: perl mkconf ', "\n";
}
plum-2.33.1.orig/support/modinfo 0100755 0010013 0000620 00000003043 06676174332 016474 0 ustar gotom kobayashi #!/bin/perl -w
# $Id: modinfo,v 2.9 1998/11/11 03:25:45 hasegawa Exp $
# copyright (c)1997-1998 Yoshinori Hasegawa
&main(@ARGV);
sub main {
local(@args) = @_;
local($dir);
if (!@args) {
&usage();
exit(1);
}
$dir = shift(@args);
&traverse("$dir/module", '');
}
sub traverse {
local($base, $dir) = @_;
local(@files, $file);
opendir(DIR, "$base/$dir") || die;
@files = readdir(DIR);
closedir(DIR);
foreach $file (sort(@files)) {
next if $file =~ /^\./;
next if $file eq 'SCCS';
next if $file eq 'RCS';
next if $file eq 'CVS';
next if $file =~ /\,v$/;
if (-d "$base/$dir/$file") {
if ($dir) {
&traverse($base, "$dir/$file");
} else {
&traverse($base, $file);
}
} elsif ($file =~ /\.plm/) {
if ($dir) {
print "$dir/$file\n";
print " $file\n";
print " )) {
$line =~ tr/\r\n//d;
last if $line eq '__END__';
}
while (defined($line = )) {
$line =~ tr/\r\n//d;
if ($line =~ /^\s*$name\s*\-\s*(.*)$/) {
print " $1\n";
print " \n";
}
}
close(FILE);
}
}
sub usage {
print 'usage: perl modinfo ', "\n";
}
plum-2.33.1.orig/support/client 0100755 0010013 0000620 00000005266 06676174332 016330 0 ustar gotom kobayashi #!/bin/perl -w
# $Id: client,v 2.12 1999/01/20 14:55:19 hasegawa Exp $
# copyright (c)1997-1999 Yoshinori Hasegawa
if ($] < 5) {
foreach $inc (@INC) {
if (-r "$inc/sys/socket.ph") {
eval 'require "sys/socket.ph"';
$SOCKET = "$inc/sys/socket.ph" unless $@;
last;
}
if (-r "$inc/socket.ph") {
eval 'require "socket.ph"';
$SOCKET = "$inc/socket.ph" unless $@;
last;
}
}
} else {
eval 'use Socket';
$SOCKET = 'Socket.pm' unless $@;
}
$NIL = $;;
$READSIZE = 1024;
$SOCKADDR = 'S n N x8';
$PROTO = (getprotobyname('tcp'))[2];
$AF_INET = eval '&AF_INET' || 2;
$PF_INET = eval '&PF_INET' || 2;
$SOCK_STREAM = eval '&SOCK_STREAM' || 1;
$'rin = '';
$handle = 0;
select((select(STDOUT), $| = 1)[0]);
$SIG{'PIPE'} = 'IGNORE' if &'exist(&'list(keys(%SIG)), 'PIPE');
&main(@ARGV);
sub main {
local(@args) = @_;
local($rout, $sno, $stdin, $socket, $nf, $tmp);
if (@args < 2) {
&usage();
exit(1);
}
$sno = &'connect($args[0], $args[1]) || die "cannot connect to server\n";
$socket = $'socket[$sno];
$stdin = fileno(STDIN);
vec($'rin, $stdin, 1) = 1;
for (;;) {
$nf = select($rout = $'rin, undef, undef, undef);
if (vec($rout, $sno, 1)) {
$tmp = '';
if (sysread($socket, $tmp, $READSIZE)) {
print STDOUT $tmp;
} else {
&'close($sno);
exit(0);
}
} elsif (vec($rout, $stdin, 1)) {
$tmp = '';
if (sysread(STDIN, $tmp, $READSIZE)) {
print $socket $tmp;
} else {
&'close($sno);
exit(0);
}
}
}
}
sub usage {
print 'usage: perl client ', "\n";
}
sub 'connect {
local($host, $port) = @_;
local($serverno, $socket, $ip, @addr, $name);
if ($host =~ /^\d+$/) {
$ip = $host;
} elsif ($host =~ /^[\d\.]+$/) {
@addr = split(/\./, $host);
$ip = unpack('N', pack('C4', @addr, 0, 0, 0));
} else {
$ip = unpack('N', (gethostbyname($host))[4] || "\0\0\0\0");
}
return 0 unless $ip;
$socket = '\'S' . ++$handle;
socket($socket, $PF_INET, $SOCK_STREAM, $PROTO) || return 0;
$name = pack($SOCKADDR, $AF_INET, $port, $ip);
connect($socket, $name) || return 0;
binmode($socket);
$serverno = fileno($socket);
vec($'rin, $serverno, 1) = 1;
$'socket[$serverno] = $socket;
select((select($socket), $| = 1)[0]);
return $serverno;
}
sub 'close {
local($no) = @_;
close($'socket[$no]);
vec($'rin, $no, 1) = 0;
}
sub 'exist {
local($list, @items) = @_;
return 0 unless $list;
$list .= $NIL;
foreach $item (@items) {
return 1 if index("\L$list\E", $NIL . "\L$item\E" . $NIL) != -1;
}
return 0;
}
sub 'list {
local(@array) = @_;
return join($NIL, '', @array);
}
plum-2.33.1.orig/support/killplum 0100755 0010013 0000620 00000007172 06676174332 016701 0 ustar gotom kobayashi #!/bin/perl -w
# $Id: killplum,v 2.8 1999/01/20 15:01:56 hasegawa Exp $
# copyright (c)1998-1999 Yoshinori Hasegawa
$NAME = 'plum';
if ($] < 5) {
foreach $inc (@INC) {
if (-r "$inc/sys/socket.ph") {
eval 'require "sys/socket.ph"';
$SOCKET = "$inc/sys/socket.ph" unless $@;
last;
}
if (-r "$inc/socket.ph") {
eval 'require "socket.ph"';
$SOCKET = "$inc/socket.ph" unless $@;
last;
}
}
} else {
eval 'use Socket';
$SOCKET = 'Socket.pm' unless $@;
}
$NIL = $;;
$NOTRAILING = &'list('004', '215', '221', '324', '341', '367', 'mode');
$IRCPORT = 6667;
$SOCKADDR = 'S n N x8';
$PROTO = (getprotobyname('tcp'))[2];
$AF_INET = eval '&AF_INET' || 2;
$PF_INET = eval '&PF_INET' || 2;
$SOCK_STREAM = eval '&SOCK_STREAM' || 1;
$'rin = '';
$handle = 0;
&main(@ARGV);
sub main {
local(@args) = @_;
local($path);
if ($0 =~ /^(.*)[\\\/][^\\\/]*$/) {
$path = "$1/..";
} else {
$path = '..';
}
&load("$path/$NAME.conf") if -r "$path/$NAME.conf";
&load("$NAME.conf") if -r "$NAME.conf";
foreach $user (@args) {
&load("$path/$NAME-$user.conf") if -r "$path/$NAME-$user.conf";
&load("$NAME-$user.conf") if -r "$NAME-$user.conf";
}
}
sub load {
local($file) = @_;
local($line, $var, $arg, $host, $pass, $name, $port);
open(FILE, $file) || return;
while (defined($line = )) {
$line =~ s/^\s+//;
next if $line =~ /^[\#\;]/;
$line =~ tr/\r\n//d;
next unless $line;
$line =~ s/\s+$//;
if (!($line =~ /^[\+\-\=]\s*(\S+)/)) {
if ((($var, $arg) = split(/\s*\:\s*/, $line, 2)) == 2) {
if ($var eq 'plum.client') {
($host, $pass) = split(/\s+/, $arg, 2);
($name, $port) = split(/\:/, $host, 2);
$port = $IRCPORT unless $port;
&exit($port, $pass || '');
}
}
}
}
close(FILE);
}
sub exit {
local($port, $pass) = @_;
local($no);
if ($no = &'connect("127.0.0.1", $port)) {
&print($no, &'build('', 'PASS', $pass));
&print($no, &'build('', 'NICK', $NAME));
&print($no, &'build('', 'USER', $NAME, '*', '*', $NAME));
&print($no, &'build('', 'EXIT', $NAME));
}
}
sub print {
local($no, $str) = @_;
local($socket);
$socket = $'socket[$no];
print $socket $str;
}
sub 'build {
local($prefix, $cmd, @params) = @_;
local($trailing);
return '' unless $cmd;
if (@params) {
$trailing = pop(@params) || '';
if (&'exist($NOTRAILING, "\L$cmd\E")) {
push(@params, "$trailing ");
} else {
push(@params, ":$trailing");
}
} else {
@params = ();
}
unshift(@params, $cmd);
unshift(@params, ":$prefix") if $prefix;
return join(' ', @params) . "\r\n";
}
sub 'exist {
local($list, @items) = @_;
return 0 unless $list;
$list .= $NIL;
foreach $item (@items) {
return 1 if index("\L$list\E", $NIL . "\L$item\E" . $NIL) != -1;
}
return 0;
}
sub 'list {
local(@array) = @_;
return join($NIL, '', @array);
}
sub 'connect {
local($host, $port) = @_;
local($serverno, $socket, $ip, @addr, $name);
if ($host =~ /^\d+$/) {
$ip = $host;
} elsif ($host =~ /^[\d\.]+$/) {
@addr = split(/\./, $host);
$ip = unpack('N', pack('C4', @addr, 0, 0, 0));
} else {
$ip = unpack('N', (gethostbyname($host))[4] || "\0\0\0\0");
}
return 0 unless $ip;
$socket = '\'S' . ++$handle;
socket($socket, $PF_INET, $SOCK_STREAM, $PROTO) || return 0;
$name = pack($SOCKADDR, $AF_INET, $port, $ip);
connect($socket, $name) || return 0;
binmode($socket);
$serverno = fileno($socket);
vec($'rin, $serverno, 1) = 1;
$'socket[$serverno] = $socket;
select((select($socket), $| = 1)[0]);
return $serverno;
}
plum-2.33.1.orig/support/clientname 0100755 0010013 0000620 00000002475 06676174332 017170 0 ustar gotom kobayashi #!/bin/perl -w
# $Id: clientname,v 2.10 1999/01/14 17:26:55 hasegawa Exp $
# copyright (c)1997-1999 Yoshinori Hasegawa
if ($] < 5) {
foreach $inc (@INC) {
if (-r "$inc/sys/socket.ph") {
eval 'require "sys/socket.ph"';
$SOCKET = "$inc/sys/socket.ph" unless $@;
last;
}
if (-r "$inc/socket.ph") {
eval 'require "socket.ph"';
$SOCKET = "$inc/socket.ph" unless $@;
last;
}
}
} else {
eval 'use Socket';
$SOCKET = 'Socket.pm' unless $@;
}
$AF_INET = eval '&AF_INET' || 2;
&main(@ARGV);
sub main {
local(@args) = @_;
local($host, $addr, @addr, $name);
if (@args < 1) {
&usage;
exit(1);
}
($host) = @args;
if ($host =~ /^\d+$/) {
$addr = pack('N', $host);
} elsif ($host =~ /^[\d\.]+$/) {
@addr = split(/\./, $host);
$addr = pack('C4', @addr, 0, 0, 0);
} else {
$addr = (gethostbyname($host))[4] || "\0\0\0\0";
}
if ($addr && $addr ne "\0\0\0\0") {
$name = (gethostbyaddr($addr, $AF_INET))[0];
if ($name) {
print $name, "\n";
} else {
print "*** unknown ***\n";
}
print join('.', unpack('C4', $addr)), "\n";
print unpack('N', $addr), "\n";
} else {
print "hostname lookup failed for $host\n";
}
}
sub usage {
print "usage: perl clientname {|}\n";
}
plum-2.33.1.orig/support/multiproxy 0100755 0010013 0000620 00000012235 06676174332 017300 0 ustar gotom kobayashi #!/bin/perl -w
# $Id: multiproxy,v 2.9 1999/01/20 15:04:08 hasegawa Exp $
# copyright (c)1998-1999 Yoshinori Hasegawa
if ($] < 5) {
foreach $inc (@INC) {
if (-r "$inc/sys/socket.ph") {
eval 'require "sys/socket.ph"';
$SOCKET = "$inc/sys/socket.ph" unless $@;
last;
}
if (-r "$inc/socket.ph") {
eval 'require "socket.ph"';
$SOCKET = "$inc/socket.ph" unless $@;
last;
}
}
} else {
eval 'use Socket';
$SOCKET = 'Socket.pm' unless $@;
}
$NIL = $;;
$READSIZE = 1024;
$SOCKADDR = 'S n N x8';
$PROTO = (getprotobyname('tcp'))[2];
$AF_INET = eval '&AF_INET' || 2;
$PF_INET = eval '&PF_INET' || 2;
$SOCK_STREAM = eval '&SOCK_STREAM' || 1;
$SOMAXCONN = eval '&SOMAXCONN' || 16;
$INADDR_ANY = eval '&INADDR_ANY' || "\0\0\0\0";
$SOL_SOCKET = eval '&SOL_SOCKET';
$SO_REUSEADDR = eval '&SO_REUSEADDR';
$'rin = '';
$handle = 0;
$SIG{'PIPE'} = 'IGNORE' if &'exist(&'list(keys(%SIG)), 'PIPE');
&main();
sub main {
local($line, $llist, $slist, $rout, $host, $port, $lport, $nf, $tmp, $socket, $sno, $cno);
while (defined($line = <>)) {
$line =~ tr/\r\n//d;
($host, $port, $lport) = split(/\s+/, $line);
$remotehost{$lport} = $host;
$remoteport{$lport} = $port;
$portlist = &'add($portlist, $lport);
}
foreach $port (&'array($portlist)) {
$lno = &'listen($port, 0) || die "cannot listen port\n";
$llist = &'add($llist, $lno);
}
for (;;) {
$nf = select($rout = $'rin, undef, undef, undef);
die "error in select\n" if $nf < 0;
foreach $no (&'array($slist)) {
next unless vec($rout, $no, 1);
$tmp = '';
if (sysread($'socket[$no], $tmp, $READSIZE)) {
$socket = $'socket[$peer[$no]];
print $socket $tmp;
} else {
&'close($no);
&'close($peer[$no]);
$slist = &'remove($slist, $no, $peer[$no]);
}
}
foreach $lno (&'array($llist)) {
next unless vec($rout, $lno, 1);
$port = (&'sockname($lno))[0];
if ($cno = &'accept($lno)) {
if ($sno = &'connect($remotehost{$port}, $remoteport{$port})) {
$peer[$cno] = $sno;
$peer[$sno] = $cno;
$slist = &'add($slist, $cno, $sno);
} else {
&'close($cno);
}
}
}
}
}
sub 'connect {
local($host, $port) = @_;
local($serverno, $socket, $ip, @addr, $name);
if ($host =~ /^\d+$/) {
$ip = $host;
} elsif ($host =~ /^[\d\.]+$/) {
@addr = split(/\./, $host);
$ip = unpack('N', pack('C4', @addr, 0, 0, 0));
} else {
$ip = unpack('N', (gethostbyname($host))[4] || "\0\0\0\0");
}
return 0 unless $ip;
$socket = '\'S' . ++$handle;
socket($socket, $PF_INET, $SOCK_STREAM, $PROTO) || return 0;
$name = pack($SOCKADDR, $AF_INET, $port, $ip);
connect($socket, $name) || return 0;
binmode($socket);
$serverno = fileno($socket);
vec($'rin, $serverno, 1) = 1;
$'socket[$serverno] = $socket;
select((select($socket), $| = 1)[0]);
$'access[$serverno] = time();
return $serverno;
}
sub 'listen {
local($port, $count) = @_;
local($listenno, $socket, $name);
$socket = '\'L' . ++$handle;
socket($socket, $PF_INET, $SOCK_STREAM, $PROTO) || return 0;
if (defined($SOL_SOCKET) && defined($SO_REUSEADDR)) {
setsockopt($socket, $SOL_SOCKET, $SO_REUSEADDR, pack('l', 1));
}
$name = pack($SOCKADDR, $AF_INET, $port, unpack('N', $INADDR_ANY));
bind($socket, $name) || return 0;
listen($socket, $count || $SOMAXCONN) || return 0;
$listenno = fileno($socket);
vec($'rin, $listenno, 1) = 1;
$'socket[$listenno] = $socket;
select((select($socket), $| = 1)[0]);
$'access[$listenno] = time();
return $listenno;
}
sub 'accept {
local($listenno) = @_;
local($clientno, $socket);
$socket = '\'C' . ++$handle;
accept($socket, $'socket[$listenno]) || return 0;
binmode($socket);
$clientno = fileno($socket);
vec($'rin, $clientno, 1) = 1;
$'socket[$clientno] = $socket;
select((select($socket), $| = 1)[0]);
$'access[$clientno] = time();
return $clientno;
}
sub 'close {
local($no) = @_;
close($'socket[$no]);
vec($'rin, $no, 1) = 0;
}
sub 'sockname {
local($no) = @_;
local($port, $ip, $host);
($port, $ip) = (unpack($SOCKADDR, getsockname($'socket[$no])))[1, 2];
$host = (gethostbyaddr(pack('N', $ip), $AF_INET))[0];
return ($port, $ip, $host);
}
sub 'add {
local($list, @items) = @_;
$list = '' unless $list;
foreach $item (@items) {
next if &'exist($list, $item);
$list .= $NIL . $item;
}
return $list;
}
sub 'remove {
local($list, @items) = @_;
local($idx);
$list = '' unless $list;
$list .= $NIL;
foreach $item (@items) {
$idx = index("\L$list\E", $NIL . "\L$item\E" . $NIL);
next if $idx == -1;
substr($list, $idx, length($NIL . $item . $NIL)) = $NIL;
}
return substr($list, 0, length($list) - 1);
}
sub 'exist {
local($list, @items) = @_;
return 0 unless $list;
$list .= $NIL;
foreach $item (@items) {
return 1 if index("\L$list\E", $NIL . "\L$item\E" . $NIL) != -1;
}
return 0;
}
sub 'list {
local(@array) = @_;
return join($NIL, '', @array);
}
sub 'array {
local($list) = @_;
return () unless $list;
$list = substr($list, 1);
return () unless $list;
return split(/$NIL/, $list);
}
plum-2.33.1.orig/support/runfor 0100755 0010013 0000620 00000000760 06676174332 016357 0 ustar gotom kobayashi #!/bin/perl -w
# $Id: runfor,v 2.3 1998/11/11 03:25:35 hasegawa Exp $
# copyright (c)1997 Yoshinori Hasegawa
$WAITTIME = 60;
&main(@ARGV);
sub main {
local(@args) = @_;
local($pid);
if (@args < 1) {
&usage();
exit(1);
}
for (;;) {
$pid = fork();
if (!defined($pid)) {
sleep($WAITTIME);
} elsif ($pid == 0) {
exec(@args);
} else {
wait;
}
}
}
sub usage {
print 'usage: perl runfor []', "\n";
}
plum-2.33.1.orig/support/server 0100755 0010013 0000620 00000006237 06676174332 016357 0 ustar gotom kobayashi #!/bin/perl -w
# $Id: server,v 2.10 1999/01/20 15:06:31 hasegawa Exp $
# copyright (c)1997-1999 Yoshinori Hasegawa
if ($] < 5) {
foreach $inc (@INC) {
if (-r "$inc/sys/socket.ph") {
eval 'require "sys/socket.ph"';
$SOCKET = "$inc/sys/socket.ph" unless $@;
last;
}
if (-r "$inc/socket.ph") {
eval 'require "socket.ph"';
$SOCKET = "$inc/socket.ph" unless $@;
last;
}
}
} else {
eval 'use Socket';
$SOCKET = 'Socket.pm' unless $@;
}
$NIL = $;;
$READSIZE = 1024;
$SOCKADDR = 'S n N x8';
$PROTO = (getprotobyname('tcp'))[2];
$AF_INET = eval '&AF_INET' || 2;
$PF_INET = eval '&PF_INET' || 2;
$SOCK_STREAM = eval '&SOCK_STREAM' || 1;
$SOMAXCONN = eval '&SOMAXCONN' || 16;
$INADDR_ANY = eval '&INADDR_ANY' || "\0\0\0\0";
$SOL_SOCKET = eval '&SOL_SOCKET';
$SO_REUSEADDR = eval '&SO_REUSEADDR';
$'rin = '';
$handle = 0;
select((select(STDOUT), $| = 1)[0]);
$SIG{'PIPE'} = 'IGNORE' if &'exist(&'list(keys(%SIG)), 'PIPE');
&main(@ARGV);
sub main {
local(@args) = @_;
local($rout, $lno, $sno, $stdin, $socket, $nf, $tmp);
if (@args < 1) {
&usage();
exit(1);
}
$lno = &'listen(@args) || die "cannot listen port\n";
$sno = &'accept($lno) || die "cannot accept client\n";
$socket = $'socket[$sno];
$stdin = fileno(STDIN);
vec($'rin, $stdin, 1) = 1;
for (;;) {
$nf = select($rout = $'rin, undef, undef, undef);
if (vec($rout, $sno, 1)) {
$tmp = '';
if (sysread($socket, $tmp, $READSIZE)) {
print STDOUT $tmp;
} else {
&'close($sno);
exit(0);
}
} elsif (vec($rout, $stdin, 1)) {
$tmp = '';
if (sysread(STDIN, $tmp, $READSIZE)) {
print $socket $tmp;
} else {
&'close($sno);
exit(0);
}
}
}
}
sub usage {
print 'usage: perl server ', "\n";
}
sub 'listen {
local($port, $count) = @_;
local($listenno, $socket, $name);
$socket = '\'L' . ++$handle;
socket($socket, $PF_INET, $SOCK_STREAM, $PROTO) || return 0;
if (defined($SOL_SOCKET) && defined($SO_REUSEADDR)) {
setsockopt($socket, $SOL_SOCKET, $SO_REUSEADDR, pack('l', 1));
}
$name = pack($SOCKADDR, $AF_INET, $port, unpack('N', $INADDR_ANY));
bind($socket, $name) || return 0;
listen($socket, $count || $SOMAXCONN) || return 0;
$listenno = fileno($socket);
vec($'rin, $listenno, 1) = 1;
$'socket[$listenno] = $socket;
select((select($socket), $| = 1)[0]);
$'access[$listenno] = time();
return $listenno;
}
sub 'accept {
local($listenno) = @_;
local($clientno, $socket);
$socket = '\'C' . ++$handle;
accept($socket, $'socket[$listenno]) || return 0;
binmode($socket);
$clientno = fileno($socket);
vec($'rin, $clientno, 1) = 1;
$'socket[$clientno] = $socket;
select((select($socket), $| = 1)[0]);
$'access[$clientno] = time();
return $clientno;
}
sub 'close {
local($no) = @_;
close($'socket[$no]);
vec($'rin, $no, 1) = 0;
}
sub 'exist {
local($list, @items) = @_;
return 0 unless $list;
$list .= $NIL;
foreach $item (@items) {
return 1 if index("\L$list\E", $NIL . "\L$item\E" . $NIL) != -1;
}
return 0;
}
sub 'list {
local(@array) = @_;
return join($NIL, '', @array);
}
plum-2.33.1.orig/support/httpgate 0100755 0010013 0000620 00000022223 06676174332 016662 0 ustar gotom kobayashi #!/bin/perl -w
# $Id: httpgate,v 2.17 1999/01/20 15:00:02 hasegawa Exp $
# copyright (c)1998-1999 Yoshinori Hasegawa
if ($] < 5) {
foreach $inc (@INC) {
if (-r "$inc/sys/socket.ph") {
eval 'require "sys/socket.ph"';
$SOCKET = "$inc/sys/socket.ph" unless $@;
last;
}
if (-r "$inc/socket.ph") {
eval 'require "socket.ph"';
$SOCKET = "$inc/socket.ph" unless $@;
last;
}
}
} else {
eval 'use Socket';
$SOCKET = 'Socket.pm' unless $@;
}
$NIL = $;;
$READSIZE = 4096;
$SOCKADDR = 'S n N x8';
$PROTO = (getprotobyname('tcp'))[2];
$AF_INET = eval '&AF_INET' || 2;
$PF_INET = eval '&PF_INET' || 2;
$SOCK_STREAM = eval '&SOCK_STREAM' || 1;
$SOMAXCONN = eval '&SOMAXCONN' || 16;
$INADDR_ANY = eval '&INADDR_ANY' || "\0\0\0\0";
$SOL_SOCKET = eval '&SOL_SOCKET';
$SO_REUSEADDR = eval '&SO_REUSEADDR';
$'rin = '';
$handle = 0;
$SIG{'PIPE'} = 'IGNORE' if &'exist(&'list(keys(%SIG)), 'PIPE');
$TIMEOUT = 3600;
&main(@ARGV);
sub main {
local(@args) = @_;
local($rout, $listenno, $nf);
if (@args < 1) {
&usage();
exit(1);
}
$listenno = &'listen($args[0], 0) || die "cannot listen port\n";
for (;;) {
$nf = select($rout = $'rin, undef, undef, undef);
die "error in select\n" if $nf < 0;
foreach $cno (&'array($socketclientlist)) {
if (vec($rout, $cno, 1)) {
&socket_client($cno);
}
}
foreach $cno (&'array($httpclientlist)) {
if (vec($rout, $cno, 1)) {
&http_client($cno);
} elsif ($'access[$cno] - time() > $TIMEOUT) {
&http_close($cno);
}
}
foreach $lno (&'array($socketlistenlist)) {
if (vec($rout, $lno, 1)) {
&socket_accept($lno);
} elsif ($'access[$lno] - time() > $TIMEOUT) {
&'close($lno);
$socketlistenlist = &'remove($socketlistenlist, $lno);
&'close($peer[$lno]);
$httpclientlist = &'remove($httpclientlist, $peer[$lno]);
$peer[$peer[$lno]] = 0;
$peer[$lno] = 0;
}
}
&http_accept($listenno) if vec($rout, $listenno, 1);
}
}
sub socket_client {
local($cno) = @_;
local($tmp, $socket);
$tmp = '';
if (sysread($'socket[$cno], $tmp, $READSIZE)) {
$socket = $'socket[$peer[$cno]];
print $socket $tmp if fileno($socket);
} else {
&'close($cno);
&'close($peer[$cno]);
$socketclientlist = &'remove($socketclientlist, $cno, $peer[$cno]);
$peer[$peer[$cno]] = 0;
$peer[$cno] = 0;
}
}
sub http_client {
local($clientno) = @_;
local($tmp, $socket, $next, $rest, $method, $url, $lno, $sno, $host, $port);
$tmp = '';
if (sysread($'socket[$clientno], $tmp, $READSIZE)) {
$socket = $'socket[$clientno];
$rbuf[$clientno] .= $tmp;
while ((($next, $rest) = split(/\r\n/, $rbuf[$clientno], 2)) == 2) {
$rbuf[$clientno] = $rest;
if ($next) {
$request[$clientno] = &'add($request[$clientno], $next);
} else {
($method, $url) = split(/\s+/, (&'array($request[$clientno]))[0]);
if ($method eq 'HEAD') {
$port = (split(/\//, $url))[1];
if ($lno = &'listen($port, 1)) {
print $socket 'HTTP/1.0 201 Created', "\r\n";
$host = (&'sockname($clientno))[1];
$port = (&'sockname($lno))[0];
print $socket 'Listen: ', $host, '/', $port, "\r\n";
print $socket "\r\n";
$peer[$clientno] = $lno;
$peer[$lno] = $clientno;
$httpclientlist = &'remove($httpclientlist, $clientno);
$socketlistenlist = &'add($socketlistenlist, $lno);
vec($'rin, $clientno, 1) = 0;
$request[$clientno] = '';
} else {
print $socket 'HTTP/1.0 403 Forbidden', "\r\n";
print $socket "\r\n";
&http_close($clientno);
last;
}
} elsif ($method eq 'POST') {
if ($peer[$clientno]) {
$httpclientlist = &'remove($httpclientlist, $clientno);
} else {
($host, $port) = (split(/\//, $url))[1, 2];
if ($host && $port) {
if ($sno = &'connect($host, $port)) {
print $socket 'HTTP/1.0 204 No Content', "\r\n";
print $socket "\r\n";
$peer[$clientno] = $sno;
$peer[$sno] = $clientno;
$httpclientlist = &'remove($httpclientlist, $clientno);
$socketclientlist = &'add($socketclientlist, $sno, $clientno);
$socket = $'socket[$sno];
print $socket $rbuf[$clientno];
} else {
print $socket 'HTTP/1.0 404 Not Found', "\r\n";
print $socket "\r\n";
&http_close($clientno);
last;
}
} else {
print $socket 'HTTP/1.0 400 Bad Request', "\r\n";
print $socket "\r\n";
&http_close($clientno);
last;
}
}
} else {
print $socket 'HTTP/1.0 501 Not Implemented', "\r\n";
print $socket "\r\n";
&http_close($clientno);
last;
}
}
}
} else {
&http_close($clientno);
}
}
sub http_close {
local($clientno) = @_;
&'close($clientno);
$httpclientlist = &'remove($httpclientlist, $clientno);
if ($peer[$clientno]) {
&'close($peer[$clientno]);
$socketlistenlist = &'remove($socketlistenlist, $peer[$clientno]);
$peer[$peer[$clientno]] = 0;
$peer[$clientno] = 0;
}
}
sub socket_accept {
local($listenno) = @_;
local($cno, $socket);
if ($cno = &'accept($listenno)) {
$socket = $'socket[$peer[$listenno]];
print $socket 'HTTP/1.0 202 Accepted', "\r\n";
print $socket "\r\n";
$peer[$cno] = $peer[$listenno];
$peer[$peer[$cno]] = $cno;
$socketclientlist = &'add($socketclientlist, $cno, $peer[$cno]);
vec($'rin, $peer[$cno], 1) = 1;
$socket = $'socket[$cno];
print $socket $rbuf[$peer[$cno]];
&'close($listenno);
$socketlistenlist = &'remove($socketlistenlist, $listenno);
}
}
sub http_accept {
local($listenno) = @_;
local($cno);
if ($cno = &'accept($listenno)) {
$httpclientlist = &'add($httpclientlist, $cno);
$rbuf[$cno] = '';
$peer[$cno] = 0;
$request[$cno] = '';
}
}
sub usage {
print 'usage: perl httpgate ', "\n";
}
sub 'connect {
local($host, $port) = @_;
local($serverno, $socket, $ip, @addr, $name);
if ($host =~ /^\d+$/) {
$ip = $host;
} elsif ($host =~ /^[\d\.]+$/) {
@addr = split(/\./, $host);
$ip = unpack('N', pack('C4', @addr, 0, 0, 0));
} else {
$ip = unpack('N', (gethostbyname($host))[4] || "\0\0\0\0");
}
return 0 unless $ip;
$socket = '\'S' . ++$handle;
socket($socket, $PF_INET, $SOCK_STREAM, $PROTO) || return 0;
$name = pack($SOCKADDR, $AF_INET, $port, $ip);
connect($socket, $name) || return 0;
binmode($socket);
$serverno = fileno($socket);
vec($'rin, $serverno, 1) = 1;
$'socket[$serverno] = $socket;
select((select($socket), $| = 1)[0]);
$'access[$serverno] = time();
return $serverno;
}
sub 'listen {
local($port, $count) = @_;
local($listenno, $socket, $name);
$socket = '\'L' . ++$handle;
socket($socket, $PF_INET, $SOCK_STREAM, $PROTO) || return 0;
if (defined($SOL_SOCKET) && defined($SO_REUSEADDR)) {
setsockopt($socket, $SOL_SOCKET, $SO_REUSEADDR, pack('l', 1));
}
$name = pack($SOCKADDR, $AF_INET, $port, unpack('N', $INADDR_ANY));
bind($socket, $name) || return 0;
listen($socket, $count || $SOMAXCONN) || return 0;
$listenno = fileno($socket);
vec($'rin, $listenno, 1) = 1;
$'socket[$listenno] = $socket;
select((select($socket), $| = 1)[0]);
$'access[$listenno] = time();
return $listenno;
}
sub 'accept {
local($listenno) = @_;
local($clientno, $socket);
$socket = '\'C' . ++$handle;
accept($socket, $'socket[$listenno]) || return 0;
binmode($socket);
$clientno = fileno($socket);
vec($'rin, $clientno, 1) = 1;
$'socket[$clientno] = $socket;
select((select($socket), $| = 1)[0]);
$'access[$clientno] = time();
return $clientno;
}
sub 'close {
local($no) = @_;
close($'socket[$no]);
vec($'rin, $no, 1) = 0;
}
sub 'sockname {
local($no) = @_;
local($port, $ip, $host);
($port, $ip) = (unpack($SOCKADDR, getsockname($'socket[$no])))[1, 2];
$host = (gethostbyaddr(pack('N', $ip), $AF_INET))[0];
return ($port, $ip, $host);
}
sub 'add {
local($list, @items) = @_;
$list = '' unless $list;
foreach $item (@items) {
next if &'exist($list, $item);
$list .= $NIL . $item;
}
return $list;
}
sub 'remove {
local($list, @items) = @_;
local($idx);
$list = '' unless $list;
$list .= $NIL;
foreach $item (@items) {
$idx = index("\L$list\E", $NIL . "\L$item\E" . $NIL);
next if $idx == -1;
substr($list, $idx, length($NIL . $item . $NIL)) = $NIL;
}
return substr($list, 0, length($list) - 1);
}
sub 'exist {
local($list, @items) = @_;
return 0 unless $list;
$list .= $NIL;
foreach $item (@items) {
return 1 if index("\L$list\E", $NIL . "\L$item\E" . $NIL) != -1;
}
return 0;
}
sub 'list {
local(@array) = @_;
return join($NIL, '', @array);
}
sub 'array {
local($list) = @_;
return () unless $list;
$list = substr($list, 1);
return () unless $list;
return split(/$NIL/, $list);
}
plum-2.33.1.orig/support/httpclient 0100755 0010013 0000620 00000014636 06676174332 017231 0 ustar gotom kobayashi #!/bin/perl -w
# $Id: httpclient,v 2.11 1999/01/20 14:58:32 hasegawa Exp $
# copyright (c)1998-1999 Yoshinori Hasegawa
if ($] < 5) {
foreach $inc (@INC) {
if (-r "$inc/sys/socket.ph") {
eval 'require "sys/socket.ph"';
$SOCKET = "$inc/sys/socket.ph" unless $@;
last;
}
if (-r "$inc/socket.ph") {
eval 'require "socket.ph"';
$SOCKET = "$inc/socket.ph" unless $@;
last;
}
}
} else {
eval 'use Socket';
$SOCKET = 'Socket.pm' unless $@;
}
$NIL = $;;
$READSIZE = 1024;
$SOCKADDR = 'S n N x8';
$PROTO = (getprotobyname('tcp'))[2];
$AF_INET = eval '&AF_INET' || 2;
$PF_INET = eval '&PF_INET' || 2;
$SOCK_STREAM = eval '&SOCK_STREAM' || 1;
$SOMAXCONN = eval '&SOMAXCONN' || 16;
$INADDR_ANY = eval '&INADDR_ANY' || "\0\0\0\0";
$SOL_SOCKET = eval '&SOL_SOCKET';
$SO_REUSEADDR = eval '&SO_REUSEADDR';
$'rin = '';
$handle = 0;
$SIG{'PIPE'} = 'IGNORE' if &'exist(&'list(keys(%SIG)), 'PIPE');
&main(@ARGV);
sub main {
local(@args) = @_;
local($rout, $listenno, $nf, $slist, $clist);
if (@args < 7) {
&usage();
exit(1);
}
$listenno = &'listen($args[6], 0) || die "cannot listen port\n";
for (;;) {
$nf = select($rout = $'rin, undef, undef, undef);
die "error in select\n" if $nf < 0;
foreach $cno (&'array($clist)) {
next unless vec($rout, $cno, 1);
&client_read($cno);
}
foreach $sno (&'array($slist)) {
next unless vec($rout, $sno, 1);
&server_read($sno);
}
if (vec($rout, $listenno, 1)) {
&listen_accept($listenno, $args[0], $args[1], $args[2], $args[3], $args[4], $args[5]);
}
}
}
sub client_read {
local($cno) = @_;
local($tmp, $socket);
$tmp = '';
if (sysread($'socket[$cno], $tmp, $READSIZE)) {
$socket = $'socket[$peer[$cno]];
print $socket $tmp if fileno($socket);
} else {
&'close($cno);
$clist = &'remove($clist, $cno);
&'close($peer[$cno]);
$slist = &'remove($slist, $peer[$cno]);
}
}
sub server_read {
local($sno) = @_;
local($tmp, $socket, $next, $rest, $stat);
$tmp = '';
if (sysread($'socket[$sno], $tmp, $READSIZE)) {
if ($http[$sno]) {
$socket = $'socket[$sno];
$rbuf[$sno] .= $tmp;
while ((($next, $rest) = split(/\r\n/, $rbuf[$sno], 2)) == 2) {
$rbuf[$sno] = $rest || '';
if ($next) {
$reply[$sno] = &'add($reply[$sno], $next);
} else {
$stat = (split(/\s+/, (&'array($reply[$sno]))[0]))[1];
if ($stat eq '204') {
$clist = &'add($clist, $peer[$sno]);
$http[$sno] = 0;
$socket = $'socket[$peer[$sno]];
print $socket $rbuf[$sno];
} else {
&'close($sno);
$slist = &'remove($slist, $sno);
&'close($peer[$sno]);
}
last;
}
}
$rbuf[$sno] = $next || '';
} else {
$socket = $'socket[$peer[$sno]];
print $socket $tmp;
}
} else {
&'close($sno);
$slist = &'remove($slist, $sno);
&'close($peer[$sno]);
$clist = &'remove($clist, $peer[$sno]);
}
}
sub listen_accept {
local($listenno, $phost, $pport, $ghost, $gport, $host, $port) = @_;
local($cno, $sno, $socket);
if ($cno = &'accept($listenno)) {
if ($sno = &'connect($phost, $pport)) {
$socket = $'socket[$sno];
print $socket "POST http://$ghost:$gport/$host/$port/ HTTP/1.0\r\n";
print $socket "\r\n";
$http[$sno] = 1;
$rbuf[$sno] = '';
$reply[$sno] = '';
$peer[$sno] = $cno;
$peer[$cno] = $sno;
$slist = &'add($slist, $sno);
} else {
&'close($cno);
}
}
}
sub usage {
print 'usage: perl httpclient ', "\n";
}
sub 'connect {
local($host, $port) = @_;
local($serverno, $socket, $ip, @addr, $name);
if ($host =~ /^\d+$/) {
$ip = $host;
} elsif ($host =~ /^[\d\.]+$/) {
@addr = split(/\./, $host);
$ip = unpack('N', pack('C4', @addr, 0, 0, 0));
} else {
$ip = unpack('N', (gethostbyname($host))[4] || "\0\0\0\0");
}
return 0 unless $ip;
$socket = '\'S' . ++$handle;
socket($socket, $PF_INET, $SOCK_STREAM, $PROTO) || return 0;
$name = pack($SOCKADDR, $AF_INET, $port, $ip);
connect($socket, $name) || return 0;
binmode($socket);
$serverno = fileno($socket);
vec($'rin, $serverno, 1) = 1;
$'socket[$serverno] = $socket;
select((select($socket), $| = 1)[0]);
$'access[$serverno] = time();
return $serverno;
}
sub 'listen {
local($port, $count) = @_;
local($listenno, $socket, $name);
$socket = '\'L' . ++$handle;
socket($socket, $PF_INET, $SOCK_STREAM, $PROTO) || return 0;
if (defined($SOL_SOCKET) && defined($SO_REUSEADDR)) {
setsockopt($socket, $SOL_SOCKET, $SO_REUSEADDR, pack('l', 1));
}
$name = pack($SOCKADDR, $AF_INET, $port, unpack('N', $INADDR_ANY));
bind($socket, $name) || return 0;
listen($socket, $count || $SOMAXCONN) || return 0;
$listenno = fileno($socket);
vec($'rin, $listenno, 1) = 1;
$'socket[$listenno] = $socket;
select((select($socket), $| = 1)[0]);
$'access[$listenno] = time();
return $listenno;
}
sub 'accept {
local($listenno) = @_;
local($clientno, $socket);
$socket = '\'C' . ++$handle;
accept($socket, $'socket[$listenno]) || return 0;
binmode($socket);
$clientno = fileno($socket);
vec($'rin, $clientno, 1) = 1;
$'socket[$clientno] = $socket;
select((select($socket), $| = 1)[0]);
$'access[$clientno] = time();
return $clientno;
}
sub 'close {
local($no) = @_;
close($'socket[$no]);
vec($'rin, $no, 1) = 0;
}
sub 'add {
local($list, @items) = @_;
$list = '' unless $list;
foreach $item (@items) {
next if &'exist($list, $item);
$list .= $NIL . $item;
}
return $list;
}
sub 'remove {
local($list, @items) = @_;
local($idx);
$list = '' unless $list;
$list .= $NIL;
foreach $item (@items) {
$idx = index("\L$list\E", $NIL . "\L$item\E" . $NIL);
next if $idx == -1;
substr($list, $idx, length($NIL . $item . $NIL)) = $NIL;
}
return substr($list, 0, length($list) - 1);
}
sub 'exist {
local($list, @items) = @_;
return 0 unless $list;
$list .= $NIL;
foreach $item (@items) {
return 1 if index("\L$list\E", $NIL . "\L$item\E" . $NIL) != -1;
}
return 0;
}
sub 'list {
local(@array) = @_;
return join($NIL, '', @array);
}
sub 'array {
local($list) = @_;
return () unless $list;
$list = substr($list, 1);
return () unless $list;
return split(/$NIL/, $list);
}
plum-2.33.1.orig/support/proxy 0100755 0010013 0000620 00000011274 06676174332 016227 0 ustar gotom kobayashi #!/bin/perl -w
# $Id: proxy,v 2.11 1999/01/20 15:05:30 hasegawa Exp $
# copyright (c)1997-1999 Yoshinori Hasegawa
if ($] < 5) {
foreach $inc (@INC) {
if (-r "$inc/sys/socket.ph") {
eval 'require "sys/socket.ph"';
$SOCKET = "$inc/sys/socket.ph" unless $@;
last;
}
if (-r "$inc/socket.ph") {
eval 'require "socket.ph"';
$SOCKET = "$inc/socket.ph" unless $@;
last;
}
}
} else {
eval 'use Socket';
$SOCKET = 'Socket.pm' unless $@;
}
$NIL = $;;
$READSIZE = 1024;
$SOCKADDR = 'S n N x8';
$PROTO = (getprotobyname('tcp'))[2];
$AF_INET = eval '&AF_INET' || 2;
$PF_INET = eval '&PF_INET' || 2;
$SOCK_STREAM = eval '&SOCK_STREAM' || 1;
$SOMAXCONN = eval '&SOMAXCONN' || 16;
$INADDR_ANY = eval '&INADDR_ANY' || "\0\0\0\0";
$SOL_SOCKET = eval '&SOL_SOCKET';
$SO_REUSEADDR = eval '&SO_REUSEADDR';
$'rin = '';
$handle = 0;
$SIG{'PIPE'} = 'IGNORE' if &'exist(&'list(keys(%SIG)), 'PIPE');
&main(@ARGV);
sub main {
local(@args) = @_;
local($slist, $rout, $nf, $sno, $cno, $lno, $socket, $tmp);
if (@args < 3) {
&usage();
exit(1);
}
$lno = &'listen($args[2], 0) || die "cannot listen port\n";
for (;;) {
$nf = select($rout = $'rin, undef, undef, undef);
die "error in select\n" if $nf < 0;
foreach $no (&'array($slist)) {
next unless vec($rout, $no, 1);
$tmp = '';
if (sysread($'socket[$no], $tmp, $READSIZE)) {
$socket = $'socket[$peer[$no]];
print $socket $tmp if fileno($socket);
} else {
&'close($no);
&'close($peer[$no]);
$slist = &'remove($slist, $no, $peer[$no]);
}
}
if (vec($rout, $lno, 1)) {
if ($cno = &'accept($lno)) {
if ($sno = &'connect($args[0], $args[1])) {
$peer[$sno] = $cno;
$peer[$cno] = $sno;
$slist = &'add($slist, $sno, $cno);
} else {
&'close($cno);
}
}
}
}
}
sub usage {
print 'usage: perl proxy ', "\n";
}
sub 'connect {
local($host, $port) = @_;
local($serverno, $socket, $ip, @addr, $name);
if ($host =~ /^\d+$/) {
$ip = $host;
} elsif ($host =~ /^[\d\.]+$/) {
@addr = split(/\./, $host);
$ip = unpack('N', pack('C4', @addr, 0, 0, 0));
} else {
$ip = unpack('N', (gethostbyname($host))[4] || "\0\0\0\0");
}
return 0 unless $ip;
$socket = '\'S' . ++$handle;
socket($socket, $PF_INET, $SOCK_STREAM, $PROTO) || return 0;
$name = pack($SOCKADDR, $AF_INET, $port, $ip);
connect($socket, $name) || return 0;
binmode($socket);
$serverno = fileno($socket);
vec($'rin, $serverno, 1) = 1;
$'socket[$serverno] = $socket;
select((select($socket), $| = 1)[0]);
$'access[$serverno] = time();
return $serverno;
}
sub 'listen {
local($port, $count) = @_;
local($listenno, $socket, $name);
$socket = '\'L' . ++$handle;
socket($socket, $PF_INET, $SOCK_STREAM, $PROTO) || return 0;
if (defined($SOL_SOCKET) && defined($SO_REUSEADDR)) {
setsockopt($socket, $SOL_SOCKET, $SO_REUSEADDR, pack('l', 1));
}
$name = pack($SOCKADDR, $AF_INET, $port, unpack('N', $INADDR_ANY));
bind($socket, $name) || return 0;
listen($socket, $count || $SOMAXCONN) || return 0;
$listenno = fileno($socket);
vec($'rin, $listenno, 1) = 1;
$'socket[$listenno] = $socket;
select((select($socket), $| = 1)[0]);
$'access[$listenno] = time();
return $listenno;
}
sub 'accept {
local($listenno) = @_;
local($clientno, $socket);
$socket = '\'C' . ++$handle;
accept($socket, $'socket[$listenno]) || return 0;
binmode($socket);
$clientno = fileno($socket);
vec($'rin, $clientno, 1) = 1;
$'socket[$clientno] = $socket;
select((select($socket), $| = 1)[0]);
$'access[$clientno] = time();
return $clientno;
}
sub 'close {
local($no) = @_;
close($'socket[$no]);
vec($'rin, $no, 1) = 0;
}
sub 'add {
local($list, @items) = @_;
$list = '' unless $list;
foreach $item (@items) {
next if &'exist($list, $item);
$list .= $NIL . $item;
}
return $list;
}
sub 'remove {
local($list, @items) = @_;
local($idx);
$list = '' unless $list;
$list .= $NIL;
foreach $item (@items) {
$idx = index("\L$list\E", $NIL . "\L$item\E" . $NIL);
next if $idx == -1;
substr($list, $idx, length($NIL . $item . $NIL)) = $NIL;
}
return substr($list, 0, length($list) - 1);
}
sub 'exist {
local($list, @items) = @_;
return 0 unless $list;
$list .= $NIL;
foreach $item (@items) {
return 1 if index("\L$list\E", $NIL . "\L$item\E" . $NIL) != -1;
}
return 0;
}
sub 'list {
local(@array) = @_;
return join($NIL, '', @array);
}
sub 'array {
local($list) = @_;
return () unless $list;
$list = substr($list, 1);
return () unless $list;
return split(/$NIL/, $list);
}
plum-2.33.1.orig/support/serverproxy 0100755 0010013 0000620 00000007350 06676174332 017456 0 ustar gotom kobayashi #!/bin/perl -w
# $Id: serverproxy,v 2.5 1999/01/20 15:07:17 hasegawa Exp $
# copyright (c)1997-1999 Yoshinori Hasegawa
if ($] < 5) {
foreach $inc (@INC) {
if (-r "$inc/sys/socket.ph") {
eval 'require "sys/socket.ph"';
$SOCKET = "$inc/sys/socket.ph" unless $@;
last;
}
if (-r "$inc/socket.ph") {
eval 'require "socket.ph"';
$SOCKET = "$inc/socket.ph" unless $@;
last;
}
}
} else {
eval 'use Socket';
$SOCKET = 'Socket.pm' unless $@;
}
$NIL = $;;
$READSIZE = 1024;
$SOCKADDR = 'S n N x8';
$PROTO = getprotobyname('tcp');
$AF_INET = eval '&AF_INET' || 2;
$PF_INET = eval '&PF_INET' || 2;
$SOCK_STREAM = eval '&SOCK_STREAM' || 1;
$SOMAXCONN = eval '&SOMAXCONN' || 16;
$INADDR_ANY = eval '&INADDR_ANY' || "\0\0\0\0";
$SOL_SOCKET = eval '&SOL_SOCKET';
$SO_REUSEADDR = eval '&SO_REUSEADDR';
$'rin = '';
$handle = 0;
$SIG{'PIPE'} = 'IGNORE' if &'exist(&'list(keys(%SIG)), 'PIPE');
&main(@ARGV);
sub main {
local(@args) = @_;
local($rout, $nf, $lno1, $lno2, $cno1, $cno2, $socket, $tmp);
if (@args < 2) {
&usage();
exit(1);
}
$lno1 = &'listen($args[0], 0) || die "cannot listen port\n";
$lno2 = &'listen($args[1], 0) || die "cannot listen port\n";
for (;;) {
$nf = select($rout = $'rin, undef, undef, undef);
die "error in select\n" if $nf < 0;
if (vec($rout, $lno1, 1)) {
if ($cno1 = &'accept($lno1)) {
if ($cno2) {
vec($'rin, $cno2, 1) = 1;
} else {
vec($'rin, $cno1, 1) = 0;
}
&'close($lno1);
}
}
if (vec($rout, $lno2, 1)) {
if ($cno2 = &'accept($lno2)) {
if ($cno1) {
vec($'rin, $cno1, 1) = 1;
} else {
vec($'rin, $cno2, 1) = 0;
}
&'close($lno2);
}
}
next unless $cno1;
next unless $cno2;
if (vec($rout, $cno1, 1)) {
$tmp = '';
if (sysread($'socket[$cno1], $tmp, $READSIZE)) {
$socket = $'socket[$cno2];
print $socket $tmp;
} else {
&'close($cno1);
&'close($cno2);
exit;
}
}
if (vec($rout, $cno2, 1)) {
$tmp = '';
if (sysread($'socket[$cno2], $tmp, $READSIZE)) {
$socket = $'socket[$cno1];
print $socket $tmp;
} else {
&'close($cno2);
&'close($cno1);
exit;
}
}
}
}
sub usage {
print 'usage: perl serverproxy ', "\n";
}
sub 'listen {
local($port, $count) = @_;
local($listenno, $socket, $name);
$socket = '\'L' . ++$handle;
socket($socket, $PF_INET, $SOCK_STREAM, $PROTO) || return 0;
if (defined($SOL_SOCKET) && defined($SO_REUSEADDR)) {
setsockopt($socket, $SOL_SOCKET, $SO_REUSEADDR, pack('l', 1));
}
$name = pack($SOCKADDR, $AF_INET, $port, unpack('N', $INADDR_ANY));
bind($socket, $name) || return 0;
listen($socket, $count || $SOMAXCONN) || return 0;
$listenno = fileno($socket);
vec($'rin, $listenno, 1) = 1;
$'socket[$listenno] = $socket;
select((select($socket), $| = 1)[0]);
$'access[$listenno] = time();
return $listenno;
}
sub 'accept {
local($listenno) = @_;
local($clientno, $socket);
$socket = '\'C' . ++$handle;
accept($socket, $'socket[$listenno]) || return 0;
binmode($socket);
$clientno = fileno($socket);
vec($'rin, $clientno, 1) = 1;
$'socket[$clientno] = $socket;
select((select($socket), $| = 1)[0]);
$'access[$clientno] = time();
return $clientno;
}
sub 'close {
local($no) = @_;
close($'socket[$no]);
vec($'rin, $no, 1) = 0;
}
sub 'exist {
local($list, @items) = @_;
return 0 unless $list;
$list .= $NIL;
foreach $item (@items) {
return 1 if index("\L$list\E", $NIL . "\L$item\E" . $NIL) != -1;
}
return 0;
}
sub 'list {
local(@array) = @_;
return join($NIL, '', @array);
}
plum-2.33.1.orig/support/clientproxy 0100755 0010013 0000620 00000005746 06676174332 017435 0 ustar gotom kobayashi #!/bin/perl -w
# $Id: clientproxy,v 2.8 1999/01/20 14:56:23 hasegawa Exp $
# copyright (c)1997-1999 Yoshinori Hasegawa
if ($] < 5) {
foreach $inc (@INC) {
if (-r "$inc/sys/socket.ph") {
eval 'require "sys/socket.ph"';
$SOCKET = "$inc/sys/socket.ph" unless $@;
last;
}
if (-r "$inc/socket.ph") {
eval 'require "socket.ph"';
$SOCKET = "$inc/socket.ph" unless $@;
last;
}
}
} else {
eval 'use Socket';
$SOCKET = 'Socket.pm' unless $@;
}
$NIL = $;;
$READSIZE = 1024;
$SOCKADDR = 'S n N x8';
$PROTO = (getprotobyname('tcp'))[2];
$AF_INET = eval '&AF_INET' || 2;
$PF_INET = eval '&PF_INET' || 2;
$SOCK_STREAM = eval '&SOCK_STREAM' || 1;
$'rin = '';
$handle = 0;
$SIG{'PIPE'} = 'IGNORE' if &'exist(&'list(keys(%SIG)), 'PIPE');
&main(@ARGV);
sub main {
local(@args) = @_;
local($rout, $nf, $sno1, $sno2, $socket, $tmp);
if (@args < 4) {
&usage();
exit(1);
}
$sno1 = &'connect($args[0], $args[1]) || die "cannot connect to server\n";
$sno2 = &'connect($args[2], $args[3]) || die "cannot connect to server\n";
for (;;) {
$nf = select($rout = $'rin, undef, undef, undef);
die "error in select\n" if $nf < 0;
if (vec($rout, $sno1, 1)) {
$tmp = '';
if (sysread($'socket[$sno1], $tmp, $READSIZE)) {
$socket = $'socket[$sno2];
print $socket $tmp;
} else {
&'close($sno1);
&'close($sno2);
exit;
}
}
if (vec($rout, $sno2, 1)) {
$tmp = '';
if (sysread($'socket[$sno2], $tmp, $READSIZE)) {
$socket = $'socket[$sno1];
print $socket $tmp;
} else {
&'close($sno2);
&'close($sno1);
exit;
}
}
}
}
sub usage {
print 'usage: perl clientproxy ', "\n";
}
sub 'connect {
local($host, $port) = @_;
local($serverno, $socket, $ip, @addr, $name);
if ($host =~ /^\d+$/) {
$ip = $host;
} elsif ($host =~ /^[\d\.]+$/) {
@addr = split(/\./, $host);
$ip = unpack('N', pack('C4', @addr, 0, 0, 0));
} else {
$ip = unpack('N', (gethostbyname($host))[4] || "\0\0\0\0");
}
return 0 unless $ip;
$socket = '\'S' . ++$handle;
socket($socket, $PF_INET, $SOCK_STREAM, $PROTO) || return 0;
$name = pack($SOCKADDR, $AF_INET, $port, $ip);
connect($socket, $name) || return 0;
binmode($socket);
$serverno = fileno($socket);
vec($'rin, $serverno, 1) = 1;
$'socket[$serverno] = $socket;
select((select($socket), $| = 1)[0]);
return $serverno;
}
sub 'close {
local($no) = @_;
close($'socket[$no]);
vec($'rin, $no, 1) = 0;
}
sub 'exist {
local($list, @items) = @_;
return 0 unless $list;
$list .= $NIL;
foreach $item (@items) {
return 1 if index("\L$list\E", $NIL . "\L$item\E" . $NIL) != -1;
}
return 0;
}
sub 'list {
local(@array) = @_;
return join($NIL, '', @array);
}
sub 'array {
local($list) = @_;
return () unless $list;
$list = substr($list, 1);
return () unless $list;
return split(/$NIL/, $list);
}
plum-2.33.1.orig/support/cnvmsgfile 0100755 0010013 0000620 00000004554 06676174332 017206 0 ustar gotom kobayashi #!/bin/perl -w
# $Id: cnvmsgfile,v 2.1 1998/12/19 14:23:41 hasegawa Exp $
# copyright (c)1997-1998 Yoshinori Hasegawa
@TABLE = (1, 60, 3600, 86400, 2678400, 31536000);
$MAXTRY = 20;
&main(@ARGV);
sub main {
local(@args) = @_;
local(@data, $line, $old, $n, $date, $time, $rest);
if (@args < 1) {
&usage();
exit(1);
}
foreach $file (@args) {
if (!open(FILE, $file)) {
print "$file not found\n";
next;
}
@data = ();
while (defined($line = )) {
$line =~ tr/\r\n//d;
push(@data, $line);
}
close(FILE);
$count = 0;
foreach $line (@data) {
next if $line =~ /^\s*\#/;
($date, $time, $rest) = split(/\s+/, $line, 3);
if ($date =~ /^\d+\/\d+\/\d+$/ && $time =~ /^\d+\:\d+\:\d+$/) {
$count++;
}
}
if ($count == 0) {
print "$file already converted\n";
next;
}
$old = $file . '.old';
if (-e $old) {
$n = 0;
while (-e $old . $n) {
$n++;
}
$old .= $n;
}
rename($file, $old);
if (open(FILE, ">$file")) {
foreach $line (@data) {
($date, $time, $rest) = split(/\s+/, $line, 3);
if ($date =~ /^\d+\/\d+\/\d+$/ && $time =~ /^\d+\:\d+\:\d+$/) {
print FILE '', &timelocal($date, $time), ' ', $rest, "\n";
} else {
print FILE $line, "\n";
}
}
close(FILE);
}
}
}
sub usage {
print 'usage: perl cnvmsgfile ', "\n";
}
sub timelocal {
local($date, $time) = @_;
local(@time, $now, $ndate, $ntime, @time, $try);
$now = time();
$try = 0;
$ndate = '';
$ntime = '';
while (($date ne $ndate || $time ne $ntime) && $try < $MAXTRY) {
$now = &convert($date, $time, $now);
@time = localtime($now);
$time[5] += 1900;
$time[4] += 1;
$ndate = sprintf("%04d/%02d/%02d", $time[5], $time[4], $time[3]);
$ntime = sprintf("%02d:%02d:%02d", $time[2], $time[1], $time[0]);
$try++;
}
print "$date $time -> $ndate $ntime\n";
return $now;
}
sub convert {
local($date, $time, $now) = @_;
local(@ntime, @time, $last, $i);
@ntime = localtime($now);
$ntime[4] += 1;
$ntime[5] += 1900;
@time = ();
push(@time, reverse(split(/\:/, $time)));
push(@time, reverse(split(/\//, $date)));
$last = $now;
for ($i = 0; $i < 6; $i++) {
$last -= ($ntime[$i] - $time[$i]) * $TABLE[$i];
}
return $last;
}