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
|
# madoka 4.2 autodown
#
# down.mpi
# Copyright(c)1998- cookie / The madoka project
#
&list_add($per_hour, 'autodown');
1;
sub autodown {
my $i;
if (vec($at_state, 3, 1) == 1) {
$at_down_tm-- if $at_down_tm > 0;
if ($at_down_tm == 0) {
for ($i = 0; $i <= $cl_max; $i++) {
if (vec($cl_cn, $i, 1)) {
$at_down_tm++;
return;
}
}
&mes("[!] auto down\n", 'ALL');
&send('sv', "QUIT :$mes_down\n");
close(SERVER);
foreach (@listen) {
close($_);
}
for ($i = 0; $i <= $cl_max ; $i++) {
next unless vec($cl_cn, $i, 1);
close($cl[$i]);
}
exec $^X, $MDK, @ARG;
}
}
}
|
