#!/usr/bin/php
<?php

// Note: The GW generators have newer code
// Note: Copied again from ../rir-delegations/

error_reporting(E_ALL | E_NOTICE | E_STRICT | E_DEPRECATED);

define('USE_CACHE', true);

// ---

require_once __DIR__ . '/grep_funcs.inc.phps';
require_once __DIR__ . '/rirs.inc.phps';

// This is like __DIR__, but does not resolve symlinks
// (useful for sharing the source codes locally by symlinking)
define('DIR', dirname($_SERVER['SCRIPT_FILENAME']));

$yyy = array();

foreach ($rirs as &$rir) {
	if (USE_CACHE) {
		$rirstat_file = file(DIR . "/cache/rirstats/$rir");
	} else {
		$rirstat_file = file($rirstat_urls[$rir]);
	}

	$rirstat_file = antigrep($rirstat_file, '#');
	$rirstat_file = grep($rirstat_file, 'asn');
	$rirstat_file = antigrep($rirstat_file, 'summary');

	# ---

	echo "$rir: Step 1 - Prepare\n";

	foreach ($rirstat_file as $x) {
		$x = trim($x);
		if ($x == '') continue;

		$ary = explode('|', $x);

		# Example:
		# apnic|AU|asn|137534|1|20180327|allocated|A9113832
		# apnic|  |asn|137535|1|        |available|		(Leerzeichen hinzugefügt zur Übersichtlichkeit)
		# ^0    ^1 2   ^3     ^4^5       ^6

		# $country = $ary[1];
		$asn = $ary[3];
		$nums = $ary[4];
		# $state = $ary[6];

		for ($i=0; $i<$nums; $i++) {
			$yyy[$rir][$asn+$i] = true;
		}

	}
}

ksort($yyy);

$written_files = array();

foreach ($yyy as $rir => $asns) {
	echo "$rir: Step 2 - Analyze address ranges and write ASN blocks\n";

	$rir = strtolower($rir);

	$f = fopen(DIR . "/out/asn_{$rir}.new", 'w');

	$start = null;
	knatsort($asns);
	foreach ($asns as $asn => $dummy) {
		if (is_null($start)) {
			$start = $asn;
		} else {
			if ($prev+1 != $asn) {
				$ende = $prev;
				if ($start == $ende) {
					fwrite($f, "AS$start\n");
				} else {
					fwrite($f, "AS$start-AS$ende\n");
				}
				$start = $asn;
			}
		}
		$prev = $asn;
	}

	fclose($f);

	rename(DIR . "/out/asn_{$rir}.new", DIR . "/out/asn_{$rir}");

	$written_files[] = DIR . "/out/asn_{$rir}";
}

$all_files = glob(DIR . "/out/asn_*");
foreach ($all_files as $file) {
	if (!in_array($file, $written_files)) {
		unlink($file);
		echo "Deleted because not touched: $file\n";
	}
}

echo "Finished!\n";

# ---

function knatsort(&$arr){return uksort($arr,function($a, $b){return strnatcmp($a,$b);});}