Conan

 view release on metacpan or  search on metacpan

lib/Conan/Configure/Xen.pm  view on Meta::CPAN

			return sprintf "extra = ' ip=%s::%s:%s::eth0:off NFS=%s= %s %s ro clocksource=jiffies'\n",
				$self->{settings}->{ip},
				$self->{settings}->{gateway},
				$self->{settings}->{netmask},
				$self->{settings}->{nfsroot},
				$self->{settings}->{postboot},
				$self->{settings}->{name} || $self->{name};
		};
	}

	bless $args => $class;
}

sub generate {

	my $self = shift;
	my $output = sprintf "# This was generated on %s by %s\n", scalar localtime( time() ), 'Conan::Configure::Xen';
	$output .= "# Please do not manually edit\n";

	for my $key (qw/        
			name

lib/Conan/Deploy.pm  view on Meta::CPAN

sub new {
	my $class = shift;

	my %config_options = __config @_;

	my $args = {
		%config_options,
		@_,
	};

	return bless $args => $class;
}

# Call for the "promot image" call
sub promote_image {
	my $self = shift;
	my $image = shift;
	my $orig_image = $image;

	unless( defined $self->{srcimagebase} ){
		croak "Must supply a srcimagebase to the Conan::Deploy constructor";

lib/Conan/Promote/Xen.pm  view on Meta::CPAN

package Conan::Promote::Xen;

sub new {
	my $class = shift;
	my $args = {
		@_,
	};

	return bless $args => $class;
}

sub update_image {
	my $self = shift;
	my ($node, $target) = @_;

	print "D: Upgrading $node to $target\n";
}

1;

 view all matches for this distribution
 view release on metacpan -  search on metacpan