summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPjetur Hjaltason <pjetur@mandriva.com>2005-09-14 00:59:54 +0000
committerPjetur Hjaltason <pjetur@mandriva.com>2005-09-14 00:59:54 +0000
commit79321fb057b8689ff203c4ace9f2595f9fac30b4 (patch)
tree72040312adbea1b693e0c99a76d74bd66412747f
parent942b52b8d9cc644558ec175b9e93440b60c48825 (diff)
downloaddrakx-79321fb057b8689ff203c4ace9f2595f9fac30b4.tar
drakx-79321fb057b8689ff203c4ace9f2595f9fac30b4.tar.gz
drakx-79321fb057b8689ff203c4ace9f2595f9fac30b4.tar.bz2
drakx-79321fb057b8689ff203c4ace9f2595f9fac30b4.tar.xz
drakx-79321fb057b8689ff203c4ace9f2595f9fac30b4.zip
Clean up fuzzy entries
Diffstat
-rw-r--r--perl-install/share/po/is.po373
1 files changed, 194 insertions, 179 deletions
diff --git a/perl-install/share/po/is.po b/perl-install/share/po/is.po
index 30e69debf..d8672c6bb 100644
--- a/perl-install/share/po/is.po
+++ b/perl-install/share/po/is.po
@@ -1,3 +1,4 @@
+# translation of is.po to Icelandic
# translation of DrakX.po to Icelandic
# translation of DrakX-is.po to Icelandic
# Translation file for Mandriva Linux graphic install, DrakX
@@ -10,9 +11,9 @@
#
msgid ""
msgstr ""
-"Project-Id-Version: DrakX\n"
+"Project-Id-Version: is\n"
"POT-Creation-Date: 2005-09-08 00:35+0800\n"
-"PO-Revision-Date: 2005-07-23 23:45+0000\n"
+"PO-Revision-Date: 2005-09-14 00:58+0000\n"
"Last-Translator: Pjetur G. Hjaltason <pjetur@pjetur.net>\n"
"Language-Team: Icelandic <isl@molar.is>\n"
"MIME-Version: 1.0\n"
@@ -1334,7 +1335,7 @@ msgstr ""
#: any.pm:751
#, c-format
msgid "Multi languages"
-msgstr ""
+msgstr "Mörg tungumál"
#: any.pm:767 any.pm:796 help.pm:647
#, c-format
@@ -1537,7 +1538,7 @@ msgstr "Windows Lén:"
msgid ""
"iWinbind allows the system to retrieve information and authenticate users in "
"a Windows domain."
-msgstr ""
+msgstr "iWinbind leyfir kerfinu að safna upplýsingum og auðkenna notendur í windows léni."
#: authentication.pm:59
#, c-format
@@ -1547,7 +1548,7 @@ msgstr "Upplýsingaveita með SFU:"
#: authentication.pm:59
#, c-format
msgid "With Kerberos and Ldap for authentication in Active Directory Server "
-msgstr ""
+msgstr "Með Kerberos og Ldap fyrir auðkenningu í upplýsingaveitu "
#: authentication.pm:60
#, c-format
@@ -1560,6 +1561,8 @@ msgid ""
"Winbind allows the system to authenticate users in a Windows Active "
"Directory Server."
msgstr ""
+"Winbind leyfir kerfinu að auðkenna notendur í Windows virkri upplýsingaveitu (Active "
+"Directory Server)."
#: authentication.pm:85
#, c-format
@@ -6015,7 +6018,7 @@ msgstr ""
#: install_any.pm:647
#, c-format
msgid "Removing packages prior to upgrade..."
-msgstr ""
+msgstr "Fjarlægi pakka áður en uppfærsla hefst..."
#: install_any.pm:679
#, c-format
@@ -7041,7 +7044,7 @@ msgstr "Veldu músartegund."
#: install_steps_interactive.pm:196
#, c-format
msgid "Mouse choice"
-msgstr ""
+msgstr "Músarval"
#: install_steps_interactive.pm:205 standalone/mousedrake:46
#, c-format
@@ -7273,7 +7276,7 @@ msgstr "Vinsamlega staðfestu að Uppfærslu-miðill sé í drifi %s"
#: install_steps_interactive.pm:802
#, c-format
msgid "Updates"
-msgstr ""
+msgstr "Uppfærslur"
#: install_steps_interactive.pm:803
#, c-format
@@ -10054,7 +10057,7 @@ msgstr "BitTorrent"
#: network/drakfirewall.pm:74
#, c-format
msgid "Port scan detection"
-msgstr ""
+msgstr "Fylgjast með porta-skönnun"
#: network/drakfirewall.pm:165
#, c-format
@@ -10141,11 +10144,14 @@ msgid ""
"into your computer.\n"
"Please select which network activity should be watched."
msgstr ""
+"Þú færð aðvörun þegar einhver fær aðgang að þjónustu eða reynir að "
+"brjótast inn í þína tölvu.\n"
+"Vinsamlega veldu hvaða aðgerðum á að fylgjast með."
#: network/drakfirewall.pm:257
#, c-format
msgid "Use Interactive Firewall"
-msgstr ""
+msgstr "Nota virkan eldvegg"
#: network/ifw.pm:136
#, c-format
@@ -10165,7 +10171,7 @@ msgstr "Brjóta lykilorð"
#: network/ifw.pm:139
#, c-format
msgid "\"%s\" attack"
-msgstr ""
+msgstr "\"%s\" árás"
#: network/ifw.pm:141
#, c-format
@@ -10782,6 +10788,8 @@ msgid ""
"Please choose your DSL connection type.\n"
"If you do not know it, keep the preselected type."
msgstr ""
+"Vinsamlega veldu DSL tengi-tegund.\n"
+"Ef þú veist ekki hvaða tegund, notaðu þá forvalið gildi."
#: network/netconnect.pm:712
#, c-format
@@ -10882,7 +10890,7 @@ msgstr "Kvarði"
#: network/netconnect.pm:893
#, c-format
msgid "Enable IPv6 to IPv4 tunnel"
-msgstr ""
+msgstr "Virkja IPv6-um-IPv4 gagnarás"
#: network/netconnect.pm:895 standalone/drakconnect:369
#: standalone/drakconnect:886
@@ -11006,7 +11014,7 @@ msgstr "Dulritunarmáti"
#: network/netconnect.pm:1017
#, c-format
msgid "Allow access point roaming"
-msgstr ""
+msgstr "Leyfa flakk milli aðgangspunkta"
#: network/netconnect.pm:1018 standalone/drakconnect:406
#, c-format
@@ -12449,59 +12457,59 @@ msgstr "Endurræsi CUPS..."
#: printer/printerdrake.pm:614
#, c-format
msgid "Allow pop-up windows, printer setup and package installation may be canceled"
-msgstr ""
+msgstr "Leyfa fleytiglugga, prentarauppsetningu og stöðvun pakkainnsetningar"
#: printer/printerdrake.pm:616
#, c-format
msgid "No pop-up windows, printer setup and package installation cannot be canceled"
-msgstr ""
+msgstr "Engir fleytigluggar, ekki hægt að stöðva prentarauppsetningu og pakkainnsetningar"
#: printer/printerdrake.pm:622
-#, fuzzy, c-format
+#, c-format
msgid "Printer auto administration"
-msgstr "Finna prentara sjálfkrafa"
+msgstr "Sjálfvirk prentarastjórnun"
#: printer/printerdrake.pm:623
#, c-format
msgid ""
"Here you can configure printer administration tasks which should be done "
"automatically."
-msgstr ""
+msgstr "Hér getur þú skilgreint hvaða prentarastillingar eiga að vera framkvæmdar sjálfvirkt."
#: printer/printerdrake.pm:626
-#, fuzzy, c-format
+#, c-format
msgid "Do automatic configuration of new printers"
-msgstr "Stilla fjartengdan prentara"
+msgstr "Stilla sjálfkrafa nýja prentara"
#: printer/printerdrake.pm:627 printer/printerdrake.pm:641
-#, fuzzy, c-format
+#, c-format
msgid "when a USB printer is connected and turned on"
-msgstr " (vertu viss um að allir þínir prentarar séu tengdir og kveikt á þeim).\n"
+msgstr "þegar kveikt er á USB tengdum prentara"
#: printer/printerdrake.pm:630
-#, fuzzy, c-format
+#, c-format
msgid "when Printerdrake is started"
-msgstr "Þessi prentari er óvirkur"
+msgstr "þegar Pinterdrake er ræst"
#: printer/printerdrake.pm:634
#, c-format
msgid "Mode for automatic printer setup:"
-msgstr ""
+msgstr "Hamur fyrir sjálfvirka prentarauppsetningu:"
#: printer/printerdrake.pm:640
-#, fuzzy, c-format
+#, c-format
msgid "Re-enable disabled printers"
-msgstr "Tiltækir prentarar"
+msgstr "Endurvirkja aftengda prentara"
#: printer/printerdrake.pm:644
-#, fuzzy, c-format
+#, c-format
msgid "when the printing system is started"
-msgstr "Breyta prentkerfinu"
+msgstr "þegar prentkerfi er ræst"
#: printer/printerdrake.pm:680
-#, fuzzy, c-format
+#, c-format
msgid "Communication error handling for the printer \"%s\""
-msgstr "Notkun/viðhald á prentara \"%s\""
+msgstr "Samskiptavilla við prentara \"%s\""
#: printer/printerdrake.pm:682
#, c-format
@@ -12510,36 +12518,39 @@ msgid ""
"computer and the printer \"%s\" should be handled (for example if the "
"printer is not turned on)."
msgstr ""
+"Hér getur þú stillt hvernig á að meðhöndla villur sem koma upp í "
+"samskiptum milli tölvunnar þinnar og prentarans \"%s\" (t.d. ef "
+"ekki er kveikt á prentara)."
#: printer/printerdrake.pm:686
-#, fuzzy, c-format
+#, c-format
msgid "The number of retries should be an integer number of at least 1!"
-msgstr "Port-númer ætti að vera tala!"
+msgstr "Hversu oft á að reyna aftur - ætti að vera tala a.m.k stærri en 1!"
#: printer/printerdrake.pm:690
-#, fuzzy, c-format
+#, c-format
msgid "The delay between retries should be a positive integer number!"
-msgstr "Tími verður að vera heiltala stærri en núll!"
+msgstr "Biðtími milli athugana verður að vera heiltala stærri en núll!"
#: printer/printerdrake.pm:701
-#, fuzzy, c-format
+#, c-format
msgid "Do not disable the printer"
-msgstr "Aftengja prentara"
+msgstr "Ekki aftengja prentarann"
#: printer/printerdrake.pm:704
#, c-format
msgid "Retry infinitely often"
-msgstr ""
+msgstr "Reyna óendanlega oft"
#: printer/printerdrake.pm:707
-#, fuzzy, c-format
+#, c-format
msgid "Number of retries"
-msgstr "Fjöldi hnappa"
+msgstr "Hversu oft á að reyna"
#: printer/printerdrake.pm:712
#, c-format
msgid "Delay between retries (in sec)"
-msgstr ""
+msgstr "Bið milli tilrauna (í sek)"
#: printer/printerdrake.pm:745 printer/printerdrake.pm:765
#, c-format
@@ -12722,7 +12733,7 @@ msgstr ""
#: printer/printerdrake.pm:884
#, c-format
msgid "Do not setup printer automatically now, and never do it again"
-msgstr ""
+msgstr "Ekki setja prentarann sjáfvirkt upp núna, og ekki gera það síðar"
#: printer/printerdrake.pm:928
#, c-format
@@ -12732,17 +12743,17 @@ msgstr "Leita að nýjum prenturum..."
#: printer/printerdrake.pm:989
#, c-format
msgid "Do not setup printer automatically again"
-msgstr ""
+msgstr "Ekki setja prentaran sjálfvirkt upp aftur"
#: printer/printerdrake.pm:996
-#, fuzzy, c-format
+#, c-format
msgid "New printers found"
-msgstr "Enginn prentari fannst!"
+msgstr "Nýjir prentarar fundust"
#: printer/printerdrake.pm:997
-#, fuzzy, c-format
+#, c-format
msgid "New printer found"
-msgstr "Enginn prentari fannst!"
+msgstr "Nýr prentari fannst"
#: printer/printerdrake.pm:999
#, c-format
@@ -12839,9 +12850,9 @@ msgid ""
msgstr ""
#: printer/printerdrake.pm:1125 printer/printerdrake.pm:5139
-#, fuzzy, c-format
+#, c-format
msgid "Configure Auto Administration"
-msgstr "Fjarvinnsla"
+msgstr "Stilla sjálfvirka kerfisumsýslu"
#: printer/printerdrake.pm:1126
#, c-format
@@ -14068,12 +14079,12 @@ msgid "Canon LBP-460/660 configuration"
msgstr "Canon LBP-460/660 stillingar"
#: printer/printerdrake.pm:3601
-#, fuzzy, c-format
+#, c-format
msgid "Canon LBP-810/1120 (CAPT) configuration"
-msgstr "Canon LBP-460/660 stillingar"
+msgstr "Canon LBP-810/1120 (CAPT) stillingar"
#: printer/printerdrake.pm:3602
-#, fuzzy, c-format
+#, c-format
msgid ""
"The driver for this printer only supports printers locally connected via "
"USB, no printers on remote machines or print server boxes or on the parallel "
@@ -14081,9 +14092,9 @@ msgid ""
"where it is directly connected to."
msgstr ""
"Rekillinn fyrir þennann prentara styður aðeins prentara sem eru beintengdir "
-"við USB, ekki prentara sem eru tengdir á aðrar vélar eða prentaramiðlara. "
-"Vinsamlega tengdu prentarann við USB tengi á þessari vél eða stilltu hann á "
-"þeirri vél sem hann er tengdur við."
+"við USB, ekki prentara sem eru tengdir á aðrar vélar eða prentaramiðlara, né ef "
+"þeir eru tengdir við hliðtengi. Vinsamlega tengdu prentarann við USB tengi "
+"á þessari vél, eða stilltu hann á þeirri vél sem hann er tengdur við."
#: printer/printerdrake.pm:3609
#, c-format
@@ -15054,9 +15065,9 @@ msgid "Disable Printer"
msgstr "Aftengja prentara"
#: printer/printerdrake.pm:5511 printer/printerdrake.pm:5605
-#, fuzzy, c-format
+#, c-format
msgid "Printer communication error handling"
-msgstr "Tegund prenttengingar"
+msgstr "Meðhöndlun á prentarasamskiptavillum"
#: printer/printerdrake.pm:5512 printer/printerdrake.pm:5609
#, c-format
@@ -17047,9 +17058,9 @@ msgid "Terminal Server Configuration"
msgstr "Uppsetning skjámiðlara"
#: standalone/drakTermServ:216
-#, fuzzy, c-format
+#, c-format
msgid "dhcpd Config"
-msgstr "dhcpd uppsetning..."
+msgstr "dhcpd stillingar"
#: standalone/drakTermServ:220
#, c-format
@@ -17169,7 +17180,7 @@ msgid "Sync client X keyboard settings with server."
msgstr "Samhæfa lyklaborð X biðlara við miðlara."
#: standalone/drakTermServ:426
-#, fuzzy, c-format
+#, c-format
msgid ""
"Please select default client type (Fat is the default type if 'Use thin' is "
"unchecked).\n"
@@ -17177,7 +17188,8 @@ msgid ""
"display.\n"
" 'Fat' clients use their own CPU/RAM but the server's filesystem."
msgstr ""
-"Vinsamlega veldu sjálfgefna biðlarategund.\n"
+"Vinsamlega veldu sjálfgefna biðlarategund ('Feitir' er sjálfgefin tegund "
+"ef ekki er krossað við 'Nota granna').\n"
" 'Grannir' biðlarar nota örgjörva/minni miðlarans, en skjá biðlarans.\n"
" 'Feitir' biðlarar nota eigin örgjörva/minni/skjá, en skráakerfi "
"miðlarans."
@@ -17621,9 +17633,9 @@ msgid "Delete All NBIs"
msgstr "Eyða öllum NBI"
#: standalone/drakTermServ:880
-#, fuzzy, c-format
+#, c-format
msgid "Building images for kernel:"
-msgstr "Bý til net-ræsi-ímyndir fyrir alla kjarna"
+msgstr "Bý til ímyndir fyrir kjarna:"
#: standalone/drakTermServ:1004
#, c-format
@@ -19717,9 +19729,9 @@ msgid "Graphical boot theme selection"
msgstr "Grafískt ræsiþema"
#: standalone/drakboot:149
-#, fuzzy, c-format
+#, c-format
msgid "Graphical boot mode:"
-msgstr "Grafískt ræsiþema"
+msgstr "Grafískur ræsihamur:"
#: standalone/drakboot:151
#, c-format
@@ -21026,19 +21038,19 @@ msgid "Please add an host to be able to modify it."
msgstr ""
#: standalone/drakhosts:108
-#, fuzzy, c-format
+#, c-format
msgid "Please modify information"
-msgstr "Vinsamlega %s upplýsingar"
+msgstr "Vinsamlega breyttu upplýsingum"
#: standalone/drakhosts:109
-#, fuzzy, c-format
+#, c-format
msgid "Please delete information"
-msgstr "Vinsamlega %s upplýsingar"
+msgstr "Vinsamlega eyddu upplýsingum"
#: standalone/drakhosts:110
-#, fuzzy, c-format
+#, c-format
msgid "Please add information"
-msgstr "Vinsamlega %s upplýsingar"
+msgstr "Vinsamlega bættu við upplýsingum"
#: standalone/drakhosts:115
#, c-format
@@ -21091,9 +21103,9 @@ msgid "Failed to remove host."
msgstr "Tókst ekki að fjarlægja vél."
#: standalone/drakids:26
-#, fuzzy, c-format
+#, c-format
msgid "Allowed addresses"
-msgstr "Leyfa öllum notendum"
+msgstr "Leyfð vistföng"
#: standalone/drakids:57
#, c-format
@@ -21101,9 +21113,9 @@ msgid "Log"
msgstr "Annálar"
#: standalone/drakids:61
-#, fuzzy, c-format
+#, c-format
msgid "Clear logs"
-msgstr "Hreinsa allt"
+msgstr "Hreinsa annála"
#: standalone/drakids:65 standalone/net_applet:439
#, c-format
@@ -21111,9 +21123,9 @@ msgid "Blacklist"
msgstr ""
#: standalone/drakids:69
-#, fuzzy, c-format
+#, c-format
msgid "Remove from blacklist"
-msgstr "Taka úr LVM"
+msgstr "Fjarlægja úr svartlista"
#: standalone/drakids:70
#, c-format
@@ -21126,16 +21138,16 @@ msgid "Whitelist"
msgstr ""
#: standalone/drakids:78
-#, fuzzy, c-format
+#, c-format
msgid "Remove from whitelist"
-msgstr "Taka úr LVM"
+msgstr "Fjarlægja úr vinalista"
#: standalone/drakids:134 standalone/drakids:160 standalone/drakids:169
#: standalone/drakids:179 standalone/drakids:246 standalone/drakroam:140
#: standalone/net_applet:180 standalone/net_applet:354
-#, fuzzy, c-format
+#, c-format
msgid "Unable to contact daemon"
-msgstr "Get ekki tengst spegilvél %s"
+msgstr "Get ekki tengst þjónustu"
#: standalone/drakids:191
#, c-format
@@ -21143,14 +21155,14 @@ msgid "Date"
msgstr "Dagsetning"
#: standalone/drakids:192
-#, fuzzy, c-format
+#, c-format
msgid "Attacker"
-msgstr "Árásarupplýsingar"
+msgstr "Árásaraðili"
#: standalone/drakids:193
-#, fuzzy, c-format
+#, c-format
msgid "Attack type"
-msgstr "Árásartegund: %s"
+msgstr "Árásartegund"
#: standalone/drakids:194
#, c-format
@@ -21173,9 +21185,9 @@ msgid "map all users to anonymous user"
msgstr "varpa öllum notendum sem gestum"
#: standalone/draknfs:43
-#, fuzzy, c-format
+#, c-format
msgid "No user UID mapping"
-msgstr "Vörpun á ID notanda"
+msgstr "Engin vörpun á UID notanda"
#: standalone/draknfs:44
#, c-format
@@ -21255,7 +21267,7 @@ msgstr ""
"eða `/22' bætt við grunn-IP-tölu staðarnetsins.\n"
#: standalone/draknfs:151
-#, fuzzy, c-format
+#, c-format
msgid ""
"<span weight=\"bold\">User ID options</span>\n"
"\n"
@@ -21279,21 +21291,20 @@ msgid ""
"<span foreground=\"royalblue3\">anonuid and anongid:</span> explicitly set "
"the uid and gid of the anonymous account.\n"
msgstr ""
-"<span weight=\"bold\">Valkostir notanda</span>\n"
+"<span weight=\"bold\">Valkostir notanda-auðkennis (UID)</span>\n"
"\n"
"\n"
-"<span foreground=\"royalblue3\">root_squash:</span> varpar beiðnum frá uid/"
-"gid 0 (venjul. root) yfir á uid/gid gestanotanda.\n"
+"<span foreground=\"royalblue3\">varpa root notanda sem gesti:</span> varpar beiðnum frá uid/gid 0 (venjul. root) yfir á uid/gid gestanotanda (root_squash).\n"
"\n"
"\n"
-"<span foreground=\"royalblue3\">no_root_squash:</span> slökkva á "
+"<span foreground=\"royalblue3\">leyfa raunverulega root aðgang:</span> slökkva á "
"'root_squash'. Þessi valkostur er aðallega nytsamur fyrir disklausa "
-"biðlara.\n"
+"biðlara (no_root_squash).\n"
"\n"
"\n"
-"<span foreground=\"royalblue3\">all_squash:</span> varpa öllum auðkennum "
-"notanda og hópa yfir á gestanotanda. Handhægt fyrir opnar NFS-möppur, frétta-"
-"safnmöppur, o.s.frv. Andstæðan er no_all_squash, sem er sjálfgefin.\n"
+"<span foreground=\"royalblue3\">varpa öllum notendum sem gestanotanda:</span> "
+"varpa öllum auðkennum notanda og hópa yfir á gestanotanda. Handhægt fyrir "
+"opnar NFS-möppur, frétta-safnmöppur, o.s.frv. Andstæðan er (no_all_squash), sem er sjálfgefin.\n"
"\n"
"\n"
"<span foreground=\"royalblue3\">anonuid og anongid:</span> tiltaka "
@@ -21360,9 +21371,9 @@ msgid "Please add an NFS share to be able to modify it."
msgstr ""
#: standalone/draknfs:378
-#, fuzzy, c-format
+#, c-format
msgid "Advanced Options Help"
-msgstr "Hjálp ítarlegri valkostir"
+msgstr "Hjálp - ítarlegri valkostir"
#: standalone/draknfs:389
#, c-format
@@ -21760,7 +21771,7 @@ msgstr ""
#: standalone/drakroam:115
#, c-format
msgid "DNS server"
-msgstr ""
+msgstr "DNS miðlari"
#: standalone/drakroam:166
#, c-format
@@ -21774,7 +21785,7 @@ msgid "Refresh"
msgstr "Endurnýja"
#: standalone/draksambashare:62
-#, fuzzy, c-format
+#, c-format
msgid "Share directory"
msgstr "Miðla möppu"
@@ -21784,9 +21795,9 @@ msgid "Comment"
msgstr "Athugasemd"
#: standalone/draksambashare:64 standalone/draksambashare:97
-#, fuzzy, c-format
+#, c-format
msgid "Browseable"
-msgstr "Flakka"
+msgstr "Sýnilegt"
#: standalone/draksambashare:65
#, c-format
@@ -21799,65 +21810,65 @@ msgid "Writable"
msgstr "Skrifanlegt"
#: standalone/draksambashare:67 standalone/draksambashare:143
-#, fuzzy, c-format
+#, c-format
msgid "Create mask"
-msgstr "Búa til"
+msgstr "Öryggis-maski"
#: standalone/draksambashare:68 standalone/draksambashare:144
-#, fuzzy, c-format
+#, c-format
msgid "Directory mask"
-msgstr "Mappa"
+msgstr "Möppu-öryggis-maski"
#: standalone/draksambashare:69
-#, fuzzy, c-format
+#, c-format
msgid "Read list"
-msgstr "Lesa"
+msgstr "Lestrarlisti"
#: standalone/draksambashare:70 standalone/draksambashare:103
#: standalone/draksambashare:602
-#, fuzzy, c-format
+#, c-format
msgid "Write list"
-msgstr "Skrifa"
+msgstr "Skriflisti"
#: standalone/draksambashare:71 standalone/draksambashare:135
-#, fuzzy, c-format
+#, c-format
msgid "Admin users"
-msgstr "Bæta við notanda"
+msgstr "Kerfisstjórar"
#: standalone/draksambashare:72 standalone/draksambashare:136
-#, fuzzy, c-format
+#, c-format
msgid "Valid users"
-msgstr "Bæta við notanda"
+msgstr "Gildir notendur"
#: standalone/draksambashare:73
-#, fuzzy, c-format
+#, c-format
msgid "Inherit Permissions"
-msgstr "Aðgangsheimildir"
+msgstr "Erfa aðgangsheimildir"
#: standalone/draksambashare:74 standalone/draksambashare:137
-#, fuzzy, c-format
+#, c-format
msgid "Hide dot files"
-msgstr "Fela skrár"
+msgstr "Fela punktaskrár"
#: standalone/draksambashare:76 standalone/draksambashare:142
-#, fuzzy, c-format
+#, c-format
msgid "Preserve case"
-msgstr "Valkostir"
+msgstr "Varðveita há/lág-stafi"
#: standalone/draksambashare:77
-#, fuzzy, c-format
+#, c-format
msgid "Force create mode"
-msgstr "Þín tegund prentara"
+msgstr "Þvinga aðgangs-maska"
#: standalone/draksambashare:78
-#, fuzzy, c-format
+#, c-format
msgid "Force group"
-msgstr "PFS hópur"
+msgstr "Þvinga hóp"
#: standalone/draksambashare:79 standalone/draksambashare:141
-#, fuzzy, c-format
+#, c-format
msgid "Default case"
-msgstr "Sjálfgefinn notandi"
+msgstr "Sjálfgefið stafsetur"
#: standalone/draksambashare:94
#, c-format
@@ -21886,9 +21897,9 @@ msgstr ""
#: standalone/draksambashare:104 standalone/draksambashare:145
#: standalone/draksambashare:603
-#, fuzzy, c-format
+#, c-format
msgid "Inherit permissions"
-msgstr "Aðgangsheimildir"
+msgstr "Erfa aðgangsheimildir"
#: standalone/draksambashare:106
#, c-format
@@ -21901,19 +21912,19 @@ msgid "Use client driver"
msgstr ""
#: standalone/draksambashare:133
-#, fuzzy, c-format
+#, c-format
msgid "Read List"
-msgstr "Fjarlægja lista"
+msgstr "Lestrarlisti"
#: standalone/draksambashare:134
-#, fuzzy, c-format
+#, c-format
msgid "Write List"
-msgstr "Skrifa"
+msgstr "Skriflisti"
#: standalone/draksambashare:139
-#, fuzzy, c-format
+#, c-format
msgid "Force Group"
-msgstr "Hópur"
+msgstr "Þvinga hóp"
#: standalone/draksambashare:140
#, c-format
@@ -21936,19 +21947,19 @@ msgid ""
msgstr ""
#: standalone/draksambashare:180
-#, fuzzy, c-format
+#, c-format
msgid "Samba server"
msgstr "Samba Miðlari"
#: standalone/draksambashare:180
-#, fuzzy, c-format
+#, c-format
msgid "Restarting/Reloading Samba server..."
-msgstr "Endurræsi/Endurstilli NFS miðlara..."
+msgstr "Endurræsi/Endurstilli Samba miðlara..."
#: standalone/draksambashare:181
-#, fuzzy, c-format
+#, c-format
msgid "Error Restarting/Reloading Samba server"
-msgstr "Villa við Endurræsingu/Endurstillingu NFS miðlara"
+msgstr "Villa við Endurræsingu/Endurstillingu Samba miðlara"
#: standalone/draksambashare:367
#, c-format
@@ -21961,9 +21972,9 @@ msgid "Goal of this wizard is to easily create a new Samba share."
msgstr ""
#: standalone/draksambashare:372
-#, fuzzy, c-format
+#, c-format
msgid "Name of the share:"
-msgstr "Nafn skírteinis"
+msgstr "Nafn miðlaðs svæðis:"
#: standalone/draksambashare:373 standalone/draksambashare:587
#: standalone/draksambashare:768
@@ -21982,17 +21993,19 @@ msgid ""
"Share with the same name already exist or share name empty, please choose "
"another name."
msgstr ""
+"Svæði með sama nafni er þegar til eða nafn svæðis er autt, vinsamlega veldu "
+"annað nafn."
#: standalone/draksambashare:383 standalone/draksambashare:389
#, c-format
msgid "Can't create the directory, please enter a correct path."
-msgstr ""
+msgstr "Get ekki búið til möppu, vinsamlega sláðu inn rétta slóð."
#: standalone/draksambashare:386 standalone/draksambashare:623
#: standalone/draksambashare:790
-#, fuzzy, c-format
+#, c-format
msgid "Please enter a Comment for this share."
-msgstr "Vinsamlega gefið upp möppu sem á að miðla."
+msgstr "Vinsamlega gefðu upp lýsingu á þessu svæði."
#: standalone/draksambashare:417
#, c-format
@@ -22052,14 +22065,14 @@ msgid "Printer name:"
msgstr "Heiti prentara:"
#: standalone/draksambashare:592 standalone/draksambashare:773
-#, fuzzy, c-format
+#, c-format
msgid "Writable:"
-msgstr "Skrifa"
+msgstr "Skrifanlegt:"
#: standalone/draksambashare:593 standalone/draksambashare:774
-#, fuzzy, c-format
+#, c-format
msgid "Browseable:"
-msgstr "Flakka"
+msgstr "Sýnilegt:"
#: standalone/draksambashare:598
#, c-format
@@ -22074,12 +22087,12 @@ msgstr ""
#: standalone/draksambashare:604
#, c-format
msgid "Guest ok:"
-msgstr ""
+msgstr "Gestir OK:"
#: standalone/draksambashare:605
#, c-format
msgid "Create mode:"
-msgstr ""
+msgstr "Aðgangs-maski:"
#: standalone/draksambashare:609
#, c-format
@@ -22114,52 +22127,54 @@ msgstr ""
#: standalone/draksambashare:696
#, c-format
msgid "Please add or select a Samba share to be able to modify it."
-msgstr ""
+msgstr "Vinsamlega bættu við eða veldu Samba miðlað svæði svo hægt sé að breyta því."
#: standalone/draksambashare:719
-#, fuzzy, c-format
+#, c-format
msgid "Samba user access"
-msgstr "Samba Miðlari"
+msgstr "Samba notendaðagangur"
#: standalone/draksambashare:727
-#, fuzzy, c-format
+#, c-format
msgid "Mask options"
-msgstr "Grunnvalkostir"
+msgstr "Valkostir öryggis-maska"
#: standalone/draksambashare:741
-#, fuzzy, c-format
+#, c-format
msgid "Display options"
-msgstr "Stilla handvirkt"
+msgstr "Sýna valkosti"
#: standalone/draksambashare:763
-#, fuzzy, c-format
+#, c-format
msgid "Samba share directory"
-msgstr "Miðla möppu"
+msgstr "Miðluð Samba mappa"
#: standalone/draksambashare:766
-#, fuzzy, c-format
+#, c-format
msgid "Share name:"
-msgstr "Sameignarheiti"
+msgstr "Nafn miðlaðrar möppu:"
#: standalone/draksambashare:772
#, c-format
msgid "Public:"
-msgstr ""
+msgstr "Almennt:"
#: standalone/draksambashare:796
#, c-format
msgid "Create mask, create mode and directory mask should be numeric. ie: 0755."
msgstr ""
+"Aðgangs-maski, 'create mode' og 'directory mask' ættu að vera tala. "
+"þ.e. 0755."
#: standalone/draksambashare:803
#, c-format
msgid "Please create this Samba user: %s"
-msgstr ""
+msgstr "Vinsamlega búðu til þennann Samba notanda: %s"
#: standalone/draksambashare:926
#, c-format
msgid "User information"
-msgstr ""
+msgstr "Notandaupplýsingar"
#: standalone/draksambashare:928
#, c-format
@@ -22172,19 +22187,19 @@ msgid "Password:"
msgstr "Lykilorð:"
#: standalone/draksambashare:1129
-#, fuzzy, c-format
+#, c-format
msgid "Failed to add Samba share."
-msgstr "Tókst ekki að bæta við NFS miðli."
+msgstr "Tókst ekki að bæta við Samba miðli."
#: standalone/draksambashare:1138
-#, fuzzy, c-format
+#, c-format
msgid "Failed to Modify Samba share."
-msgstr "Mistókst að breyta NFS miðli."
+msgstr "Mistókst að breyta Samba miðli."
#: standalone/draksambashare:1147
-#, fuzzy, c-format
+#, c-format
msgid "Failed to remove a Samba share."
-msgstr "Mistókst að fjarlægja NFS miðlun."
+msgstr "Mistókst að fjarlægja Samba miðlun."
#: standalone/draksambashare:1154
#, c-format
@@ -22247,9 +22262,9 @@ msgid "Samba Users"
msgstr ""
#: standalone/draksambashare:1247
-#, fuzzy, c-format
+#, c-format
msgid "DrakSamba manage Samba shares"
-msgstr "DrakNFS sér um NFS miðlun"
+msgstr "DrakSamba sér um Samba miðlun"
#: standalone/draksec:49
#, c-format
@@ -25516,19 +25531,19 @@ msgid "Always launch on startup"
msgstr "Ræsa alltaf þegar kveikt á vél"
#: standalone/net_applet:314
-#, fuzzy, c-format
+#, c-format
msgid "Wireless networks"
-msgstr "Sýsla með þráðlaus net"
+msgstr "Þráðlaus net"
#: standalone/net_applet:398
-#, fuzzy, c-format
+#, c-format
msgid "Interactive Firewall: intrusion detected"
msgstr "Active Firewall: árás skynjuð"
#: standalone/net_applet:411
-#, fuzzy, c-format
+#, c-format
msgid "What do you want to do with this attacker?"
-msgstr "Viltu setja árásaraðilann á svartan lista?"
+msgstr "Hvað viltu gera við árásaraðilann?"
#: standalone/net_applet:414
#, c-format
@@ -25765,9 +25780,9 @@ msgid "/_Configure CUPS"
msgstr "/Stilla _CUPS"
#: standalone/printerdrake:171
-#, fuzzy, c-format
+#, c-format
msgid "/Configure _Auto Administration"
-msgstr "Fjarvinnsla"
+msgstr "/Stilla sjálfvirka _kerfisstjórnun"
#: standalone/printerdrake:194
#, c-format
generated by cgit v1.2.1 (git 2.21.0) at 2026-03-08 00:59:43 +0000
#n1508'>1508 1509 1510 1511 1512 1513 1514 1515 1516 1517 1518 1519 1520 1521 1522 1523 1524 1525 1526 1527 1528 1529 1530 1531 1532 1533 1534 1535 1536 1537 1538 1539 1540 1541 1542 1543 1544 1545 1546 1547 1548 1549 1550 1551 1552 1553 1554 1555 1556 1557 1558 1559 1560 1561 1562 1563 1564 1565 1566 1567 1568 1569 1570 1571 1572 1573 1574 1575 1576 1577 1578 1579 1580 1581 1582 1583 1584 1585 1586 1587 1588 1589 1590 1591 1592 1593 1594 1595 1596 1597 1598 1599 1600 1601 1602 1603 1604 1605 1606 1607 1608 1609 1610 1611 1612 1613 1614 1615 1616 1617 1618 1619 1620 1621 1622 1623 1624 1625 1626 1627 1628 1629 1630 1631 1632 1633 1634 1635 1636 1637 1638 1639 1640 1641 1642 1643 1644 1645 1646 1647 1648 1649 1650 1651 1652 1653 1654 1655 1656 1657 1658 1659 1660 1661 1662 1663 1664 1665 1666 1667 1668 1669 1670 1671 1672 1673 1674 1675 1676 1677 1678 1679 1680 1681 1682 1683 1684 1685 1686 1687 1688 1689 1690 1691 1692 1693 1694 1695 1696 1697 1698 1699 1700 1701 1702 1703 1704 1705 1706 1707 1708 1709 1710 1711 1712 1713 1714 1715 1716 1717 1718 1719 1720 1721 1722 1723 1724 1725 1726 1727 1728 1729 1730 1731 1732 1733 1734 1735 1736 1737 1738 1739 1740 1741 1742 1743 1744 1745 1746 1747 1748 1749 1750 1751 1752 1753 1754 1755 1756 1757 1758 1759 1760 1761 1762 1763 1764 1765 1766 1767 1768 1769 1770 1771 1772 1773 1774 1775 1776 1777 1778 1779 1780 1781 1782 1783 1784 1785 1786 1787 1788 1789 1790 1791 1792 1793 1794 1795 1796 1797 1798 1799 1800 1801 1802 1803 1804 1805 1806 1807 1808 1809 1810 1811 1812 1813 1814 1815 1816 1817 1818 1819 1820 1821 1822 1823 1824 1825 1826 1827 1828 1829 1830 1831 1832 1833 1834 1835 1836 1837 1838 1839 1840 1841 1842 1843 1844 1845 1846 1847 1848 1849 1850 1851 1852 1853 1854 1855 1856 1857 1858 1859 1860 1861 1862 1863 1864 1865 1866 1867 1868 1869 1870 1871 1872 1873 1874 1875 1876 1877 1878 1879 1880 1881 1882 1883 1884 1885 1886 1887 1888 1889 1890 1891 1892 1893 1894 1895 1896 1897 1898 1899 1900 1901 1902 1903 1904 1905 1906 1907 1908 1909 1910 1911 1912 1913 1914 1915 1916 1917 1918 1919 1920 1921 1922 1923 1924 1925 1926 1927 1928 1929 1930 1931 1932 1933 1934 1935 1936 1937 1938 1939 1940 1941 1942 1943 1944 1945 1946 1947 1948 1949 1950 1951 1952 1953 1954 1955 1956 1957 1958 1959 1960 1961 1962 1963 1964 1965 1966 1967 1968 1969 1970 1971 1972 1973 1974 1975 1976 1977 1978 1979 1980 1981 1982 
package bootloader; # $Id$

