Listing 2 nodes.pl

#! /usr/bin/perl

sub dev_image ($) { return shapefile => './images/'
            . ($_[0] || 'router') . '.gif'; }

our %device_node = (
    rank => 'device',
    fontname => 'Helvetica',
    peripheries => 0,
    cluster => {
    fontname => 'Helvetica',
    name => 'Devices',
    style => 'dashed',
    }
);

our %interface_node = (
    fillcolor => 'purple',
    color => 'blue',
    fontname => 'Helvetica',
    fontcolor => 'cyan',
    style => 'filled',
    shape => 'ellipse',
    rank => 'interface',
    cluster => {
    fontname => 'Helvetica',
    name => 'Interfaces',
    style => 'dashed',
    },
);


our %subnet_node = (
    shapefile => './images/subnet.gif',
    fontname => 'Helvetica',
    peripheries => 0,
    rank => 'subnet',
    cluster => {
    fontname => 'Helvetica',
    name => 'Networks',
    style => 'dashed',
    },
);

our %endpoint_node = (
    shapefile => './images/endpoint.gif',
    fixedsize => 1,
    fontname => 'Helvetica',
    rank => 'endpoint',
    peripheries => 0,
    cluster => {
    fontname => 'Helvetica',
    name => 'Endpoints',
    style => 'dashed',
    },
);

our %if_edge = (
    style => 'bold',
    color => 'blue',
    fontname => 'Helvetica',
    fontsize => 8,
);


our %addr_edge = (
    style => 'bold',
    color => 'orange',
    fontname => 'Helvetica',
    fontsize => 8,
);

our %assignment_edge = (
    style => 'dashed',
    color => 'orange',
    fontname => 'Helvetica',
    fontsize => 8,
);

our %sighting_edge = (
    style => 'dashed',
    color => 'purple',
    fontname => 'Helvetica',
    fontsize => 8,
);

our %graph_options = (
    layout => 'twopi', 
    fontname => 'Helvetica',
    directed => 0,
#    center => 1,
    height => 11,
    width => 8,
    pageheight => 11,
    pagewidth => 8,
    ratio => 'compress',
);

1;