From 28c96d575e54373562fec59176eccf2f64935e6b Mon Sep 17 00:00:00 2001
From: djk <djk>
Date: Mon, 27 Mar 2000 12:32:30 +0000
Subject: [PATCH] allow users to see there own talk and log messages changed
date on who to start date/time rather than last in time
---
Changes | 5 ++++-
cmd/show/log.pl | 6 ++++--
cmd/show/talk.pl | 6 ++++--
cmd/who.pl | 2 +-
4 files changed, 13 insertions(+), 6 deletions(-)
diff --git a/Changes b/Changes
index 09606109..3e3facdf 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
27Mar00=======================================================================
-1. updated wpxloc.raw and rsgb.cty for 4W and TX0
+1. updated wpxloc.raw and rsgb.cty for 4W and TX0.
+2. display 'start time' rather than 'user last time in' in who.
+3. Allow local users to see their own sh/talk or sh/log stuff.
+4. A more robust version of the C client.
26Mar00=======================================================================
1. first cut of C client
18Mar00=======================================================================
diff --git a/cmd/show/log.pl b/cmd/show/log.pl
index 26b99ef2..bced5855 100644
--- a/cmd/show/log.pl
+++ b/cmd/show/log.pl
@@ -7,8 +7,6 @@
#
my $self = shift;
-return (1, $self->msg('e5')) if $self->priv < 6;
-
my $cmdline = shift;
my @f = split /\s+/, $cmdline;
my $f;
@@ -32,6 +30,10 @@ while ($f = shift @f) { # next field
$to = 20 unless $to;
$from = 0 unless $from;
+if ($self->priv < 6) {
+ $who = $self->call unless $who;
+ return (1, $self->msg('e5')) if $who ne $self->call;
+}
@out = DXLog::print($from, $to, $main::systime, undef, $who);
return (1, @out);
diff --git a/cmd/show/talk.pl b/cmd/show/talk.pl
index f30d95ec..93b0ab9a 100644
--- a/cmd/show/talk.pl
+++ b/cmd/show/talk.pl
@@ -7,8 +7,6 @@
#
my $self = shift;
-return (1, $self->msg('e5')) if $self->priv < 9;
-
my $cmdline = shift;
my @f = split /\s+/, $cmdline;
my $f;
@@ -32,6 +30,10 @@ while ($f = shift @f) { # next field
$to = 20 unless $to;
$from = 0 unless $from;
+if ($self->priv < 6) {
+ $who = $self->call unless $who;
+ return (1, $self->msg('e5')) if $who ne $self->call;
+}
@out = DXLog::print($from, $to, $main::systime, '^talk', $who);
return (1, @out);
diff --git a/cmd/who.pl b/cmd/who.pl
index 9aae345d..68b6c9a9 100644
--- a/cmd/who.pl
+++ b/cmd/who.pl
@@ -15,7 +15,7 @@ push @out, " Callsign Type Started Name Ave RTT";
foreach $dxchan ( sort {$a->call cmp $b->call} DXChannel::get_all ) {
my $call = $dxchan->call();
- my $t = cldatetime($dxchan->user->lastin);
+ my $t = cldatetime($dxchan->startt);
my $sort = $dxchan->is_ak1a() ? "NODE" : "USER";
my $name = $dxchan->user->name || " ";
my $ping = $dxchan->is_ak1a && $dxchan != $DXProt::me ? sprintf("%8.2f", $dxchan->pingave) : "";
--
2.43.0