use diagnostics;
use strict;

#-######################################################################################
#- misc imports
#-######################################################################################
use common;
use fs::type;
use fs::get;
use fs::loopback;
use fs::proc_partitions;
use log;
use any;
use devices;
use detect_devices;
use partition_table::raw;
use run_program;
use modules;

#-#####################################################################################
#- Functions
#-#####################################################################################
my $vmlinuz_regexp = 'vmlinuz|win4lin';
my $decompose_vmlinuz_name = qr/((?:$vmlinuz_regexp).*?)-(\d+\.\d+.*)/;

sub expand_vmlinuz_symlink {
    my ($vmlinuz) = @_;
    my $f = $::prefix . ($vmlinuz =~ m!^/! ? $vmlinuz : "/boot/$vmlinuz");
    -l $f ? readlink($f) : $vmlinuz;
}

sub installed_vmlinuz_raw() { grep { /^($vmlinuz_regexp)/ } all("$::prefix/boot") }
sub installed_vmlinuz() { grep { ! -l "$::prefix/boot/$_" } installed_vmlinuz_raw() }
sub vmlinuz2version {
    my ($vmlinuz) = @_;
    expand_vmlinuz_symlink($vmlinuz) =~ /$decompose_vmlinuz_name/ && $2;
}
sub vmlinuz2kernel_str {
    my ($vmlinuz) = @_;
    my ($basename, $version) = expand_vmlinuz_symlink($vmlinuz) =~ /$decompose_vmlinuz_name/ or return;
    { 
	basename => $basename,
	version => $version, 
	$version =~ /(.*)-(\D.*)-(\d+(mdk|mdv|mnb))$/ ? #- eg: 2.6.22.5-server-1mdv
	  (ext => $2, version_no_ext => "$1-$3") :
	$version =~ /(.*md[kv])-?(.*)/ ? #- (old) eg: 2.6.17-13mdventerprise
	  (ext => $2, version_no_ext => $1) : (version_no_ext => $version),
    };
}

