cmd/set/address.pl

   1 #
   2 # set the address field
   3 #
   4 # Copyright (c) 1998 - Dirk Koopman
   5 #
   6 # $Id$
   7 #
   8
   9 my ($self, $line) = @_;
  10 my $call;
  11 my @out;
  12 my $user;
  13
  14 if ($self->priv >= 5) {             # allow a callsign as first arg
  15   my @args = split /\s+/, $line;
  16   $call = UC $args[0];
  17   $user = DXUser->get_current($call);
  18   shift @args if $user;
  19   $line = join ' ', @args;
  20 } else {
  21   $call = $self->call;
  22   $user = $self->user;
  23 }
  24
  25 $user->addr($line);
  26 push @out, $self->msg('addr', $call, $line);
  27
  28 return (1, @out);