File Coverage

blib/lib/Umlmgr.pm

Criterion	Covered	Total	%
statement	41	68	60.2
branch	5	32	15.6
condition	1	6	16.6
subroutine	11	14	78.5
pod	1	7	14.2
total	59	127	46.4

package Umlmgr;

use 5.010000;
use strict;
use warnings;
use base qw(Config::IniFiles);
use Umlmgr::Uml;
use Sys::Syslog;
use IPC::Open3;

our $VERSION = '0.10';

sub new {
    my ($class, %options) = @_;

    my ($config) = grep {
        $_
    } ($options{config} || ($> != 0 ? "$ENV{HOME}/.umlmgr/config" : '/etc/umlmgr.cfg'));
    my $self;
    eval {
    $self = $class->SUPER::new(
        (-f $config ? (-file => $config) : ()),
    );
    };

    $self or return;
    bless($self, $class);
}

sub machinesdir {
    my ($self) = @_;
    $self->val('machines', 'dir', "$ENV{HOME}/.umlmgr/");
}

sub list_machines_config {
    my ($self) = @_;
    if (opendir(my $dh, $self->machinesdir)) {
        my @list;
        while(my $f = readdir($dh)) {
            $f =~ /(.+)\.uml$/ or next;
            push(@list, $1);
        }
        closedir($dh);
        return(@list);
    } else {}
}

sub get_machine {
    my ($self, $name) = @_;
    return Umlmgr::Uml->new(
        $self->machinesdir . "/$name.uml",
        user => $self->val('env', 'user'),
    );
}

sub setup_network {
    my ($self) = @_;

    if ($> == 0 && ! $self->val('env', 'user')) {
        warn "No user defined, running vm as root is a bad idea\n";
        return;
    }

    Sys::Syslog::openlog('umlmgr', 'pid', 'daemon');
    if (my $tap = $self->val('network', 'tap')) {
        my $id = $self->val('env', 'user')
            ? Umlmgr::Utils::get_id($self->val('env', 'user'))
            : undef;
        system(
            'tunctl',
            ($id ? ('-u', $id) : ()),
            '-t', $tap
        );
    }
    if ($self->val('network', 'switch')) {
        my $pid = fork;
        return if(!defined $pid);
        if ($pid) {
        } else {
            Umlmgr::Utils::become_user($self->val('env', 'user'))
                if ($self->val('env', 'user'));
            close(STDIN);
            #close(STDOUT);
            exec(join(' ', map { quotemeta($_) }
                ('uml_switch',
                ($self->val('network', 'hub') ? ('-hub') : ()),
                ($self->val('network', 'tap')
                    ? ('-tap', $self->val('network', 'tap'))
                    : ()),
                )) . ' < /dev/null > /dev/null'
            );
            exit(0);
        }
    }
}

sub start {
    my ($self) = @_;
    foreach my $m ($self->list_machines_config) {
        my $ma = $self->get_machine($m);
        $ma->onboot or next;
        $ma->status and next;
        $ma->start;
    }
}

sub stop {
    my ($self) = @_;
    foreach my $m ($self->list_machines_config) {
        my $ma = $self->get_machine($m);
        $ma->stop;
    }
}

# Preloaded methods go here.

# Autoload methods go after =cut, and are processed by the autosplit program.

1;
__END__