sub kernel_str2short_name {
    my ($kernel) = @_;
    $kernel->{ext} =~ /^xen/ ? 'xen' : $kernel->{basename};
}

sub basename2initrd_basename {
    my ($basename) = @_;
    $basename =~ s!vmlinuz-?!!; #- here we do not use $vmlinuz_regexp since we explictly want to keep all that is not "vmlinuz"
    'initrd' . ($basename ? "-$basename" : '');    
}
sub kernel_str2vmlinuz_long {
    my ($kernel) = @_;
    $kernel->{basename} . '-' . $kernel->{version};
}
sub kernel_str2initrd_long {
    my ($kernel) = @_;
    basename2initrd_basename(kernel_str2short_name($kernel)) . '-' . $kernel->{version} . '.img';
}
sub kernel_str2vmlinuz_short {
    my ($kernel) = @_;
    if ($kernel->{use_long_name}) {
	kernel_str2vmlinuz_long($kernel);
    } else {
	kernel_str2short_name($kernel);
    }
}
sub kernel_str2initrd_short {
    my ($kernel) = @_;
    if ($kernel->{use_long_name}) {
	kernel_str2initrd_long($kernel);
    } else {
	basename2initrd_basename(kernel_str2short_name($kernel)) . '.img';
    }
}

sub kernel_str2label {
    my ($kernel, $o_use_long_name) = @_;
    if ($o_use_long_name || $kernel->{use_long_name}) {
	_sanitize_ver($kernel);
    } else {
	my $short_name = kernel_str2short_name($kernel);
	$short_name eq 'vmlinuz' ? 'linux' : $short_name;
    }
}

