File Coverage

blib/lib/RedHat/Kickstart.pm

Criterion	Covered	Total	%
statement	48	146	32.8
branch	23	140	16.4
condition	7	42	16.6
subroutine	2	2	100.0
pod	0	1	0.0
total	80	331	24.1

package RedHat::Kickstart;

our $VERSION = '0.3';

#####################################################################
# RedHat::Kickstart.pm
# by Patrick Devine
#
# This software is covered under the same terms as Perl itself.
#
# WARNING:
#
# This software is no where near finished and lots of stuff will
# probably change before it is officially released (as 1.0).
#


use RedHat::SysConfig;
@ISA = qw/ RedHat::SysConfig /;


#####################################################################
# method:	kickstart
# function:	creates a scalar containing all of the data necessary
#		for to create a kickstart file

sub kickstart {
  my $self	= shift;
  my $version	= shift;

  my $buf;
  my $settings	= $self->{settings};

  $buf .= "# This file was autogenerated by RedHat::Kickstart.pm\n";
  $buf .= "# Use at your own risk.\n";

  $buf .= "\n# Installation Method\n";
  if( $settings->{inst_type}->{inst_type} eq 'nfs' ) {
    my( $host, $dir );
    ( $host, $dir ) = split ':', $settings->{inst_type}->{nfsserver}
      if $settings->{inst_type}->{nfsserver};
    $buf .= "nfs --server $host --dir $dir\n";
  } elsif( $settings->{inst_type}->{inst_type} eq 'cdrom' ) {
    $buf .= "cdrom\n";
  }

  if( exists $settings->{rootpw} ) {
    $buf .= "\n# root password\nrootpw ";
    $buf .= '--iscrypted '
      if $settings->{rootpw}->{iscrypted};
    $buf .= "$settings->{rootpw}->{rootpw}\n";
  }


  if( exists $settings->{auth}->{useshadow} or
      exists $settings->{auth}->{enablemd5} or
      exists $settings->{auth}->{enablenis} ) {

    $buf .= "\n# Autconfig\nauth ";
    if( exists $settings->{auth}->{enablenis} ) {
      $buf .= "--enablenis --nisdomain $settings->{auth}->{nisdomain} ";
      $buf .= "--nisserver $settings->{auth}->{nisserver} ";
    }
    $buf .= '--useshadow ' if exists $settings->{auth}->{useshadow};
    $buf .= '--enablemd5 ' if exists $settings->{auth}->{enablemd5};
    if( exists $settings->{auth}->{enableldap} and $version >= 700 ) {
      $buf .= '--enableldap ';
      $buf .= '--enableldapauth '
        if $settings->{auth}->{enableldapauth};
      $buf .= "--ldapserver=$settings->{auth}->{ldapserver} "
        if $settings->{auth}->{ldapserver};
      $buf .= "--ldapbasedn=$settings->{auth}->{ldapbasedn} "
        if $settings->{auth}->{ldapbasedn};
    }
    if( $settings->{auth}->{enablekrb5} and $version >= 700 ) {
      $buf .= '--enablekrb5 ';
      $buf .= "--krb5realm $settings->{auth}->{krb5realm} "
        if $settings->{auth}->{krb5realm};
      $buf .= '--krb5kdc ';
      $buf .= join ',', map { $settings->{auth}->{"krb5kdc$_"} } 0 .. 3;
      $buf .= ' ';
      $buf .= "--krb5adminserver $settings->{auth}->{krb5kdc0} "
       if $settings->{auth}->{krb5kdc0};
    }
    if( $settings->{auth}->{enablehesiod} and $version >= 700 ) {
      $buf .= '--enablehesiod ';
      $buf .= "--hesiodlhs $settings->{auth}->{hesiodlhs} "
        if $settings->{auth}->{hesiodlhs};
      $buf .= "--hesiodrhs $settings->{auth}->{hesiodrhs} "
        if $settings->{auth}->{hesiodrhs};
    }
    $buf .= "\n";

  }

  if( exists $self->{settings}->{device} ) {
    $buf .= "\n# Extra Devices\n";
    for( @{ $self->{settings}->{device} } ) {
      next unless $_->{type} eq 'scsi' or $_->{type} eq 'eth';
      $buf .= "device $_->{type} $_->{module} ";
      $buf .= "--opts \"$_->{opts}\""
        if exists $_->{opts};
      $buf .= "\n";
    }
  }

  if( exists $settings->{driverdisk} and $version >= 623 ) {
    $buf .= "\n# Driver Disk\n driverdisk ";
    $buf .= $settings->{driverdisk}->{partition};
    $buf .= " --type $settings->{driverdisk}->{fs}\n";
  }

  if( exists $settings->{lilo} ) {
    $buf .= "\n# LILO\nlilo ";
    $buf .= "--append \"$settings->{lilo}->{append}\" "
      if exists $settings->{lilo}->{append};
    $buf .= "--location $settings->{lilo}->{location}\n"
      if $settings->{lilo}->{location};
    $buf .= "\n";
  }

  $buf .= "\n# LILO Check\nlilocheck\n"
    if exists $settings->{lilocheck} and $version >= 623;

  if( exists $settings->{timezone}->{timezone} ) {
    $buf .= "\n# Timezone\ntimezone ";
    $buf .= "--utc "
      if exists $settings->{timezone}->{utc};
    $buf .= "$settings->{timezone}->{timezone}\n";
  }

  $buf .= "\n# X Windowing System\n";

  if( exists $settings->{xconfig} ) {
    $buf .= "xconfig ";
    $buf .= "--noprobe \"$settings->{xconfig}->{noprobe}\" "
      if exists $settings->{xconfig}->{noprobe} and $version >= 623;
    $buf .= "--server \"$settings->{xconfig}->{server}\" "
      if exists $settings->{xconfig}->{server};
    $buf .= "--card \"$settings->{xconfig}->{card}\" "
      if exists $settings->{xconfig}->{card};
    $buf .= "--monitor \"$settings->{xconfig}->{monitor}\" "
      if exists $settings->{xconfig}->{monitor};
    $buf .= "--hsync \"$settings->{xconfig}->{hsync}\" "
      if exists $settings->{xconfig}->{hsync};
    $buf .= "--vsync \"$settings->{xconfig}->{vsync}\" "
      if exists $settings->{xconfig}->{vsync};
    $buf .= "--startxonboot \"$settings->{xconfig}->{startxonboot}\" "
      if exists $settings->{xconfig}->{startxonboot} and $version >= 623;
    $buf .= "\n";
  } else {
    $buf .= "skipx\n";
  }

  $buf .= "\n# Skip X\nskipx\n"
    if exists $settings->{skipx}->{skipx} and $version >= 623;

  $buf .= "\n# Install or Upgrade";
  $buf .= "\ninstall\n"
    unless exists $settings->{install}->{install} and
      $settings->{install}->{install} eq 'upgrade';

  if( exists $settings->{network} ) {

    $settings->{network}->{bootproto} = $settings->{network}->{network}
      if $settings->{network}->{network};

    $buf .= "\n# Network install type\nnetwork --bootproto ";
    if( $settings->{network}->{bootproto} ne 'static' ) {
      $buf .= "$settings->{network}->{bootproto}\n";
    } else {
      $buf .= "static ";
      $buf .= "--ip $settings->{network}->{ip} "
        if exists $settings->{network}->{ip};
      $buf .= "--netmask $settings->{network}->{netmask} "
        if exists $settings->{network}->{netmask};
      $buf .= "--gateway $settings->{network}->{gateway} "
        if exists $settings->{network}->{gateway};
      $buf .= "--nameserver $settings->{network}->{nameserver} "
        if exists $settings->{network}->{nameserver};
      $buf .= "--hostname $settings->{network}->{hostname} "
        if exists $settings->{network}->{hostname};
      $buf .= "\n";
    }
  }

  $buf .= "\n# Language\nlang $settings->{lang}->{lang}\n"
    if exists $settings->{lang}->{lang};

  $buf .= "\n# Keyboard\nkeyboard $settings->{keyboard}->{keyboard}\n"
    if exists $settings->{keyboard}->{keyboard};

  $buf .= "\n# Zero mbr\nzerombr yes\n"
    if exists $settings->{zerombr}->{zerombr};

  if( $settings->{mouse} ) {
    $buf .= "\n# Mouse\nmouse ";
    if( $version >= 623 ) {
      $buf .= "--device $settings->{mouse}->{device} "
        if exists $settings->{mouse}->{device};
      $buf .= "--emulthree "
        if exists $settings->{mouse}->{emulthree};
    } else {
      $buf .= "--kickstart ";
    }
    $buf .= "$settings->{mouse}->{mouse}\n";
  }

  $buf .= "\n# Reboot after install\nreboot\n"
    if exists $settings->{reboot}->{reboot} and $version > 623;

  if( $settings->{install} ne 'upgrade' ) {

    $buf .= "\n# Clear Partitions\nclearpart " .
	    "--$settings->{clearpart}->{clearpart}\n"
      if $settings->{clearpart}->{clearpart};

    $buf .= "\n# Partitioning\n";
    for( @{ $self->{settings}->{partition} } ) {
      next unless $_->{size};

      $_->{dir} = 'swap'
	if $_->{type} eq 'swap';

      $buf .= "part $_->{dir} --size $_->{size} ";
      $buf .= "--grow "
	if exists $_->{grow};
      $buf .= "--ondisk $_->{ondisk}"
	if exists $_->{ondisk} and $_->{ondisk} ne 'logical';
      $buf .= "\n";
    }

    if( exists $self->{settings}->{raid} ) {
      $buf .= "\n# Software RAID\n";
      for( @{ $self->{settings}->{raid} } ) {
	$buf .= "raid $_->{dir} ";
	$buf .= "--level $_->{level} "
	  if exists $_->{level};
	$buf .= "--device $_->{device} "
	  if exists $_->{device};

	$buf .= join ' ', @{ $_->{partitions} };
	$buf .= "\n";
      }
    }

    $buf .= "\n# Packages\n%packages\n";

    for( keys %{ $self->{settings}->{package} } ) {
      $buf .= "$_\n"
        if $self->{settings}->{package}->{$_} eq 'on';
    }

    $buf .= "\n# Post install\n%post\n";

    for( keys %{ $self->{settings}->{service} } ) {
      $buf .= ( $self->{settings}->{service}->{$_} eq 'on' ?
		"/sbin/chkconfig --add $_\n" :
		"/sbin/chkconfig --del $_\n" );
    }
  }

  if( exists $self->{settings}->{pre} ) {
    $buf .= "\n\%pre\n";
    if( ref( $self->{settings}->{pre} ) eq 'ARRAY' ) {
      $buf .= join "\n", @{ $self->{settings}->{pre}->{pre} };
    } else {
      $buf .= $self->{settings}->{pre}->{pre};
    }
  }

  if( exists $self->{settings}->{post} ) {
    $buf .= "\n\%post\n";
    if( ref( $self->{settings}->{post} ) eq 'ARRAY' ) {
      $buf .= join "\n", @{ $self->{settings}->{post}->{post} };
    } else {
      $buf .= $self->{settings}->{post}->{post};
    }
  }

  return \$buf;

}


1;

__END__