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	dpavlin	82	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;