sub get {
    my ($vmlinuz, $bootloader) = @_;
    $_->{kernel_or_dev} && $_->{kernel_or_dev} eq $vmlinuz and return $_ foreach @{$bootloader->{entries}};
    undef;
}
sub get_label {
    my ($label, $bootloader) = @_;
    $_->{label} && lc(make_label_lilo_compatible($_->{label})) eq lc(make_label_lilo_compatible($label)) and return $_ foreach @{$bootloader->{entries}};
    undef;
}

sub mkinitrd {
    my ($kernel_version, $bootloader, $entry, $initrd) = @_;

    $::testing || -e "$::prefix/$initrd" and return $initrd;

    my $loop_boot = fs::loopback::prepare_boot();

    modules::load('loop');
    my @options = (
		   if_($::isInstall, "-v"), "-f", $initrd, "--ifneeded", $kernel_version, 
		   if_($entry->{initrd_options}, split(' ', $entry->{initrd_options})),
		  );
    if (!run_program::rooted($::prefix, 'mkinitrd', @options)) {
	unlink("$::prefix/$initrd");
	die "mkinitrd failed:\n(mkinitrd @options)";
    }
    add_boot_splash($initrd, $entry->{vga} || $bootloader->{vga});

    fs::loopback::save_boot($loop_boot);

    -e "$::prefix/$initrd" && $initrd;
}

sub rebuild_initrd {
    my ($kernel_version, $bootloader, $entry, $initrd) = @_;

    my $old = $::prefix . $entry->{initrd} . '.old';
    unlink $old;
    rename "$::prefix$initrd", $old;
    if (!mkinitrd($kernel_version, $bootloader, $entry, $initrd)) {
	log::l("rebuilding initrd failed, putting back the old one");
	rename $old, "$::prefix$initrd";
    }
}

