src/PVE/LXC/Setup/CentOS.pm

   1 package PVE::LXC::Setup::CentOS;
   2
   3 use strict;
   4 use warnings;
   5
   6 use PVE::Tools;
   7 use PVE::Network;
   8 use PVE::LXC;
   9
  10 use PVE::LXC::Setup::Base;
  11
  12 use base qw(PVE::LXC::Setup::Base);
  13
  14 sub new {
  15     my ($class, $conf, $rootdir) = @_;
  16
  17     my $release = PVE::Tools::file_read_firstline("$rootdir/etc/redhat-release");
  18     die "unable to read version info\n" if !defined($release);
  19
  20     my $version;
  21
  22     if ($release =~ m/release\s+(\d+\.\d+)(\.\d+)?/) {
  23         if ($1 >= 6 && $1 < 8) {
  24             $version = $1;
  25         }
  26     }
  27
  28     die "unsupported centos release '$release'\n" if !$version;
  29
  30     my $self = { conf => $conf, rootdir => $rootdir, version => $version };
  31
  32     $conf->{ostype} = "centos";
  33
  34     return bless $self, $class;
  35 }
  36
  37 my $tty_conf = <<__EOD__;
  38 # tty - getty
  39 #
  40 # This service maintains a getty on the specified device.
  41 #
  42 # Do not edit this file directly. If you want to change the behaviour,
  43 # please create a file tty.override and put your changes there.
  44
  45 stop on runlevel [S016]
  46
  47 respawn
  48 instance \$TTY
  49 exec /sbin/mingetty \$TTY
  50 usage 'tty TTY=/dev/ttyX  - where X is console id'
  51 __EOD__
  52
  53 my $start_ttys_conf = <<__EOD__;
  54 #
  55 # This service starts the configured number of gettys.
  56 #
  57 # Do not edit this file directly. If you want to change the behaviour,
  58 # please create a file start-ttys.override and put your changes there.
  59
  60 start on stopped rc RUNLEVEL=[2345]
  61
  62 env ACTIVE_CONSOLES=/dev/tty[1-6]
  63 env X_TTY=/dev/tty1
  64 task
  65 script
  66         . /etc/sysconfig/init
  67         for tty in \$(echo \$ACTIVE_CONSOLES) ; do
  68                 [ "\$RUNLEVEL" = "5" -a "\$tty" = "\$X_TTY" ] && continue
  69                 initctl start tty TTY=\$tty
  70         done
  71 end script
  72 __EOD__
  73
  74 my $power_status_changed_conf = <<__EOD__;
  75 #  power-status-changed - shutdown on SIGPWR
  76 #
  77 start on power-status-changed
  78
  79 exec /sbin/shutdown -h now "SIGPWR received"
  80 __EOD__
  81
  82 sub template_fixup {
  83     my ($self, $conf) = @_;
  84
  85     if ($self->{version} < 7) {
  86         # re-create emissing files for tty
  87
  88         $self->ct_make_path('/etc/init');
  89
  90         my $filename = "/etc/init/tty.conf";
  91         $self->ct_file_set_contents($filename, $tty_conf)
  92             if ! $self->ct_file_exists($filename);
  93
  94         $filename = "/etc/init/start-ttys.conf";
  95         $self->ct_file_set_contents($filename, $start_ttys_conf)
  96             if ! $self->ct_file_exists($filename);
  97
  98         $filename = "/etc/init/power-status-changed.conf";
  99         $self->ct_file_set_contents($filename, $power_status_changed_conf)
 100             if ! $self->ct_file_exists($filename);
 101
 102         # do not start udevd
 103         $filename = "/etc/rc.d/rc.sysinit";
 104         my $data = $self->ct_file_get_contents($filename);
 105         $data =~ s!^(/sbin/start_udev.*)$!#$1!gm;
 106         $self->ct_file_set_contents($filename, $data);
 107
 108         # edit /etc/securetty (enable login on console)
 109         $self->setup_securetty($conf);
 110     }
 111 }
 112
 113 sub setup_init {
 114     my ($self, $conf) = @_;
 115
 116      # edit/etc/securetty
 117
 118     $self->fixup_old_getty();
 119
 120     $self->setup_container_getty_service($conf);
 121 }
 122
 123 sub set_hostname {
 124     my ($self, $conf) = @_;
 125
 126     # Redhat wants the fqdn in /etc/sysconfig/network's HOSTNAME
 127     my $hostname = $conf->{hostname} || 'localhost';
 128
 129     my $hostname_fn = "/etc/hostname";
 130     my $sysconfig_network = "/etc/sysconfig/network";
 131
 132     my $oldname;
 133     if ($self->ct_file_exists($hostname_fn)) {
 134         $oldname = $self->ct_file_read_firstline($hostname_fn) || 'localhost';
 135     } else {
 136         my $data = $self->ct_file_get_contents($sysconfig_network);
 137         if ($data =~ m/^HOSTNAME=\s*(\S+)\s*$/m) {
 138             $oldname = $1;
 139         }
 140     }
 141
 142     my ($ipv4, $ipv6) = PVE::LXC::get_primary_ips($conf);
 143     my $hostip = $ipv4 || $ipv6;
 144
 145     my ($searchdomains) = $self->lookup_dns_conf($conf);
 146
 147     $self->update_etc_hosts($hostip, $oldname, $hostname, $searchdomains);
 148
 149     if ($self->ct_file_exists($hostname_fn)) {
 150         $self->ct_file_set_contents($hostname_fn, "$hostname\n");
 151     }
 152
 153     if ($self->ct_file_exists($sysconfig_network)) {
 154         my $data = $self->ct_file_get_contents($sysconfig_network);
 155         if ($data !~ s/^HOSTNAME=\h*(\S+)\h*$/HOSTNAME=$hostname/m) {
 156             $data .= "HOSTNAME=$hostname\n";
 157         }
 158         $self->ct_file_set_contents($sysconfig_network, $data);
 159     }
 160 }
 161
 162 sub setup_network {
 163     my ($self, $conf) = @_;
 164
 165     my ($gw, $gw6);
 166
 167     $self->ct_make_path('/etc/sysconfig/network-scripts');
 168
 169     my ($has_ipv4, $has_ipv6);
 170
 171     foreach my $k (keys %$conf) {
 172         next if $k !~ m/^net(\d+)$/;
 173         my $d = PVE::LXC::Config->parse_lxc_network($conf->{$k});
 174         next if !$d->{name};
 175         $has_ipv4 = 1 if defined($d->{ip});
 176         $has_ipv6 = 1 if defined($d->{ip6});
 177
 178         my $filename = "/etc/sysconfig/network-scripts/ifcfg-$d->{name}";
 179         my $routefile = "/etc/sysconfig/network-scripts/route-$d->{name}";
 180         my $route6file = "/etc/sysconfig/network-scripts/route6-$d->{name}";
 181         my $routes = '';
 182         my $routes6 = '';
 183
 184         my $header = "DEVICE=$d->{name}\nONBOOT=yes\n";
 185         my $data = '';
 186         my $bootproto = '';
 187
 188         if ($d->{ip} && $d->{ip} ne 'manual') {
 189             if ($d->{ip} eq 'dhcp') {
 190                 $bootproto = 'dhcp';
 191             } else {
 192                 $bootproto = 'none';
 193                 my $ipinfo = PVE::LXC::parse_ipv4_cidr($d->{ip});
 194                 $data .= "IPADDR=$ipinfo->{address}\n";
 195                 $data .= "NETMASK=$ipinfo->{netmask}\n";
 196                 if (defined($d->{gw})) {
 197                     $data .= "GATEWAY=$d->{gw}\n";
 198                     if (!PVE::Network::is_ip_in_cidr($d->{gw}, $d->{ip}, 4)) {
 199                         $routes .= "$d->{gw} dev $d->{name}\n";
 200                         $routes .= "default via $d->{gw} dev $d->{name}\n";
 201                     }
 202                 }
 203             }
 204         }
 205
 206         if ($d->{ip6} && $d->{ip6} ne 'manual') {
 207             $bootproto = 'none' if !$bootproto;
 208             $data .= "IPV6INIT=yes\n";
 209             if ($d->{ip6} eq 'auto') {
 210                 $data .= "IPV6_AUTOCONF=yes\n";
 211             }
 212             if ($d->{ip6} eq 'dhcp') {
 213                 $data .= "DHCPV6C=yes\n";
 214             } else {
 215                 $data .= "IPV6ADDR=$d->{ip6}\n";
 216                 if (defined($d->{gw6})) {
 217                     if (!PVE::Network::is_ip_in_cidr($d->{gw6}, $d->{ip6}, 6) &&
 218                         !PVE::Network::is_ip_in_cidr($d->{gw6}, 'fe80::/10', 6)) {
 219                         $routes6 .= "$d->{gw6} dev $d->{name}\n";
 220                         $routes6 .= "default via $d->{gw6} dev $d->{name}\n";
 221                     } else {
 222                         $data .= "IPV6_DEFAULTGW=$d->{gw6}\n";
 223                     }
 224                 }
 225             }
 226         }
 227
 228         next unless $data || $bootproto;
 229         $header .= "BOOTPROTO=$bootproto\n";
 230         $self->ct_file_set_contents($filename, $header . $data);
 231         $self->ct_modify_file($routefile, $routes, delete => 1, prepend => 1);
 232         $self->ct_modify_file($route6file, $routes6, delete => 1, prepend => 1);
 233     }
 234
 235     my $sysconfig_network = "/etc/sysconfig/network";
 236     if ($self->ct_file_exists($sysconfig_network)) {
 237         my $data = $self->ct_file_get_contents($sysconfig_network);
 238         if ($has_ipv4) {
 239             if ($data !~ s/(NETWORKING)=\S+/$1=yes/) {
 240                 $data .= "NETWORKING=yes\n";
 241             }
 242         }
 243         if ($has_ipv6) {
 244             if ($data !~ s/(NETWORKING_IPV6)=\S+/$1=yes/) {
 245                 $data .= "NETWORKING_IPV6=yes\n";
 246             }
 247         }
 248         $self->ct_file_set_contents($sysconfig_network, $data);
 249     }
 250 }
 251
 252 1;