#!/usr/bin/perl

use CGI ':all';
use CGI::Carp;

my $default_append = "ramdisk_size=128000 root=/dev/ram3";
my $default_acpi = "acpi=ht";
my $default_vga = "vga=788";

my $cgi_name = "/" . ($0 =~ m|([^/]+)$|)[0];

print
  header(),
  start_html(-TITLE => 'hd_grub configuration');

if (param()) {
    print_menu_lst();
} else {
    print_form();
}

print end_html;


sub menu_lst {
    my ($hd, $hd_linux, $partition_number, $directory) = @_;

    my $grub_partition_number = $partition_number - 1;

    <<EOF;
timeout 0
default 0

title Mandriva Install

root ($hd,$grub_partition_number)
kernel $directory/isolinux/alt0/vmlinuz $default_append $default_acpi $default_vga automatic=method:disk,partition:$hd_linux$partition_number,directory:$directory
initrd $directory/isolinux/alt0/all.rdz
EOF

}

sub print_menu_lst {
    my $directory = param('directory');
    $directory =~ s!^/!!;
    print
      ol(li(qq(Select the text below and save it in a file "menu.lst")),
	 li(qq(Create a floppy from $directory/images/hd_grub.img (eg: <tt>dd if=hd_grub.img of=/dev/fd0</tt>))),
	 li(qq(Copy the file "menu.lst" to the floppy, overwriting the existing one)),
	 ),
      p(),
      start_form(-name => 'form', -action => $cgi_name, -method => 'get'),
      textarea(-default => menu_lst(param('hd'), param('hd_linux'), param('partition_number'), "/$directory"),
	       -rows => 15, -columns => 120,
	      ),
      end_form(),
}

