chiark
/
gitweb
/
~ijackson
/
evade-mail-usrlocal.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
71ccae8
)
break out addr2localpart
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Wed, 4 Sep 2013 22:00:27 +0000
(23:00 +0100)
committer
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Wed, 4 Sep 2013 22:00:27 +0000
(23:00 +0100)
service
patch
|
blob
|
history
diff --git
a/service
b/service
index 196152f26722f6863c4d45b9b632669cc340a3be..741206c8c318c691adb906e2130c876a3124fb1b 100755
(executable)
--- a/
service
+++ b/
service
@@
-48,13
+48,17
@@
sub nextarg () {
return $v;
}
-sub
nextarg_addr (
) {
- my
$addr = nextarg
;
+sub
addr2localpart ($
) {
+ my
($addr) = @_
;
return $addr if $addr !~ m/\@/;
die "address not in correct domain (\@$dom)\n" unless $' eq $dom; #';
return $`; #`;
}
+sub nextarg_addr () {
+ return addr2localpart nextarg;
+}
+
sub nomoreargs () {
die "too many arguments\n" if @ARGV;
}