#!/usr/local/bin/perl

while (<>) {
	@stuff = split;
	if ($stuff[0] eq "#date") {
		@labels = @stuff;
		for ($i = 3; $labels[$i]; $i++) {
			$idx{$labels[$i]} = $i;
		}
	} elsif ($stuff[0] =~ /^\d+-\d+$/) {
		next if ($stuff[2] == 0);
		open (BAR, ">$stuff[0].bar") || die "Couldn't make file $stuff[0].bar";
		print BAR <<EOF;
#=sortbmarks
=nocommas
yformat=%g
extraops=set logscale y
extraops=set yrange [0.0005:1]
extraops=set boxwidth 0.5 relative
#xlabel=Attribute
ylabel=Fraction of IPv6 addresses
title=Results for $stuff[0]
EOF
		undef %done;
		foreach $l ("global", "APNIC", "ARIN", "AfriNIC", "LACNIC", "RIPE", "6bone", "6to4", "ULA", "doc", "link-lo", "ISATAP", "autocon", "autofff", "autothe", "low", "privacy", "random", "teredo", "v4based", "wordy") {
			$val = $stuff[$idx{$l}]/$stuff[2];
			print BAR "$l\t$val\n";
			$done{$l} = 1;
		}
		for ($i = 3; $labels[$i]; $i++) {
			next if ($labels[$i] eq "v4hits" || $labels[$i] eq "v4ips" || $labels[$i] eq "loopbac" || $done{$labels[$i]});
			$val = $stuff[$i]/$stuff[2];
			print BAR "$labels[$i]\t$val\n";
		}
		print BAR "\n";
	} else {
		#warn "$stuff[0]";
	}
}