"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "make_tld_serv.pl" between
whois_5.5.3.tar.xz and whois_5.5.4.tar.xz

About: whois is an improved whois client (searching in a RFC-3912 database)

make_tld_serv.pl  (whois_5.5.3.tar.xz):make_tld_serv.pl  (whois_5.5.4.tar.xz)
skipping to change at line 18 skipping to change at line 18
s/#.*$//; s/#.*$//;
s/^\s+//; s/\s+$//; s/^\s+//; s/\s+$//;
next if /^$/; next if /^$/;
die "format error: $_" if not die "format error: $_" if not
(my ($a, $b) = /^\.(\w[\w\d\.-]+)\s+([\w\d\.:-]+|[A-Z]+\s+.*)$/); (my ($a, $b) = /^\.(\w[\w\d\.-]+)\s+([\w\d\.:-]+|[A-Z]+\s+.*)$/);
$b =~ s/^W(?:EB)?\s+/\\x01/; $b =~ s/^W(?:EB)?\s+/\\x01/;
$b =~ s/^VERISIGN\s+/\\x04" "/; $b =~ s/^VERISIGN\s+/\\x04" "/;
$b = "\\x03" if $b eq 'NONE'; $b = "\\x03" if $b eq 'NONE';
$b = "\\x08" if $b eq 'AFILIAS'; $b = "\\x08whois.afilias-grs.info" if $b eq 'AFILIAS';
$b = "\\x08$b" if $b eq 'whois.registry.in';
$b = "\\x0C" if $b eq 'ARPA'; $b = "\\x0C" if $b eq 'ARPA';
$b = "\\x0D" if $b eq 'IP6'; $b = "\\x0D" if $b eq 'IP6';
print qq| "$a",\t"$b",\n|; print qq| "$a",\t"$b",\n|;
} }
 End of changes. 1 change blocks. 
1 lines changed or deleted 2 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)