#!/usr/bin/perl
# IBM(c) 2012 EPL license http://www.eclipse.org/legal/epl-v10.html
#-------------------------------------------------------

=head1	mkay4z
	
	Description: 	Create an autoyast template for Linux on System z.
	Author: 	Thang Pham (thang.pham@us.ibm.com)
	Returns:	Autoyast template

    Usage: 		mkay4z
    Example: 	# ./mkay4z

=cut

#-------------------------------------------------------
use strict;
use warnings;

# Show help
if (@ARGV > 0) {
    print <<END;
Create an autoyast template to be used by xCAT for Linux on System z.
Created by Thang Pham (thang.pham\@us.ibm.com)
Version 0.2

IBM (c)2012 EPL license http://www.eclipse.org/legal/epl-v10.html
END
    exit();
}

# Show help
print "Creating autoyast template for Linux on System z...\n";

# Get distro version
my $version = '';
while (!($version eq '10' || $version eq '11')) {
    $version = ask("Select SUSE Linux Enterprise Server version? (10 or 11) ");

    if (!($version eq '10' || $version eq '11')) {
        print "  Unknown value!\n";
    }
}

# Get template path
my $template_path = '';
while (!$template_path) {
    $template_path = ask("Where do you want to place the template? (e.g. /tmp/custom.sles11.s390x.tmpl) ");

    if (!$template_path) {
        print "  A path for the template is needed!\n";
    }
}

# Default dasd and partition configuration
# Used for testing
my %dasd_default = (
    '0.0.0100' => {
        'device_name' => '/dev/dasda',
        'type'        => 'dasd_eckd_mod'
    },
    '0.0.0101' => {
        'device_name' => '/dev/dasdb',
        'type'        => 'dasd_eckd_mod'
      }
);
my %partitions_default = (
    '/dev/dasda' => {
        'device_fs'    => 'ext4',
        'device_size'  => 'max',
        'device_mount' => '',
        'device_lvm'   => 'VG'
    },
    '/dev/dasdb' => {
        'device_fs'    => 'ext4',
        'device_size'  => 'max',
        'device_mount' => '',
        'device_lvm'   => 'VG'
    },
    '/dev/VG' => {
        'lvm' => {
            'lv_root' => {
                'name'  => 'lv_root',
                'fs'    => 'ext4',
                'mount' => '/',
                'size'  => '4g'
            },
            'lv_opt' => {
                'name'  => 'lv_opt',
                'fs'    => 'ext4',
                'mount' => '/opt',
                'size'  => 'max'
              }
          }
      }
);

# Set default parameters for networking and root password
# DHCP is set by default, but can changed based on user input
my %parms = (
    'hosts' => {
        'localhost' => {
            'host_address' => '127.0.0.1',
            'name'         => 'localhost'
        },
        'xcat' => {
            'host_address' => 'replace_host_address',
            'name'         => 'replace_long_name replace_short_name'
          }
    },
    'dns' => {
        'xcat' => {
            'hostname'      => 'replace_hostname',
            'dhcp_hostname' => 'true',
            'dhcp_resolv'   => 'true',
            'domain'        => 'replace_domain',
            'nameserver'    => 'replace_nameserver'
          }
    },
    'interfaces' => {
        'xcat' => {
            'bootproto' => 'dhcp',
            'device'    => 'replace_device',
            'lladdr'    => 'replace_lladdr',
            'chanids'   => 'replace_ccw_chan_ids'
          }
    },
    'root_password' => 'replace_root_password',
    'software'      => 'Minimal'
);

# Configure interfaces (static or dhcp)
my $dhcp = '';
while (!($dhcp eq 'Y' || $dhcp eq 'y' || $dhcp eq 'Yes' || $dhcp eq 'yes' || $dhcp eq 'N' || $dhcp eq 'n' || $dhcp eq 'No' || $dhcp eq 'no')) {
    $dhcp = ask("  Do you want to use DHCP? (yes or no) ");

    if ($dhcp eq 'Y' || $dhcp eq 'y' || $dhcp eq 'Yes' || $dhcp eq 'yes') {
        $parms{'interfaces'} = {
            'xcat' => {
                'bootproto' => 'dhcp',
                'device'    => 'replace_device',
                'lladdr'    => 'replace_lladdr',
                'chanids'   => 'replace_ccw_chan_ids'
              }
        };
    } elsif ($dhcp eq 'N' || $dhcp eq 'n' || $dhcp eq 'No' || $dhcp eq 'no') {
        $parms{'interfaces'} = {
            'xcat' => {
                'bootproto' => 'static',
                'device'    => 'replace_device',
                'lladdr'    => 'replace_lladdr',
                'ipaddr'    => 'replace_ipaddr',
                'netmask'   => 'replace_netmask',
                'gateway'   => 'replace_gateway',
                'broadcast' => 'replace_broadcast',
                'network'   => 'replace_network',
                'chanids'   => 'replace_ccw_chan_ids'
              }
        };
    } else {
        print "  Unknown value!\n";
    }
}

# Hash array containing autoyast configuration
my %dasd;
my %partitions;
my %lvm;

# Prompts user for input?
my $ask = 0;

# Configure dasd
my $dasd_option = 0;
my $addr;
my $dasd_type;
my $device_name;
my $device_type;
my $tmp;
my $i = 0;

print <<END;

CONFIGURING DASD...
END
while ($dasd_option != 4) {
    print <<END;
Select from the following options:
  (1) Add DASD
  (2) Remove DASD
  (3) Show DASD configuration
  (4) Go to next step
END
    $dasd_option = <>;
    $dasd_option = trim($dasd_option);
    while (!($dasd_option eq '1' || $dasd_option eq '2' || $dasd_option eq '3' || $dasd_option eq '4')) {
        print "  Unknown value!\n";
        $dasd_option = <>;
        $dasd_option = trim($dasd_option);
    }

    # Add dasd to template
    if ($dasd_option eq '1') {

        # Get virtual address
        $addr = ask("  What is the virtual address? ");
        while (length($addr) < 4) {    # Address length must be 4
            $addr = '0' . $addr;
        }
        $addr = '0.0.' . $addr;

        # Get dasd type
        $ask = 1;
        while ($ask) {
            $dasd_type = ask("  What is the type? (eckd or fba) ");
            if ($dasd_type eq 'eckd') {
                $dasd_type = 'dasd_eckd_mod';
                $ask       = 0;
            } elsif ($dasd_type eq 'fba') {
                $dasd_type = 'dasd_fba_mod';
                $ask       = 0;
            } else {
                print "    Unknown value!\n";
            }
        }

        # Save dasd in hash
        $dasd{$addr}{'type'} = $dasd_type;
    }

    # Remove dasd from template
    elsif ($dasd_option eq '2') {
        $addr = ask("  What is the virtual address to remove? ");
        while (length($addr) < 4) {    # Address length must be 4
            $addr = '0' . $addr;
        }
        $addr = '0.0.' . $addr;

        # Remove from hash
        delete $dasd{$addr};
    }

    elsif ($dasd_option eq '3') {

        # Show configuration
        print <<END;
#  |   Address   |   Type
----------------------------
END
        foreach my $addr (sort keys %dasd) {
            $device_type = $dasd{$addr}{'type'};
            print(pad($i, 3) . " " . pad($addr, 13) . " " . pad($device_type, 10) . "\n");
            $i++;
        }
    }

    elsif ($dasd_option eq '4') {

        # Do nothing, go to next step
    } else {
        print "  Unknown value!\n"
    }
}

# Assign device names
my @dasd_device_list = ('/dev/dasda', '/dev/dasdb', '/dev/dasdc', '/dev/dasdd', '/dev/dasde', '/dev/dasdf', '/dev/dasdg',
'/dev/dasdh', '/dev/dasdi', '/dev/dasdj', '/dev/dasdk', '/dev/dasdl', '/dev/dasdm', '/dev/dasdn', '/dev/dasdo', '/dev/dasdp',
'/dev/dasdq', '/dev/dasdr', '/dev/dasds', '/dev/dasdt', '/dev/dasdu', '/dev/dasdv', '/dev/dasdw', '/dev/dasdx', '/dev/dasdy',
    '/dev/dasdz');
my $dasd_partition_info;
my @device_list;
$i = 0;
for $addr (sort keys %dasd) {

    # Assign a device name from list
    my $device_name = $dasd_device_list[$i];

    # Save dasd in hash
    $dasd{$addr}{'device_name'} = $device_name;

    # Save partition in hash
    $partitions{$device_name}{'device_fs'}    = '';
    $partitions{$device_name}{'device_size'}  = '';
    $partitions{$device_name}{'device_mount'} = '';
    $partitions{$device_name}{'device_lvm'}   = '';

    # Create device list
    $device_list[$i] = pad($device_name, 12) . " " . pad($addr, 13) . " " . pad($dasd{$addr}{'type'}, 7);
    $i++;
}

print <<END;

