source: fedkit/quagga_routing.pl @ 76c43e4

compt_changes
Last change on this file since 76c43e4 was 76c43e4, checked in by Ted Faber <faber@…>, 12 years ago

Make sure updates happen for apt

  • Property mode set to 100644
File size: 2.8 KB
Line 
1#!/usr/bin/perl
2
3use strict;
4use IO::File;
5use IO::Pipe;
6
7my $IFCONFIG = "/sbin/ifconfig";
8my $ZEBRA= "/usr/lib/quagga/zebra";
9my $OSPFD= "/usr/lib/quagga/ospfd";
10
11my $ospffn = "/usr/local/federation/etc/ospfd.conf";
12my $zebrafn = "/usr/local/federation/etc/zebra.conf";
13my @live_ones;
14my @bits_in_quad;
15my %ainfo;
16
17sub quad_to_int {
18    my($ip) = @_;
19    my @q = split(/\./, $ip);
20    return ($q[0] << 24) + ($q[1] << 16) +  ($q[2] << 8) + $q[3];
21}
22
23sub int_to_quad {
24    my($i) = @_;
25    return sprintf("%d.%d.%d.%d", ($i >> 24) & 0xff, ($i>>16) & 0xff, 
26        ($i >>8) & 0xff, $i & 0xff);
27}
28
29sub nbits {
30    my($b) = @_;
31    return 0 if $b == 0;
32    my $r = 1;
33    for (my $i = 1 ; $i < $b; $i++) {
34        $r <<= 1;
35        $r += 1;
36    }
37    for (my $i = $b;  $i< 32; $i ++) {
38        $r <<= 1;
39        $r &= 0xfffffffe;
40    }
41    return $r;
42}
43
44sub netslash {
45    my($ip, $slash) = @_;
46    return int_to_quad(quad_to_int($ip) & nbits($slash));
47}
48
49for (my $i =0; $i < 256; $i++) {
50    $bits_in_quad[$i] = 0;
51}
52my $m = 0xff;
53for (my $i = 8; $i > 0; $i--) {
54    $bits_in_quad[$m] = $i;
55    $m <<= 1;
56    $m &= 0xfe;
57}
58
59
60if ( !-x $OSPFD) {
61    if (-x "/usr/bin/apt-get" ) {
62        system("/usr/bin/apt-get", "-y", "update");
63        system("/usr/bin/apt-get", "-y", "install", "quagga");
64    }
65    elsif (-x "/usr/bin/yum") {
66        system("/usr/bin/yum", "-y", "install", "quagga");
67    }
68}
69
70chomp (my $cif = `/usr/local/etc/emulab/control_interface`);
71chomp (my $hostname = `hostname`);
72$hostname =~ s/\..*//;
73
74my $ifp = new IO::Pipe();
75$ifp->reader("$IFCONFIG");
76my $current = undef;
77while (<$ifp>) {
78    /^(\S+)/ && do {
79        my $ifname = $1;
80        if ($ifname ne $cif && $ifname !~ "^lo" ) {
81            push(@live_ones, $ifname);
82            $current = $ifname;
83        }
84        else { $current = undef; }
85        print "$ifname $current\n";
86    };
87    /inet addr:\s*(\S+)\s*\S*\s*mask:\s*(\S+)/i && do {
88        next unless $current;
89        print "$current $1 $2\n";
90        my $slash = 0;
91        foreach my $quad (split(/\./, $2)) {
92            if ($bits_in_quad[$quad] != 0 ) { $slash += $bits_in_quad[$quad];}
93            else { last;}
94        }
95        $ainfo{$current} = [ $1, $slash ];
96        print $current, " ", @{$ainfo{$current}}, "\n";
97    }
98}
99$ifp->close();
100
101my $f = new IO::File(">$zebrafn") || die "Can't open $zebrafn: $!\n";
102print $f "hostname $hostname\n";
103foreach my $i (@live_ones) {
104    print $f "interface $i\n";
105}
106$f->close();
107my $f = new IO::File(">$ospffn") || die "Can't open $ospffn: $!\n";
108print $f "hostname $hostname\n";
109print $f "router ospf\n";
110foreach my $i (@live_ones) {
111    print $f " network ";
112    print $f netslash($ainfo{$i}->[0], $ainfo{$i}->[1]),"/",$ainfo{$i}->[1]," area 0.0.0.2\n";
113}
114$f->close();
115foreach my $fn ($zebrafn, $ospffn) {
116    system("chmod 644 $fn");
117}
118$f = new IO::File(">/proc/sys/net/ipv4/ip_forward") || 
119    die "Can't open sys forwarding file:$!\n";
120print $f "1\n";
121$f->close();
122system("$ZEBRA -d -f $zebrafn");
123system("$OSPFD -d -f $ospffn");
124
Note: See TracBrowser for help on using the repository browser.