# SOME DESCRIPTIVE TITLE.
# Copyright (C) 1999 Free Software Foundation, Inc.
# Irish Linux Users Group <ilug@linux.ie>, 1999
#
# Credits where due:
#   Proinnsias Breathnach <breatpro@dublin.ml.com-nospam>
#   Donncha Ó'Caoimh <donncha.ocaoimh@tradesignals.com-nospam>
#   Barra Ó'Caoimh <Care of donncha.ocaoimh@tradesignals.com-nospam>
#   John McDonnell <johnmc@student.nuigalway.ie-nospam>
# Who've all contributed so far. 
# Proinnsias 16-Dec-1999
#
msgid ""
msgstr ""
"Project-Id-Version: DrakX VERSION\n"
"POT-Creation-Date: 2000-01-05 22:10+0100\n"
"PO-Revision-Date: 1999-12-16 10:33+0100\n"
"Last-Translator: Proinnsias Breathnach <breatpro@dublin.ml.com>\n"
"Language-Team: Gaeilge <ga@li.org>\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=iso-8859-1\n"
"Content-Transfer-Encoding: 8bit\n"

#: ../Xconfigurator.pm_.c:159
msgid "Graphic card"
msgstr "Carta Grafach"

#: ../Xconfigurator.pm_.c:159
msgid "Select a graphic card"
msgstr "Roghnaigh carta grafachach"

#: ../Xconfigurator.pm_.c:160
msgid "Choose a X server"
msgstr "Roghnaigh freastalaí X"

#: ../Xconfigurator.pm_.c:160
#, fuzzy
msgid "X server"
msgstr "freastalaí"

#: ../Xconfigurator.pm_.c:181
msgid "Select the memory size of your graphic card"
msgstr "Roghnaigh an méid cuimhne atá id' charta grafachach"

#: ../Xconfigurator.pm_.c:203
msgid "Choose options for server"
msgstr "Roghnaigh cumraíocht an freastalaí"

#: ../Xconfigurator.pm_.c:221
msgid "Choose a monitor"
msgstr "Roghnaigh scáileán"

#: ../Xconfigurator.pm_.c:221
msgid "Monitor"
msgstr "Scáileán"

#: ../Xconfigurator.pm_.c:224
msgid ""
"The two critical parameters are the vertical refresh rate, which is the "
"rate\n"
"at which the whole screen is refreshed, and most importantly the horizontal\n"
"sync rate, which is the rate at which scanlines are displayed.\n"
"\n"
"It is VERY IMPORTANT that you do not specify a monitor type with a sync "
"range\n"
"that is beyond the capabilities of your monitor: you may damage your "
"monitor.\n"
" If in doubt, choose a conservative setting."
msgstr ""

#: ../Xconfigurator.pm_.c:231
msgid "Horizontal refresh rate"
msgstr "Ráta athnuachana cothrománach"

#: ../Xconfigurator.pm_.c:231
msgid "Vertical refresh rate"
msgstr "Ráta athnuachana ingearach"

#: ../Xconfigurator.pm_.c:272
msgid "Monitor not configured"
msgstr "Níl aon scáileán cumraithe"

#: ../Xconfigurator.pm_.c:275
msgid "Graphic card not configured yet"
msgstr "Níl aon carta grafachach cumraithe"

#: ../Xconfigurator.pm_.c:278
msgid "Resolutions not chosen yet"
msgstr ""

#: ../Xconfigurator.pm_.c:289
msgid "Do you want to test the configuration?"
msgstr "An bhfuil tú ag iarraidh an cumraíocht a thrial?"

#: ../Xconfigurator.pm_.c:293
msgid "Warning: testing is dangerous on this graphic card"
msgstr ""

#: ../Xconfigurator.pm_.c:296
msgid "Test configuration"
msgstr "Trialaigh an cumraíocht"

#: ../Xconfigurator.pm_.c:328
msgid "An error occurred:"
msgstr "Tharla Earráid"

#: ../Xconfigurator.pm_.c:330
msgid ""
"\n"
"try changing some parameters"
msgstr ""
"\n"
"bain trial as roinnt paraiméadair a athrú"

#: ../Xconfigurator.pm_.c:351
#, c-format
msgid "(leaving in %d seconds)"
msgstr "(ag éalú i %d siocand)"

#: ../Xconfigurator.pm_.c:355 ../my_gtk.pm_.c:425
msgid "Is this correct?"
msgstr "An bhfuil seo ceart?"

#: ../Xconfigurator.pm_.c:363
msgid "An error occurred, try changing some parameters"
msgstr "Tharla earráid, bain trial as roinnt paraiméadair a athrú"

#: ../Xconfigurator.pm_.c:371 ../Xconfigurator.pm_.c:540
msgid "Automatic resolutions"
msgstr ""

#: ../Xconfigurator.pm_.c:372
msgid ""
"To find the available resolutions I will try different ones.\n"
"Your screen will blink...\n"
"You can switch if off if you want, you'll hear a beep when it's over"
msgstr ""

#: ../Xconfigurator.pm_.c:427 ../printerdrake.pm_.c:210
msgid "Resolution"
msgstr ""

#: ../Xconfigurator.pm_.c:462
msgid "Choose resolution and color depth"
msgstr ""

#: ../Xconfigurator.pm_.c:470
msgid "Show all"
msgstr "Taispéan gach ceann"

#: ../Xconfigurator.pm_.c:494
msgid "Resolutions"
msgstr ""

#: ../Xconfigurator.pm_.c:541
msgid ""
"I can try to find the available resolutions (eg: 800x600).\n"
"Sometimes, though, it may hang the machine.\n"
"Do you want to try?"
msgstr ""

#: ../Xconfigurator.pm_.c:546
msgid ""
"No valid modes found\n"
"Try with another video card or monitor"
msgstr ""

#: ../Xconfigurator.pm_.c:760
#, c-format
msgid "Keyboard layout: %s\n"
msgstr "Leagan amach eocharchlára: %s\n"

#: ../Xconfigurator.pm_.c:761
#, c-format
msgid "Mouse type: %s\n"
msgstr "Cineál luchóg: %s\n"

#: ../Xconfigurator.pm_.c:762
#, c-format
msgid "Mouse device: %s\n"
msgstr "Gaireas luchóige: %s\n"

#: ../Xconfigurator.pm_.c:763
#, c-format
msgid "Monitor: %s\n"
msgstr "Scáileán: %s\n"

#: ../Xconfigurator.pm_.c:764
#, c-format
msgid "Monitor HorizSync: %s\n"
msgstr ""

#: ../Xconfigurator.pm_.c:765
#, c-format
msgid "Monitor VertRefresh: %s\n"
msgstr ""

#: ../Xconfigurator.pm_.c:766
#, c-format
msgid "Graphic card: %s\n"
msgstr "Carta Grafach: %s\n"

#: ../Xconfigurator.pm_.c:767
#, c-format
msgid "Graphic memory: %s kB\n"
msgstr "Cuimhne grafach: %s kb\n"

#: ../Xconfigurator.pm_.c:768
#, c-format
msgid "XFree86 server: %s\n"
msgstr "Freastalaí XFree86: %s\n"

#: ../Xconfigurator.pm_.c:782
msgid "Preparing X-Window configuration"
msgstr "Ag ullmhú cumraíocht X-Windows"

#: ../Xconfigurator.pm_.c:796
msgid "Change Monitor"
msgstr "Athraigh Scáileán"

#: ../Xconfigurator.pm_.c:797
msgid "Change Graphic card"
msgstr "Athraigh carta grafach"

#: ../Xconfigurator.pm_.c:798
msgid "Change Server options"
msgstr "Athraigh cumraíocht an freastalaí"

#: ../Xconfigurator.pm_.c:799
msgid "Change Resolution"
msgstr ""

#: ../Xconfigurator.pm_.c:800
msgid "Automatical resolutions search"
msgstr ""

#: ../Xconfigurator.pm_.c:804
msgid "Show information"
msgstr "Taispeán Eolas"

#: ../Xconfigurator.pm_.c:805
msgid "Test again"
msgstr "Bain trial as arís"

#: ../Xconfigurator.pm_.c:806 ../standalone/rpmdrake_.c:46
msgid "Quit"
msgstr "Éalaigh"

#: ../Xconfigurator.pm_.c:810
msgid "What do you want to do?"
msgstr "Céard a theastaíonn uait a dhéanamh?"

#: ../Xconfigurator.pm_.c:817
msgid "Forget the changes?"
msgstr ""

#: ../Xconfigurator.pm_.c:833
#, c-format
msgid "Please relog into %s to activate the changes"
msgstr ""

#: ../Xconfigurator.pm_.c:849
msgid "Please log out and then use Ctrl-Alt-BackSpace"
msgstr ""

#: ../Xconfigurator.pm_.c:852
msgid "X at startup"
msgstr "X ag tús"

#: ../Xconfigurator.pm_.c:853
msgid ""
"I can set up your computer to automatically start X upon booting.\n"
"Would you like X to start when you reboot?"
msgstr ""
"Is féidir linn do ríomhaire a shocrú le X a thosnú i ndhiadh bootáil.\n"
"An dteastaíonn uait go dtosnófar X nuair a aththosnítear an ríomhaire?"

#: ../Xconfigurator_consts.pm_.c:4
msgid "256 colors (8 bits)"
msgstr "256 dath (8 giotáin)"

#: ../Xconfigurator_consts.pm_.c:5
msgid "32 thousand colors (15 bits)"
msgstr "32 míle dath (15 giotáin)"

#: ../Xconfigurator_consts.pm_.c:6
msgid "65 thousand colors (16 bits)"
msgstr "65 míle dath (16 giotáin)"

#: ../Xconfigurator_consts.pm_.c:7
msgid "16 million colors (24 bits)"
msgstr "16 milliún dath (24 giotáin)"

#: ../Xconfigurator_consts.pm_.c:8
msgid "4 billion colors (32 bits)"
msgstr "4 billiún dath (32 giotáin)"

#: ../Xconfigurator_consts.pm_.c:96
msgid "256 kB"
msgstr "256 kB"

#: ../Xconfigurator_consts.pm_.c:97
msgid "512 kB"
msgstr "512 kB"

#: ../Xconfigurator_consts.pm_.c:98
msgid "1 MB"
msgstr "1 MB"

#: ../Xconfigurator_consts.pm_.c:99
msgid "2 MB"
msgstr "2 MB"

#: ../Xconfigurator_consts.pm_.c:100
msgid "4 MB"
msgstr "4 MB"

#: ../Xconfigurator_consts.pm_.c:101
msgid "8 MB"
msgstr "8 MB"

#: ../Xconfigurator_consts.pm_.c:102
msgid "16 MB or more"
msgstr "16 MB nó níos mó"

#: ../Xconfigurator_consts.pm_.c:106 ../Xconfigurator_consts.pm_.c:107
msgid "Standard VGA, 640x480 at 60 Hz"
msgstr "Gnáth VGA, 640x480 ag 60Hz"

#: ../Xconfigurator_consts.pm_.c:108
msgid "Super VGA, 800x600 at 56 Hz"
msgstr "Super VGA, 800x600 ag 56 Hz"

#: ../Xconfigurator_consts.pm_.c:109
msgid "8514 Compatible, 1024x768 at 87 Hz interlaced (no 800x600)"
msgstr ""

#: ../Xconfigurator_consts.pm_.c:110
msgid "Super VGA, 1024x768 at 87 Hz interlaced, 800x600 at 56 Hz"
msgstr "Super VGA, 1024x768 ag 87 Hz Idirdhuillithe, 800x600 ag 56 Hz"

#: ../Xconfigurator_consts.pm_.c:111
msgid "Extended Super VGA, 800x600 at 60 Hz, 640x480 at 72 Hz"
msgstr "SVGA Leathnaithe, 800x600 ag 60 Hz, 640x480 ag 72 Hz"

#: ../Xconfigurator_consts.pm_.c:112
msgid "Non-Interlaced SVGA, 1024x768 at 60 Hz, 800x600 at 72 Hz"
msgstr "SVGA Neamh-idirdhuillithe, 1024x768 ag 60 Hz, 800x600 ag 72 Hz"

#: ../Xconfigurator_consts.pm_.c:113
msgid "High Frequency SVGA, 1024x768 at 70 Hz"
msgstr "SVGA d'árd minicíocht, 1024x768 ag 70 Hz"

#: ../Xconfigurator_consts.pm_.c:114
msgid "Multi-frequency that can do 1280x1024 at 60 Hz"
msgstr "Scáileán ilmhinicíocht a bhfuil in ann do 1280x1024 ag 60 Hz"

#: ../Xconfigurator_consts.pm_.c:115
msgid "Multi-frequency that can do 1280x1024 at 74 Hz"
msgstr "Scáileán ilmhinicíocht a bhfuil in ann do 1280x1024 ag 74 Hz"

#: ../Xconfigurator_consts.pm_.c:116
msgid "Multi-frequency that can do 1280x1024 at 76 Hz"
msgstr "Scáileán ilmhinicíocht a bhfuil in ann do 1280x1024 ag 76 Hz"

#: ../Xconfigurator_consts.pm_.c:117
msgid "Monitor that can do 1600x1200 at 70 Hz"
msgstr "Scáileán a bhfuil in ann do 1600x1200 ag 70Hz"

#: ../Xconfigurator_consts.pm_.c:118
msgid "Monitor that can do 1600x1200 at 76 Hz"
msgstr "Scáileán a bhfuil in ann do 1600x1200 ag 76Hz"

#: ../diskdrake.pm_.c:16 ../diskdrake.pm_.c:370
msgid "Create"
msgstr "Cruthaigh"

#: ../diskdrake.pm_.c:17
msgid "Unmount"
msgstr ""

#: ../diskdrake.pm_.c:18 ../diskdrake.pm_.c:372
msgid "Delete"
msgstr "Dealaigh"

#: ../diskdrake.pm_.c:18
msgid "Format"
msgstr "Formáidigh"

#: ../diskdrake.pm_.c:18 ../diskdrake.pm_.c:527
msgid "Resize"
msgstr "Athméidigh"

#: ../diskdrake.pm_.c:18 ../diskdrake.pm_.c:370 ../diskdrake.pm_.c:414
msgid "Type"
msgstr "Cineál"

#: ../diskdrake.pm_.c:19 ../diskdrake.pm_.c:430
msgid "Mount point"
msgstr ""

#: ../diskdrake.pm_.c:33
msgid "Write /etc/fstab"
msgstr "Scríobh /etc/fstab"

#: ../diskdrake.pm_.c:34
msgid "Toggle to expert mode"
msgstr ""

#: ../diskdrake.pm_.c:35
msgid "Toggle to normal mode"
msgstr ""

#: ../diskdrake.pm_.c:36
msgid "Restore from file"
msgstr "Aisig ó comhad"

#: ../diskdrake.pm_.c:37
msgid "Save in file"
msgstr "Sabháil i gcomhad"

#: ../diskdrake.pm_.c:38
msgid "Restore from floppy"
msgstr "Aisig ó dhiosca flapach"

#: ../diskdrake.pm_.c:39
msgid "Save on floppy"
msgstr "Sabháil ar dhiosca flapach"

#: ../diskdrake.pm_.c:40 ../install_steps_interactive.pm_.c:612
#: ../install_steps_interactive.pm_.c:742 ../standalone/adduserdrake_.c:34
msgid "Done"
msgstr "Críochnithe"

#: ../diskdrake.pm_.c:43
msgid "Clear all"
msgstr "Glan gach ceann"

#: ../diskdrake.pm_.c:44
msgid "Format all"
msgstr "Formáidigh gach ceann"

#: ../diskdrake.pm_.c:45
msgid "Auto allocate"
msgstr ""

#: ../diskdrake.pm_.c:48
msgid "All primary partitions are used"
msgstr "Tá na ranna príofa uilig úsáidthe"

#: ../diskdrake.pm_.c:48
msgid "I can't add any more partition"
msgstr "Ní féidir liom rann eile a cur isteach"

#: ../diskdrake.pm_.c:48
msgid ""
"To have more partitions, please delete one to be able to create an extended "
"partition"
msgstr ""
"Le breis ranna a bheith agat, dealaigh ceann amháin le bheith in ann "
"rannsínithe a cruthú"

#: ../diskdrake.pm_.c:51
#, fuzzy
msgid "Rescue partition table"
msgstr "Scriobh clár-ranna"

#: ../diskdrake.pm_.c:52
msgid "Undo"
msgstr "Cealaigh"

#: ../diskdrake.pm_.c:53
msgid "Write partition table"
msgstr "Scriobh clár-ranna"

#: ../diskdrake.pm_.c:54
msgid "Reload"
msgstr "Athlódaigh"

#: ../diskdrake.pm_.c:98
msgid "Empty"
msgstr "Folamh"

#: ../diskdrake.pm_.c:98
msgid "Ext2"
msgstr "Ext2"

#: ../diskdrake.pm_.c:98
msgid "FAT"
msgstr "FAT"

#: ../diskdrake.pm_.c:98
msgid "Other"
msgstr "Eile"

#: ../diskdrake.pm_.c:98
msgid "Swap"
msgstr "Malairte"

#: ../diskdrake.pm_.c:104
msgid "Filesystem types:"
msgstr "Cineál córais-comhadlanna"

#: ../diskdrake.pm_.c:113
msgid "Details"
msgstr "Sonraí"

#: ../diskdrake.pm_.c:127
#, fuzzy
msgid ""
"You have one big fat partition\n"
"(generally use by MicroSoft Dos/Windows).\n"
"I suggest you first resize that partition\n"
"(click on it, then click on \"Resize\")"
msgstr ""
"Tá rann mór FAT amháin agat.\n"
"Molaim dhuit an rann sin a athmhéadú ar dtús\n"
"(roghnaigh an rann agus brú ar \"Athméidigh\")"

#: ../diskdrake.pm_.c:132
msgid "Please make a backup of your data first"
msgstr ""

#: ../diskdrake.pm_.c:132 ../diskdrake.pm_.c:146 ../diskdrake.pm_.c:458
#: ../diskdrake.pm_.c:487
msgid "Read carefully!"
msgstr "Léigh go curamach"

#: ../diskdrake.pm_.c:146
#, c-format
msgid "After %s partition %s,"
msgstr "I ndhiadh %s rann %s,"

#: ../diskdrake.pm_.c:146
msgid "all data on this partition will be lost"
msgstr "caillfear gach sonra ar an rann seo"

#: ../diskdrake.pm_.c:165 ../install_any.pm_.c:191 ../install_steps.pm_.c:67
#: ../install_steps_interactive.pm_.c:37 ../standalone/diskdrake_.c:60
#: ../standalone/rpmdrake_.c:294 ../standalone/rpmdrake_.c:304
msgid "Error"
msgstr "Earráid"

#: ../diskdrake.pm_.c:189 ../diskdrake.pm_.c:610
msgid "Mount point: "
msgstr ""

#: ../diskdrake.pm_.c:190 ../diskdrake.pm_.c:228
msgid "Device: "
msgstr "Gaireas: "

#: ../diskdrake.pm_.c:191
#, c-format
msgid "DOS drive letter: %s (just a guess)\n"
msgstr "Litir Dioscthiománt DOS: %s (buile faoi thuraim)\n"

#: ../diskdrake.pm_.c:192 ../diskdrake.pm_.c:231
msgid "Type: "
msgstr "Cineál: "

#: ../diskdrake.pm_.c:193
#, c-format
msgid "Start: sector %s\n"
msgstr "Tús: teascán %s\n"

#: ../diskdrake.pm_.c:194
#, c-format
msgid "Size: %s MB"
msgstr "Méid: %s MB"

#: ../diskdrake.pm_.c:196
#, c-format
msgid ", %s sectors"
msgstr ", %s teascáin"

#: ../diskdrake.pm_.c:198
#, c-format
msgid "Cylinder %d to cylinder %d\n"
msgstr "Sorcóir %d go sorcóir %d\n"

#: ../diskdrake.pm_.c:199
msgid "Formatted\n"
msgstr "Formáidithe\n"

#: ../diskdrake.pm_.c:200
msgid "Not formatted\n"
msgstr "Neamhformáidithe\n"

#: ../diskdrake.pm_.c:201
msgid "Mounted\n"
msgstr ""

#: ../diskdrake.pm_.c:202
#, c-format
msgid "RAID md%s\n"
msgstr "RAID md%s\n"

#: ../diskdrake.pm_.c:203
msgid ""
"Partition booted by default\n"
"    (for MS-DOS boot, not for lilo)\n"
msgstr ""
"Rann tosaithe de ghnáth\n"
"    (do thosnú MS-DOS, ní lilo)\n"

#: ../diskdrake.pm_.c:205
#, c-format
msgid "Level %s\n"
msgstr "Leibhéal %s\n"

#: ../diskdrake.pm_.c:206
#, c-format
msgid "Chunk size %s\n"
msgstr "Méid smután %s\n"

#: ../diskdrake.pm_.c:207
#, c-format
msgid "RAID-disks %s\n"
msgstr "Dioscaí RAID %s\n"

#: ../diskdrake.pm_.c:224
#, fuzzy
msgid "Please click on a partition"
msgstr "Cruthaigh rann nua"

#: ../diskdrake.pm_.c:229
#, c-format
msgid "Size: %d MB\n"
msgstr "Méid: %d MB\n"

#: ../diskdrake.pm_.c:230
#, c-format
msgid "Geometry: %s cylinders, %s heads, %s sectors\n"
msgstr "Céimseasamh: %s sorcóir, %s ceann, %s teascán\n"

#: ../diskdrake.pm_.c:232
#, c-format
msgid "on bus %d id %d\n"
msgstr "ar bhús %d, id %d\n"

#: ../diskdrake.pm_.c:245
msgid "Mount"
msgstr ""

#: ../diskdrake.pm_.c:246
msgid "Active"
msgstr "Gníomhach"

#: ../diskdrake.pm_.c:247
msgid "Add to RAID"
msgstr "Cur le RAID"

#: ../diskdrake.pm_.c:248
msgid "Remove from RAID"
msgstr "Bain ó RAID"

#: ../diskdrake.pm_.c:249
msgid "Modify RAID"
msgstr "Athraigh RAID"

#: ../diskdrake.pm_.c:256
msgid "Choose action"
msgstr "Roghnaigh gníomh"

#: ../diskdrake.pm_.c:349
msgid ""
"Sorry I won't accept to create /boot so far onto the drive (on a cylinder > "
"1024).\n"
"Either you use LILO and it won't work, or you don't use LILO and you don't "
"need /boot"
msgstr ""
"Níl mé sasta /boot a cruthú comh fada sin isteach sa diosca, (ar sorcóir > "
"1024).\n"
"Má tá tú ag úsáid LILO ní oibróidh sé, nó níl /boot uait muna n-úsáideann tú "
"LILO"

#: ../diskdrake.pm_.c:353
msgid ""
"The partition you've selected to add as root (/) is physically located "
"beyond\n"
"the 1024th cylinder of the hard drive, and you have no /boot partition.\n"
"If you plan to use the LILO boot manager, be careful to add a /boot partition"
msgstr ""
"Tá an rann atá roghnaithe agat don fréamh (/) suitithe i ndhiadh an 1024ú\n"
"sorcóir ar an dhiosca, agus níl aon rann /boot agat.\n"
"Má tá tú chun LILO a úsáid, beidh ort rann /boot a cruthú ar ball."

#: ../diskdrake.pm_.c:370 ../diskdrake.pm_.c:372
#, c-format
msgid "Use ``%s'' instead"
msgstr ""

#: ../diskdrake.pm_.c:375
msgid "Use ``Unmount'' first"
msgstr ""

#: ../diskdrake.pm_.c:376 ../diskdrake.pm_.c:409
msgid "changing type of"
msgstr "athraigh an cineál de"

#: ../diskdrake.pm_.c:388
msgid "Continue anyway?"
msgstr "Lean ar aghaidh ar aon nós?"

#: ../diskdrake.pm_.c:393
msgid "Quit without saving"
msgstr "Éalaigh gan sabháil"

#: ../diskdrake.pm_.c:393
msgid "Quit without writing the partition table?"
msgstr "Éalaigh gan an clár-ranna a scríobh?"

#: ../diskdrake.pm_.c:412
msgid "Change partition type"
msgstr "Athraigh cineál ranna"

#: ../diskdrake.pm_.c:413
msgid "Which partition type do you want?"
msgstr "Cén rann atá uait?"

#: ../diskdrake.pm_.c:429
#, c-format
msgid "Where do you want to mount device %s?"
msgstr ""

#: ../diskdrake.pm_.c:451
msgid "formatting"
msgstr "ag formáidiú"

#: ../diskdrake.pm_.c:453
msgid "Formatting"
msgstr "Ag formáidiú"

#: ../diskdrake.pm_.c:453 ../install_steps_interactive.pm_.c:221
#, c-format
msgid "Formatting partition %s"
msgstr "Ag formáidiú rann %s"

#: ../diskdrake.pm_.c:458
msgid "After formatting all partitions,"
msgstr "I ndhiadh na rann ar fad formáidiú,"

#: ../diskdrake.pm_.c:458
msgid "all data on these partitions will be lost"
msgstr "caillfear gach sonra ar na ranna"

#: ../diskdrake.pm_.c:468
msgid "Move"
msgstr "Bog"

#: ../diskdrake.pm_.c:469
msgid "Which disk do you want to move to?"
msgstr "Cén diosca ag a dteastaíonn uait é a bhogadh?"

#: ../diskdrake.pm_.c:473
msgid "Sector"
msgstr "Teascán"

#: ../diskdrake.pm_.c:474
msgid "Which sector do you want to move to?"
msgstr "Cén tescán ag a dteastaíonn uait é a bhogadh?"

#: ../diskdrake.pm_.c:477
msgid "Moving"
msgstr "Ag bogadh"

#: ../diskdrake.pm_.c:477
msgid "Moving partition..."
msgstr "Ag bogadh rann..."

#: ../diskdrake.pm_.c:487
#, c-format
msgid "Partition table of drive %s is going to be written to disk!"
msgstr "Scríobhfar clár diosca %s go dhiosca!"

#: ../diskdrake.pm_.c:489
msgid "You'll need to reboot before the modification can take place"
msgstr "Beidh ort an ríomhaire a aththosnú sula ndéanfar an athrú"

#: ../diskdrake.pm_.c:510 ../install_steps_gtk.pm_.c:255
msgid "Computing fat filesystem bounds"
msgstr "Ag ríomhadh teorainn na córais-comhadlanna FAT"

#: ../diskdrake.pm_.c:510 ../diskdrake.pm_.c:555
#: ../install_steps_gtk.pm_.c:255
msgid "Resizing"
msgstr "Ag athméadú"

#: ../diskdrake.pm_.c:524
msgid "resizing"
msgstr "ag athméadú"

#: ../diskdrake.pm_.c:534
msgid "Choose the new size"
msgstr "Roghnaigh an méid nua"

#: ../diskdrake.pm_.c:534 ../install_steps_graphical.pm_.c:287
#: ../install_steps_graphical.pm_.c:334 ../install_steps_gtk.pm_.c:317
#: ../install_steps_gtk.pm_.c:361
msgid "MB"
msgstr "MB"

#: ../diskdrake.pm_.c:587
msgid "Create a new partition"
msgstr "Cruthaigh rann nua"

#: ../diskdrake.pm_.c:603
msgid "Start sector: "
msgstr "Teascán tosasch: "

#: ../diskdrake.pm_.c:606
msgid "Size in MB: "
msgstr "Méid i MB: "

#: ../diskdrake.pm_.c:609
msgid "Filesystem type: "
msgstr "Cineál córas-comhadlanna"

#: ../diskdrake.pm_.c:611
msgid "Preference: "
msgstr "Tosaíocht: "

#: ../diskdrake.pm_.c:655 ../diskdrake.pm_.c:671
msgid "Select file"
msgstr "Roghnaigh Comhad"

#: ../diskdrake.pm_.c:664
msgid ""
"The backup partition table has not the same size\n"
"Still continue?"
msgstr ""
"Níl an méid céanna ar an rann cúltaca\n"
"Lean ar aghaidh ar aon nós?"

#: ../diskdrake.pm_.c:672
msgid "Warning"
msgstr "Rabhadh"

#: ../diskdrake.pm_.c:673
msgid ""
"Insert a floppy in drive\n"
"All data on this floppy will be lost"
msgstr ""
"Cur diosca flapach sa dioscthiomant\n"
"Caillfear gach sonra ar an dhiosca seo"

#: ../diskdrake.pm_.c:687
msgid "Trying to rescue partition table"
msgstr "Ag iarraidh an clár-ranna a tarrtháil"

#: ../diskdrake.pm_.c:698
msgid "device"
msgstr "gaireas"

#: ../diskdrake.pm_.c:699
msgid "level"
msgstr "leibhéal"

#: ../diskdrake.pm_.c:700
msgid "chunk size"
msgstr "méid smután"

#: ../diskdrake.pm_.c:712
msgid "Choose an existing RAID to add to"
msgstr "Roghnaigh RAID atá ann le méadú"

#: ../diskdrake.pm_.c:713
msgid "new"
msgstr "nua"

#: ../fs.pm_.c:67 ../fs.pm_.c:73
#, c-format
msgid "%s formatting of %s failed"
msgstr "Formáidiú %s de %s teipithe"

#: ../fs.pm_.c:93
#, c-format
msgid "don't know how to format %s in type %s"
msgstr "níl a fhios agam conas %s a formáidiú go %s"

#: ../fs.pm_.c:106
msgid "nfs mount failed"
msgstr ""

#: ../fs.pm_.c:123
msgid "mount failed: "
msgstr ""

#: ../fs.pm_.c:134
#, c-format
msgid "error unmounting %s: %s"
msgstr ""

#: ../fsedit.pm_.c:219
msgid "Mount points must begin with a leading /"
msgstr ""

#: ../fsedit.pm_.c:222
#, c-format
msgid "There is already a partition with mount point %s"
msgstr ""

#: ../fsedit.pm_.c:306
#, c-format
msgid "Error opening %s for writing: %s"
msgstr "Earráid ag oscailt %s do scríobh: %s"

#: ../fsedit.pm_.c:388
msgid ""
"An error has occurred - no valid devices were found on which to create new "
"filesystems. Please check your hardware for the cause of this problem"
msgstr ""
"Tharla earráid - ní fhuaireadh aon gaireas ar a bhféadfaí córais-comhadlanna "
"nua a cruthu. Ba chóir duit do chuid crua-earraí a seiceáil le cúis an fadhb "
"a aimsiú"

#: ../fsedit.pm_.c:403
msgid "You don't have any partitions!"
msgstr "Níl aon ranna agat!"

#: ../help.pm_.c:7
msgid "Choose preferred language for install and system usage."
msgstr ""

#: ../help.pm_.c:10
msgid "Choose the layout corresponding to your keyboard from the list above"
msgstr ""

#: ../help.pm_.c:13
msgid ""
"Choose \"Install\" if there are no previous versions of Linux\n"
"installed, or if you wish to use multiple distributions or versions.\n"
"\n"
"\n"
"Choose \"Upgrade\" if you wish to update a previous version of Mandrake\n"
"Linux: 5.1 (Venice), 5.2 (Leloo), 5.3 (Festen), 6.0 (Venus), 6.1\n"
"(Helios) or Gold 2000."
msgstr ""

#: ../help.pm_.c:22
msgid ""
"Select:\n"
"\n"
"  - Recommended: If you have never installed Linux before.\n"
"\n"
"\n"
"  - Customized: If you are familiar with Linux, you will be able to \n"
"select the usage for the installed system between normal, development or\n"
"server. Choose \"Normal\" for a general purpose installation of your\n"
"computer. You may choose \"Development\" if you will be using the computer\n"
"primarily for software development, or choose \"Server\" if you wish to\n"
"install a general purpose server (for mail, printing...).\n"
"\n"
"\n"
"  - Expert: If you are fluent with GNU/Linux and want to perform\n"
"a highly customized installation, this Install Class is for you. You will\n"
"be able to select the usage of your installed system as for \"Customized\"."
msgstr ""

#: ../help.pm_.c:40
msgid ""
"DrakX will attempt at first to look for one or more PCI\n"
"SCSI adapter(s). If it finds it (or them)  and knows which driver(s)\n"
"to use, it will insert it (them)  automatically.\n"
"\n"
"\n"
"If your SCSI adapter is an ISA board, or is a PCI board but DrakX\n"
"doesn't know which driver to use for this card, or if you have no\n"
"SCSI adapters at all, you will then be prompted on whether you have\n"
"one or not. If you have none, answer \"No\". If you have one or more,\n"
"answer \"Yes\". A list of drivers will then pop up, from which you\n"
"will have to select one.\n"
"\n"
"\n"
"After you have selected the driver, DrakX will ask if you\n"
"want to specify options for it. First, try and let the driver\n"
"probe for the hardware: it usually works fine.\n"
"\n"
"\n"
"If not, do not forget the information on your hardware that you\n"
"could get from your documentation or from Windows (if you have it\n"
"on your system), as suggested by the installation guide. These\n"
"are the options you will need to provide to the driver."
msgstr ""

