From: djk Date: Tue, 22 Dec 1998 00:52:54 +0000 (+0000) Subject: added set/password X-Git-Tag: R_1_14^0 X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=4f4cd7ea04f04162f2e755981b4c716deb792cef;p=spider.git added set/password added brackets for nohere --- diff --git a/Changes b/Changes index 58f0b328..8b4c925d 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,6 @@ +22Dec98======================================================================== +1. Added brackets round callsign if not here for prompt +2. Added Iain's set/password routine 21Dec98============= late! ==================================================== 1. fixed problem with missing DXDebug in DXProt. 2. Fixed DXDebug so that it actually works as advertised with and without diff --git a/cmd/set/password.pl b/cmd/set/password.pl index e69de29b..b408278d 100644 --- a/cmd/set/password.pl +++ b/cmd/set/password.pl @@ -0,0 +1,30 @@ +# +# set a user's password +# +# Copyright (c) 1998 Iain Phillips G0RDI +# 21-Dec-1998 +# +# Syntax: set/pass +# + +my ($self, $line) = @_; +my @args = split /\s+/, $line; +my $call; +my $pass = shift @args; +my @out; +my $user; +my $ref; + +return (1, $self->msg('e5')) if $self->priv < 9; + +foreach $call (@args) { + $call = uc $call; + if ($ref = DXUser->get_current($call)) { + $ref->passwd($pass); + $ref->put(); + push @out, $self->msg("password", $call); + } else { + push @out, $self->msg('e3', 'User record for', $call); + } +} +return (1, @out); diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm index da449f72..e429654c 100644 --- a/perl/DXCommandmode.pm +++ b/perl/DXCommandmode.pm @@ -290,9 +290,7 @@ sub finish sub prompt { my $self = shift; - my $call = $self->{call}; - $self->send($self->msg('pr', $call)); - #DXChannel::msg($self, 'pr', $call); + $self->send($self->msg($self->here ? 'pr' : 'pr2', $self->call)); } # broadcast a message to all users [except those mentioned after buffer] diff --git a/perl/Messages b/perl/Messages index e43667bf..cd4b12ab 100644 --- a/perl/Messages +++ b/perl/Messages @@ -76,9 +76,12 @@ package DXM; ok => 'Operation successful', page => 'Press Enter to continue, A to abort ($_[0] lines) >', pagelth => 'Page Length is now $_[0]', + passerr => 'Please use: SET/PASS ', + password => 'Password set or changed for $_[0]', pingo => 'Ping Started to $_[0]', pingi => 'Ping Returned from $_[0] ($_[2] secs)', pr => '$_[0] de $main::mycall $main::cldate $main::ztime >', + pr2 => '($_[0]) de $main::mycall $main::cldate $main::ztime >', priv => 'Privilege level changed on $_[0]', prx => '$main::mycall >', qll => 'Please enter your location with set/location or set/qra',