--- /dev/null
+#!/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 " nodesep=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 [ len=2, label=$dist ];\n";
+ #len=$dist, minlen=$dist, weight=".(1.0/$dist).", len=".($dist*0.25+1).",
+ #w=".(1.0/$dist).",
+}
+
+print "}\n";