#: ../help.pm_.c:64
msgid ""
"At this point, you may choose what partition(s) to use to install\n"
"your Linux-Mandrake system if they have been already defined (from a\n"
"previous install of Linux or from another partitionning tool). In other\n"
"cases, hard drive partitions must be defined. This operation consists of\n"
"logically dividing the computer's hard drive capacity into separate\n"
"areas for use.\n"
"\n"
"\n"
"If you have to create new partitions, use \"Auto allocate\" to "
"automatically\n"
"create partitions for Linux. You can select the disk for partitionning by\n"
"clicking on \"hda\" for the first IDE drive,\n"
"\"hdb\" for the second or \"sda\" for the first SCSI drive and so on.\n"
"\n"
"\n"
"Two common partition are: the root partition (/), which is the starting\n"
"point of the filesystem's directory hierarchy, and /boot, which contains\n"
"all files necessary to start the operating system when the\n"
"computer is first turned on.\n"
"\n"
"\n"
"Because the effects of this process are usually irreversible, partitioning\n"
"can be intimidating and stressful to the unexperienced user. DiskDrake\n"
"simplifies the process so that it need not be. Consult the documentation\n"
"and take your time before proceeding."
msgstr ""

#: ../help.pm_.c:90
msgid ""
"Any partitions that have been newly defined must be formatted for\n"
"use (formatting meaning creating a filesystem). At this time, you may\n"
"wish to re-format some already existing partitions to erase the data\n"
"they contain. Note: it is not necessary to re-format pre-existing\n"
"partitions, particularly if they contain files or data you wish to keep.\n"
"Typically retained are /home and /usr/local."
msgstr ""

#: ../help.pm_.c:98
msgid ""
"You may now select the packages you wish to install.\n"
"\n"
"\n"
"First you can select group of package to install or upgrade. After that\n"
"you can select more packages according to the total size you wish to\n"
"select.\n"
"\n"
"\n"
"If you are in expert mode, you can select packages individually.\n"
"Please note that some packages require the installation of others.\n"
"These are referred to as package dependencies. The packages you select,\n"
"and the packages they require will be automatically selected for\n"
"install. It is impossible to install a package without installing all\n"
"of its dependencies.\n"
"\n"
"\n"
"Informations on specific package are available in the\n"
"area titled \"Info\", located on the right of the list of\n"
"packages."
msgstr ""

#: ../help.pm_.c:119
msgid ""
"The packages selected are now being installed. This operation\n"
"should take a few minutes unless you have chosen to upgrade an\n"
"existing system, in that case it can take more time even before\n"
"upgrade starts."
msgstr ""

#: ../help.pm_.c:125
msgid ""
"If DrakX failed to find your mouse, or if you want to\n"
"check what it has done, you will be presented the list of mice\n"
"above.\n"
"\n"
"\n"
"If you agree with DrakX' settings, just jump to the section\n"
"you want by clicking on it in the menu on the left. Otherwise,\n"
"choose a mouse type in the menu which you think is the closest\n"
"match for your mouse.\n"
"\n"
"\n"
"In case of a serial mouse, you will also have to tell DrakX\n"
"which serial port it is connected to."
msgstr ""

#: ../help.pm_.c:140
msgid ""
"Please select the correct port. For example, the COM1 port in MS Windows\n"
"is named ttyS0 in Linux."
msgstr ""

#: ../help.pm_.c:144
msgid ""
"This section is dedicated to configuring a local area\n"
"network (LAN) or a modem.\n"
"\n"
"Choose \"Local LAN\" and DrakX will\n"
"try to find an Ethernet adapter on your machine. PCI adapters\n"
"should be found and initialized automatically.\n"
"However, if your peripheral is ISA, autodetection will not work,\n"
"and you will have to choose a driver from the list that will appear then.\n"
"\n"
"\n"
"As for SCSI adapters, you can let the driver probe for the adapter\n"
"in the first time, otherwise you will have to specify the options\n"
"to the driver that you will have fetched from documentation of your\n"
"hardware.\n"
"\n"
"\n"
"If you install a Linux-Mandrake system on a machine which is part\n"
"of an already existing network, the network administrator will\n"
"have given you all necessary information (IP address, network\n"
"submask or netmask for short, and hostname). If you're setting\n"
"up a private network at home for example, you should choose\n"
"addresses.\n"
"\n"
"\n"
"Choose \"Dialup with modem\" and the Internet connection with\n"
"a modem will be configured. DrakX will try to find your modem,\n"
"if it fails you will have to select the right serial port where\n"
"your modem is connected to."
msgstr ""

#: ../help.pm_.c:174
msgid ""
"Enter:\n"
"\n"
"  - IP address: if you don't know it, ask your network administrator or "
"ISP.\n"
"\n"
"\n"
"  - Netmask: \"255.255.255.0\" is generally a good choice. If you are not\n"
"sure, ask your network administrator or ISP.\n"
"\n"
"\n"
"  - Automatic IP: If your network uses bootp or dhcp protocol, select \n"
"this option. If selected, no value is needed in \"IP address\". If you are\n"
"not sure, ask your network administrator or ISP.\n"
msgstr ""

#: ../help.pm_.c:189
msgid ""
"You may now enter dialup options. If you're not sure what to enter, the\n"
"correct information can be obtained from your ISP."
msgstr ""

#: ../help.pm_.c:193
msgid ""
"If you will use proxies, please configure them now. If you don't know if\n"
"you will use proxies, ask your network administrator or your ISP."
msgstr ""

#: ../help.pm_.c:197
msgid ""
"You can install cryptographic package if your internet connection has been\n"
"set up correctly. First choose a mirror where you wish to download packages "
"and\n"
"after that select the packages to install.\n"
"\n"
"Note you have to select mirror and cryptographic packages according\n"
"to your legislation."
msgstr ""

#: ../help.pm_.c:205
msgid ""
"You can now select your timezone according to where you live.\n"
"\n"
"\n"
"Linux manages time in GMT or \"Greenwich Meridian Time\" and translates it\n"
"in local time according to the time zone you have selected."
msgstr ""

#: ../help.pm_.c:212
msgid "Help"
msgstr "Cabhair"

#: ../help.pm_.c:215
msgid ""
"Linux can deal with many types of printer. Each of these\n"
"types require a different setup.\n"
"\n"
"\n"
"If your printer is directly connected to your computer, select\n"
"\"Local printer\". You will then have to tell which port your\n"
"printer is connected to, and select the appropriate filter.\n"
"\n"
"\n"
"If you want to access a printer located on a remote Unix machine,\n"
"you will have to select \"Remote lpd\". In order to make\n"
"it work, no username or password is required, but you will need\n"
"to know the name of the printing queue on this server.\n"
"\n"
"\n"
"If you want to access a SMB printer (which means, a printer located\n"
"on a remote Windows 9x/NT machine), you will have to specify its\n"
"SMB name (which is not its TCP/IP name), and possibly its IP address,\n"
"plus the username, workgroup and password required in order to\n"
"access the printer, and of course the name of the printer. The same goes\n"
"for a NetWare printer, except that you need no workgroup information."
msgstr ""

#: ../help.pm_.c:238
msgid ""
"You can now enter the root password for your Linux-Mandrake\n"
"system. The password must be entered twice to verify that both\n"
"password entries are identical.\n"
"\n"
"\n"
"Root is the administrator of the system, and is the only user\n"
"allowed to modify the system configuration. Therefore, choose\n"
"this password carefully! Unauthorized use of the root account can\n"
"be extremely dangerous to the integrity of the system and its data,\n"
"and other systems connected to it. The password should be a\n"
"mixture of alphanumeric characters and a least 8 characters long. It\n"
"should *never* be written down. Do not make the password too long or\n"
"complicated, though: you must be able to remember without too much\n"
"effort."
msgstr ""

#: ../help.pm_.c:254
msgid ""
"To enable a more secure system, you should select \"Use shadow file\" and\n"
"\"Use MD5 passwords\"."
msgstr ""

#: ../help.pm_.c:258
msgid ""
"If your network uses NIS, select \"Use NIS\". If you don't know, ask your\n"
"network administrator."
msgstr ""

#: ../help.pm_.c:262
msgid ""
"You may now create one or more \"regular\" user account(s), as\n"
"opposed to the \"privileged\" user account, root. You can create\n"
"one or more account(s) for each person you want to allow to use\n"
"the computer. Note that each user account will have its own\n"
"preferences (graphical environment, program settings, etc.)\n"
"and its own \"home directory\", in which these preferences are\n"
"stored.\n"
"\n"
"\n"
"First of all, create an account for yourself! Even if you will be the only "
"user\n"
"of the machine, you may NOT connect as root for daily use of the system: "
"it's a\n"
"very high security risk. Making the system unusable is very often a typo "
"away.\n"
"\n"
"\n"
"Therefore, you should connect to the system using the user account\n"
"you will have created here, and login as root only for administration\n"
"and maintenance purposes."
msgstr ""

#: ../help.pm_.c:281
msgid ""
"It is strongly recommended that you answer \"Yes\" here. If you install\n"
"Microsoft Windows at a later date it will overwrite the boot sector.\n"
"Unless you have made a bootdisk as suggested, you will not be able to\n"
"boot into Linux any more."
msgstr ""

#: ../help.pm_.c:287
msgid ""
"You need to indicate where you wish\n"
"to place the information required to boot to Linux.\n"
"\n"
"\n"
"Unless you know exactly what you are doing, choose \"First sector of\n"
"drive (MBR)\"."
msgstr ""

#: ../help.pm_.c:295
msgid ""
"Unless you know specifically otherwise, the usual choice is \"/dev/hda\"\n"
"(the master drive on the primary channel)."
msgstr ""

#: ../help.pm_.c:299
msgid ""
"LILO (the LInux LOader) can boot Linux and other operating systems.\n"
"Normally they are correctly detected during installation. If you don't\n"
"see yours detected, you can add one or more now.\n"
"\n"
"\n"
"If you don't want that everybody could access at one of them, you can "
"remove\n"
"it now (a boot disk will be needed to boot it)."
msgstr ""

#: ../help.pm_.c:308
msgid ""
"LILO main options are:\n"
"  - Boot device: Sets the name of the device (e.g. a hard disk\n"
"partition) that contains the boot sector. Unless you know specifically\n"
"otherwise, choose \"/dev/hda\".\n"
"\n"
"\n"
"  - Linear: Generate linear sector addresses instead of\n"
"sector/head/cylinder addresses. Linear addresses are translated at run\n"
"time and do not depend on disk geometry. Note that boot disks may not be\n"
"portable if \"linear\" is used, because the BIOS service to determine the\n"
"disk geometry does not work reliably for floppy  disks. When using\n"
"\"linear\" with large disks, /sbin/lilo may generate references to\n"
"inaccessible disk areas, because 3D sector addresses are not known\n"
"before boot time.\n"
"\n"
"\n"
"  - Compact: Tries to merge read requests for adjacent sectors into a\n"
"single read request. This drastically reduces load time and keeps the\n"
"map smaller. Using \"compact\" is especially recommended when booting from\n"
"a floppy disk.\n"
"\n"
"\n"
"  - Delay before booting default image: Specifies the number in tenths\n"
"of a second the boot loader should wait before booting the first image.\n"
"This is useful on systems that immediately boot from the hard disk after\n"
"enabling the keyboard. The boot loader doesn't wait if \"delay\" is\n"
"omitted or is set to zero.\n"
"\n"
"\n"
"  - Video mode: This specifies the VGA text mode that should be selected\n"
"when booting. The following values are available: \n"
"    * normal: select normal 80x25 text mode.\n"
"    * <number>:  use the corresponding text mode."
msgstr ""

#: ../help.pm_.c:343
msgid ""
"Now it's time to configure the X Window System, which is the\n"
"core of the Linux GUI (Graphical User Interface). For this purpose,\n"
"you must configure your video card and monitor. Most of these\n"
"steps are automated, though, therefore your work may only consist\n"
"of verifying what has been done and accept the settings :)\n"
"\n"
"\n"
"When the configuration is over, X will be started (unless you\n"
"ask DrakX not to) so that you can check and see if the\n"
"settings suit you. If they don't, you can come back and\n"
"change them, as many times as necessary."
msgstr ""

#: ../help.pm_.c:356
msgid ""
"If something is wrong in X configuration, use these options to correctly\n"
"configure the X Window System."
msgstr ""

#: ../help.pm_.c:360
msgid ""
"If you prefer to use a graphical login, select \"Yes\". Otherwise, select\n"
"\"No\"."
msgstr ""

#: ../help.pm_.c:364
msgid ""
"You can now select some miscellaneous options for you system.\n"
"\n"
"  - Use hard drive optimizations: This option can improve hard disk\n"
"accesses but is only for advanced users, it can ruin your hard drive if\n"
"used incorrectly. Use it only if you know how.\n"
"\n"
"\n"
"  - Choose security level: You can choose a security level for your\n"
"system.\n"
"    Please refer to the manual for more information.\n"
"\n"
"\n"
"  - Precise RAM size if needed: In some cases, Linux is unable to\n"
"correctly detect all the installed RAM on  some systems. If this is the\n"
"case, specify the correct quantity. Note: a difference of 2 or 4 Mb is\n"
"normal.\n"
"\n"
"\n"
"  - Removable media automounting: If you would prefer not to manually\n"
"mount removable drives (CD-ROM, Floppy, Zip) by typing \"mount\" and\n"
"\"umount\", select this option. \n"
"\n"
"\n"
"  - Enable Num Lock at startup: If you want Number Lock enabled after\n"
"booting, select this option (Note: Num Lock will still not work under\n"
"X)."
msgstr ""

#: ../help.pm_.c:392
msgid ""
"Your system is going to reboot.\n"
"\n"
"After rebooting, your new Linux Mandrake system will load automatically.\n"
"If you want to boot into another existing operating system, please read\n"
"the additional instructions."
msgstr ""

#: ../install2.pm_.c:43
msgid "Choose your language"
msgstr "Roghnaigh do theanga"

#: ../install2.pm_.c:44
msgid "Select installation class"
msgstr "Roghnaigh rang feistiú"

#: ../install2.pm_.c:45
msgid "Setup SCSI"
msgstr "Cumraigh SCSI"

#: ../install2.pm_.c:46
msgid "Choose install or upgrade"
msgstr "Feistigh nó uasgrádaigh ?"

#: ../install2.pm_.c:47
msgid "Configure mouse"
msgstr "Cumraigh luchóg"

#: ../install2.pm_.c:48
msgid "Choose your keyboard"
msgstr "Roghnaigh mhéarchlár"

#: ../install2.pm_.c:49
msgid "Miscellaneous"
msgstr "Eile"

#: ../install2.pm_.c:50
msgid "Setup filesystems"
msgstr "Socraigh córas chomhad"

#: ../install2.pm_.c:51
msgid "Format partitions"
msgstr "Formáidigh ranna"

#: ../install2.pm_.c:52
msgid "Choose packages to install"
msgstr "Roghnaigh pacáistí ..."

#: ../install2.pm_.c:53
msgid "Install system"
msgstr "Feistigh córas"

#: ../install2.pm_.c:54
msgid "Configure networking"
msgstr "Cumraigh gréasánú"

#: ../install2.pm_.c:55
msgid "Cryptographic"
msgstr "Rúnscríobhach"

#: ../install2.pm_.c:56
msgid "Configure timezone"
msgstr "Cumraigh crios ama"

#: ../install2.pm_.c:58
msgid "Configure printer"
msgstr "Cumraigh printéir"

#: ../install2.pm_.c:59 ../install_steps_interactive.pm_.c:570
#: ../install_steps_interactive.pm_.c:571
msgid "Set root password"
msgstr "Socraigh pasfhocal root"

#: ../install2.pm_.c:60
msgid "Add a user"
msgstr "Úsáideoir Nua ..."

#: ../install2.pm_.c:61
msgid "Create a bootdisk"
msgstr ""

#: ../install2.pm_.c:62
#, fuzzy
msgid "Install bootloader"
msgstr "Feistigh córas"

#: ../install2.pm_.c:63
msgid "Configure X"
msgstr "Cumraigh X"

#: ../install2.pm_.c:64
msgid "Exit install"
msgstr "Eirigh as Feistiú"

#: ../install2.pm_.c:83
msgid "beginner"
msgstr "tosaitheoir"

#: ../install2.pm_.c:83
msgid "developer"
msgstr "foirbreoir"

#: ../install2.pm_.c:83
msgid "expert"
msgstr "saineolaí"

#: ../install2.pm_.c:83
msgid "server"
msgstr "freastalaí"

#: ../install2.pm_.c:309
msgid ""
"You must have a root partition.\n"
"For this, create a partition (or click on an existing one).\n"
"Then choose action ``Mount point'' and set it to `/'"
msgstr ""

#: ../install2.pm_.c:325
msgid "Not enough swap to fulfill installation, please add some"
msgstr "Nil dothain spas malartu chun insealbhu, chuir leis an spas"

#: ../install_any.pm_.c:192 ../standalone/diskdrake_.c:61
msgid ""
"I can't read your partition table, it's too corrupted for me :(\n"
"I'll try to go on blanking bad partitions"
msgstr ""
"Ni féidir liom an tábla rainn a léamh, tá máchaillí ann :(\n"
"Leanfaidh mé orm ag cealú droch rainn"

#: ../install_any.pm_.c:208
msgid ""
"DiskDrake failed to read correctly the partition table.\n"
"Continue at your own risk!"
msgstr ""
"Theip ar DiskDrake an tabla rainn a léamh i gceart.\n"
"Lean ort, ar do phriacal féin!"

#: ../install_any.pm_.c:218
msgid "Searching root partition."
msgstr "Ag cúrdach an rann fréamhach."

#: ../install_any.pm_.c:247
msgid "Information"
msgstr "Eolas"

#: ../install_any.pm_.c:248
#, c-format
msgid "%s: This is not a root partition, please select another one."
msgstr "%s: Ní rann fréamhach atá anseo, roghnaigh ceann eile."

#: ../install_any.pm_.c:250
msgid "No root partition found"
msgstr "Ní fuaireathas rann fréamhach"

#: ../install_any.pm_.c:287
msgid "Can't use broadcast with no NIS domain"
msgstr "Ni feidir craoladh gan fearann NIS"

#: ../install_any.pm_.c:462
msgid "Error reading file $f"
msgstr "Earráid ag léamh comhad $f"

#: ../install_any.pm_.c:468
#, c-format
msgid "Bad kickstart file %s (failed %s)"
msgstr "Droch comhad kickstart %s (theip %s)"

#: ../install_steps.pm_.c:68
msgid ""
"An error occurred, but I don't know how to handle it nicely.\n"
"Continue at your own risk."
msgstr ""
"Ta earraid ann, níl a fhios agam conas é a cheartú.\n"
"Lean ort, ar do phriacal féin."

#: ../install_steps.pm_.c:132
#, c-format
msgid "Duplicate mount point %s"
msgstr "Pointe taca dublach %s"

#: ../install_steps.pm_.c:516
msgid "No floppy drive available"
msgstr "Níl dioscthiománt flapach ar fáil"

#: ../install_steps_auto_install.pm_.c:18 ../install_steps_stdio.pm_.c:26
#, c-format
msgid "Entering step `%s'\n"
msgstr "Ag tosnú ar céim `%s'\n"

#: ../install_steps_graphical.pm_.c:259 ../install_steps_gtk.pm_.c:294
msgid "You must have a swap partition"
msgstr ""

#: ../install_steps_graphical.pm_.c:261 ../install_steps_gtk.pm_.c:296
msgid ""
"You don't have a swap partition\n"
"\n"
"Continue anyway?"
msgstr ""

#: ../install_steps_graphical.pm_.c:287 ../install_steps_gtk.pm_.c:317
msgid "Choose the size you want to install"
msgstr ""

#: ../install_steps_graphical.pm_.c:334 ../install_steps_gtk.pm_.c:361
msgid "Total size: "
msgstr "Méid iomlán: "

#: ../install_steps_graphical.pm_.c:346 ../install_steps_gtk.pm_.c:373
#: ../standalone/rpmdrake_.c:136
#, c-format
msgid "Version: %s\n"
msgstr "Leagan: %s\n"

#: ../install_steps_graphical.pm_.c:347 ../install_steps_gtk.pm_.c:374
#: ../standalone/rpmdrake_.c:137
#, c-format
msgid "Size: %d KB\n"
msgstr "Méid: %d KB\n"

#: ../install_steps_graphical.pm_.c:462 ../install_steps_gtk.pm_.c:489
msgid "Choose the packages you want to install"
msgstr ""

#: ../install_steps_graphical.pm_.c:465 ../install_steps_gtk.pm_.c:492
msgid "Info"
msgstr "Eolas"

#: ../install_steps_graphical.pm_.c:473 ../install_steps_gtk.pm_.c:500
#: ../install_steps_interactive.pm_.c:81 ../standalone/rpmdrake_.c:161
msgid "Install"
msgstr ""

#: ../install_steps_graphical.pm_.c:492 ../install_steps_gtk.pm_.c:519
#: ../install_steps_interactive.pm_.c:312
msgid "Installing"
msgstr ""

#: ../install_steps_graphical.pm_.c:499 ../install_steps_gtk.pm_.c:526
msgid "Please wait, "
msgstr "Fan tamall, "

#: ../install_steps_graphical.pm_.c:501 ../install_steps_gtk.pm_.c:528
msgid "Time remaining "
msgstr "Am fagtha "

#: ../install_steps_graphical.pm_.c:502 ../install_steps_gtk.pm_.c:529
msgid "Total time "
msgstr "Am iomlán "

#: ../install_steps_graphical.pm_.c:507 ../install_steps_gtk.pm_.c:534
#: ../install_steps_interactive.pm_.c:312
msgid "Preparing installation"
msgstr ""

#: ../install_steps_graphical.pm_.c:528 ../install_steps_gtk.pm_.c:549
#, c-format
msgid "Installing package %s"
msgstr ""

#: ../install_steps_graphical.pm_.c:553 ../install_steps_gtk.pm_.c:574
msgid "Go on anyway?"
msgstr "Lean ar aghaidh ar aon nós?"

#: ../install_steps_graphical.pm_.c:553 ../install_steps_gtk.pm_.c:574
msgid "There was an error ordering packages:"
msgstr ""

#: ../install_steps_graphical.pm_.c:577 ../install_steps_interactive.pm_.c:887
msgid "Use existing configuration for X11?"
msgstr "Bain úsáid as an cumraíocht X11 atá ann?"

#: ../install_steps_gtk.pm_.c:259
msgid ""
"WARNING!\n"
"\n"
"DrakX now needs to resize your Windows partition. Be careful: this operation "
"is\n"
"dangerous. If you have not already done so, you should first exit the\n"
"installation, run scandisk under Windows (and optionally run defrag), then\n"
"restart the installation. You should also backup your data.\n"
"When sure, press Ok."
msgstr ""

#: ../install_steps_gtk.pm_.c:278
msgid "Automatic resizing failed"
msgstr "Theip ar uathathmhéadú"

#: ../install_steps_gtk.pm_.c:312
msgid ""
"Now that you've selected desired groups, please choose \n"
"how many packages you want, ranging from minimal to full \n"
"installation of each selected groups."
msgstr ""

#: ../install_steps_gtk.pm_.c:315
msgid "You will be able to choose more precisely in next step"
msgstr ""

#: ../install_steps_gtk.pm_.c:372
#, fuzzy
msgid "Bad package"
msgstr "%d pacáistí"

#: ../install_steps_gtk.pm_.c:522
msgid "Estimating"
msgstr "Ag meastú"

#: ../install_steps_gtk.pm_.c:544
#, c-format
msgid "%d packages"
msgstr "%d pacáistí"

#: ../install_steps_gtk.pm_.c:544
msgid ", %U MB"
msgstr ", %U MB"

#: ../install_steps_interactive.pm_.c:37
msgid "An error occurred"
msgstr "Tharla earráid"

#: ../install_steps_interactive.pm_.c:54
msgid "Which language do you want?"
msgstr "Cén teanga atá uait?"

#: ../install_steps_interactive.pm_.c:68 ../standalone/keyboarddrake_.c:22
msgid "Keyboard"
msgstr "Eocharclár"

#: ../install_steps_interactive.pm_.c:69 ../standalone/keyboarddrake_.c:23
msgid "What is your keyboard layout?"
msgstr "Cén leagan amach atá ar d'eocharchlársa"

#: ../install_steps_interactive.pm_.c:79
msgid "Install/Upgrade"
msgstr ""

#: ../install_steps_interactive.pm_.c:80
msgid "Is this an install or an upgrade?"
msgstr ""

#: ../install_steps_interactive.pm_.c:81
msgid "Upgrade"
msgstr "Uasgrádú"

#: ../install_steps_interactive.pm_.c:89
msgid "Root Partition"
msgstr "Rann Fréamhach"

#: ../install_steps_interactive.pm_.c:90
msgid "What is the root partition (/) of your system?"
msgstr "Céard é an rann fréamhach (/) ded' chóras?"

#: ../install_steps_interactive.pm_.c:100
msgid "Recommended"
msgstr "Molta"

#: ../install_steps_interactive.pm_.c:101
msgid "Customized"
msgstr "Socraithe"

#: ../install_steps_interactive.pm_.c:102
msgid "Expert"
msgstr "Saineolaí"

#: ../install_steps_interactive.pm_.c:104
#: ../install_steps_interactive.pm_.c:118
msgid "Install Class"
msgstr ""

#: ../install_steps_interactive.pm_.c:105
msgid "What installation class do you want?"
msgstr ""

#: ../install_steps_interactive.pm_.c:114
msgid "Normal"
msgstr "Gnáth"

#: ../install_steps_interactive.pm_.c:115
msgid "Development"
msgstr "Forbairt"

#: ../install_steps_interactive.pm_.c:116
msgid "Server"
msgstr "Freastalaí"

#: ../install_steps_interactive.pm_.c:119
msgid "What usage do you want?"
msgstr "Cén úsáid atá uait?"

#: ../install_steps_interactive.pm_.c:132 ../standalone/mousedrake_.c:25
msgid "What is the type of your mouse?"
msgstr "Cén cinéal luchóg atá agat?"

#: ../install_steps_interactive.pm_.c:140 ../standalone/mousedrake_.c:38
msgid "Mouse Port"
msgstr "Gaireas luchóige"

#: ../install_steps_interactive.pm_.c:141 ../standalone/mousedrake_.c:39
msgid "Which serial port is your mouse connected to?"
msgstr ""

#: ../install_steps_interactive.pm_.c:157
msgid "no available partitions"
msgstr "níl aon ranna saora ann"

#: ../install_steps_interactive.pm_.c:159
#, c-format
msgid "(%dMb)"
msgstr "(%dMb)"

#: ../install_steps_interactive.pm_.c:166
msgid "Which partition do you want to use as your root partition"
msgstr "Cén rann a bhfuil tú ag iarraidh úsáid mar rann fréamhach"

#: ../install_steps_interactive.pm_.c:173
msgid "Choose the mount points"
msgstr ""

#: ../install_steps_interactive.pm_.c:185
msgid "You need to reboot for the partition table modifications to take place"
msgstr ""

#: ../install_steps_interactive.pm_.c:207
msgid "Choose the partitions you want to format"
msgstr "Roghnaigh na ranna atá le formáidiú"

#: ../install_steps_interactive.pm_.c:211
msgid "Check bad blocks?"
msgstr ""

#: ../install_steps_interactive.pm_.c:230
msgid "Looking for available packages"
msgstr "Ag curdach do na pacáistí atá ar fáil"

#: ../install_steps_interactive.pm_.c:236
msgid "Finding packages to upgrade"
msgstr "Ag cúrdach pacáistí le húasgrádú"

#: ../install_steps_interactive.pm_.c:282
msgid "Package Group Selection"
msgstr "Roghnú Grúpa Pacáistí"

#: ../install_steps_interactive.pm_.c:321
msgid ""
"Installing package %s\n"
"%d%%"
msgstr ""

#: ../install_steps_interactive.pm_.c:330
#, fuzzy
msgid "Post install configuration"
msgstr "Trialaigh an cumraíocht"

#: ../install_steps_interactive.pm_.c:341
msgid "Keep the current IP configuration"
msgstr "Coimead an cumraíocht IP atá ann"

#: ../install_steps_interactive.pm_.c:342
msgid "Reconfigure network now"
msgstr "Athchumraigh an gréasánú anois"

#: ../install_steps_interactive.pm_.c:343
#: ../install_steps_interactive.pm_.c:355
msgid "Do not set up networking"
msgstr "Ná cumraigh gréasánú anois"

#: ../install_steps_interactive.pm_.c:345
#: ../install_steps_interactive.pm_.c:353
msgid "Network Configuration"
msgstr "Cumraíocht Gréasánú"

#: ../install_steps_interactive.pm_.c:346
msgid "Local networking has already been configured. Do you want to:"
msgstr "Tá gréasánú lóganta cumraithe cheana féin. An dteastaíonn uait:"

#: ../install_steps_interactive.pm_.c:354
msgid "Do you want to configure networking for your system?"
msgstr "An dteastaíonn uait gréasánú a chumrú ded' chóras?"

#: ../install_steps_interactive.pm_.c:355
msgid "Dialup with modem"
msgstr ""

#: ../install_steps_interactive.pm_.c:355
msgid "Local LAN"
msgstr "Gréasán Lógánta"

#: ../install_steps_interactive.pm_.c:364
msgid "no network card found"
msgstr "ní fuaireathas cárta gréasánú"

#: ../install_steps_interactive.pm_.c:394
#: ../install_steps_interactive.pm_.c:395
#, c-format
msgid "Configuring network device %s"
msgstr "Ag cumrú gléas gréasánú %s"

#: ../install_steps_interactive.pm_.c:396
msgid ""
"Please enter the IP configuration for this machine.\n"
"Each item should be entered as an IP address in dotted-decimal\n"
"notation (for example, 1.2.3.4)."
msgstr ""

#: ../install_steps_interactive.pm_.c:399
msgid "Automatic IP"
msgstr "Uath-IP"

#: ../install_steps_interactive.pm_.c:399
msgid "IP address:"
msgstr "Seoladh IP:"

#: ../install_steps_interactive.pm_.c:399
msgid "Netmask:"
msgstr ""

#: ../install_steps_interactive.pm_.c:400
msgid "(bootp/dhcp)"
msgstr ""

#: ../install_steps_interactive.pm_.c:406 ../printerdrake.pm_.c:149
msgid "IP address should be in format 1.2.3.4"
msgstr ""

#: ../install_steps_interactive.pm_.c:424
msgid "Configuring network"
msgstr "Ag cumrú an ghréasán"

#: ../install_steps_interactive.pm_.c:425
msgid ""
"Please enter your host name.\n"
"Your host name should be a fully-qualified host name,\n"
"such as ``mybox.mylab.myco.com''.\n"
"You may also enter the IP address of the gateway if you have one"
msgstr ""

#: ../install_steps_interactive.pm_.c:429
msgid "DNS server:"
msgstr ""

#: ../install_steps_interactive.pm_.c:429
msgid "Gateway device:"
msgstr ""

#: ../install_steps_interactive.pm_.c:429
msgid "Gateway:"
msgstr ""

#: ../install_steps_interactive.pm_.c:429
msgid "Host name:"
msgstr ""

#: ../install_steps_interactive.pm_.c:442
msgid "Try to find a modem?"
msgstr "Déan iarracht móideam a aimsiú?"

#: ../install_steps_interactive.pm_.c:452
msgid "Which serial port is your modem connected to?"
msgstr ""

#: ../install_steps_interactive.pm_.c:457
msgid "Dialup options"
msgstr ""

#: ../install_steps_interactive.pm_.c:458
msgid "Connection name"
msgstr ""

#: ../install_steps_interactive.pm_.c:459
msgid "Phone number"
msgstr "Uimhir fón"

#: ../install_steps_interactive.pm_.c:460
msgid "Login ID"
msgstr ""

#: ../install_steps_interactive.pm_.c:461
#: ../install_steps_interactive.pm_.c:572
#: ../install_steps_interactive.pm_.c:618
#: ../install_steps_interactive.pm_.c:718 ../standalone/adduserdrake_.c:40
msgid "Password"
msgstr "Pasfhocal"

#: ../install_steps_interactive.pm_.c:462
msgid "Authentication"
msgstr ""

#: ../install_steps_interactive.pm_.c:462
msgid "CHAP"
msgstr "CHAP"

#: ../install_steps_interactive.pm_.c:462
msgid "PAP"
msgstr "PAP"

#: ../install_steps_interactive.pm_.c:462
msgid "Script-based"
msgstr "Script-bhunaithe"

#: ../install_steps_interactive.pm_.c:462
msgid "Terminal-based"
msgstr ""

#: ../install_steps_interactive.pm_.c:463
msgid "Domain name"
msgstr ""

#: ../install_steps_interactive.pm_.c:464
msgid "First DNS Server"
msgstr ""

#: ../install_steps_interactive.pm_.c:465
msgid "Second DNS Server"
msgstr ""

#: ../install_steps_interactive.pm_.c:478
msgid "Bringing up the network"
msgstr ""