sub remove_boot_splash {
    my ($initrd) = @_;
    run_program::rooted($::prefix, '/usr/share/bootsplash/scripts/remove-boot-splash', $initrd);
}
sub add_boot_splash {
    my ($initrd, $vga) = @_;

    $vga or return;

    eval { require Xconfig::resolution_and_depth } or return;
    if (my $res = Xconfig::resolution_and_depth::from_bios($vga)) {
	run_program::rooted($::prefix, '/usr/share/bootsplash/scripts/make-boot-splash', $initrd, $res->{X});
    } else {
	log::l("unknown vga bios mode $vga");
    }
}
sub update_splash {
    my ($bootloader) = @_;

    foreach (@{$bootloader->{entries}}) {
	bootloader::add_boot_splash($_->{initrd}, $_->{vga} || $bootloader->{vga}) if $_->{initrd};
    }
}

sub read {
    my ($all_hds) = @_;
    my $fstab = [ fs::get::fstab($all_hds) ];
    foreach my $main_method (main_method_choices()) {
	my $f = $bootloader::{"read_$main_method"} or die "unknown bootloader method $main_method (read)";
	my $bootloader = $f->($fstab);

	cleanup_entries($bootloader);

	my @devs = $bootloader->{boot};
	if ($bootloader->{'raid-extra-boot'} =~ /mbr/ && 
	    (my $md = fs::get::device2part($bootloader->{boot}, $all_hds->{raids}))) {
	    @devs = map { $_->{rootDevice} } @{$md->{disks}};
	} elsif ($bootloader->{'raid-extra-boot'} =~ m!/dev/!) {
	    @devs = split(',', $bootloader->{'raid-extra-boot'});
	}

	my ($type) = map {
	    if (m!/fd\d+$!) {
		warn "not checking the method on floppy, assuming $main_method is right\n";
		$main_method;
	    } elsif (member($main_method, qw(yaboot cromwell silo))) {
		#- not checking, there's only one bootloader anyway :)
		$main_method;
	    } elsif (my $type = partition_table::raw::typeOfMBR($_)) {
		warn "typeOfMBR $type on $_ for method $main_method\n" if $ENV{DEBUG};
		$type;
	    } else { () }
	} @devs;

	if ($type eq $main_method) {
	    my @prefered_entries = map { get_label($_, $bootloader) } $bootloader->{default}, 'linux';

	    if (my $default = find { $_ && $_->{type} eq 'image' } (@prefered_entries, @{$bootloader->{entries}})) {
		$bootloader->{default_options} = $default;
		$bootloader->{perImageAppend} ||= $default->{append};
		log::l("perImageAppend is now $bootloader->{perImageAppend}");
	    } else {
		$bootloader->{default_options} = {};
	    }
	    return $bootloader;
	}
    }
}

sub read_grub {
    my ($fstab) = @_;

    my $grub2dev = read_grub_device_map();
    my $boot_root = read_grub_install_sh();
    _may_fix_grub2dev($fstab, $grub2dev, $boot_root->{boot_part});

    my $bootloader = read_grub_menu_lst($fstab, $grub2dev) or return;

    if ($boot_root->{boot}) {
	$bootloader->{boot} = grub2dev($boot_root->{boot}, $grub2dev);
    }

    $bootloader;
}

# nb: 
# - $boot_part comes from /boot/grub/install.sh "root (hd...)" line
# - $grub2dev is /boot/grub/device.map
sub _may_fix_grub2dev {
    my ($fstab, $grub2dev, $boot_part) = @_;

    $boot_part or log::l("install.sh does not contain 'root (hd...)' line, no way to magically adapt device.map"), return;

    my $real_boot_part = fs::get::root_($fstab, 'boot') or
      log::l("argh... the fstab given is useless, it doesn't contain '/'"), return;
    
    my $real_boot_dev = $real_boot_part->{rootDevice} or return; # if /boot is on Linux RAID 1, hope things are all right...

    if (my $prev_boot_part = fs::get::device2part(grub2dev($boot_part, $grub2dev), $fstab)) { # the boot_device as far as grub config files say
	$real_boot_part == $prev_boot_part and return;
    }

    log::l("WARNING: we have detected that device.map is inconsistent with the system");

    my ($hd_grub, undef, undef) = parse_grub_file($boot_part); # extract hdX 
    if (my $prev_hd_grub = find { $grub2dev->{$_} eq $real_boot_dev } keys %$grub2dev) {
	$grub2dev->{$prev_hd_grub} = $grub2dev->{$hd_grub};
	log::l("swapping result: $hd_grub/$real_boot_dev and $prev_hd_grub/$grub2dev->{$hd_grub}");
    } else {
	log::l("argh... can't swap, setting $hd_grub to $real_boot_dev anyway");
    }
    $grub2dev->{$hd_grub} = $real_boot_dev;
}

sub read_grub_install_sh() {
    my $s = cat_("$::prefix/boot/grub/install.sh");
    my %h;

    #- matches either:
    #-   setup (hd0)
    #-   install (hd0,0)/boot/grub/stage1 d (hd0) (hd0,0)/boot/grub/stage2 p (hd0,0)/boot/grub/menu.lst
    if ($s =~ /^(?:setup.*|install\s.*\sd)\s+(\(.*?\))/m) {
	$h{boot} = $1;
    }    
    if ($s =~ /^root\s+(\(.*?\))/m) {
	$h{boot_part} = $1;
    }
    \%h;
}

sub _parse_grub_menu_lst() {
    my $global = 1;
    my ($e, %b);

    my $menu_lst_file = "$::prefix/boot/grub/menu.lst";
    -e $menu_lst_file or return;

    foreach (MDK::Common::File::cat_utf8($menu_lst_file)) {
	my $verbatim = $_;
        chomp;
	s/^\s*//; s/\s*$//;
        next if /^#/ || /^$/;
	my ($keyword, $v) = split('[ \t=]+', $_, 2) or
	  warn qq(unknown line in /boot/grub/menu.lst: "$_"\n), next;

	if ($keyword eq 'root') {
	    #- rename to avoid name conflict
	    $keyword = 'grub_root';
	}

        if ($keyword eq 'title') {
            push @{$b{entries}}, $e = { label => $v };
            $global = 0;
        } elsif ($global) {
            $b{$keyword} = $v;
        } else {
            if ($keyword eq 'kernel') {
                $e->{type} = 'image';
		$e->{kernel} = $v;
            } elsif ($keyword eq 'chainloader') {
                $e->{type} = 'other';
                $e->{append} = "";
            } elsif ($keyword eq 'configfile') {
                $e->{type} = 'grub_configfile';
                $e->{configfile} = $v;
            } elsif ($keyword eq 'map') {
		$e->{mapdrive}{$2} = $1 if $v =~ m/\((.*)\) \((.*)\)/;
            } elsif ($keyword eq 'module') {
		push @{$e->{modules}}, $v;
	    } else {
		$e->{$keyword} = $v eq '' ? 1 : $v;
	    }
        }
	$e and $e->{verbatim} .= $verbatim;
    }

    %b;
}

sub read_grub_menu_lst {
    my ($fstab, $grub2dev) = @_;

    my %b = _parse_grub_menu_lst();

    foreach my $keyword (grep { $_ ne 'entries' } keys %b) {
	$b{$keyword} = $b{$keyword} eq '' ? 1 : grub2file($b{$keyword}, $grub2dev, $fstab, \%b);
    }

    #- sanitize
    foreach my $e (@{$b{entries}}) {
	if (member($e->{type}, 'chainloader', 'configfile')) {
	    $e->{kernel_or_dev} = grub2dev($e->{rootnoverify} || $e->{grub_root}, $grub2dev);
	} elsif ($e->{initrd}) {
	    $e->{initrd} = grub2file($e->{initrd}, $grub2dev, $fstab, $e);
	}

	if ($e->{kernel} =~ /xen/ && @{$e->{modules} || []} == 2 && $e->{modules}[1] =~ /initrd/) {
	    (my $xen, $e->{xen_append}) = split(' ', $e->{kernel}, 2);
	    ($e->{kernel}, my $initrd) = @{delete $e->{modules}};
	    $e->{xen} = grub2file($xen, $grub2dev, $fstab, $e);
	    $e->{initrd} = grub2file($initrd, $grub2dev, $fstab, $e);
	}
	if (my $v = delete $e->{kernel}) {
	    (my $kernel, $e->{append}) = split(' ', $v, 2);
	    $e->{append} = join(' ', grep { !/^BOOT_IMAGE=/ } split(' ', $e->{append}));
	    $e->{root} = $1 if $e->{append} =~ s/root=(\S*)\s*//;
	    $e->{kernel_or_dev} = grub2file($kernel, $grub2dev, $fstab, $e);
	    $e->{keep_verbatim} = 1 if dirname($e->{kernel_or_dev}) ne '/boot';
	}
	my ($vga, $other) = partition { /^vga=/ } split(' ', $e->{append});
	if (@$vga) {
	    $e->{vga} = $vga->[0] =~ /vga=(.*)/ && $1;
	    $e->{append} = join(' ', @$other);
	}
    }

    $b{nowarn} = 1;
    # handle broken installkernel -r:
    if (@{$b{entries}}) {
	$b{default} = min($b{default}, scalar(@{$b{entries}}) - 1);
	$b{default} = $b{entries}[$b{default}]{label};
    }
    $b{method} = $b{gfxmenu} ? 'grub-graphic' :  'grub-menu';

    \%b;
}

sub yaboot2dev {
    my ($of_path) = @_;
    find { dev2yaboot($_) eq $of_path } map { "/dev/$_->{dev}" } fs::proc_partitions::read_raw();
}

# assumes file is in /boot
# to do: use yaboot2dev for files as well
#- example of of_path: /pci@f4000000/ata-6@d/disk@0:3,/initrd-2.6.8.1-8mdk.img
sub yaboot2file {
    my ($of_path) = @_;
    
    if ($of_path =~ /,/) {
	"$::prefix/boot/" . basename($of_path);
    } else {
	yaboot2dev($of_path);
    }
}

