X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/odin-cgi/blobdiff_plain/67a39cadbb476515f847e63eba9b121e65eb97b1..c68a55498f50946e8fca9361386e11769c63aa4e:/lib/Odin.pm

diff --git a/lib/Odin.pm b/lib/Odin.pm
index a742839..154fae0 100644
--- a/lib/Odin.pm
+++ b/lib/Odin.pm
@@ -550,7 +550,7 @@ sub gen_redir_name ($$) {
   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 = ?",
@@ -586,7 +586,8 @@ sub new_redir ($$\%;$) {
     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} // "";