#: ../install_steps_interactive.pm_.c:487
msgid ""
"You have now the possibility to download software aimed for encryption.\n"
"\n"
"WARNING:\n"
"\n"
"Due to different general requirements applicable to these software and "
"imposed\n"
"by various jurisdictions, customer and/or end user of theses software "
"should\n"
"ensure that the laws of his/their jurisdiction allow him/them to download, "
"stock\n"
"and/or use these software.\n"
"\n"
"In addition customer and/or end user shall particularly be aware to not "
"infringe\n"
"the laws of his/their jurisdiction. Should customer and/or end user do not\n"
"respect the provision of these applicable laws, he/they will incur serious\n"
"sanctions.\n"
"\n"
"In no event shall Mandrakesoft nor its manufacturers and/or suppliers be "
"liable\n"
"for special, indirect or incidental damages whatsoever (including, but not\n"
"limited to loss of profits, business interruption, loss of commercial data "
"and\n"
"other pecuniary losses, and eventual liabilities and indemnification to be "
"paid\n"
"pursuant to a court decision) arising out of use, possession, or the sole\n"
"downloading of these software, to which customer and/or end user could\n"
"eventually have access after having sign up the present agreement.\n"
"\n"
"For any queries relating to these agreement, please contact \n"
"Mandrakesoft, Inc.\n"
"2400 N. Lincoln Avenue Suite 243\n"
"Altadena California 91001\n"
"USA"
msgstr ""

#: ../install_steps_interactive.pm_.c:517
msgid "Choose a mirror from which to get the packages"
msgstr ""

#: ../install_steps_interactive.pm_.c:522
msgid "Contacting the mirror to get the list of available packages"
msgstr ""

#: ../install_steps_interactive.pm_.c:526
msgid "Which packages do you want to install"
msgstr ""

#: ../install_steps_interactive.pm_.c:528
msgid "Downloading cryptographic packages"
msgstr "Ag thíoslódáil pacáistí rúneolaíochta"

#: ../install_steps_interactive.pm_.c:538
msgid "Which is your timezone?"
msgstr "Cén ceann do chrois ama"

#: ../install_steps_interactive.pm_.c:539
msgid "Is your hardware clock set to GMT?"
msgstr "An bhfuil an clog cruaearrach ar GMT?"

#: ../install_steps_interactive.pm_.c:549
msgid "Printer"
msgstr "Printéir"

#: ../install_steps_interactive.pm_.c:550
msgid "Would you like to configure a printer?"
msgstr "An dteastaìonn uait printéir a chumrú?"

#: ../install_steps_interactive.pm_.c:570
msgid "No password"
msgstr "Gan pasfhocal"

#: ../install_steps_interactive.pm_.c:570
#: ../install_steps_interactive.pm_.c:792 ../interactive.pm_.c:74
#: ../interactive.pm_.c:84 ../interactive.pm_.c:163
#: ../interactive_newt.pm_.c:50 ../interactive_newt.pm_.c:94
#: ../interactive_stdio.pm_.c:27 ../my_gtk.pm_.c:192 ../my_gtk.pm_.c:425
#: ../my_gtk.pm_.c:525
msgid "Ok"
msgstr "Ok"

#: ../install_steps_interactive.pm_.c:573
#: ../install_steps_interactive.pm_.c:619
#: ../install_steps_interactive.pm_.c:719 ../standalone/adduserdrake_.c:41
msgid "Password (again)"
msgstr "Pasfhocal (arís)"

#: ../install_steps_interactive.pm_.c:575
msgid "Use shadow file"
msgstr "Bain úsáid as scáilcomhad"

#: ../install_steps_interactive.pm_.c:575
msgid "shadow"
msgstr "scáil"

#: ../install_steps_interactive.pm_.c:576
msgid "MD5"
msgstr "MD5"

#: ../install_steps_interactive.pm_.c:576
msgid "Use MD5 passwords"
msgstr "Bain úsáid as pasfhocail MD5"

#: ../install_steps_interactive.pm_.c:578
msgid "Use NIS"
msgstr "Bain úsáid as NIS"

#: ../install_steps_interactive.pm_.c:578
msgid "yellow pages"
msgstr "leathanaigh buí"

#: ../install_steps_interactive.pm_.c:582
#: ../install_steps_interactive.pm_.c:630
#: ../install_steps_interactive.pm_.c:730 ../standalone/adduserdrake_.c:52
msgid "Please try again"
msgstr "Aththrialaigh"

#: ../install_steps_interactive.pm_.c:582
#: ../install_steps_interactive.pm_.c:630
#: ../install_steps_interactive.pm_.c:730 ../standalone/adduserdrake_.c:52
msgid "The passwords do not match"
msgstr "Ní mar a chéile na pasfhocail"

#: ../install_steps_interactive.pm_.c:584
#, c-format
msgid "This password is too simple (must be at least %d characters long)"
msgstr ""

#: ../install_steps_interactive.pm_.c:591
msgid "Authentification NIS"
msgstr ""

#: ../install_steps_interactive.pm_.c:592
msgid "NIS Domain"
msgstr ""

#: ../install_steps_interactive.pm_.c:592
msgid "NIS Server"
msgstr ""

#: ../install_steps_interactive.pm_.c:612 ../standalone/adduserdrake_.c:34
msgid "Accept user"
msgstr ""

#: ../install_steps_interactive.pm_.c:612 ../standalone/adduserdrake_.c:34
msgid "Add user"
msgstr ""

#: ../install_steps_interactive.pm_.c:613 ../standalone/adduserdrake_.c:35
#, c-format
msgid "(already added %s)"
msgstr ""

#: ../install_steps_interactive.pm_.c:613 ../standalone/adduserdrake_.c:35
#, c-format
msgid ""
"Enter a user\n"
"%s"
msgstr ""

#: ../install_steps_interactive.pm_.c:615 ../standalone/adduserdrake_.c:37
msgid "Real name"
msgstr "Fíor ainm"

#: ../install_steps_interactive.pm_.c:616 ../standalone/adduserdrake_.c:38
msgid "User name"
msgstr "Ainm úsáideora"

#: ../install_steps_interactive.pm_.c:621 ../standalone/adduserdrake_.c:43
msgid "Shell"
msgstr ""

#: ../install_steps_interactive.pm_.c:631 ../standalone/adduserdrake_.c:53
msgid "This password is too simple"
msgstr "Tá an pasfhocal seo ro-shimplí"

#: ../install_steps_interactive.pm_.c:632 ../standalone/adduserdrake_.c:54
msgid "Please give a user name"
msgstr ""

#: ../install_steps_interactive.pm_.c:633 ../standalone/adduserdrake_.c:55
msgid ""
"The user name must contain only lower cased letters, numbers, `-' and `_'"
msgstr ""

#: ../install_steps_interactive.pm_.c:634 ../standalone/adduserdrake_.c:56
msgid "This user name is already added"
msgstr "Is ann cheana don ainm úsáideora seo"

#: ../install_steps_interactive.pm_.c:653
msgid "First drive"
msgstr ""

#: ../install_steps_interactive.pm_.c:654
msgid "Second drive"
msgstr ""

#: ../install_steps_interactive.pm_.c:655
msgid "Skip"
msgstr ""

#: ../install_steps_interactive.pm_.c:660
msgid ""
"A custom bootdisk provides a way of booting into your Linux system without\n"
"depending on the normal bootloader. This is useful if you don't want to "
"install\n"
"LILO on your system, or another operating system removes LILO, or LILO "
"doesn't\n"
"work with your hardware configuration. A custom bootdisk can also be used "
"with\n"
"the Mandrake rescue image, making it much easier to recover from severe "
"system\n"
"failures. Would you like to create a bootdisk for your system?"
msgstr ""

#: ../install_steps_interactive.pm_.c:669
msgid "Sorry, no floppy drive available"
msgstr "Brón orm, níl aon dioscthiománt flapach ar fáil"

#: ../install_steps_interactive.pm_.c:672
msgid "Choose the floppy drive you want to use to make the bootdisk"
msgstr ""

#: ../install_steps_interactive.pm_.c:677
#, c-format
msgid "Insert a floppy in drive %s"
msgstr "Cur isteach diosca sa dioscthiomant %s"

#: ../install_steps_interactive.pm_.c:678
#: ../install_steps_interactive.pm_.c:1036
msgid "Creating bootdisk"
msgstr ""

#: ../install_steps_interactive.pm_.c:685
msgid "Preparing bootloader"
msgstr ""

#: ../install_steps_interactive.pm_.c:697
msgid "First sector of boot partition"
msgstr ""

#: ../install_steps_interactive.pm_.c:697
msgid "First sector of drive (MBR)"
msgstr ""

#: ../install_steps_interactive.pm_.c:702
msgid "LILO Installation"
msgstr ""

#: ../install_steps_interactive.pm_.c:703
msgid "Where do you want to install the bootloader?"
msgstr ""

#: ../install_steps_interactive.pm_.c:709
msgid "Do you want to use LILO?"
msgstr ""

#: ../install_steps_interactive.pm_.c:712
msgid "Boot device"
msgstr ""

#: ../install_steps_interactive.pm_.c:713
msgid "Linear (needed for some SCSI drives)"
msgstr ""

#: ../install_steps_interactive.pm_.c:713
msgid "linear"
msgstr ""

#: ../install_steps_interactive.pm_.c:714
msgid "Compact"
msgstr ""

#: ../install_steps_interactive.pm_.c:714
msgid "compact"
msgstr ""

#: ../install_steps_interactive.pm_.c:715
msgid "Delay before booting default image"
msgstr ""

#: ../install_steps_interactive.pm_.c:716
msgid "Video mode"
msgstr ""

#: ../install_steps_interactive.pm_.c:720
msgid "Restrict command line options"
msgstr ""

#: ../install_steps_interactive.pm_.c:720
msgid "restrict"
msgstr ""

#: ../install_steps_interactive.pm_.c:726
msgid "LILO main options"
msgstr ""

#: ../install_steps_interactive.pm_.c:729
msgid ""
"Option ``Restrict command line options'' is of no use without a password"
msgstr ""

#: ../install_steps_interactive.pm_.c:740
msgid ""
"Here are the following entries in LILO.\n"
"You can add some more or change the existing ones."
msgstr ""

#: ../install_steps_interactive.pm_.c:742 ../standalone/rpmdrake_.c:302
msgid "Add"
msgstr ""

#: ../install_steps_interactive.pm_.c:751
msgid "Linux"
msgstr "Linux"

#: ../install_steps_interactive.pm_.c:751
msgid "Other OS (windows...)"
msgstr "CO Eile (windows...)"

#: ../install_steps_interactive.pm_.c:751
msgid "Which type of entry do you want to add"
msgstr ""

#: ../install_steps_interactive.pm_.c:771
msgid "Image"
msgstr ""

#: ../install_steps_interactive.pm_.c:772
#: ../install_steps_interactive.pm_.c:780
msgid "Root"
msgstr ""

#: ../install_steps_interactive.pm_.c:773
msgid "Append"
msgstr ""

#: ../install_steps_interactive.pm_.c:774
msgid "Initrd"
msgstr ""

#: ../install_steps_interactive.pm_.c:775
msgid "Read-write"
msgstr ""

#: ../install_steps_interactive.pm_.c:781
msgid "Table"
msgstr ""

#: ../install_steps_interactive.pm_.c:782
msgid "Unsafe"
msgstr ""

#: ../install_steps_interactive.pm_.c:787
msgid "Label"
msgstr ""

#: ../install_steps_interactive.pm_.c:789
msgid "Default"
msgstr ""

#: ../install_steps_interactive.pm_.c:792
msgid "Remove entry"
msgstr ""

#: ../install_steps_interactive.pm_.c:795
msgid "Empty label not allowed"
msgstr ""

#: ../install_steps_interactive.pm_.c:796
msgid "This label is already in use"
msgstr ""

#: ../install_steps_interactive.pm_.c:797
#, c-format
msgid "A entry %s already exists"
msgstr ""

#: ../install_steps_interactive.pm_.c:811
msgid "Installation of LILO failed. The following error occured:"
msgstr ""

#: ../install_steps_interactive.pm_.c:825
msgid "Proxies configuration"
msgstr ""

#: ../install_steps_interactive.pm_.c:826
msgid "HTTP proxy"
msgstr ""

#: ../install_steps_interactive.pm_.c:827
msgid "FTP proxy"
msgstr ""

#: ../install_steps_interactive.pm_.c:833
msgid "Proxy should be http://..."
msgstr ""

#: ../install_steps_interactive.pm_.c:834
msgid "Proxy should be ftp://..."
msgstr ""

#: ../install_steps_interactive.pm_.c:844 ../standalone/draksec_.c:20
msgid "Welcome To Crackers"
msgstr ""

#: ../install_steps_interactive.pm_.c:845 ../standalone/draksec_.c:21
msgid "Poor"
msgstr ""

#: ../install_steps_interactive.pm_.c:846 ../standalone/draksec_.c:22
msgid "Low"
msgstr ""

#: ../install_steps_interactive.pm_.c:847 ../standalone/draksec_.c:23
msgid "Medium"
msgstr ""

#: ../install_steps_interactive.pm_.c:848 ../standalone/draksec_.c:24
msgid "High"
msgstr ""

#: ../install_steps_interactive.pm_.c:849 ../standalone/draksec_.c:25
msgid "Paranoid"
msgstr ""

#: ../install_steps_interactive.pm_.c:862
msgid "Miscellaneous questions"
msgstr "Ceisteanna eile"

#: ../install_steps_interactive.pm_.c:863
msgid "(may cause data corruption)"
msgstr ""

#: ../install_steps_interactive.pm_.c:863
msgid "Use hard drive optimisations?"
msgstr ""

#: ../install_steps_interactive.pm_.c:864 ../standalone/draksec_.c:46
msgid "Choose security level"
msgstr ""

#: ../install_steps_interactive.pm_.c:865
#, c-format
msgid "Precise RAM size if needed (found %d MB)"
msgstr ""

#: ../install_steps_interactive.pm_.c:866
msgid "Removable media automounting"
msgstr ""

#: ../install_steps_interactive.pm_.c:868
msgid "Enable num lock at startup"
msgstr ""

#: ../install_steps_interactive.pm_.c:871
msgid "Give the ram size in Mb"
msgstr ""

#: ../install_steps_interactive.pm_.c:899
#: ../install_steps_interactive.pm_.c:1069
msgid "Try to find PCI devices?"
msgstr ""

#: ../install_steps_interactive.pm_.c:914
msgid ""
"Some steps are not completed.\n"
"\n"
"Do you really want to quit now?"
msgstr ""

#: ../install_steps_interactive.pm_.c:921
msgid ""
"Congratulations, installation is complete.\n"
"Remove the boot media and press return to reboot.\n"
"\n"
"For information on fixes which are available for this release of "
"Linux-Mandrake,\n"
"consult the Errata available from http://www.linux-mandrake.com/.\n"
"\n"
"Information on configuring your system is available in the post\n"
"install chapter of the Official Linux-Mandrake User's Guide."
msgstr ""

#: ../install_steps_interactive.pm_.c:930
msgid "Shutting down"
msgstr "Ag dúnadh síos"

#: ../install_steps_interactive.pm_.c:944
#, c-format
msgid "Installing driver for %s card %s"
msgstr ""

#: ../install_steps_interactive.pm_.c:945
#, c-format
msgid "(module %s)"
msgstr ""

#: ../install_steps_interactive.pm_.c:955
#, c-format
msgid "Which %s driver should I try?"
msgstr ""

#: ../install_steps_interactive.pm_.c:963
#, c-format
msgid ""
"In some cases, the %s driver needs to have extra information to work\n"
"properly, although it normally works fine without. Would you like to "
"specify\n"
"extra options for it or allow the driver to probe your machine for the\n"
"information it needs? Occasionally, probing will hang a computer, but it "
"should\n"
"not cause any damage."
msgstr ""

#: ../install_steps_interactive.pm_.c:968
msgid "Autoprobe"
msgstr ""

#: ../install_steps_interactive.pm_.c:968
msgid "Specify options"
msgstr ""

#: ../install_steps_interactive.pm_.c:972
#, c-format
msgid "You may now provide its options to module %s."
msgstr ""

#: ../install_steps_interactive.pm_.c:978
#, c-format
msgid ""
"You may now provide its options to module %s.\n"
"Options are in format ``name=value name2=value2 ...''.\n"
"For instance, ``io=0x300 irq=7''"
msgstr ""

#: ../install_steps_interactive.pm_.c:981
msgid "Module options:"
msgstr ""

#: ../install_steps_interactive.pm_.c:991
#, c-format
msgid ""
"Loading module %s failed.\n"
"Do you want to try again with other parameters?"
msgstr ""

#: ../install_steps_interactive.pm_.c:1004
msgid "Try to find PCMCIA cards?"
msgstr "Déan iarracht cartaí PCMCIA a lorg?"

#: ../install_steps_interactive.pm_.c:1005
msgid "Configuring PCMCIA cards..."
msgstr "Cumraigh Cártaí PCMCIA"

#: ../install_steps_interactive.pm_.c:1005
msgid "PCMCIA"
msgstr "PCMCIA"

#: ../install_steps_interactive.pm_.c:1012
msgid ""
"Linux does not yet fully support ultra dma 66 HPT.\n"
"As a work-around i can make a custom floppy giving access the hard drive on "
"ide2 and ide3"
msgstr ""

#: ../install_steps_interactive.pm_.c:1033
#, fuzzy
msgid ""
"Enter a floppy to create an HTP enabled boot\n"
"(all data on floppy will be lost)"
msgstr ""
"Cur diosca flapach sa dioscthiomant\n"
"Caillfear gach sonra ar an dhiosca seo"

#: ../install_steps_interactive.pm_.c:1050
msgid "It is necessary to restart installation booting on the floppy"
msgstr ""

#: ../install_steps_interactive.pm_.c:1051
msgid "It is necessary to restart installation with the new parameters"
msgstr ""

#: ../install_steps_interactive.pm_.c:1055
#, c-format
msgid ""
"Failed to create an HTP boot floppy.\n"
"You may have to restart installation and give ``%s'' at the prompt"
msgstr ""

#: ../install_steps_interactive.pm_.c:1075
#, c-format
msgid "Found %s %s interfaces"
msgstr ""

#: ../install_steps_interactive.pm_.c:1076
msgid "Do you have another one?"
msgstr "An bhfuil ceann eile agat?"

#: ../install_steps_interactive.pm_.c:1077
#, c-format
msgid "Do you have any %s interface?"
msgstr "An bhfuil comhéadan %s agat?"

#: ../install_steps_interactive.pm_.c:1079 ../interactive.pm_.c:79
#: ../my_gtk.pm_.c:424 ../printerdrake.pm_.c:176
msgid "No"
msgstr ""

#: ../install_steps_interactive.pm_.c:1079 ../interactive.pm_.c:79
#: ../my_gtk.pm_.c:424
msgid "Yes"
msgstr ""

#: ../install_steps_interactive.pm_.c:1080
msgid "See hardware info"
msgstr ""

#: ../install_steps_newt.pm_.c:19
#, c-format
msgid "Linux-Mandrake Installation %s"
msgstr ""

#: ../install_steps_newt.pm_.c:30
msgid ""
"  <Tab>/<Alt-Tab> between elements  | <Space> selects | <F12> next screen "
msgstr ""

#: ../interactive.pm_.c:84 ../interactive.pm_.c:162
#: ../interactive_newt.pm_.c:50 ../interactive_newt.pm_.c:94
#: ../interactive_stdio.pm_.c:27 ../my_gtk.pm_.c:193 ../my_gtk.pm_.c:425
msgid "Cancel"
msgstr "Cealaigh"

#: ../interactive.pm_.c:180
msgid "Please wait"
msgstr "Fan tamall"

#: ../interactive_stdio.pm_.c:35
#, c-format
msgid "Ambiguity (%s), be more precise\n"
msgstr "Débhríoch (%s), bí níos cruinn\n"

#: ../interactive_stdio.pm_.c:36 ../interactive_stdio.pm_.c:51
#: ../interactive_stdio.pm_.c:70
msgid "Bad choice, try again\n"
msgstr "Droch rogha, aththrialaigh\n"

#: ../interactive_stdio.pm_.c:39
#, c-format
msgid " ? (default %s) "
msgstr " ? (gnás %s)"

#: ../interactive_stdio.pm_.c:52
#, c-format
msgid "Your choice? (default %s) "
msgstr "Do rogha? (gnás %s)"

#: ../interactive_stdio.pm_.c:71
#, c-format
msgid "Your choice? (default %s  enter `none' for none) "
msgstr "Do rogha? (gnás %s úsáid `none' do ceann ar bith) "

#: ../keyboard.pm_.c:88
msgid "Armenian"
msgstr ""

#: ../keyboard.pm_.c:89
msgid "Belgian"
msgstr ""

#: ../keyboard.pm_.c:90
msgid "Bulgarian"
msgstr ""

#: ../keyboard.pm_.c:91
msgid "Brazilian"
msgstr ""

#: ../keyboard.pm_.c:92
msgid "Swiss (French layout)"
msgstr ""

#: ../keyboard.pm_.c:93
msgid "Swiss (German layout)"
msgstr ""

#: ../keyboard.pm_.c:94
msgid "Czech"
msgstr ""

#: ../keyboard.pm_.c:95
msgid "German"
msgstr ""

#: ../keyboard.pm_.c:96
msgid "Danish"
msgstr ""

#: ../keyboard.pm_.c:97
msgid "Dvorak"
msgstr ""

#: ../keyboard.pm_.c:98
msgid "Estonian"
msgstr ""

#: ../keyboard.pm_.c:99
msgid "Spanish"
msgstr ""

#: ../keyboard.pm_.c:100
msgid "Finnish"
msgstr ""

#: ../keyboard.pm_.c:101
msgid "French"
msgstr ""

#: ../keyboard.pm_.c:102
msgid "Georgian (\"Russian\" layout)"
msgstr ""

#: ../keyboard.pm_.c:103
msgid "Georgian (\"Latin\" layout)"
msgstr ""

#: ../keyboard.pm_.c:104
msgid "Greek"
msgstr ""

#: ../keyboard.pm_.c:105
msgid "Hungarian"
msgstr ""

#: ../keyboard.pm_.c:106
msgid "Israeli"
msgstr ""

#: ../keyboard.pm_.c:107
msgid "Israeli (Phonetic)"
msgstr ""

#: ../keyboard.pm_.c:108
msgid "Icelandic"
msgstr ""

#: ../keyboard.pm_.c:109
msgid "Italian"
msgstr ""

#: ../keyboard.pm_.c:110
msgid "Latin American"
msgstr ""

#: ../keyboard.pm_.c:112
msgid "Dutch"
msgstr ""

#: ../keyboard.pm_.c:113
msgid "Lithuanian AZERTY"
msgstr ""

#: ../keyboard.pm_.c:114
msgid "Lithuanian \"number row\" QWERTY"
msgstr ""

#: ../keyboard.pm_.c:115
msgid "Lithuanian \"phonetic\" QWERTY"
msgstr ""

#: ../keyboard.pm_.c:116
msgid "Norwegian"
msgstr ""

#: ../keyboard.pm_.c:117
msgid "Polish"
msgstr ""

#: ../keyboard.pm_.c:118
msgid "Portuguese"
msgstr ""

#: ../keyboard.pm_.c:119
msgid "Canadian (Quebec)"
msgstr ""

#: ../keyboard.pm_.c:120
msgid "Russian"
msgstr ""

#: ../keyboard.pm_.c:121
msgid "Russian (Yawerty)"
msgstr ""

#: ../keyboard.pm_.c:122
msgid "Swedish"
msgstr ""

#: ../keyboard.pm_.c:123
msgid "Slovenian"
msgstr ""

#: ../keyboard.pm_.c:124
msgid "Slovakian"
msgstr ""

#: ../keyboard.pm_.c:125
msgid "Thai keyboard"
msgstr ""

#: ../keyboard.pm_.c:126
msgid "Turkish (traditional \"F\" model)"
msgstr ""

#: ../keyboard.pm_.c:127
msgid "Turkish (modern \"Q\" model)"
msgstr ""

#: ../keyboard.pm_.c:128
msgid "Ukrainian"
msgstr ""

#: ../keyboard.pm_.c:129
msgid "UK keyboard"
msgstr ""

#: ../keyboard.pm_.c:130
msgid "US keyboard"
msgstr ""

#: ../keyboard.pm_.c:131
msgid "US keyboard (international)"
msgstr ""

#: ../keyboard.pm_.c:132
msgid "Yugoslavian (latin layout)"
msgstr ""

# NOTE: this message will be displayed by lilo at boot time; that is
# using the BIOS font; that means cp437 charset on 99.99% of PC computers
# out there. It is the nsuggested that for non latin languages an ascii
# transliteration be used; or maybe the english text be used; as it is best
#
#: ../lilo.pm_.c:142
#, c-format
msgid ""
"Welcome to LILO the operating system chooser!\n"
"\n"
"To list the possible choices, press <TAB>.\n"
"\n"
"To load one of them, write its name and press <ENTER> or wait %d seconds for "
"default boot.\n"
"\n"
msgstr ""

#: ../mouse.pm_.c:20
msgid "No Mouse"
msgstr "Luchóg ar bith"

#: ../mouse.pm_.c:21
msgid "Microsoft Rev 2.1A or higher (serial)"
msgstr ""

#: ../mouse.pm_.c:22
msgid "Logitech CC Series (serial)"
msgstr ""

#: ../mouse.pm_.c:23
msgid "Logitech MouseMan+/FirstMouse+ (serial)"
msgstr ""

#: ../mouse.pm_.c:24
msgid "ASCII MieMouse (serial)"
msgstr ""

#: ../mouse.pm_.c:25
msgid "Genius NetMouse (serial)"
msgstr ""

#: ../mouse.pm_.c:26
msgid "Microsoft IntelliMouse (serial)"
msgstr ""

#: ../mouse.pm_.c:27
msgid "MM Series (serial)"
msgstr ""

#: ../mouse.pm_.c:28
msgid "MM HitTablet (serial)"
msgstr ""

#: ../mouse.pm_.c:29
msgid "Logitech Mouse (serial, old C7 type)"
msgstr ""

#: ../mouse.pm_.c:30
msgid "Logitech MouseMan/FirstMouse (serial)"
msgstr ""

#: ../mouse.pm_.c:31
msgid "Generic Mouse (serial)"
msgstr ""

#: ../mouse.pm_.c:32
msgid "Microsoft compatible (serial)"
msgstr ""

#: ../mouse.pm_.c:33
msgid "Generic 3 Button Mouse (serial)"
msgstr ""

#: ../mouse.pm_.c:34
msgid "Mouse Systems (serial)"
msgstr ""

#: ../mouse.pm_.c:35
msgid "Generic Mouse (PS/2)"
msgstr ""

#: ../mouse.pm_.c:36
msgid "Logitech MouseMan/FirstMouse (ps/2)"
msgstr ""

#: ../mouse.pm_.c:37
msgid "Generic 3 Button Mouse (PS/2)"
msgstr ""

#: ../mouse.pm_.c:38
msgid "ALPS GlidePoint (PS/2)"
msgstr ""

#: ../mouse.pm_.c:39
msgid "Logitech MouseMan+/FirstMouse+ (PS/2)"
msgstr ""

#: ../mouse.pm_.c:40
msgid "Kensington Thinking Mouse (PS/2)"
msgstr ""

#: ../mouse.pm_.c:41
msgid "ASCII MieMouse (PS/2)"
msgstr ""

#: ../mouse.pm_.c:42
msgid "Genius NetMouse (PS/2)"
msgstr ""

#: ../mouse.pm_.c:43
msgid "Genius NetMouse Pro (PS/2)"
msgstr ""

#: ../mouse.pm_.c:44
msgid "Genius NetScroll (PS/2)"
msgstr ""

#: ../mouse.pm_.c:45
msgid "Microsoft IntelliMouse (PS/2)"
msgstr ""

#: ../mouse.pm_.c:46
msgid "ATI Bus Mouse"
msgstr ""

#: ../mouse.pm_.c:47
msgid "Microsoft Bus Mouse"
msgstr ""

#: ../mouse.pm_.c:48
msgid "Logitech Bus Mouse"
msgstr ""

#: ../mouse.pm_.c:49
msgid "USB Mouse"
msgstr ""

#: ../mouse.pm_.c:50
msgid "USB Mouse (3 buttons or more)"
msgstr ""

#: ../partition_table.pm_.c:486
msgid ""
"You have a hole in your partition table but I can't use it.\n"
"The only solution is to move your primary partitions to have the hole next "
"to the extended partitions"
msgstr ""

#: ../partition_table.pm_.c:572
#, c-format
msgid "Error reading file %s"
msgstr "Earráid ag léamh comhad %s"

#: ../partition_table.pm_.c:579
#, c-format
msgid "Restoring from file %s failed: %s"
msgstr ""

#: ../partition_table.pm_.c:581
msgid "Bad backup file"
msgstr ""

#: ../partition_table.pm_.c:602
#, c-format
msgid "Error writing to file %s"
msgstr ""

#: ../placeholder.pm_.c:5
#, fuzzy
msgid "Show less"
msgstr "Taispéan gach ceann"

#: ../placeholder.pm_.c:6
msgid "Show more"
msgstr ""

#: ../printer.pm_.c:244
msgid "Local printer"
msgstr ""

#: ../printer.pm_.c:245
msgid "Remote lpd"
msgstr ""

#: ../printer.pm_.c:246
msgid "SMB/Windows 95/98/NT"
msgstr ""

#: ../printer.pm_.c:247
msgid "NetWare"
msgstr ""

#: ../printerdrake.pm_.c:75
msgid "Local Printer Options"
msgstr ""

#: ../printerdrake.pm_.c:76
msgid ""
"Every print queue (which print jobs are directed to) needs a\n"
"name (often lp) and a spool directory associated with it. What\n"
"name and directory should be used for this queue?"
msgstr ""

#: ../printerdrake.pm_.c:79
msgid "Name of queue:"
msgstr ""

#: ../printerdrake.pm_.c:79
msgid "Spool directory:"
msgstr ""

#: ../printerdrake.pm_.c:90
msgid "Select Printer Connection"
msgstr ""

#: ../printerdrake.pm_.c:91
msgid "How is the printer connected?"
msgstr ""

#: ../printerdrake.pm_.c:99
msgid "Detecting devices..."
msgstr ""

#: ../printerdrake.pm_.c:99
msgid "Test ports"
msgstr ""

#: ../printerdrake.pm_.c:112
#, c-format
msgid "A printer, model \"%s\", has been detected on "
msgstr ""

#: ../printerdrake.pm_.c:119
msgid "Local Printer Device"
msgstr ""

#: ../printerdrake.pm_.c:120
msgid ""
"What device is your printer connected to  \n"
"(note that /dev/lp0 is equivalent to LPT1:)?\n"
msgstr ""

#: ../printerdrake.pm_.c:121
msgid "Printer Device:"
msgstr ""

#: ../printerdrake.pm_.c:125
msgid "Remote lpd Printer Options"
msgstr ""

#: ../printerdrake.pm_.c:126
msgid ""
"To use a remote lpd print queue, you need to supply\n"
"the hostname of the printer server and the queue name\n"
"on that server which jobs should be placed in."
msgstr ""

#: ../printerdrake.pm_.c:129
msgid "Remote hostname:"
msgstr ""

#: ../printerdrake.pm_.c:129
msgid "Remote queue"
msgstr ""

#: ../printerdrake.pm_.c:134
msgid "SMB (Windows 9x/NT) Printer Options"
msgstr ""

#: ../printerdrake.pm_.c:135
msgid ""
"To print to a SMB printer, you need to provide the\n"
"SMB host name (Note! It may be different from its\n"
"TCP/IP hostname!) and possibly the IP address of the print server, as\n"
"well as the share name for the printer you wish to access and any\n"
"applicable user name, password, and workgroup information."
msgstr ""

#: ../printerdrake.pm_.c:140
msgid "SMB server IP:"
msgstr ""

#: ../printerdrake.pm_.c:140
msgid "SMB server host:"
msgstr ""

#: ../printerdrake.pm_.c:141 ../printerdrake.pm_.c:163
msgid "Password:"
msgstr ""

#: ../printerdrake.pm_.c:141
msgid "Share name:"
msgstr ""

#: ../printerdrake.pm_.c:141 ../printerdrake.pm_.c:163
msgid "User name:"
msgstr ""

#: ../printerdrake.pm_.c:142
msgid "Workgroup:"
msgstr ""

#: ../printerdrake.pm_.c:157
msgid "NetWare Printer Options"
msgstr ""

#: ../printerdrake.pm_.c:158
msgid ""
"To print to a NetWare printer, you need to provide the\n"
"NetWare print server name (Note! it may be different from its\n"
"TCP/IP hostname!) as well as the print queue name for the printer you\n"
"wish to access and any applicable user name and password."
msgstr ""

#: ../printerdrake.pm_.c:162
msgid "Print Queue Name:"
msgstr ""

#: ../printerdrake.pm_.c:162
msgid "Printer Server:"
msgstr ""

#: ../printerdrake.pm_.c:173
msgid "Yes, print ASCII test page"
msgstr ""

#: ../printerdrake.pm_.c:174
msgid "Yes, print PostScript test page"
msgstr ""

