Skip Menu |
 

This queue is for tickets about the DNS-ZoneParse CPAN distribution.

Report information
The Basics
Id: 27527
Status: new
Priority: 0/
Queue: DNS-ZoneParse

People
Owner: Nobody in particular
Requestors: mattilinnanvuori [...] yahoo.com
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



Subject: DNS::ZoneParse Unicode
Date: Mon, 11 Jun 2007 04:54:34 -0700 (PDT)
To: bug-DNS-ZoneParse [...] rt.cpan.org, sf [...] flacks.net
From: Matti Linnanvuori <mattilinnanvuori [...] yahoo.com>
Download (untitled) / with headers
text/plain 1.3k
The following is patch to allow Unicode characters: Index: C:/Documents and Settings/malinnanvuori/My Documents/gbui/trunk/src/Gb/Ext/DNS/ZoneParse.pm =================================================================== --- C:/Documents and Settings/malinnanvuori/My Documents/gbui/trunk/src/Gb/Ext/DNS/ZoneParse.pm (revision 4327) +++ C:/Documents and Settings/malinnanvuori/My Documents/gbui/trunk/src/Gb/Ext/DNS/ZoneParse.pm (revision 7033) @@ -181,7 +181,7 @@ my ($self, $zonefile, $contents, $origin) = @_; $self->_initialize(); - my $chars = qr/[a-z\-\.0-9]+/i; + my $chars = qr/[\-\.\p{IsAlnum}]+/i; $contents =~ /Database file ($chars)( dns)? for ($chars) zone/si; $dns_id{$self} = $self -> _massage({ ZoneFile => $1 || $zonefile, @@ -189,8 +189,8 @@ }); my $records = $self->_clean_records($contents); - my $valid_name = qr/[\@a-z_\-\.0-9\*]+/i; - my $valid_ip6 = qr/[\@a-z_\-\.0-9\*:]+/i; + my $valid_name = qr/[\@\p{IsAlnum}_\-\.\*]+/i; + my $valid_ip6 = qr/[\@\p{IsAlnum}_\-\.\*:]+/i; my $rr_class = qr/\b(?:IN|HS|CH)\b/i; my $rr_type = qr/\b(?:NS|A|CNAME)\b/i; my $rr_ttl = qr/(?:\d+[wdhms]?)+/i; __________________________________ Yahoo! Clever: Stellen Sie Fragen und finden Sie Antworten. Teilen Sie Ihr Wissen. www.yahoo.de/clever
CC: sf [...] flacks.net
Subject: [rt.cpan.org #27527] DNS::ZoneParse Unicode
Date: Tue, 12 Jun 2007 22:29:16 -0700 (PDT)
To: bug-DNS-ZoneParse [...] rt.cpan.org
From: Matti Linnanvuori <mattilinnanvuori [...] yahoo.com>
Download (untitled) / with headers
text/plain 1.3k
The previous patch incorrectly accepted Unicode characters as IPv6 addresses. The following is a more correct patch: Index: C:/Documents and Settings/malinnanvuori/My Documents/gbui/trunk/src/Gb/Ext/DNS/ZoneParse.pm =================================================================== --- C:/Documents and Settings/malinnanvuori/My Documents/gbui/trunk/src/Gb/Ext/DNS/ZoneParse.pm (revision 4327) +++ C:/Documents and Settings/malinnanvuori/My Documents/gbui/trunk/src/Gb/Ext/DNS/ZoneParse.pm (revision 7036) @@ -181,7 +181,7 @@ my ($self, $zonefile, $contents, $origin) = @_; $self->_initialize(); - my $chars = qr/[a-z\-\.0-9]+/i; + my $chars = qr/[\-\.\p{IsAlnum}]+/i; $contents =~ /Database file ($chars)( dns)? for ($chars) zone/si; $dns_id{$self} = $self -> _massage({ ZoneFile => $1 || $zonefile, @@ -189,7 +189,7 @@ }); my $records = $self->_clean_records($contents); - my $valid_name = qr/[\@a-z_\-\.0-9\*]+/i; + my $valid_name = qr/[\@\p{IsAlnum}_\-\.\*]+/i; my $valid_ip6 = qr/[\@a-z_\-\.0-9\*:]+/i; my $rr_class = qr/\b(?:IN|HS|CH)\b/i; my $rr_type = qr/\b(?:NS|A|CNAME)\b/i; Show quoted text
__________________________________________________ Do You Yahoo!? Sie sind Spam leid? Yahoo! Mail verfügt über einen herausragenden Schutz gegen Massenmails. http://mail.yahoo.com


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.