chiark
/
gitweb
/
~ijackson
/
d.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
qualdom not dom
[d.git]
/
fyvzl
diff --git
a/fyvzl
b/fyvzl
index b8ab577d68791e08700ecf27ab2d8bad3e648048..97b1d9b4e7dca71e2d9bb72a96e046445be592a1 100755
(executable)
--- a/
fyvzl
+++ b/
fyvzl
@@
-1,6
+1,6
@@
#!/usr/bin/perl -w
#
#!/usr/bin/perl -w
#
-# usage: ../fyvzl [-lLENGTH] [-mMAXPERUSER] [-
dDEF
DOM] DATABASE-FILE ACTION ARG
+# usage: ../fyvzl [-lLENGTH] [-mMAXPERUSER] [-
qQUAL
DOM] DATABASE-FILE ACTION ARG
# actions
# create [REDIRECT-TO]
# update LOCAL-PART REDIRECT-TO
# actions
# create [REDIRECT-TO]
# update LOCAL-PART REDIRECT-TO
@@
-20,7
+20,7
@@
use POSIX;
our $randlength = 6;
our $maxperuser = 10000;
our $randlength = 6;
our $maxperuser = 10000;
-our $
def
dom;
+our $
qual
dom;
our $dbh;
our $user;
our $priv;
our $dbh;
our $user;
our $priv;
@@
-76,8
+76,8
@@
sub goodrand ($) {
sub qualify ($) {
my ($t) = @_;
return $t if $t =~ m/\@/;
sub qualify ($) {
my ($t) = @_;
return $t if $t =~ m/\@/;
- die "unqualified redirection target\n" unless defined $
def
dom;
- return $t.'@'.$
def
dom;
+ die "unqualified redirection target\n" unless defined $
qual
dom;
+ return $t.'@'.$
qual
dom;
}
sub insertrow ($) {
}
sub insertrow ($) {
@@
-216,8
+216,8
@@
while (@ARGV) {
$randlength = $1;
} elsif (m/^-m(\d+)$/) {
$maxperuser = $1;
$randlength = $1;
} elsif (m/^-m(\d+)$/) {
$maxperuser = $1;
- } elsif (m/^-
d
(\S+)$/) {
- $
def
dom = $1;
+ } elsif (m/^-
q
(\S+)$/) {
+ $
qual
dom = $1;
} else {
die "unknown option \`$_'\n";
}
} else {
die "unknown option \`$_'\n";
}