allow users to see there own talk and log messages

changed date on who to start date/time rather than last in time

diff --git a/Changes b/Changes
index 0960610992ef1e01df533509150df11a45c14c45..3e3facdf84b268e7941a27b0e800c5599547dbd2 100644 (file)
--- 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 26b99ef213fc062a514edf47012e2b6a7dd0c3bd..bced585507c753b95bf4420131544a4537fa1760 100644 (file)
--- 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 f30d95ec57e9676e29f87cfdb772d242b70fe82e..93b0ab9a8a70275e5b462793bb8ad130a34eb963 100644 (file)
--- 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 9aae345d69e53fece8ee1a4880efa155dd6d0354..68b6c9a9ccd28b98bd33a2563cd0a772693b1691 100644 (file)
--- 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) : "";