CONFIGURING PARTITIONS...
Select a device from the list below to create a new partition.
END
print <<END;
#  |   Device   |   Address   |   Type
---------------------------------------------
END

my $ask_lvm = 0;
my $lvm;
my $lvm_group;

my $device_fs;
my $device_mount;
my $device_size;

# Show device list
for ($i = 0 ; $i < @device_list ; $i++) {
    print(pad($i, 3) . " " . $device_list[$i] . "\n");
}

# Configure device
my $selected;
my @args;

$ask = 1;
while ($ask) {
    $selected = ask("Which device do you want to configure? (See list above)\nLeave blank and hit Enter to go to next step.\n");
    if ($selected && int($selected) > @device_list) {
        print "  Unknown value!\n";
        redo;
    }

    # Only configure if a device is selected
    if (length($selected)) {
        $selected = int($selected);

        @args = split('   ', $device_list[$selected]);
        $device_name = $args[0];

        # Get device filesystem
        $device_fs = '';
        while (!($device_fs eq 'ext2' || $device_fs eq 'ext3' || $device_fs eq 'ext4' || $device_fs eq 'swap')) {
            $device_fs = ask("  What is the filesystem for $device_name? (ext2, ext3, ext4, or swap) ");

            if (!($device_fs eq 'ext2' || $device_fs eq 'ext3' || $device_fs eq 'ext4' || $device_fs eq 'swap')) {
                print "    Unknown value!\n";
            }
        }

        # Get partition size
        $device_size = '';
        while (!$device_size) {
            $device_size = ask("  What is the partition size? (e.g. 1g, 2g, or max) ");
            if (!$device_size) {
                print "  Please give a partition size!";
            }
        }

        # Is partition an LVM
        $lvm = '';
        while (!($lvm eq 'Y' || $lvm eq 'y' || $lvm eq 'Yes' || $lvm eq 'yes' || $lvm eq 'N' || $lvm eq 'n' || $lvm eq 'No' || $lvm eq 'no')) {
            $lvm = ask("  Do you want to assign it to an LVM group? (yes or no) ");
            $lvm_group    = "";
            $device_mount = "";

            if ($lvm eq 'Y' || $lvm eq 'y' || $lvm eq 'Yes' || $lvm eq 'yes') {

                # Get partition LVM group
                $lvm_group = ask("  What is the LVM group? ");
                $ask_lvm   = 1;

                # Create new entry for volume group
                $tmp = '/dev/' . $lvm_group;
                $partitions{$tmp}{'device_lvm'} = $lvm_group;
            } elsif ($lvm eq 'N' || $lvm eq 'n' || $lvm eq 'No' || $lvm eq 'no') {

                # Get partition mount point
                $device_mount = ask("  What is the mount point? ");
            } else {
                print "    Unknown value!\n";
            }
        }

        # Save dasd in hash
        $partitions{$device_name}{'device_fs'}    = $device_fs;
        $partitions{$device_name}{'device_size'}  = $device_size;
        $partitions{$device_name}{'device_mount'} = $device_mount;
        $partitions{$device_name}{'device_lvm'}   = $lvm_group;
    } else {
        $ask = 0;
    }
}

# Configure LVM partitions
my @lvm_list;
if ($ask_lvm) {
    print <<END;
	
CONFIGURING LVM PARTITIONS...
Select an LVM group from the list below to create an LVM volume.
END
    print <<END;
#  |   LVM group   |   Devices
---------------------------------
END

    # Find LVM groups
    for $device_name (sort keys %partitions) {
        if (length($partitions{$device_name}{'device_lvm'}) && $device_name ne "/dev/$partitions{$device_name}{'device_lvm'}") {
            $lvm{ $partitions{$device_name}{'device_lvm'} }{'devices'} .= "$device_name ";
        }
    }

    # Print volume groups
    $i = 0;
    for $device_name (sort keys %lvm) {
        print(pad($i, 3) . " " . pad($device_name, 15) . " " . pad($lvm{$device_name}{'devices'}, 10) . "\n");
        $lvm_list[$i] = $device_name;
        $i++;
    }

    # Select LVM group
    $ask = 1;
    my $lvm_group;
    my $lvm_vol_name;
    my $lvm_vol_fs;
    my $lvm_vol_mount;
    my $lvm_vol_size;
    while ($ask) {
        $lvm_group = ask("Which LVM group do you want to configure? (See list above)\nLeave blank and hit Enter to go to next step.\n");
        if (length($lvm_group)) {
            $lvm_group   = $lvm_list[ int($lvm_group) ];
            $device_name = "/dev/$lvm_group";

            my $lvm_option = 0;
            while ($lvm_option != 4) {
                print <<END;
		
Select from the following options:
  (1) Create LVM volume
  (2) Remove LVM volume
  (3) Show LVM configuration
  (4) Back to menu
END
                $lvm_option = <>;

                # Add an LVM volume to template
                if ($lvm_option eq '1') {

                    # Get dasd virtual address
                    $lvm_vol_name = ask("  What is the LVM volume name? ");

                    # Get device filesystem
                    $lvm_vol_fs = '';
                    while (!($lvm_vol_fs eq 'ext2' || $lvm_vol_fs eq 'ext3' || $lvm_vol_fs eq 'ext4' || $lvm_vol_fs eq 'swap')) {
                        $lvm_vol_fs = ask("  What is the LVM volume filesystem? (ext2, ext3, ext4, or swap) ");

                        if (!($lvm_vol_fs eq 'ext2' || $lvm_vol_fs eq 'ext3' || $lvm_vol_fs eq 'ext4' || $lvm_vol_fs eq 'swap')) {
                            print "    Unknown value!\n";
                        }
                    }

                    # Get partition mount point
                    $lvm_vol_mount = ask("  what is the Mount point? ");

                    # Get partition size
                    $lvm_vol_size = ask("  What is the LVM volume size? (e.g. 1g, 2g, or max) ");

                    # Save dasd in hash
                    $partitions{$device_name}{'lvm'}{$lvm_vol_name} = {
                        'fs'    => $lvm_vol_fs,
                        'name'  => $lvm_vol_name,
                        'mount' => $lvm_vol_mount,
                        'size'  => $lvm_vol_size
                    };
                }

                # Remove an LVM volume from template
                elsif ($lvm_option eq '2') {
                    my $name = ask("  What is the LVM volume to remove? ");

                    # Remove from hash
                    delete $partitions{$device_name}{'lvm'}{$name};
                }

                elsif ($lvm_option eq '3') {

                    # Show configuration
                    print <<END;
Group      |   Volume   |    Mount   |   Size
---------------------------------------------
END

                    for $device_name (sort keys %partitions) {
                        for $lvm_vol_name (sort keys %{ $partitions{$device_name}{'lvm'} }) {
                            print(pad($device_name, 11) . " " . pad($partitions{$device_name}{'lvm'}{$lvm_vol_name}{'name'}, 12) . " " . pad($partitions{$device_name}{'lvm'}{$lvm_vol_name}{'mount'}, 12) . " " . pad($partitions{$device_name}{'lvm'}{$lvm_vol_name}{'size'}, 10) . "\n");
                        }
                    }
                }

                elsif ($lvm_option eq '4') {

                    # Do nothing, go to next step
                } else {
                    print "  Unknown value!\n"
                }
            }
        } else {
            $ask = 0;
        }
    }    # End of while ($ask)
}

# Create <dasd> section
my $dasdSection = createDasd(\%dasd, \%partitions);

# Create <partitions> section
my $partitionsSection = createPartitions(\%dasd, \%partitions);

# Create <modules> section
my $dasdModulesSection = createDasdModules(\%dasd);
my $nicModulesSection  = createNicModules($parms{'interfaces'});

# Create <hosts> section
my $hostsSection = createHosts($parms{'hosts'});

# Create <dns> section
my $dnsSection = createDns($parms{'dns'});

# Create <interfaces> section
my ($interfacesSection) = createInterfaces($parms{'interfaces'});

# Create password section
my $passwordSection = <<END;
  <user_password>$parms{'root_password'}</user_password>
END

# Create routes section
my $routesSection = createRoutes($parms{'interfaces'});

# Create scripts section
my $scriptsSection = createScripts($parms{'interfaces'});

# Begin to build template

# Edit template by replacing place holders:
# 	insert_devices
# 	insert_hosts
# 	insert_dns
# 	insert_interfaces
# 	insert_modules
# 	insert_partitioning_drives
# 	insert_software_pattern
# 	insert_root_password
#   insert_routes

# Generate autoyast template
my $tmpl = '';
if ($version eq '10') {
    $tmpl = genSles10Tmpl();
} elsif ($version eq '11') {
    $tmpl = genSles11Tmpl();
}

# Print out template
open(TMPL, ">$template_path");
print TMPL "$tmpl";
close(TMPL);

open(FILE, $template_path);

