("SELECT lpart, expire, recip, comment
FROM odin_mailredir WHERE dom = ? AND owner = ?" .
(defined $cond ? " AND $cond" : "") . " " .
- "ORDER BY expire", undef, $dom, $owner, @args)};
+ "ORDER BY expire, lpart", undef, $dom, $owner, @args)};
}
sub clear_redir_reservations ($) {
my ($db, $gen) = @_;
for (my $try = 0; $try < $MAIL_MAXGENTRY; $try++) {
- my $l = $gen->gen;
+ my $l = lc $gen->gen;
return $l
unless $db->selectrow_arrayref
("SELECT 1 FROM odin_mailredir WHERE lpart = ? AND dom = ?",
while (@l < $n) {
my $l = Odin::gen_redir_name $db, $gen;
insert_record $db, "odin_mailredir",
- lpart => $l, dom => $dom, owner => $WHO, st => 'live',
+ lpart => $l, dom => $dom, st => 'live',
+ owner => $WHO, creator => $WHO,
recip => $r->{recip} // qualify_recip $Odin::WHO,
expire => $r->{expire} // -1,
comment => $r->{comment} // "";