projects
/
spider.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
added missing unshift for path
[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);