summaryrefslogtreecommitdiffstats
path: root/tools/hd_grub.cgi
diff options
context:
space:
mode:
Diffstat (limited to 'tools/hd_grub.cgi')
-rwxr-xr-xtools/hd_grub.cgi102
1 files changed, 0 insertions, 102 deletions
diff --git a/tools/hd_grub.cgi b/tools/hd_grub.cgi
deleted file mode 100755
index e9b91c484..000000000
--- a/tools/hd_grub.cgi
+++ /dev/null
@@ -1,102 +0,0 @@
-#!/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 Mandrake 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 Mandrake Linux 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 Mandrake Linux Distribution.",
- li(textfield(-name => 'directory', -default => '/cooker/i586', size => 40)),
- ),
- p(submit(-name => 'Go')),
- end_form();
-}