#!/usr/bin/perl -w

use strict (qw(vars));

use CommodsDatabase;

my $ocean= shift @ARGV;

db_setocean($ocean);
db_connect();
my $islands= $dbh->selectall_arrayref('
	SELECT islandid,islandname FROM islands;
');
my $routes= $dbh->selectall_arrayref('
	SELECT aiid, biid, dist	FROM routes;
');
$dbh->disconnect();

#use Data::Dumper;
#print Dumper($results);

print "strict graph $ocean {\n";
print "    splines=true;\n";
print "    nslimit=10;\n";
print "    mclimit=10;\n";

foreach my $row (@$islands) {
    my ($id,$str) = @$row;
    $str =~ s/[\"\\]/\\$&/g;
    print "    n$id [ label=\"$str\" ];\n";
}
foreach my $row (@$routes) {
    my ($ia,$ib,$dist) = @$row;
    print "    n$ia -- n$ib [ w=".(1.0/($dist*$dist)).", len=".(0.5*$dist+1).", label=$dist ];\n";
    #len=$dist, minlen=$dist, , ,
    #w=".(1.0/$dist).", 
}

print "}\n";