view release on metacpan or  search on metacpan

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

40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
                        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

36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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;