[53c649f] | 1 | #!/usr/bin/perl |
---|
| 2 | |
---|
| 3 | use strict; |
---|
| 4 | use IO::File; |
---|
| 5 | use IO::Pipe; |
---|
| 6 | use Getopt::Long; |
---|
| 7 | |
---|
| 8 | my $TMCC = "/usr/local/etc/emulab/tmcc"; |
---|
| 9 | my $FINDIF = "/usr/local/etc/emulab/findif"; |
---|
| 10 | my $IFCONFIG = "/sbin/ifconfig"; |
---|
| 11 | my $ROUTE = "/sbin/route"; |
---|
| 12 | |
---|
| 13 | my $tmcc = new IO::Pipe || die "Can't create tmcc pipe: $!\n"; |
---|
| 14 | my $interface; |
---|
| 15 | my $ip; |
---|
| 16 | my $mac; |
---|
| 17 | my $netmask ="255.255.255.0"; |
---|
| 18 | my $router; |
---|
| 19 | my $routedest; |
---|
| 20 | |
---|
| 21 | my $os = `uname`; |
---|
| 22 | chomp $os; |
---|
| 23 | |
---|
| 24 | GetOptions('destination=s' => \$routedest); |
---|
| 25 | |
---|
| 26 | $tmcc->reader("$TMCC tunnelip"); |
---|
| 27 | while (<$tmcc>) { |
---|
| 28 | chomp; |
---|
| 29 | /TUNNELIP=([\d\.]*)/ && do { $ip = $1; }; |
---|
| 30 | /TUNNELMASK=([\d\.]*)/ && do { $netmask = $1; }; |
---|
| 31 | /TUNNELMAC=([[:xdigit:]]*)/ && do { $mac = $1; }; |
---|
| 32 | /TUNNELROUTER=([\d\.]*)/ && do { $router = $1; }; |
---|
| 33 | } |
---|
| 34 | $tmcc->close(); |
---|
| 35 | |
---|
| 36 | die "No MAC information for tunnel.\n" unless $mac; |
---|
| 37 | |
---|
| 38 | $interface = `$FINDIF $mac`; |
---|
| 39 | chomp $interface; |
---|
| 40 | die "Can't get interface for mac address $mac: $?" if $? || !$interface; |
---|
| 41 | |
---|
| 42 | my @ifconfig = ($IFCONFIG, $interface, $ip); |
---|
| 43 | push(@ifconfig, 'netmask', $netmask) if $netmask; |
---|
| 44 | |
---|
| 45 | system(@ifconfig); |
---|
| 46 | die join(" ", @ifconfig) . " failed: $!\n" if $?; |
---|
| 47 | |
---|
| 48 | if ($routedest ) { |
---|
| 49 | if ($router) { |
---|
| 50 | my @cmd; |
---|
| 51 | |
---|
| 52 | if ( $os =~ /^Linux/ ) { |
---|
| 53 | @cmd = ($ROUTE, 'add', $routedest, 'gw', $router); |
---|
| 54 | } |
---|
| 55 | elsif ( $os =~ /^FreeBSD/ ) { |
---|
| 56 | @cmd = ($ROUTE, 'add', $routedest, $router); |
---|
| 57 | } |
---|
| 58 | else { |
---|
| 59 | die "Unknown OS: $os\n"; |
---|
| 60 | } |
---|
| 61 | system(@cmd); |
---|
| 62 | die join(" ", @cmd) . " failed: $?\n" if $?; |
---|
| 63 | } |
---|
| 64 | else { die "Destination but no router\n"; } |
---|
| 65 | } |
---|
| 66 | exit(0); |
---|