From: minima Date: Sun, 1 Apr 2001 15:23:56 +0000 (+0000) Subject: fix agwrestart X-Git-Tag: R_1_47~51 X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=b20a9b066bae723e46f638106a886c1cff706f13;p=spider.git fix agwrestart --- diff --git a/Changes b/Changes index 42885c83..63711b81 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,6 @@ +01Apr01======================================================================= +1. changed agwrestart semantics. You need to use main::agwrestart() in your +crontabs rather than AGWMsg::init(); 31Mar01======================================================================= 1. added agwrestart command 2. add Iains Windoze installation manual (g0vgs) diff --git a/cmd/agwrestart.pl b/cmd/agwrestart.pl index 3e44ef8d..b9070573 100644 --- a/cmd/agwrestart.pl +++ b/cmd/agwrestart.pl @@ -5,5 +5,5 @@ # my $self = shift; return (1, $self->msg('e5')) if $self->priv < 5; -AGWMsg::init(); +main::AGWrestart(); return (1, $self->msg('done')); diff --git a/perl/AGWMsg.pm b/perl/AGWMsg.pm index 46d3f392..a3253a5e 100644 --- a/perl/AGWMsg.pm +++ b/perl/AGWMsg.pm @@ -213,7 +213,7 @@ FINISH: sub _error { - dbg('agw', "error on AGW connection $addr/$port $!"); + dbg('err', "error on AGW connection $addr/$port $!"); Msg::set_event_handler($sock, read=>undef, write=>undef, error=>undef); $sock = undef; for (%circuit) { diff --git a/perl/cluster.pl b/perl/cluster.pl index 0c12e3a9..185ec787 100755 --- 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; } + +sub AGWrestart +{ + AGWMsg::init(\&new_channel); +} + ############################################################# # # The start of the main line of code @@ -371,7 +377,7 @@ for (@main::listen) { push @listeners, $conn; dbg('err', "External Port: $_->[0] $_->[1]"); } -AGWMsg::init(\&new_channel); +AGWrestart(); # load bad words dbg('err', "load badwords: " . (BadWords::load or "Ok"));