sub print_form {
    print
      p(),
      start_form(-name => 'form', -action => $cgi_name, -method => 'get'),
      ul("Please choose the partition where Mandrivalinux is copied.",
	 li(popup_menu(-name => "hd", -default => 'hd0', 
		       -values => [ 'hd0' .. 'hd3' ],
		       -labels => { hd0 => '1st BIOS hard drive (usually hda or sda)',
				    hd1 => '2nd BIOS hard drive',
				    hd2 => '3rd BIOS hard drive',
				    hd3 => '4th BIOS hard drive',
				  })),
	 li(popup_menu(-name => "hd_linux", -default => 'hda', 
		       -values => [ 'hda' .. 'hdd', 'sda' .. 'sdc', 'hde' .. 'hdh' ],
		       -labels => { 
				    hda => '1st IDE hard drive (hda)',
				    hdb => '2nd IDE hard drive (hdb)',
				    hdc => '3rd IDE hard drive (hdc)',
				    hdd => '4th IDE hard drive (hdd)',
				    hde => '5th IDE hard drive (hde)',
				    hdf => '6th IDE hard drive (hdf)',
				    hdg => '7th IDE hard drive (hdg)',
				    hdh => '8th IDE hard drive (hdh)',
				    sda => '1st SCSI hard drive (sda)',
				    sdb => '2nd SCSI hard drive (sdb)',
				    sdc => '3rd SCSI hard drive (sdc)',
				  })),
	 li(popup_menu(-name => "partition_number", -default => '0', 
		       -values => [ 1 .. 15 ],
		       -labels => { 1 => '1st primary partition (hda1, sda1 or ...)',
				    2 => '2nd primary partition',
				    3 => '3rd primary partition',
				    4 => '4th primary partition',
				    5 => '5th partition (hda5, sda5 or ...) (first logical partition)',
				    map { $_ => $_ . 'th partition' } 6 .. 15
				  })),
       ),
      p(),
      ul("Please enter the directory containing the Mandrivalinux Distribution (relative to the partition chosen above)",
	 li(textfield(-name => 'directory', -default => '/cooker/i586', size => 40)),
	 ),
      p(submit(-name => 'Go')),
      end_form();
}
pic/ia64-8_1</option>
<option value='topic/mandrakesoft'>topic/mandrakesoft</option>
<option value='topic/mlcd4'>topic/mlcd4</option>
<option value='topic/ppp'>topic/ppp</option>
<option value='topic/rp-pppoe'>topic/rp-pppoe</option>
<option value='topic/switching_to_dnf'>topic/switching_to_dnf</option>
<option value='topic/switching_to_urpmi'>topic/switching_to_urpmi</option>
<option value='topic/unlabeled-1.1.1'>topic/unlabeled-1.1.1</option>
<option value='topic/v_webmin_0_87'>topic/v_webmin_0_87</option>
<option value='topic/x86_64-branch'>topic/x86_64-branch</option>
<option value='user/animtim/designWork'>user/animtim/designWork</option>
<option value='user/bcornec/fixntp'>user/bcornec/fixntp</option>
<option value='user/colin/rescue-systemd'>user/colin/rescue-systemd</option>
<option value='user/ennael/mga6'>user/ennael/mga6</option>
<option value='user/erwan/bug-13680'>user/erwan/bug-13680</option>
<option value='user/jibz/aarch64'>user/jibz/aarch64</option>
<option value='user/martinw/mga6'>user/martinw/mga6</option>
<option value='user/pterjan/arm64'>user/pterjan/arm64</option>
</select> <input type='submit' value='switch'/></form></td></tr>
<tr><td class='sub'>Mageia Installer and base platform for many utilities</td><td class='sub right'>Thierry Vignaud [tv]</td></tr></table>
<table class='tabs'><tr><td>
<a href='/software/drakx/?h=drakx-installer-images-2.93'>summary</a><a href='/software/drakx/refs/?h=drakx-installer-images-2.93&amp;id=c354a8c3b5000d35ec7adc680f14d45e3cb67a1b'>refs</a><a href='/software/drakx/log/perl-install?h=drakx-installer-images-2.93'>log</a><a href='/software/drakx/tree/perl-install?h=drakx-installer-images-2.93&amp;id=c354a8c3b5000d35ec7adc680f14d45e3cb67a1b'>tree</a><a class='active' href='/software/drakx/commit/perl-install?h=drakx-installer-images-2.93&amp;id=c354a8c3b5000d35ec7adc680f14d45e3cb67a1b'>commit</a><a href='/software/drakx/diff/perl-install?h=drakx-installer-images-2.93&amp;id=c354a8c3b5000d35ec7adc680f14d45e3cb67a1b'>diff</a><a href='/software/drakx/stats/perl-install?h=drakx-installer-images-2.93'>stats</a></td><td class='form'><form class='right' method='get' action='/software/drakx/log/perl-install'>
<input type='hidden' name='h' value='drakx-installer-images-2.93'/><input type='hidden' name='id' value='c354a8c3b5000d35ec7adc680f14d45e3cb67a1b'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/software/drakx/commit/?h=drakx-installer-images-2.93&amp;id=c354a8c3b5000d35ec7adc680f14d45e3cb67a1b'>root</a>/<a href='/software/drakx/commit/perl-install?h=drakx-installer-images-2.93&amp;id=c354a8c3b5000d35ec7adc680f14d45e3cb67a1b'>perl-install</a></div><div class='content'><div class='cgit-panel'><b>diff options</b><form method='get'><input type='hidden' name='h' value='drakx-installer-images-2.93'/><input type='hidden' name='id' value='c354a8c3b5000d35ec7adc680f14d45e3cb67a1b'/><table><tr><td colspan='2'/></tr><tr><td class='label'>context:</td><td class='ctrl'><select name='context' onchange='this.form.submit();'><option value='1'>1</option><option value='2'>2</option><option value='3' selected='selected'>3</option><option value='4'>4</option><option value='5'>5</option><option value='6'>6</option><option value='7'>7</option><option value='8'>8</option><option value='9'>9</option><option value='10'>10</option><option value='15'>15</option><option value='20'>20</option><option value='25'>25</option><option value='30'>30</option><option value='35'>35</option><option value='40'>40</option></select></td></tr><tr><td class='label'>space:</td><td class='ctrl'><select name='ignorews' onchange='this.form.submit();'><option value='0' selected='selected'>include</option><option value='1'>ignore</option></select></td></tr><tr><td class='label'>mode:</td><td class='ctrl'><select name='dt' onchange='this.form.submit();'><option value='0' selected='selected'>unified</option><option value='1'>ssdiff</option><option value='2'>stat only</option></select></td></tr><tr><td/><td class='ctrl'><noscript><input type='submit' value='reload'/></noscript></td></tr></table></form></div><table summary='commit info' class='commit-info'>
<tr><th>author</th><td>Thierry Vignaud &lt;tv@mageia.org&gt;</td><td class='right'>2012-04-17 21:10:13 +0000</td></tr>
<tr><th>committer</th><td>Thierry Vignaud &lt;tv@mageia.org&gt;</td><td class='right'>2012-04-17 21:10:13 +0000</td></tr>
<tr><th>commit</th><td colspan='2' class='sha1'><a href='/software/drakx/commit/perl-install?h=drakx-installer-images-2.93&amp;id=c354a8c3b5000d35ec7adc680f14d45e3cb67a1b'>c354a8c3b5000d35ec7adc680f14d45e3cb67a1b</a> (<a href='/software/drakx/patch/perl-install?id=c354a8c3b5000d35ec7adc680f14d45e3cb67a1b'>patch</a>)</td></tr>
<tr><th>tree</th><td colspan='2' class='sha1'><a href='/software/drakx/tree/?h=drakx-installer-images-2.93&amp;id=c354a8c3b5000d35ec7adc680f14d45e3cb67a1b'>c84d3c5da31a7c91faed1039d3500272e0245023</a> /<a href='/software/drakx/tree/perl-install?h=drakx-installer-images-2.93&amp;id=c354a8c3b5000d35ec7adc680f14d45e3cb67a1b'>perl-install</a></td></tr>
<tr><th>parent</th><td colspan='2' class='sha1'><a href='/software/drakx/commit/perl-install?h=drakx-installer-images-2.93&amp;id=5d5d9e489d1cb411e13a18f1005618e0e26cc3a4'>5d5d9e489d1cb411e13a18f1005618e0e26cc3a4</a> (<a href='/software/drakx/diff/perl-install?h=drakx-installer-images-2.93&amp;id=c354a8c3b5000d35ec7adc680f14d45e3cb67a1b&amp;id2=5d5d9e489d1cb411e13a18f1005618e0e26cc3a4'>diff</a>)</td></tr><tr><th>download</th><td colspan='2' class='sha1'><a href='/software/drakx/snapshot/drakx-c354a8c3b5000d35ec7adc680f14d45e3cb67a1b.tar'>drakx-c354a8c3b5000d35ec7adc680f14d45e3cb67a1b.tar</a><br/><a href='/software/drakx/snapshot/drakx-c354a8c3b5000d35ec7adc680f14d45e3cb67a1b.tar.gz'>drakx-c354a8c3b5000d35ec7adc680f14d45e3cb67a1b.tar.gz</a><br/><a href='/software/drakx/snapshot/drakx-c354a8c3b5000d35ec7adc680f14d45e3cb67a1b.tar.bz2'>drakx-c354a8c3b5000d35ec7adc680f14d45e3cb67a1b.tar.bz2</a><br/><a href='/software/drakx/snapshot/drakx-c354a8c3b5000d35ec7adc680f14d45e3cb67a1b.tar.xz'>drakx-c354a8c3b5000d35ec7adc680f14d45e3cb67a1b.tar.xz</a><br/><a href='/software/drakx/snapshot/drakx-c354a8c3b5000d35ec7adc680f14d45e3cb67a1b.zip'>drakx-c354a8c3b5000d35ec7adc680f14d45e3cb67a1b.zip</a><br/></td></tr></table>
<div class='commit-subject'>