# Go through each line
my $mod_tmpl = '';
while (my $ln = <FILE>) {

    # If the line matches the pattern to replace, print replacement
    if ($ln =~ 'insert_devices') {
        $mod_tmpl .= $dasdSection;
    } elsif ($ln =~ 'insert_hosts') {
        $mod_tmpl .= $hostsSection;
    } elsif ($ln =~ 'insert_dns') {
        $mod_tmpl .= $dnsSection;
    } elsif ($ln =~ 'insert_interfaces') {
        $mod_tmpl .= $interfacesSection;
    } elsif ($ln =~ 'insert_modules') {
        $mod_tmpl .= $dasdModulesSection;
        $mod_tmpl .= $nicModulesSection;
    } elsif ($ln =~ 'insert_partitioning_drives') {
        $mod_tmpl .= $partitionsSection;
    } elsif ($ln =~ 'insert_root_password') {
        $mod_tmpl .= $passwordSection;
    } elsif ($ln =~ 'insert_routes') {
        $mod_tmpl .= $routesSection;
    } elsif ($ln =~ '<scripts>') {

        # Print line
        $ln =~ s/\r//g;    # Remove return carriage
        $mod_tmpl .= $ln;

        $mod_tmpl .= $scriptsSection;
    } else {

        # Print line
        $ln =~ s/\r//g;    # Remove return carriage
        $mod_tmpl .= $ln;
    }
}
close(FILE);

# Print out modified template
open(TMPL, ">$template_path");
print TMPL "$mod_tmpl";
close(TMPL);

# Done
print "Done! See autoyast template under $template_path\n";
exit();




#-------------------------------------------------------

=head3   trim

	Description	: Trim the whitespaces in a string
    Arguments	: String
    Returns		: Trimmed string
    Example		: my $str = trim($str);

=cut

#-------------------------------------------------------
sub trim {

    # Get string
    my ($str) = @_;

    # Trim right
    $str =~ s/\s*$//;

    # Trim left
    $str =~ s/^\s*//;

    return ($str);
}

#-------------------------------------------------------

=head3   createDasd

	Description	: Create the <dasd> section
    Arguments	: Dasd and partition hash
    Returns		: <dasd> section
    Example		: my $section = createDasd($dasd_ref, $partition_ref);

=cut

#-------------------------------------------------------
sub createDasd {

    # Get inputs
    my ($dasd_ref, $partition_ref) = @_;

    my %dasd      = %$dasd_ref;
    my %partition = %$partition_ref;

    # dasd hash should include:
    # 	$dasd{$addr}{'device_name'} = $device_name;
    #	$dasd{$addr}{'type'} = $dasd_type;
    # partition hash should include:
    # 	$partitions{$device_name}{'device_fs'} = '';
    # 	$partitions{$device_name}{'device_size'} = '';
    # 	$partitions{$device_name}{'device_mount'} = '';
    # 	$partitions{$device_name}{'device_lvm'} = '';
    # 	$partitions{$device_name}{'lvm'}{$lvm_vol_name} = {
    #		'name' => $lvm_vol_name,
    #		'mount' => $lvm_vol_mount,
    #		'size' => $lvm_vol_size
    #	};

    # Create <dasd> section
    #   <!-- Dasd attached at 0100 -->
    #   <listentry>
    #     <bus>None</bus>
    #     <bus_hwcfg>none</bus_hwcfg>
    #     <channel>0.0.0100</channel>
    #     <format config:type="boolean">true</format>
    #     <dev_name>/dev/dasda</dev_name>
    #     <dev_names config:type="list">
    #       <listentry>/dev/dasda</listentry>
    #       <listentry>/dev/disk/by-path/ccw-0.0.0100</listentry>
    #     </dev_names>
    #     <device>DASD</device>
    #     <driver>io_subchannel</driver>
    #     <drivers config:type="list">
    #       <listentry>
    #         <active config:type="boolean">true</active>
    #         <modprobe config:type="boolean">true</modprobe>
    #           <modules config:type="list">
    #             <module_entry config:type="list">
    #             <listentry>dasd_eckd_mod</listentry>
    #             <listentry></listentry>
    #           </module_entry>
    #         </modules>
    #       </listentry>
    #     </drivers>
    #     <formatted config:type="boolean">false</formatted>
    #     <partition_info>/dev/dasda1 (Linux native)</partition_info>
    #     <resource>
    #       <io config:type="list">
    #         <listentry>
    #           <active config:type="boolean">true</active>
    #           <length config:type="integer">1</length>
    #           <mode>rw</mode>
    #         </listentry>
    #       </io>
    #     </resource>
    #     <sysfs_bus_id>0.0.0100</sysfs_bus_id>
    #   </listentry>
    my $xml = '';

    my $device_name;
    my $device_type;
    my $partition_info;
    foreach my $addr (sort keys %dasd) {
        $device_name = $dasd{$addr}{'device_name'};
        $device_type = $dasd{$addr}{'type'};

        # If this dasd is to be used for Linux
        if ($partitions{$device_name}{'device_mount'} || $partitions{$device_name}{'device_lvm'}) {
            $partition_info = $device_name . "1 (Linux native)";
            $xml .= <<END;
<listentry>
  <bus>None</bus>
  <bus_hwcfg>none</bus_hwcfg>
  <channel>$addr</channel>
  <format config:type="boolean">true</format>
  <dev_name>$device_name</dev_name>
  <dev_names config:type="list">
    <listentry>$device_name</listentry>
    <listentry>/dev/disk/by-path/ccw-$addr</listentry>
  </dev_names>
  <device>DASD</device>
  <driver>io_subchannel</driver>
  <drivers config:type="list">
    <listentry>
      <active config:type="boolean">true</active>
      <modprobe config:type="boolean">true</modprobe>
        <modules config:type="list">
          <module_entry config:type="list">
          <listentry>$device_type</listentry>
          <listentry></listentry>
        </module_entry>
      </modules>
    </listentry>
  </drivers>
  <formatted config:type="boolean">false</formatted>
  <partition_info>$partition_info</partition_info>
  <resource>
    <io config:type="list">
      <listentry>
        <active config:type="boolean">true</active>
        <length config:type="integer">1</length>
        <mode>rw</mode>
      </listentry>
    </io>
  </resource>
  <sysfs_bus_id>$addr</sysfs_bus_id>
</listentry>
END
        } else {
            $partition_info = $device_name;
            $xml .= <<END;
<listentry>
  <bus>None</bus>
  <bus_hwcfg>none</bus_hwcfg>
  <channel>$addr</channel>
  <dev_name>$device_name</dev_name>
  <dev_names config:type="list">
    <listentry>$device_name</listentry>
    <listentry>/dev/disk/by-path/ccw-$addr</listentry>
  </dev_names>
  <device>DASD</device>
  <driver>io_subchannel</driver>
  <drivers config:type="list">
    <listentry>
      <active config:type="boolean">true</active>
      <modprobe config:type="boolean">true</modprobe>
        <modules config:type="list">
          <module_entry config:type="list">
          <listentry>$device_type</listentry>
          <listentry/>
        </module_entry>
      </modules>
    </listentry>
  </drivers>
  <formatted config:type="boolean">true</formatted>
  <partition_info>$partition_info</partition_info>
  <resource>
    <disk_log_geo config:type="list">
      <listentry>
        <heads config:type="integer">16</heads>
        <sectors config:type="integer">128</sectors>
      </listentry>
    </disk_log_geo>
  </resource>
  <sysfs_bus_id>$addr</sysfs_bus_id>
</listentry>
END
        }
    }

    return $xml;
}

#-------------------------------------------------------

=head3   createInterfaces

	Description	: Create the <interfaces> section
    Arguments	: Interfaces hash
    Returns		: <interfaces> section
    Example		: my $section = createInterfaces($interfaces_ref);

=cut

#-------------------------------------------------------
sub createInterfaces {

    # Get string
    my ($interfaces_ref) = @_;
    my %interfaces = %$interfaces_ref;

    # Create <interfaces> section
    # <interface>
    #   <bootproto>static</bootproto>
    #   <broadcast>10.1.100.255</broadcast>
    #   <device>eth0</device>
    #   <ipaddr>10.1.100.100</ipaddr>
    #   <name>OSA Express Network card (0.0.0800)</name>
    #   <netmask>255.255.255.0</netmask>
    #   <prefixlen>25</prefixlen>
    #   <startmode>auto</startmode>
    # </interface>
    #
    # The layout is different for DHCP:
    # <interface>
    #   <bootproto>dhcp</bootproto>
    #   <device>eth0</device>
    #   <lladdr>02:00:00:FF:FF:FF</lladdr>
    #   <startmode>auto</startmode>
    #   <usercontrol>no</usercontrol>
    # </interface>
    my $xml = '';
    foreach my $i (keys %interfaces) {

        # Create static interface
        if ($interfaces{$i}{'bootproto'} eq 'static') {
            $xml .= <<END;
<interface>
  <bootproto>$interfaces{$i}{'bootproto'}</bootproto>
  <broadcast>$interfaces{$i}{'broadcast'}</broadcast>
  <device>$interfaces{$i}{'device'}</device>
  <ipaddr>$interfaces{$i}{'ipaddr'}</ipaddr>
  <lladdr>$interfaces{$i}{'lladdr'}</lladdr>
  <netmask>$interfaces{$i}{'netmask'}</netmask>
  <network>$interfaces{$i}{'network'}</network>
  <startmode>auto</startmode>
</interface>
END
        }

        # Create DHCP interface
        else {
            $xml .= <<END;
<interface>
  <bootproto>$interfaces{$i}{'bootproto'}</bootproto>
  <device>$interfaces{$i}{'device'}</device>
  <lladdr>$interfaces{$i}{'lladdr'}</lladdr>
  <startmode>auto</startmode>
  <usercontrol>no</usercontrol>
</interface>
END
        }
    }

    return ($xml);
}

