Mercurial > hg > anonet-resdb

comparison contrib/whoisd/whoisd.pl @ 1244:f1d3deaa98d2 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
forgot to add an i to the second place I have the AS query regex. -_-"
author epoch <epoch@hack.thebackupbox.net>
date Sat, 21 Mar 2020 08:58:32 +0000
parents b8624e57fd96
children
comparison
equal deleted inserted replaced
1243:b8624e57fd96 1244:f1d3deaa98d2
255 ASN_lookup(); 255 ASN_lookup();
256 } 256 }
257 #printf "%-20s %s\n", "notice:","$QUERY did not claim any domains yet"; 257 #printf "%-20s %s\n", "notice:","$QUERY did not claim any domains yet";
258 } 258 }
259 259
260 if($QUERY =~ m/^AS(.+?)$/) { 260 if($QUERY =~ m/^AS(.+?)$/i) {
261 $user=get_user_from_ASN($1); 261 $user=get_user_from_ASN($1);
262 } 262 }
263 elsif($QUERY =~ m/^(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)$/) { 263 elsif($QUERY =~ m/^(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)$/) {
264 $user=get_user_from_IPv4($QUERY); 264 $user=get_user_from_IPv4($QUERY);
265 } 265 }