log isolates

diff --git a/Changes b/Changes
index 43c52a9e42633f45c7d3fed4f810ecf9d5509f96..f842cdfc2a2ed5ac9de2af3db5eafdc525361d18 100644 (file)
--- a/Changes
+++ b/Changes
@@ -3,6 +3,7 @@
 2. added new version of FAQ from Ian G0VGS
 3. added a dummy PC75 command (WCY merge?)
 4. Don't allow mail routing for clx nodes
+5. Log isolates
 25Aug00=======================================================================
 1. moan about and then delete empty message files
 24Aug00=======================================================================

diff --git a/cmd/set/isolate.pl b/cmd/set/isolate.pl
index 7049ce92a449e0962825390dce7a81f2d7b136e1..9513a65e597a728651dd2db45415595a20dbf7eb 100644 (file)
--- a/cmd/set/isolate.pl
+++ b/cmd/set/isolate.pl
@@ -30,6 +30,7 @@ foreach $call (@args) {
                        $user->isolate(1);
                        $user->close();
                        push @out, $self->msg($create ? 'isoc' : 'iso', $call);
+                       Log('DXCommand', $self->msg($create ? 'isoc' : 'iso', $call));
                } else {
                        push @out, $self->msg('e3', "Set/Isolate", $call);
                }

diff --git a/cmd/unset/isolate.pl b/cmd/unset/isolate.pl
index c575fa13102ce8254efafc1779c28fcea013256a..ecf033173ca322a563813582cf3df9140a5c1552 100644 (file)
--- a/cmd/unset/isolate.pl
+++ b/cmd/unset/isolate.pl
@@ -28,6 +28,7 @@ foreach $call (@args) {
                $user->isolate(0);
                $user->close();
                push @out, $self->msg('isou', $call);
+               Log('DXCommand', $self->msg('isou', $call));
        }
 }
 return (1, @out);