sub read_silo() {
    my $bootloader = read_lilo_like("/boot/silo.conf", sub {
					my ($f) = @_;
					"/boot$f";
				    });
    $bootloader->{method} = 'silo';
    $bootloader;
}
sub read_cromwell() {
    my %b;
    $b{method} = 'cromwell';
    \%b;
}
sub read_yaboot() { 
    my $bootloader = read_lilo_like("/etc/yaboot.conf", \&yaboot2file);
    $bootloader->{method} = 'yaboot';
    $bootloader;
}
sub read_lilo() {
    my $bootloader = read_lilo_like("/etc/lilo.conf", sub { $_[0] });

    delete $bootloader->{timeout} unless $bootloader->{prompt};
    $bootloader->{timeout} = $bootloader->{timeout} / 10 if $bootloader->{timeout};

    my $submethod = member($bootloader->{install}, 'text', 'menu') ? $bootloader->{install} : 'menu';
    $bootloader->{method} = "lilo-$submethod";
    
    $bootloader;
}
sub read_lilo_like {
    my ($file, $filter_file) = @_;

    my $global = 1;
    my ($e);
    my %b;
    -e "$::prefix$file" or return;
    foreach my $line (cat_("$::prefix$file")) {
	next if $line =~ /^\s*#/ || $line =~ /^\s*$/;
	my ($cmd, $v) = $line =~ /^\s*([^=\s]+)\s*(?:=\s*(.*?))?\s*$/ or log::l("unknown line in $file: $line"), next;

	if ($cmd =~ /^(?:image|other|macos|macosx|bsd|darwin)$/) {
	    $v = $filter_file->($v);
	    push @{$b{entries}}, $e = { type => $cmd, kernel_or_dev => $v };
	    $global = 0;
	} elsif ($global) {
	    if ($cmd eq 'disk' && $v =~ /(\S+)\s+bios\s*=\s*(\S+)/) {
		$b{bios}{$1} = $2;
	    } elsif ($cmd eq 'bios') {
		$b{bios}{$b{disk}} = $v;
	    } elsif ($cmd eq 'init-message') {
		$v =~ s/\\n//g; 
		$v =~ s/"//g;
		$b{'init-message'} = $v;
	    } else {
		$b{$cmd} = $v eq '' ? 1 : $v;
	    }
	} else {
	    if (($cmd eq 'map-drive' .. $cmd eq 'to') && $cmd eq 'to') {
		$e->{mapdrive}{$e->{'map-drive'}} = $v;
	    } else {
		if ($cmd eq 'initrd') {
		    $v = $filter_file->($v);
		}
		$e->{$cmd} = $v || 1;
	    }
	}
    }

    sub remove_quotes_and_spaces {
	local ($_) = @_;
	s/^\s*//; s/\s*$//;
	s/^"(.*?)"$/$1/;
	s/\\"/"/g;
	s/^\s*//; s/\s*$//; #- do it again for append=" foo"
	$_;
    }

    foreach ('append', 'root', 'default', 'raid-extra-boot') {
	$b{$_} = remove_quotes_and_spaces($b{$_}) if $b{$_};
    }
    foreach my $entry (@{$b{entries}}) {
	foreach ('append', 'root', 'label') {
	    $entry->{$_} = remove_quotes_and_spaces($entry->{$_}) if $entry->{$_};
	}
	if ($entry->{kernel_or_dev} =~ /\bmbootpack\b/) {
	    $entry->{initrd} = $entry->{kernel_or_dev};
	    $entry->{initrd} =~ s/\bmbootpack/initrd/;
	    $entry->{kernel_or_dev} =~ s/\bmbootpack/vmlinuz/;
	    $entry->{kernel_or_dev} =~ s/.img$//;
	    #- assume only xen is configured with mbootpack
	    $entry->{xen} = '/boot/xen.gz';
	    $entry->{root} = $1 if $entry->{append} =~ s/root=(\S*)\s*//;
	    ($entry->{xen_append}, $entry->{append}) = split '\s*--\s*', $entry->{append}, 2;
	}
    }

    # cleanup duplicate labels (in case file is corrupted)
    @{$b{entries}} = uniq_ { $_->{label} } @{$b{entries}};

    \%b;
}

sub cleanup_entries {
    my ($bootloader) = @_;

    #- cleanup bad entries (in case file is corrupted)
    @{$bootloader->{entries}} = 
	grep { 
	    my $pb = $_->{type} eq 'image' && !$_->{keep_verbatim} && ! -e "$::prefix$_->{kernel_or_dev}";
	    log::l("dropping bootloader entry $_->{label} since $_->{kernel_or_dev} doesn't exist") if $pb;
	    !$pb;
	} @{$bootloader->{entries}};
}

sub suggest_onmbr {
    my ($hd) = @_;
    
    my ($onmbr, $unsafe) = (1, 1);

    if (my $type = partition_table::raw::typeOfMBR($hd->{device})) {
	if (member($type, qw(dos dummy empty))) {
	    $unsafe = 0;
	} elsif (!member($type, qw(lilo grub))) {
	    $onmbr = 0;
	}
	log::l("bootloader::suggest_onmbr: type $type, onmbr $onmbr, unsafe $unsafe");
    }
    ($onmbr, $unsafe);
}

sub allowed_boot_parts {
    my ($bootloader, $all_hds) = @_;
    (
     @{$all_hds->{hds}},
     if_($bootloader->{method} =~ /lilo/,
	 grep { $_->{level} eq '1' } @{$all_hds->{raids}}
	),
     (grep { !isFat_or_NTFS($_) } fs::get::fstab($all_hds)),
     detect_devices::floppies(),
    );
}

sub same_entries {
    my ($a, $b) = @_;

    foreach (uniq(keys %$a, keys %$b)) {
	if (member($_, 'label', 'append', 'mapdrive', 'readonly', 'makeactive', 'verbatim')) {
	    next;
	} elsif ($_ eq 'grub_root' && (!$a->{$_} || !$b->{$_})) {
	    #- grub_root is mostly internal stuff. if it misses, it's ok
	    next;
	} else {
	    next if $a->{$_} eq $b->{$_};

	    my ($inode_a, $inode_b) = map { (stat "$::prefix$_")[1] } ($a->{$_}, $b->{$_});
	    next if $inode_a && $inode_b && $inode_a == $inode_b;
	}

	log::l("entries $a->{label} do not have same $_: $a->{$_} ne $b->{$_}");
	return;
    }
    1;
}

sub add_entry {
    my ($bootloader, $v) = @_;

    my $to_add = $v;
    my $label = $v->{label};
    for (my $i = 0; $i < 10;) {
	my $conflicting = get_label($label, $bootloader);

	$to_add->{label} = $label;

	if ($conflicting) {
	    #- replacing $conflicting with $to_add
	    @{$bootloader->{entries}} = map { $_ == $conflicting ? $to_add : $_ } @{$bootloader->{entries}};

	    #- we will keep $conflicting, but not with same symlinks if used by the entry to add
	    expand_entry_symlinks($bootloader, $conflicting);
	} else {
	    #- we have found an unused label
	    push @{$bootloader->{entries}}, $to_add;
	}

	if (!$conflicting || same_entries($conflicting, $to_add)) {
	    log::l("current labels: " . join(" ", map { $_->{label} } @{$bootloader->{entries}}));
	    return $v;
	}
	$to_add = $conflicting;

	if ($to_add->{label} eq 'linux') {
	    $label = kernel_str2label(vmlinuz2kernel_str($to_add->{kernel_or_dev}), 'use_long_name');
	} else {
	    $label =~ s/^alt\d*_//;
	    $label = 'alt' . ($i++ ? $i : '') . "_$label";
	}
    }
    die 'add_entry';
}

sub expand_entry_symlinks {
    my ($bootloader, $entry) = @_;

    foreach my $kind ('kernel_or_dev', 'initrd') {
	my $old_long_name = $bootloader->{old_long_names} && $bootloader->{old_long_names}{$entry->{$kind}} or next;

	#- replace all the {$kind} using this symlink to the real file
	log::l("replacing $entry->{$kind} with $old_long_name for bootloader label $entry->{label}");
	$entry->{$kind} = $old_long_name;
    }
}

sub _do_the_symlink {
    my ($bootloader, $link, $long_name) = @_;

    my $existing_link = readlink("$::prefix$link");
    if ($existing_link && $existing_link eq $long_name) {
	#- nothing to do :)
	return;
    }

    if ($existing_link) {
	#- the symlink is going to change! 
	#- replace all the {$kind} using this symlink to the real file
	my $old_long_name = $existing_link =~ m!^/! ? $existing_link : "/boot/$existing_link";
	if (-e "$::prefix$old_long_name") {
	    $bootloader->{old_long_names}{$link} = $old_long_name;
	} else {
	    log::l("ERROR: $link points to $old_long_name which does not exist");
	}
    } elsif (-e "$::prefix$link") {
	log::l("ERROR: $link is not a symbolic link");
    }

    #- changing the symlink
    symlinkf($long_name, "$::prefix$link")
      or cp_af("$::prefix/boot/$long_name", "$::prefix$link");
}

sub cmp_kernel_versions {
    my ($va, $vb) = @_;
    my $rel_a = $va =~ s/-(.*)$// && $1;
    my $rel_b = $vb =~ s/-(.*)$// && $1;
    ($va, $vb) = map { [ split /[.-]/ ] } $va, $vb;
    my $r = 0;
    mapn_ {
	$r ||= $_[0] <=> $_[1];
    } $va, $vb;
    $r || $rel_a <=> $rel_b || $rel_a cmp $rel_b;
}

sub get_mbootpack_filename {
    my ($entry) = @_;
    my $mbootpack_file = $entry->{initrd};
    $mbootpack_file =~ s/\binitrd/mbootpack/;
    $entry->{xen} && $mbootpack_file;
}

sub build_mbootpack {
    my ($entry) = @_;

    my $mbootpack = '/usr/bin/mbootpack';
    -f $::prefix . $entry->{kernel_or_dev} && -f $::prefix . $entry->{initrd} or return;

    my $mbootpack_file = get_mbootpack_filename($entry);
    -f ($::prefix . $mbootpack_file) and return 1;

    my $error;
    my $xen_kernel = '/tmp/xen_kernel';
    my $xen_vmlinux = '/tmp/xen_vmlinux';
    my $_b = before_leaving { unlink $::prefix . $_ foreach $xen_kernel, $xen_vmlinux };
    run_program::rooted($::prefix, '/bin/gzip', '>', $xen_kernel, '2>', \$error, '-dc', $entry->{xen})
      or die "unable to uncompress xen kernel";
    run_program::rooted($::prefix, '/bin/gzip', '>', $xen_vmlinux, '2>', \$error, '-dc', $entry->{kernel_or_dev})
      or die "unable to uncompress xen vmlinuz";

    run_program::rooted($::prefix, $mbootpack,
                        "2>", \$error,
                        '-o', $mbootpack_file,
                        '-m', $xen_vmlinux,
                        '-m', $entry->{initrd},
                        $xen_kernel)
      or die "mbootpack failed: $error";

    1;
}

sub add_kernel {
    my ($bootloader, $kernel_str, $v, $b_nolink, $b_no_initrd) = @_;

    #- eg: for /boot/vmlinuz-2.6.17-13mdvxen0 (pkg kernel-xen0-xxx) 
    #-      or /boot/vmlinuz-2.6.18-xen (pkg kernel-xen-uptodate)
    if ($kernel_str->{version} =~ /xen/ && -f '/boot/xen.gz') {
	$v->{xen} = '/boot/xen.gz';
    }

    add2hash($v,
	     {
	      type => 'image',
	      label => kernel_str2label($kernel_str),
	     });

    #- normalize append and handle special options
    {
	my ($simple, $dict) = unpack_append("$bootloader->{perImageAppend} $v->{append}");
	if ($v->{label} eq 'failsafe') {
	    #- perImageAppend contains resume=/dev/xxx which we don't want
	    @$dict = grep { $_->[0] ne 'resume' } @$dict;
	}
	if (-e "$::prefix/sbin/udev" && cmp_kernel_versions($kernel_str->{version_no_ext}, '2.6.8') >= 0) {
	    log::l("it is a recent kernel, so we remove any existing devfs= kernel option to enable udev");
	    @$dict = grep { $_->[0] ne 'devfs' } @$dict;
	}
	$v->{append} = pack_append($simple, $dict);
    }

    #- new versions of yaboot do not handle symlinks
    $b_nolink ||= arch() =~ /ppc/;

    $b_nolink ||= $kernel_str->{use_long_name};

    my $vmlinuz_long = kernel_str2vmlinuz_long($kernel_str);
    $v->{kernel_or_dev} = "/boot/$vmlinuz_long";
    -e "$::prefix$v->{kernel_or_dev}" or log::l("unable to find kernel image $::prefix$v->{kernel_or_dev}"), return;
    if (!$b_nolink) {
	$v->{kernel_or_dev} = '/boot/' . kernel_str2vmlinuz_short($kernel_str);
	_do_the_symlink($bootloader, $v->{kernel_or_dev}, $vmlinuz_long);
    }
    log::l("adding $v->{kernel_or_dev}");

    if (!$b_no_initrd) {
	my $initrd_long = kernel_str2initrd_long($kernel_str);
	$v->{initrd} = mkinitrd($kernel_str->{version}, $bootloader, $v, "/boot/$initrd_long");
	if ($v->{initrd} && !$b_nolink) {
	    $v->{initrd} = '/boot/' . kernel_str2initrd_short($kernel_str);
	    _do_the_symlink($bootloader, $v->{initrd}, $initrd_long);
	}
    }

    add_entry($bootloader, $v);
}

