equal
deleted
inserted
replaced
1 #!/usr/bin/perl |
1 #!/usr/bin/perl |
2 ##$Id: dottr.pl,v ac49839c1b85 2014/10/03 12:46:32 grin $ |
2 ##$Id: dottr.pl,v ac49839c1b85 2014/10/03 12:46:32 grin $ |
3 # |
3 # |
4 # (c) Peter 'grin' Gervai, 2012 |
4 # (c) Peter 'grin' Gervai, 2012-2014 |
5 # Released under CreativeCommons-Attribution-ShareAlike-3.0-Unported |
5 # Released under CreativeCommons-Attribution-ShareAlike-4.0 |
6 # |
6 # |
7 # create .dot from racktables links |
7 # create .dot from racktables links |
8 # |
8 # |
|
9 # ./dottr.pl > map.dot |
|
10 # |
|
11 # create graphic from dot: |
|
12 # dot -Tpng -o map.png map.dot |
|
13 # dot -Tsvg -o map.svg map.dot |
9 |
14 |
10 use DBI; |
15 use DBI; |
11 use Encode; |
16 use Encode; |
12 |
17 |
13 # if 1 we do not list reserved port descriptions |
18 # if 1 we do not list reserved port descriptions |