]> www.dxcluster.org Git - spider.git/blob - cmd/set/address.pl
fixed import export
[spider.git] / 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 $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);