Subversion Repositories vgwhois

Rev

Rev 17 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 17 Rev 68
Line 2... Line 2...
2 
 
 2 
 
3 
#
 3 
#
4 
#  VGWhoIs (ViaThinkSoft Global WhoIs, a fork of generic Whois / gwhois)
 4 
#  VGWhoIs (ViaThinkSoft Global WhoIs, a fork of generic Whois / gwhois)
5 
#  Main program
 5 
#  Main program
6 
#
 6 
#
7 
#  (c) 2010-2019 by Daniel Marschall, ViaThinkSoft <info@daniel-marschall.de>
 7 
#  (c) 2010-2021 by Daniel Marschall, ViaThinkSoft <info@daniel-marschall.de>
8 
#  based on the code (c) 1998-2010 by Juliane Holzt <debian@kju.de>
 8 
#  based on the code (c) 1998-2010 by Juliane Holzt <debian@kju.de>
9 
#  Some early parts by Lutz Donnerhacke <Lutz.Donnerhacke@Jena.Thur.de>
 9 
#  Some early parts by Lutz Donnerhacke <Lutz.Donnerhacke@Jena.Thur.de>
10 
#
 10 
#
11 
#  License: https://www.gnu.org/licenses/gpl-2.0.html (GPL version 2)
 11 
#  License: https://www.gnu.org/licenses/gpl-2.0.html (GPL version 2)
12 
#
 12 
#
Line 255... Line 255...
255 
			# No		Handle	No*		Maybe
 255 
			# No		Handle	No*		Maybe
256 
			# ------------------------------------------------
 256 
			# ------------------------------------------------
257 
			# * = but it is unlikely that a handle contains non-latin characters
 257 
			# * = but it is unlikely that a handle contains non-latin characters
258 
 
 258 
 
259 
			# Filtering
 259 
			# Filtering
- 
 
 260 
			no warnings 'utf8'; # TODO: We get the error "Malformed UTF-8 character: xc2x5d" if we search for "oid:2.999"
260 
			$query =~ y/[\x{00A0}-\x{FFFF}]a-zA-Z0-9:.,+_ -//cd;
 261 
			$query =~ y/[\x{00A0}-\x{FFFF}]a-zA-Z0-9:.,+_ -//cd;
261 
			$query =~ s/\.$//;
 262 
			$query =~ s/\.$//;
262 
			my $query_utf8_filtered = VGWhoIs::Utils::enforce_utf8($query);
 263 
			my $query_utf8_filtered = VGWhoIs::Utils::enforce_utf8($query);
263 
			if ( $query_utf8 ne $query_utf8_filtered ) {
 264 
			if ( $query_utf8 ne $query_utf8_filtered ) {
264 
				# QUE: warn or print?
 265 
				# QUE: warn or print?