From b20a9b066bae723e46f638106a886c1cff706f13 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Sun, 1 Apr 2001 15:23:56 +0000
Subject: [PATCH] fix agwrestart

---
 Changes           | 3 +++
 cmd/agwrestart.pl | 2 +-
 perl/AGWMsg.pm    | 2 +-
 perl/cluster.pl   | 8 +++++++-
 4 files changed, 12 insertions(+), 3 deletions(-)

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"));
-- 
2.43.0