1 | #!/usr/bin/env perl
|
---|
2 | use File::Basename;
|
---|
3 | use Module::Load::Conditional qw[check_install];
|
---|
4 |
|
---|
5 | if (check_install(module => 'Geo::Coordinates::RDNAP')) {
|
---|
6 | require Geo::Coordinates::RDNAP;
|
---|
7 | Geo::Coordinates::RDNAP->import(qw/from_rd to_rd dms/);
|
---|
8 | } else {
|
---|
9 | sub from_rd {
|
---|
10 | return (0,0,0);
|
---|
11 | }
|
---|
12 | }
|
---|
13 |
|
---|
14 | # RD X,Y -> RD Noorderbreedte, Oosterbreedte
|
---|
15 | # http://web.inter.nl.net/users/F.Kissels/gps/conversie.html
|
---|
16 |
|
---|
17 | # Little perl to convert genesis files into python config files,
|
---|
18 | # Which gonna be used for more logic stuff ;-)
|
---|
19 |
|
---|
20 | $argc = $#ARGV + 1;
|
---|
21 | if ($argc == 0) {
|
---|
22 | print STDERR "Usage $ENV{_} <wleiden.conf> ...\n";
|
---|
23 | $NODE_DIR = dirname(__FILE__) . "/../nodes";
|
---|
24 | @ARGV=`ls $NODE_DIR/*/wleiden.conf`;
|
---|
25 | }
|
---|
26 |
|
---|
27 | if ($argc != 1) {
|
---|
28 | # Hack to easy support multiple files without remembering any variable in between
|
---|
29 | foreach $file (@ARGV) {
|
---|
30 | chomp($file);
|
---|
31 | $output = $file;
|
---|
32 | $output =~ s/conf$/yaml/;
|
---|
33 | print "# Processing $file -> $output\n";
|
---|
34 | $CMD=dirname(__FILE__) . "/genesis-to-yaml.pl";
|
---|
35 | `$CMD $file > $output`;
|
---|
36 | }
|
---|
37 | exit 0;
|
---|
38 | }
|
---|
39 |
|
---|
40 |
|
---|
41 | do($ARGV[0]) || die;
|
---|
42 |
|
---|
43 | my %status_labels = ( up => 'up', down => 'dw', planned => 'pl' );
|
---|
44 |
|
---|
45 | $interfaces = [];
|
---|
46 | foreach $if (keys %config) {
|
---|
47 | push(@interfaces, $if) if ($if =~ m/^[a-z0-9]+$/g);
|
---|
48 | }
|
---|
49 | $interfaces = join(",",@interfaces);
|
---|
50 |
|
---|
51 | if ( ($X =~ /\d+/) and ($Y =~ /\d+/) and ($X > 10) and ($Y > 10)) {
|
---|
52 | ($lat, $lon, $h) = from_rd( $X, $Y, 0);
|
---|
53 | } else {
|
---|
54 | $lat = $lon = $h = 0;
|
---|
55 | }
|
---|
56 |
|
---|
57 | $status = $status_labels{$status} || 'up'; # ensure reporting a correct status
|
---|
58 | $comment = $comment || 'None';
|
---|
59 |
|
---|
60 | print <<EOF;
|
---|
61 | # Genesis config yaml style
|
---|
62 | # vim:ts=2:et:sw=2:ai
|
---|
63 | #
|
---|
64 | comment : "$comment"
|
---|
65 | interfaces: $interfaces
|
---|
66 | latitude : $lat
|
---|
67 | location : '$location'
|
---|
68 | longitude : $lon
|
---|
69 | masterip : $master_ip
|
---|
70 | release : $release
|
---|
71 | nodename : $nodename
|
---|
72 | nodetype : $nodetype
|
---|
73 | rdnap_x : $X
|
---|
74 | rdnap_y : $Y
|
---|
75 | status : $status
|
---|
76 | EOF
|
---|
77 |
|
---|
78 | if ($ileiden =~ /yes/) {
|
---|
79 | print "ileiden : yes\n";
|
---|
80 | } else {
|
---|
81 | print "ileiden : no\n";
|
---|
82 | }
|
---|
83 |
|
---|
84 | foreach $key ('internalif', 'nat', 'internalroute', 'remote_access', 'gateway', 'firewall_block', 'proxyid') {
|
---|
85 | if ($$key) {
|
---|
86 | print "$key: $$key\n";
|
---|
87 | }
|
---|
88 | }
|
---|
89 |
|
---|
90 | foreach $if (keys %config) {
|
---|
91 | ($iflabel, $alias) = split(':',$if);
|
---|
92 | $iflabel .= "_alias${alias}" if ($alias =~ m/[0-9]/);
|
---|
93 |
|
---|
94 | print <<EOF;
|
---|
95 | iface_$iflabel:
|
---|
96 | EOF
|
---|
97 | %tmp = (
|
---|
98 | 'dhcp' => 'False',
|
---|
99 | 'compass' => 'None',
|
---|
100 | 'interface' => $if,
|
---|
101 | );
|
---|
102 | foreach $line (split('\n',$config{$if})) {
|
---|
103 | ($key, $value) = split(/=/,$line);
|
---|
104 | # Remove trailing and leading white spaces
|
---|
105 | $value =~ s/^\s+//;
|
---|
106 | $value =~ s/\s+$//;
|
---|
107 | if ($key and (lc($key) =~ /^[a-z].*/)) {
|
---|
108 | #print "$key : $value\n";
|
---|
109 | $value = lc($value) if not lc($key) =~ m/(desc|comment)/;
|
---|
110 | if ($key =~ /^type$/i) {
|
---|
111 | if ($value eq 'ethernet') {
|
---|
112 | $value = 'eth';
|
---|
113 | } else {
|
---|
114 | $value = '11b';
|
---|
115 | }
|
---|
116 | } elsif ($key =~ /^status$/i) {
|
---|
117 | if ($value eq 'up') {
|
---|
118 | $value = 'up';
|
---|
119 | } else {
|
---|
120 | $value = 'down';
|
---|
121 | }
|
---|
122 | } elsif ($key =~ /^mode$/i) {
|
---|
123 | if ($value eq 'master') {
|
---|
124 | $value = 'ap-wds';
|
---|
125 | } else { # managed
|
---|
126 | $value = 'station-wds';
|
---|
127 | }
|
---|
128 | } elsif ($key =~ /^polar$/i) {
|
---|
129 | if ($value eq 'hor') {
|
---|
130 | $value = 'hr';
|
---|
131 | } else {
|
---|
132 | $value = 'vr';
|
---|
133 | }
|
---|
134 | } elsif ($key =~ /^essid$/i) {
|
---|
135 | $key = 'ssid';
|
---|
136 |
|
---|
137 | # Dirty hack to fetch compass direction of essid
|
---|
138 | $value =~ /[a-z]+-([a-z]+)\..*/;
|
---|
139 | $direction = $1;
|
---|
140 | # Translate into English
|
---|
141 | if ($direction ne "omni") {
|
---|
142 | $direction =~ tr/oz/es/;
|
---|
143 | }
|
---|
144 | # node AMwtrt1 and 'test' directions
|
---|
145 | if ($direction eq "wtrtr" or $direction eq "test") {
|
---|
146 | $direction = 'None';
|
---|
147 | }
|
---|
148 | if ($direction) {
|
---|
149 | $tmp{'compass'} = $direction;
|
---|
150 | } else {
|
---|
151 | $tmp{'compass'} = 'None';
|
---|
152 | }
|
---|
153 | } elsif ($key =~ /^gain$/i) {
|
---|
154 | $value =~ s/dbi//;
|
---|
155 | }
|
---|
156 | # Als key niet bestaat, Dan key toevoegen
|
---|
157 | $tmp{lc($key)} = $value;
|
---|
158 | }
|
---|
159 | }
|
---|
160 | # Status
|
---|
161 | if ( ! $tmp{status} ) {
|
---|
162 | $tmp{status} = 'up';
|
---|
163 | }
|
---|
164 | # ethernet2wifi bridges
|
---|
165 | if ( $tmp{extra_type} eq 'eth2wifibridge' ) {
|
---|
166 | $tmp{type} = 'eth';
|
---|
167 | }
|
---|
168 | # 11a
|
---|
169 | if ( $tmp{type} eq '11b' && $tmp{channel} > 13 ) {
|
---|
170 | $tmp{type} = '11a';
|
---|
171 | }
|
---|
172 |
|
---|
173 | foreach $key (sort keys %tmp) {
|
---|
174 | printf " %-11s: '$tmp{$key}'\n", $key;
|
---|
175 | }
|
---|
176 | print "\n";
|
---|
177 | }
|
---|
178 |
|
---|