sub rebuild_initrds {
    my ($bootloader) = @_;

    my %done;
    foreach my $v (grep { $_->{initrd} } @{$bootloader->{entries}}) {
	my $kernel_str = vmlinuz2kernel_str($v->{kernel_or_dev}) or next;
	my $initrd_long = '/boot/' . kernel_str2initrd_long($kernel_str);
	next if $done{$initrd_long}++;

	rebuild_initrd($kernel_str->{version}, $bootloader, $v, $initrd_long);
    }
}

sub duplicate_kernel_entry {
    my ($bootloader, $new_label) = @_;

    get_label($new_label, $bootloader) and return;

    my $entry = { %{ get_label('linux', $bootloader) }, label => $new_label };
    add_entry($bootloader, $entry);
}

my $uniq_dict_appends = join('|', qw(acpi pci resume PROFILE XFree));

sub unpack_append {
    my ($s) = @_;
    my @l = "$s " =~ /((?:[^"\s]+|".*?")*)\s+/g;
    [ grep { !/=/ } @l ], [ map { if_(/(.*?)=(.*)/, [$1, $2]) } @l ];
}
sub pack_append {
    my ($simple, $dict) = @_;

    #- normalize
    $simple = [ reverse(uniq(reverse @$simple)) ];
    $dict = [ reverse(uniq_ { 
	my ($k, $v) = @$_; 
	$k =~ /^($uniq_dict_appends)$/ ? $k : "$k=$v";
    } reverse @$dict) ];

    join(' ', @$simple, map { "$_->[0]=$_->[1]" } @$dict);
}

sub modify_append {
    my ($b, $f) = @_;

    my @l = grep { $_->{type} eq 'image' && !$_->{keep_verbatim} && !($::isStandalone && $_->{label} eq 'failsafe') } @{$b->{entries}};

    foreach (\$b->{perImageAppend}, map { \$_->{append} } @l) {
	my ($simple, $dict) = unpack_append($$_);
	$f->($simple, $dict);
	$$_ = pack_append($simple, $dict);
	log::l("modify_append: $$_");
    }
}

sub get_append_simple {
    my ($b, $key) = @_;
    my ($simple, $_dict) = unpack_append($b->{perImageAppend});
    member($key, @$simple);
}
sub get_append_with_key {
    my ($b, $key) = @_;
    my ($_simple, $dict) = unpack_append($b->{perImageAppend});
    my @l = map { $_->[1] } grep { $_->[0] eq $key } @$dict;

    log::l("more than one $key in $b->{perImageAppend}") if @l > 1;
    $l[0];
}
sub remove_append_simple {
    my ($b, $key) = @_;
    modify_append($b, sub {
	my ($simple, $_dict) = @_;
	@$simple = grep { $_ ne $key } @$simple;
    });
}
sub set_append_with_key {
    my ($b, $key, $val) = @_;

    modify_append($b, sub {
	my ($_simple, $dict) = @_;

	if ($val eq '') {
	    @$dict = grep { $_->[0] ne $key } @$dict;
	} else {
	    push @$dict, [ $key, $val ];
	}
    });
}
sub set_append_simple {
    my ($b, $key) = @_;

    modify_append($b, sub {
	my ($simple, $_dict) = @_;
	@$simple = uniq(@$simple, $key);
    });
}
sub may_append_with_key {
    my ($b, $key, $val) = @_;
    set_append_with_key($b, $key, $val) if !get_append_with_key($b, $key);
}

sub get_append_netprofile {
    my ($e) = @_;
    my ($simple, $dict) = unpack_append($e->{append});
    my ($p, $dict_) = partition { $_->[0] eq 'PROFILE' } @$dict;
    pack_append($simple, $dict_), $p->[0][1];
}
sub set_append_netprofile {
    my ($e, $append, $profile) = @_;
    my ($simple, $dict) = unpack_append($append);
    push @$dict, [ 'PROFILE', $profile ] if $profile;
    $e->{append} = pack_append($simple, $dict);
}

sub configure_entry {
    my ($bootloader, $entry) = @_;
    $entry->{type} eq 'image' or return;

    if (my $kernel_str = vmlinuz2kernel_str($entry->{kernel_or_dev})) {
	$entry->{initrd} = 
	  mkinitrd($kernel_str->{version}, $bootloader, $entry,
		   $entry->{initrd} || '/boot/' . kernel_str2initrd_short($kernel_str));
    }
}

sub get_kernels_and_labels_before_kernel_remove {
    my ($to_remove_kernel) = @_;
    my @kernels = grep { $_ ne $to_remove_kernel } installed_vmlinuz();
    map { kernel_str2label($_) => $_ } get_kernel_labels(\@kernels);
}

sub get_kernels_and_labels {
    my ($b_prefer_24) = @_;
    get_kernel_labels([ installed_vmlinuz() ], $b_prefer_24);
}

sub get_kernel_labels {
    my ($kernels, $b_prefer_24) = @_;
    
    my @kernels_str = 
      sort { cmp_kernel_versions($b->{version_no_ext}, $a->{version_no_ext}) } 
      grep { -d "$::prefix/lib/modules/$_->{version}" }
      map { vmlinuz2kernel_str($_) } @$kernels;

    if ($b_prefer_24) {
	my ($kernel_24, $other) = partition { $_->{ext} eq '' && $_->{version} =~ /^\Q2.4/ } @kernels_str;
	@kernels_str = (@$kernel_24, @$other);
    }

    $kernels_str[0]{ext} = '';

    my %labels;
    foreach (@kernels_str) {
	if ($labels{$_->{ext}}) {
	    $_->{use_long_name} = 1;
	} else {
	    $labels{$_->{ext}} = 1;
	}
    }
    @kernels_str;
}

sub short_ext {
    my ($kernel_str) = @_;

    my $short_ext = {
	'i586-up-1GB' => 'i586',
	'i686-up-4GB' => '4GB',
	'xen0' => 'xen',
    }->{$kernel_str->{ext}};

    $short_ext || $kernel_str->{ext};
}

# deprecated, only for compatibility (nov 2007)
sub sanitize_ver {    
    my ($_name, $kernel_str) = @_;
    _sanitize_ver($kernel_str);
}

sub _sanitize_ver {
    my ($kernel_str) = @_;

    my $name = $kernel_str->{basename};
    $name = '' if $name eq 'vmlinuz';

    my $v = $kernel_str->{version_no_ext};
    if ($v =~ s/-\d+\.mm\././) {
	$name = join(' ', grep { $_ } $name, 'multimedia');
    }

    $v =~ s!md[kv]$!!;
    $v =~ s!-0\.(pre|rc)(\d+)\.!$1$2-!;

    my $return = join(' ', grep { $_ } $name, short_ext($kernel_str), $v);

    length($return) < 30 or $return =~ s!secure!sec!;
    length($return) < 30 or $return =~ s!enterprise!ent!;
    length($return) < 30 or $return =~ s!multimedia!mm!;

    $return;
}

sub suggest_message_text {
    my ($bootloader) = @_;

    if (!$bootloader->{message} && !$bootloader->{message_text} && arch() !~ /ia64/) {
	my $msg_en =
#-PO: these messages will be displayed at boot time in the BIOS, use only ASCII (7bit)
N_("Welcome to the operating system chooser!

Choose an operating system from the list above or
wait for default boot.

");
	my $msg = translate($msg_en);
	#- use the english version if more than 40% of 8bits chars
	#- else, use the translation but force a conversion to ascii
	#- to be sure there won't be undisplayable characters
	if (int(grep { $_ & 0x80 } unpack "c*", $msg) / length($msg) > 0.4) {
	    $msg = $msg_en;
	} else {
	    $msg = Locale::gettext::iconv($msg, "utf-8", "ascii//TRANSLIT");
	}
	$bootloader->{message_text} = $msg;
    }
}

sub suggest {
    my ($bootloader, $all_hds, %options) = @_;
    my $fstab = [ fs::get::fstab($all_hds) ];
    my $root_part = fs::get::root($fstab);
    my $root = isLoopback($root_part) ? '/dev/loop7' : fs::wild_device::from_part('', $root_part);
    my $boot = fs::get::root($fstab, 'boot')->{device};
    #- PPC xfs module requires enlarged initrd
    my $xfsroot = $root_part->{fs_type} eq 'xfs';

    my ($onmbr, $unsafe) = $bootloader->{crushMbr} ? (1, 0) : suggest_onmbr($all_hds->{hds}[0]);
    add2hash_($bootloader, arch() =~ /ppc/ ?
	{
	 defaultos => "linux",
	 entries => [],
	 'init-message' => "Welcome to Mandriva Linux!",
	 delay => 30,	#- OpenFirmware delay
	 timeout => 50,
	 enableofboot => 1,
	 enablecdboot => 1,
	   if_(detect_devices::get_mac_model() =~ /IBM/,
	 boot => "/dev/sda1",
           ),
	 xfsroot => $xfsroot,
	} :
	{
	 bootUnsafe => $unsafe,
	 entries => [],
	 timeout => $onmbr && 10,
	 nowarn => 1,
	   if_(arch() !~ /ia64/,
	 boot => "/dev/" . ($onmbr ? $all_hds->{hds}[0]{device} : $boot),
	 map => "/boot/map",
	 compact => 1,
	 color => 'black/cyan yellow/cyan',
	 'menu-scheme' => 'wb:bw:wb:bw'
         ),
	});

    suggest_message_text($bootloader);

    add2hash_($bootloader, { memsize => $1 }) if cat_("/proc/cmdline") =~ /\bmem=(\d+[KkMm]?)(?:\s.*)?$/;
    if (my ($s, $port, $speed) = cat_("/proc/cmdline") =~ /console=(ttyS(\d),(\d+)\S*)/) {
	log::l("serial console $s $port $speed");
	set_append_with_key($bootloader, console => $s);
	any::set_login_serial_console($port, $speed);
    }

    my @kernels = get_kernels_and_labels() or die "no kernel installed";

    foreach my $kernel (@kernels) {
	my $e = add_kernel($bootloader, $kernel,
	       {
		root => $root,
		if_($options{vga_fb} && $kernel->{ext} eq '', vga => $options{vga_fb}), #- using framebuffer
		if_($options{vga_fb} && $options{quiet}, append => "splash=silent"),
	       });

	if ($options{vga_fb} && $e->{label} eq 'linux') {
	    add_kernel($bootloader, $kernel, { root => $root, label => 'linux-nonfb' });
	}
    }

    #- remove existing failsafe, do not care if the previous one was modified by the user?
    @{$bootloader->{entries}} = grep { $_->{label} ne 'failsafe' } @{$bootloader->{entries}};

    add_kernel($bootloader, $kernels[0],
	       { root => $root, label => 'failsafe', append => 'failsafe' });

    if (arch() =~ /ppc/) {
	#- if we identified a MacOS partition earlier - add it
	if (defined $partition_table::mac::macos_part) {
	    add_entry($bootloader,
		      {
		       type => "macos",
		       kernel_or_dev => $partition_table::mac::macos_part
		      });
	}
    } elsif (arch() !~ /ia64/) {
	#- search for dos (or windows) boot partition. Do not look in extended partitions!
	my @windows_boot_parts =
	  grep {	      
	      my $handle = any::inspect($_, $::prefix);
	      my $dir = $handle && $handle->{dir};
	      my @root_files = map { lc($_) } all($dir);
	      log::l("found the following files on potential windows partition $_->{device}: " . join(' ', @root_files));
	      intersection(\@root_files, [ "windows", "winnt" ]);
	  }
	  grep { isFat_or_NTFS($_) && member(fs::type::fs_type_from_magic($_), 'vfat', 'ntfs', 'ntfs-3g')
		   && fs::type::part2type_name($_) !~ /^Hidden/;
	     }
	    map { @{$_->{primary}{normal}} } @{$all_hds->{hds}};
	each_index {
	    add_entry($bootloader,
		      {
		       type => 'other',
		       kernel_or_dev => "/dev/$_->{device}",
		       label => 'windows' . ($::i || ''),
		       table => "/dev/$_->{rootDevice}",
		       makeactive => 1,
		      });
	} @windows_boot_parts;
    }

    my @preferred = map { "linux-$_" } 'p3-smp-64GB', 'secure', 'enterprise', 'smp', 'i686-up-4GB';
    if (my $preferred = find { get_label($_, $bootloader) } @preferred) {
	$bootloader->{default} ||= $preferred;
    }
    $bootloader->{default} ||= "linux";
    $bootloader->{method} ||= first(method_choices($all_hds, 1));

    if (main_method($bootloader->{method}) eq 'grub') {
	foreach my $c (find_other_distros_grub_conf($fstab)) {	    
	    add_entry($bootloader, { 
		type => 'grub_configfile',
		label => $c->{name},
		kernel_or_dev => "/dev/$c->{bootpart}{device}",
		configfile => $c->{grub_conf},
	    });
	}
    }
}

sub detect_main_method {
    my ($all_hds) = @_;
    my $bootloader = &read($all_hds);
    $bootloader && main_method($bootloader->{method});
}

sub main_method {
    my ($method) = @_;
    $method =~ /(\w+)/ && $1;
}

sub config_files() {
    my %files = (
	lilo => '/etc/lilo.conf',
	grub => '/boot/grub/menu.lst',
	grub_install => '/boot/grub/install.sh',
    );
    
    map_each { 
	my $content = cat_("$::prefix/$::b");
	{ main_method => main_method($::a), name => $::a, file => $::b, content => $content };
    } %files;
}

sub method2text {
    my ($method) = @_;
    +{
	'lilo-menu'    => N("LILO with text menu"),
	'grub-graphic' => N("GRUB with graphical menu"),
	'grub-menu'    => N("GRUB with text menu"),
	'yaboot'       => N("Yaboot"),
	'silo'         => N("SILO"),
    }->{$method};
}

sub method_choices_raw {
    my ($b_prefix_mounted) = @_;
    detect_devices::is_xbox() ? 'cromwell' :
    arch() =~ /ppc/ ? 'yaboot' : 
    arch() =~ /ia64/ ? 'lilo' : 
    arch() =~ /sparc/ ? 'silo' : 
      (
       if_(!$b_prefix_mounted || whereis_binary('grub', $::prefix), 
	   'grub-graphic', 'grub-menu'),
       if_(!$b_prefix_mounted || whereis_binary('lilo', $::prefix), 
	   'lilo-menu'),
      );
}
sub method_choices {
    my ($all_hds, $b_prefix_mounted) = @_;
    my $fstab = [ fs::get::fstab($all_hds) ];
    my $root_part = fs::get::root($fstab);
    my $boot_part = fs::get::root($fstab, 'boot');
    my $have_dmraid = find { fs::type::is_dmraid($_) } @{$all_hds->{hds}};

    grep {
	!(/lilo/ && (isLoopback($root_part) || $have_dmraid))
	  && !(/grub/ && isRAID($boot_part))
	  && !(/grub-graphic/ && cat_("/proc/cmdline") =~ /console=ttyS/);
    } method_choices_raw($b_prefix_mounted);
}
sub main_method_choices {
    my ($b_prefix_mounted) = @_;
    uniq(map { main_method($_) } method_choices_raw($b_prefix_mounted));
}
sub configured_main_methods() {
    my @bad_main_methods = map { if_(!$_->{content}, $_->{main_method}) } config_files();
    difference2([ main_method_choices(1) ], \@bad_main_methods);
}

sub keytable {
    my ($f) = @_;
    $f or return;

    if ($f !~ /\.klt$/) {
	my $file = "/boot/$f.klt";
	run_program::rooted($::prefix, "keytab-lilo.pl", ">", $file, $f) or return;
	$f = $file;
    }
    -r "$::prefix/$f" && $f;
}


sub create_link_source() {
    #- we simply do it for all kernels :)
    #- so this can be used in %post of kernel and also of kernel-source
    foreach (all("$::prefix/usr/src")) {
	my ($version) = /^linux-(\d+\.\d+.*)/ or next;
	foreach (glob("$::prefix/lib/modules/$version*")) {
	    -d $_ or next;
	    log::l("creating symlink $_/build");
	    symlink "/usr/src/linux-$version", "$_/build";
	    log::l("creating symlink $_/source");
	    symlink "/usr/src/linux-$version", "$_/source";
	}
    }
}

sub dev2yaboot {
    my ($dev) = @_;

    devices::make("$::prefix$dev"); #- create it in the chroot

    my $of_dev;
    run_program::rooted_or_die($::prefix, "/usr/sbin/ofpath", ">", \$of_dev, $dev);
    chomp($of_dev);
    log::l("OF Device: $of_dev");
    $of_dev;
}

sub check_enough_space() {
    my $e = "$::prefix/boot/.enough_space";
    output $e, 1; -s $e or die N("not enough room in /boot");
    unlink $e;
}

sub write_yaboot {
    my ($bootloader, $all_hds) = @_;

    my $fstab = [ fs::get::fstab($all_hds) ]; 

    my $file2yaboot = sub {
	my ($part, $file) = fs::get::file2part($fstab, $_[0]);
	dev2yaboot('/dev/' . $part->{device}) . "," . $file;
    };

    #- do not write yaboot.conf for old-world macs
    my $mac_type = detect_devices::get_mac_model();
    return if $mac_type =~ /Power Macintosh/;

    $bootloader->{prompt} ||= $bootloader->{timeout};

    if ($bootloader->{message_text}) {
	eval { output("$::prefix/boot/message", $bootloader->{message_text}) }
	  and $bootloader->{message} = '/boot/message';
    }

    my @conf;

    if (!get_label($bootloader->{default}, $bootloader)) {
	log::l("default bootloader entry $bootloader->{default} is invalid, choosing another one");
	$bootloader->{default} = $bootloader->{entries}[0]{label};
    }
    push @conf, "# yaboot.conf - generated by DrakX/drakboot";
    push @conf, "# WARNING: do not forget to run ybin after modifying this file\n";
    push @conf, "default=" . make_label_lilo_compatible($bootloader->{default}) if $bootloader->{default};
    push @conf, sprintf('init-message="\n%s\n"', $bootloader->{'init-message'}) if $bootloader->{'init-message'};

    if ($bootloader->{boot}) {
	push @conf, "boot=$bootloader->{boot}";
	push @conf, "ofboot=" . dev2yaboot($bootloader->{boot}) if $mac_type !~ /IBM/;
    } else {
	die "no bootstrap partition defined.";
    }

    push @conf, map { "$_=$bootloader->{$_}" } grep { $bootloader->{$_} } (qw(delay timeout), if_($mac_type !~ /IBM/, 'defaultos'));
    push @conf, "install=/usr/lib/yaboot/yaboot";
    if ($mac_type =~ /IBM/) {
	push @conf, 'nonvram';
    } else {
	push @conf, 'magicboot=/usr/lib/yaboot/ofboot';
	push @conf, grep { $bootloader->{$_} } qw(enablecdboot enableofboot);
    }
    foreach my $entry (@{$bootloader->{entries}}) {

	if ($entry->{type} eq "image") {
	    push @conf, "$entry->{type}=" . $file2yaboot->($entry->{kernel_or_dev});
	    my @entry_conf;
	    push @entry_conf, "label=" . make_label_lilo_compatible($entry->{label});
	    push @entry_conf, "root=$entry->{root}";
	    push @entry_conf, "initrd=" . $file2yaboot->($entry->{initrd}) if $entry->{initrd};
	    #- xfs module on PPC requires larger initrd - say 6MB?
	    push @entry_conf, "initrd-size=6144" if $bootloader->{xfsroot};
	    push @entry_conf, qq(append=" $entry->{append}") if $entry->{append};
	    push @entry_conf, grep { $entry->{$_} } qw(read-write read-only);
	    push @conf, map { "\t$_" } @entry_conf;
	} else {
	    my $of_dev = dev2yaboot($entry->{kernel_or_dev});
	    push @conf, "$entry->{type}=$of_dev";
	}
    }
    my $f = "$::prefix/etc/yaboot.conf";
    log::l("writing yaboot config to $f");
    renamef($f, "$f.old");
    output($f, map { "$_\n" } @conf);
}

sub install_yaboot {
    my ($bootloader, $all_hds) = @_;
    log::l("Installing boot loader...");
    write_yaboot($bootloader, $all_hds);
    when_config_changed_yaboot($bootloader);
}
sub when_config_changed_yaboot {
    my ($bootloader) = @_;
    $::testing and return;
    if (defined $partition_table::mac::new_bootstrap) {
	run_program::run("hformat", $bootloader->{boot}) or die "hformat failed";
    }	
    my $error;
    run_program::rooted($::prefix, "/usr/sbin/ybin", "2>", \$error) or die "ybin failed: $error";
}

sub install_cromwell { 
    my ($_bootloader, $_all_hds) = @_;
    log::l("XBox/Cromwell - nothing to install...");
}
sub write_cromwell { 
    my ($_bootloader, $_all_hds) = @_;
    log::l("XBox/Cromwell - nothing to write...");
}
sub when_config_changed_cromwell {
    my ($_bootloader) = @_;
    log::l("XBox/Cromwell - nothing to do...");
}