view release on metacpan or  search on metacpan

Annelidous/Connector/Xen.pm  view on Meta::CPAN

    #"disk='phy:mapper/XenDomains-".$guest->{username}.",sda1,w'",
    #"disk='phy:mapper/XenDomains-".$guest->{username}."swap,sda2,w'",
    "root='/dev/sda1 ro'",
    "extra='init=/bin/sh console=xvc0'",
    "vcpus=".$guest->{cpu_count});
    #print join " ", @exec;
    $self->transport()->exec(@exec);

    # Configure IPv6 router IP for vif (no proxy arp here, we give a whole subnet)
    if ($guest->{'ip6router'}) {
        my @exec2=("ifconfig","inet6","add",$guest->{username},$guest->{ip6router});
        #print join " ", @exec2;
        $self->transport->exec(@exec2);
    }
}

# Launch client guest OS...
# takes a client_pool as argument 
sub boot {
    my $self=shift;
    my $guest=$self->vm->data;

Annelidous/Connector/Xen.pm  view on Meta::CPAN

    "root='/dev/sda1 ro'",
    "extra='3 console=xvc0'",
    "vcpus=1");
	#print "\n";
	#print join " ", @exec;
	#print "\n";
    $self->transport()->exec(@exec);

    # Configure IPv6 router IP for vif (no proxy arp here, we give a whole subnet)
    if ($guest->{'ip6router'}) {
        my @exec2=("ifconfig",$guest->{username},"inet6","add",$guest->{ip6router});
        $self->transport->exec(@exec2);
    }
}

sub destroy {
    my $self=shift;
    return $self->transport->exec("xm","destroy",$self->vm->data->{username});
}

sub shutdown {