#-------------------------------------------------------

=head3   createPartitions

	Description	: Create the <partitions> section
    Arguments	: Dasds and partition hash
    Returns		: <partitions> section
    Example		: my $section = createPartitions($dasd_ref, $partition_ref);

=cut

#-------------------------------------------------------
sub createPartitions {

    # Get inputs
    my ($dasd_ref, $partition_ref) = @_;

    my %dasd       = %$dasd_ref;
    my %partitions = %$partition_ref;

    # Create <partitions> section
    # <drive>
    #   <device>/dev/dasda</device>
    #   <partitions config:type="list">
    #     <partition>
    #       <create config:type="boolean">true</create>
    #       <filesystem config:type="symbol">ext3</filesystem>
    #       <format config:type="boolean">true</format>
    #       <mount>/</mount>
    #       <mountby config:type="symbol">path</mountby>
    #       <partition_id config:type="integer">131</partition_id>
    #       <partition_nr config:type="integer">1</partition_nr>
    #       <partition_type>primary</partition_type>
    #       <size>max</size>
    #     </partition>
    #   </partitions>
    #   <use>all</use>
    # </drive>
    #
    # The layout is different for LVM:
    # <drive>
    #   <device>/dev/dasdb</device>
    #   <initialize config:type="boolean">true</initialize>
    #   <partitions config:type="list">
    #     <partition>
    #       <create config:type="boolean">true</create>
    #       <crypt_fs config:type="boolean">false</crypt_fs>
    #       <filesystem config:type="symbol">ext3</filesystem>
    #       <format config:type="boolean">false</format>
    #       <loop_fs config:type="boolean">false</loop_fs>
    #       <lvm_group>VG</lvm_group>
    #       <mountby config:type="symbol">path</mountby>
    #       <resize config:type="boolean">false</resize>
    #       <size>max</size>
    #     </partition>
    #   </partitions>
    #   <use>all</use>
    # </drive>
    my $xml = '';

    # Go through each partition
    foreach my $device_name (sort keys %partitions) {

        # Create <drive> head
        $xml .= <<END;
<drive>
  <device>$device_name</device>
  <partitions config:type="list">
END

        if (exists $partitions{$device_name}{'lvm'} && $partitions{$device_name}{'lvm'}) {
            my %lvm_vols = %{ $partitions{$device_name}{'lvm'} };
            foreach my $vol (sort keys %lvm_vols) {

                # Create <partition> section for LVM volume
                $xml .= <<END;
    <partition>
      <create config:type="boolean">true</create>
      <crypt_fs config:type="boolean">false</crypt_fs>
      <filesystem config:type="symbol">$lvm_vols{$vol}{'fs'}</filesystem>
      <format config:type="boolean">true</format>
      <fstopt>acl,user_xattr</fstopt>
      <lv_name>$lvm_vols{$vol}{'name'}</lv_name>
      <mount>$lvm_vols{$vol}{'mount'}</mount>
      <mountby config:type="symbol">path</mountby>
      <partition_id config:type="integer">131</partition_id>
      <raid_options/>
      <resize config:type="boolean">false</resize>
      <size>$lvm_vols{$vol}{'size'}</size>
    </partition>
END
            }
        } elsif (exists $partitions{$device_name}{'device_lvm'} && $partitions{$device_name}{'device_lvm'}) {

            # Create <partition> section for LVM group
            $xml .= <<END;
    <partition>
      <create config:type="boolean">true</create>
      <crypt_fs config:type="boolean">false</crypt_fs>
      <filesystem config:type="symbol">$partitions{$device_name}{'device_fs'}</filesystem>
      <format config:type="boolean">false</format>
      <loop_fs config:type="boolean">false</loop_fs>
      <lvm_group>$partitions{$device_name}{'device_lvm'}</lvm_group>
      <mountby config:type="symbol">path</mountby>
      <partition_id config:type="integer">142</partition_id>
      <partition_nr config:type="integer">1</partition_nr>
      <resize config:type="boolean">false</resize>
      <size>$partitions{$device_name}{'device_size'}</size>
    </partition>
END
        } else {

            # Not an LVM group or volume
            $xml .= <<END;
    <partition>
      <create config:type="boolean">true</create>
      <filesystem config:type="symbol">$partitions{$device_name}{'device_fs'}</filesystem>
      <format config:type="boolean">true</format>
      <mount>$partitions{$device_name}{'device_mount'}</mount>
      <mountby config:type="symbol">path</mountby>
      <partition_id config:type="integer">131</partition_id>
      <partition_nr config:type="integer">1</partition_nr>
      <partition_type>primary</partition_type>
      <size>$partitions{$device_name}{'device_size'}</size>
    </partition>	
END
        }

        # Create <drive> tail
        if (exists $partitions{$device_name}{'device_lvm'} && $partitions{$device_name}{'device_lvm'}) {
            $xml .= <<END;
  </partitions>
  <pesize>4M</pesize>
  <type config:type="symbol">CT_LVM</type>
  <use>all</use>
</drive>
END
        } else {
            $xml .= <<END;
  </partitions>
  <use>all</use>
</drive>
END
        }
    }

    return $xml;
}

#-------------------------------------------------------

=head3   createHosts

	Description	: Create the <hosts> section
    Arguments	: Hosts to be created
    Returns		: <hosts> section
    Example		: my $section = createHosts($hosts);

=cut

#-------------------------------------------------------
sub createHosts {
    my ($hosts_ref) = @_;
    my %hosts = %$hosts_ref;

    # Create <hosts> section
    # e.g.
    # <hosts_entry>
    #   <host_address>10.1.100.100</host_address>
    #   <names config:type="list">
    #     <name>gpok100.endicott.ibm.com gpok100</name>
    #   </names>
    # </hosts_entry>
    my $xml = '';

    # Create host entries
    foreach my $i (keys %hosts) {
        $xml .= <<END;
  <hosts_entry>
    <host_address>$hosts{$i}{'host_address'}</host_address>
    <names config:type="list">
      <name>$hosts{$i}{'name'}</name>
    </names>
  </hosts_entry>
END
    }

    return $xml;
}

#-------------------------------------------------------

=head3   createDns

	Description	: Create the <dns> section
    Arguments	: DNS
    Returns		: <dns> section
    Example		: my $section = createDns($dns);

=cut

#-------------------------------------------------------
sub createDns {

    # Get string
    my ($dns_ref) = @_;
    my %dns = %$dns_ref;

    # Create <dns> section
    #   <dhcp_hostname config:type="boolean">false</dhcp_hostname>
    #   <dhcp_resolv config:type="boolean">false</dhcp_resolv>
    #   <domain>endicott.ibm.com</domain>
    #   <hostname>gpok100</hostname>
    #   <nameservers config:type="list">
    #     <nameserver>10.1.100.100</nameserver>
    #   </nameservers>
    my $xml = '';
    foreach my $i (keys %dns) {
        $xml .= <<END;
<dhcp_hostname config:type="boolean">$dns{$i}{'dhcp_hostname'}</dhcp_hostname>
<dhcp_resolv config:type="boolean">$dns{$i}{'dhcp_resolv'}</dhcp_resolv>
<domain>$dns{$i}{'domain'}</domain>
<hostname>$dns{$i}{'hostname'}</hostname>
<nameservers config:type="list">
  <nameserver>$dns{$i}{'nameserver'}</nameserver>
</nameservers>
END
    }

    return $xml;
}

#-------------------------------------------------------

=head3   createDasdModules

	Description	: Create the <modules> section for each dasd attached
    Arguments	: Dasd hash
    Returns		: <modules> section
    Example		: my $section = createDasdModules($dasd_ref);

=cut

#-------------------------------------------------------
sub createDasdModules {

    # Get string
    my ($dasd_ref) = @_;
    my %dasd = %$dasd_ref;

    # Create <modules> section
    # <module_entry>
    #   <device>dasd-bus-ccw-0.0.0100</device>
    #   <module>dasd_eckd_mod</module>
    #   <options></options>
    # </module_entry>

    my $xml = '';
    foreach my $addr (keys %dasd) {
        $xml .= <<END;
<module_entry>
  <device>dasd-bus-ccw-$addr</device>
  <module>$dasd{$addr}{'type'}</module>
  <options></options>
</module_entry>
END
    }

    return $xml;
}