#: ../printerdrake.pm_.c:175
msgid "Yes, print both test pages"
msgstr ""

#: ../printerdrake.pm_.c:183
msgid "Configure Printer"
msgstr ""

#: ../printerdrake.pm_.c:184
msgid "What type of printer do you have?"
msgstr ""

#: ../printerdrake.pm_.c:206
msgid "Printer options"
msgstr ""

#: ../printerdrake.pm_.c:207
msgid "Paper Size"
msgstr ""

#: ../printerdrake.pm_.c:208
msgid "Eject page after job?"
msgstr ""

#: ../printerdrake.pm_.c:211
msgid "Fix stair-stepping text?"
msgstr ""

#: ../printerdrake.pm_.c:214
msgid "Uniprint driver options"
msgstr ""

#: ../printerdrake.pm_.c:215
msgid "Color depth options"
msgstr ""

#: ../printerdrake.pm_.c:225
msgid "Do you want to test printing?"
msgstr ""

#: ../printerdrake.pm_.c:236
msgid "Printing test page(s)..."
msgstr ""

#: ../printerdrake.pm_.c:254
#, c-format
msgid ""
"Test page(s) have been sent to the printer daemon.\n"
"This may take a little time before printer start.\n"
"Printing status:\n"
"%s\n"
"\n"
"Does it work properly?"
msgstr ""

#: ../printerdrake.pm_.c:258
msgid ""
"Test page(s) have been sent to the printer daemon.\n"
"This may take a little time before printer start.\n"
"Does it work properly?"
msgstr ""

#: ../raid.pm_.c:36
#, c-format
msgid "Can't add a partition to _formatted_ RAID md%d"
msgstr ""

#: ../raid.pm_.c:106
msgid "Can't write file $file"
msgstr ""

#: ../raid.pm_.c:146
#, c-format
msgid "Not enough partitions for RAID level %d\n"
msgstr ""

#: ../standalone/draksec_.c:28
msgid ""
"This level is to be used with care. It makes your system more easy to use,\n"
"but very sensitive: it must not be used for a machine connected to others\n"
"or to the Internet. There is no password access."
msgstr ""

#: ../standalone/draksec_.c:31
msgid ""
"Password are now enabled, but use as a networked computer is still not "
"recommended."
msgstr ""

#: ../standalone/draksec_.c:32
msgid ""
"Few improvements for this security level, the main one is that there are\n"
"more security warnings and checks."
msgstr ""

#: ../standalone/draksec_.c:34
msgid ""
"This is the standard security recommended for a computer that will be used\n"
"to connect to the Internet as a client. There are now security checks. "
msgstr ""

#: ../standalone/draksec_.c:36
msgid ""
"With this security level, the use of this system as a server becomes "
"possible.\n"
"The security is now high enough to use the system as a server which accept\n"
"connections from many clients. "
msgstr ""

#: ../standalone/draksec_.c:39
msgid ""
"We take level 4 features, but now the system is entirely closed.\n"
"Security features are at their maximum."
msgstr ""

#: ../standalone/draksec_.c:49
msgid "Setting security level"
msgstr ""

#: ../standalone/drakxconf_.c:21
msgid "Choose the tool you want to use"
msgstr ""

#: ../standalone/drakxservices_.c:21
msgid "Choose which services should be automatically started at boot time"
msgstr ""

#: ../standalone/mousedrake_.c:30
msgid "no serial_usb found\n"
msgstr ""

#: ../standalone/mousedrake_.c:35
msgid "Emulate third button?"
msgstr ""

#: ../standalone/rpmdrake_.c:25
#, fuzzy
msgid "reading configuration"
msgstr "Trialaigh an cumraíocht"

#: ../standalone/rpmdrake_.c:45 ../standalone/rpmdrake_.c:50
#: ../standalone/rpmdrake_.c:253
msgid "File"
msgstr ""

#: ../standalone/rpmdrake_.c:48 ../standalone/rpmdrake_.c:229
#: ../standalone/rpmdrake_.c:253 ../standalone/rpmdrake_.c:269
msgid "Search"
msgstr ""

#: ../standalone/rpmdrake_.c:49 ../standalone/rpmdrake_.c:56
#, fuzzy
msgid "Package"
msgstr "%d pacáistí"

#: ../standalone/rpmdrake_.c:51
#, fuzzy
msgid "Text"
msgstr "saineolaí"

#: ../standalone/rpmdrake_.c:53
#, fuzzy
msgid "Tree"
msgstr "Cruthaigh"

#: ../standalone/rpmdrake_.c:54
msgid "Sort by"
msgstr ""

#: ../standalone/rpmdrake_.c:55
msgid "Category"
msgstr ""

#: ../standalone/rpmdrake_.c:58
#, fuzzy
msgid "See"
msgstr "Freastalaí"

#: ../standalone/rpmdrake_.c:59 ../standalone/rpmdrake_.c:163
#, fuzzy
msgid "Installed packages"
msgstr "%d pacáistí"

#: ../standalone/rpmdrake_.c:60
#, fuzzy
msgid "Available packages"
msgstr "Ag curdach do na pacáistí atá ar fáil"

#: ../standalone/rpmdrake_.c:62
#, fuzzy
msgid "Show only leaves"
msgstr "Taispéan gach ceann"

#: ../standalone/rpmdrake_.c:67
msgid "Expand all"
msgstr ""

#: ../standalone/rpmdrake_.c:68
#, fuzzy
msgid "Collapse all"
msgstr "Glan gach ceann"

#: ../standalone/rpmdrake_.c:70
#, fuzzy
msgid "Configuration"
msgstr "Trialaigh an cumraíocht"

#: ../standalone/rpmdrake_.c:71
msgid "Add location of packages"
msgstr ""

#: ../standalone/rpmdrake_.c:75
msgid "Update location"
msgstr ""

#: ../standalone/rpmdrake_.c:79 ../standalone/rpmdrake_.c:328
#, fuzzy
msgid "Remove"
msgstr "Bog"

#: ../standalone/rpmdrake_.c:100
msgid "Configuration: Add Location"
msgstr ""

#: ../standalone/rpmdrake_.c:101
msgid "Expand Tree"
msgstr ""

#: ../standalone/rpmdrake_.c:102
msgid "Collapse Tree"
msgstr ""

#: ../standalone/rpmdrake_.c:103
#, fuzzy
msgid "Find Package"
msgstr "%d pacáistí"

#: ../standalone/rpmdrake_.c:104
msgid "Find Package containing file"
msgstr ""

#: ../standalone/rpmdrake_.c:105
msgid "Toggle between Installed and Available"
msgstr ""

#: ../standalone/rpmdrake_.c:139
msgid "Files:\n"
msgstr ""

#: ../standalone/rpmdrake_.c:161 ../standalone/rpmdrake_.c:209
#, fuzzy
msgid "Uninstall"
msgstr "Eirigh as Feistiú"

#: ../standalone/rpmdrake_.c:163
#, fuzzy
msgid "Choose package to install"
msgstr "Roghnaigh pacáistí ..."

#: ../standalone/rpmdrake_.c:190
msgid "Checking dependencies"
msgstr ""

#: ../standalone/rpmdrake_.c:190 ../standalone/rpmdrake_.c:409
msgid "Wait"
msgstr ""

#: ../standalone/rpmdrake_.c:209
#, fuzzy
msgid "The following packages are going to be uninstalled"
msgstr "Roghnaigh pacáistí ..."

#: ../standalone/rpmdrake_.c:210
msgid "Uninstalling the RPMs"
msgstr ""

#: ../standalone/rpmdrake_.c:229 ../standalone/rpmdrake_.c:269
msgid "Regexp"
msgstr ""

#: ../standalone/rpmdrake_.c:229
msgid "Which package are looking for"
msgstr ""

#: ../standalone/rpmdrake_.c:238 ../standalone/rpmdrake_.c:262
#: ../standalone/rpmdrake_.c:278
#, c-format
msgid "%s not found"
msgstr ""

#: ../standalone/rpmdrake_.c:238 ../standalone/rpmdrake_.c:262
#: ../standalone/rpmdrake_.c:278
msgid "No match"
msgstr ""

#: ../standalone/rpmdrake_.c:238 ../standalone/rpmdrake_.c:262
#: ../standalone/rpmdrake_.c:278
msgid "No more match"
msgstr ""

#: ../standalone/rpmdrake_.c:246
msgid ""
"rpmdrake is currently in ``low memory'' mode.\n"
"I'm going to relaunch rpmdrake to allow searching files"
msgstr ""

#: ../standalone/rpmdrake_.c:253
msgid "Which file are you looking for"
msgstr ""

#: ../standalone/rpmdrake_.c:269
msgid "What are looking for"
msgstr ""

#: ../standalone/rpmdrake_.c:289
msgid "Give a name (eg: `extra', `commercial')"
msgstr ""

#: ../standalone/rpmdrake_.c:291
#, fuzzy
msgid "Directory"
msgstr "Teascán"

#: ../standalone/rpmdrake_.c:294
msgid "No cdrom available (nothing in /mnt/cdrom)"
msgstr ""

#: ../standalone/rpmdrake_.c:298
msgid "URL of the directory containing the RPMs"
msgstr ""

#: ../standalone/rpmdrake_.c:299
msgid ""
"For FTP and HTTP, you need to give the location for hdlist\n"
"It must be relative to the URL above"
msgstr ""

#: ../standalone/rpmdrake_.c:302
msgid "Please submit the following information"
msgstr ""

#: ../standalone/rpmdrake_.c:304
#, c-format
msgid "%s is already in use"
msgstr ""

#: ../standalone/rpmdrake_.c:315 ../standalone/rpmdrake_.c:321
#: ../standalone/rpmdrake_.c:329
msgid "Updating the RPMs base"
msgstr ""

#: ../standalone/rpmdrake_.c:328
#, c-format
msgid "Going to remove entry %s"
msgstr ""

#: ../standalone/rpmdrake_.c:360
msgid "Finding leaves"
msgstr ""

#: ../standalone/rpmdrake_.c:360
msgid "Finding leaves takes some time"
msgstr ""

#~ msgid "Partitioning failed: no root filesystem"
#~ msgstr "Theip ar rannú: ní ann do comhadchoras fréamach"

#~ msgid "Windows(TM)"
#~ msgstr "Windows(TM)"
3' href='#n2303'>2303</a>
<a id='n2304' href='#n2304'>2304</a>
</pre></td>
<td class='lines'><pre><code><span class="hl kwa">package</span> bootloader<span class="hl opt">;</span>

<span class="hl kwa">use</span> diagnostics<span class="hl opt">;</span>
<span class="hl kwa">use</span> strict<span class="hl opt">;</span>

<span class="hl slc">#-######################################################################################</span>
<span class="hl slc">#- misc imports</span>
<span class="hl slc">#-######################################################################################</span>
<span class="hl kwa">use</span> common<span class="hl opt">;</span>
<span class="hl kwa">use</span> fs<span class="hl opt">::</span>type<span class="hl opt">;</span>
<span class="hl kwa">use</span> fs<span class="hl opt">::</span>get<span class="hl opt">;</span>
<span class="hl kwa">use</span> fs<span class="hl opt">::</span>loopback<span class="hl opt">;</span>
<span class="hl kwa">use</span> fs<span class="hl opt">::</span>proc_partitions<span class="hl opt">;</span>
<span class="hl kwa">use</span> <span class="hl kwc">log</span><span class="hl opt">;</span>
<span class="hl kwa">use</span> any<span class="hl opt">;</span>
<span class="hl kwa">use</span> devices<span class="hl opt">;</span>
<span class="hl kwa">use</span> detect_devices<span class="hl opt">;</span>
<span class="hl kwa">use</span> partition_table<span class="hl opt">::</span>raw<span class="hl opt">;</span>
<span class="hl kwa">use</span> run_program<span class="hl opt">;</span>
<span class="hl kwa">use</span> modules<span class="hl opt">;</span>

<span class="hl com">=head1 SYNOPSYS</span>
<span class="hl com"></span>
<span class="hl com">B&lt;bootloader&gt; enables to configure various boot loaders (LILO, GRUB Legacy, GRUB2, ...)</span>
<span class="hl com"></span>
<span class="hl com">Example of usage:</span>
<span class="hl com"></span>
<span class="hl com">    $all_hds = fsedit::get_hds();</span>
<span class="hl com">    fs::get_raw_hds(&apos;&apos;, $all_hds);</span>
<span class="hl com">    fs::get_info_from_fstab($all_hds);</span>
<span class="hl com">    $fstab = [ fs::get::fstab($all_hds) ];</span>
<span class="hl com">    $bootloader = bootloader::read($all_hds);</span>
<span class="hl com">    (...)</span>
<span class="hl com">    bootloader::action($bootloader, &apos;write&apos;, $all_hds);</span>
<span class="hl com"></span>
<span class="hl com">=head1 Functions</span>
<span class="hl com"></span>
<span class="hl com">=over</span>
<span class="hl com"></span>
<span class="hl com">=cut</span>

<span class="hl kwc">my</span> <span class="hl kwb">$vmlinuz_regexp</span> <span class="hl opt">=</span> <span class="hl str">&apos;vmlinu[xz]|win4lin|uImage&apos;</span><span class="hl opt">;</span>
<span class="hl kwc">my</span> <span class="hl kwb">$decompose_vmlinuz_name</span> <span class="hl opt">=</span> <span class="hl kwd">qr/((?:$vmlinuz_regexp).*?)-(\d+\.\d+.*)/</span><span class="hl opt">;</span>

<span class="hl kwa">sub</span> expand_vmlinuz_symlink <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$vmlinuz</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$f</span> <span class="hl opt">= $::</span>prefix <span class="hl opt">. (</span><span class="hl kwb">$vmlinuz</span> <span class="hl opt">=~</span> <span class="hl kwd">m!^/!</span> ? <span class="hl kwb">$vmlinuz</span> <span class="hl opt">:</span> <span class="hl str">&quot;/boot/</span><span class="hl ipl">$vmlinuz</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
    <span class="hl opt">-</span>l <span class="hl kwb">$f</span> ? <span class="hl kwc">readlink</span><span class="hl opt">(</span><span class="hl kwb">$f</span><span class="hl opt">) :</span> <span class="hl kwb">$vmlinuz</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> installed_vmlinuz_raw<span class="hl opt">() {</span> <span class="hl kwc">grep</span> <span class="hl opt">{</span> <span class="hl kwd">/^($vmlinuz_regexp)/</span> <span class="hl opt">}</span> all<span class="hl opt">(</span><span class="hl str">&quot;$::prefix/boot&quot;</span><span class="hl opt">) }</span>
<span class="hl kwa">sub</span> installed_vmlinuz<span class="hl opt">() {</span> <span class="hl kwc">grep</span> <span class="hl opt">{ ! -</span>l <span class="hl str">&quot;$::prefix/boot/</span><span class="hl ipl">$_</span><span class="hl str">&quot;</span> <span class="hl opt">}</span> installed_vmlinuz_raw<span class="hl opt">() }</span>
<span class="hl kwa">sub</span> vmlinuz2version <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$vmlinuz</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    expand_vmlinuz_symlink<span class="hl opt">(</span><span class="hl kwb">$vmlinuz</span><span class="hl opt">) =~</span> <span class="hl kwd">/$decompose_vmlinuz_name/</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$2</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> vmlinuz2kernel_str <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$vmlinuz</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$basename, $version</span><span class="hl opt">) =</span> expand_vmlinuz_symlink<span class="hl opt">(</span><span class="hl kwb">$vmlinuz</span><span class="hl opt">) =~</span> <span class="hl kwd">/$decompose_vmlinuz_name/</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
    <span class="hl opt">{</span> 
	basename <span class="hl opt">=&gt;</span> <span class="hl kwb">$basename,</span>
	version <span class="hl opt">=&gt;</span> <span class="hl kwb">$version,</span> 
	<span class="hl kwb">$version</span> <span class="hl opt">=~</span> <span class="hl kwd">/([\d.]*)-(\D.*)-((\d+|0\.rc\d+.*)\.mga.*)$/</span> ? <span class="hl slc">#- eg: 3.0.0-1.mga2</span>
	  <span class="hl opt">(</span>ext <span class="hl opt">=&gt;</span> <span class="hl kwb">$2,</span> version_no_ext <span class="hl opt">=&gt;</span> <span class="hl str">&quot;</span><span class="hl ipl">$1</span><span class="hl str">-</span><span class="hl ipl">$3</span><span class="hl str">&quot;</span><span class="hl opt">) :</span>
	<span class="hl kwb">$version</span> <span class="hl opt">=~</span> <span class="hl kwd">/(.*mga)-?(.*)/</span> ? <span class="hl slc">#- (old) eg: 2.6.17-13mdventerprise</span>
	  <span class="hl opt">(</span>ext <span class="hl opt">=&gt;</span> <span class="hl kwb">$2,</span> version_no_ext <span class="hl opt">=&gt;</span> <span class="hl kwb">$1</span><span class="hl opt">) : (</span>version_no_ext <span class="hl opt">=&gt;</span> <span class="hl kwb">$version</span><span class="hl opt">),</span>
    <span class="hl opt">};</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> kernel_str2short_name <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$kernel</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwb">$kernel</span><span class="hl opt">-&gt;{</span>basename<span class="hl opt">};</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> basename2initrd_basename <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$basename</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwb">$basename</span> <span class="hl opt">=~</span> <span class="hl kwd">s!(vmlinu[zx]|uImage)-?!!</span><span class="hl opt">;</span> <span class="hl slc">#- here we do not use $vmlinuz_regexp since we explicitly want to keep all that is not &quot;vmlinuz&quot;</span>
    <span class="hl str">&apos;initrd&apos;</span> <span class="hl opt">. (</span><span class="hl kwb">$basename</span> ? <span class="hl str">&quot;-</span><span class="hl ipl">$basename</span><span class="hl str">&quot;</span> <span class="hl opt">:</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">);</span>    
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> kernel_str2vmlinuz_long <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$kernel</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwb">$kernel</span><span class="hl opt">-&gt;{</span>basename<span class="hl opt">} .</span> <span class="hl str">&apos;-&apos;</span> <span class="hl opt">.</span> <span class="hl kwb">$kernel</span><span class="hl opt">-&gt;{</span>version<span class="hl opt">};</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> kernel_str2initrd_long <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$kernel</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    basename2initrd_basename<span class="hl opt">(</span>kernel_str2short_name<span class="hl opt">(</span><span class="hl kwb">$kernel</span><span class="hl opt">)) .</span> <span class="hl str">&apos;-&apos;</span> <span class="hl opt">.</span> <span class="hl kwb">$kernel</span><span class="hl opt">-&gt;{</span>version<span class="hl opt">} .</span> <span class="hl str">&apos;.img&apos;</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> kernel_str2vmlinuz_short <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$kernel</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$kernel</span><span class="hl opt">-&gt;{</span>use_long_name<span class="hl opt">}) {</span>
	kernel_str2vmlinuz_long<span class="hl opt">(</span><span class="hl kwb">$kernel</span><span class="hl opt">);</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	kernel_str2short_name<span class="hl opt">(</span><span class="hl kwb">$kernel</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> kernel_str2initrd_short <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$kernel</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$kernel</span><span class="hl opt">-&gt;{</span>use_long_name<span class="hl opt">}) {</span>
	kernel_str2initrd_long<span class="hl opt">(</span><span class="hl kwb">$kernel</span><span class="hl opt">);</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	basename2initrd_basename<span class="hl opt">(</span>kernel_str2short_name<span class="hl opt">(</span><span class="hl kwb">$kernel</span><span class="hl opt">)) .</span> <span class="hl str">&apos;.img&apos;</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> kernel_str2label <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$kernel, $o_use_long_name</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$o_use_long_name</span> <span class="hl opt">||</span> <span class="hl kwb">$kernel</span><span class="hl opt">-&gt;{</span>use_long_name<span class="hl opt">}) {</span>
	_sanitize_ver<span class="hl opt">(</span><span class="hl kwb">$kernel</span><span class="hl opt">);</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$short_name</span> <span class="hl opt">=</span> kernel_str2short_name<span class="hl opt">(</span><span class="hl kwb">$kernel</span><span class="hl opt">);</span>
	<span class="hl kwb">$kernel</span><span class="hl opt">-&gt;{</span>ext<span class="hl opt">} =~</span> <span class="hl kwd">/^xen/</span> ? <span class="hl str">&apos;xen&apos;</span> <span class="hl opt">: (</span><span class="hl kwb">$short_name</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;vmlinuz&apos;</span> ? <span class="hl str">&apos;linux&apos;</span> <span class="hl opt">:</span> <span class="hl kwb">$short_name</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> get <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$vmlinuz, $bootloader</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>kernel_or_dev<span class="hl opt">} &amp;&amp;</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>kernel_or_dev<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl kwb">$vmlinuz</span> <span class="hl kwc">and</span> <span class="hl kwa">return</span> <span class="hl kwb">$_</span> <span class="hl kwa">foreach</span> <span class="hl opt">&#64;{</span><span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>entries<span class="hl opt">}};</span>
    <span class="hl kwc">undef</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> get_label <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$label, $bootloader</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>label<span class="hl opt">} &amp;&amp;</span> <span class="hl kwc">lc</span><span class="hl opt">(</span>make_label_lilo_compatible<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>label<span class="hl opt">}))</span> <span class="hl kwc">eq lc</span><span class="hl opt">(</span>make_label_lilo_compatible<span class="hl opt">(</span><span class="hl kwb">$label</span><span class="hl opt">))</span> <span class="hl kwc">and</span> <span class="hl kwa">return</span> <span class="hl kwb">$_</span> <span class="hl kwa">foreach</span> <span class="hl opt">&#64;{</span><span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>entries<span class="hl opt">}};</span>
    <span class="hl kwc">undef</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl com">=item mkinitrd($kernel_version, $bootloader, $entry, $initrd)</span>
<span class="hl com"></span>
<span class="hl com">Regenerates kernel&apos;s initrd.</span>
<span class="hl com"></span>
<span class="hl com">=cut</span>

<span class="hl kwa">sub</span> mkinitrd <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$kernel_version, $bootloader, $entry, $initrd</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$dir</span> <span class="hl opt">=</span> dirname<span class="hl opt">(</span><span class="hl kwb">$initrd</span><span class="hl opt">);</span>
    <span class="hl kwa">if</span> <span class="hl opt">($::</span>testing<span class="hl opt">) {</span>
      <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;Skipping initrd generation: testing mode&quot;</span><span class="hl opt">);</span>
      <span class="hl kwa">return</span> <span class="hl kwb">$initrd</span><span class="hl opt">;</span>
    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(-</span>e <span class="hl str">&quot;$::prefix/</span><span class="hl ipl">$initrd</span><span class="hl str">&quot;</span><span class="hl opt">) {</span>
      <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;Skipping initrd generation: already exists&quot;</span><span class="hl opt">);</span>
      <span class="hl kwa">return</span> <span class="hl kwb">$initrd</span><span class="hl opt">;</span>
    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$initrd</span> <span class="hl opt">=~</span> <span class="hl kwd">/\(hd/</span><span class="hl opt">) {</span>
      <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;Skipping initrd generation: unrecognized partition&quot;</span><span class="hl opt">);</span>
      <span class="hl kwa">return</span> <span class="hl kwb">$initrd</span><span class="hl opt">;</span>
    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(!-</span>d <span class="hl str">&quot;$::prefix/</span><span class="hl ipl">$dir</span><span class="hl str">&quot;</span><span class="hl opt">) {</span>
      <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;Skipping initrd generation: dir doesn&apos;t exist (probably !mounted foreign part)&quot;</span><span class="hl opt">);</span>
      <span class="hl kwa">return</span> <span class="hl kwb">$initrd</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl slc"># for /boot on dos partitions when installing on loopback file on dos partition</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$loop_boot</span> <span class="hl opt">=</span> fs<span class="hl opt">::</span>loopback<span class="hl opt">::</span>prepare_boot<span class="hl opt">();</span>

    modules<span class="hl opt">::</span>load<span class="hl opt">(</span><span class="hl str">&apos;loop&apos;</span><span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl kwb">&#64;options</span> <span class="hl opt">= (</span>
		   if_<span class="hl opt">($::</span>isInstall<span class="hl opt">,</span> <span class="hl str">&quot;-v&quot;</span><span class="hl opt">),</span> <span class="hl str">&quot;-f&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$initrd, $kernel_version,</span> 
		   if_<span class="hl opt">(</span><span class="hl kwb">$entry</span><span class="hl opt">-&gt;{</span>initrd_options<span class="hl opt">},</span> <span class="hl kwc">split</span><span class="hl opt">(</span><span class="hl str">&apos; &apos;</span><span class="hl opt">,</span> <span class="hl kwb">$entry</span><span class="hl opt">-&gt;{</span>initrd_options<span class="hl opt">})),</span>
		  <span class="hl opt">);</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$err</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(!</span>run_program<span class="hl opt">::</span>rooted<span class="hl opt">($::</span>prefix<span class="hl opt">,</span> <span class="hl str">&apos;mkinitrd&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;2&gt;&apos;</span><span class="hl opt">,</span> \<span class="hl kwb">$err, &#64;options</span><span class="hl opt">)) {</span>
	<span class="hl kwc">unlink</span><span class="hl opt">(</span><span class="hl str">&quot;$::prefix/</span><span class="hl ipl">$initrd</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
	<span class="hl kwc">log</span><span class="hl opt">::</span>explanations<span class="hl opt">(</span><span class="hl str">&quot;mkinitrd failed:</span><span class="hl esc">\n</span><span class="hl str">(mkinitrd</span> <span class="hl ipl">&#64;options</span><span class="hl str">)</span><span class="hl esc">\n</span><span class="hl str">Error: &lt;</span><span class="hl ipl">$err</span><span class="hl str">&gt;&quot;</span><span class="hl opt">);</span>
	<span class="hl kwc">die</span> <span class="hl str">&quot;mkinitrd failed:</span><span class="hl esc">\n</span><span class="hl str">(mkinitrd</span> <span class="hl ipl">&#64;options</span><span class="hl str">)</span><span class="hl esc">\n</span><span class="hl str">Error:</span> <span class="hl ipl">$err</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    add_boot_splash<span class="hl opt">(</span><span class="hl kwb">$initrd, $entry</span><span class="hl opt">-&gt;{</span>vga<span class="hl opt">} ||</span> <span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>vga<span class="hl opt">});</span>

    fs<span class="hl opt">::</span>loopback<span class="hl opt">::</span>save_boot<span class="hl opt">(</span><span class="hl kwb">$loop_boot</span><span class="hl opt">);</span>

    <span class="hl opt">-</span>e <span class="hl str">&quot;$::prefix/</span><span class="hl ipl">$initrd</span><span class="hl str">&quot;</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$initrd</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl com">=item rebuild_initrd($kernel_version, $bootloader, $entry, $initrd)</span>
<span class="hl com"></span>
<span class="hl com">Saves the old initrd then regenerate it.</span>
<span class="hl com">If it fails, restore the old initrd.</span>
<span class="hl com"></span>
<span class="hl com">=cut</span>

<span class="hl kwa">sub</span> rebuild_initrd <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$kernel_version, $bootloader, $entry, $initrd</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$old</span> <span class="hl opt">= $::</span>prefix <span class="hl opt">.</span> <span class="hl kwb">$entry</span><span class="hl opt">-&gt;{</span>initrd<span class="hl opt">} .</span> <span class="hl str">&apos;.old&apos;</span><span class="hl opt">;</span>
    <span class="hl kwc">unlink</span> <span class="hl kwb">$old</span><span class="hl opt">;</span>
    <span class="hl kwc">rename</span> <span class="hl str">&quot;$::prefix</span><span class="hl ipl">$initrd</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$old</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(!</span>mkinitrd<span class="hl opt">(</span><span class="hl kwb">$kernel_version, $bootloader, $entry, $initrd</span><span class="hl opt">)) {</span>
	<span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;rebuilding initrd failed, putting back the old one&quot;</span><span class="hl opt">);</span>
	<span class="hl kwc">rename</span> <span class="hl kwb">$old,</span> <span class="hl str">&quot;$::prefix</span><span class="hl ipl">$initrd</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> remove_boot_splash <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$initrd</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    run_program<span class="hl opt">::</span>rooted<span class="hl opt">($::</span>prefix<span class="hl opt">,</span> <span class="hl str">&apos;/usr/share/bootsplash/scripts/remove-boot-splash&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$initrd</span><span class="hl opt">);</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> add_boot_splash <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$initrd, $vga</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwb">$vga</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>

    <span class="hl kwc">eval</span> <span class="hl opt">{</span> <span class="hl kwa">require</span> Xconfig<span class="hl opt">::</span>resolution_and_depth <span class="hl opt">}</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$res</span> <span class="hl opt">=</span> Xconfig<span class="hl opt">::</span>resolution_and_depth<span class="hl opt">::</span>from_bios<span class="hl opt">(</span><span class="hl kwb">$vga</span><span class="hl opt">)) {</span>
	run_program<span class="hl opt">::</span>rooted<span class="hl opt">($::</span>prefix<span class="hl opt">,</span> <span class="hl str">&apos;/usr/share/bootsplash/scripts/make-boot-splash&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$initrd, $res</span><span class="hl opt">-&gt;{</span>X<span class="hl opt">});</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;unknown vga bios mode</span> <span class="hl ipl">$vga</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> update_splash <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$bootloader</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">%real_initrd_entries</span><span class="hl opt">;</span>
    <span class="hl kwa">foreach</span> <span class="hl opt">(&#64;{</span><span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>entries<span class="hl opt">}}) {</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>initrd<span class="hl opt">} &amp;&amp;</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>vga<span class="hl opt">}) {</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$initrd</span> <span class="hl opt">=</span> expand_symlinks<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>initrd<span class="hl opt">});</span>
	    <span class="hl kwb">$real_initrd_entries</span><span class="hl opt">{</span><span class="hl kwb">$initrd</span><span class="hl opt">} =</span> <span class="hl kwb">$_</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">foreach</span> <span class="hl opt">(</span><span class="hl kwc">values</span> <span class="hl kwb">%real_initrd_entries</span><span class="hl opt">) {</span>
        <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;add boot splash to</span> <span class="hl ipl">$_</span><span class="hl str">-&gt;{initrd}</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
	add_boot_splash<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>initrd<span class="hl opt">},</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>vga<span class="hl opt">} ||</span> <span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>vga<span class="hl opt">});</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl com">=item read($all_hds)</span>
<span class="hl com"></span>
<span class="hl com">Reads bootloader config by calling the proper read_XYZ function.</span>
<span class="hl com"></span>
<span class="hl com">=cut</span>

<span class="hl kwa">sub</span> <span class="hl kwc">read</span> <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$all_hds</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$fstab</span> <span class="hl opt">= [</span> fs<span class="hl opt">::</span>get<span class="hl opt">::</span>fstab<span class="hl opt">(</span><span class="hl kwb">$all_hds</span><span class="hl opt">) ];</span>
    <span class="hl kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$main_method</span> <span class="hl opt">(</span>main_method_choices<span class="hl opt">()) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$f</span> <span class="hl opt">=</span> <span class="hl kwb">$bootloader</span><span class="hl opt">::{</span><span class="hl str">&quot;read_</span><span class="hl ipl">$main_method</span><span class="hl str">&quot;</span><span class="hl opt">}</span> <span class="hl kwc">or die</span> <span class="hl str">&quot;unknown bootloader method</span> <span class="hl ipl">$main_method</span> <span class="hl str">(read)&quot;</span><span class="hl opt">;</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$bootloader</span> <span class="hl opt">=</span> <span class="hl kwb">$f</span><span class="hl opt">-&gt;(</span><span class="hl kwb">$fstab</span><span class="hl opt">);</span>

	cleanup_entries<span class="hl opt">(</span><span class="hl kwb">$bootloader</span><span class="hl opt">);</span>

	<span class="hl slc"># handle raid-extra-boot (lilo)</span>
	<span class="hl kwc">my</span> <span class="hl kwb">&#64;devs</span> <span class="hl opt">=</span> <span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>boot<span class="hl opt">};</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span><span class="hl str">&apos;raid-extra-boot&apos;</span><span class="hl opt">} =~</span> <span class="hl kwd">/mbr/</span> <span class="hl opt">&amp;&amp;</span> 
	    <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$md</span> <span class="hl opt">=</span> fs<span class="hl opt">::</span>get<span class="hl opt">::</span>device2part<span class="hl opt">(</span><span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>boot<span class="hl opt">},</span> <span class="hl kwb">$all_hds</span><span class="hl opt">-&gt;{</span>raids<span class="hl opt">}))) {</span>
	    <span class="hl kwb">&#64;devs</span> <span class="hl opt">=</span> <span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>rootDevice<span class="hl opt">} } &#64;{</span><span class="hl kwb">$md</span><span class="hl opt">-&gt;{</span>disks<span class="hl opt">}};</span>
	<span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span><span class="hl str">&apos;raid-extra-boot&apos;</span><span class="hl opt">} =~</span> <span class="hl kwd">m!/dev/!</span><span class="hl opt">) {</span>
	    <span class="hl kwb">&#64;devs</span> <span class="hl opt">=</span> <span class="hl kwc">split</span><span class="hl opt">(</span><span class="hl str">&apos;,&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span><span class="hl str">&apos;raid-extra-boot&apos;</span><span class="hl opt">});</span>
	<span class="hl opt">}</span>

	<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$type</span><span class="hl opt">) =</span> <span class="hl kwc">map</span> <span class="hl opt">{</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwd">m!/fd\d+$!</span><span class="hl opt">) {</span>
		<span class="hl kwc">warn</span> <span class="hl str">&quot;not checking the method on floppy, assuming</span> <span class="hl ipl">$main_method</span> <span class="hl str">is right</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
		<span class="hl kwb">$main_method</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span>member<span class="hl opt">(</span><span class="hl kwb">$main_method,</span> <span class="hl str">qw(cromwell pmon2000 uboot)</span><span class="hl opt">)) {</span>
		<span class="hl slc">#- not checking, there&apos;s only one bootloader anyway :)</span>
		<span class="hl kwb">$main_method</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$type</span> <span class="hl opt">=</span> partition_table<span class="hl opt">::</span>raw<span class="hl opt">::</span>typeOfMBR<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">)) {</span>
		<span class="hl kwc">warn</span> <span class="hl str">&quot;typeOfMBR</span> <span class="hl ipl">$type</span> <span class="hl str">on</span> <span class="hl ipl">$_</span> <span class="hl str">for method</span> <span class="hl ipl">$main_method\n</span><span class="hl str">&quot;</span> <span class="hl kwa">if</span> <span class="hl kwb">$ENV</span><span class="hl opt">{</span>DEBUG<span class="hl opt">};</span>
		<span class="hl kwb">$type</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{ () }</span>
	<span class="hl opt">}</span> <span class="hl kwb">&#64;devs</span><span class="hl opt">;</span>

	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$type</span> <span class="hl kwc">eq</span> <span class="hl kwb">$main_method</span><span class="hl opt">) {</span>
	    <span class="hl kwa">return</span> <span class="hl kwb">$bootloader</span> <span class="hl kwa">if</span> read_<span class="hl opt">(</span><span class="hl kwb">$bootloader</span><span class="hl opt">);</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>
    <span class="hl slc"># still no boot loader found? let&apos;s check for ESP if using UEFI: </span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>is_uefi<span class="hl opt">()) {</span>
	<span class="hl kwa">if</span> <span class="hl opt">(-</span>f <span class="hl str">&quot;/boot/EFI/EFI/mageia/grubx64.efi&quot;</span><span class="hl opt">) {</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$bootloader</span> <span class="hl opt">=</span> bootloader<span class="hl opt">::</span>read_grub2<span class="hl opt">();</span>
	    <span class="hl kwa">return</span> <span class="hl kwb">$bootloader</span> <span class="hl kwa">if</span> read_<span class="hl opt">(</span><span class="hl kwb">$bootloader</span><span class="hl opt">);</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> read_ <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$bootloader</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">&#64;prefered_entries</span> <span class="hl opt">=</span> <span class="hl kwc">map</span> <span class="hl opt">{</span> get_label<span class="hl opt">(</span><span class="hl kwb">$_, $bootloader</span><span class="hl opt">) }</span> <span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span><span class="hl kwa">default</span><span class="hl opt">},</span> <span class="hl str">&apos;linux&apos;</span><span class="hl opt">;</span>

	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$default</span> <span class="hl opt">=</span> find <span class="hl opt">{</span> <span class="hl kwb">$_</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>type<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;image&apos;</span> <span class="hl opt">} (</span><span class="hl kwb">&#64;prefered_entries,</span> <span class="hl opt">&#64;{</span><span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>entries<span class="hl opt">}})) {</span>
		<span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>default_options<span class="hl opt">} =</span> <span class="hl kwb">$default</span><span class="hl opt">;</span>
		<span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>perImageAppend<span class="hl opt">} ||=</span> <span class="hl kwb">$default</span><span class="hl opt">-&gt;{</span>append<span class="hl opt">};</span>
		<span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;perImageAppend is now</span> <span class="hl ipl">$bootloader</span><span class="hl str">-&gt;{perImageAppend}&quot;</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		<span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>default_options<span class="hl opt">} = {};</span>
	    <span class="hl opt">}</span>
	    <span class="hl kwa">return</span> <span class="hl kwb">$bootloader</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl com">=item read_grub2 ($o_fstab)</span>
