Rev 11 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed
#!/usr/bin/php
<?php
#
# VGWhoIs (ViaThinkSoft Global WhoIs, a fork of generic Whois / gwhois)
# Maintenance / Developer utilities
#
# (c) 2012-2019 by Daniel Marschall, ViaThinkSoft <info@daniel-marschall.de>
#
# License: https://www.gnu.org/licenses/gpl-2.0.html (GPL version 2)
#
error_reporting(E_ALL | E_NOTICE | E_STRICT | E_DEPRECATED);
require_once __DIR__ . '/config.inc.php';
require_once __DIR__ . '/../../shared/php_includes/common_functions.inc.php';
/** @var array $rirs */
/** @var array $supports_extended_rirstat */
/** @var array $rir_whois_server */
/** @var array $rir_domain */
/** @var array $rirstat_urls */
/** @var array $ipv4_additional_params */
/** @var array $ipv6_additional_params */
/** @var array $asn_additional_params */
/** @var array $tld_additional_params */
require_once __DIR__ . '/rirs.inc.php';
if (USE_IANA_DATA) {
echo "IPv6 Preparation: Get IANA delegation file\n";
$iana_root_data = explode("\n", cached_file(IANA_IPV6_ASSIGNMENTS, CACHE_FILE_DIR));
$iana_root_data = array_map('trim', $iana_root_data);
$iana_root_ver = trim(str_replace('-', '', $iana_root_data[3]));
$iana_root_data = grep($iana_root_data, 'whois.');
}
foreach ($rirs as &$rir) {
$step = 0;
$out = '';
$loc_rir_whois_server = $rir_whois_server[$rir];
if (USE_RIR_STAT_DATA) {
$step++;
echo "IPv6 $rir: Step $step - Get RIR statistics file\n";
$rirstat_url = $rirstat_urls[$rir];
$rirstat_file = explode("\n", cached_file($rirstat_url, CACHE_FILE_DIR));
$rirstat_file = antigrep($rirstat_file, '#');
$tmp = explode('|', $rirstat_file[0]);
$rirstat_ver = $tmp[5]; // enddate
# $rirstat_ver = substr($rirstat_ver, 0, 4) . '-' . substr($rirstat_ver, 4, 2) . '-' . substr($rirstat_ver, 6, 2);
unset($tmp);
$out .= "#: version $rirstat_ver\n\n";
} else if (USE_IANA_DATA) {
$out .= "#: version $iana_root_ver\n\n";
} else {
fwrite(STDERR, "Configuration error: USE_RIR_STAT_DATA and USE_IANA_DATA cannot be both false.\n");
exit(1);
}
$out .= "# ".strtoupper($rir)." IPv6\n";
$out .= "# Automatically generated by ".__DIR__."/vgwhois-pattern-update\n";
$out .= "# Generation timestamp: ".date('Y-m-d H:i:s \G\M\TO')."\n";
if (USE_IANA_DATA) $out .= "# Source: ($iana_root_ver) ".IANA_IPV6_ASSIGNMENTS."\n";
if (USE_RIR_STAT_DATA) $out .= "# Source: ($rirstat_ver) $rirstat_url\n";
$out .= "\n";
$out .= ":whois|$loc_rir_whois_server";
if ($ipv6_additional_params[$rir] != '') {
$out .= '|prefix='.$ipv6_additional_params[$rir].'|';
}
$out .= "\n";
$iana_blocks = array();
if (USE_IANA_DATA) {
$step++;
echo "IPv6 $rir: Step $step - Parse IANA root blocks\n";
$loc_roots = grep($iana_root_data, $loc_rir_whois_server);
$iana_ary = array();
foreach ($loc_roots as &$lr) {
$lr = trim($lr);
$tmp = explode(' ', $lr, 2);
$lr = $tmp[0];
unset($tmp);
$lr = preg_replace('|^0*|s', '', $lr);
// Break up the CIDR
$ary = explode('/', $lr, 2);
$bry = ipv6_cidr2range($ary[0], $ary[1]);
$iana_blocks[$bry[0]] = $bry[1];
}
}
$rir_blocks = array();
if (USE_RIR_STAT_DATA) {
$step++;
echo "IPv6 $rir: Step $step - Parse RIR blocks\n";
# $rirstat_file = grep($rirstat_file, 'ipv6');
# $rirstat_file = antigrep($rirstat_file, 'summary');
## array_shift($rirstat_file); // header line
foreach ($rirstat_file as &$x) {
$x = trim($x);
if ($x == '') continue;
$ary = explode('|', $x);
# arin|* |asn|* |22244|summary
# ^0 ^1 ^2 ^3 ^4 ^5
if ($ary[5] == 'summary') continue;
# Example:
# afrinic|KE|ipv6|2c0f:fe88::|32|20100728|allocated
# ^0 ^1 ^2 ^3 ^4 ^5 ^6
# 2.1AP resp 2.3 (= extended) are compatible with 2.0
$type = $ary[2];
if ($type != 'ipv6') continue;
$baseip = $ary[3];
$cidr = $ary[4];
# $state = $ary[6];
$range = ipv6_cidr2range($baseip, $cidr);
$topip = $range[1];
$rir_blocks[$baseip] = $topip;
}
}
if (USE_IANA_DATA && USE_RIR_STAT_DATA) {
# Use both
$step++;
echo "IPv6 $rir: Step $step - Merging RIR and IANA stats\n";
$blocks_merged = ipv6_merge_arrays($rir_blocks, $iana_blocks);
} else if (USE_IANA_DATA) {
# Use only IANA
$blocks_merged = $iana_blocks;
} else if (USE_RIR_STAT_DATA) {
# Use only RIR data
$blocks_merged = $rir_blocks;
} else {
fwrite(STDERR, "Configuration error: USE_RIR_STAT_DATA and USE_IANA_DATA cannot be both false.\n");
exit(1);
}
$step++;
$blocks_merged = ipv6_merge_address_blocks($blocks_merged, "IPv6 $rir: Step $step - ");
// --- CIDR finden und ausgeben ---
$step++;
echo "IPv6 $rir: Step $step - Analyze address ranges and write CIDR blocks\n";
foreach ($blocks_merged as $baseip => &$topip) {
if (INCLUDE_BLOCK_RANGE_COMMENTS) $out .= "# $baseip - $topip\n";
$cidrs = ipv6_range2cidr($baseip, $topip);
foreach ($cidrs as &$cidr) {
$out .= "=$cidr\n";
}
}
# --- Write to file ---
$step++;
echo "IPv6 $rir: Step $step - Write to output file\n";
$h = fopen(PATTERN_DIR."/ipv6_$rir", 'w') or die("Error opening file ".PATTERN_DIR."/ipv6_$rir");
fwrite($h, $out) or die('Could not write to output file');
fclose($h);
}
echo "IPv6 Finished!\n";