#-------------------------------------------------------

=head3   createNicModules

	Description	: Create the <modules> section for each interface attached
    Arguments	: Interfaces hash
    Returns		: <modules> section
    Example		: my $section = createNicModules(%interfaces);

=cut

#-------------------------------------------------------
sub createNicModules {

    # Get hash table
    my ($interfaces_ref) = @_;
    my %interfaces = %$interfaces_ref;

    # Create <modules> section
    # <module_entry>
    #   <ccw_chan_ids>0.0.0800 0.0.0801 0.0.0802</ccw_chan_ids>
    #   <ccw_chan_mode>FOOBAR</ccw_chan_mode>
    #   <ccw_chan_num>3</ccw_chan_num>
    #   <device>eth0</device>
    #   <module>qeth</module>
    #   <options/>
    # </module_entry>
    my $xml = '';
    foreach my $i (sort (keys %interfaces)) {
        $xml .= <<END;
<module_entry>
  <ccw_chan_ids>$interfaces{$i}{'chanids'}</ccw_chan_ids>
  <ccw_chan_mode>FOOBAR</ccw_chan_mode>
  <ccw_chan_num>3</ccw_chan_num>
  <device>$interfaces{$i}{'device'}</device>
  <module>qeth</module>
  <options></options>
</module_entry>
END
    }

    return $xml;
}

#-------------------------------------------------------

=head3   createSoftware

	Description	: Create the <software> section
    Arguments	: Software list
    Returns		: <software> section
    Example		: my $section = createSoftware($dns);

=cut

#-------------------------------------------------------
sub createSoftware {

    # Get string
    my ($str) = @_;

    # Split the software
    # e.g. base,gnome
    my @software = split(/,/, $str);

    # Create <software> section
    # 	<pattern>Basis-Devel</pattern>
    # 	<pattern>Minimal</pattern>
    # 	<pattern>base</pattern>
    # 	<pattern>documentation</pattern>
    # 	<pattern>file_server</pattern>
    # 	<pattern>gnome</pattern>
    # 	<pattern>print_server</pattern>
    # 	<pattern>x11</pattern>
    my $xml = '';
    foreach (@software) {
        $xml .= <<END;
  <pattern>$_</pattern>
END
    }

    return $xml;
}

#-------------------------------------------------------

=head3   createRoutes

	Description	: Create the <routes> section
    Arguments	: Interfaces hash
    Returns		: <routes> section
    Example		: my $section = createRoutes($route);

=cut

#-------------------------------------------------------
sub createRoutes {

    # Get hash table
    my ($interfaces_ref) = @_;
    my %interfaces = %$interfaces_ref;

    # Create <routes> section
    # <ip_forward config:type="boolean">false</ip_forward>
    #   <routes config:type="list">
    #   <route>
    #     <destination>default</destination>
    #     <device>-</device>
    #     <gateway>10.1.100.1</gateway>
    #     <netmask>-</netmask>
    #   </route>
    # </routes>

    my $xml  = '';
    my $dest = '';
    foreach my $i (sort (keys %interfaces)) {
        if (!$dest) {

            # The first interface is the default route
            $dest = 'default';
        } else {

            # Get network
            $dest = substr($interfaces{$i}{'ipaddr'}, 0, rindex($interfaces{$i}{'ipaddr'}, '.'));
            $dest .= ".0";
        }

        # Do not set gateway for DHCP interface
        if (!($interfaces{$i}{'bootproto'} eq 'dhcp')) {
            $xml .= <<END;
  <route>
    <destination>$dest</destination>
    <device>-</device>
    <gateway>$interfaces{$i}{'gateway'}</gateway>
    <netmask>-</netmask>
  </route>
END
        }
    }

    return $xml;
}

#-------------------------------------------------------

=head3   createScripts

	Description	: Create the <scripts> section to configure interfaces
    Arguments	: Interfaces hash
    Returns		: <scripts> section
    Example		: my $section = createScripts(%interfaces);

=cut

#-------------------------------------------------------
sub createScripts {

    # Get hash table
    my ($interfaces_ref) = @_;
    my %interfaces = %$interfaces_ref;

    # Default route is being added by autoyast (bug)
    # Setting default route in post-script
    my $xml    = '';
    my $script = '';
    foreach my $i (sort (keys %interfaces)) {

        # Set the default route for the firs interface
        # Do not set default route for DHCP interface
        if (!$script && !($interfaces{$i}{'bootproto'} eq 'dhcp')) {
            $script .= <<END;
echo "default $interfaces{$i}{'gateway'} - -" > /etc/sysconfig/network/routes
END
            last;
        }
    }

    # Create <scripts> section
    if ($script) {
        $xml .= <<END;
<post-scripts config:type="list">
  <script>
    <filename>post.sh</filename>
    <interpreter>shell</interpreter>
    <source>
<![CDATA[
#!/bin/sh

$script
]]>
    </source>
  </script>
</post-scripts>
END
    }

    return $xml;
}

#-------------------------------------------------------

=head3   ask

	Description	: Prompt user for input
    Arguments	: Question
    Returns		: Answer
    Example		: my $answer = ask("What day is today?");

=cut

#-------------------------------------------------------
sub ask {
    my ($question) = @_;

    print "$question";
    my $answer = <>;
    return trim($answer);
}

#-------------------------------------------------------

=head3   pad

	Description	: Pad a string to a given length
    Arguments	: String and size
    Returns		: Padded string
    Example		: my $str = pad($str, 12);

=cut

#-------------------------------------------------------
sub pad {
    my ($str, $size) = @_;

    while (length($str) < $size) {
        $str = "$str ";
    }

    return $str;
}

#-------------------------------------------------------

=head3   genSles11Tmpl

	Description	: Generate SLES 11 autoyast template
    Arguments	: Nothing
    Returns		: SLES 11 autoyast template
    Example		: my $tmpl = genSles11Tmpl();

=cut

