source: genesis/tools/wleiden-rick.pl@ 4816

Last change on this file since 4816 was 4745, checked in by jorg, 19 years ago

updated. snmpd.local.conf deprecated
  • Property svn:eol-style set to native
  • Property svn:executable set to *
File size: 8.5 KB
Line 
1#!/usr/bin/perl -w
2#
3# Copyright 2005 Stichting Wireless Leiden
4# maart 2004 rick@wirelessleiden.nl
5#
6
7# Config located at other file
8my $conf_file="/home/genesis/tools/genesis.conf";
9do($conf_file) || die("Cann't open $conf_file");
10################ END OF CONFIG ##########################
11
12#variablen
13my $time=gmtime();
14my $source=`/bin/hostname`;
15chomp($source);
16
17
18#slurp IP berekeningen info
19do ("$IP_pmPath") || die ("Cann't open $IP_pmPath");
20#slurp dns info
21do ("$dnsheader_confPath") || die ("Cann't open $dnsheader_confPath");
22
23
24#zoek uit of het master_ip addr voorkomt in de configs
25#belangrijk van aliassen
26sub master_ipNotUsed {
27 if( $debug ) {
28 print "running master_ipNotUsed...\n";
29 }
30 foreach my $if (keys %config) {
31 if( $IP{$if} =~ /([0-9\.]+).*/ ) {
32 if( $1 eq $master_ip ) {
33 return(0);
34 };
35 };
36 };
37 return(1);
38};
39
40
41
42sub genHeader {
43 my $comment = $_[0];
44 my $output =
45 "$comment This file specific to wireless\n" .
46 "$comment leiden. Please make all changes in Genesis.\n" .
47 "$comment\n" .
48 "$comment Generated by $source\n" .
49 "$comment on $time\n" .
50 "$comment\n" .
51 "$comment $author\n" .
52 "$comment\n\n\n";
53 return ($output);
54};
55
56
57sub txtconfig {
58 my $output = "";
59 foreach $interface (keys %config) {
60 $output .= $config{$interface};
61 };
62 return($output);
63};
64
65
66sub dhcpd_conf {
67 my $output = genHeader("#");
68 $output .=
69 "option domain-name \"$domain\";\n" .
70 " \n" .
71 "default-lease-time 7200;\n" .
72 "max-lease-time 2592000;\n" .
73 "\n" .
74 "ddns-update-style none;\n" .
75 "\n" .
76 "# Hack for the WET11\n" .
77 "#\n" .
78 "always-broadcast on;\n" .
79 "\n" .
80 "option domain-name-servers ${master_ip};\n" .
81 "\n";
82
83 foreach my $interface (sort keys %config) {
84 if( $interface =~ /^[a-z]+[0-9]+$/i ) {
85 (my $ip, my $netmask) = split('/', $IP{$interface});
86 my $subnet = IP::toSubnet($netmask);
87 my $broadcast = IP::getBroadcastAddr($ip, $subnet);
88 my $network = IP::getNetworkAddr($ip, $subnet);
89
90 $output .=
91 "# $interface $DESC{$interface}\n";
92
93 if ( $DHCP{$interface} =~ /[0-9]+\-[0-9]+/i ) {
94 my $dhcp_part = $ip;
95 $dhcp_part =~ s/[0-9]+$//;
96 (my $dhcp_start, my $dhcp_stop) = $DHCP{$interface} =~ /([0-9]+)\-([0-9]+)/i;
97 $dhcp_start = $dhcp_part . $dhcp_start;
98 $dhcp_stop = $dhcp_part . $dhcp_stop;
99 $output .=
100 "subnet $network netmask $subnet {\n" .
101 " range $dhcp_start $dhcp_stop;\n" .
102 " option broadcast-address $broadcast;\n" .
103 " option subnet-mask $subnet;\n" .
104 " option routers $ip;\n" .
105 "}\n" .
106 "\n";
107 }
108 else {
109 $output .=
110 "subnet $network netmask $subnet {not authoritative; }\n" .
111 "\n";
112 };
113 };
114 };
115
116 return($output);
117};
118
119sub named_conf {
120 my $output = genHeader("#");
121 $output .=
122 "options {\n" .
123 " directory \"/var/db/namedb\"\;\n" .
124 " forwarders {\n";
125 foreach my $forward (@forwarder) {
126 $output .= "$forward;\n";
127 };
128 $output .=
129 " };\n" .
130 "};\n" .
131 "\n" .
132 "\n" .
133 "zone \"\.\" {\n" .
134 " type hint;\n" .
135 " file \"/etc/namedb/named.root\"\;\n" .
136 "}\;\n" .
137 "\n" .
138 "zone \"0\.0\.127\.IN-ADDR.ARPA\" {\n" .
139 " type master\;\n" .
140 " file \"/etc/namedb/localhost.rev\"\;\n" .
141 "}\;\n" .
142 "\n" .
143 "zone \"1.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.IP6.INT\" {\n" .
144 " type master\;\n" .
145 " file \"/etc/namedb/localhost-v6.rev\"\;\n" .
146 "};\n" .
147 "\n";
148
149
150 foreach my $tmpZone (sort keys %zone) {
151 my $dnsZone = $zone{$tmpZone};
152 $output .=
153 "zone \"$tmpZone\" {\n" .
154 " type slave\;\n" .
155 " file \"slave-$tmpZone\"\;\n" .
156 " masters {\n";
157 foreach my $tmpIP (sort @$dnsZone) {
158 $output .= " $tmpIP\;\n";
159 };
160 $output .=
161 " };\n" .
162 "};\n" .
163 "\n";
164 };
165
166 return($output);
167};
168
169
170
171sub rc_node_local {
172 my $output = genHeader("#");
173 my $masterNotUsed = master_ipNotUsed();
174 $output.=
175 "hostname=\"$nodetype$nodename.$domain\"\n" .
176 "location=\"$location\"\n" .
177 "\n";
178
179 if( $tproxy ) {
180 if( $tproxy =~ m/\d+\.\d+\.\d+\.\d+\/\d+/ ) {
181 $output .=
182 "# Tproxy is ran on this system\n".
183 "tproxy_enable='YES'\n".
184 "tproxy_range='$tproxy'\n".
185 "\n";
186 }
187 elsif( $tproxy !~ m/no/i ) {
188 $output .= "# WARNING - specification propably wrong - check " .
189 "genesis. It should be a pure CIDR\n";
190 };
191 };
192
193 $output .= "ifconfig_lo0_alias0=\"inet 172.31.255.1/32\"\n";
194 if( $masterNotUsed ) {
195 $output .= "ifconfig_lo0_alias1=\"inet $master_ip/32\"\n\n";
196 }
197 else {
198 $output .= "#ifconfig_lo0_alias1=\"inet $master_ip/32\"\n\n";
199 };
200
201 foreach my $interface (sort keys %config) {
202 (my $if, my $number) = split(/:/, $interface);
203 if( defined $number ) {
204 $output .= "ifconfig_$if\_alias$number=\"inet $IP{$interface}\"";
205 }
206 else {
207 $output .= "ifconfig_$if=\"inet $IP{$interface}\"\t";
208 };
209 ## add some extra link information
210 $output .= "\t# $DESC{$interface}\n";
211 };
212 return($output);
213};
214
215sub rc_local {
216 my $output = genHeader("#");
217 foreach my $if (sort keys %config) {
218 if( ($if =~ /^wi[0-9]$/i) and ($TYPE{$if} =~ /wireless/i) ) {
219 $output .=
220 "$wicontrol -i $if -s $SDESC{$if} # Nickname\n" .
221 "#$wicontrol -i $if -t 7 # TXrate\n" .
222 "$wicontrol -i $if -P 0 # PowerSave\n" .
223 "$wicontrol -i $if -Z # Zero SNR cache\n";
224 if( $MODE{$if}=~/master/i ) {
225 $output .=
226 "$wicontrol -i $if -p 6 # hostap mode\n" .
227 "$wicontrol -i $if -c 1 # broadcasting essid on\n" .
228 "$wicontrol -i $if -n $ESSID{$if} # network name\n" .
229 "$wicontrol -i $if -q $ESSID{$if} # ESSID\n" .
230 "$wicontrol -i $if -f $CHANNEL{$if}# Channel\n";
231 }
232 else {
233 $output .=
234 "$wicontrol -i $if -p 1 # Client mode (managed)\n" .
235 "$wicontrol -i $if -n $ESSID{$if} # ESSID\n" .
236 "# No channel - client follows\n" .
237 "# $wicontrol -i $if -f 0 # Channel\n";
238 };
239 $output .= "\n";
240 };
241 };
242 return($output);
243};
244
245
246
247sub resolv_conf {
248 my $output = genHeader"#";
249
250 $output .=
251 "search wleiden.net.\n" .
252 "nameserver 127.0.0.1\n" .
253 "\n";
254
255 foreach my $if (sort keys %config) {
256 if( exists $POINT_TO_POINT{$if} ) {
257 foreach my $ip ($POINT_TO_POINT{$if}) {
258 $output .= "nameserver $ip # $DESC{$if}\n";
259 };
260 };
261 };
262 return($output);
263};
264
265
266# JB: snmpd.local.conf was nodig voor ospf. kan weg.
267#
268#sub snmpd_local_conf {
269# my $output = genHeader("#");
270# my $masterNotUsed = master_ipNotUsed();
271# $output .=
272# "# Location of the physical node.\n" .
273# "#\n" .
274# "syslocation \"$location\"\n" .
275# "#\n" .
276# "# Maintained by\n" .
277# "syscontact \"$contact\"\n" .
278# "\n";
279#
280# if( $DISK =~ /flash/i ) {
281# $output .= "# Verify that disk is RO\n";
282# $output .= "sh diskro /usr/local/sbin/diskro.sh\n\n";
283# };
284#
285# $output .= "agentaddress 161,tcp:161\n";
286#
287# if( $masterNotUsed ) {
288# $output .= "agentaddress $master_ip\n";
289# };
290#
291# foreach my $if (keys %config) {
292# if( $IP{$if} =~ /([0-9\.]+).*/ ) {
293# $output .= "agentaddress $1\n";
294# };
295# };
296# return($output);
297#};
298
299
300
301sub parse_config {
302 my $workingfile = $_[0];
303 do($workingfile) || die("Cann't open/parse $workingfile");
304 foreach my $if (keys %config) {
305 my $cfg=$config{$if};
306 while ($cfg) {
307 $cfg=~s/^([^\n\r]+)[\r\n]*//m;
308 my $line=$1;
309 $line=~s/\s*#.*//;
310 if (((my $name, my $value)=split(/=/,$line)) eq 2) {
311 my $doit="if (exists(\$$name\{\"$if\"\})) {\$$name\{\"$if\"\}.=\";$value\";} else {\$$name\{\"$if\"\}.=\"$value\";}";
312 eval($doit);
313 };
314 $cfg=~s/[\r\n]*$//m;
315 };
316 };
317};
318
319sub authorized_keys {
320 my $output = genHeader("#");
321 if( -e "$global_keyPath" ) {
322 open( GLOBAL, "$global_keyPath" ) || die ("Cann't open $global_keyPath");
323 $output .= join("", <GLOBAL>);
324 close( GLOBAL );
325 }
326 else {
327 $output .= "# No $global_keyPath\n";
328 };
329
330 if( -e "$ndir/$nodetype$nodename/$ssh_file" ) {
331 open( NODE, "$ndir/$nodetype$nodename/$ssh_file" ) || die ("Cann't open $home/$nodename/$ssh_file");
332 $output .= join("", <NODE>);
333 close( NODE );
334 }
335 else {
336 $output .= "# No $ndir/$nodetype$nodename/$ssh_file\n";
337 };
338
339 return($output);
340};
341
342sub do_it {
343 my $file = $_[0];
344 my $body = "";
345
346 $file =~ s/\./_/g;
347 $body=&$file;
348 return($body);
349};
350
351if( exists $ARGV[0] ) {
352 if( exists $ARGV[1] ) {
353 parse_config($ARGV[0]);
354 print do_it($ARGV[1]);
355 }
356 else {
357 print "Usage `perl wleiden.pl 'inputfile' 'outputfile'`\n";
358 };
359};
360
3611;
Note: See TracBrowser for help on using the repository browser.