lib/PXElator/network.pm

package network;

use warnings;
use strict;

use File::Slurp;

use server;

sub tap {

        my $interfaces = read_file '/etc/network/interfaces';

        if ( $interfaces !~ m{tap0.*$server::ip}s ) {

                system "sudo apt-get install vde2";

                $interfaces .= qq{

        iface tap0 inet static
          address $server::ip
          netmask $server::netmask
          vde2-switch -

                };

                write_file '/etc/network/interfaces', $interfaces;

        }

        `/sbin/ifconfig tap0 2>/dev/null` =~ m{UP} || system "sudo ifup tap0";

        1;
}

1;
1	package network;
2
3	use warnings;
4	use strict;
5
6	use File::Slurp;
7
8	use server;
9
10	sub tap {
11
12	my $interfaces = read_file '/etc/network/interfaces';
13
14	if ( $interfaces !~ m{tap0.*$server::ip}s ) {
15
16	system "sudo apt-get install vde2";
17
18	$interfaces .= qq{
19
20	iface tap0 inet static
21	address $server::ip
22	netmask $server::netmask
23	vde2-switch -
24
25	};
26
27	write_file '/etc/network/interfaces', $interfaces;
28
29	}
30
31	`/sbin/ifconfig tap0 2>/dev/null` =~ m{UP} \|\| system "sudo ifup tap0";
32
33	1;
34	}
35
36	1;