<span class="hl com"></span>
<span class="hl com">Read back GRUB2 config + C&lt;/boot/grub2/drakboot.conf&gt;</span>
<span class="hl com"></span>
<span class="hl com">=cut</span>

<span class="hl kwa">sub</span> read_grub2<span class="hl opt">() {</span>
    <span class="hl kwc">my</span> <span class="hl kwb">%bootloader</span> <span class="hl opt">=</span> getVarsFromSh<span class="hl opt">(</span><span class="hl str">&quot;$::prefix/boot/grub2/drakboot.conf&quot;</span><span class="hl opt">);</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>is_empty_hash_ref<span class="hl opt">(</span>\<span class="hl kwb">%bootloader</span><span class="hl opt">)) {</span>
	<span class="hl kwb">%bootloader</span> <span class="hl opt">=</span> read_grub2_install_sh<span class="hl opt">();</span>
    <span class="hl opt">}</span>
    <span class="hl kwc">my</span> <span class="hl kwb">%h</span> <span class="hl opt">=</span> getVarsFromSh<span class="hl opt">(</span><span class="hl str">&quot;$::prefix/etc/default/grub&quot;</span><span class="hl opt">);</span>
    <span class="hl kwb">$bootloader</span><span class="hl opt">{</span>timeout<span class="hl opt">} =</span> <span class="hl kwb">$h</span><span class="hl opt">{</span>GRUB_TIMEOUT<span class="hl opt">};</span>
    <span class="hl kwb">$bootloader</span><span class="hl opt">{</span>entries<span class="hl opt">} = [];</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$entry</span><span class="hl opt">;</span>
    <span class="hl kwa">foreach</span> <span class="hl opt">(</span>cat_utf8<span class="hl opt">(</span><span class="hl str">&quot;$::prefix/boot/grub2/grub.cfg&quot;</span><span class="hl opt">)) {</span>
	<span class="hl kwa">next if</span> <span class="hl kwd">/^#/</span><span class="hl opt">;</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwd">/menuentry\s+[&apos;&quot;]([^&apos;]+)[&quot;&apos;]/</span><span class="hl opt">) {</span>
	    <span class="hl kwc">push</span> <span class="hl opt">&#64;{</span><span class="hl kwb">$bootloader</span><span class="hl opt">{</span>entries<span class="hl opt">}},</span> <span class="hl kwb">$entry</span> <span class="hl kwa">if</span> <span class="hl kwb">$entry</span><span class="hl opt">;</span>
	    <span class="hl kwb">$entry</span> <span class="hl opt">= {</span> label <span class="hl opt">=&gt;</span> <span class="hl kwb">$1</span> <span class="hl opt">};</span>
	<span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwd">/linux\s+(\S+)\s+(.*)?/</span> <span class="hl opt">||</span> <span class="hl kwd">/module\s+(\S+vmlinu\S+)\s+(.*)?/</span><span class="hl opt">) {</span>
	    <span class="hl kwb">$entry</span><span class="hl opt">-&gt;{</span>type<span class="hl opt">} =</span> <span class="hl str">&apos;image&apos;</span><span class="hl opt">;</span>
	    <span class="hl kwb">&#64;$entry</span><span class="hl opt">{</span><span class="hl str">qw(kernel_or_dev append)</span><span class="hl opt">} = (</span><span class="hl kwb">$1, $2</span><span class="hl opt">);</span>
	    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$vga, $other</span><span class="hl opt">) =</span> partition <span class="hl opt">{</span> <span class="hl kwd">/^vga=/</span> <span class="hl opt">}</span> <span class="hl kwc">split</span><span class="hl opt">(</span><span class="hl str">&apos; &apos;</span><span class="hl opt">,</span> <span class="hl kwb">$entry</span><span class="hl opt">-&gt;{</span>append<span class="hl opt">});</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">&#64;$vga</span><span class="hl opt">) {</span>
	        <span class="hl kwb">$entry</span><span class="hl opt">-&gt;{</span>vga<span class="hl opt">} =</span> <span class="hl kwb">$vga</span><span class="hl opt">-&gt;[</span><span class="hl num">0</span><span class="hl opt">] =~</span> <span class="hl kwd">/vga=(.*)/</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
	        <span class="hl kwb">$entry</span><span class="hl opt">-&gt;{</span>append<span class="hl opt">} =</span> <span class="hl kwc">join</span><span class="hl opt">(</span><span class="hl str">&apos; &apos;</span><span class="hl opt">,</span> <span class="hl kwb">&#64;$other</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwd">/initrd\s+(\S+)/</span> <span class="hl opt">||</span> <span class="hl kwd">/module\s+(\S+initrd\S+)\s+(.*)?/</span><span class="hl opt">) {</span>
	    <span class="hl kwb">$entry</span><span class="hl opt">-&gt;{</span>initrd<span class="hl opt">} =</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>

    <span class="hl slc"># get default entry:</span>
    <span class="hl kwa">foreach</span> <span class="hl opt">(</span>run_program<span class="hl opt">::</span>rooted_get_stdout<span class="hl opt">($::</span>prefix<span class="hl opt">,</span> <span class="hl str">qw(grub2-editenv list)</span><span class="hl opt">)) {</span>
	<span class="hl kwb">$bootloader</span><span class="hl opt">{</span><span class="hl kwa">default</span><span class="hl opt">} =</span> <span class="hl kwb">$1</span> <span class="hl kwa">if</span> <span class="hl kwd">/saved_entry=(.*)/</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl kwb">$bootloader</span><span class="hl opt">{</span><span class="hl kwa">method</span><span class="hl opt">} =</span> <span class="hl str">&apos;grub2&apos;</span><span class="hl opt">;</span>
    \<span class="hl kwb">%bootloader</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> read_grub2_install_sh<span class="hl opt">() {</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$s</span> <span class="hl opt">=</span> cat_<span class="hl opt">(</span><span class="hl str">&quot;$::prefix/boot/grub2/install.sh&quot;</span><span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl kwb">%h</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$s</span> <span class="hl opt">=~</span> <span class="hl kwd">m!(/dev/\S+)!m</span><span class="hl opt">) {</span>
	<span class="hl kwb">$h</span><span class="hl opt">{</span>boot<span class="hl opt">} =</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl kwb">%h</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl com">=item read_grub($fstab)</span>
<span class="hl com"></span>
<span class="hl com">Reads back Grub Legacy config.</span>
<span class="hl com"></span>
<span class="hl com">=cut</span>

<span class="hl kwa">sub</span> read_grub <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$fstab</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$grub2dev</span> <span class="hl opt">=</span> read_grub_device_map<span class="hl opt">();</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$boot_root</span> <span class="hl opt">=</span> read_grub_install_sh<span class="hl opt">();</span>
    _may_fix_grub2dev<span class="hl opt">(</span><span class="hl kwb">$fstab, $grub2dev, $boot_root</span><span class="hl opt">-&gt;{</span>boot_part<span class="hl opt">});</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$bootloader</span> <span class="hl opt">=</span> read_grub_menu_lst<span class="hl opt">(</span><span class="hl kwb">$fstab, $grub2dev</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$boot_root</span><span class="hl opt">-&gt;{</span>boot<span class="hl opt">}) {</span>
	<span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>boot<span class="hl opt">} =</span> grub2dev<span class="hl opt">(</span><span class="hl kwb">$boot_root</span><span class="hl opt">-&gt;{</span>boot<span class="hl opt">},</span> <span class="hl kwb">$grub2dev</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>

    <span class="hl kwb">$bootloader</span><span class="hl opt">;</span>
<span class="hl opt">}</span>


<span class="hl com">=item _may_fix_grub2dev($fstab, $grub2dev, $boot_part)</span>
<span class="hl com"></span>
<span class="hl com">Adapts device.map (aka $grub2dev) when for example hda is now sda.</span>
<span class="hl com">nb:</span>
<span class="hl com"></span>
<span class="hl com">=over 4</span>
<span class="hl com"></span>
<span class="hl com">=item * $boot_part comes from C&lt;/boot/grub/install.sh&gt; &quot;C&lt;root (hd...)&gt;&quot; line</span>
<span class="hl com"></span>
<span class="hl com">=item * $grub2dev is C&lt;/boot/grub/device.map&gt;</span>
<span class="hl com"></span>
<span class="hl com">=back</span>
<span class="hl com"></span>
<span class="hl com">=cut</span>

<span class="hl kwa">sub</span> _may_fix_grub2dev <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$fstab, $grub2dev, $boot_part</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwb">$boot_part</span> <span class="hl kwc">or log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;install.sh does not contain &apos;root (hd...)&apos; line, no way to magically adapt device.map&quot;</span><span class="hl opt">),</span> <span class="hl kwa">return</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$real_boot_part</span> <span class="hl opt">=</span> fs<span class="hl opt">::</span>get<span class="hl opt">::</span>root_<span class="hl opt">(</span><span class="hl kwb">$fstab,</span> <span class="hl str">&apos;boot&apos;</span><span class="hl opt">)</span> <span class="hl kwc">or</span>
      <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;argh... the fstab given is useless, it doesn&apos;t contain &apos;/&apos;&quot;</span><span class="hl opt">),</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
    
    <span class="hl kwc">my</span> <span class="hl kwb">$real_boot_dev</span> <span class="hl opt">=</span> <span class="hl kwb">$real_boot_part</span><span class="hl opt">-&gt;{</span>rootDevice<span class="hl opt">}</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span> <span class="hl slc"># if /boot is on Linux RAID 1, hope things are all right...</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$prev_boot_part</span> <span class="hl opt">=</span> fs<span class="hl opt">::</span>get<span class="hl opt">::</span>device2part<span class="hl opt">(</span>grub2dev<span class="hl opt">(</span><span class="hl kwb">$boot_part, $grub2dev</span><span class="hl opt">),</span> <span class="hl kwb">$fstab</span><span class="hl opt">)) {</span> <span class="hl slc"># the boot_device as far as grub config files say</span>
	<span class="hl kwb">$real_boot_part</span> <span class="hl opt">==</span> <span class="hl kwb">$prev_boot_part</span> <span class="hl kwc">and</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;WARNING: we have detected that device.map is inconsistent with the system&quot;</span><span class="hl opt">);</span>

    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$hd_grub,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">) =</span> parse_grub_file<span class="hl opt">(</span><span class="hl kwb">$boot_part</span><span class="hl opt">);</span> <span class="hl slc"># extract hdX </span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$prev_hd_grub</span> <span class="hl opt">=</span> find <span class="hl opt">{</span> <span class="hl kwb">$grub2dev</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl kwb">$real_boot_dev</span> <span class="hl opt">}</span> <span class="hl kwc">keys</span> <span class="hl kwb">%$grub2dev</span><span class="hl opt">) {</span>
	<span class="hl kwb">$grub2dev</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$prev_hd_grub</span><span class="hl opt">} =</span> <span class="hl kwb">$grub2dev</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$hd_grub</span><span class="hl opt">};</span>
	<span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;swapping result:</span> <span class="hl ipl">$hd_grub/$real_boot_dev</span> <span class="hl str">and</span> <span class="hl ipl">$prev_hd_grub/$grub2dev</span><span class="hl str">-&gt;{</span><span class="hl ipl">$hd_grub</span><span class="hl str">}&quot;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;argh... can&apos;t swap, setting</span> <span class="hl ipl">$hd_grub</span> <span class="hl str">to</span> <span class="hl ipl">$real_boot_dev</span> <span class="hl str">anyway&quot;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwb">$grub2dev</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$hd_grub</span><span class="hl opt">} =</span> <span class="hl kwb">$real_boot_dev</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl com">=item read_grub_install_sh() {</span>
<span class="hl com"></span>
<span class="hl com">Reads &quot;config&quot; from /boot/grub/install.sh (mainly used partitions)</span>
<span class="hl com"></span>
<span class="hl com">=cut</span>

<span class="hl kwa">sub</span> read_grub_install_sh<span class="hl opt">() {</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$s</span> <span class="hl opt">=</span> cat_<span class="hl opt">(</span><span class="hl str">&quot;$::prefix/boot/grub/install.sh&quot;</span><span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl kwb">%h</span><span class="hl opt">;</span>

    <span class="hl slc">#- matches either:</span>
    <span class="hl slc">#-   setup (hd0)</span>
    <span class="hl slc">#-   install (hd0,0)/boot/grub/stage1 d (hd0) (hd0,0)/boot/grub/stage2 p (hd0,0)/boot/grub/menu.lst</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$s</span> <span class="hl opt">=~</span> <span class="hl kwd">/^(?:setup.*|install\s.*\sd)\s+(\(.*?\))/m</span><span class="hl opt">) {</span>
	<span class="hl kwb">$h</span><span class="hl opt">{</span>boot<span class="hl opt">} =</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>    
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$s</span> <span class="hl opt">=~</span> <span class="hl kwd">/^root\s+(\(.*?\))/m</span><span class="hl opt">) {</span>
	<span class="hl kwb">$h</span><span class="hl opt">{</span>boot_part<span class="hl opt">} =</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    \<span class="hl kwb">%h</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> _parse_grub_menu_lst<span class="hl opt">() {</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$global</span> <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$e, %b</span><span class="hl opt">);</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$menu_lst_file</span> <span class="hl opt">=</span> <span class="hl str">&quot;$::prefix/boot/grub/menu.lst&quot;</span><span class="hl opt">;</span>
    <span class="hl opt">-</span>e <span class="hl kwb">$menu_lst_file</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>

    <span class="hl kwa">foreach</span> <span class="hl opt">(</span>MDK<span class="hl opt">::</span>Common<span class="hl opt">::</span>File<span class="hl opt">::</span>cat_utf8<span class="hl opt">(</span><span class="hl kwb">$menu_lst_file</span><span class="hl opt">)) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$verbatim</span> <span class="hl opt">=</span> <span class="hl kwb">$_</span><span class="hl opt">;</span>
        <span class="hl kwc">chomp</span><span class="hl opt">;</span>
	<span class="hl kwd">s/^\s*//</span><span class="hl opt">;</span> <span class="hl kwd">s/\s*$//</span><span class="hl opt">;</span>
        <span class="hl kwa">next if</span> <span class="hl kwd">/^#/</span> <span class="hl opt">||</span> <span class="hl kwd">/^$/</span><span class="hl opt">;</span>
	<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$keyword, $v</span><span class="hl opt">) =</span> <span class="hl kwc">split</span><span class="hl opt">(</span><span class="hl str">&apos;[</span> <span class="hl esc">\t</span><span class="hl str">=]+&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$_,</span> <span class="hl num">2</span><span class="hl opt">)</span> <span class="hl kwc">or</span>
	  <span class="hl kwc">warn</span> <span class="hl str">qq(unknown line in /boot/grub/menu.lst: &quot;</span><span class="hl ipl">$_</span><span class="hl str">&quot;</span><span class="hl esc">\n</span><span class="hl str">)</span><span class="hl opt">,</span> <span class="hl kwa">next</span><span class="hl opt">;</span>

	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$keyword</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;root&apos;</span><span class="hl opt">) {</span>
	    <span class="hl slc">#- rename to avoid name conflict</span>
	    <span class="hl kwb">$keyword</span> <span class="hl opt">=</span> <span class="hl str">&apos;grub_root&apos;</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>

        <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$keyword</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;title&apos;</span><span class="hl opt">) {</span>
            <span class="hl kwc">push</span> <span class="hl opt">&#64;{</span><span class="hl kwb">$b</span><span class="hl opt">{</span>entries<span class="hl opt">}},</span> <span class="hl kwb">$e</span> <span class="hl opt">= {</span> label <span class="hl opt">=&gt;</span> <span class="hl kwb">$v</span> <span class="hl opt">};</span>
            <span class="hl kwb">$global</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
        <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$global</span><span class="hl opt">) {</span>
            <span class="hl kwb">$b</span><span class="hl opt">{</span><span class="hl kwb">$keyword</span><span class="hl opt">} =</span> <span class="hl kwb">$v</span><span class="hl opt">;</span>
        <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
            <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$keyword</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;kernel&apos;</span><span class="hl opt">) {</span>
                <span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span>type<span class="hl opt">} =</span> <span class="hl str">&apos;image&apos;</span><span class="hl opt">;</span>
		<span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span>kernel<span class="hl opt">} =</span> <span class="hl kwb">$v</span><span class="hl opt">;</span>
            <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$keyword</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;chainloader&apos;</span><span class="hl opt">) {</span>
                <span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span>type<span class="hl opt">} =</span> <span class="hl str">&apos;other&apos;</span><span class="hl opt">;</span>
                <span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span>append<span class="hl opt">} =</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
            <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$keyword</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;configfile&apos;</span><span class="hl opt">) {</span>
                <span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span>type<span class="hl opt">} =</span> <span class="hl str">&apos;grub_configfile&apos;</span><span class="hl opt">;</span>
                <span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span>configfile<span class="hl opt">} =</span> <span class="hl kwb">$v</span><span class="hl opt">;</span>
            <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$keyword</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;map&apos;</span><span class="hl opt">) {</span>
		<span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span>mapdrive<span class="hl opt">}{</span><span class="hl kwb">$2</span><span class="hl opt">} =</span> <span class="hl kwb">$1</span> <span class="hl kwa">if</span> <span class="hl kwb">$v</span> <span class="hl opt">=~</span> <span class="hl kwd">m/\((.*)\) \((.*)\)/</span><span class="hl opt">;</span>
            <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$keyword</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;module&apos;</span><span class="hl opt">) {</span>
		<span class="hl kwc">push</span> <span class="hl opt">&#64;{</span><span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span>modules<span class="hl opt">}},</span> <span class="hl kwb">$v</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		<span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$keyword</span><span class="hl opt">} =</span> <span class="hl kwb">$v</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;&apos;</span> ? <span class="hl num">1</span> <span class="hl opt">:</span> <span class="hl kwb">$v</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>
        <span class="hl opt">}</span>
	<span class="hl kwb">$e</span> <span class="hl kwc">and</span> <span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span>verbatim<span class="hl opt">} .=</span> <span class="hl kwb">$verbatim</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl kwb">%b</span><span class="hl opt">;</span>
<span class="hl opt">}</span>


<span class="hl com">=item is_already_crypted($password)</span>
<span class="hl com"></span>
<span class="hl com">Returns whether grub password is already encrypted or not</span>
<span class="hl com"></span>
<span class="hl com">=cut</span>

<span class="hl kwa">sub</span> is_already_crypted <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$password</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwb">$password</span> <span class="hl opt">=~</span> <span class="hl kwd">/^--md5 (.*)/</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl com">=item read_grub_menu_lst($fstab, $grub2dev)</span>
<span class="hl com"></span>
<span class="hl com">Read config from /boot/grub/menu.lst</span>
<span class="hl com"></span>
<span class="hl com">=cut</span>

