/[suikacvs]/messaging/manakai/lib/Message/Field/MsgID.pm
Suika

Diff of /messaging/manakai/lib/Message/Field/MsgID.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by wakaba, Sat Jun 15 07:15:59 2002 UTC revision 1.8 by wakaba, Sun Jun 16 10:42:06 2002 UTC
# Line 107  sub _newid ($\%) { Line 107  sub _newid ($\%) {
107      $$o{login} = $1; $$o{fqdn} = $2;      $$o{login} = $1; $$o{fqdn} = $2;
108    }    }
109    if ($self->{option}->{validate} && $$o{fqdn} =~    if ($self->{option}->{validate} && $$o{fqdn} =~
110       /[.@](example\.(?:com|org|net)|localdomain|localhost|example|invalid|arpa)$/) {       /[.@](example\.(?:com|org|net)|localdomain|localhost|example|invalid|test|arpa)$/) {
111        Carp::croak "Msg-ID generation: invalid TLD of FQDN: .$1";        Carp::croak "Msg-ID generation: invalid TLD of FQDN: .$1";
112    }    }
113    if (!$$o{fqdn} && $$o{ip_address}) {    if (!$$o{fqdn} && $$o{ip_address}) {
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24