#-------------------------------------------------------
sub genSles11Tmpl {
    my $tmpl = <<AUTOYASTEND;
<?xml version="1.0"?>
<!DOCTYPE profile>
<profile xmlns="http://www.suse.com/1.0/yast2ns" xmlns:config="http://www.suse.com/1.0/configns">

  <!-- The dasd attached to the virtual server -->
  <dasd>
    <devices config:type="list">
      insert_devices
    </devices>
  </dasd>


  <general>
    <mode>
      <confirm config:type="boolean">false</confirm>
    </mode>
    <mouse>
      <id>none</id>
    </mouse>
    <signature-handling/>
  </general>


  <!-- Groups to create on Linux -->
  <groups config:type="list">
    <group>
      <groupname>users</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>floppy</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>bin</groupname>
      <userlist>daemon</userlist>
    </group>
    <group>
      <groupname>xok</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>nobody</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>modem</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>lp</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>tty</groupname>
      <userlist></userlist>
    </group>
    <group>
      <group_password>!</group_password>
      <groupname>postfix</groupname>
      <userlist></userlist>
    </group>
    <group>
      <group_password>!</group_password>
      <groupname>gdm</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>nogroup</groupname>
      <userlist>nobody</userlist>
    </group>
    <group>
      <group_password>!</group_password>
      <groupname>maildrop</groupname>
      <userlist></userlist>
    </group>
    <group>
      <group_password>!</group_password>
      <groupname>messagebus</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>video</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>sys</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>shadow</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>console</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>cdrom</groupname>
      <userlist></userlist>
    </group>
    <group>
      <group_password>!</group_password>
      <groupname>haldaemon</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>trusted</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>dialout</groupname>
      <userlist></userlist>
    </group>
    <group>
      <group_password>!</group_password>
      <groupname>ts-shell</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>wheel</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>www</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>games</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>disk</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>audio</groupname>
      <userlist></userlist>
    </group>
    <group>
      <group_password>!</group_password>
      <groupname>suse-ncc</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>ftp</groupname>
      <userlist></userlist>
    </group>
    <group>
      <group_password>!</group_password>
      <groupname>at</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>kmem</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>public</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>root</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>mail</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>daemon</groupname>
      <userlist></userlist>
    </group>
    <group>
      <group_password>!</group_password>
      <groupname>ntp</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>uucp</groupname>
      <userlist></userlist>
    </group>
    <group>
      <group_password>!</group_password>
      <groupname>ntadmin</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>man</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>utmp</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>news</groupname>
      <userlist></userlist>
    </group>
    <group>
      <group_password>!</group_password>
      <groupname>sshd</groupname>
      <userlist></userlist>
    </group>
  </groups>


  <!-- Contents of /etc/hosts -->
  <host>
    <hosts config:type="list">
      insert_hosts
    </hosts>
  </host>


  <iscsi-client>
    <initiatorname></initiatorname>
    <targets config:type="list"/>
    <version>1.0</version>
  </iscsi-client>


  <!-- Language setup (english) -->
  <language>
    <language>en_US</language>
    <languages></languages>
  </language>


  <!-- Networking setup -->
  <networking>
    <dhcp_options>
      <dhclient_additional_options></dhclient_additional_options>
      <dhclient_client_id></dhclient_client_id>
      <dhclient_hostname_option>AUTO</dhclient_hostname_option>
    </dhcp_options>
    <dns>
      insert_dns
    </dns>
    <interfaces config:type="list">
      insert_interfaces
    </interfaces>
    <managed config:type="boolean">false</managed>


    <!-- Device type -->
    <modules config:type="list">
      insert_modules
    </modules>
    <routing>
      <ip_forward config:type="boolean">false</ip_forward>
      <routes config:type="list">
        insert_routes
      </routes>
    </routing>
  </networking>


  <nis>
    <nis_broadcast config:type="boolean">false</nis_broadcast>
    <nis_broken_server config:type="boolean">false</nis_broken_server>
    <nis_by_dhcp config:type="boolean">false</nis_by_dhcp>
    <nis_domain></nis_domain>
    <nis_local_only config:type="boolean">false</nis_local_only>
    <nis_options></nis_options>
    <nis_other_domains config:type="list">
    </nis_other_domains>
    <nis_servers config:type="list"/>
    <start_autofs config:type="boolean">false</start_autofs>
    <start_nis config:type="boolean">false</start_nis>
  </nis>


  <!-- File system partitioning -->
  <partitioning config:type="list">
    insert_partitioning_drives
  </partitioning>


  <proxy>
    <enabled config:type="boolean">false</enabled>
    <ftp_proxy></ftp_proxy>
    <http_proxy></http_proxy>
    <https_proxy></https_proxy>
    <no_proxy>localhost, 127.0.0.1</no_proxy>
    <proxy_password></proxy_password>
    <proxy_user></proxy_user>
  </proxy>


  <report>
    <errors>
      <log config:type="boolean">true</log>
      <show config:type="boolean">true</show>
      <timeout config:type="integer">0</timeout>
    </errors>
    <messages>
      <log config:type="boolean">true</log>
      <show config:type="boolean">true</show>
      <timeout config:type="integer">0</timeout>
    </messages>
    <warnings>
      <log config:type="boolean">true</log>
      <show config:type="boolean">true</show>
      <timeout config:type="integer">0</timeout>
    </warnings>
    <yesno_messages>
      <log config:type="boolean">true</log>
      <show config:type="boolean">true</show>
      <timeout config:type="integer">0</timeout>
    </yesno_messages>
  </report>


  <runlevel>
    <default>5</default>
  </runlevel>


  <!-- Software to install on Linux -->
  <software>
    <patterns config:type="list">
      replace_software_patterns
    </patterns>
    <packages config:type="list">
      replace_software_packages
    </packages>
  </software>


  <!-- Time zone -->
  <timezone>
    <hwclock>UTC</hwclock>
    <timezone>US/Eastern</timezone>
  </timezone>


  <user_defaults>
    <expire></expire>
    <group>100</group>
    <groups>video,dialout</groups>
    <home>/home</home>
    <inactive>-1</inactive>
    <shell>/bin/bash</shell>
    <skel>/etc/skel</skel>
  </user_defaults>
AUTOYASTEND

    # Handle second half
    $tmpl .= <<AUTOYASTEND;
	

  <!-- Users on Linux -->
  <users config:type="list">
    <user>
      <encrypted config:type="boolean">true</encrypted>
      <fullname>Games account</fullname>
      <gid>100</gid>
      <home>/var/games</home>
      <password_settings>
        <expire></expire>
        <flag></flag>
        <inact></inact>
        <max></max>
        <min></min>
        <warn></warn>
      </password_settings>
      <shell>/bin/bash</shell>
      <uid>12</uid>
      <user_password>*</user_password>
      <username>games</username>
    </user>
    <user>
      <encrypted config:type="boolean">true</encrypted>
      <fullname>bin</fullname>
      <gid>1</gid>
      <home>/bin</home>
      <password_settings>
        <expire></expire>
        <flag></flag>
        <inact></inact>
        <max></max>
        <min></min>
        <warn></warn>
      </password_settings>
      <shell>/bin/bash</shell>
      <uid>1</uid>
      <user_password>*</user_password>
      <username>bin</username>
    </user>
    <user>
      <encrypted config:type="boolean">true</encrypted>
      <fullname>nobody</fullname>
      <gid>65533</gid>
      <home>/var/lib/nobody</home>
      <password_settings>
        <expire></expire>
        <flag></flag>
        <inact></inact>
        <max></max>
        <min></min>
        <warn></warn>
      </password_settings>
      <shell>/bin/bash</shell>
      <uid>65534</uid>
      <user_password>*</user_password>
      <username>nobody</username>
    </user>
    <user>
      <encrypted config:type="boolean">true</encrypted>
      <fullname>Printing daemon</fullname>
      <gid>7</gid>
      <home>/var/spool/lpd</home>
      <password_settings>
        <expire></expire>
        <flag></flag>
        <inact></inact>
        <max></max>
        <min></min>
        <warn></warn>
      </password_settings>
      <shell>/bin/bash</shell>
      <uid>4</uid>
      <user_password>*</user_password>
      <username>lp</username>
    </user>
    <user>
      <encrypted config:type="boolean">true</encrypted>
      <fullname>Postfix Daemon</fullname>
      <gid>51</gid>
      <home>/var/spool/postfix</home>
      <password_settings>
        <expire></expire>
        <flag></flag>
        <inact></inact>
        <max>99999</max>
        <min>0</min>
        <warn>7</warn>
      </password_settings>
      <shell>/bin/false</shell>
      <uid>51</uid>
      <user_password>!</user_password>
      <username>postfix</username>
    </user>
    <user>
      <encrypted config:type="boolean">true</encrypted>
      <fullname>Novell Customer Center User</fullname>
      <gid>106</gid>
      <home>/var/lib/YaST2/suse-ncc-fakehome</home>
      <password_settings>
        <expire></expire>
        <flag></flag>
        <inact></inact>
        <max>99999</max>
        <min>0</min>
        <warn>7</warn>
      </password_settings>
      <shell>/bin/bash</shell>
      <uid>102</uid>
      <user_password>!</user_password>
      <username>suse-ncc</username>
    </user>
    <user>
      <encrypted config:type="boolean">true</encrypted>
      <fullname>FTP account</fullname>
      <gid>49</gid>
      <home>/srv/ftp</home>
      <password_settings>
        <expire></expire>
        <flag></flag>
        <inact></inact>
        <max></max>
        <min></min>
        <warn></warn>
      </password_settings>
      <shell>/bin/bash</shell>
      <uid>40</uid>
      <user_password>*</user_password>
      <username>ftp</username>
    </user>
    <user>
      <encrypted config:type="boolean">false</encrypted>
      <fullname>root</fullname>
      <gid>0</gid>
      <home>/root</home>
      <password_settings>
        <expire></expire>
        <flag></flag>
        <inact></inact>
        <max></max>
        <min></min>
        <warn></warn>
      </password_settings>
      <shell>/bin/bash</shell>
      <uid>0</uid>
      <user_password>insert_root_password</user_password>
      <username>root</username>
    </user>
    <user>
      <encrypted config:type="boolean">true</encrypted>
      <fullname>Mailer daemon</fullname>
      <gid>12</gid>
      <home>/var/spool/clientmqueue</home>
      <password_settings>
        <expire></expire>
        <flag></flag>
        <inact></inact>
        <max></max>
        <min></min>
        <warn></warn>
      </password_settings>
      <shell>/bin/false</shell>
      <uid>8</uid>
      <user_password>*</user_password>
      <username>mail</username>
    </user>
    <user>
      <encrypted config:type="boolean">true</encrypted>
      <fullname>Daemon</fullname>
      <gid>2</gid>
      <home>/sbin</home>
      <password_settings>
        <expire></expire>
        <flag></flag>
        <inact></inact>
        <max></max>
        <min></min>
        <warn></warn>
      </password_settings>
      <shell>/bin/bash</shell>
      <uid>2</uid>
      <user_password>*</user_password>
      <username>daemon</username>
    </user>
    <user>
      <encrypted config:type="boolean">true</encrypted>
      <fullname>NTP daemon</fullname>
      <gid>103</gid>
      <home>/var/lib/ntp</home>
      <password_settings>
        <expire></expire>
        <flag></flag>
        <inact></inact>
        <max>99999</max>
        <min>0</min>
        <warn>7</warn>
      </password_settings>
      <shell>/bin/false</shell>
      <uid>74</uid>
      <user_password>!</user_password>
      <username>ntp</username>
    </user>
    <user>
      <encrypted config:type="boolean">true</encrypted>
      <fullname>Unix-to-Unix CoPy system</fullname>
      <gid>14</gid>
      <home>/etc/uucp</home>
      <password_settings>
        <expire></expire>
        <flag></flag>
        <inact></inact>
        <max></max>
        <min></min>
        <warn></warn>
      </password_settings>
      <shell>/bin/bash</shell>
      <uid>10</uid>
      <user_password>*</user_password>
      <username>uucp</username>
    </user>
    <user>
      <fullname>User for D-BUS</fullname>
      <gid>101</gid>
      <home>/var/run/dbus</home>
      <shell>/bin/false</shell>
      <uid>100</uid>
    </user>
    <user>
      <fullname>User for haldaemon</fullname>
      <gid>102</gid>
      <home>/var/run/hal</home>
      <shell>/bin/false</shell>
      <uid>101</uid>
    </user>
    <user>
      <encrypted config:type="boolean">true</encrypted>
      <fullname>WWW daemon apache</fullname>
      <gid>8</gid>
      <home>/var/lib/wwwrun</home>
      <password_settings>
        <expire></expire>
        <flag></flag>
        <inact></inact>
        <max></max>
        <min></min>
        <warn></warn>
      </password_settings>
      <shell>/bin/false</shell>
      <uid>30</uid>
      <user_password>*</user_password>
      <username>wwwrun</username>
    </user>
    <user>
      <encrypted config:type="boolean">true</encrypted>
      <fullname>Manual pages viewer</fullname>
      <gid>62</gid>
      <home>/var/cache/man</home>
      <password_settings>
        <expire></expire>
        <flag></flag>
        <inact></inact>
        <max></max>
        <min></min>
        <warn></warn>
      </password_settings>
      <shell>/bin/bash</shell>
      <uid>13</uid>
      <user_password>*</user_password>
      <username>man</username>
    </user>
    <user>
      <encrypted config:type="boolean">true</encrypted>
      <fullname>News system</fullname>
      <gid>13</gid>
      <home>/etc/news</home>
      <password_settings>
        <expire></expire>
        <flag></flag>
        <inact></inact>
        <max></max>
        <min></min>
        <warn></warn>
      </password_settings>
      <shell>/bin/bash</shell>
      <uid>9</uid>
      <user_password>*</user_password>
      <username>news</username>
    </user>
    <user>
      <encrypted config:type="boolean">true</encrypted>
      <fullname>SSH daemon</fullname>
      <gid>65</gid>
      <home>/var/lib/sshd</home>
      <password_settings>
        <expire></expire>
        <flag></flag>
        <inact></inact>
        <max>99999</max>
        <min>0</min>
        <warn>7</warn>
      </password_settings>
      <shell>/bin/false</shell>
      <uid>71</uid>
      <user_password>!</user_password>
      <username>sshd</username>
    </user>
  </users>


  <zfcp>
    <devices config:type="list"/>
  </zfcp>


  <!-- Scripts (post-script) -->
  <configure>
    <scripts>
    </scripts>
  </configure>
</profile>	
AUTOYASTEND
    return $tmpl;
}

