1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
# madoka 4.2 cl_server
#
# client/server.mpi
# Copyright(c)1998- cookie / The madoka project
#
sub cl_server {
my($pr, $cl_no) = @_;
my($sv, $port, $pass) = split(/[:\s]+/, $pr, 3);
if ($sv) {
$port = '6667' unless $port;
$pass = '' unless $pass;
my $l = $sv[0];
unshift(@sv, $sv);
unshift(@sv, $l);
$l = $sv_port[0];
unshift(@sv_port, $port);
unshift(@sv_port, $l);
$l = $sv_pass[0];
unshift(@sv_pass, $pass);
unshift(@sv_pass, $l);
}
&send('cch', "NOTICE $us_nick :" .
&mio('CLIENT_SERVER', "[!] change: $sv[0] > $sv[1]") . "\n", $cl_no);
vec($sv_state, 2, 1) = 0;
&close_server($sv_no, 'change server');
}
sub cl_cserver {
&cl_server(@_);
}
|