<span class="hl kwa">sub</span> read_grub_menu_lst <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$fstab, $grub2dev</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">%b</span> <span class="hl opt">=</span> _parse_grub_menu_lst<span class="hl opt">();</span>

    <span class="hl kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$keyword</span> <span class="hl opt">(</span><span class="hl kwc">grep</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span> <span class="hl kwc">ne</span> <span class="hl str">&apos;entries&apos;</span> <span class="hl opt">}</span> <span class="hl kwc">keys</span> <span class="hl kwb">%b</span><span class="hl opt">) {</span>
	<span class="hl kwb">$b</span><span class="hl opt">{</span><span class="hl kwb">$keyword</span><span class="hl opt">} =</span> <span class="hl kwb">$b</span><span class="hl opt">{</span><span class="hl kwb">$keyword</span><span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;&apos;</span> ? <span class="hl num">1</span> <span class="hl opt">:</span> grub2file<span class="hl opt">(</span><span class="hl kwb">$b</span><span class="hl opt">{</span><span class="hl kwb">$keyword</span><span class="hl opt">},</span> <span class="hl kwb">$grub2dev, $fstab,</span> \<span class="hl kwb">%b</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>

    <span class="hl slc">#- sanitize</span>
    <span class="hl kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$e</span> <span class="hl opt">(&#64;{</span><span class="hl kwb">$b</span><span class="hl opt">{</span>entries<span class="hl opt">}}) {</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span>member<span class="hl opt">(</span><span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span>type<span class="hl opt">},</span> <span class="hl str">&apos;other&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;grub_configfile&apos;</span><span class="hl opt">)) {</span>
	    <span class="hl kwc">eval</span> <span class="hl opt">{</span> <span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span>kernel_or_dev<span class="hl opt">} =</span> grub2dev<span class="hl opt">(</span><span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span>rootnoverify<span class="hl opt">} ||</span> <span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span>grub_root<span class="hl opt">},</span> <span class="hl kwb">$grub2dev</span><span class="hl opt">) };</span>
	    <span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span>keep_verbatim<span class="hl opt">} =</span> <span class="hl num">1</span> <span class="hl kwa">unless</span> <span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span>kernel_or_dev<span class="hl opt">};</span> 
	<span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span>initrd<span class="hl opt">}) {</span>
 	    <span class="hl kwc">my</span> <span class="hl kwb">$initrd</span><span class="hl opt">;</span>
 	    <span class="hl kwc">eval</span> <span class="hl opt">{</span> <span class="hl kwb">$initrd</span> <span class="hl opt">=</span> grub2file<span class="hl opt">(</span><span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span>initrd<span class="hl opt">},</span> <span class="hl kwb">$grub2dev, $fstab, $e</span><span class="hl opt">) };</span>
 	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$initrd</span><span class="hl opt">) {</span>
 		<span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span>initrd<span class="hl opt">} =</span> <span class="hl kwb">$initrd</span><span class="hl opt">;</span>
 	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
 		<span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span>keep_verbatim<span class="hl opt">} =</span> <span class="hl num">1</span><span class="hl opt">;</span>
 	    <span class="hl opt">}</span>
	<span class="hl opt">}</span>

	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span>kernel<span class="hl opt">} =~</span> <span class="hl kwd">/xen/</span> <span class="hl opt">&amp;&amp; &#64;{</span><span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span>modules<span class="hl opt">} || []} ==</span> <span class="hl num">2</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span>modules<span class="hl opt">}[</span><span class="hl num">1</span><span class="hl opt">] =~</span> <span class="hl kwd">/initrd/</span><span class="hl opt">) {</span>
	    <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$xen, $e</span><span class="hl opt">-&gt;{</span>xen_append<span class="hl opt">}) =</span> <span class="hl kwc">split</span><span class="hl opt">(</span><span class="hl str">&apos; &apos;</span><span class="hl opt">,</span> <span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span>kernel<span class="hl opt">},</span> <span class="hl num">2</span><span class="hl opt">);</span>
	    <span class="hl opt">(</span><span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span>kernel<span class="hl opt">},</span> <span class="hl kwc">my</span> <span class="hl kwb">$initrd</span><span class="hl opt">) = &#64;{</span><span class="hl kwc">delete</span> <span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span>modules<span class="hl opt">}};</span>
	    <span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span>xen<span class="hl opt">} =</span> grub2file<span class="hl opt">(</span><span class="hl kwb">$xen, $grub2dev, $fstab, $e</span><span class="hl opt">);</span>
	    <span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span>initrd<span class="hl opt">} =</span> grub2file<span class="hl opt">(</span><span class="hl kwb">$initrd, $grub2dev, $fstab, $e</span><span class="hl opt">);</span>
	<span class="hl opt">}</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$v</span> <span class="hl opt">=</span> <span class="hl kwc">delete</span> <span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span>kernel<span class="hl opt">}) {</span>
	    <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$kernel, $e</span><span class="hl opt">-&gt;{</span>append<span class="hl opt">}) =</span> <span class="hl kwc">split</span><span class="hl opt">(</span><span class="hl str">&apos; &apos;</span><span class="hl opt">,</span> <span class="hl kwb">$v,</span> <span class="hl num">2</span><span class="hl opt">);</span>
	    <span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span>append<span class="hl opt">} =</span> <span class="hl kwc">join</span><span class="hl opt">(</span><span class="hl str">&apos; &apos;</span><span class="hl opt">,</span> <span class="hl kwc">grep</span> <span class="hl opt">{ !</span><span class="hl kwd">/^BOOT_IMAGE=/</span> <span class="hl opt">}</span> <span class="hl kwc">split</span><span class="hl opt">(</span><span class="hl str">&apos; &apos;</span><span class="hl opt">,</span> <span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span>append<span class="hl opt">}));</span>
	    <span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span>root<span class="hl opt">} =</span> <span class="hl kwb">$1</span> <span class="hl kwa">if</span> <span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span>append<span class="hl opt">} =~</span> <span class="hl kwd">s/root=(\S*)\s*//</span><span class="hl opt">;</span>
	    <span class="hl kwc">eval</span> <span class="hl opt">{</span> <span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span>kernel_or_dev<span class="hl opt">} =</span> grub2file<span class="hl opt">(</span><span class="hl kwb">$kernel, $grub2dev, $fstab, $e</span><span class="hl opt">) };</span>
	    <span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span>keep_verbatim<span class="hl opt">} =</span> <span class="hl num">1</span> <span class="hl kwa">if</span> <span class="hl opt">!</span><span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span>kernel_or_dev<span class="hl opt">} ||</span> dirname<span class="hl opt">(</span><span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span>kernel_or_dev<span class="hl opt">})</span> <span class="hl kwc">ne</span> <span class="hl str">&apos;/boot&apos;</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
	<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$vga, $other</span><span class="hl opt">) =</span> partition <span class="hl opt">{</span> <span class="hl kwd">/^vga=/</span> <span class="hl opt">}</span> <span class="hl kwc">split</span><span class="hl opt">(</span><span class="hl str">&apos; &apos;</span><span class="hl opt">,</span> <span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span>append<span class="hl opt">});</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">&#64;$vga</span><span class="hl opt">) {</span>
	    <span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span>vga<span class="hl opt">} =</span> <span class="hl kwb">$vga</span><span class="hl opt">-&gt;[</span><span class="hl num">0</span><span class="hl opt">] =~</span> <span class="hl kwd">/vga=(.*)/</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
	    <span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span>append<span class="hl opt">} =</span> <span class="hl kwc">join</span><span class="hl opt">(</span><span class="hl str">&apos; &apos;</span><span class="hl opt">,</span> <span class="hl kwb">&#64;$other</span><span class="hl opt">);</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>

    <span class="hl kwb">$b</span><span class="hl opt">{</span>nowarn<span class="hl opt">} =</span> <span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl slc"># handle broken installkernel -r:</span>
    <span class="hl kwa">if</span> <span class="hl opt">(&#64;{</span><span class="hl kwb">$b</span><span class="hl opt">{</span>entries<span class="hl opt">}}) {</span>
	<span class="hl kwb">$b</span><span class="hl opt">{</span><span class="hl kwa">default</span><span class="hl opt">} =</span> min<span class="hl opt">(</span><span class="hl kwb">$b</span><span class="hl opt">{</span><span class="hl kwa">default</span><span class="hl opt">},</span> <span class="hl kwc">scalar</span><span class="hl opt">(&#64;{</span><span class="hl kwb">$b</span><span class="hl opt">{</span>entries<span class="hl opt">}}) -</span> <span class="hl num">1</span><span class="hl opt">);</span>
	<span class="hl kwb">$b</span><span class="hl opt">{</span><span class="hl kwa">default</span><span class="hl opt">} =</span> <span class="hl kwb">$b</span><span class="hl opt">{</span>entries<span class="hl opt">}[</span><span class="hl kwb">$b</span><span class="hl opt">{</span><span class="hl kwa">default</span><span class="hl opt">}]{</span>label<span class="hl opt">};</span>
    <span class="hl opt">}</span>
    <span class="hl kwb">$b</span><span class="hl opt">{</span><span class="hl kwa">method</span><span class="hl opt">} =</span> <span class="hl kwb">$b</span><span class="hl opt">{</span>gfxmenu<span class="hl opt">}</span> ? <span class="hl str">&apos;grub-graphic&apos;</span> <span class="hl opt">:</span>  <span class="hl str">&apos;grub-menu&apos;</span><span class="hl opt">;</span>

    \<span class="hl kwb">%b</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl slc"># FIXME: actually read back previous conf</span>
<span class="hl kwa">sub</span> read_pmon2000<span class="hl opt">() {</span>
    <span class="hl opt">+{</span> <span class="hl kwa">method</span> <span class="hl opt">=&gt;</span> <span class="hl str">&apos;pmon2000&apos;</span> <span class="hl opt">};</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> read_uboot<span class="hl opt">() {</span>
    <span class="hl opt">+{</span> <span class="hl kwa">method</span> <span class="hl opt">=&gt;</span> <span class="hl str">&apos;uboot&apos;</span> <span class="hl opt">};</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> read_cromwell<span class="hl opt">() {</span>
    <span class="hl opt">+{</span> <span class="hl kwa">method</span> <span class="hl opt">=&gt;</span> <span class="hl str">&apos;cromwell&apos;</span> <span class="hl opt">};</span>
<span class="hl opt">}</span>


<span class="hl kwa">sub</span> read_lilo<span class="hl opt">() {</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$bootloader</span> <span class="hl opt">=</span> read_lilo_like<span class="hl opt">(</span><span class="hl str">&quot;/etc/lilo.conf&quot;</span><span class="hl opt">,</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">] });</span>

    <span class="hl kwc">delete</span> <span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>timeout<span class="hl opt">}</span> <span class="hl kwa">unless</span> <span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>prompt<span class="hl opt">};</span>
    <span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>timeout<span class="hl opt">} =</span> <span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>timeout<span class="hl opt">} /</span> <span class="hl num">10</span> <span class="hl kwa">if</span> <span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>timeout<span class="hl opt">};</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$submethod</span> <span class="hl opt">=</span> member<span class="hl opt">(</span><span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>install<span class="hl opt">},</span> <span class="hl str">&apos;text&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;menu&apos;</span><span class="hl opt">)</span> ? <span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>install<span class="hl opt">} :</span> <span class="hl str">&apos;menu&apos;</span><span class="hl opt">;</span>
    <span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span><span class="hl kwa">method</span><span class="hl opt">} =</span> <span class="hl str">&quot;lilo-</span><span class="hl ipl">$submethod</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
    
    <span class="hl kwb">$bootloader</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> read_lilo_like <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$file, $filter_file</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$global</span> <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$e</span><span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl kwb">%b</span><span class="hl opt">;</span>
    <span class="hl opt">-</span>e <span class="hl str">&quot;$::prefix</span><span class="hl ipl">$file</span><span class="hl str">&quot;</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
    <span class="hl kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$line</span> <span class="hl opt">(</span>cat_<span class="hl opt">(</span><span class="hl str">&quot;$::prefix</span><span class="hl ipl">$file</span><span class="hl str">&quot;</span><span class="hl opt">)) {</span>
	<span class="hl kwa">next if</span> <span class="hl kwb">$line</span> <span class="hl opt">=~</span> <span class="hl kwd">/^\s*#/</span> <span class="hl opt">||</span> <span class="hl kwb">$line</span> <span class="hl opt">=~</span> <span class="hl kwd">/^\s*$/</span><span class="hl opt">;</span>
	<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$cmd, $v</span><span class="hl opt">) =</span> <span class="hl kwb">$line</span> <span class="hl opt">=~</span> <span class="hl kwd">/^\s*([^=\s]+)\s*(?:=\s*(.*?))?\s*$/</span> <span class="hl kwc">or log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;unknown line in</span> <span class="hl ipl">$file</span><span class="hl str">:</span> <span class="hl ipl">$line</span><span class="hl str">&quot;</span><span class="hl opt">),</span> <span class="hl kwa">next</span><span class="hl opt">;</span>

	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$cmd</span> <span class="hl opt">=~</span> <span class="hl kwd">/^(?:image|other|macos|macosx|bsd|darwin)$/</span><span class="hl opt">) {</span>
	    <span class="hl kwb">$v</span> <span class="hl opt">=</span> <span class="hl kwb">$filter_file</span><span class="hl opt">-&gt;(</span><span class="hl kwb">$v</span><span class="hl opt">);</span>
	    <span class="hl kwc">push</span> <span class="hl opt">&#64;{</span><span class="hl kwb">$b</span><span class="hl opt">{</span>entries<span class="hl opt">}},</span> <span class="hl kwb">$e</span> <span class="hl opt">= {</span> type <span class="hl opt">=&gt;</span> <span class="hl kwb">$cmd,</span> kernel_or_dev <span class="hl opt">=&gt;</span> <span class="hl kwb">$v</span> <span class="hl opt">};</span>
	    <span class="hl kwb">$global</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
	<span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$global</span><span class="hl opt">) {</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$cmd</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;disk&apos;</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$v</span> <span class="hl opt">=~</span> <span class="hl kwd">/(\S+)\s+bios\s*=\s*(\S+)/</span><span class="hl opt">) {</span>
		<span class="hl kwb">$b</span><span class="hl opt">{</span>bios<span class="hl opt">}{</span><span class="hl kwb">$1</span><span class="hl opt">} =</span> <span class="hl kwb">$2</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$cmd</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;bios&apos;</span><span class="hl opt">) {</span>
		<span class="hl kwb">$b</span><span class="hl opt">{</span>bios<span class="hl opt">}{</span><span class="hl kwb">$b</span><span class="hl opt">{</span>disk<span class="hl opt">}} =</span> <span class="hl kwb">$v</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$cmd</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;init-message&apos;</span><span class="hl opt">) {</span>
		<span class="hl kwb">$v</span> <span class="hl opt">=~</span> <span class="hl kwd">s/\\n//g</span><span class="hl opt">;</span> 
		<span class="hl kwb">$v</span> <span class="hl opt">=~</span> <span class="hl kwd">s/&quot;//g</span><span class="hl opt">;</span>
		<span class="hl kwb">$b</span><span class="hl opt">{</span><span class="hl str">&apos;init-message&apos;</span><span class="hl opt">} =</span> <span class="hl kwb">$v</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		<span class="hl kwb">$b</span><span class="hl opt">{</span><span class="hl kwb">$cmd</span><span class="hl opt">} =</span> <span class="hl kwb">$v</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;&apos;</span> ? <span class="hl num">1</span> <span class="hl opt">:</span> <span class="hl kwb">$v</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl kwa">if</span> <span class="hl opt">((</span><span class="hl kwb">$cmd</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;map-drive&apos;</span> <span class="hl opt">..</span> <span class="hl kwb">$cmd</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;to&apos;</span><span class="hl opt">) &amp;&amp;</span> <span class="hl kwb">$cmd</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;to&apos;</span><span class="hl opt">) {</span>
		<span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span>mapdrive<span class="hl opt">}{</span><span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span><span class="hl str">&apos;map-drive&apos;</span><span class="hl opt">}} =</span> <span class="hl kwb">$v</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$cmd</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;initrd&apos;</span><span class="hl opt">) {</span>
		    <span class="hl kwb">$v</span> <span class="hl opt">=</span> <span class="hl kwb">$filter_file</span><span class="hl opt">-&gt;(</span><span class="hl kwb">$v</span><span class="hl opt">);</span>
		<span class="hl opt">}</span>
		<span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$cmd</span><span class="hl opt">} =</span> <span class="hl kwb">$v</span> <span class="hl opt">||</span> <span class="hl num">1</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>

    <span class="hl kwa">sub</span> remove_quotes_and_spaces <span class="hl opt">{</span>
	<span class="hl kwc">local</span> <span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
	<span class="hl kwd">s/^\s*//</span><span class="hl opt">;</span> <span class="hl kwd">s/\s*$//</span><span class="hl opt">;</span>
	<span class="hl kwd">s/^&quot;(.*?)&quot;$/$1/</span><span class="hl opt">;</span>
	<span class="hl kwd">s/\\&quot;/&quot;/g</span><span class="hl opt">;</span>
	<span class="hl kwd">s/^\s*//</span><span class="hl opt">;</span> <span class="hl kwd">s/\s*$//</span><span class="hl opt">;</span> <span class="hl slc">#- do it again for append=&quot; foo&quot;</span>
	<span class="hl kwb">$_</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl kwa">foreach</span> <span class="hl opt">(</span><span class="hl str">&apos;append&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;root&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;default&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;raid-extra-boot&apos;</span><span class="hl opt">) {</span>
	<span class="hl kwb">$b</span><span class="hl opt">{</span><span class="hl kwb">$_</span><span class="hl opt">} =</span> remove_quotes_and_spaces<span class="hl opt">(</span><span class="hl kwb">$b</span><span class="hl opt">{</span><span class="hl kwb">$_</span><span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwb">$b</span><span class="hl opt">{</span><span class="hl kwb">$_</span><span class="hl opt">};</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$entry</span> <span class="hl opt">(&#64;{</span><span class="hl kwb">$b</span><span class="hl opt">{</span>entries<span class="hl opt">}}) {</span>
	<span class="hl kwa">foreach</span> <span class="hl opt">(</span><span class="hl str">&apos;append&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;root&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;label&apos;</span><span class="hl opt">) {</span>
	    <span class="hl kwb">$entry</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">} =</span> remove_quotes_and_spaces<span class="hl opt">(</span><span class="hl kwb">$entry</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwb">$entry</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">};</span>
	<span class="hl opt">}</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$entry</span><span class="hl opt">-&gt;{</span>kernel_or_dev<span class="hl opt">} =~</span> <span class="hl kwd">/\bmbootpack\b/</span><span class="hl opt">) {</span>
	    <span class="hl kwb">$entry</span><span class="hl opt">-&gt;{</span>initrd<span class="hl opt">} =</span> <span class="hl kwb">$entry</span><span class="hl opt">-&gt;{</span>kernel_or_dev<span class="hl opt">};</span>
	    <span class="hl kwb">$entry</span><span class="hl opt">-&gt;{</span>initrd<span class="hl opt">} =~</span> <span class="hl kwd">s/\bmbootpack/initrd/</span><span class="hl opt">;</span>
	    <span class="hl kwb">$entry</span><span class="hl opt">-&gt;{</span>kernel_or_dev<span class="hl opt">} =~</span> <span class="hl kwd">s/\bmbootpack/vmlinuz/</span><span class="hl opt">;</span>
	    <span class="hl kwb">$entry</span><span class="hl opt">-&gt;{</span>kernel_or_dev<span class="hl opt">} =~</span> <span class="hl kwd">s/.img$//</span><span class="hl opt">;</span>
	    <span class="hl slc">#- assume only xen is configured with mbootpack</span>
	    <span class="hl kwb">$entry</span><span class="hl opt">-&gt;{</span>xen<span class="hl opt">} =</span> <span class="hl str">&apos;/boot/xen.gz&apos;</span><span class="hl opt">;</span>
	    <span class="hl kwb">$entry</span><span class="hl opt">-&gt;{</span>root<span class="hl opt">} =</span> <span class="hl kwb">$1</span> <span class="hl kwa">if</span> <span class="hl kwb">$entry</span><span class="hl opt">-&gt;{</span>append<span class="hl opt">} =~</span> <span class="hl kwd">s/root=(\S*)\s*//</span><span class="hl opt">;</span>
	    <span class="hl opt">(</span><span class="hl kwb">$entry</span><span class="hl opt">-&gt;{</span>xen_append<span class="hl opt">},</span> <span class="hl kwb">$entry</span><span class="hl opt">-&gt;{</span>append<span class="hl opt">}) =</span> <span class="hl kwc">split</span> <span class="hl str">&apos;\s*--\s*&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$entry</span><span class="hl opt">-&gt;{</span>append<span class="hl opt">},</span> <span class="hl num">2</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>

    <span class="hl slc"># cleanup duplicate labels (in case file is corrupted)</span>
    <span class="hl opt">&#64;{</span><span class="hl kwb">$b</span><span class="hl opt">{</span>entries<span class="hl opt">}} =</span> uniq_ <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>label<span class="hl opt">} } &#64;{</span><span class="hl kwb">$b</span><span class="hl opt">{</span>entries<span class="hl opt">}};</span>

    \<span class="hl kwb">%b</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> cleanup_entries <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$bootloader</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl slc">#- cleanup bad entries (in case file is corrupted)</span>
    <span class="hl opt">&#64;{</span><span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>entries<span class="hl opt">}} =</span> 
	<span class="hl kwc">grep</span> <span class="hl opt">{</span> 
	    <span class="hl kwc">my</span> <span class="hl kwb">$pb</span> <span class="hl opt">=</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>type<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;image&apos;</span> <span class="hl opt">&amp;&amp; !</span><span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>keep_verbatim<span class="hl opt">} &amp;&amp; ! -</span>e <span class="hl str">&quot;$::prefix</span><span class="hl ipl">$_</span><span class="hl str">-&gt;{kernel_or_dev}&quot;</span><span class="hl opt">;</span>
	    <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;dropping bootloader entry</span> <span class="hl ipl">$_</span><span class="hl str">-&gt;{label} since</span> <span class="hl ipl">$_</span><span class="hl str">-&gt;{kernel_or_dev} doesn&apos;t exist&quot;</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl kwb">$pb</span><span class="hl opt">;</span>
	    <span class="hl opt">!</span><span class="hl kwb">$pb</span><span class="hl opt">;</span>
	<span class="hl opt">} &#64;{</span><span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>entries<span class="hl opt">}};</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> suggest_onmbr <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$hd</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$onmbr, $unsafe</span><span class="hl opt">) = (</span><span class="hl num">1</span><span class="hl opt">,</span> <span class="hl num">1</span><span class="hl opt">);</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$type</span> <span class="hl opt">=</span> partition_table<span class="hl opt">::</span>raw<span class="hl opt">::</span>typeOfMBR<span class="hl opt">(</span><span class="hl kwb">$hd</span><span class="hl opt">-&gt;{</span>device<span class="hl opt">})) {</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span>member<span class="hl opt">(</span><span class="hl kwb">$type,</span> <span class="hl str">qw(dos dummy empty)</span><span class="hl opt">)) {</span>
	    <span class="hl kwb">$unsafe</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
	<span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(!</span>member<span class="hl opt">(</span><span class="hl kwb">$type,</span> <span class="hl str">qw(lilo grub grub2)</span><span class="hl opt">)) {</span>
	    <span class="hl kwb">$onmbr</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
	<span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;bootloader::suggest_onmbr: type</span> <span class="hl ipl">$type,</span> <span class="hl str">onmbr</span> <span class="hl ipl">$onmbr,</span> <span class="hl str">unsafe</span> <span class="hl ipl">$unsafe</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl opt">(</span><span class="hl kwb">$onmbr, $unsafe</span><span class="hl opt">);</span>
<span class="hl opt">}</span>


<span class="hl com">=item allowed_boot_parts($bootloader, $all_hds)</span>
<span class="hl com"></span>
<span class="hl com">Returns list of places where we can install the bootloader</span>
<span class="hl com"></span>
<span class="hl com">=cut</span>

<span class="hl kwa">sub</span> allowed_boot_parts <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$bootloader, $all_hds</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl opt">(</span>
     <span class="hl opt">&#64;{</span><span class="hl kwb">$all_hds</span><span class="hl opt">-&gt;{</span>hds<span class="hl opt">}},</span> <span class="hl slc"># MBR</span>

     if_<span class="hl opt">(</span><span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span><span class="hl kwa">method</span><span class="hl opt">} =~</span> <span class="hl kwd">/lilo/</span><span class="hl opt">,</span>
	 <span class="hl kwc">grep</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>level<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;1&apos;</span> <span class="hl opt">} &#64;{</span><span class="hl kwb">$all_hds</span><span class="hl opt">-&gt;{</span>raids<span class="hl opt">}}</span>
	<span class="hl opt">),</span>
     <span class="hl opt">(</span><span class="hl kwc">grep</span> <span class="hl opt">{ !</span>isFat_or_NTFS<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">) }</span> fs<span class="hl opt">::</span>get<span class="hl opt">::</span>fstab<span class="hl opt">(</span><span class="hl kwb">$all_hds</span><span class="hl opt">)),</span> <span class="hl slc"># filesystems except those who do not leave space for our bootloaders</span>
     detect_devices<span class="hl opt">::</span>floppies<span class="hl opt">(),</span>
    <span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> same_entries <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$a, $b</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwa">foreach</span> <span class="hl opt">(</span>uniq<span class="hl opt">(</span><span class="hl kwc">keys</span> <span class="hl kwb">%$a,</span> <span class="hl kwc">keys</span> <span class="hl kwb">%$b</span><span class="hl opt">)) {</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span>member<span class="hl opt">(</span><span class="hl kwb">$_,</span> <span class="hl str">&apos;label&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;append&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;mapdrive&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;readonly&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;makeactive&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;verbatim&apos;</span><span class="hl opt">)) {</span>
	    <span class="hl kwa">next</span><span class="hl opt">;</span>
	<span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$_</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;grub_root&apos;</span> <span class="hl opt">&amp;&amp; (!</span><span class="hl kwb">$a</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">} || !</span><span class="hl kwb">$b</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">})) {</span>
	    <span class="hl slc">#- grub_root is mostly internal stuff. if it misses, it&apos;s ok</span>
	    <span class="hl kwa">next</span><span class="hl opt">;</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl kwa">next if</span> <span class="hl kwb">$a</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl kwb">$b</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">};</span>

	    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$inode_a, $inode_b</span><span class="hl opt">) =</span> <span class="hl kwc">map</span> <span class="hl opt">{ (</span><span class="hl kwc">stat</span> <span class="hl str">&quot;$::prefix</span><span class="hl ipl">$_</span><span class="hl str">&quot;</span><span class="hl opt">)[</span><span class="hl num">1</span><span class="hl opt">] } (</span><span class="hl kwb">$a</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">},</span> <span class="hl kwb">$b</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">});</span>
	    <span class="hl kwa">next if</span> <span class="hl kwb">$inode_a</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$inode_b</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$inode_a</span> <span class="hl opt">==</span> <span class="hl kwb">$inode_b</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>

	<span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;entries</span> <span class="hl ipl">$a</span><span class="hl str">-&gt;{label} do not have same</span> <span class="hl ipl">$_</span><span class="hl str">:</span> <span class="hl ipl">$a</span><span class="hl str">-&gt;{</span><span class="hl ipl">$_</span><span class="hl str">} ne</span> <span class="hl ipl">$b</span><span class="hl str">-&gt;{</span><span class="hl ipl">$_</span><span class="hl str">}&quot;</span><span class="hl opt">);</span>
	<span class="hl kwa">return</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl num">1</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> add_entry <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$bootloader, $v</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$to_add</span> <span class="hl opt">=</span> <span class="hl kwb">$v</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$label</span> <span class="hl opt">=</span> <span class="hl kwb">$v</span><span class="hl opt">-&gt;{</span>label<span class="hl opt">};</span>
    <span class="hl kwa">for</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$i</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span> <span class="hl kwb">$i</span> <span class="hl opt">&lt;</span> <span class="hl num">100</span><span class="hl opt">;) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$conflicting</span> <span class="hl opt">=</span> get_label<span class="hl opt">(</span><span class="hl kwb">$label, $bootloader</span><span class="hl opt">);</span>

	<span class="hl kwb">$to_add</span><span class="hl opt">-&gt;{</span>label<span class="hl opt">} =</span> <span class="hl kwb">$label</span><span class="hl opt">;</span>

	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$conflicting</span><span class="hl opt">) {</span>
	    <span class="hl slc">#- replacing $conflicting with $to_add</span>
	    <span class="hl opt">&#64;{</span><span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>entries<span class="hl opt">}} =</span> <span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span> <span class="hl opt">==</span> <span class="hl kwb">$conflicting</span> ? <span class="hl kwb">$to_add</span> <span class="hl opt">:</span> <span class="hl kwb">$_</span> <span class="hl opt">} &#64;{</span><span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>entries<span class="hl opt">}};</span>

	    <span class="hl slc">#- we will keep $conflicting, but not with same symlinks if used by the entry to add</span>
	    expand_entry_symlinks<span class="hl opt">(</span><span class="hl kwb">$bootloader, $conflicting</span><span class="hl opt">);</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl slc">#- we have found an unused label</span>
	    <span class="hl kwc">push</span> <span class="hl opt">&#64;{</span><span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>entries<span class="hl opt">}},</span> <span class="hl kwb">$to_add</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>

	<span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$conflicting</span> <span class="hl opt">||</span> same_entries<span class="hl opt">(</span><span class="hl kwb">$conflicting, $to_add</span><span class="hl opt">)) {</span>
	    <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;current labels: &quot;</span> <span class="hl opt">.</span> <span class="hl kwc">join</span><span class="hl opt">(</span><span class="hl str">&quot; &quot;</span><span class="hl opt">,</span> <span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>label<span class="hl opt">} } &#64;{</span><span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>entries<span class="hl opt">}}));</span>
	    <span class="hl kwa">return</span> <span class="hl kwb">$v</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
	<span class="hl kwb">$to_add</span> <span class="hl opt">=</span> <span class="hl kwb">$conflicting</span><span class="hl opt">;</span>

	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$to_add</span><span class="hl opt">-&gt;{</span>label<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;linux&apos;</span><span class="hl opt">) {</span>
	    <span class="hl kwb">$label</span> <span class="hl opt">=</span> kernel_str2label<span class="hl opt">(</span>vmlinuz2kernel_str<span class="hl opt">(</span><span class="hl kwb">$to_add</span><span class="hl opt">-&gt;{</span>kernel_or_dev<span class="hl opt">}),</span> <span class="hl str">&apos;use_long_name&apos;</span><span class="hl opt">);</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl kwb">$label</span> <span class="hl opt">=~</span> <span class="hl kwd">s/^alt\d*_//</span><span class="hl opt">;</span>
	    <span class="hl kwb">$label</span> <span class="hl opt">=</span> <span class="hl str">&apos;alt&apos;</span> <span class="hl opt">. (</span><span class="hl kwb">$i++</span> ? <span class="hl kwb">$i</span> <span class="hl opt">:</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">) .</span> <span class="hl str">&quot;_</span><span class="hl ipl">$label</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>
    <span class="hl kwc">die</span> <span class="hl str">&apos;add_entry&apos;</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> expand_entry_symlinks <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$bootloader, $entry</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$kind</span> <span class="hl opt">(</span><span class="hl str">&apos;kernel_or_dev&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;initrd&apos;</span><span class="hl opt">) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$old_long_name</span> <span class="hl opt">=</span> <span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>old_long_names<span class="hl opt">} &amp;&amp;</span> <span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>old_long_names<span class="hl opt">}{</span><span class="hl kwb">$entry</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$kind</span><span class="hl opt">}}</span> <span class="hl kwc">or</span> <span class="hl kwa">next</span><span class="hl opt">;</span>

	<span class="hl slc">#- replace all the {$kind} using this symlink to the real file</span>
	<span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;replacing</span> <span class="hl ipl">$entry</span><span class="hl str">-&gt;{</span><span class="hl ipl">$kind</span><span class="hl str">} with</span> <span class="hl ipl">$old_long_name</span> <span class="hl str">for bootloader label</span> <span class="hl ipl">$entry</span><span class="hl str">-&gt;{label}&quot;</span><span class="hl opt">);</span>
	<span class="hl kwb">$entry</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$kind</span><span class="hl opt">} =</span> <span class="hl kwb">$old_long_name</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> _do_the_symlink <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$bootloader, $link, $long_name</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$existing_link</span> <span class="hl opt">=</span> <span class="hl kwc">readlink</span><span class="hl opt">(</span><span class="hl str">&quot;$::prefix</span><span class="hl ipl">$link</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$existing_link</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$existing_link</span> <span class="hl kwc">eq</span> <span class="hl kwb">$long_name</span><span class="hl opt">) {</span>
	<span class="hl slc">#- nothing to do :)</span>
	<span class="hl kwa">return</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$existing_link</span><span class="hl opt">) {</span>
	<span class="hl slc">#- the symlink is going to change! </span>
	<span class="hl slc">#- replace all the {$kind} using this symlink to the real file</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$old_long_name</span> <span class="hl opt">=</span> <span class="hl kwb">$existing_link</span> <span class="hl opt">=~</span> <span class="hl kwd">m!^/!</span> ? <span class="hl kwb">$existing_link</span> <span class="hl opt">:</span> <span class="hl str">&quot;/boot/</span><span class="hl ipl">$existing_link</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
	<span class="hl kwa">if</span> <span class="hl opt">(-</span>e <span class="hl str">&quot;$::prefix</span><span class="hl ipl">$old_long_name</span><span class="hl str">&quot;</span><span class="hl opt">) {</span>
	    <span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>old_long_names<span class="hl opt">}{</span><span class="hl kwb">$link</span><span class="hl opt">} =</span> <span class="hl kwb">$old_long_name</span><span class="hl opt">;</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;ERROR:</span> <span class="hl ipl">$link</span> <span class="hl str">points to</span> <span class="hl ipl">$old_long_name</span> <span class="hl str">which does not exist&quot;</span><span class="hl opt">);</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(-</span>e <span class="hl str">&quot;$::prefix</span><span class="hl ipl">$link</span><span class="hl str">&quot;</span><span class="hl opt">) {</span>
	<span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;ERROR:</span> <span class="hl ipl">$link</span> <span class="hl str">is not a symbolic link&quot;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>

    <span class="hl slc">#- changing the symlink</span>
    symlinkf<span class="hl opt">(</span><span class="hl kwb">$long_name,</span> <span class="hl str">&quot;$::prefix</span><span class="hl ipl">$link</span><span class="hl str">&quot;</span><span class="hl opt">)</span>
      <span class="hl kwc">or</span> cp_af<span class="hl opt">(</span><span class="hl str">&quot;$::prefix/boot/</span><span class="hl ipl">$long_name</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;$::prefix</span><span class="hl ipl">$link</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl slc"># for lilo &amp; xen</span>
<span class="hl kwa">sub</span> get_mbootpack_filename <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$entry</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$mbootpack_file</span> <span class="hl opt">=</span> <span class="hl kwb">$entry</span><span class="hl opt">-&gt;{</span>initrd<span class="hl opt">};</span>
    <span class="hl kwb">$mbootpack_file</span> <span class="hl opt">=~</span> <span class="hl kwd">s/\binitrd/mbootpack/</span><span class="hl opt">;</span>
    <span class="hl kwb">$entry</span><span class="hl opt">-&gt;{</span>xen<span class="hl opt">} &amp;&amp;</span> <span class="hl kwb">$mbootpack_file</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl slc"># for lilo &amp; xen</span>
<span class="hl kwa">sub</span> build_mbootpack <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$entry</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$mbootpack</span> <span class="hl opt">=</span> <span class="hl str">&apos;/usr/bin/mbootpack&apos;</span><span class="hl opt">;</span>
    <span class="hl opt">-</span>f <span class="hl opt">$::</span>prefix <span class="hl opt">.</span> <span class="hl kwb">$entry</span><span class="hl opt">-&gt;{</span>kernel_or_dev<span class="hl opt">} &amp;&amp; -</span>f <span class="hl opt">$::</span>prefix <span class="hl opt">.</span> <span class="hl kwb">$entry</span><span class="hl opt">-&gt;{</span>initrd<span class="hl opt">}</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$mbootpack_file</span> <span class="hl opt">=</span> get_mbootpack_filename<span class="hl opt">(</span><span class="hl kwb">$entry</span><span class="hl opt">);</span>
    <span class="hl opt">-</span>f <span class="hl opt">($::</span>prefix <span class="hl opt">.</span> <span class="hl kwb">$mbootpack_file</span><span class="hl opt">)</span> <span class="hl kwc">and</span> <span class="hl kwa">return</span> <span class="hl num">1</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$error</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$xen_kernel</span> <span class="hl opt">=</span> <span class="hl str">&apos;/tmp/xen_kernel&apos;</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$xen_vmlinux</span> <span class="hl opt">=</span> <span class="hl str">&apos;/tmp/xen_vmlinux&apos;</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$_b</span> <span class="hl opt">=</span> before_leaving <span class="hl opt">{</span> <span class="hl kwc">unlink</span> <span class="hl opt">$::</span>prefix <span class="hl opt">.</span> <span class="hl kwb">$_</span> <span class="hl kwa">foreach</span> <span class="hl kwb">$xen_kernel, $xen_vmlinux</span> <span class="hl opt">};</span>
    run_program<span class="hl opt">::</span>rooted<span class="hl opt">($::</span>prefix<span class="hl opt">,</span> <span class="hl str">&apos;/bin/gzip&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;&gt;&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$xen_kernel,</span> <span class="hl str">&apos;2&gt;&apos;</span><span class="hl opt">,</span> \<span class="hl kwb">$error,</span> <span class="hl str">&apos;-dc&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$entry</span><span class="hl opt">-&gt;{</span>xen<span class="hl opt">})</span>
      <span class="hl kwc">or die</span> <span class="hl str">&quot;unable to uncompress xen kernel&quot;</span><span class="hl opt">;</span>
    run_program<span class="hl opt">::</span>rooted<span class="hl opt">($::</span>prefix<span class="hl opt">,</span> <span class="hl str">&apos;/bin/gzip&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;&gt;&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$xen_vmlinux,</span> <span class="hl str">&apos;2&gt;&apos;</span><span class="hl opt">,</span> \<span class="hl kwb">$error,</span> <span class="hl str">&apos;-dc&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$entry</span><span class="hl opt">-&gt;{</span>kernel_or_dev<span class="hl opt">})</span>
      <span class="hl kwc">or die</span> <span class="hl str">&quot;unable to uncompress xen vmlinuz&quot;</span><span class="hl opt">;</span>

    run_program<span class="hl opt">::</span>rooted<span class="hl opt">($::</span>prefix<span class="hl opt">,</span> <span class="hl kwb">$mbootpack,</span>
                        <span class="hl str">&quot;2&gt;&quot;</span><span class="hl opt">,</span> \<span class="hl kwb">$error,</span>
                        <span class="hl str">&apos;-o&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$mbootpack_file,</span>
                        <span class="hl str">&apos;-m&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$xen_vmlinux,</span>
                        <span class="hl str">&apos;-m&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$entry</span><span class="hl opt">-&gt;{</span>initrd<span class="hl opt">},</span>
                        <span class="hl kwb">$xen_kernel</span><span class="hl opt">)</span>
      <span class="hl kwc">or die</span> <span class="hl str">&quot;mbootpack failed:</span> <span class="hl ipl">$error</span><span class="hl str">&quot;</span><span class="hl opt">;</span>

    <span class="hl num">1</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> add_kernel <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$bootloader, $kernel_str, $v, $b_nolink, $b_no_initrd</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl slc">#- eg: for /boot/vmlinuz-2.6.17-13mdvxen0 (pkg kernel-xen0-xxx) </span>
    <span class="hl slc">#-      or /boot/vmlinuz-2.6.18-xen (pkg kernel-xen-uptodate)</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$kernel_str</span><span class="hl opt">-&gt;{</span>version<span class="hl opt">} =~</span> <span class="hl kwd">/xen/</span> <span class="hl opt">&amp;&amp; -</span>f <span class="hl str">&apos;/boot/xen.gz&apos;</span><span class="hl opt">) {</span>
	<span class="hl kwb">$v</span><span class="hl opt">-&gt;{</span>xen<span class="hl opt">} =</span> <span class="hl str">&apos;/boot/xen.gz&apos;</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>

    add2hash<span class="hl opt">(</span><span class="hl kwb">$v,</span>
	     <span class="hl opt">{</span>
	      type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;image&apos;</span><span class="hl opt">,</span>
	      label <span class="hl opt">=&gt;</span> kernel_str2label<span class="hl opt">(</span><span class="hl kwb">$kernel_str</span><span class="hl opt">),</span>
	     <span class="hl opt">});</span>

    <span class="hl slc">#- normalize append and handle special options</span>
    <span class="hl opt">{</span>
	<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$simple, $dict</span><span class="hl opt">) =</span> unpack_append<span class="hl opt">(</span><span class="hl str">&quot;</span><span class="hl ipl">$bootloader</span><span class="hl str">-&gt;{perImageAppend}</span> <span class="hl ipl">$v</span><span class="hl str">-&gt;{append}&quot;</span><span class="hl opt">);</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$v</span><span class="hl opt">-&gt;{</span>label<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;failsafe&apos;</span><span class="hl opt">) {</span>
	    <span class="hl slc">#- perImageAppend contains resume=/dev/xxx which we don&apos;t want</span>
	    <span class="hl kwb">&#64;$dict</span> <span class="hl opt">=</span> <span class="hl kwc">grep</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;[</span><span class="hl num">0</span><span class="hl opt">]</span> <span class="hl kwc">ne</span> <span class="hl str">&apos;resume&apos;</span> <span class="hl opt">}</span> <span class="hl kwb">&#64;$dict</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
	<span class="hl kwb">$v</span><span class="hl opt">-&gt;{</span>append<span class="hl opt">} =</span> pack_append<span class="hl opt">(</span><span class="hl kwb">$simple, $dict</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>

    <span class="hl kwb">$b_no_initrd</span> <span class="hl kwd">//</span><span class="hl opt">=</span> arch<span class="hl opt">() =~</span> <span class="hl kwd">/mips|arm/</span> <span class="hl opt">&amp;&amp; !</span>detect_devices<span class="hl opt">::</span>is_mips_gdium<span class="hl opt">();</span>

    <span class="hl kwb">$b_nolink</span> <span class="hl opt">||=</span> <span class="hl kwb">$kernel_str</span><span class="hl opt">-&gt;{</span>use_long_name<span class="hl opt">};</span>

    <span class="hl slc">#- do not link /boot/vmlinuz to xen</span>
    <span class="hl kwb">$b_nolink</span> <span class="hl opt">||=</span> <span class="hl kwb">$v</span><span class="hl opt">-&gt;{</span>xen<span class="hl opt">};</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$vmlinuz_long</span> <span class="hl opt">=</span> kernel_str2vmlinuz_long<span class="hl opt">(</span><span class="hl kwb">$kernel_str</span><span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$initrd_long</span> <span class="hl opt">=</span> kernel_str2initrd_long<span class="hl opt">(</span><span class="hl kwb">$kernel_str</span><span class="hl opt">);</span>
    <span class="hl kwb">$v</span><span class="hl opt">-&gt;{</span>kernel_or_dev<span class="hl opt">} =</span> <span class="hl str">&quot;/boot/</span><span class="hl ipl">$vmlinuz_long</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
    <span class="hl opt">-</span>e <span class="hl str">&quot;$::prefix</span><span class="hl ipl">$v</span><span class="hl str">-&gt;{kernel_or_dev}&quot;</span> <span class="hl kwc">or log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;unable to find kernel image $::prefix</span><span class="hl ipl">$v</span><span class="hl str">-&gt;{kernel_or_dev}&quot;</span><span class="hl opt">),</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
    <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;adding</span> <span class="hl ipl">$v</span><span class="hl str">-&gt;{kernel_or_dev}&quot;</span><span class="hl opt">);</span>

    <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$b_no_initrd</span><span class="hl opt">) {</span>
	<span class="hl kwb">$v</span><span class="hl opt">-&gt;{</span>initrd<span class="hl opt">} =</span> mkinitrd<span class="hl opt">(</span><span class="hl kwb">$kernel_str</span><span class="hl opt">-&gt;{</span>version<span class="hl opt">},</span> <span class="hl kwb">$bootloader, $v,</span> <span class="hl str">&quot;/boot/</span><span class="hl ipl">$initrd_long</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>

    <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$b_nolink</span><span class="hl opt">) {</span>
	<span class="hl kwb">$v</span><span class="hl opt">-&gt;{</span>kernel_or_dev<span class="hl opt">} =</span> <span class="hl str">&apos;/boot/&apos;</span> <span class="hl opt">.</span> kernel_str2vmlinuz_short<span class="hl opt">(</span><span class="hl kwb">$kernel_str</span><span class="hl opt">);</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span>arch<span class="hl opt">() =~</span> <span class="hl kwd">/mips/</span><span class="hl opt">) {</span>
	    <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;link $::prefix/boot/</span><span class="hl ipl">$vmlinuz_long</span> <span class="hl str">-&gt; $::prefix</span><span class="hl ipl">$v</span><span class="hl str">-&gt;{kernel_or_dev}&quot;</span><span class="hl opt">);</span>
	    linkf<span class="hl opt">(</span><span class="hl str">&quot;$::prefix/boot/</span><span class="hl ipl">$vmlinuz_long</span><span class="hl str">&quot;</span><span class="hl opt">, $::</span>prefix <span class="hl opt">.</span> <span class="hl kwb">$v</span><span class="hl opt">-&gt;{</span>kernel_or_dev<span class="hl opt">});</span>
	    linkf<span class="hl opt">(</span><span class="hl str">&quot;$::prefix/boot/</span><span class="hl ipl">$vmlinuz_long</span><span class="hl str">&quot;</span><span class="hl opt">, $::</span>prefix <span class="hl opt">.</span> <span class="hl kwb">$v</span><span class="hl opt">-&gt;{</span>kernel_or_dev<span class="hl opt">} .</span> <span class="hl str">&quot;.32&quot;</span><span class="hl opt">);</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    _do_the_symlink<span class="hl opt">(</span><span class="hl kwb">$bootloader, $v</span><span class="hl opt">-&gt;{</span>kernel_or_dev<span class="hl opt">},</span> <span class="hl kwb">$vmlinuz_long</span><span class="hl opt">);</span>
	<span class="hl opt">}</span>

	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$v</span><span class="hl opt">-&gt;{</span>initrd<span class="hl opt">}) {</span>
	    <span class="hl kwb">$v</span><span class="hl opt">-&gt;{</span>initrd<span class="hl opt">} =</span> <span class="hl str">&apos;/boot/&apos;</span> <span class="hl opt">.</span> kernel_str2initrd_short<span class="hl opt">(</span><span class="hl kwb">$kernel_str</span><span class="hl opt">);</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span>arch<span class="hl opt">() =~</span> <span class="hl kwd">/mips/</span><span class="hl opt">) {</span>
		<span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;link $::prefix/boot/</span><span class="hl ipl">$initrd_long</span> <span class="hl str">-&gt; $::prefix</span><span class="hl ipl">$v</span><span class="hl str">-&gt;{initrd}&quot;</span><span class="hl opt">);</span>
		linkf<span class="hl opt">(</span><span class="hl str">&quot;$::prefix/boot/</span><span class="hl ipl">$initrd_long</span><span class="hl str">&quot;</span><span class="hl opt">, $::</span>prefix <span class="hl opt">.</span> <span class="hl kwb">$v</span><span class="hl opt">-&gt;{</span>initrd<span class="hl opt">});</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$v</span><span class="hl opt">-&gt;{</span>initrd<span class="hl opt">} =~</span> <span class="hl kwd">s/.img$/.gz/</span><span class="hl opt">) {</span>
		    linkf<span class="hl opt">(</span><span class="hl str">&quot;$::prefix/boot/</span><span class="hl ipl">$initrd_long</span><span class="hl str">&quot;</span><span class="hl opt">, $::</span>prefix <span class="hl opt">.</span> <span class="hl kwb">$v</span><span class="hl opt">-&gt;{</span>initrd<span class="hl opt">});</span>
		<span class="hl opt">}</span>
	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		_do_the_symlink<span class="hl opt">(</span><span class="hl kwb">$bootloader, $v</span><span class="hl opt">-&gt;{</span>initrd<span class="hl opt">},</span> <span class="hl kwb">$initrd_long</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>

    add_entry<span class="hl opt">(</span><span class="hl kwb">$bootloader, $v</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl com">=item rebuild_initrds($bootloader)</span>
<span class="hl com"></span>
<span class="hl com">Rebuilds all initrds</span>
<span class="hl com"></span>
<span class="hl com">=cut</span>

<span class="hl kwa">sub</span> rebuild_initrds <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$bootloader</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">%done</span><span class="hl opt">;</span>
    <span class="hl kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$v</span> <span class="hl opt">(</span><span class="hl kwc">grep</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>initrd<span class="hl opt">} } &#64;{</span><span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>entries<span class="hl opt">}}) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$kernel_str</span> <span class="hl opt">=</span> vmlinuz2kernel_str<span class="hl opt">(</span><span class="hl kwb">$v</span><span class="hl opt">-&gt;{</span>kernel_or_dev<span class="hl opt">})</span> <span class="hl kwc">or</span> <span class="hl kwa">next</span><span class="hl opt">;</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$initrd_long</span> <span class="hl opt">=</span> <span class="hl str">&apos;/boot/&apos;</span> <span class="hl opt">.</span> kernel_str2initrd_long<span class="hl opt">(</span><span class="hl kwb">$kernel_str</span><span class="hl opt">);</span>
	<span class="hl kwa">next if</span> <span class="hl kwb">$done</span><span class="hl opt">{</span><span class="hl kwb">$initrd_long</span><span class="hl opt">}++;</span>

	rebuild_initrd<span class="hl opt">(</span><span class="hl kwb">$kernel_str</span><span class="hl opt">-&gt;{</span>version<span class="hl opt">},</span> <span class="hl kwb">$bootloader, $v, $initrd_long</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl slc"># unused (?)</span>
<span class="hl kwa">sub</span> duplicate_kernel_entry <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$bootloader, $new_label</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    get_label<span class="hl opt">(</span><span class="hl kwb">$new_label, $bootloader</span><span class="hl opt">)</span> <span class="hl kwc">and</span> <span class="hl kwa">return</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$entry</span> <span class="hl opt">= { %{</span> get_label<span class="hl opt">(</span><span class="hl str">&apos;linux&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$bootloader</span><span class="hl opt">) },</span> label <span class="hl opt">=&gt;</span> <span class="hl kwb">$new_label</span> <span class="hl opt">};</span>
    add_entry<span class="hl opt">(</span><span class="hl kwb">$bootloader, $entry</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl kwc">my</span> <span class="hl kwb">$uniq_dict_appends</span> <span class="hl opt">=</span> <span class="hl kwc">join</span><span class="hl opt">(</span><span class="hl str">&apos;|&apos;</span><span class="hl opt">,</span> <span class="hl str">qw(acpi pci resume PROFILE XFree)</span><span class="hl opt">);</span>

<span class="hl kwa">sub</span> unpack_append <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$s</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">&#64;l</span> <span class="hl opt">=</span> <span class="hl str">&quot;</span><span class="hl ipl">$s</span> <span class="hl str">&quot;</span> <span class="hl opt">=~</span> <span class="hl kwd">/((?:[^&quot;\s]+|&quot;.*?&quot;)*)\s+/g</span><span class="hl opt">;</span>
    <span class="hl opt">[</span> <span class="hl kwc">grep</span> <span class="hl opt">{ !</span><span class="hl kwd">/=/</span> <span class="hl opt">}</span> <span class="hl kwb">&#64;l</span> <span class="hl opt">], [</span> <span class="hl kwc">map</span> <span class="hl opt">{</span> if_<span class="hl opt">(</span><span class="hl kwd">/(.*?)=(.*)/</span><span class="hl opt">, [</span><span class="hl kwb">$1, $2</span><span class="hl opt">]) }</span> <span class="hl kwb">&#64;l</span> <span class="hl opt">];</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> pack_append <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$simple, $dict</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl slc">#- normalize</span>
    <span class="hl kwb">$simple</span> <span class="hl opt">= [</span> <span class="hl kwc">reverse</span><span class="hl opt">(</span>uniq<span class="hl opt">(</span><span class="hl kwc">reverse</span> <span class="hl kwb">&#64;$simple</span><span class="hl opt">)) ];</span>
    <span class="hl kwb">$dict</span> <span class="hl opt">= [</span> <span class="hl kwc">reverse</span><span class="hl opt">(</span>uniq_ <span class="hl opt">{</span> 
	<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$k, $v</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;$_</span><span class="hl opt">;</span> 
	<span class="hl kwb">$k</span> <span class="hl opt">=~</span> <span class="hl kwd">/^($uniq_dict_appends)$/</span> ? <span class="hl kwb">$k</span> <span class="hl opt">:</span> <span class="hl str">&quot;</span><span class="hl ipl">$k</span><span class="hl str">=</span><span class="hl ipl">$v</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
    <span class="hl opt">}</span> <span class="hl kwc">reverse</span> <span class="hl kwb">&#64;$dict</span><span class="hl opt">) ];</span>

    <span class="hl kwc">join</span><span class="hl opt">(</span><span class="hl str">&apos; &apos;</span><span class="hl opt">,</span> <span class="hl kwb">&#64;$simple,</span> <span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl str">&quot;</span><span class="hl ipl">$_</span><span class="hl str">-&gt;[0]=</span><span class="hl ipl">$_</span><span class="hl str">-&gt;[1]&quot;</span> <span class="hl opt">}</span> <span class="hl kwb">&#64;$dict</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> modify_append <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$b, $f</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">&#64;l</span> <span class="hl opt">=</span> <span class="hl kwc">grep</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>type<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;image&apos;</span> <span class="hl opt">&amp;&amp; !</span><span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>keep_verbatim<span class="hl opt">} &amp;&amp; !($::</span>isStandalone <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>label<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;failsafe&apos;</span><span class="hl opt">) } &#64;{</span><span class="hl kwb">$b</span><span class="hl opt">-&gt;{</span>entries<span class="hl opt">}};</span>

    <span class="hl kwa">foreach</span> <span class="hl opt">(</span>\<span class="hl kwb">$b</span><span class="hl opt">-&gt;{</span>perImageAppend<span class="hl opt">},</span> <span class="hl kwc">map</span> <span class="hl opt">{</span> \<span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>append<span class="hl opt">} }</span> <span class="hl kwb">&#64;l</span><span class="hl opt">) {</span>
	<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$simple, $dict</span><span class="hl opt">) =</span> unpack_append<span class="hl opt">(</span><span class="hl kwb">$$_</span><span class="hl opt">);</span>
	<span class="hl kwb">$f</span><span class="hl opt">-&gt;(</span><span class="hl kwb">$simple, $dict</span><span class="hl opt">);</span>
	<span class="hl kwb">$$_</span> <span class="hl opt">=</span> pack_append<span class="hl opt">(</span><span class="hl kwb">$simple, $dict</span><span class="hl opt">);</span>
	<span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;modify_append:</span> <span class="hl ipl">$$_</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> get_append_simple <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$b, $key</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$simple, $_dict</span><span class="hl opt">) =</span> unpack_append<span class="hl opt">(</span><span class="hl kwb">$b</span><span class="hl opt">-&gt;{</span>perImageAppend<span class="hl opt">});</span>
    member<span class="hl opt">(</span><span class="hl kwb">$key, &#64;$simple</span><span class="hl opt">);</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> get_append_with_key <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$b, $key</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$_simple, $dict</span><span class="hl opt">) =</span> unpack_append<span class="hl opt">(</span><span class="hl kwb">$b</span><span class="hl opt">-&gt;{</span>perImageAppend<span class="hl opt">});</span>
    <span class="hl kwc">my</span> <span class="hl kwb">&#64;l</span> <span class="hl opt">=</span> <span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;[</span><span class="hl num">1</span><span class="hl opt">] }</span> <span class="hl kwc">grep</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;[</span><span class="hl num">0</span><span class="hl opt">]</span> <span class="hl kwc">eq</span> <span class="hl kwb">$key</span> <span class="hl opt">}</span> <span class="hl kwb">&#64;$dict</span><span class="hl opt">;</span>

    <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;more than one</span> <span class="hl ipl">$key</span> <span class="hl str">in</span> <span class="hl ipl">$b</span><span class="hl str">-&gt;{perImageAppend}&quot;</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl kwb">&#64;l</span> <span class="hl opt">&gt;</span> <span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl kwb">$l</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">];</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> remove_append_simple <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$b, $key</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    modify_append<span class="hl opt">(</span><span class="hl kwb">$b,</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
	<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$simple, $_dict</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
	<span class="hl kwb">&#64;$simple</span> <span class="hl opt">=</span> <span class="hl kwc">grep</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span> <span class="hl kwc">ne</span> <span class="hl kwb">$key</span> <span class="hl opt">}</span> <span class="hl kwb">&#64;$simple</span><span class="hl opt">;</span>
    <span class="hl opt">});</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> set_append_with_key <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$b, $key, $val</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    modify_append<span class="hl opt">(</span><span class="hl kwb">$b,</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
	<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$_simple, $dict</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$val</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">) {</span>
	    <span class="hl kwb">&#64;$dict</span> <span class="hl opt">=</span> <span class="hl kwc">grep</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;[</span><span class="hl num">0</span><span class="hl opt">]</span> <span class="hl kwc">ne</span> <span class="hl kwb">$key</span> <span class="hl opt">}</span> <span class="hl kwb">&#64;$dict</span><span class="hl opt">;</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl kwc">push</span> <span class="hl kwb">&#64;$dict,</span> <span class="hl opt">[</span> <span class="hl kwb">$key, $val</span> <span class="hl opt">];</span>
	<span class="hl opt">}</span>
    <span class="hl opt">});</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> set_append_simple <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$b, $key</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    modify_append<span class="hl opt">(</span><span class="hl kwb">$b,</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
	<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$simple, $_dict</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
	<span class="hl kwb">&#64;$simple</span> <span class="hl opt">=</span> uniq<span class="hl opt">(</span><span class="hl kwb">&#64;$simple, $key</span><span class="hl opt">);</span>
    <span class="hl opt">});</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> may_append_with_key <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$b, $key, $val</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    set_append_with_key<span class="hl opt">(</span><span class="hl kwb">$b, $key, $val</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl opt">!</span>get_append_with_key<span class="hl opt">(</span><span class="hl kwb">$b, $key</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> get_append_netprofile <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$e</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$simple, $dict</span><span class="hl opt">) =</span> unpack_append<span class="hl opt">(</span><span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span>append<span class="hl opt">});</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$p, $dict_</span><span class="hl opt">) =</span> partition <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;[</span><span class="hl num">0</span><span class="hl opt">]</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;PROFILE&apos;</span> <span class="hl opt">}</span> <span class="hl kwb">&#64;$dict</span><span class="hl opt">;</span>
    pack_append<span class="hl opt">(</span><span class="hl kwb">$simple, $dict_</span><span class="hl opt">),</span> <span class="hl kwb">$p</span><span class="hl opt">-&gt;[</span><span class="hl num">0</span><span class="hl opt">][</span><span class="hl num">1</span><span class="hl opt">];</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> set_append_netprofile <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$e, $append, $profile</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$simple, $dict</span><span class="hl opt">) =</span> unpack_append<span class="hl opt">(</span><span class="hl kwb">$append</span><span class="hl opt">);</span>
    <span class="hl kwc">push</span> <span class="hl kwb">&#64;$dict,</span> <span class="hl opt">[</span> <span class="hl str">&apos;PROFILE&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$profile</span> <span class="hl opt">]</span> <span class="hl kwa">if</span> <span class="hl kwb">$profile</span><span class="hl opt">;</span>
    <span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span>append<span class="hl opt">} =</span> pack_append<span class="hl opt">(</span><span class="hl kwb">$simple, $dict</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl com">=item configure_entry($bootloader, $entry)</span>
<span class="hl com"></span>
<span class="hl com">Used when a bootloader $entry has been modified (eg: $entry-&gt;{vga})</span>
<span class="hl com"></span>
<span class="hl com">=cut</span>

<span class="hl kwa">sub</span> configure_entry <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$bootloader, $entry</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwb">$entry</span><span class="hl opt">-&gt;{</span>type<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;image&apos;</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$kernel_str</span> <span class="hl opt">=</span> vmlinuz2kernel_str<span class="hl opt">(</span><span class="hl kwb">$entry</span><span class="hl opt">-&gt;{</span>kernel_or_dev<span class="hl opt">})) {</span>
	<span class="hl kwb">$entry</span><span class="hl opt">-&gt;{</span>initrd<span class="hl opt">} =</span> 
	  mkinitrd<span class="hl opt">(</span><span class="hl kwb">$kernel_str</span><span class="hl opt">-&gt;{</span>version<span class="hl opt">},</span> <span class="hl kwb">$bootloader, $entry,</span>
		   <span class="hl kwb">$entry</span><span class="hl opt">-&gt;{</span>initrd<span class="hl opt">} ||</span> <span class="hl str">&apos;/boot/&apos;</span> <span class="hl opt">.</span> kernel_str2initrd_short<span class="hl opt">(</span><span class="hl kwb">$kernel_str</span><span class="hl opt">));</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> get_kernels_and_labels_before_kernel_remove <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$to_remove_kernel</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">&#64;kernels</span> <span class="hl opt">=</span> <span class="hl kwc">grep</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span> <span class="hl kwc">ne</span> <span class="hl kwb">$to_remove_kernel</span> <span class="hl opt">}</span> installed_vmlinuz<span class="hl opt">();</span>
    <span class="hl kwc">map</span> <span class="hl opt">{</span> kernel_str2label<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">) =&gt;</span> <span class="hl kwb">$_</span> <span class="hl opt">}</span> get_kernel_labels<span class="hl opt">(</span>\<span class="hl kwb">&#64;kernels</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> get_kernels_and_labels<span class="hl opt">() {</span>
    get_kernel_labels<span class="hl opt">([</span> installed_vmlinuz<span class="hl opt">() ]);</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> get_kernel_labels <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$kernels</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    
    <span class="hl kwc">my</span> <span class="hl kwb">&#64;kernels_str</span> <span class="hl opt">=</span> 
      <span class="hl kwc">sort</span> <span class="hl opt">{</span> common<span class="hl opt">::</span>cmp_kernel_versions<span class="hl opt">(</span><span class="hl kwb">$b</span><span class="hl opt">-&gt;{</span>version_no_ext<span class="hl opt">},</span> <span class="hl kwb">$a</span><span class="hl opt">-&gt;{</span>version_no_ext<span class="hl opt">}) }</span> 
      <span class="hl kwc">grep</span> <span class="hl opt">{ -</span>d <span class="hl str">&quot;$::prefix/lib/modules/</span><span class="hl ipl">$_</span><span class="hl str">-&gt;{version}&quot;</span> <span class="hl opt">}</span>
      <span class="hl kwc">map</span> <span class="hl opt">{</span> vmlinuz2kernel_str<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">) }</span> <span class="hl kwb">&#64;$kernels</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">%labels</span><span class="hl opt">;</span>
    <span class="hl kwa">foreach</span> <span class="hl opt">(</span><span class="hl kwb">&#64;kernels_str</span><span class="hl opt">) {</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$labels</span><span class="hl opt">{</span><span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>ext<span class="hl opt">}}) {</span>
	    <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>use_long_name<span class="hl opt">} =</span> <span class="hl num">1</span><span class="hl opt">;</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl kwb">$labels</span><span class="hl opt">{</span><span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>ext<span class="hl opt">}} =</span> <span class="hl num">1</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>

    <span class="hl kwb">$kernels_str</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">]{</span>ext<span class="hl opt">} =</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">;</span>

    <span class="hl kwb">&#64;kernels_str</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> short_ext <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$kernel_str</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$short_ext</span> <span class="hl opt">= {</span>
	<span class="hl str">&apos;i586-up-1GB&apos;</span> <span class="hl opt">=&gt;</span> <span class="hl str">&apos;i586&apos;</span><span class="hl opt">,</span>
	<span class="hl str">&apos;i686-up-4GB&apos;</span> <span class="hl opt">=&gt;</span> <span class="hl str">&apos;4GB&apos;</span><span class="hl opt">,</span>
	<span class="hl str">&apos;xen0&apos;</span> <span class="hl opt">=&gt;</span> <span class="hl str">&apos;xen&apos;</span><span class="hl opt">,</span>
    <span class="hl opt">}-&gt;{</span><span class="hl kwb">$kernel_str</span><span class="hl opt">-&gt;{</span>ext<span class="hl opt">}};</span>

    <span class="hl kwb">$short_ext</span> <span class="hl opt">||</span> <span class="hl kwb">$kernel_str</span><span class="hl opt">-&gt;{</span>ext<span class="hl opt">};</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> _sanitize_ver <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$kernel_str</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$name</span> <span class="hl opt">=</span> <span class="hl kwb">$kernel_str</span><span class="hl opt">-&gt;{</span>basename<span class="hl opt">};</span>
    <span class="hl kwb">$name</span> <span class="hl opt">=</span> <span class="hl str">&apos;&apos;</span> <span class="hl kwa">if</span> <span class="hl kwb">$name</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;vmlinuz&apos;</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$v</span> <span class="hl opt">=</span> <span class="hl kwb">$kernel_str</span><span class="hl opt">-&gt;{</span>version_no_ext<span class="hl opt">};</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$v</span> <span class="hl opt">=~</span> <span class="hl kwd">s/-\d+\.mm\././</span><span class="hl opt">) {</span>
	<span class="hl kwb">$name</span> <span class="hl opt">=</span> <span class="hl kwc">join</span><span class="hl opt">(</span><span class="hl str">&apos; &apos;</span><span class="hl opt">,</span> <span class="hl kwc">grep</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span> <span class="hl opt">}</span> <span class="hl kwb">$name,</span> <span class="hl str">&apos;multimedia&apos;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>

    <span class="hl kwb">$v</span> <span class="hl opt">=~</span> <span class="hl kwd">s!(md[kv]|mnb)$!!</span><span class="hl opt">;</span>
    <span class="hl kwb">$v</span> <span class="hl opt">=~</span> <span class="hl kwd">s!-0\.(pre|rc)(\d+)\.!$1$2-!</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$return</span> <span class="hl opt">=</span> <span class="hl kwc">join</span><span class="hl opt">(</span><span class="hl str">&apos; &apos;</span><span class="hl opt">,</span> <span class="hl kwc">grep</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span> <span class="hl opt">}</span> <span class="hl kwb">$name,</span> short_ext<span class="hl opt">(</span><span class="hl kwb">$kernel_str</span><span class="hl opt">),</span> <span class="hl kwb">$v</span><span class="hl opt">);</span>

    <span class="hl kwc">length</span><span class="hl opt">(</span><span class="hl kwb">$return</span><span class="hl opt">) &lt;</span> <span class="hl num">30</span> <span class="hl kwc">or</span> <span class="hl kwb">$return</span> <span class="hl opt">=~</span> <span class="hl kwd">s!secure!sec!</span><span class="hl opt">;</span>
    <span class="hl kwc">length</span><span class="hl opt">(</span><span class="hl kwb">$return</span><span class="hl opt">) &lt;</span> <span class="hl num">30</span> <span class="hl kwc">or</span> <span class="hl kwb">$return</span> <span class="hl opt">=~</span> <span class="hl kwd">s!enterprise!ent!</span><span class="hl opt">;</span>
    <span class="hl kwc">length</span><span class="hl opt">(</span><span class="hl kwb">$return</span><span class="hl opt">) &lt;</span> <span class="hl num">30</span> <span class="hl kwc">or</span> <span class="hl kwb">$return</span> <span class="hl opt">=~</span> <span class="hl kwd">s!multimedia!mm!</span><span class="hl opt">;</span>

    <span class="hl kwb">$return</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl com">=item suggest_message_text($bootloader)</span>
<span class="hl com"></span>
<span class="hl com">Provides a description text for Lilo</span>
<span class="hl com"></span>
<span class="hl com">=cut</span>

<span class="hl kwa">sub</span> suggest_message_text <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$bootloader</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>message<span class="hl opt">} &amp;&amp; !</span><span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>message_text<span class="hl opt">}) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$msg_en</span> <span class="hl opt">=</span>
<span class="hl slc">#-PO: these messages will be displayed at boot time in the BIOS, use only ASCII (7bit)</span>
N_<span class="hl opt">(</span><span class="hl str">&quot;Welcome to the operating system chooser!</span>
<span class="hl str"></span>
<span class="hl str">Choose an operating system from the list above or</span>
<span class="hl str">wait for default boot.</span>
<span class="hl str"></span>
<span class="hl str">&quot;</span><span class="hl opt">);</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$msg</span> <span class="hl opt">=</span> translate<span class="hl opt">(</span><span class="hl kwb">$msg_en</span><span class="hl opt">);</span>
	<span class="hl slc">#- use the English version if more than 40% of 8bits chars</span>
	<span class="hl slc">#- else, use the translation but force a conversion to ascii</span>
	<span class="hl slc">#- to be sure there won&apos;t be undisplayable characters</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">int</span><span class="hl opt">(</span><span class="hl kwc">grep</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span> <span class="hl opt">&amp;</span> <span class="hl num">0x80</span> <span class="hl opt">}</span> <span class="hl kwc">unpack</span> <span class="hl str">&quot;c*&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$msg</span><span class="hl opt">) /</span> <span class="hl kwc">length</span><span class="hl opt">(</span><span class="hl kwb">$msg</span><span class="hl opt">) &gt;</span> <span class="hl num">0.4</span><span class="hl opt">) {</span>
	    <span class="hl kwb">$msg</span> <span class="hl opt">=</span> <span class="hl kwb">$msg_en</span><span class="hl opt">;</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl kwb">$msg</span> <span class="hl opt">=</span> Locale<span class="hl opt">::</span>gettext<span class="hl opt">::</span>iconv<span class="hl opt">(</span><span class="hl kwb">$msg,</span> <span class="hl str">&quot;utf-8&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;ascii//TRANSLIT&quot;</span><span class="hl opt">);</span>
	<span class="hl opt">}</span>
	<span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>message_text<span class="hl opt">} =</span> <span class="hl kwb">$msg</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> suggest <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$bootloader, $all_hds, %options</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$fstab</span> <span class="hl opt">= [</span> fs<span class="hl opt">::</span>get<span class="hl opt">::</span>fstab<span class="hl opt">(</span><span class="hl kwb">$all_hds</span><span class="hl opt">) ];</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$root_part</span> <span class="hl opt">=</span> fs<span class="hl opt">::</span>get<span class="hl opt">::</span>root<span class="hl opt">(</span><span class="hl kwb">$fstab</span><span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$root</span> <span class="hl opt">=</span> isLoopback<span class="hl opt">(</span><span class="hl kwb">$root_part</span><span class="hl opt">)</span> ? <span class="hl str">&apos;/dev/loop7&apos;</span> <span class="hl opt">:</span> fs<span class="hl opt">::</span>wild_device<span class="hl opt">::</span>from_part<span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$root_part</span><span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$boot</span> <span class="hl opt">=</span> fs<span class="hl opt">::</span>get<span class="hl opt">::</span>root<span class="hl opt">(</span><span class="hl kwb">$fstab,</span> <span class="hl str">&apos;boot&apos;</span><span class="hl opt">)-&gt;{</span>device<span class="hl opt">};</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$mbr</span><span class="hl opt">;</span>
    
    <span class="hl slc"># If installing onto an USB drive, put the MBR there, else on the first non removable drive</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$root_part</span><span class="hl opt">-&gt;{</span>is_removable<span class="hl opt">}) {</span>
        <span class="hl kwb">$mbr</span> <span class="hl opt">=</span> fs<span class="hl opt">::</span>get<span class="hl opt">::</span>part2hd<span class="hl opt">(</span><span class="hl kwb">$root_part, $all_hds</span><span class="hl opt">);</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
        <span class="hl kwb">$mbr</span> <span class="hl opt">=</span> find <span class="hl opt">{ !</span><span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>is_removable<span class="hl opt">} } &#64;{</span><span class="hl kwb">$all_hds</span><span class="hl opt">-&gt;{</span>hds<span class="hl opt">}};</span>
    <span class="hl opt">}</span>

    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$onmbr, $unsafe</span><span class="hl opt">) =</span> <span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>crushMbr<span class="hl opt">}</span> ? <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">,</span> <span class="hl num">0</span><span class="hl opt">) :</span> suggest_onmbr<span class="hl opt">(</span><span class="hl kwb">$mbr</span><span class="hl opt">);</span>
    add2hash_<span class="hl opt">(</span><span class="hl kwb">$bootloader,</span>
	<span class="hl opt">{</span>
	 bootUnsafe <span class="hl opt">=&gt;</span> <span class="hl kwb">$unsafe,</span>
	 entries <span class="hl opt">=&gt; [],</span>
	 timeout <span class="hl opt">=&gt;</span> <span class="hl kwb">$onmbr</span> <span class="hl opt">&amp;&amp;</span> <span class="hl num">10</span><span class="hl opt">,</span>
	 nowarn <span class="hl opt">=&gt;</span> <span class="hl num">1</span><span class="hl opt">,</span>
	 boot <span class="hl opt">=&gt;</span> <span class="hl str">&quot;/dev/&quot;</span> <span class="hl opt">. (</span><span class="hl kwb">$onmbr</span> ? <span class="hl kwb">$mbr</span><span class="hl opt">-&gt;{</span>device<span class="hl opt">} :</span> <span class="hl kwb">$boot</span><span class="hl opt">),</span>
	 <span class="hl kwc">map</span> <span class="hl opt">=&gt;</span> <span class="hl str">&quot;/boot/map&quot;</span><span class="hl opt">,</span>
	 compact <span class="hl opt">=&gt;</span> <span class="hl num">1</span><span class="hl opt">,</span>
    	 <span class="hl str">&apos;large-memory&apos;</span> <span class="hl opt">=&gt;</span> <span class="hl num">1</span><span class="hl opt">,</span>
	 color <span class="hl opt">=&gt;</span> <span class="hl str">&apos;black/cyan yellow/cyan&apos;</span><span class="hl opt">,</span>
	 <span class="hl str">&apos;menu-scheme&apos;</span> <span class="hl opt">=&gt;</span> <span class="hl str">&apos;wb:bw:wb:bw&apos;</span>
	<span class="hl opt">});</span>

    suggest_message_text<span class="hl opt">(</span><span class="hl kwb">$bootloader</span><span class="hl opt">);</span>

    add2hash_<span class="hl opt">(</span><span class="hl kwb">$bootloader,</span> <span class="hl opt">{</span> memsize <span class="hl opt">=&gt;</span> <span class="hl kwb">$1</span> <span class="hl opt">})</span> <span class="hl kwa">if</span> cat_<span class="hl opt">(</span><span class="hl str">&quot;/proc/cmdline&quot;</span><span class="hl opt">) =~</span> <span class="hl kwd">/\bmem=(\d+[KkMm]?)(?:\s.*)?$/</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$s, $port, $speed</span><span class="hl opt">) =</span> cat_<span class="hl opt">(</span><span class="hl str">&quot;/proc/cmdline&quot;</span><span class="hl opt">) =~</span> <span class="hl kwd">/console=(ttyS(\d),(\d+)\S*)/</span><span class="hl opt">) {</span>
	<span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;serial console</span> <span class="hl ipl">$s</span> <span class="hl str"></span><span class="hl ipl">$port</span> <span class="hl str"></span><span class="hl ipl">$speed</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
	set_append_with_key<span class="hl opt">(</span><span class="hl kwb">$bootloader,</span> console <span class="hl opt">=&gt;</span> <span class="hl kwb">$s</span><span class="hl opt">);</span>
	any<span class="hl opt">::</span>set_login_serial_console<span class="hl opt">(</span><span class="hl kwb">$port, $speed</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>

    <span class="hl kwc">my</span> <span class="hl kwb">&#64;kernels</span> <span class="hl opt">=</span> get_kernels_and_labels<span class="hl opt">()</span> <span class="hl kwc">or die</span> <span class="hl str">&quot;no kernel installed&quot;</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">%old_kernels</span> <span class="hl opt">=</span> <span class="hl kwc">map</span> <span class="hl opt">{</span> vmlinuz2version<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>kernel_or_dev<span class="hl opt">}) =&gt;</span> <span class="hl num">1</span> <span class="hl opt">} &#64;{</span><span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>entries<span class="hl opt">}};</span>
    <span class="hl kwb">&#64;kernels</span> <span class="hl opt">=</span> <span class="hl kwc">grep</span> <span class="hl opt">{ !</span><span class="hl kwb">$old_kernels</span><span class="hl opt">{</span><span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>version<span class="hl opt">}} }</span> <span class="hl kwb">&#64;kernels</span><span class="hl opt">;</span>

    <span class="hl slc">#- remove existing failsafe and linux-nonfb, do not care if the previous one was modified by the user?</span>
    <span class="hl opt">&#64;{</span><span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>entries<span class="hl opt">}} =</span> <span class="hl kwc">grep</span> <span class="hl opt">{ !</span>member<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>label<span class="hl opt">},</span> <span class="hl str">qw(failsafe linux-nonfb)</span><span class="hl opt">) } &#64;{</span><span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>entries<span class="hl opt">}};</span>

    <span class="hl kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$kernel</span> <span class="hl opt">(</span><span class="hl kwb">&#64;kernels</span><span class="hl opt">) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$e</span> <span class="hl opt">=</span> add_kernel<span class="hl opt">(</span><span class="hl kwb">$bootloader, $kernel,</span>
	       <span class="hl opt">{</span>
		root <span class="hl opt">=&gt;</span> <span class="hl kwb">$root,</span>
		if_<span class="hl opt">(</span><span class="hl kwb">$options</span><span class="hl opt">{</span>vga_fb<span class="hl opt">},</span> vga <span class="hl opt">=&gt;</span> <span class="hl kwb">$options</span><span class="hl opt">{</span>vga_fb<span class="hl opt">}),</span> <span class="hl slc">#- using framebuffer</span>
		if_<span class="hl opt">(</span><span class="hl kwb">$options</span><span class="hl opt">{</span>vga_fb<span class="hl opt">} &amp;&amp;</span> <span class="hl kwb">$options</span><span class="hl opt">{</span>splash<span class="hl opt">},</span> append <span class="hl opt">=&gt;</span> <span class="hl str">&quot;splash noiswmd&quot;</span><span class="hl opt">),</span>
		if_<span class="hl opt">(</span><span class="hl kwb">$options</span><span class="hl opt">{</span>quiet<span class="hl opt">},</span> append <span class="hl opt">=&gt;</span> <span class="hl str">&quot;splash quiet noiswmd&quot;</span><span class="hl opt">),</span>
	       <span class="hl opt">});</span>

	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$options</span><span class="hl opt">{</span>vga_fb<span class="hl opt">} &amp;&amp;</span> <span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span>label<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;linux&apos;</span><span class="hl opt">) {</span>
	    add_kernel<span class="hl opt">(</span><span class="hl kwb">$bootloader, $kernel,</span> <span class="hl opt">{</span> root <span class="hl opt">=&gt;</span> <span class="hl kwb">$root,</span> label <span class="hl opt">=&gt;</span> <span class="hl str">&apos;linux-nonfb&apos;</span> <span class="hl opt">});</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>

    add_kernel<span class="hl opt">(</span><span class="hl kwb">$bootloader, $kernels</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">],</span>
	       <span class="hl opt">{</span> root <span class="hl opt">=&gt;</span> <span class="hl kwb">$root,</span> label <span class="hl opt">=&gt;</span> <span class="hl str">&apos;failsafe&apos;</span><span class="hl opt">,</span> append <span class="hl opt">=&gt;</span> <span class="hl str">&apos;failsafe noiswmd&apos;</span> <span class="hl opt">})</span>
      <span class="hl kwa">if</span> <span class="hl kwb">&#64;kernels</span><span class="hl opt">;</span>

	<span class="hl slc">#- search for dos (or windows) boot partition. Do not look in extended partitions!</span>
	<span class="hl kwc">my</span> <span class="hl kwb">&#64;windows_boot_parts</span> <span class="hl opt">=</span>
	  <span class="hl kwc">grep</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>active<span class="hl opt">}</span>
		 <span class="hl opt">&amp;&amp;</span> isFat_or_NTFS<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">) &amp;&amp;</span> member<span class="hl opt">(</span>fs<span class="hl opt">::</span>type<span class="hl opt">::</span>fs_type_from_magic<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">),</span> <span class="hl str">&apos;vfat&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;ntfs&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;ntfs-3g&apos;</span><span class="hl opt">)</span>
		 <span class="hl opt">&amp;&amp; !</span><span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>is_removable<span class="hl opt">}</span>
		 <span class="hl opt">&amp;&amp; !</span>isRecovery<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">);</span>
	     <span class="hl opt">}</span>
	    <span class="hl kwc">map</span> <span class="hl opt">{ &#64;{</span><span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>primary<span class="hl opt">}{</span>normal<span class="hl opt">}} } &#64;{</span><span class="hl kwb">$all_hds</span><span class="hl opt">-&gt;{</span>hds<span class="hl opt">}};</span>
	each_index <span class="hl opt">{</span>
	    add_entry<span class="hl opt">(</span><span class="hl kwb">$bootloader,</span>
		      <span class="hl opt">{</span>
		       type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;other&apos;</span><span class="hl opt">,</span>
		       kernel_or_dev <span class="hl opt">=&gt;</span> <span class="hl str">&quot;/dev/</span><span class="hl ipl">$_</span><span class="hl str">-&gt;{device}&quot;</span><span class="hl opt">,</span>
		       label <span class="hl opt">=&gt;</span> <span class="hl str">&apos;windows&apos;</span> <span class="hl opt">. ($::</span>i <span class="hl opt">||</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">),</span>
		       table <span class="hl opt">=&gt;</span> <span class="hl str">&quot;/dev/</span><span class="hl ipl">$_</span><span class="hl str">-&gt;{rootDevice}&quot;</span><span class="hl opt">,</span>
		       makeactive <span class="hl opt">=&gt;</span> <span class="hl num">1</span><span class="hl opt">,</span>
		      <span class="hl opt">});</span>
	<span class="hl opt">}</span> <span class="hl kwb">&#64;windows_boot_parts</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">&#64;preferred</span> <span class="hl opt">=</span> <span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl str">&quot;linux-</span><span class="hl ipl">$_</span><span class="hl str">&quot;</span> <span class="hl opt">}</span> <span class="hl str">&apos;p3-smp-64GB&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;secure&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;enterprise&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;smp&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;i686-up-4GB&apos;</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$preferred</span> <span class="hl opt">=</span> find <span class="hl opt">{</span> get_label<span class="hl opt">(</span><span class="hl kwb">$_, $bootloader</span><span class="hl opt">) }</span> <span class="hl kwb">&#64;preferred</span><span class="hl opt">) {</span>
	<span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span><span class="hl kwa">default</span><span class="hl opt">} ||=</span> <span class="hl kwb">$preferred</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span><span class="hl kwa">default</span><span class="hl opt">} ||=</span> <span class="hl str">&quot;linux&quot;</span><span class="hl opt">;</span>
    <span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span><span class="hl kwa">method</span><span class="hl opt">} ||=</span> first<span class="hl opt">(</span>method_choices<span class="hl opt">(</span><span class="hl kwb">$all_hds,</span> <span class="hl num">1</span><span class="hl opt">),</span> <span class="hl slc"># best installed</span>
				    method_choices<span class="hl opt">(</span><span class="hl kwb">$all_hds,</span> <span class="hl num">0</span><span class="hl opt">));</span> <span class="hl slc"># or best if no valid one is installed</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>main_method<span class="hl opt">(</span><span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span><span class="hl kwa">method</span><span class="hl opt">})</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;grub&apos;</span><span class="hl opt">) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">%processed_entries</span> <span class="hl opt">= {};</span>
	<span class="hl kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$c</span> <span class="hl opt">(</span>find_other_distros_grub_conf<span class="hl opt">(</span><span class="hl kwb">$fstab</span><span class="hl opt">)) {</span>	    
	    <span class="hl kwc">my</span> <span class="hl kwb">%h</span> <span class="hl opt">= (</span>
		     type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;grub_configfile&apos;</span><span class="hl opt">,</span>
		     label <span class="hl opt">=&gt;</span> <span class="hl kwb">$c</span><span class="hl opt">-&gt;{</span>name<span class="hl opt">},</span>
		     kernel_or_dev <span class="hl opt">=&gt;</span> <span class="hl str">&quot;/dev/</span><span class="hl ipl">$c</span><span class="hl str">-&gt;{bootpart}{device}&quot;</span><span class="hl opt">,</span>
		     configfile <span class="hl opt">=&gt;</span> <span class="hl kwb">$c</span><span class="hl opt">-&gt;{</span>grub_conf<span class="hl opt">},</span>
		    <span class="hl opt">);</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$c</span><span class="hl opt">-&gt;{</span>root<span class="hl opt">}) {</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$key</span> <span class="hl opt">=</span> <span class="hl str">&quot;</span><span class="hl ipl">$c</span><span class="hl str">-&gt;{name} -</span> <span class="hl ipl">$c</span><span class="hl str">-&gt;{linux} -</span> <span class="hl ipl">$c</span><span class="hl str">-&gt;{initrd}&quot;</span><span class="hl opt">;</span>
		<span class="hl kwa">next if</span> <span class="hl kwb">$processed_entries</span><span class="hl opt">{</span><span class="hl kwb">$key</span><span class="hl opt">};</span>
		<span class="hl kwb">$processed_entries</span><span class="hl opt">{</span><span class="hl kwb">$key</span><span class="hl opt">} =</span> <span class="hl num">1</span><span class="hl opt">;</span>
		add_entry<span class="hl opt">(</span><span class="hl kwb">$bootloader,</span> <span class="hl opt">{</span>
		    <span class="hl kwb">%h,</span>
		    linux <span class="hl opt">=&gt;</span> <span class="hl kwb">$c</span><span class="hl opt">-&gt;{</span>linux<span class="hl opt">},</span>
		    initrd <span class="hl opt">=&gt;</span> <span class="hl kwb">$c</span><span class="hl opt">-&gt;{</span>initrd<span class="hl opt">},</span>
		    root <span class="hl opt">=&gt;</span> <span class="hl kwb">$c</span><span class="hl opt">-&gt;{</span>root<span class="hl opt">},</span>
		<span class="hl opt">});</span>
	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		add_entry<span class="hl opt">(</span><span class="hl kwb">$bootloader,</span> \<span class="hl kwb">%h</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> detect_main_method <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$all_hds</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$bootloader</span> <span class="hl opt">= &amp;</span><span class="hl kwc">read</span><span class="hl opt">(</span><span class="hl kwb">$all_hds</span><span class="hl opt">);</span>
    <span class="hl kwb">$bootloader</span> <span class="hl opt">&amp;&amp;</span> main_method<span class="hl opt">(</span><span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span><span class="hl kwa">method</span><span class="hl opt">});</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> main_method <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$method</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwb">$method</span> <span class="hl opt">=~</span> <span class="hl kwd">/(\w+)/</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> config_files<span class="hl opt">() {</span>
    <span class="hl kwc">my</span> <span class="hl kwb">%files</span> <span class="hl opt">= (</span>
	lilo <span class="hl opt">=&gt;</span> <span class="hl str">&apos;/etc/lilo.conf&apos;</span><span class="hl opt">,</span>
	grub <span class="hl opt">=&gt;</span> <span class="hl str">&apos;/boot/grub/menu.lst&apos;</span><span class="hl opt">,</span>
	grub_install <span class="hl opt">=&gt;</span> <span class="hl str">&apos;/boot/grub/install.sh&apos;</span><span class="hl opt">,</span>
    <span class="hl opt">);</span>
    
    map_each <span class="hl opt">{</span> 
	<span class="hl kwc">my</span> <span class="hl kwb">$content</span> <span class="hl opt">=</span> cat_<span class="hl opt">(</span><span class="hl str">&quot;$::prefix/$::b&quot;</span><span class="hl opt">);</span>
	<span class="hl opt">{</span> main_method <span class="hl opt">=&gt;</span> main_method<span class="hl opt">($::</span>a<span class="hl opt">),</span> name <span class="hl opt">=&gt; $::</span>a<span class="hl opt">,</span> file <span class="hl opt">=&gt; $::</span>b<span class="hl opt">,</span> content <span class="hl opt">=&gt;</span> <span class="hl kwb">$content</span> <span class="hl opt">};</span>
    <span class="hl opt">}</span> <span class="hl kwb">%files</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> method2text <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$method</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl opt">+{</span>
	<span class="hl str">&apos;lilo-menu&apos;</span>    <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;LILO with text menu&quot;</span><span class="hl opt">),</span>
	<span class="hl str">&apos;grub2&apos;</span>        <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;GRUB2 with graphical menu&quot;</span><span class="hl opt">),</span>
	<span class="hl str">&apos;grub-graphic&apos;</span> <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;GRUB with graphical menu&quot;</span><span class="hl opt">),</span>
	<span class="hl str">&apos;grub-menu&apos;</span>    <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;GRUB with text menu&quot;</span><span class="hl opt">),</span>
    <span class="hl opt">}-&gt;{</span><span class="hl kwb">$method</span><span class="hl opt">};</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> method_choices_raw <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$b_prefix_mounted</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    detect_devices<span class="hl opt">::</span>is_xbox<span class="hl opt">()</span> ? <span class="hl str">&apos;cromwell&apos;</span> <span class="hl opt">:</span>
    arch<span class="hl opt">() =~</span> <span class="hl kwd">/mips/</span> ? <span class="hl str">&apos;pmon2000&apos;</span> <span class="hl opt">:</span> 
    arch<span class="hl opt">() =~</span> <span class="hl kwd">/arm/</span> ? <span class="hl str">&apos;uboot&apos;</span> <span class="hl opt">:</span>
       if_<span class="hl opt">(!</span><span class="hl kwb">$b_prefix_mounted</span> <span class="hl opt">||</span> whereis_binary<span class="hl opt">(</span><span class="hl str">&apos;grub2-reboot&apos;</span><span class="hl opt">, $::</span>prefix<span class="hl opt">),</span> 
	   <span class="hl str">&apos;grub2&apos;</span><span class="hl opt">),</span>
      if_<span class="hl opt">(!</span>is_uefi<span class="hl opt">(), (</span>
       if_<span class="hl opt">(!</span><span class="hl kwb">$b_prefix_mounted</span> <span class="hl opt">||</span> whereis_binary<span class="hl opt">(</span><span class="hl str">&apos;grub&apos;</span><span class="hl opt">, $::</span>prefix<span class="hl opt">),</span> 
	   <span class="hl str">&apos;grub-graphic&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;grub-menu&apos;</span><span class="hl opt">),</span>
       if_<span class="hl opt">(!</span><span class="hl kwb">$b_prefix_mounted</span> <span class="hl opt">||</span> whereis_binary<span class="hl opt">(</span><span class="hl str">&apos;lilo&apos;</span><span class="hl opt">, $::</span>prefix<span class="hl opt">),</span> 
	   <span class="hl str">&apos;lilo-menu&apos;</span><span class="hl opt">),</span>
      <span class="hl opt">));</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> method_choices <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$all_hds, $b_prefix_mounted</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$fstab</span> <span class="hl opt">= [</span> fs<span class="hl opt">::</span>get<span class="hl opt">::</span>fstab<span class="hl opt">(</span><span class="hl kwb">$all_hds</span><span class="hl opt">) ];</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$root_part</span> <span class="hl opt">=</span> fs<span class="hl opt">::</span>get<span class="hl opt">::</span>root<span class="hl opt">(</span><span class="hl kwb">$fstab</span><span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$boot_part</span> <span class="hl opt">=</span> fs<span class="hl opt">::</span>get<span class="hl opt">::</span>root<span class="hl opt">(</span><span class="hl kwb">$fstab,</span> <span class="hl str">&apos;boot&apos;</span><span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$have_dmraid</span> <span class="hl opt">=</span> find <span class="hl opt">{</span> fs<span class="hl opt">::</span>type<span class="hl opt">::</span>is_dmraid<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">) } &#64;{</span><span class="hl kwb">$all_hds</span><span class="hl opt">-&gt;{</span>hds<span class="hl opt">}};</span>

    <span class="hl kwc">grep</span> <span class="hl opt">{</span>
	<span class="hl opt">!(</span><span class="hl kwd">/lilo/</span> <span class="hl opt">&amp;&amp; (</span>isLoopback<span class="hl opt">(</span><span class="hl kwb">$root_part</span><span class="hl opt">) ||</span> <span class="hl kwb">$have_dmraid</span><span class="hl opt">))</span>
	  <span class="hl opt">&amp;&amp; (</span><span class="hl kwd">/grub2/</span> <span class="hl opt">||</span> <span class="hl kwb">$boot_part</span><span class="hl opt">-&gt;{</span>fs_type<span class="hl opt">}</span> <span class="hl kwc">ne</span> <span class="hl str">&apos;btrfs&apos;</span><span class="hl opt">)</span>
	  <span class="hl opt">&amp;&amp; !(</span><span class="hl kwd">/grub-graphic/</span> <span class="hl opt">&amp;&amp;</span> cat_<span class="hl opt">(</span><span class="hl str">&quot;/proc/cmdline&quot;</span><span class="hl opt">) =~</span> <span class="hl kwd">/console=ttyS/</span><span class="hl opt">);</span>
    <span class="hl opt">}</span> method_choices_raw<span class="hl opt">(</span><span class="hl kwb">$b_prefix_mounted</span><span class="hl opt">);</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> main_method_choices <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$b_prefix_mounted</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    uniq<span class="hl opt">(</span><span class="hl kwc">map</span> <span class="hl opt">{</span> main_method<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">) }</span> method_choices_raw<span class="hl opt">(</span><span class="hl kwb">$b_prefix_mounted</span><span class="hl opt">));</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> configured_main_methods<span class="hl opt">() {</span>
    <span class="hl kwc">my</span> <span class="hl kwb">&#64;bad_main_methods</span> <span class="hl opt">=</span> <span class="hl kwc">map</span> <span class="hl opt">{</span> if_<span class="hl opt">(!</span><span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>content<span class="hl opt">},</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>main_method<span class="hl opt">}) }</span> config_files<span class="hl opt">();</span>
    difference2<span class="hl opt">([</span> main_method_choices<span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">) ],</span> \<span class="hl kwb">&#64;bad_main_methods</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl slc"># for lilo</span>
<span class="hl kwa">sub</span> keytable <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$f</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwb">$f</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$f</span> <span class="hl opt">!~</span> <span class="hl kwd">/\.klt$/</span><span class="hl opt">) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$file</span> <span class="hl opt">=</span> <span class="hl str">&quot;/boot/</span><span class="hl ipl">$f</span><span class="hl str">.klt&quot;</span><span class="hl opt">;</span>
	run_program<span class="hl opt">::</span>rooted<span class="hl opt">($::</span>prefix<span class="hl opt">,</span> <span class="hl str">&quot;keytab-lilo.pl&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;&gt;&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$file, $f</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
	<span class="hl kwb">$f</span> <span class="hl opt">=</span> <span class="hl kwb">$file</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl opt">-</span>r <span class="hl str">&quot;$::prefix/</span><span class="hl ipl">$f</span><span class="hl str">&quot;</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$f</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> check_enough_space<span class="hl opt">() {</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$e</span> <span class="hl opt">=</span> <span class="hl str">&quot;$::prefix/boot/.enough_space&quot;</span><span class="hl opt">;</span>
    output <span class="hl kwb">$e,</span> <span class="hl num">1</span><span class="hl opt">; -</span>s <span class="hl kwb">$e</span> <span class="hl kwc">or die</span> N<span class="hl opt">(</span><span class="hl str">&quot;not enough room in /boot&quot;</span><span class="hl opt">);</span>
    <span class="hl kwc">unlink</span> <span class="hl kwb">$e</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> install_pmon2000 <span class="hl opt">{</span> 
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$_bootloader, $_all_hds</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;Mips/pmon2000 - nothing to install...&quot;</span><span class="hl opt">);</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> write_pmon2000 <span class="hl opt">{</span> 
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$_bootloader, $_all_hds</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;Mips/pmon2000 - nothing to write...&quot;</span><span class="hl opt">);</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> when_config_changed_pmon2000 <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$_bootloader</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl slc">#- do not do anything</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> install_uboot <span class="hl opt">{</span> 
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$_bootloader, $_all_hds</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;uboot - nothing to install...&quot;</span><span class="hl opt">);</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> write_uboot <span class="hl opt">{</span> 
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$_bootloader, $_all_hds</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;uboot - nothing to write...&quot;</span><span class="hl opt">);</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> when_config_changed_uboot <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$_bootloader</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl slc">#- do not do anything</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> install_cromwell <span class="hl opt">{</span> 
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$_bootloader, $_all_hds</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;XBox/Cromwell - nothing to install...&quot;</span><span class="hl opt">);</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> write_cromwell <span class="hl opt">{</span> 
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$_bootloader, $_all_hds</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;XBox/Cromwell - nothing to write...&quot;</span><span class="hl opt">);</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> when_config_changed_cromwell <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$_bootloader</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl slc">#- do not do anything</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> simplify_label <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$label</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwc">length</span><span class="hl opt">(</span><span class="hl kwb">$label</span><span class="hl opt">) &lt;</span> <span class="hl num">31</span> <span class="hl kwc">or</span> <span class="hl kwb">$label</span> <span class="hl opt">=~</span> <span class="hl kwd">s/\.//g</span><span class="hl opt">;</span>

    <span class="hl kwb">$label</span> <span class="hl opt">=</span> <span class="hl kwc">substr</span><span class="hl opt">(</span><span class="hl kwb">$label,</span> <span class="hl num">0</span><span class="hl opt">,</span> <span class="hl num">31</span><span class="hl opt">);</span> <span class="hl slc">#- lilo does not handle more than 31 char long labels</span>
    <span class="hl kwb">$label</span> <span class="hl opt">=~</span> <span class="hl kwd">s/ /_/g</span><span class="hl opt">;</span> <span class="hl slc">#- lilo does not support blank character in image names, labels or aliases</span>
    <span class="hl kwb">$label</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> make_label_lilo_compatible <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$label</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl str">&apos;&quot;&apos;</span> <span class="hl opt">.</span> simplify_label<span class="hl opt">(</span><span class="hl kwb">$label</span><span class="hl opt">) .</span> <span class="hl str">&apos;&quot;&apos;</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> write_lilo <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$bootloader, $all_hds, $o_backup_extension</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>prompt<span class="hl opt">} ||=</span> <span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>timeout<span class="hl opt">};</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$file2fullname</span> <span class="hl opt">=</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
	<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$file</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span>arch<span class="hl opt">() =~</span> <span class="hl kwd">/ia64/</span><span class="hl opt">) {</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$fstab</span> <span class="hl opt">= [</span> fs<span class="hl opt">::</span>get<span class="hl opt">::</span>fstab<span class="hl opt">(</span><span class="hl kwb">$all_hds</span><span class="hl opt">) ];</span>
	    <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$part, $file</span><span class="hl opt">) =</span> fs<span class="hl opt">::</span>get<span class="hl opt">::</span>file2part<span class="hl opt">(</span><span class="hl kwb">$fstab, $file</span><span class="hl opt">);</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">%hds</span> <span class="hl opt">=</span> map_index <span class="hl opt">{</span> <span class="hl kwb">$_</span> <span class="hl opt">=&gt;</span> <span class="hl str">&quot;hd$::i&quot;</span> <span class="hl opt">}</span> <span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>device<span class="hl opt">} }</span> 
	      <span class="hl kwc">sort</span> <span class="hl opt">{</span> 
		  <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$a_is_fat, $b_is_fat</span><span class="hl opt">) = (</span><span class="hl kwb">$a</span><span class="hl opt">-&gt;{</span>fs_type<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;vfat&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$b</span><span class="hl opt">-&gt;{</span>fs_type<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;vfat&apos;</span><span class="hl opt">);</span>
		  <span class="hl kwb">$a_is_fat</span> <span class="hl opt">&lt;=&gt;</span> <span class="hl kwb">$b_is_fat</span> <span class="hl opt">||</span> <span class="hl kwb">$a</span><span class="hl opt">-&gt;{</span>device<span class="hl opt">}</span> <span class="hl kwc">cmp</span> <span class="hl kwb">$b</span><span class="hl opt">-&gt;{</span>device<span class="hl opt">};</span>
	      <span class="hl opt">}</span> <span class="hl kwb">&#64;$fstab</span><span class="hl opt">;</span>
	    <span class="hl kwb">$hds</span><span class="hl opt">{</span><span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>device<span class="hl opt">}} .</span> <span class="hl str">&quot;:&quot;</span> <span class="hl opt">.</span> <span class="hl kwb">$file</span><span class="hl opt">;</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl kwb">$file</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
    <span class="hl opt">};</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$quotes</span> <span class="hl opt">=</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
	<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$s</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
	<span class="hl kwb">$s</span> <span class="hl opt">=~</span> <span class="hl kwd">s/&quot;/\\&quot;/g</span><span class="hl opt">;</span>
	<span class="hl str">qq(&quot;</span><span class="hl ipl">$s</span><span class="hl str">&quot;)</span><span class="hl opt">;</span>
    <span class="hl opt">};</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$quotes_if_needed</span> <span class="hl opt">=</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
	<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$s</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
	<span class="hl kwb">$s</span> <span class="hl opt">=~</span> <span class="hl kwd">/[&quot;=\s]/</span> ? <span class="hl kwb">$quotes</span><span class="hl opt">-&gt;(</span><span class="hl kwb">$s</span><span class="hl opt">) :</span> <span class="hl kwb">$s</span><span class="hl opt">;</span>
    <span class="hl opt">};</span>
    

    <span class="hl kwc">my</span> <span class="hl kwb">&#64;sorted_hds</span> <span class="hl opt">=</span> sort_hds_according_to_bios<span class="hl opt">(</span><span class="hl kwb">$bootloader, $all_hds</span><span class="hl opt">);</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>is_empty_hash_ref<span class="hl opt">(</span><span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>bios<span class="hl opt">} ||= {}) &amp;&amp;</span> <span class="hl kwb">$all_hds</span><span class="hl opt">-&gt;{</span>hds<span class="hl opt">}[</span><span class="hl num">0</span><span class="hl opt">] !=</span> <span class="hl kwb">$sorted_hds</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">]) {</span>
	<span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;Since we&apos;re booting on</span> <span class="hl ipl">$sorted_hds</span><span class="hl str">[0]{device}, make it bios=0x80&quot;</span><span class="hl opt">);</span>
	<span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>bios<span class="hl opt">} = {</span> <span class="hl str">&quot;/dev/</span><span class="hl ipl">$sorted_hds</span><span class="hl str">[0]{device}&quot;</span> <span class="hl opt">=&gt;</span> <span class="hl str">&apos;0x80&apos;</span> <span class="hl opt">};</span>
    <span class="hl opt">}</span>

    <span class="hl kwc">my</span> <span class="hl kwb">&#64;conf</span><span class="hl opt">;</span>

    <span class="hl slc">#- normalize: RESTRICTED and MANDATORY are only valid if PASSWORD is set</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>password<span class="hl opt">}) {</span>
	<span class="hl slc"># lilo defaults to mandatory, use restricted by default to have </span>
	<span class="hl slc"># the same behaviour as with grub</span>
	<span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>restricted<span class="hl opt">} =</span> <span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
        <span class="hl kwc">delete</span> <span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>mandatory<span class="hl opt">}</span> <span class="hl kwa">if</span> <span class="hl opt">!</span><span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>password<span class="hl opt">};</span>
        <span class="hl kwc">delete</span> <span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>restricted<span class="hl opt">}</span> <span class="hl kwa">if</span> <span class="hl opt">!</span><span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>password<span class="hl opt">};</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$entry</span> <span class="hl opt">(&#64;{</span><span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>entries<span class="hl opt">}}) {</span>
	<span class="hl kwc">delete</span> <span class="hl kwb">$entry</span><span class="hl opt">-&gt;{</span>mandatory<span class="hl opt">}</span> <span class="hl kwa">if</span> <span class="hl opt">!</span><span class="hl kwb">$entry</span><span class="hl opt">-&gt;{</span>password<span class="hl opt">} &amp;&amp; !</span><span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>password<span class="hl opt">};</span>
	<span class="hl kwc">delete</span> <span class="hl kwb">$entry</span><span class="hl opt">-&gt;{</span>restricted<span class="hl opt">}</span> <span class="hl kwa">if</span> <span class="hl opt">!</span><span class="hl kwb">$entry</span><span class="hl opt">-&gt;{</span>password<span class="hl opt">} &amp;&amp; !</span><span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>password<span class="hl opt">};</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>get_append_with_key<span class="hl opt">(</span><span class="hl kwb">$bootloader,</span> <span class="hl str">&apos;console&apos;</span><span class="hl opt">) =~</span> <span class="hl kwd">/ttyS(.*)/</span><span class="hl opt">) {</span>
	<span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>serial<span class="hl opt">} ||=</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl kwa">if</span> <span class="hl opt">(!</span>get_label<span class="hl opt">(</span><span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span><span class="hl kwa">default</span><span class="hl opt">},</span> <span class="hl kwb">$bootloader</span><span class="hl opt">)) {</span>
	<span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;default bootloader entry</span> <span class="hl ipl">$bootloader</span><span class="hl str">-&gt;{default} is invalid, choosing another one&quot;</span><span class="hl opt">);</span>
	<span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span><span class="hl kwa">default</span><span class="hl opt">} =</span> <span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>entries<span class="hl opt">}[</span><span class="hl num">0</span><span class="hl opt">]{</span>label<span class="hl opt">};</span>
    <span class="hl opt">}</span>
    <span class="hl kwc">push</span> <span class="hl kwb">&#64;conf,</span> <span class="hl str">&quot;# File generated by DrakX/drakboot&quot;</span><span class="hl opt">;</span>
    <span class="hl kwc">push</span> <span class="hl kwb">&#64;conf,</span> <span class="hl str">&quot;# WARNING: do not forget to run lilo after modifying this file</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
    <span class="hl kwc">push</span> <span class="hl kwb">&#64;conf,</span> <span class="hl str">&quot;default=&quot;</span> <span class="hl opt">.</span> make_label_lilo_compatible<span class="hl opt">(</span><span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span><span class="hl kwa">default</span><span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span><span class="hl kwa">default</span><span class="hl opt">};</span>
    <span class="hl kwc">push</span> <span class="hl kwb">&#64;conf,</span> <span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span> <span class="hl opt">.</span> <span class="hl str">&apos;=&apos;</span> <span class="hl opt">.</span> <span class="hl kwb">$quotes_if_needed</span><span class="hl opt">-&gt;(</span><span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">}) }</span> <span class="hl kwc">grep</span> <span class="hl opt">{</span> <span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">} }</span> <span class="hl str">qw(boot root map install serial vga keytable raid-extra-boot menu-scheme vmdefault)</span><span class="hl opt">;</span>
    <span class="hl kwc">push</span> <span class="hl kwb">&#64;conf,</span> <span class="hl kwc">grep</span> <span class="hl opt">{</span> <span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">} }</span> <span class="hl str">qw(linear geometric compact prompt mandatory nowarn restricted static-bios-codes large-memory)</span><span class="hl opt">;</span>
    <span class="hl kwc">push</span> <span class="hl kwb">&#64;conf,</span> <span class="hl str">&quot;append=&quot;</span> <span class="hl opt">.</span> <span class="hl kwb">$quotes</span><span class="hl opt">-&gt;(</span><span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>append<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>append<span class="hl opt">};</span>
    <span class="hl kwc">push</span> <span class="hl kwb">&#64;conf,</span> <span class="hl str">&quot;password=&quot;</span> <span class="hl opt">.</span> <span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>password<span class="hl opt">}</span> <span class="hl kwa">if</span> <span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>password<span class="hl opt">};</span> <span class="hl slc">#- also done by msec</span>
    <span class="hl kwc">push</span> <span class="hl kwb">&#64;conf,</span> <span class="hl str">&quot;timeout=&quot;</span> <span class="hl opt">.</span> round<span class="hl opt">(</span><span class="hl num">10</span> <span class="hl opt">*</span> <span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>timeout<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>timeout<span class="hl opt">};</span>
    
    <span class="hl kwc">push</span> <span class="hl kwb">&#64;conf,</span> <span class="hl str">&quot;message=</span><span class="hl ipl">$bootloader</span><span class="hl str">-&gt;{message}&quot;</span> <span class="hl kwa">if</span> <span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>message<span class="hl opt">};</span>

    <span class="hl kwc">push</span> <span class="hl kwb">&#64;conf,</span> <span class="hl str">&quot;ignore-table&quot;</span> <span class="hl kwa">if</span> any <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>unsafe<span class="hl opt">} &amp;&amp;</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>table<span class="hl opt">} } &#64;{</span><span class="hl kwb">$bootloader</span><span class="hl opt">-&gt;{</span>entries<span class="hl opt">}};</span>