forked from public/public
15 lines
304 B
Perl
15 lines
304 B
Perl
sub route {
|
|
my ($request, $response) = @_;
|
|
my $sms = ${$request}{qe};
|
|
my $dest = $sms->{DESTADDR};
|
|
my @parts = split('@', $dest);
|
|
return 0 if (scalar @parts < 2);
|
|
foreach $ch (split //, $parts[0]) {
|
|
if (ord($ch) > 127) {
|
|
$response->{route} = 'smtp-out-utf8';
|
|
return 0;
|
|
}
|
|
}
|
|
return 0;
|
|
}
|
|
|