{
    use esmith::NetworksDB;
    my $db = esmith::NetworksDB->open_ro;
    
    unless ($db)
    {
	warn "Could not open networks db\n";
	return undef;
    }

    my $device = $InternalInterface{Name};
    unless ($device)
    {
	warn("Can't determine device name for local network");
	return undef;
    }

    foreach my $network ($db->get_all)
    {
	# Skip local network
	my $system = $network->prop('SystemLocalNetwork') || "no";
	next if $system eq "yes";

	# Skip anything we don't know how to or don't need to route
	my $router = $network->prop('Router');
	next unless $router;
	next if $router eq "default";

	my $netmask = $network->prop('Mask');
	my $net = $network->key;
	$OUT .= "$device net $net netmask $netmask gateway $router\n";
    }
}
