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
31
32
33
34
35
36
37
38
39
40
41
42
|
# madoka 4.2 rc_server
#
# rc/server.mpi
# Copyright(c)1998- cookie / The madoka project
#
my($var, $arg) = split(/=\s*/, $rc_line, 2);
$server_n = -1 if !defined($server_n);
unless (defined($server_n)) {
$server_n = 0;
if (defined(@sv)) {
my @now = ($sv[0], $sv_port[0], $sv_pass[0]);
undef(@sv);
undef(@sv_port);
undef(@sv_pass);
($sv[0], $sv_port[0], $sv_pass[0]) = @now;
}
}
if ($var eq 'server') {
if ($arg =~ /[^\w\d\-\.:]/) {
&down("[ERROR] server in [server]\n");
}
$server_n++;
$server_i = $server_n;
push(@sv, $arg);
push(@sv_port, '6667');
push(@sv_pass, '');
} elsif ($var eq 'port') {
$arg =~ s/\s+//g;
if ($arg =~ /[^\d,]/) {
&down("[ERROR] port in [server]\n");
} elsif ($server_n == -1) {
&down("[ERROR] no server before port in [server]\n");
}
$sv_port[$server_n] = $arg;
} elsif ($var eq 'password') {
if ($server_n == -1) {
&down("[ERROR] no server before password in [server]\n");
}
$sv_pass[$server_n] = $arg;
}
|
