From 28c96d575e54373562fec59176eccf2f64935e6b Mon Sep 17 00:00:00 2001 From: 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