#-------------------------------------------------------

=head3   genSles10Tmpl

	Description	: Generate SLES 10 autoyast template
    Arguments	: Nothing
    Returns		: SLES 10 autoyast template
    Example		: my $tmpl = genSles10Tmpl();

=cut

#-------------------------------------------------------
sub genSles10Tmpl {
    my $tmpl = <<AUTOYASTEND;
<?xml version="1.0"?>
<!DOCTYPE profile>
<profile xmlns="http://www.suse.com/1.0/yast2ns" xmlns:config="http://www.suse.com/1.0/configns">

  <!-- The dasd attached to the virtual server -->
  <dasd>
    <devices config:type="list">
      insert_devices
    </devices>
  </dasd>


  <general>
    <mode>
      <confirm config:type="boolean">false</confirm>
    </mode>
    <mouse>
      <id>none</id>
    </mouse>
    <signature-handling/>
  </general>


  <!-- Groups to create on Linux -->
  <groups config:type="list">
    <group>
      <groupname>users</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>floppy</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>bin</groupname>
      <userlist>daemon</userlist>
    </group>
    <group>
      <groupname>xok</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>nobody</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>modem</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>lp</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>tty</groupname>
      <userlist></userlist>
    </group>
    <group>
      <group_password>!</group_password>
      <groupname>postfix</groupname>
      <userlist></userlist>
    </group>
    <group>
      <group_password>!</group_password>
      <groupname>gdm</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>nogroup</groupname>
      <userlist>nobody</userlist>
    </group>
    <group>
      <group_password>!</group_password>
      <groupname>maildrop</groupname>
      <userlist></userlist>
    </group>
    <group>
      <group_password>!</group_password>
      <groupname>messagebus</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>video</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>sys</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>shadow</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>console</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>cdrom</groupname>
      <userlist></userlist>
    </group>
    <group>
      <group_password>!</group_password>
      <groupname>haldaemon</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>trusted</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>dialout</groupname>
      <userlist></userlist>
    </group>
    <group>
      <group_password>!</group_password>
      <groupname>ts-shell</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>wheel</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>www</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>games</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>disk</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>audio</groupname>
      <userlist></userlist>
    </group>
    <group>
      <group_password>!</group_password>
      <groupname>suse-ncc</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>ftp</groupname>
      <userlist></userlist>
    </group>
    <group>
      <group_password>!</group_password>
      <groupname>at</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>kmem</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>public</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>root</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>mail</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>daemon</groupname>
      <userlist></userlist>
    </group>
    <group>
      <group_password>!</group_password>
      <groupname>ntp</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>uucp</groupname>
      <userlist></userlist>
    </group>
    <group>
      <group_password>!</group_password>
      <groupname>ntadmin</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>man</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>utmp</groupname>
      <userlist></userlist>
    </group>
    <group>
      <groupname>news</groupname>
      <userlist></userlist>
    </group>
    <group>
      <group_password>!</group_password>
      <groupname>sshd</groupname>
      <userlist></userlist>
    </group>
  </groups>


  <!-- Contents of /etc/hosts -->
  <host>
    <hosts config:type="list">
      insert_hosts
    </hosts>
  </host>


  <iscsi-client>
    <initiatorname></initiatorname>
    <targets config:type="list"/>
    <version>1.0</version>
  </iscsi-client>


  <!-- Language setup (english) -->
  <language>
    <language>en_US</language>
    <languages></languages>
  </language>


  <!-- Networking setup -->
  <networking>
    <dhcp_options>
      <dhclient_additional_options></dhclient_additional_options>
      <dhclient_client_id></dhclient_client_id>
      <dhclient_hostname_option>AUTO</dhclient_hostname_option>
    </dhcp_options>
    <dns>
      insert_dns
    </dns>
    <interfaces config:type="list">
      insert_interfaces
    </interfaces>
    <managed config:type="boolean">false</managed>


    <!-- Device type -->
    <modules config:type="list">
      insert_modules
    </modules>
    <routing>
      <ip_forward config:type="boolean">false</ip_forward>
      <routes config:type="list">
        insert_routes
      </routes>
    </routing>
  </networking>


  <nis>
    <nis_broadcast config:type="boolean">false</nis_broadcast>
    <nis_broken_server config:type="boolean">false</nis_broken_server>
    <nis_by_dhcp config:type="boolean">false</nis_by_dhcp>
    <nis_domain></nis_domain>
    <nis_local_only config:type="boolean">false</nis_local_only>
    <nis_options></nis_options>
    <nis_other_domains config:type="list">
    </nis_other_domains>
    <nis_servers config:type="list"/>
    <start_autofs config:type="boolean">false</start_autofs>
    <start_nis config:type="boolean">false</start_nis>
  </nis>


  <!-- File system partitioning -->
  <partitioning config:type="list">
    insert_partitioning_drives
  </partitioning>


  <proxy>
    <enabled config:type="boolean">false</enabled>
    <ftp_proxy></ftp_proxy>
    <http_proxy></http_proxy>
    <https_proxy></https_proxy>
    <no_proxy>localhost, 127.0.0.1</no_proxy>
    <proxy_password></proxy_password>
    <proxy_user></proxy_user>
  </proxy>


  <report>
    <errors>
      <log config:type="boolean">true</log>
      <show config:type="boolean">true</show>
      <timeout config:type="integer">0</timeout>
    </errors>
    <messages>
      <log config:type="boolean">true</log>
      <show config:type="boolean">true</show>
      <timeout config:type="integer">0</timeout>
    </messages>
    <warnings>
      <log config:type="boolean">true</log>
      <show config:type="boolean">true</show>
      <timeout config:type="integer">0</timeout>
    </warnings>
    <yesno_messages>
      <log config:type="boolean">true</log>
      <show config:type="boolean">true</show>
      <timeout config:type="integer">0</timeout>
    </yesno_messages>
  </report>


  <runlevel>
    <default>5</default>
  </runlevel>


  <!-- Software to install on Linux -->
  <software>
    <patterns config:type="list">
      replace_software_patterns
    </patterns>
    <packages config:type="list">
      replace_software_packages
    </packages>
  </software>


  <!-- Time zone -->
  <timezone>
    <hwclock>UTC</hwclock>
    <timezone>US/Eastern</timezone>
  </timezone>


  <user_defaults>
    <expire></expire>
    <group>100</group>
    <groups>video,dialout</groups>
    <home>/home</home>
    <inactive>-1</inactive>
    <shell>/bin/bash</shell>
    <skel>/etc/skel</skel>
  </user_defaults>
AUTOYASTEND

    $tmpl .= <<AUTOYASTEND;


  <!-- Users on Linux -->
  <users config:type="list">
    <user>
      <encrypted config:type="boolean">true</encrypted>
      <fullname>Games account</fullname>
      <gid>100</gid>
      <home>/var/games</home>
      <password_settings>
        <expire></expire>
        <flag></flag>
        <inact></inact>
        <max></max>
        <min></min>
        <warn></warn>
      </password_settings>
      <shell>/bin/bash</shell>
      <uid>12</uid>
      <user_password>*</user_password>
      <username>games</username>
    </user>
    <user>
      <encrypted config:type="boolean">true</encrypted>
      <fullname>bin</fullname>
      <gid>1</gid>
      <home>/bin</home>
      <password_settings>
        <expire></expire>
        <flag></flag>
        <inact></inact>
        <max></max>
        <min></min>
        <warn></warn>
      </password_settings>
      <shell>/bin/bash</shell>
      <uid>1</uid>
      <user_password>*</user_password>
      <username>bin</username>
    </user>
    <user>
      <encrypted config:type="boolean">true</encrypted>
      <fullname>nobody</fullname>
      <gid>65533</gid>
      <home>/var/lib/nobody</home>
      <password_settings>
        <expire></expire>
        <flag></flag>
        <inact></inact>
        <max></max>
        <min></min>
        <warn></warn>
      </password_settings>
      <shell>/bin/bash</shell>
      <uid>65534</uid>
      <user_password>*</user_password>
      <username>nobody</username>
    </user>
    <user>
      <encrypted config:type="boolean">true</encrypted>
      <fullname>Printing daemon</fullname>
      <gid>7</gid>
      <home>/var/spool/lpd</home>
      <password_settings>
        <expire></expire>
        <flag></flag>
        <inact></inact>
        <max></max>
        <min></min>
        <warn></warn>
      </password_settings>
      <shell>/bin/bash</shell>
      <uid>4</uid>
      <user_password>*</user_password>
      <username>lp</username>
    </user>
    <user>
      <encrypted config:type="boolean">true</encrypted>
      <fullname>Postfix Daemon</fullname>
      <gid>51</gid>
      <home>/var/spool/postfix</home>
      <password_settings>
        <expire></expire>
        <flag></flag>
        <inact></inact>
        <max>99999</max>
        <min>0</min>
        <warn>7</warn>
      </password_settings>
      <shell>/bin/false</shell>
      <uid>51</uid>
      <user_password>!</user_password>
      <username>postfix</username>
    </user>
    <user>
      <encrypted config:type="boolean">true</encrypted>
      <fullname>Novell Customer Center User</fullname>
      <gid>106</gid>
      <home>/var/lib/YaST2/suse-ncc-fakehome</home>
      <password_settings>
        <expire></expire>
        <flag></flag>
        <inact></inact>
        <max>99999</max>
        <min>0</min>
        <warn>7</warn>
      </password_settings>
      <shell>/bin/bash</shell>
      <uid>102</uid>
      <user_password>!</user_password>
      <username>suse-ncc</username>
    </user>
    <user>
      <encrypted config:type="boolean">true</encrypted>
      <fullname>FTP account</fullname>
      <gid>49</gid>
      <home>/srv/ftp</home>
      <password_settings>
        <expire></expire>
        <flag></flag>
        <inact></inact>
        <max></max>
        <min></min>
        <warn></warn>
      </password_settings>
      <shell>/bin/bash</shell>
      <uid>40</uid>
      <user_password>*</user_password>
      <username>ftp</username>
    </user>
    <user>
      <encrypted config:type="boolean">false</encrypted>
      <fullname>root</fullname>
      <gid>0</gid>
      <home>/root</home>
      <password_settings>
        <expire></expire>
        <flag></flag>
        <inact></inact>
        <max></max>
        <min></min>
        <warn></warn>
      </password_settings>
      <shell>/bin/bash</shell>
      <uid>0</uid>
      <user_password>insert_root_password</user_password>
      <username>root</username>
    </user>
    <user>
      <encrypted config:type="boolean">true</encrypted>
      <fullname>Mailer daemon</fullname>
      <gid>12</gid>
      <home>/var/spool/clientmqueue</home>
      <password_settings>
        <expire></expire>
        <flag></flag>
        <inact></inact>
        <max></max>
        <min></min>
        <warn></warn>
      </password_settings>
      <shell>/bin/false</shell>
      <uid>8</uid>
      <user_password>*</user_password>
      <username>mail</username>
    </user>
    <user>
      <encrypted config:type="boolean">true</encrypted>
      <fullname>Daemon</fullname>
      <gid>2</gid>
      <home>/sbin</home>
      <password_settings>
        <expire></expire>
        <flag></flag>
        <inact></inact>
        <max></max>
        <min></min>
        <warn></warn>
      </password_settings>
      <shell>/bin/bash</shell>
      <uid>2</uid>
      <user_password>*</user_password>
      <username>daemon</username>
    </user>
    <user>
      <encrypted config:type="boolean">true</encrypted>
      <fullname>NTP daemon</fullname>
      <gid>103</gid>
      <home>/var/lib/ntp</home>
      <password_settings>
        <expire></expire>
        <flag></flag>
        <inact></inact>
        <max>99999</max>
        <min>0</min>
        <warn>7</warn>
      </password_settings>
      <shell>/bin/false</shell>
      <uid>74</uid>
      <user_password>!</user_password>
      <username>ntp</username>
    </user>
    <user>
      <encrypted config:type="boolean">true</encrypted>
      <fullname>Unix-to-Unix CoPy system</fullname>
      <gid>14</gid>
      <home>/etc/uucp</home>
      <password_settings>
        <expire></expire>
        <flag></flag>
        <inact></inact>
        <max></max>
        <min></min>
        <warn></warn>
      </password_settings>
      <shell>/bin/bash</shell>
      <uid>10</uid>
      <user_password>*</user_password>
      <username>uucp</username>
    </user>
    <user>
      <fullname>User for D-BUS</fullname>
      <gid>101</gid>
      <home>/var/run/dbus</home>
      <shell>/bin/false</shell>
      <uid>100</uid>
    </user>
    <user>
      <fullname>User for haldaemon</fullname>
      <gid>102</gid>
      <home>/var/run/hal</home>
      <shell>/bin/false</shell>
      <uid>101</uid>
    </user>
    <user>
      <encrypted config:type="boolean">true</encrypted>
      <fullname>WWW daemon apache</fullname>
      <gid>8</gid>
      <home>/var/lib/wwwrun</home>
      <password_settings>
        <expire></expire>
        <flag></flag>
        <inact></inact>
        <max></max>
        <min></min>
        <warn></warn>
      </password_settings>
      <shell>/bin/false</shell>
      <uid>30</uid>
      <user_password>*</user_password>
      <username>wwwrun</username>
    </user>
    <user>
      <encrypted config:type="boolean">true</encrypted>
      <fullname>Manual pages viewer</fullname>
      <gid>62</gid>
      <home>/var/cache/man</home>
      <password_settings>
        <expire></expire>
        <flag></flag>
        <inact></inact>
        <max></max>
        <min></min>
        <warn></warn>
      </password_settings>
      <shell>/bin/bash</shell>
      <uid>13</uid>
      <user_password>*</user_password>
      <username>man</username>
    </user>
    <user>
      <encrypted config:type="boolean">true</encrypted>
      <fullname>News system</fullname>
      <gid>13</gid>
      <home>/etc/news</home>
      <password_settings>
        <expire></expire>
        <flag></flag>
        <inact></inact>
        <max></max>
        <min></min>
        <warn></warn>
      </password_settings>
      <shell>/bin/bash</shell>
      <uid>9</uid>
      <user_password>*</user_password>
      <username>news</username>
    </user>
    <user>
      <encrypted config:type="boolean">true</encrypted>
      <fullname>SSH daemon</fullname>
      <gid>65</gid>
      <home>/var/lib/sshd</home>
      <password_settings>
        <expire></expire>
        <flag></flag>
        <inact></inact>
        <max>99999</max>
        <min>0</min>
        <warn>7</warn>
      </password_settings>
      <shell>/bin/false</shell>
      <uid>71</uid>
      <user_password>!</user_password>
      <username>sshd</username>
    </user>
  </users>


  <zfcp>
    <devices config:type="list"/>
  </zfcp>


  <!-- Scripts (post-script) -->
  <configure>
    <scripts>
    </scripts>
  </configure>
</profile>
AUTOYASTEND
    return $tmpl;
}
