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