ljr/ljcom/bin/maint/aliases.pl

14 lines
282 B
Perl
Raw Normal View History

2019-02-05 21:49:12 +00:00
#!/usr/bin/perl
#
$maint{'makealiases'} = sub
{
my $dbh = LJ::get_dbh("master");
foreach (keys %LJ::FIXED_ALIAS) {
$dbh->do("REPLACE INTO email_aliases (alias, rcpt) VALUES (?,?)",
undef, "$_\@$LJ::USER_DOMAIN", $LJ::FIXED_ALIAS{$_});
}
};
1;