ljr/ljcom/bin/maint/aliases.pl

14 lines
282 B
Perl

#!/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;