projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix agwrestart
[spider.git]
/
perl
/
cluster.pl
diff --git
a/perl/cluster.pl
b/perl/cluster.pl
index 0c12e3a9cfa332047fbb5025b12c0efde3ff2fbf..185ec787af1c43b87599e7870fd54cccf816e912 100755
(executable)
--- a/
perl/cluster.pl
+++ b/
perl/cluster.pl
@@
-304,6
+304,12
@@
sub uptime
my $mins = int $t / 60;
return sprintf "%d %02d:%02d", $days, $hours, $mins;
}
my $mins = int $t / 60;
return sprintf "%d %02d:%02d", $days, $hours, $mins;
}
+
+sub AGWrestart
+{
+ AGWMsg::init(\&new_channel);
+}
+
#############################################################
#
# The start of the main line of code
#############################################################
#
# The start of the main line of code
@@
-371,7
+377,7
@@
for (@main::listen) {
push @listeners, $conn;
dbg('err', "External Port: $_->[0] $_->[1]");
}
push @listeners, $conn;
dbg('err', "External Port: $_->[0] $_->[1]");
}
-AGW
Msg::init(\&new_channel
);
+AGW
restart(
);
# load bad words
dbg('err', "load badwords: " . (BadWords::load or "Ok"));
# load bad words
dbg('err', "load badwords: " . (BadWords::load or "Ok"));