cmd/set/address.pl

   1 #
   2 # set the address field
   3 #
   4 # Copyright (c) 1998 - Dirk Koopman
   5 #
   6 #
   7 #
   8
   9 my ($self, $line) = @_;
  10 my $call;
  11 my @out;
  12 my $user;
  13
  14 $user = $self->user;
  15 $line =~ s/[{}]//g;   # no braces allowed
  16 $user->addr($line);
  17 push @out, $self->msg('addr', $line);
  18
  19 return (1, @out);