trunk/lib/VZ.pm

package VZ;
use Exporter 'import';
our @EXPORT = qw(
check_root
hostname2ip
);

use warnings;
use strict;

use Socket;

sub check_root {
        if ( $> != 0 ) {
                warn "WARNING: restarting as root using sudo\n";
                exec 'sudo', $0, @ARGV;
        }
}

sub hostname2ip {
        my $hostname = shift || return;

        my @addresses = gethostbyname($hostname)   or die "Can't resolve $hostname: $!\n";
        @addresses = map { inet_ntoa($_) } @addresses[4 .. $#addresses];
        return shift @addresses;
}

1;
1	package VZ;
2	use Exporter 'import';
3	our @EXPORT = qw(
4	check_root
5	hostname2ip
6	);
7
8	use warnings;
9	use strict;
10
11	use Socket;
12
13	sub check_root {
14	if ( $> != 0 ) {
15	warn "WARNING: restarting as root using sudo\n";
16	exec 'sudo', $0, @ARGV;
17	}
18	}
19
20	sub hostname2ip {
21	my $hostname = shift \|\| return;
22
23	my @addresses = gethostbyname($hostname) or die "Can't resolve $hostname: $!\n";
24	@addresses = map { inet_ntoa($_) } @addresses[4 .. $#addresses];
25	return shift @addresses;
26	}
27
28	1;