fix agwrestart

diff --git a/Changes b/Changes
index 42885c834bac412047c3d6423b6c21a8ae971bbc..63711b810c3dbc74f6b86b8eaaae0a9e099e5e3b 100644 (file)
--- 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 3e44ef8dde801e66312b2faf82985487b8d93cfc..b9070573cfb7007cdf60507be97544c9537173f9 100644 (file)
--- 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 46d3f39206491d8607f402aee1d8a7eced5c91a4..a3253a5e44957e8af30cdd4a5bd6debd5e3d0def 100644 (file)
--- 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 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;
 }
+
+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"));