# translation of DrakX.po to Mongolian
# Copyright (C) 2003, 2004 Free Software Foundation, Inc.
# Khurelbaatar Lkhagavsuren <hujii247@yahoo.com>, 2003.
# Khurelbaatar Lkhagvasuren <hujii247@yahoo.com>, 2003.
# Sanlig Badral <Badral@openmn.org>, 2004.
#
msgid ""
msgstr ""
"Project-Id-Version: DrakX\n"
"Report-Msgid-Bugs-To: \n"
"POT-Creation-Date: 2007-08-09 11:27+0200\n"
"PO-Revision-Date: 2004-01-02 00:35+0100\n"
"Last-Translator: Sanlig Badral <Badral@openmn.org>\n"
"Language-Team: Mongolian <openmn-core@lists.sf.net>\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
"X-Generator: KBabel 1.0.2\n"

#: drakboot:49
#, c-format
msgid "No bootloader found, creating a new configuration"
msgstr ""

#: drakboot:83 harddrake2:194 harddrake2:195 logdrake:71
#, c-format
msgid "/_File"
msgstr "/_Файл"

#: drakboot:84 logdrake:77
#, c-format
msgid "/File/_Quit"
msgstr "/Файл/_Гарах"

#: drakboot:84 harddrake2:195 logdrake:77
#, c-format
msgid "<control>Q"
msgstr "<control>Q"

#: drakboot:124
#, c-format
msgid "Text only"
msgstr "Зөвхөн текст"

#: drakboot:125
#, c-format
msgid "Verbose"
msgstr ""

#: drakboot:126
#, c-format
msgid "Silent"
msgstr ""

#: drakboot:133
#, c-format
msgid ""
"Your system bootloader is not in framebuffer mode. To activate graphical "
"boot, select a graphic video mode from the bootloader configuration tool."
msgstr ""

#: drakboot:134
#, fuzzy, c-format
msgid "Do you want to configure it now?"
msgstr "вы?"

#: drakboot:143
#, c-format
msgid "Install themes"
msgstr ""

#: drakboot:145
#, fuzzy, c-format
msgid "Graphical boot theme selection"
msgstr "Хэвлэгч"

#: drakboot:148
#, fuzzy, c-format
msgid "Graphical boot mode:"
msgstr "Хэвлэгч"

#: drakboot:150
#, c-format
msgid "Theme"
msgstr "Загвар"

#: drakboot:153
#, c-format
msgid ""
"Display theme\n"
"under console"
msgstr ""

#: drakboot:158 draksplash:25
#, fuzzy, c-format
msgid "Create new theme"
msgstr "шинэ"

#: drakboot:190
#, fuzzy, c-format
msgid "Default user"
msgstr "Үндсэн хэвлэгч"

#: drakboot:191
#, fuzzy, c-format
msgid "Default desktop"
msgstr "Стандарт"

#: drakboot:194
#, c-format
msgid "No, I do not want autologin"
msgstr "Үгүй, би автомат нэвтрэлтийг хэрэглэмээргүй байна"

#: drakboot:195
#, fuzzy, c-format
msgid "Yes, I want autologin with this (user, desktop)"
msgstr "Тийм"

#: drakboot:202
#, c-format
msgid "System mode"
msgstr "Системийн горим"

#: drakboot:205
#, c-format
msgid "Launch the graphical environment when your system starts"
msgstr ""

#: drakboot:260
#, c-format
msgid ""
"Please choose a video mode, it will be applied to each of the boot entries "
"selected below.\n"
"Be sure your video card supports the mode you choose."
msgstr ""

#: drakbug:46
#, fuzzy, c-format
msgid "Mandriva Linux Bug Report Tool"
msgstr "Мандрива удирдлагын төв"

#: drakbug:51
#, c-format
msgid "Mandriva Linux Control Center"
msgstr "Мандрива удирдлагын төв"

#: drakbug:52
#, c-format
msgid "First Time Wizard"
msgstr "Анхны Удаагийн Туслагч"

#: drakbug:53
#, c-format
msgid "Synchronization tool"
msgstr ""

#: drakbug:54 drakbug:168
#, c-format
msgid "Standalone Tools"
msgstr ""

#: drakbug:56 drakbug:57
#, c-format
msgid "Mandriva Online"
msgstr ""

#: drakbug:58
#, fuzzy, c-format
msgid "Remote Control"
msgstr "Дээд"

#: drakbug:59
#, fuzzy, c-format
msgid "Software Manager"
msgstr "Software"

#: drakbug:60
#, c-format
msgid "Windows Migration tool"
msgstr "Виндоус нэгтгэгч хэрэгсэл"

#: drakbug:61
#, fuzzy, c-format
msgid "Configuration Wizards"
msgstr "Тоноглол"

#: drakbug:83
#, c-format
msgid "Select Mandriva Tool:"
msgstr ""

#: drakbug:84
#, c-format
msgid ""
"or Application Name\n"
"(or Full Path):"
msgstr ""

#: drakbug:87
#, fuzzy, c-format
msgid "Find Package"
msgstr "Тааруухан багц"

#: drakbug:89
#, c-format
msgid "Package: "
msgstr "Багц: "

#: drakbug:90
#, c-format
msgid "Kernel:"
msgstr ""

#: drakbug:102
#, c-format
msgid "The \"%s\" program has crashed with the following error:"
msgstr ""

#: drakbug:104
#, c-format
msgid "The \"%s\" program has crashed."
msgstr ""

#: drakbug:106
#, fuzzy, c-format
msgid ""
"To submit a bug report, click on the report button.  \n"
"This will open a web browser window on %s where you'll find a form to fill "
"in.  The information displayed above will be transferred to that server.  \n"
"Things useful to include in your report are the output of lspcidrake -v, "
"kernel version, and /proc/cpuinfo."
msgstr ""
"г Цонх\n"
" вы ямх г"

#: drakbug:112
#, c-format
msgid "Report"
msgstr ""

#: drakbug:178
#, c-format
msgid "Not installed"
msgstr ""

#: drakbug:191
#, fuzzy, c-format
msgid "Package not installed"
msgstr "Пакет"

#: drakclock:39
#, c-format
msgid "not defined"
msgstr ""

#: drakclock:41
#, fuzzy, c-format
msgid "Change Time Zone"
msgstr "Цагийн бүс"

#: drakclock:44
#, c-format
msgid "Timezone - DrakClock"
msgstr "Цагийн бүс - ДракЦаг"

#: drakclock:45
#, c-format
msgid "GMT - DrakClock"
msgstr "GMT - ДракЦаг"

#: drakclock:45
#, fuzzy, c-format
msgid "Is your hardware clock set to GMT?"
msgstr "Hardware"

#: drakclock:70
#, fuzzy, c-format
msgid "Network Time Protocol"
msgstr "Сүлжээ"

#: drakclock:72
#, c-format
msgid ""
"Your computer can synchronize its clock\n"
" with a remote time server using NTP"
msgstr ""

#: drakclock:73
#, fuzzy, c-format
msgid "Enable Network Time Protocol"
msgstr "Сэргээх Сүлжээ"

#: drakclock:81
#, c-format
msgid "Server:"
msgstr "Сервер:"

#: drakclock:110
#, fuzzy, c-format
msgid "Please enter a valid NTP server address."
msgstr "Та нууц үгээ оруулна уу:"

#: drakclock:125
#, c-format
msgid "Could not synchronize with %s."
msgstr ""

#: drakclock:127
#, fuzzy, c-format
msgid "Retry"
msgstr "Сэргээх"

#: drakclock:149 drakclock:159
#, c-format
msgid "Reset"
msgstr "Суллах"

#: drakedm:41
#, c-format
msgid "GDM (GNOME Display Manager)"
msgstr ""

#: drakedm:42
#, c-format
msgid "KDM (KDE Display Manager)"
msgstr ""

#: drakedm:43
#, c-format
msgid "XDM (X Display Manager)"
msgstr ""

#: drakedm:54
#, c-format
msgid "Choosing a display manager"
msgstr ""

#: drakedm:55
#, fuzzy, c-format
msgid ""
"X11 Display Manager allows you to graphically log\n"
"into your system with the X Window System running and supports running\n"
"several different X sessions on your local machine at the same time."
msgstr "X11 Менежер вы log X Цонх Систем X."

#: drakedm:73
#, fuzzy, c-format
msgid "The change is done, do you want to restart the dm service?"
msgstr ""
"Сүлжээг тахин эхлүүлэх хэрэгтэй. Та үүнийг дахин эхлүүлэхийг хүсэж байна уу?"

#: drakedm:74
#, c-format
msgid ""
"You are going to close all running programs and lose your current session. "
"Are you really sure that you want to restart the dm service?"
msgstr ""

#: drakfont:187
#, c-format
msgid "Search installed fonts"
msgstr "Суулгагдсан бичгийн хэвүүдийг хайх"

#: drakfont:189
#, fuzzy, c-format
msgid "Unselect fonts installed"
msgstr "Сонголтыг болих"

#: drakfont:213
#, fuzzy, c-format
msgid "No fonts found"
msgstr "фонтууд одсонгүй"

#: drakfont:217
#, c-format
msgid "parse all fonts"
msgstr ""

#: drakfont:222 drakfont:263 drakfont:332 drakfont:373 drakfont:380
#: drakfont:406 drakfont:424 drakfont:438
#, c-format
msgid "done"
msgstr "Хийгдсэн"

#: drakfont:226
#, fuzzy, c-format
msgid "Could not find any font in your mounted partitions"
msgstr "ямх"

#: drakfont:261
#, c-format
msgid "Reselect correct fonts"
msgstr ""

#: drakfont:264
#, fuzzy, c-format
msgid "Could not find any font.\n"
msgstr "Та"

#: drakfont:274
#, fuzzy, c-format
msgid "Search for fonts in installed list"
msgstr "Хайх ямх"

#: drakfont:293
#, c-format
msgid "%s fonts conversion"
msgstr ""

#: drakfont:330
#, fuzzy, c-format
msgid "Fonts copy"
msgstr "Фонтууд"

#: drakfont:333
#, fuzzy, c-format
msgid "True Type fonts installation"
msgstr "Үнэн Төрөл"

#: drakfont:341
#, c-format
msgid "please wait during ttmkfdir..."
msgstr ""

#: drakfont:342
#, fuzzy, c-format
msgid "True Type install done"
msgstr "Үнэн Төрөл"

#: drakfont:348 drakfont:363
#, c-format
msgid "type1inst building"
msgstr ""

#: drakfont:357
#, fuzzy, c-format
msgid "Ghostscript referencing"
msgstr "GhostScript"

#: drakfont:374
#, c-format
msgid "Suppress Temporary Files"
msgstr ""

#: drakfont:376 drakfont:434
#, fuzzy, c-format
msgid "Restart XFS"
msgstr "Шинээр эхлэх"

#: drakfont:422 drakfont:432
#, fuzzy, c-format
msgid "Suppress Fonts Files"
msgstr "Фонтууд"

#: drakfont:442
#, fuzzy, c-format
msgid ""
"Before installing any fonts, be sure that you have the right to use and "
"install them on your system.\n"
"\n"
"You can install the fonts the normal way. In rare cases, bogus fonts may "
"hang up your X Server."
msgstr "вы баруун г г Та Томоор X Сервер."

#: drakfont:482
#, fuzzy, c-format
msgid "Font Installation"
msgstr "Фонтуудыг устгах"

#: drakfont:493
#, c-format
msgid "DrakFont"
msgstr ""

#: drakfont:494 drakfont:646
#, c-format
msgid "Font List"
msgstr "Фонтын жагсаалт"

#: drakfont:497
#, c-format
msgid "Get Windows Fonts"
msgstr ""

#: drakfont:503
#, c-format
msgid "About"
msgstr "Тухай"

#: drakfont:505 drakfont:725
#, fuzzy, c-format
msgid "Uninstall"
msgstr "Фонтуудыг устгах"

#: drakfont:506
#, c-format
msgid "Import"
msgstr "Авчирах"

#: drakfont:524
#, c-format
msgid "Drakfont"
msgstr ""

#: drakfont:526
#, c-format
msgid "Copyright (C) 2001-2006 by Mandriva"
msgstr "Copyright © 2001-2006 Mandriva."

#: drakfont:528
#, fuzzy, c-format
msgid "Font installer."
msgstr "Фонтуудыг устгах"

#: drakfont:530 harddrake2:236
#, c-format
msgid "Mandriva Linux"
msgstr "Мандрива Линукс"

#. -PO: put here name(s) and email(s) of translator(s) (eg: "John Smith <jsmith@nowhere.com>")
#. -PO: put here name(s) and email(s) of translator(s) (eg: "John Smith <jsmith@nowhere.com>")
#: drakfont:537 harddrake2:241
#, c-format
msgid "_: Translator(s) name(s) & email(s)\n"
msgstr ""

#: drakfont:547
#, fuzzy, c-format
msgid "Choose the applications that will support the fonts:"
msgstr "Сонгох:"

#: drakfont:558
#, c-format
msgid "Ghostscript"
msgstr "GhostScript"

#: drakfont:559
#, c-format
msgid "OpenOffice.org"
msgstr ""

#: drakfont:560
#, c-format
msgid "Abiword"
msgstr ""

#: drakfont:561
#, c-format
msgid "Generic Printers"
msgstr "Ерөнхий хэвлэгчүүд"

#: drakfont:575
#, c-format
msgid "Select the font file or directory and click on 'Add'"
msgstr "Фонтны файл юмуу хавтасыг сонгоод 'Нэмэх' товчийг дарна уу"

#: drakfont:576
#, c-format
msgid "File Selection"
msgstr "Файл сонголт"

#: drakfont:580
#, c-format
msgid "Fonts"
msgstr "Фонтууд"

#: drakfont:644
#, fuzzy, c-format
msgid "Import fonts"
msgstr "Цонтууд импортлох"

#: drakfont:657
#, c-format
msgid "Install"
msgstr "Суулга"

#: drakfont:688
#, c-format
msgid "Are you sure you want to uninstall the following fonts?"
msgstr ""

#: drakfont:733
#, c-format
msgid "Unselected All"
msgstr ""

#: drakfont:736
#, fuzzy, c-format
msgid "Selected All"
msgstr "Сонгогдсон"

#: drakfont:750 drakfont:769
#, fuzzy, c-format
msgid "Importing fonts"
msgstr "Цонтууд импортлох"

#: drakfont:754 drakfont:774
#, c-format
msgid "Initial tests"
msgstr ""

#: drakfont:755
#, fuzzy, c-format
msgid "Copy fonts on your system"
msgstr "Хуулах"

#: drakfont:756
#, c-format
msgid "Install & convert Fonts"
msgstr ""

#: drakfont:757
#, c-format
msgid "Post Install"
msgstr ""

#: drakfont:775
#, fuzzy, c-format
msgid "Remove fonts on your system"
msgstr "Устгах"

#: drakfont:776
#, c-format
msgid "Post Uninstall"
msgstr ""

#: drakhelp:17
#, c-format
msgid ""
" drakhelp 0.1\n"
"Copyright (C) %s Mandriva.\n"
"This is free software and may be redistributed under the terms of the GNU "
"GPL.\n"
"\n"
"Usage: \n"
msgstr ""

#: drakhelp:22
#, c-format
msgid " --help                - display this help     \n"
msgstr ""

#: drakhelp:23
#, c-format
msgid ""
" --id <id_label>       - load the html help page which refers to id_label\n"
msgstr ""

#: drakhelp:24
#, c-format
msgid ""
" --doc <link>          - link to another web page ( for WM welcome "
"frontend)\n"
msgstr ""

#: drakhelp:52
#, fuzzy, c-format
msgid "Mandriva Linux Help Center"
msgstr "Мандрива удирдлагын төв"

#: drakhelp:52
#, c-format
msgid "No Help entry for %s\n"
msgstr ""

#: drakperm:22
#, fuzzy, c-format
msgid "System settings"
msgstr "Систем"

#: drakperm:23
#, fuzzy, c-format
msgid "Custom settings"
msgstr "Хэрэглэгчийн"

#: drakperm:24
#, c-format
msgid "Custom & system settings"
msgstr ""

#: drakperm:32
#, fuzzy, c-format
msgid "Security Permissions"
msgstr "Зөвшөөрөл"

#: drakperm:44
#, c-format
msgid "Editable"
msgstr "Засварлагддаг"

#: drakperm:49 drakperm:322
#, c-format
msgid "Path"
msgstr "Зам"

#: drakperm:49 drakperm:250
#, c-format
msgid "User"
msgstr "Хэрэглэгч"

#: drakperm:49 drakperm:250
#, c-format
msgid "Group"
msgstr "Бүлэг"

#: drakperm:49 drakperm:334
#, c-format
msgid "Permissions"
msgstr "Зөвшөөрөл"

#: drakperm:59
#, c-format
msgid "Add a new rule"
msgstr ""

#: drakperm:66 drakperm:101 drakperm:126
#, fuzzy, c-format
msgid "Edit current rule"
msgstr "Боловсруулах"

#: drakperm:108
#, fuzzy, c-format
msgid ""
"Here you can see files to use in order to fix permissions, owners, and "
"groups via msec.\n"
"You can also edit your own rules which will owerwrite the default rules."
msgstr "бол ямх эрх засах."

#: drakperm:110
#, c-format
msgid ""
"The current security level is %s.\n"
"Select permissions to see/edit"
msgstr ""

#: drakperm:122
#, c-format
msgid "Up"
msgstr "Дээр"

#: drakperm:122
#, fuzzy, c-format
msgid "Move selected rule up one level"
msgstr "Зөөх"

#: drakperm:123
#, c-format
msgid "Down"
msgstr "Доош"

#: drakperm:123
#, fuzzy, c-format
msgid "Move selected rule down one level"
msgstr "Зөөх"

#: drakperm:124
#, fuzzy, c-format
msgid "Add a rule"
msgstr "дүрэм нэмэх"

#: drakperm:124
#, fuzzy, c-format
msgid "Add a new rule at the end"
msgstr "Нэмэх шинэ"

#: drakperm:125
#, fuzzy, c-format
msgid "Delete selected rule"
msgstr "Устгах"

#: drakperm:126 drakups:300 drakups:362 drakups:382
#, c-format
msgid "Edit"
msgstr "Засах"

#: drakperm:242
#, c-format
msgid "browse"
msgstr "зааж өгөх"

#: drakperm:247
#, fuzzy, c-format
msgid "user"
msgstr "Хулгана"

#: drakperm:247
#, c-format
msgid "group"
msgstr "бүлэг"

#: drakperm:247
#, c-format
msgid "other"
msgstr "бусад"

#: drakperm:252
#, c-format
msgid "Read"
msgstr "Унш"

#. -PO: here %s will be either "user", "group" or "other"
#: drakperm:255
#, c-format
msgid "Enable \"%s\" to read the file"
msgstr ""

#: drakperm:259
#, c-format
msgid "Write"
msgstr "Бич"

#. -PO: here %s will be either "user", "group" or "other"
#: drakperm:262
#, c-format
msgid "Enable \"%s\" to write the file"
msgstr ""

#: drakperm:266
#, c-format
msgid "Execute"
msgstr "Биелүүлэх"

#. -PO: here %s will be either "user", "group" or "other"
#: drakperm:269
#, c-format
msgid "Enable \"%s\" to execute the file"
msgstr ""

#: drakperm:272
#, c-format
msgid "Sticky-bit"
msgstr ""

#: drakperm:272
#, c-format
msgid ""
"Used for directory:\n"
" only owner of directory or file in this directory can delete it"
msgstr ""
"Хавтасанд хэрэглэдгсэн:\n"
" энэ хавтас дахь файл болон хавтасын эзэмшигч нь л үүнийг устгаж чадна"

#: drakperm:273
#, c-format
msgid "Set-UID"
msgstr "UID-олгох"

#: drakperm:273
#, fuzzy, c-format
msgid "Use owner id for execution"
msgstr "эзэмшигч"

#: drakperm:274
#, c-format
msgid "Set-GID"
msgstr ""

#: drakperm:274
#, fuzzy, c-format
msgid "Use group id for execution"
msgstr "бүлэг"

#: drakperm:292
#, c-format
msgid "User:"
msgstr "Хэрэглэгч:"

#: drakperm:293
#, c-format
msgid "Group:"
msgstr "Бүлэг:"

#: drakperm:297
#, c-format
msgid "Current user"
msgstr "Одооны хэрэглэгч"

#: drakperm:298
#, fuzzy, c-format
msgid "When checked, owner and group will not be changed"
msgstr "эзэмшигч бүлэг"

#: drakperm:308
#, c-format
msgid "Path selection"
msgstr "Зам сонголт"

#: drakperm:328
#, c-format
msgid "Property"
msgstr "Шинж"

#: drakperm:378
#, c-format
msgid ""
"The first character of the path must be a slash (\"/\"):\n"
"\"%s\""
msgstr ""

#: drakperm:388
#, c-format
msgid "Both the username and the group must valid!"
msgstr ""

#: drakperm:389
#, c-format
msgid "User: %s"
msgstr ""

#: drakperm:390
#, c-format
msgid "Group: %s"
msgstr ""

#: draksec:53
#, c-format
msgid "ALL"
msgstr ""

#: draksec:54
#, c-format
msgid "LOCAL"
msgstr ""

#: draksec:55
#, c-format
msgid "NONE"
msgstr ""

#: draksec:57
#, c-format
msgid "Ignore"
msgstr "Үл хэрэгсэх"

#. -PO: Do not alter the <span ..> and </span> tags.
#. -PO: Translate the security levels (Poor, Standard, High, Higher and Paranoid) in the same way, you translated these individuals words.
#. -PO: keep the double empty lines between sections, this is formatted a la LaTeX.
#: draksec:93
#, c-format
msgid ""
"Here, you can setup the security level and administrator of your machine.\n"
"\n"
"\n"
"The '<span weight=\"bold\">Security Administrator</span>' is the one who "
"will receive security alerts if the\n"
"'<span weight=\"bold\">Security Alerts</span>' option is set. It can be a "
"username or an email.\n"
"\n"
"\n"
"The '<span weight=\"bold\">Security Level</span>' menu allows you to select "
"one of the six preconfigured security levels\n"
"provided with msec. These levels range from '<span weight=\"bold\">poor</"
"span>' security and ease of use, to\n"
"'<span weight=\"bold\">paranoid</span>' config, suitable for very sensitive "
"server applications:\n"
"\n"
"\n"
"<span foreground=\"royalblue3\">Poor</span>: This is a totally unsafe but "
"very\n"
"easy to use security level. It should only be used for machines not "
"connected to\n"
"any network and that are not accessible to everybody.\n"
"\n"
"\n"
"<span foreground=\"royalblue3\">Standard</span>: This is the standard "
"security\n"
"recommended for a computer that will be used to connect to the Internet as "
"a\n"
"client.\n"
"\n"
"\n"
"<span foreground=\"royalblue3\">High</span>: There are already some\n"
"restrictions, and more automatic checks are run every night.\n"
"\n"
"\n"
"<span foreground=\"royalblue3\">Higher</span>: The security is now high "
"enough\n"
"to use the system as a server which can accept connections from many "
"clients. If\n"
"your machine is only a client on the Internet, you should choose a lower "
"level.\n"
"\n"
"\n"
"<span foreground=\"royalblue3\">Paranoid</span>: This is similar to the "
"previous\n"
"level, but the system is entirely closed and security features are at their\n"
"maximum"
msgstr ""

#: draksec:147 harddrake2:211
#, fuzzy, c-format
msgid ""
"Description of the fields:\n"
"\n"
msgstr "Тодорхойлолт аас г"

#: draksec:161
#, fuzzy, c-format
msgid "(default value: %s)"
msgstr "Стандарт"

#: draksec:166
#, fuzzy, c-format
msgid "Security Level and Checks"
msgstr "Нууцлалын Түвшин:"

#: draksec:203
#, c-format
msgid "Security Level:"
msgstr "Нууцлалын Түвшин:"

#: draksec:210
#, fuzzy, c-format
msgid "Security Administrator:"
msgstr "Хамгаалалт:"

#: draksec:212
#, fuzzy, c-format
msgid "Basic options"
msgstr "Үндсэн"

#: draksec:226
#, c-format
msgid "Network Options"
msgstr "Сүлжээний сонголтууд"

#: draksec:226
#, fuzzy, c-format
msgid "System Options"
msgstr "Систем"

#: draksec:261
#, c-format
msgid "Periodic Checks"
msgstr ""

#: draksec:291
#, c-format
msgid "Please wait, setting security level..."
msgstr ""

#: draksec:297
#, c-format
msgid "Please wait, setting security options..."
msgstr ""

#: draksound:47
#, fuzzy, c-format
msgid "No Sound Card detected!"
msgstr "Үгүй Дуу!"

#. -PO: keep the double empty lines between sections, this is formatted a la LaTeX
#: draksound:50
#, fuzzy, c-format
msgid ""
"No Sound Card has been detected on your machine. Please verify that a Linux-"
"supported Sound Card is correctly plugged in.\n"
"\n"
"\n"
"You can visit our hardware database at:\n"
"\n"
"\n"
"http://www.mandrivalinux.com/en/hardware.php3"
msgstr ""
"Үгүй Дуу Дуу бол ямх г г г г\n"
"http://www.mandrivalinux.com/en/hardware.php3"

#: draksound:57
#, fuzzy, c-format
msgid ""
"\n"
"\n"
"\n"
"Note: if you've an ISA PnP sound card, you'll have to use the alsaconf or "
"the sndconfig program.  Just type \"alsaconf\" or \"sndconfig\" in a console."
msgstr "г г вы вы Программ төрөл ямх."

#: draksplash:32
#, c-format
msgid "X coordinate of text box"
msgstr ""

#: draksplash:33
#, c-format
msgid "Y coordinate of text box"
msgstr ""

#: draksplash:34
#, c-format
msgid "Text box width"
msgstr ""

#: draksplash:35
#, fuzzy, c-format
msgid "Text box height"
msgstr "текст"

#: draksplash:36
#, c-format
msgid ""
"The progress bar X coordinate\n"
"of its upper left corner"
msgstr ""
"явцыг үзүүлэгчийн зүүн дээд\n"
"булангийн x координат"

#: draksplash:37
#, fuzzy, c-format
msgid ""
"The progress bar Y coordinate\n"
"of its upper left corner"
msgstr "т зүүн"

#: draksplash:38
#, fuzzy, c-format
msgid "The width of the progress bar"
msgstr "өргөн аас"

#: draksplash:39
#, c-format
msgid "The height of the progress bar"
msgstr "явц харуулагчийн өндөр"

#: draksplash:40
#, c-format
msgid "X coordinate of the text"
msgstr ""

#: draksplash:41
#, c-format
msgid "Y coordinate of the text"
msgstr ""

#: draksplash:42
#, c-format
msgid "Text box transparency"
msgstr ""

#: draksplash:43
#, c-format
msgid "Progress box transparency"
msgstr ""

#: draksplash:44
#, c-format
msgid "Text size"
msgstr ""

#: draksplash:61
#, c-format
msgid "Choose progress bar color 1"
msgstr ""

#: draksplash:62
#, c-format
msgid "Choose progress bar color 2"
msgstr ""

#: draksplash:63
#, c-format
msgid "Choose progress bar background"
msgstr ""

#: draksplash:64
#, c-format
msgid "Gradient type"
msgstr ""

#: draksplash:65
#, c-format
msgid "Choose text color"
msgstr ""

#: draksplash:67 draksplash:74
#, c-format
msgid "Choose picture"
msgstr ""

#: draksplash:68
#, c-format
msgid "Silent bootsplash"
msgstr ""

#: draksplash:71
#, c-format
msgid "Choose text zone color"
msgstr ""

#: draksplash:72
#, c-format
msgid "Text color"
msgstr ""

#: draksplash:73
#, c-format
msgid "Background color"
msgstr "Арын дэвсгэрийн өнгө"

#: draksplash:75
#, c-format
msgid "Verbose bootsplash"
msgstr ""

#: draksplash:81
#, fuzzy, c-format
msgid "Theme name"
msgstr "Аяны  нэр"

#: draksplash:84
#, c-format
msgid "Final resolution"
msgstr ""

#: draksplash:87
#, fuzzy, c-format
msgid "Display logo on Console"
msgstr "Харуулах Нээх"

#: draksplash:92
#, fuzzy, c-format
msgid "Save theme"
msgstr "Хадгалах"

#: draksplash:154
#, fuzzy, c-format
msgid "Please enter a theme name"
msgstr "Та нууц үгээ оруулна уу:"

#: draksplash:157
#, fuzzy, c-format
msgid "Please select a splash image"
msgstr "төрөл."

#: draksplash:160
#, fuzzy, c-format
msgid "saving Bootsplash theme..."
msgstr "theme."

#: draksplash:169
#, c-format
msgid "Unable to load image file %s"
msgstr ""

#: draksplash:180
#, c-format
msgid "choose image"
msgstr ""

#: draksplash:195
#, c-format
msgid "Color selection"
msgstr ""

#: drakups:71
#, c-format
msgid "Connected through a serial port or an usb cable"
msgstr ""

#: drakups:72
#, fuzzy, c-format
msgid "Manual configuration"
msgstr "Гараар"

#: drakups:78
#, fuzzy, c-format
msgid "Add an UPS device"
msgstr "Нэмэх"

#: drakups:81
#, fuzzy, c-format
msgid ""
"Welcome to the UPS configuration utility.\n"
"\n"
"Here, you'll add a new UPS to your system.\n"
msgstr "Тавтай морил г вы Сонордуулга"

#: drakups:88
#, c-format
msgid ""
"We're going to add an UPS device.\n"
"\n"
"Do you want to autodetect UPS devices connected to this machine or to "
"manually select them?"
msgstr ""

#: drakups:91
#, fuzzy, c-format
msgid "Autodetection"
msgstr "Автомат танилт"

#: drakups:99 harddrake2:367
#, fuzzy, c-format
msgid "Detection in progress"
msgstr "ямх"

#: drakups:118 drakups:157 logdrake:457 logdrake:463
#, fuzzy, c-format
msgid "Congratulations"
msgstr "Баяр хүргэе!"

#: drakups:119
#, c-format
msgid "The wizard successfully added the following UPS devices:"
msgstr ""

#: drakups:121
#, fuzzy, c-format
msgid "No new UPS devices was found"
msgstr "Үгүй Зураг"

#: drakups:126 drakups:138
#, fuzzy, c-format
msgid "UPS driver configuration"
msgstr "CUPS тохиргоо"

#: drakups:126
#, fuzzy, c-format
msgid "Please select your UPS model."
msgstr "төрөл."

#: drakups:127
#, fuzzy, c-format
msgid "Manufacturer / Model:"
msgstr "Хэвлэгчийн үйлдвэрлэгч, загвар"

#: drakups:138
#, c-format
msgid ""
"We are configuring the \"%s\" UPS from \"%s\".\n"
"Please fill in its name, its driver and its port."
msgstr ""

#: drakups:143
#, c-format
msgid "Name:"
msgstr "Нэр:"

#: drakups:143
#, fuzzy, c-format
msgid "The name of your ups"
msgstr "нэр аас"

#: drakups:144
#, fuzzy, c-format
msgid "The driver that manages your ups"
msgstr "нэр аас"

#: drakups:145
#, c-format
msgid "Port:"
msgstr "Порт:"

#: drakups:147
#, fuzzy, c-format
msgid "The port on which is connected your ups"
msgstr "төрөл аас бол"

#: drakups:157
#, c-format
msgid "The wizard successfully configured the new \"%s\" UPS device."
msgstr ""

#: drakups:248
#, fuzzy, c-format
msgid "UPS devices"
msgstr " төхөөрөмж дээр: %s"

#: drakups:249 drakups:268 drakups:284 harddrake2:85 harddrake2:111
#: harddrake2:118
#, c-format
msgid "Name"
msgstr "Нэр"

#: drakups:249 harddrake2:133
#, c-format
msgid "Driver"
msgstr "Драйвер"

#: drakups:249 harddrake2:52
#, c-format
msgid "Port"
msgstr "Порт"

#: drakups:267
#, fuzzy, c-format
msgid "UPS users"
msgstr "Хэрэглэгчид"

#: drakups:283
#, c-format
msgid "Access Control Lists"
msgstr ""

#: drakups:284
#, c-format
msgid "IP address"
msgstr "IP хаяг"

#: drakups:284
#, c-format
msgid "IP mask"
msgstr ""

#: drakups:296
#, c-format
msgid "Rules"
msgstr "Дүрэм"

#: drakups:297
#, c-format
msgid "Action"
msgstr "Үйлдэл"

#: drakups:297 harddrake2:82
#, c-format
msgid "Level"
msgstr "Түвшин"

#: drakups:297
#, fuzzy, c-format
msgid "ACL name"
msgstr "нэр?"

#: drakups:329
#, fuzzy, c-format
msgid "UPS Management"
msgstr "Шинэ хэвлэгчийн нэр"

#: drakups:333 drakups:342
#, c-format
msgid "DrakUPS"
msgstr ""

#: drakups:339
#, fuzzy, c-format
msgid "Welcome to the UPS configuration tools"
msgstr "Тест аас"

#: drakxtv:67
#, fuzzy, c-format
msgid "No TV Card detected!"
msgstr "Үгүй!"

#. -PO: keep the double empty lines between sections, this is formatted a la LaTeX
#: drakxtv:69
#, fuzzy, c-format
msgid ""
"No TV Card has been detected on your machine. Please verify that a Linux-"
"supported Video/TV Card is correctly plugged in.\n"
"\n"
"\n"
"You can visit our hardware database at:\n"
"\n"
"\n"
"http://www.mandrivalinux.com/en/hardware.php3"
msgstr ""
"Үгүй Видео бол ямх г г г г\n"
"http://www.mandrivalinux.com/en/hardware.php3"

#: finish-install:44
#, c-format
msgid "Please, choose your keyboard layout."
msgstr ""

#: finish-install:111 finish-install:129 finish-install:141
#, c-format
msgid "Encrypted home partition"
msgstr ""

#: finish-install:111
#, c-format
msgid "Please enter a password for the %s user"
msgstr ""

#: finish-install:129
#, c-format
msgid "Creating encrypted home partition"
msgstr ""

#: finish-install:141
#, c-format
msgid "Formatting encrypted home partition"
msgstr ""

#: harddrake2:27
#, c-format
msgid "Alternative drivers"
msgstr "Альтернатив хөтлөгчүүд"

#: harddrake2:28
#, fuzzy, c-format
msgid "the list of alternative drivers for this sound card"
msgstr "жигсаалт аас"

#: harddrake2:30 harddrake2:120
#, c-format
msgid "Bus"
msgstr "Бус"

#: harddrake2:31
#, fuzzy, c-format
msgid ""
"this is the physical bus on which the device is plugged (eg: PCI, USB, ...)"
msgstr "бол бол USB"

#: harddrake2:33 harddrake2:146
#, c-format
msgid "Bus identification"
msgstr ""

#: harddrake2:34
#, fuzzy, c-format
msgid ""
"- PCI and USB devices: this lists the vendor, device, subvendor and "
"subdevice PCI/USB ids"
msgstr "USB USB"

#: harddrake2:36
#, fuzzy, c-format
msgid "Location on the bus"
msgstr "Байршил"

#: harddrake2:37
#, fuzzy, c-format
msgid ""
"- pci devices: this gives the PCI slot, device and function of this card\n"
"- eide devices: the device is either a slave or a master device\n"
"- scsi devices: the scsi bus and the scsi device ids"
msgstr "аас г бол г"

#: harddrake2:40
#, c-format
msgid "Drive capacity"
msgstr "Хөтлөгчийн багтаамж"

#: harddrake2:40
#, c-format
msgid "special capacities of the driver (burning ability and or DVD support)"
msgstr ""

#: harddrake2:41
#, c-format
msgid "Description"
msgstr "Тодорхойлолт"

#: harddrake2:41
#, c-format
msgid "this field describes the device"
msgstr ""

#: harddrake2:42
#, c-format
msgid "Old device file"
msgstr ""

#: harddrake2:43
#, fuzzy, c-format
msgid "old static device name used in dev package"
msgstr "нэр ямх"

#. -PO: here "module" is the "jargon term" for a kernel driver
#: harddrake2:46
#, c-format
msgid "Module"
msgstr "Модуль"

#: harddrake2:46
#, c-format
msgid "the module of the GNU/Linux kernel that handles the device"
msgstr "төхөөрөмжийг зохицуулдаг GNU/Linux цөмийн модуль"

#: harddrake2:47
#, fuzzy, c-format
msgid "Extended partitions"
msgstr "шинэ"

#: harddrake2:47
#, fuzzy, c-format
msgid "the number of extended partitions"
msgstr "аас"

#: harddrake2:48
#, fuzzy, c-format
msgid "Geometry"
msgstr "Сэргээх"

#: harddrake2:48
#, c-format
msgid "Cylinder/head/sectors geometry of the disk"
msgstr ""

#: harddrake2:49
#, fuzzy, c-format
msgid "Disk controller"
msgstr "USB хянагчууд"

#: harddrake2:49
#, c-format
msgid "the disk controller on the host side"
msgstr ""

#: harddrake2:50
#, c-format
msgid "Media class"
msgstr ""

#: harddrake2:50
#, fuzzy, c-format
msgid "class of hardware device"
msgstr "аас"

#: harddrake2:51 harddrake2:83
#, c-format
msgid "Model"
msgstr "Загвар"

#: harddrake2:51
#, c-format
msgid "hard disk model"
msgstr "хатуу дискийн загвар"

#: harddrake2:52
#, c-format
msgid "network printer port"
msgstr "сүлжээний хэвлэгчийн порт"

#: harddrake2:53
#, fuzzy, c-format
msgid "Primary partitions"
msgstr "Формат"

#: harddrake2:53
#, fuzzy, c-format
msgid "the number of the primary partitions"
msgstr "аас"

#: harddrake2:54 harddrake2:88
#, c-format
msgid "Vendor"
msgstr "Борлуулагч"

#: harddrake2:54
#, fuzzy, c-format
msgid "the vendor name of the device"
msgstr "нэр аас"

#: harddrake2:55
#, c-format
msgid "PCI domain"
msgstr ""

#: harddrake2:55
#, fuzzy, c-format
msgid "the PCI domain of the device"
msgstr "нэр аас"

#: harddrake2:56
#, c-format
msgid "Bus PCI #"
msgstr ""

#: harddrake2:56
#, fuzzy, c-format
msgid "the PCI bus on which the device is plugged"
msgstr "бол бол USB"

#: harddrake2:57
#, fuzzy, c-format
msgid "PCI device #"
msgstr " төхөөрөмж дээр: %s"

#: harddrake2:57
#, fuzzy, c-format
msgid "PCI device number"
msgstr "Утасны дугаар"

#: harddrake2:58
#, c-format
msgid "PCI function #"
msgstr ""

#: harddrake2:58
#, fuzzy, c-format
msgid "PCI function number"
msgstr "Холболт"

#: harddrake2:59
#, fuzzy, c-format
msgid "Vendor ID"
msgstr "Сүлжээ"

#: harddrake2:59
#, c-format
msgid "this is the standard numerical identifier of the vendor"
msgstr ""

#: harddrake2:60
#, fuzzy, c-format
msgid "Device ID"
msgstr "Төхөөрөмж: "

#: harddrake2:60
#, fuzzy, c-format
msgid "this is the numerical identifier of the device"
msgstr "нэр аас"

#: harddrake2:61
#, c-format
msgid "Sub vendor ID"
msgstr ""

#: harddrake2:61
#, c-format
msgid "this is the minor numerical identifier of the vendor"
msgstr ""

#: harddrake2:62
#, fuzzy, c-format
msgid "Sub device ID"
msgstr " төхөөрөмж дээр: %s"

#: harddrake2:62
#, fuzzy, c-format
msgid "this is the minor numerical identifier of the device"
msgstr "нэр аас"

#: harddrake2:63
#, fuzzy, c-format
msgid "Device USB ID"
msgstr "Төхөөрөмж: "

#: harddrake2:63
#, c-format
msgid ".."
msgstr ""

#: harddrake2:66
#, c-format
msgid "Bogomips"
msgstr ""

#: harddrake2:66
#, fuzzy, c-format
msgid ""
"the GNU/Linux kernel needs to run a calculation loop at boot time to "
"initialize a timer counter.  Its result is stored as bogomips as a way to "
"\"benchmark\" the cpu."
msgstr "бол."

#: harddrake2:67
#, c-format
msgid "Cache size"
msgstr "Түр санах ойн хэмжээ"

#: harddrake2:67
#, c-format
msgid "size of the (second level) cpu cache"
msgstr "cpu түр санагчийн (хоёрдугаар түвшин) хэмжээ"

#. -PO: here "comas" is the medical coma, not the lexical coma!!
#: harddrake2:70
#, c-format
msgid "Coma bug"
msgstr "Coma согог"

#: harddrake2:70
#, c-format
msgid "whether this cpu has the Cyrix 6x86 Coma bug"
msgstr ""

#: harddrake2:71
#, c-format
msgid "Cpuid family"
msgstr ""

#: harddrake2:71
#, c-format
msgid "family of the cpu (eg: 6 for i686 class)"
msgstr ""

#: harddrake2:72
#, c-format
msgid "Cpuid level"
msgstr "Cpuid түвшин"

#: harddrake2:72
#, c-format
msgid "information level that can be obtained through the cpuid instruction"
msgstr ""

#: harddrake2:73
#, fuzzy, c-format
msgid "Frequency (MHz)"
msgstr "Давтамж"

#: harddrake2:73
#, fuzzy, c-format
msgid ""
"the CPU frequency in MHz (Megahertz which in first approximation may be "
"coarsely assimilated to number of instructions the cpu is able to execute "
"per second)"
msgstr "ямх ямх аас бол секунд"

#: harddrake2:74
#, c-format
msgid "Flags"
msgstr "Төлвүүд"

#: harddrake2:74
#, c-format
msgid "CPU flags reported by the kernel"
msgstr "цөмөөр мэдээлэгдсэн CPU-ийн төлөвүүд"

#: harddrake2:75
#, c-format
msgid "Fdiv bug"
msgstr "Fdiv согог"

#: harddrake2:76
#, fuzzy, c-format
msgid ""
"Early Intel Pentium chips manufactured have a bug in their floating point "
"processor which did not achieve the required precision when performing a "
"Floating point DIVision (FDIV)"
msgstr "ямх Цэг Цэг"

#: harddrake2:77
#, c-format
msgid "Is FPU present"
msgstr ""

#: harddrake2:77
#, fuzzy, c-format
msgid "yes means the processor has an arithmetic coprocessor"
msgstr "Тийм"

#: harddrake2:78
#, c-format
msgid "Whether the FPU has an irq vector"
msgstr ""

#: harddrake2:78
#, fuzzy, c-format
msgid "yes means the arithmetic coprocessor has an exception vector attached"
msgstr "Тийм"

#: harddrake2:79
#, c-format
msgid "F00f bug"
msgstr ""

#: harddrake2:79
#, c-format
msgid "early pentiums were buggy and freezed when decoding the F00F bytecode"
msgstr ""
"хуучин pentium-ууд нь F00F байт кодыг задлах үед согогтой ба гөлийдөг байсан"

#: harddrake2:80
#, c-format
msgid "Halt bug"
msgstr "Зогс алдаа"

#: harddrake2:81
#, fuzzy, c-format
msgid ""
"Some of the early i486DX-100 chips cannot reliably return to operating mode "
"after the \"halt\" instruction is used"
msgstr "аас горим бол"

#: harddrake2:82
#, fuzzy, c-format
msgid "sub generation of the cpu"
msgstr "аас"

#: harddrake2:83
#, fuzzy, c-format
msgid "generation of the cpu (eg: 8 for Pentium III, ...)"
msgstr "аас"

#: harddrake2:84
#, fuzzy, c-format
msgid "Model name"
msgstr "Загвар"

#: harddrake2:84
#, fuzzy, c-format
msgid "official vendor name of the cpu"
msgstr "нэр аас"

#: harddrake2:85
#, fuzzy, c-format
msgid "the name of the CPU"
msgstr "нэр аас"

#: harddrake2:86
#, fuzzy, c-format
msgid "Processor ID"
msgstr "Процессор"

#: harddrake2:86
#, fuzzy, c-format
msgid "the number of the processor"
msgstr "аас"

#: harddrake2:87
#, c-format
msgid "Model stepping"
msgstr "Загвар алхалт"

#: harddrake2:87
#, fuzzy, c-format
msgid "stepping of the cpu (sub model (generation) number)"
msgstr "аас"

#: harddrake2:88
#, fuzzy, c-format
msgid "the vendor name of the processor"
msgstr "нэр аас"

#: harddrake2:89
#, fuzzy, c-format
msgid "Write protection"
msgstr "Бичих"

#: harddrake2:89
#, fuzzy, c-format
msgid ""
"the WP flag in the CR0 register of the cpu enforce write protection at the "
"memory page level, thus enabling the processor to prevent unchecked kernel "
"accesses to user memory (aka this is a bug guard)"
msgstr "ямх"

#: harddrake2:93
#, c-format
msgid "Floppy format"
msgstr "Уян диск бэлдэх"

#: harddrake2:93
#, fuzzy, c-format
msgid "format of floppies supported by the drive"
msgstr "аас"

#: harddrake2:97
#, c-format
msgid "Channel"
msgstr ""

#: harddrake2:97
#, c-format
msgid "EIDE/SCSI channel"
msgstr ""

#: harddrake2:98
#, fuzzy, c-format
msgid "Disk identifier"
msgstr "Хэвлэгч"

#: harddrake2:98
#, c-format
msgid "usually the disk serial number"
msgstr ""

#: harddrake2:99
#, fuzzy, c-format
msgid "Logical unit number"
msgstr "Локал хэмжээс"

#: harddrake2:99
#, c-format
msgid ""
"the SCSI target number (LUN). SCSI devices connected to a host are uniquely "
"identified by a\n"
"channel number, a target id and a logical unit number"
msgstr ""

#. -PO: here, "size" is the size of the ram chip (eg: 128Mo, 256Mo, ...)
#: harddrake2:106
#, fuzzy, c-format
msgid "Installed size"
msgstr "Суулгах жагсаалт"

#: harddrake2:106
#, c-format
msgid "Installed size of the memory bank"
msgstr ""

#: harddrake2:107
#, fuzzy, c-format
msgid "Enabled Size"
msgstr "идэвхжүүлэх"

#: harddrake2:107
#, c-format
msgid "Enabled size of the memory bank"
msgstr ""

#: harddrake2:108
#, fuzzy, c-format
msgid "type of the memory device"
msgstr "нэр аас"

#: harddrake2:109
#, c-format
msgid "Speed"
msgstr "Хурд"

#: harddrake2:109
#, c-format
msgid "Speed of the memory bank"
msgstr ""

#: harddrake2:110
#, fuzzy, c-format
msgid "Bank connections"
msgstr "Кабель холболт"

#: harddrake2:111
#, c-format
msgid "Socket designation of the memory bank"
msgstr ""

#: harddrake2:115
#, fuzzy, c-format
msgid "Device file"
msgstr "Төхөөрөмж: "

#: harddrake2:115
#, c-format
msgid ""
"the device file used to communicate with the kernel driver for the mouse"
msgstr ""

#: harddrake2:116
#, c-format
msgid "Emulated wheel"
msgstr ""

#: harddrake2:116
#, fuzzy, c-format
msgid "whether the wheel is emulated or not"
msgstr "Товчинууд тоолуур"

#: harddrake2:117
#, fuzzy, c-format
msgid "the type of the mouse"
msgstr "нэр аас"

#: harddrake2:118
#, fuzzy, c-format
msgid "the name of the mouse"
msgstr "нэр аас"

#: harddrake2:119
#, c-format
msgid "Number of buttons"
msgstr "Товчнуудын тоо"

#: harddrake2:119
#, fuzzy, c-format
msgid "the number of buttons the mouse has"
msgstr "аас"

#: harddrake2:120
#, fuzzy, c-format
msgid "the type of bus on which the mouse is connected"
msgstr "төрөл аас бол"

#: harddrake2:121
#, c-format
msgid "Mouse protocol used by X11"
msgstr ""

#: harddrake2:121
#, c-format
msgid "the protocol that the graphical desktop use with the mouse"
msgstr ""

#: harddrake2:128 harddrake2:137 harddrake2:144 harddrake2:152 harddrake2:332
#, c-format
msgid "Identification"
msgstr "Тодотгол"

#: harddrake2:129 harddrake2:145
#, c-format
msgid "Connection"
msgstr "Холболт"

#: harddrake2:138
#, fuzzy, c-format
msgid "Performances"
msgstr "Тохируулгууд"

#: harddrake2:139
#, fuzzy, c-format
msgid "Bugs"
msgstr "Бус"

#: harddrake2:140
#, c-format
msgid "FPU"
msgstr ""

#: harddrake2:147
#, c-format
msgid "Device"
msgstr "Төхөөрөмж"

#: harddrake2:148
#, c-format
msgid "Partitions"
msgstr "Хуваалтууд"

#: harddrake2:153
#, c-format
msgid "Features"
msgstr "Тэмдэг"

#. -PO: please keep all "/" characters !!!
#: harddrake2:176 logdrake:78
#, c-format
msgid "/_Options"
msgstr "/_Сонголтууд"

#: harddrake2:177 harddrake2:206 logdrake:80
#, c-format
msgid "/_Help"
msgstr "/_Тусламж"

#: harddrake2:181
#, c-format
msgid "/Autodetect _printers"
msgstr "/Хэвлэгчүүдийг автоматаар таних"

#: harddrake2:182
#, c-format
msgid "/Autodetect _modems"
msgstr ""

#: harddrake2:183
#, c-format
msgid "/Autodetect _jaz drives"
msgstr "/_jaz хөтлөгчүүдийг автоматаар таних"

#: harddrake2:184
#, c-format
msgid "/Autodetect parallel _zip drives"
msgstr ""

#: harddrake2:188
#, fuzzy, c-format
msgid "Hardware Configuration"
msgstr "Сүлжээний тохируулга"

#: harddrake2:195
#, c-format
msgid "/_Quit"
msgstr "/_Гарах"

#: harddrake2:208
#, c-format
msgid "/_Fields description"
msgstr ""

#: harddrake2:210
#, c-format
msgid "Harddrake help"
msgstr ""

#: harddrake2:219
#, fuzzy, c-format
msgid "Select a device!"
msgstr "Сонгох!"

#: harddrake2:219
#, fuzzy, c-format
msgid ""
"Once you've selected a device, you'll be able to see the device information "
"in fields displayed on the right frame (\"Information\")"
msgstr "вы вы ямх баруун хүрээ Мэдээлэл"

#: harddrake2:225
#, c-format
msgid "/_Report Bug"
msgstr "/_Гажигийг мэдээлэх"

#: harddrake2:227
#, c-format
msgid "/_About..."
msgstr "/_Т_ухай..."

#: harddrake2:230
#, fuzzy, c-format
msgid "Harddrake"
msgstr "HardDrake"

#: harddrake2:232
#, c-format
msgid "Copyright (C) %s by Mandriva"
msgstr ""

#: harddrake2:234
#, c-format
msgid "This is HardDrake, a %s hardware configuration tool."
msgstr ""

#: harddrake2:267
#, c-format
msgid "Detected hardware"
msgstr ""

#: harddrake2:270 scannerdrake:286
#, c-format
msgid "Information"
msgstr "Мэдээлэл"

#: harddrake2:272
#, c-format
msgid "Set current driver options"
msgstr ""

#: harddrake2:279
#, c-format
msgid "Run config tool"
msgstr "Тохируулагчийг ажиллуулах"

#: harddrake2:299
#, fuzzy, c-format
msgid ""
"Click on a device in the left tree in order to display its information here."
msgstr "ямх зүүн Мод ямх."

#: harddrake2:319
#, c-format
msgid "unknown"
msgstr "үл мэдэгдэх"

#: harddrake2:340
#, c-format
msgid "Misc"
msgstr "Янз бүрийн"

#: harddrake2:415
#, c-format
msgid "secondary"
msgstr "хоёрдугаар"

#: harddrake2:415
#, c-format
msgid "primary"
msgstr ""

#: harddrake2:419
#, fuzzy, c-format
msgid "burner"
msgstr "Хэвлэгч"

#: harddrake2:419
#, c-format
msgid "DVD"
msgstr "DVD"

#: localedrake:47
#, fuzzy, c-format
msgid "LocaleDrake"
msgstr "Локал хэмжээс"

#: localedrake:53
#, fuzzy, c-format
msgid "You should install the following packages: %s"
msgstr "Ямар нэгэн туршилтын хуудас битгий хэвлэ"

#. -PO: the following is used to combine packages names. eg: "initscripts, harddrake, yudit"
#: localedrake:56
#, c-format
msgid ", "
msgstr ", "

#: localedrake:64
#, c-format
msgid "The change is done, but to be effective you must logout"
msgstr ""

#: logdrake:51
#, fuzzy, c-format
msgid "Mandriva Linux Tools Logs"
msgstr "Мандрива удирдлагын төв"

#: logdrake:52
#, fuzzy, c-format
msgid "Logs"
msgstr "Log"

#: logdrake:65
#, c-format
msgid "Show only for the selected day"
msgstr "Зөвхөн сонгогдсон өдрийн хувьд харуулах"

#: logdrake:72
#, c-format
msgid "/File/_New"
msgstr "/Файл/_Шинэ"

#: logdrake:72
#, c-format
msgid "<control>N"
msgstr "<control>N"

#: logdrake:73
#, c-format
msgid "/File/_Open"
msgstr "/Файл/_Нээх"

#: logdrake:73
#, c-format
msgid "<control>O"
msgstr "<control>O"

#: logdrake:74
#, c-format
msgid "/File/_Save"
msgstr "/Файл/_Хадгалах"

#: logdrake:74
#, c-format
msgid "<control>S"
msgstr "<control>S"

#: logdrake:75
#, c-format
msgid "/File/Save _As"
msgstr "/Файл/Ингэж хадгал"

#: logdrake:76
#, c-format
msgid "/File/-"
msgstr "/Файл/-"

#: logdrake:79
#, c-format
msgid "/Options/Test"
msgstr "/Сонголтууд/Шалгалт"

#: logdrake:81
#, c-format
msgid "/Help/_About..."
msgstr "/Тусламж/_Тухай..."

#: logdrake:110
#, c-format
msgid ""
"_:this is the auth.log log file\n"
"Authentication"
msgstr ""

#: logdrake:111
#, c-format
msgid ""
"_:this is the user.log log file\n"
"User"
msgstr ""

#: logdrake:112
#, c-format
msgid ""
"_:this is the /var/log/messages log file\n"
"Messages"
msgstr ""

#: logdrake:113
#, c-format
msgid ""
"_:this is the /var/log/syslog log file\n"
"Syslog"
msgstr ""

#: logdrake:117
#, c-format
msgid "search"
msgstr ""

#: logdrake:129
#, c-format
msgid "A tool to monitor your logs"
msgstr ""

#: logdrake:131
#, c-format
msgid "Settings"
msgstr "Тохируулга"

#: logdrake:134
#, c-format
msgid "Matching"
msgstr ""

#: logdrake:135
#, c-format
msgid "but not matching"
msgstr ""

#: logdrake:138
#, fuzzy, c-format
msgid "Choose file"
msgstr "Сонгох"

#: logdrake:150
#, c-format
msgid "Calendar"
msgstr "Цаг тооны бичиг"

#: logdrake:159
#, fuzzy, c-format
msgid "Content of the file"
msgstr "аас"

#: logdrake:163 logdrake:407
#, c-format
msgid "Mail alert"
msgstr "Мэйл дохио"

#: logdrake:170
#, c-format
msgid "The alert wizard has failed unexpectedly:"
msgstr ""

#: logdrake:174
#, c-format
msgid "Save"
msgstr "Хадгалах"

#: logdrake:222
#, c-format
msgid "please wait, parsing file: %s"
msgstr ""

#: logdrake:244
#, c-format
msgid "Sorry, log file isn't available!"
msgstr ""

#: logdrake:292
#, c-format
msgid "Error while opening \"%s\" log file: %s\n"
msgstr ""

#: logdrake:385
#, fuzzy, c-format
msgid "Apache World Wide Web Server"
msgstr "Вэб"

#: logdrake:386
#, fuzzy, c-format
msgid "Domain Name Resolver"
msgstr "Домэйн Нэр"

#: logdrake:387
#, c-format
msgid "Ftp Server"
msgstr "FTP Сервер"

#: logdrake:388
#, fuzzy, c-format
msgid "Postfix Mail Server"
msgstr "Мэйл"

#: logdrake:389
#, fuzzy, c-format
msgid "Samba Server"
msgstr "Самба"

#: logdrake:390
#, c-format
msgid "SSH Server"
msgstr ""

#: logdrake:391
#, c-format
msgid "Webmin Service"
msgstr ""

#: logdrake:392
#, c-format
msgid "Xinetd Service"
msgstr ""

#: logdrake:401
#, fuzzy, c-format
msgid "Configure the mail alert system"
msgstr "Өөрчилөх"

#: logdrake:402
#, c-format
msgid "Stop the mail alert system"
msgstr ""

#: logdrake:410
#, c-format
msgid "Mail alert configuration"
msgstr "Мэйл сонордуулгын тохиргоо"

#: logdrake:411
#, fuzzy, c-format
msgid ""
"Welcome to the mail configuration utility.\n"
"\n"
"Here, you'll be able to set up the alert system.\n"
msgstr "Тавтай морил г вы Сонордуулга"

#: logdrake:414
#, fuzzy, c-format
msgid "What do you want to do?"
msgstr "Хаана вы с?"

#: logdrake:421
#, fuzzy, c-format
msgid "Services settings"
msgstr "Тохируулгууд:"

#: logdrake:422
#, fuzzy, c-format
msgid ""
"You will receive an alert if one of the selected services is no longer "
"running"
msgstr "Та Сонордуулга ачаалах бол"

#: logdrake:429
#, fuzzy, c-format
msgid "Load setting"
msgstr "ачаалах"

#: logdrake:430
#, fuzzy, c-format
msgid "You will receive an alert if the load is higher than this value"
msgstr "Та Сонордуулга ачаалах бол"

#: logdrake:431
#, c-format
msgid ""
"_: load here is a noun, the load of the system\n"
"Load"
msgstr ""

#: logdrake:436
#, fuzzy, c-format
msgid "Alert configuration"
msgstr "Сонордуулга"

#: logdrake:437
#, c-format
msgid "Please enter your email address below "
msgstr "Та доор э-шуудангийн хаягаа өгнө үү"

#: logdrake:438
#, fuzzy, c-format
msgid "and enter the name (or the IP) of the SMTP server you wish to use"
msgstr "аас вы."

#: logdrake:445
#, c-format
msgid "\"%s\" neither is a valid email nor is an existing local user!"
msgstr ""

#: logdrake:450
#, c-format
msgid ""
"\"%s\" is a local user, but you did not select a local smtp, so you must use "
"a complete email address!"
msgstr ""

#: logdrake:457
#, c-format
msgid "The wizard successfully configured the mail alert."
msgstr ""

#: logdrake:463
#, c-format
msgid "The wizard successfully disabled the mail alert."
msgstr ""

#: logdrake:522
#, fuzzy, c-format
msgid "Save as.."
msgstr "Хадгалах."

#: scannerdrake:51
#, fuzzy, c-format
msgid ""
"SANE packages need to be installed to use scanners.\n"
"\n"
"Do you want to install the SANE packages?"
msgstr "%s багц суулгагдах шаардлагатай. Үүнийг суулгахыг хүсэж байна уу?"

#: scannerdrake:55
#, fuzzy, c-format
msgid "Aborting Scannerdrake."
msgstr "Harddrake-н тухай"

#: scannerdrake:60
#, c-format
msgid ""
"Could not install the packages needed to set up a scanner with Scannerdrake."
msgstr ""

#: scannerdrake:61
#, c-format
msgid "Scannerdrake will not be started now."
msgstr ""

#: scannerdrake:67 scannerdrake:506
#, c-format
msgid "Searching for configured scanners..."
msgstr ""

#: scannerdrake:71 scannerdrake:510
#, fuzzy, c-format
msgid "Searching for new scanners..."
msgstr "шинэ."

#: scannerdrake:79 scannerdrake:532
#, c-format
msgid "Re-generating list of configured scanners..."
msgstr ""

#: scannerdrake:101
#, c-format
msgid "The %s is not supported by this version of %s."
msgstr ""

#: scannerdrake:104
#, fuzzy, c-format
msgid "%s found on %s, configure it automatically?"
msgstr "%s нь скайнерын санд алга байна, үүнийг гараараа тохируулах уу?"

#: scannerdrake:116
#, c-format
msgid "%s is not in the scanner database, configure it manually?"
msgstr "%s нь скайнерын санд алга байна, үүнийг гараараа тохируулах уу?"

#: scannerdrake:130
#, fuzzy, c-format
msgid "Scanner configuration"
msgstr "Сонордуулга"

#: scannerdrake:131
#, c-format
msgid "Select a scanner model (Detected model: %s, Port: %s)"
msgstr ""

#: scannerdrake:133
#, c-format
msgid "Select a scanner model (Detected model: %s)"
msgstr ""

#: scannerdrake:134
#, c-format
msgid "Select a scanner model (Port: %s)"
msgstr ""

#: scannerdrake:136 scannerdrake:139
#, c-format
msgid " (UNSUPPORTED)"
msgstr ""

#: scannerdrake:142
#, fuzzy, c-format
msgid "The %s is not supported under Linux."
msgstr "Сонгогдсон протокол дэмжигдээгүй."

#: scannerdrake:169 scannerdrake:183
#, c-format
msgid "Do not install firmware file"
msgstr ""

#: scannerdrake:172 scannerdrake:222
#, fuzzy, c-format
msgid "Scanner Firmware"
msgstr "Файл"

#: scannerdrake:173 scannerdrake:225
#, c-format
msgid ""
"It is possible that your %s needs its firmware to be uploaded everytime when "
"it is turned on."
msgstr ""

#: scannerdrake:174 scannerdrake:226
#, c-format
msgid "If this is the case, you can make this be done automatically."
msgstr ""

#: scannerdrake:175 scannerdrake:229
#, c-format
msgid ""
"To do so, you need to supply the firmware file for your scanner so that it "
"can be installed."
msgstr ""

#: scannerdrake:176 scannerdrake:230
#, c-format
msgid ""
"You find the file on the CD or floppy coming with the scanner, on the "
"manufacturer's home page, or on your Windows partition."
msgstr ""

#: scannerdrake:178 scannerdrake:237
#, c-format
msgid "Install firmware file from"
msgstr ""

#: scannerdrake:180 scannerdrake:188 scannerdrake:239 scannerdrake:246
#, c-format
msgid "CD-ROM"
msgstr "КД-РОМ"

#: scannerdrake:181 scannerdrake:190 scannerdrake:240 scannerdrake:248
#, fuzzy, c-format
msgid "Floppy Disk"
msgstr "Уян диск"

#: scannerdrake:182 scannerdrake:192 scannerdrake:241 scannerdrake:250
#, fuzzy, c-format
msgid "Other place"
msgstr "Бусад"

#: scannerdrake:198
#, fuzzy, c-format
msgid "Select firmware file"
msgstr "Файл сонгох"

#: scannerdrake:201 scannerdrake:260
#, c-format
msgid "The firmware file %s does not exist or is unreadable!"
msgstr ""

#: scannerdrake:224
#, c-format
msgid ""
"It is possible that your scanners need their firmware to be uploaded "
"everytime when they are turned on."
msgstr ""

#: scannerdrake:228
#, c-format
msgid ""
"To do so, you need to supply the firmware files for your scanners so that it "
"can be installed."
msgstr ""

#: scannerdrake:231
#, c-format
msgid ""
"If you have already installed your scanner's firmware you can update the "
"firmware here by supplying the new firmware file."
msgstr ""

#: scannerdrake:233
#, c-format
msgid "Install firmware for the"
msgstr ""

#: scannerdrake:256
#, fuzzy, c-format
msgid "Select firmware file for the %s"
msgstr "Файл сонгох"

#: scannerdrake:274
#, fuzzy, c-format
msgid "Could not install the firmware file for the %s!"
msgstr "Файл сонгох"

#: scannerdrake:287
#, c-format
msgid "The firmware file for your %s was successfully installed."
msgstr ""

#: scannerdrake:297
#, fuzzy, c-format
msgid "The %s is unsupported"
msgstr "Сонгогдсон протокол дэмжигдээгүй."

#: scannerdrake:302
#, c-format
msgid ""
"The %s must be configured by printerdrake.\n"
"You can launch printerdrake from the %s Control Center in Hardware section."
msgstr ""

#: scannerdrake:320
#, fuzzy, c-format
msgid "Setting up kernel modules..."
msgstr "Модулийг устгах"

#: scannerdrake:330 scannerdrake:337 scannerdrake:367
#, fuzzy, c-format
msgid "Auto-detect available ports"
msgstr "/Хэвлэгчүүдийг автоматаар таних"

#: scannerdrake:331 scannerdrake:377
#, fuzzy, c-format
msgid "Device choice"
msgstr "Төхөөрөмж: "

#: scannerdrake:332 scannerdrake:378
#, c-format
msgid "Please select the device where your %s is attached"
msgstr ""

#: scannerdrake:333
#, c-format
msgid "(Note: Parallel ports cannot be auto-detected)"
msgstr "(Тэмдэглэл: Зэргэлдээ портуудыг автоматаар таньж чадахгүй)"

#: scannerdrake:335 scannerdrake:380
#, c-format
msgid "choose device"
msgstr "төхөөрөмж сонгох"

#: scannerdrake:369
#, c-format
msgid "Searching for scanners..."
msgstr ""

#: scannerdrake:405 scannerdrake:412
#, fuzzy, c-format
msgid "Attention!"
msgstr "Автомат танилт"

#: scannerdrake:406
#, c-format
msgid ""
"Your %s cannot be configured fully automatically.\n"
"\n"
"Manual adjustments are required. Please edit the configuration file /etc/"
"sane.d/%s.conf. "
msgstr ""

#: scannerdrake:407 scannerdrake:416
#, c-format
msgid ""
"More info in the driver's manual page. Run the command \"man sane-%s\" to "
"read it."
msgstr ""

#: scannerdrake:409 scannerdrake:418
#, c-format
msgid ""
"After that you may scan documents using \"XSane\" or \"Kooka\" from "
"Multimedia/Graphics in the applications menu."
msgstr ""

#: scannerdrake:413
#, c-format
msgid ""
"Your %s has been configured, but it is possible that additional manual "
"adjustments are needed to get it to work. "
msgstr ""

#: scannerdrake:414
#, c-format
msgid ""
"If it does not appear in the list of configured scanners in the main window "
"of Scannerdrake or if it does not work correctly, "
msgstr ""

#: scannerdrake:415
#, c-format
msgid "edit the configuration file /etc/sane.d/%s.conf. "
msgstr ""

#: scannerdrake:420
#, c-format
msgid "Congratulations!"
msgstr "Баяр хүргэе!"

#: scannerdrake:421
#, c-format
msgid ""
"Your %s has been configured.\n"
"You may now scan documents using \"XSane\" or \"Kooka\" from Multimedia/"
"Graphics in the applications menu."
msgstr ""

#: scannerdrake:446
#, fuzzy, c-format
msgid ""
"The following scanners\n"
"\n"
"%s\n"
"are available on your system.\n"
msgstr ""
"Дараах хэвлэгч\n"
"\n"
"%s%s\n"
"нь таны систем рүү шууд холбогдсон байна"

#: scannerdrake:447
#, fuzzy, c-format
msgid ""
"The following scanner\n"
"\n"
"%s\n"
"is available on your system.\n"
msgstr ""
"Дараах хэвлэгч\n"
"\n"
"%s%s\n"
"нь таны систем рүү шууд холбогдсон байна"

#: scannerdrake:450 scannerdrake:453
#, fuzzy, c-format
msgid "There are no scanners found which are available on your system.\n"
msgstr "үгүй"

#: scannerdrake:461
#, fuzzy, c-format
msgid "Scanner Management"
msgstr "Шинэ хэвлэгчийн нэр"

#: scannerdrake:467
#, fuzzy, c-format
msgid "Search for new scanners"
msgstr "Серверүүд хайх"

#: scannerdrake:473
#, fuzzy, c-format
msgid "Add a scanner manually"
msgstr "Сонгох"

#: scannerdrake:480
#, fuzzy, c-format
msgid "Install/Update firmware files"
msgstr "Файл сонгох"

#: scannerdrake:486
#, fuzzy, c-format
msgid "Scanner sharing"
msgstr "Файл"

#: scannerdrake:545 scannerdrake:710
#, fuzzy, c-format
msgid "All remote machines"
msgstr "Үгүй"

#: scannerdrake:557 scannerdrake:860
#, c-format
msgid "This machine"
msgstr "Энэ машин"

#: scannerdrake:596
#, fuzzy, c-format
msgid "Scanner Sharing"
msgstr "Файл"

#: scannerdrake:597
#, c-format
msgid ""
"Here you can choose whether the scanners connected to this machine should be "
"accessible by remote machines and by which remote machines."
msgstr ""

#: scannerdrake:598
#, fuzzy, c-format
msgid ""
"You can also decide here whether scanners on remote machines should be made "
"available on this machine."
msgstr "Та."

#: scannerdrake:601
#, c-format
msgid "The scanners on this machine are available to other computers"
msgstr "Энэ машин дээрх скайнерууд нь бусад тооцоолууруудын хувьд боломжтой"

#: scannerdrake:603
#, c-format
msgid "Scanner sharing to hosts: "
msgstr ""

#: scannerdrake:608 scannerdrake:625
#, fuzzy, c-format
msgid "No remote machines"
msgstr "Үгүй"

#: scannerdrake:617
#, fuzzy, c-format
msgid "Use scanners on remote computers"
msgstr "Нээх дээд"

#: scannerdrake:620
#, fuzzy, c-format
msgid "Use the scanners on hosts: "
msgstr "Нээх "

#: scannerdrake:647 scannerdrake:719 scannerdrake:869
#, fuzzy, c-format
msgid "Sharing of local scanners"
msgstr "аас"

#: scannerdrake:648
#, fuzzy, c-format
msgid ""
"These are the machines on which the locally connected scanner(s) should be "
"available:"
msgstr "Сонгох Нээх локал:"

#: scannerdrake:659 scannerdrake:809
#, fuzzy, c-format
msgid "Add host"
msgstr "Нэмэх"

#: scannerdrake:665 scannerdrake:815
#, c-format
msgid "Edit selected host"
msgstr "Сонгогдсон хостыг засах"

#: scannerdrake:674 scannerdrake:824
#, fuzzy, c-format
msgid "Remove selected host"
msgstr "Устгах"

#: scannerdrake:698 scannerdrake:706 scannerdrake:711 scannerdrake:757
#: scannerdrake:848 scannerdrake:856 scannerdrake:861 scannerdrake:907
#, c-format
msgid "Name/IP address of host:"
msgstr "Хостын Нэр/IP хаяг:"

#: scannerdrake:720 scannerdrake:870
#, fuzzy, c-format
msgid "Choose the host on which the local scanners should be made available:"
msgstr "Сонгох Нээх локал:"

#: scannerdrake:731 scannerdrake:881
#, fuzzy, c-format
msgid "You must enter a host name or an IP address.\n"
msgstr "Та нэр"

#: scannerdrake:742 scannerdrake:892
#, fuzzy, c-format
msgid "This host is already in the list, it cannot be added again.\n"
msgstr "бол ямх жигсаалт"

#: scannerdrake:797
#, fuzzy, c-format
msgid "Usage of remote scanners"
msgstr "аас"

#: scannerdrake:798
#, c-format
msgid "These are the machines from which the scanners should be used:"
msgstr ""

#: scannerdrake:955
#, fuzzy, c-format
msgid ""
"saned needs to be installed to share the local scanner(s).\n"
"\n"
"Do you want to install the saned package?"
msgstr "%s багц суулгагдах шаардлагатай. Үүнийг суулгахыг хүсэж байна уу?"

#: scannerdrake:959 scannerdrake:963
#, c-format
msgid "Your scanner(s) will not be available on the network."
msgstr ""

#: service_harddrake:131
#, c-format
msgid "Some devices in the \"%s\" hardware class were removed:\n"
msgstr ""

#: service_harddrake:132
#, c-format
msgid "- %s was removed\n"
msgstr ""

#: service_harddrake:135
#, fuzzy, c-format
msgid "Some devices were added: %s\n"
msgstr "Хэсэг төхөөрөмж нэмэгдлээ:\n"

#: service_harddrake:136
#, c-format
msgid "- %s was added\n"
msgstr ""

#: service_harddrake:259
#, fuzzy, c-format
msgid "Hardware probing in progress"
msgstr "Hardware ямх"

#: service_harddrake_confirm:7
#, c-format
msgid "Hardware changes in \"%s\" class (%s seconds to answer)"
msgstr ""

#: service_harddrake_confirm:8
#, c-format
msgid "Do you want to run the appropriate config tool?"
msgstr ""

#~ msgid "Error!"
#~ msgstr "Алдаа!"

#, fuzzy
#~ msgid "I can not find needed image file `%s'."
#~ msgstr "pixmap файлыг олж чадсангүй: %s"

#, fuzzy
#~ msgid "Auto Install Configurator"
#~ msgstr "Авто"

#, fuzzy
#~ msgid "Automatic Steps Configuration"
#~ msgstr "Автоматаар"

#, fuzzy
#~ msgid "Insert a blank floppy in drive %s"
#~ msgstr "Оруулах ямх"

#, fuzzy
#~ msgid "Creating auto install floppy"
#~ msgstr "Үүсгэж байна"

#, fuzzy
#~ msgid "Insert another blank floppy in drive %s (for drivers disk)"
#~ msgstr "Оруулах ямх"

#, fuzzy
#~ msgid "Creating auto install floppy (drivers disk)"
#~ msgstr "Үүсгэж байна"

#, fuzzy
#~ msgid ""
#~ "\n"
#~ "Welcome.\n"
#~ "\n"
#~ "The parameters of the auto-install are available in the sections on the "
#~ "left"
#~ msgstr "г аас ямх"

#, fuzzy
#~ msgid "Auto Install"
#~ msgstr "Авто"

#, fuzzy
#~ msgid "Add an item"
#~ msgstr "Нэмэх"

#, fuzzy
#~ msgid "Remove the last item"
#~ msgstr "Устгах"

#~ msgid "HardDrake"
#~ msgstr "HardDrake"

#~ msgid "Menudrake"
#~ msgstr "Цэсдраке"

#~ msgid "Urpmi"
#~ msgstr "Urpmi"

#~ msgid "Userdrake"
#~ msgstr "Хэрэглэгчийн драке"
n </span>
<span class="hl str">on a component license should be addressed to the component author and not to MandrakeSoft.</span>
<span class="hl str">The programs developed by MandrakeSoft S.A. are governed by the GPL License. Documentation written </span>
<span class="hl str">by MandrakeSoft S.A. is governed by a specific license. Please refer to the documentation for </span>
<span class="hl str">further details.</span>
<span class="hl str"></span>
<span class="hl str"></span>
<span class="hl str">4. Intellectual Property Rights</span>
<span class="hl str"></span>
<span class="hl str">All rights to the components of the Software Products belong to their respective authors and are </span>
<span class="hl str">protected by intellectual property and copyright laws applicable to software programs.</span>
<span class="hl str">MandrakeSoft S.A. reserves its rights to modify or adapt the Software Products, as a whole or in </span>
<span class="hl str">parts, by all means and for all purposes.</span>
<span class="hl str"></span><span class="hl esc">\&quot;</span><span class="hl str">Mandrake</span><span class="hl esc">\&quot;</span><span class="hl str">,</span> <span class="hl esc">\&quot;</span><span class="hl str">Linux-Mandrake</span><span class="hl esc">\&quot;</span> <span class="hl str">and associated logos are trademarks of MandrakeSoft S.A.  </span>
<span class="hl str"></span>
<span class="hl str"></span>
<span class="hl str">5. Governing Laws </span>
<span class="hl str"></span>
<span class="hl str">If any portion of this agreement is held void, illegal or inapplicable by a court judgment, this </span>
<span class="hl str">portion is excluded from this contract. You remain bound by the other applicable sections of the </span>
<span class="hl str">agreement.</span>
<span class="hl str">The terms and conditions of this License are governed by the Laws of France.</span>
<span class="hl str">All disputes on the terms of this license will preferably be settled out of court. As a last </span>
<span class="hl str">resort, the dispute will be referred to the appropriate Courts of Law of Paris - France.</span>
<span class="hl str">For any question on this document, please contact MandrakeSoft S.A.  </span>
<span class="hl str">&quot;</span><span class="hl opt">)), [</span> __<span class="hl opt">(</span><span class="hl str">&quot;Accept&quot;</span><span class="hl opt">),</span> __<span class="hl opt">(</span><span class="hl str">&quot;Refuse&quot;</span><span class="hl opt">) ],</span> <span class="hl str">&quot;Accept&quot;</span><span class="hl opt">)</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;Accept&quot;</span> <span class="hl kwc">or</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwa">exit</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>
<span class="hl slc">#------------------------------------------------------------------------------</span>
<span class="hl kwa">sub</span> selectKeyboard <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o, $clicked</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">$l</span> <span class="hl opt">=</span> keyboard<span class="hl opt">::</span>lang2keyboards<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>lang<span class="hl opt">});</span>

    <span class="hl slc">#- good guess, don&apos;t ask</span>
    <span class="hl kwa">return if</span> <span class="hl opt">!$::</span>expert <span class="hl opt">&amp;&amp; !</span><span class="hl kwb">$clicked</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$l</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">] &gt;</span> <span class="hl num">90</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">&#64;best</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">0</span><span class="hl opt">] }</span> <span class="hl kwb">&#64;$l</span><span class="hl opt">;</span>
    <span class="hl kwc">push</span> <span class="hl kwb">&#64;best,</span> <span class="hl str">&apos;us_intl&apos;</span> <span class="hl kwa">if</span> <span class="hl opt">!</span>member<span class="hl opt">(</span><span class="hl str">&apos;us_intl&apos;</span><span class="hl opt">,</span> <span class="hl kwb">&#64;best</span><span class="hl opt">);</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$format</span> <span class="hl opt">=</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span> translate<span class="hl opt">(</span>keyboard<span class="hl opt">::</span>keyboard2text<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">my</span> <span class="hl kwb">$other</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$ext_keyboard</span> <span class="hl opt">=</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>keyboard<span class="hl opt">};</span>
    <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_entries_refH_powered</span><span class="hl opt">(</span>
	<span class="hl opt">{</span> title <span class="hl opt">=&gt;</span> _<span class="hl opt">(</span><span class="hl str">&quot;Keyboard&quot;</span><span class="hl opt">),</span> 
	  messages <span class="hl opt">=&gt;</span> _<span class="hl opt">(</span><span class="hl str">&quot;Please, choose your keyboard layout.&quot;</span><span class="hl opt">),</span>
	  advanced_messages <span class="hl opt">=&gt;</span> _<span class="hl opt">(</span><span class="hl str">&quot;Here is the full list of keyboards available&quot;</span><span class="hl opt">),</span>
	  advanced_label <span class="hl opt">=&gt;</span> _<span class="hl opt">(</span><span class="hl str">&quot;More&quot;</span><span class="hl opt">),</span>
	  callbacks <span class="hl opt">=&gt; {</span> changed <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span> <span class="hl kwb">$other</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 num">1</span> <span class="hl opt">} },</span>
	<span class="hl opt">},</span>
	  <span class="hl opt">[</span> if_<span class="hl opt">(</span><span class="hl kwb">&#64;best</span> <span class="hl opt">&gt;</span> <span class="hl num">1</span><span class="hl opt">, {</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>keyboard<span class="hl opt">},</span> type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;list&apos;</span><span class="hl opt">,</span> format <span class="hl opt">=&gt;</span> <span class="hl kwb">$format,</span>
	      list <span class="hl opt">=&gt; [</span> <span class="hl kwb">&#64;best</span> <span class="hl opt">] }),</span>
	    <span class="hl opt">{</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$ext_keyboard,</span> type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;list&apos;</span><span class="hl opt">,</span> format <span class="hl opt">=&gt;</span> <span class="hl kwb">$format,</span>
	      list <span class="hl opt">=&gt; [</span> keyboard<span class="hl opt">::</span>keyboards <span class="hl opt">],</span> advanced <span class="hl opt">=&gt;</span> <span class="hl kwb">&#64;best</span> <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 kwc">delete</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>keyboard_unsafe<span class="hl opt">};</span>

    <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>keyboard<span class="hl opt">} =</span> <span class="hl kwb">$ext_keyboard</span> <span class="hl kwa">if</span> <span class="hl kwb">$other</span><span class="hl opt">;</span>
    install_steps<span class="hl opt">::</span>selectKeyboard<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">);</span>
<span class="hl opt">}</span>
<span class="hl slc">#------------------------------------------------------------------------------</span>
<span class="hl kwa">sub</span> selectInstallClass1 <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o, $verif, $l, $def, $l2, $def2</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwb">$verif</span><span class="hl opt">-&gt;(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_list</span><span class="hl opt">(</span>_<span class="hl opt">(</span><span class="hl str">&quot;Install Class&quot;</span><span class="hl opt">),</span> _<span class="hl opt">(</span><span class="hl str">&quot;Which installation class do you want?&quot;</span><span class="hl opt">),</span> <span class="hl kwb">$l, $def</span><span class="hl opt">) ||</span> <span class="hl kwc">die</span> <span class="hl str">&apos;already displayed&apos;</span><span class="hl opt">);</span>

    <span class="hl opt">$::</span>live ? <span class="hl str">&apos;Update&apos;</span> <span class="hl opt">:</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_list_</span><span class="hl opt">(</span>_<span class="hl opt">(</span><span class="hl str">&quot;Install/Update&quot;</span><span class="hl opt">),</span> _<span class="hl opt">(</span><span class="hl str">&quot;Is this an install or an update?&quot;</span><span class="hl opt">),</span> <span class="hl kwb">$l2, $def2</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl slc">#------------------------------------------------------------------------------</span>
<span class="hl kwa">sub</span> selectInstallClass <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o, $clicked</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">%c</span> <span class="hl opt">=</span> <span class="hl kwc">my</span> <span class="hl kwb">&#64;c</span> <span class="hl opt">= (</span>
      if_<span class="hl opt">(!$::</span>corporate<span class="hl opt">,</span>
	_<span class="hl opt">(</span><span class="hl str">&quot;Recommended&quot;</span><span class="hl opt">) =&gt;</span> <span class="hl str">&quot;beginner&quot;</span><span class="hl opt">,</span>
      <span class="hl opt">),</span>
      if_<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>meta_class<span class="hl opt">}</span> <span class="hl kwc">ne</span> <span class="hl str">&apos;desktop&apos;</span><span class="hl opt">,</span>
	_<span class="hl opt">(</span><span class="hl str">&quot;Expert&quot;</span><span class="hl opt">)	 =&gt;</span> <span class="hl str">&quot;expert&quot;</span><span class="hl opt">,</span>
      <span class="hl opt">),</span>
    <span class="hl opt">);</span>
    <span class="hl kwb">%c</span> <span class="hl opt">=</span> <span class="hl kwb">&#64;c</span> <span class="hl opt">= (</span>_<span class="hl opt">(</span><span class="hl str">&quot;Expert&quot;</span><span class="hl opt">) =&gt;</span> <span class="hl str">&quot;expert&quot;</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl opt">$::</span>expert <span class="hl opt">&amp;&amp; !</span><span class="hl kwb">$clicked</span><span class="hl opt">;</span>

    <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_help</span><span class="hl opt">(</span><span class="hl str">&apos;selectInstallClassCorpo&apos;</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl opt">$::</span>corporate<span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$verifInstallClass</span> <span class="hl opt">=</span> <span class="hl kwa">sub</span> <span class="hl opt">{ $::</span>expert <span class="hl opt">=</span> <span class="hl kwb">$c</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">eq</span> <span class="hl str">&quot;expert&quot;</span> <span class="hl opt">};</span>

    <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>isUpgrade<span class="hl opt">} =</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">selectInstallClass1</span><span class="hl opt">(</span><span class="hl kwb">$verifInstallClass,</span>
					      first<span class="hl opt">(</span>list2kv<span class="hl opt">(</span><span class="hl kwb">&#64;c</span><span class="hl opt">)), ${{</span><span class="hl kwc">reverse</span> <span class="hl kwb">%c</span><span class="hl opt">}}{$::</span>expert ? <span class="hl str">&quot;expert&quot;</span> <span class="hl opt">:</span> <span class="hl str">&quot;beginner&quot;</span><span class="hl opt">},</span>
					      <span class="hl opt">[</span> __<span class="hl opt">(</span><span class="hl str">&quot;Install&quot;</span><span class="hl opt">),</span> __<span class="hl opt">(</span><span class="hl str">&quot;Update&quot;</span><span class="hl opt">) ],</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>isUpgrade<span class="hl opt">}</span> ? <span class="hl str">&quot;Update&quot;</span> <span class="hl opt">:</span> <span class="hl str">&quot;Install&quot;</span><span class="hl opt">)</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;Update&quot;</span><span class="hl opt">;</span>
    install_steps<span class="hl opt">::</span>selectInstallClass<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl slc">#------------------------------------------------------------------------------</span>
<span class="hl kwa">sub</span> selectMouse <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o, $force</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwb">$force</span> <span class="hl opt">||=</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>mouse<span class="hl opt">}{</span>unsafe<span class="hl opt">} || $::</span>expert<span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$prev</span> <span class="hl opt">=</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>mouse<span class="hl opt">}{</span>type<span class="hl opt">} .</span> <span class="hl str">&apos;|&apos;</span> <span class="hl opt">.</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>mouse<span class="hl opt">}{</span>name<span class="hl opt">};</span>
    <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>mouse<span class="hl opt">} =</span> mouse<span class="hl opt">::</span>fullname2mouse<span class="hl opt">(</span>
	<span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_treelist_</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 str">&quot;Please, choose the type of your mouse.&quot;</span><span class="hl opt">),</span> 
			       <span class="hl str">&apos;|&apos;</span><span class="hl opt">, [</span> mouse<span class="hl opt">::</span>fullnames <span class="hl opt">],</span> <span class="hl kwb">$prev</span><span class="hl opt">))</span> <span class="hl kwa">if</span> <span class="hl kwb">$force</span><span class="hl opt">;</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$force</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>mouse<span class="hl opt">}{</span>type<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;serial&apos;</span><span class="hl opt">) {</span>
	<span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_help</span><span class="hl opt">(</span><span class="hl str">&apos;selectSerialPort&apos;</span><span class="hl opt">);</span>
	<span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>mouse<span class="hl opt">}{</span>device<span class="hl opt">} =</span> 
	  <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_listf</span><span class="hl opt">(</span>_<span class="hl opt">(</span><span class="hl str">&quot;Mouse Port&quot;</span><span class="hl opt">),</span>
			    _<span class="hl opt">(</span><span class="hl str">&quot;Please choose on which serial port your mouse is connected to.&quot;</span><span class="hl opt">),</span>
			    \<span class="hl opt">&amp;</span>mouse<span class="hl opt">::</span>serial_port2text<span class="hl opt">,</span>
			    <span class="hl opt">[</span> mouse<span class="hl opt">::</span>serial_ports <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 opt">}</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>arch<span class="hl opt">() =~</span> <span class="hl kwd">/ppc/</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>mouse<span class="hl opt">}{</span>nbuttons<span class="hl opt">} ==</span> <span class="hl num">1</span><span class="hl opt">) {</span>
	<span class="hl slc">#- set a sane default F11/F12</span>
	<span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>mouse<span class="hl opt">}{</span>button2_key<span class="hl opt">} =</span> <span class="hl num">87</span><span class="hl opt">;</span>
	<span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>mouse<span class="hl opt">}{</span>button3_key<span class="hl opt">} =</span> <span class="hl num">88</span><span class="hl opt">;</span>
	<span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_entries_refH</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 str">&quot;Buttons emulation&quot;</span><span class="hl opt">),</span>
		<span class="hl opt">[</span>
		<span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> _<span class="hl opt">(</span><span class="hl str">&quot;Button 2 Emulation&quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>mouse<span class="hl opt">}{</span>button2_key<span class="hl opt">},</span> list <span class="hl opt">=&gt; [</span> mouse<span class="hl opt">::</span>ppc_one_button_keys<span class="hl opt">() ],</span> format <span class="hl opt">=&gt;</span> \<span class="hl opt">&amp;</span>mouse<span class="hl opt">::</span>ppc_one_button_key2text <span class="hl opt">},</span>
		<span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> _<span class="hl opt">(</span><span class="hl str">&quot;Button 3 Emulation&quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>mouse<span class="hl opt">}{</span>button3_key<span class="hl opt">},</span> list <span class="hl opt">=&gt; [</span> mouse<span class="hl opt">::</span>ppc_one_button_keys<span class="hl opt">() ],</span> format <span class="hl opt">=&gt;</span> \<span class="hl opt">&amp;</span>mouse<span class="hl opt">::</span>ppc_one_button_key2text <span class="hl opt">},</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 opt">}</span>
    
    any<span class="hl opt">::</span>setup_thiskind<span class="hl opt">(</span><span class="hl kwb">$o,</span> <span class="hl str">&apos;usb&apos;</span><span class="hl opt">, !$::</span>expert<span class="hl opt">,</span> <span class="hl num">0</span><span class="hl opt">,</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>pcmcia<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>mouse<span class="hl opt">}{</span>device<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;usbmouse&quot;</span><span class="hl opt">;</span>
    <span class="hl kwc">eval</span> <span class="hl opt">{</span> 
	devices<span class="hl opt">::</span>make<span class="hl opt">(</span><span class="hl str">&quot;usbmouse&quot;</span><span class="hl opt">);</span>
	modules<span class="hl opt">::</span>load<span class="hl opt">(</span><span class="hl str">&quot;usbmouse&quot;</span><span class="hl opt">);</span>
	modules<span class="hl opt">::</span>load<span class="hl opt">(</span><span class="hl str">&quot;mousedev&quot;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span> <span class="hl kwa">if</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>mouse<span class="hl opt">}{</span>device<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;usbmouse&quot;</span><span class="hl opt">;</span>

    <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">SUPER</span><span class="hl opt">::</span>selectMouse<span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl slc">#------------------------------------------------------------------------------</span>
<span class="hl kwa">sub</span> setupSCSI <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o, $clicked</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>noauto <span class="hl opt">&amp;&amp;</span> arch<span class="hl opt">() =~</span> <span class="hl kwd">/i.86/</span><span class="hl opt">) {</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>pcmcia<span class="hl opt">} ||= !$::</span>testing <span class="hl opt">&amp;&amp;</span> c<span class="hl opt">::</span>pcmcia_probe<span class="hl opt">()) {</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$w</span> <span class="hl opt">=</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</span><span class="hl opt">(</span>_<span class="hl opt">(</span><span class="hl str">&quot;PCMCIA&quot;</span><span class="hl opt">),</span> _<span class="hl opt">(</span><span class="hl str">&quot;Configuring PCMCIA cards...&quot;</span><span class="hl opt">));</span>
	    modules<span class="hl opt">::</span>configure_pcmcia<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>pcmcia<span class="hl opt">});</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">$w</span> <span class="hl opt">=</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</span><span class="hl opt">(</span>_<span class="hl opt">(</span><span class="hl str">&quot;IDE&quot;</span><span class="hl opt">),</span> _<span class="hl opt">(</span><span class="hl str">&quot;Configuring IDE&quot;</span><span class="hl opt">));</span>
	modules<span class="hl opt">::</span>load_ide<span class="hl opt">();</span>
    <span class="hl opt">}</span>
    any<span class="hl opt">::</span>setup_thiskind<span class="hl opt">(</span><span class="hl kwb">$o,</span> <span class="hl str">&apos;scsi|disk&apos;</span><span class="hl opt">, !$::</span>expert <span class="hl opt">&amp;&amp; !</span><span class="hl kwb">$clicked, $clicked, $o</span><span class="hl opt">-&gt;{</span>pcmcia<span class="hl opt">});</span>

    install_interactive<span class="hl opt">::</span>tellAboutProprietaryModules<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl opt">!</span><span class="hl kwb">$clicked</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> ask_mntpoint_s <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o, $fstab</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_help</span><span class="hl opt">(</span><span class="hl str">&apos;ask_mntpoint_s&apos;</span><span class="hl opt">);</span>

    <span class="hl kwc">my</span> <span class="hl kwb">&#64;fstab</span> <span class="hl opt">=</span> <span class="hl kwc">grep</span> <span class="hl opt">{</span> isTrueFS<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">) }</span> <span class="hl kwb">&#64;$fstab</span><span class="hl opt">;</span>
    <span class="hl kwb">&#64;fstab</span> <span class="hl opt">=</span> <span class="hl kwc">grep</span> <span class="hl opt">{</span> isSwap<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">) }</span> <span class="hl kwb">&#64;$fstab</span> <span class="hl kwa">if</span> <span class="hl kwb">&#64;fstab</span> <span class="hl opt">==</span> <span class="hl num">0</span><span class="hl opt">;</span>
    <span class="hl kwb">&#64;fstab</span> <span class="hl opt">=</span> <span class="hl kwb">&#64;$fstab</span> <span class="hl kwa">if</span> <span class="hl kwb">&#64;fstab</span> <span class="hl opt">==</span> <span class="hl num">0</span><span class="hl opt">;</span>
    <span class="hl kwc">die</span> _<span class="hl opt">(</span><span class="hl str">&quot;no available partitions&quot;</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl kwb">&#64;fstab</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">my</span> <span class="hl kwb">$w</span> <span class="hl opt">=</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</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 str">&quot;Scanning partitions to find mount points&quot;</span><span class="hl opt">));</span>
	install_any<span class="hl opt">::</span>suggest_mount_points<span class="hl opt">(</span><span class="hl kwb">$fstab, $o</span><span class="hl opt">-&gt;{</span>prefix<span class="hl opt">},</span> <span class="hl str">&apos;uniq&apos;</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 mntpoint</span> <span class="hl ipl">$_</span><span class="hl str">-&gt;{mntpoint}</span> <span class="hl ipl">$_</span><span class="hl str">-&gt;{device}&quot;</span><span class="hl opt">)</span> <span class="hl kwa">foreach</span> <span class="hl kwb">&#64;fstab</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">&#64;fstab</span> <span class="hl opt">==</span> <span class="hl num">1</span><span class="hl opt">) {</span>
	<span class="hl kwb">$fstab</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">]{</span>mntpoint<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">else</span> <span class="hl opt">{</span>
	<span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_entries_refH</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 str">&quot;Choose the mount points&quot;</span><span class="hl opt">),</span>
				  <span class="hl opt">[</span> <span class="hl kwc">map</span> <span class="hl opt">{ {</span> label <span class="hl opt">=&gt;</span> partition_table_raw<span class="hl opt">::</span>description<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">),</span> 
					    val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>mntpoint<span class="hl opt">},</span> not_edit <span class="hl opt">=&gt;</span> <span class="hl num">0</span><span class="hl opt">,</span> list <span class="hl opt">=&gt; [</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> fsedit<span class="hl opt">::</span>suggestions_mntpoint<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 kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">SUPER</span><span class="hl opt">::</span>ask_mntpoint_s<span class="hl opt">(</span><span class="hl kwb">$fstab</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl slc">#------------------------------------------------------------------------------</span>
<span class="hl kwa">sub</span> doPartitionDisks <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o</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">$warned</span><span class="hl opt">;</span>
    install_any<span class="hl opt">::</span>getHds<span class="hl opt">(</span><span class="hl kwb">$o,</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">$err</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
	<span class="hl kwb">$warned</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 kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_yesorno</span><span class="hl opt">(</span>_<span class="hl opt">(</span><span class="hl str">&quot;Error&quot;</span><span class="hl opt">),</span> 
_<span class="hl opt">(</span><span class="hl str">&quot;I can&apos;t read your partition table, it&apos;s too corrupted for me :(</span>
<span class="hl str">I can try to go on blanking bad partitions (ALL DATA will be lost!).</span>
<span class="hl str">The other solution is to disallow DrakX to modify the partition table.</span>
<span class="hl str">(the error is</span> <span class="hl ipl">%s</span><span class="hl str">)</span>
<span class="hl str"></span>
<span class="hl str">Do you agree to loose all the partitions?</span>
<span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$err</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">else</span> <span class="hl opt">{</span>
            <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>partitioning<span class="hl opt">}{</span>readonly<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 opt">}</span>
    <span class="hl opt">})</span> <span class="hl kwc">or</span> <span class="hl kwb">$warned</span> <span class="hl kwc">or</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</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 str">&quot;DiskDrake failed to read correctly the partition table.</span>
<span class="hl str">Continue at your own risk!&quot;</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">/ppc/</span> <span class="hl opt">&amp;&amp; !$::</span>expert<span class="hl opt">) {</span>	<span class="hl slc">#- need to make bootstrap part if recommended install - thx Pixel ;^)</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">defined</span> <span class="hl kwb">$partition_table_mac</span><span class="hl opt">::</span>bootstrap_part<span class="hl opt">) {</span>
			<span class="hl slc">#- don&apos;t do anything if we&apos;ve got the bootstrap setup</span>
			<span class="hl slc">#- otherwise, go ahead and create one somewhere in the drive free space</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 kwc">defined</span> <span class="hl kwb">$partition_table_mac</span><span class="hl opt">::</span>freepart_start <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$partition_table_mac</span><span class="hl opt">::</span>freepart_size <span class="hl opt">&gt;=</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">$hd</span><span class="hl opt">) =</span> <span class="hl kwb">$partition_table_mac</span><span class="hl opt">::</span>freepart_device<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;creating bootstrap partition on drive /dev/</span><span class="hl ipl">$hd</span><span class="hl str">-&gt;{device}, block</span> <span class="hl ipl">$partition_table_mac</span><span class="hl str">::freepart_start&quot;</span><span class="hl opt">);</span>
    			<span class="hl kwb">$partition_table_mac</span><span class="hl opt">::</span>bootstrap_part <span class="hl opt">=</span> <span class="hl kwb">$partition_table_mac</span><span class="hl opt">::</span>freepart_part<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;bootstrap now at</span> <span class="hl ipl">$partition_table_mac</span><span class="hl str">::bootstrap_part&quot;</span><span class="hl opt">);</span>
    			fsedit<span class="hl opt">::</span>add<span class="hl opt">(</span><span class="hl kwb">$hd,</span> <span class="hl opt">{</span> start <span class="hl opt">=&gt;</span> <span class="hl kwb">$partition_table_mac</span><span class="hl opt">::</span>freepart_start<span class="hl opt">,</span> size <span class="hl opt">=&gt;</span> <span class="hl num">1</span> <span class="hl opt">&lt;&lt;</span> <span class="hl num">11</span><span class="hl opt">,</span> type <span class="hl opt">=&gt;</span> <span class="hl num">0x401</span><span class="hl opt">,</span> mntpoint <span class="hl opt">=&gt;</span> <span class="hl str">&apos;&apos;</span> <span class="hl opt">},</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>hds<span class="hl opt">}, {</span> force <span class="hl opt">=&gt;</span> <span class="hl num">1</span><span class="hl opt">,</span> primaryOrExtended <span class="hl opt">=&gt;</span> <span class="hl str">&apos;Primary&apos;</span> <span class="hl opt">});</span>    
				run_program<span class="hl opt">::</span>run<span class="hl opt">(</span><span class="hl str">&quot;hformat&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$partition_table_mac</span><span class="hl opt">::</span>bootstrap_part<span class="hl opt">)</span> <span class="hl kwc">or die</span> <span class="hl str">&quot;hformat of</span> <span class="hl ipl">$partition_table_mac</span><span class="hl str">::bootstrap_part failed&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">die</span> <span class="hl str">&quot;no free space for 1MB bootstrap&quot;</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">if</span> <span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>isUpgrade<span class="hl opt">}) {</span>
	<span class="hl slc"># either one root is defined (and all is ok), or we take the first one we find</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$p</span> <span class="hl opt">=</span> 
	  fsedit<span class="hl opt">::</span>get_root_<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>fstab<span class="hl opt">}) ||</span>
	  <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_listf</span><span class="hl opt">(</span>_<span class="hl opt">(</span><span class="hl str">&quot;Root Partition&quot;</span><span class="hl opt">),</span>
			     _<span class="hl opt">(</span><span class="hl str">&quot;What is the root partition (/) of your system?&quot;</span><span class="hl opt">),</span>
			     \<span class="hl opt">&amp;</span>partition_table_raw<span class="hl opt">::</span>description<span class="hl opt">,</span> 
			     <span class="hl opt">[</span> install_any<span class="hl opt">::</span>find_root_parts<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>fstab<span class="hl opt">},</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>prefix<span class="hl opt">}) ])</span> <span class="hl kwc">or die</span> <span class="hl str">&quot;setstep exitInstall</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
	install_any<span class="hl opt">::</span>use_root_part<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>fstab<span class="hl opt">},</span> <span class="hl kwb">$p, $o</span><span class="hl opt">-&gt;{</span>prefix<span class="hl opt">});</span>
    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">($::</span>expert <span class="hl opt">&amp;&amp;</span> <span class="hl kwc">ref</span><span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">) =~</span> <span class="hl kwd">/gtk/</span><span class="hl opt">) {</span>
        install_interactive<span class="hl opt">::</span>partition_with_diskdrake<span class="hl opt">(</span><span class="hl kwb">$o, $o</span><span class="hl opt">-&gt;{</span>hds<span class="hl opt">});</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
        install_interactive<span class="hl opt">::</span>partitionWizard<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl slc">#------------------------------------------------------------------------------</span>
<span class="hl kwa">sub</span> rebootNeeded <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</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 str">&quot;You need to reboot for the partition table modifications to take place&quot;</span><span class="hl opt">));</span>

    install_steps<span class="hl opt">::</span>rebootNeeded<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

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

    <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">SUPER</span><span class="hl opt">::</span>choosePartitionsToFormat<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">&#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>isMounted<span class="hl opt">} &amp;&amp; !</span><span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>isFormatted<span class="hl opt">} &amp;&amp;</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>mntpoint<span class="hl opt">} &amp;&amp; (!</span>isSwap<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">) || $::</span>expert<span class="hl opt">) &amp;&amp;</span>
		    <span class="hl opt">(!</span>isOtherAvailableFS<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">) || $::</span>expert <span class="hl opt">||</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>toFormat<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">$_</span><span class="hl opt">-&gt;{</span>toFormat<span class="hl opt">} =</span> <span class="hl num">1</span> <span class="hl kwa">foreach</span> <span class="hl kwc">grep</span> <span class="hl opt">{</span> isSwap<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">) &amp;&amp; !$::</span>expert <span class="hl opt">}</span> <span class="hl kwb">&#64;$fstab</span><span class="hl opt">;</span>

    <span class="hl kwa">return if</span> <span class="hl kwb">&#64;l</span> <span class="hl opt">==</span> <span class="hl num">0</span> <span class="hl opt">|| !$::</span>expert <span class="hl opt">&amp;&amp;</span> <span class="hl num">0</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>toFormat<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 kwb">$name2label</span> <span class="hl opt">=</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span> 
        <span class="hl kwc">sprintf</span><span class="hl opt">(</span><span class="hl str">&quot;</span><span class="hl ipl">%s</span>   <span class="hl str"></span><span class="hl ipl">%s</span><span class="hl str">&quot;</span><span class="hl opt">,</span> isSwap<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">)</span> ? type2name<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 kwb">$_</span><span class="hl opt">-&gt;{</span>mntpoint<span class="hl opt">},</span>
			   isLoopback<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">)</span> ? <span class="hl opt">$::</span>expert <span class="hl opt">&amp;&amp;</span> loopback<span class="hl opt">::</span>file<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">) :</span> partition_table_raw<span class="hl opt">::</span>description<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">));</span>
    <span class="hl opt">};</span>

    <span class="hl slc">#- keep it temporary until the guy has accepted</span>
    <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>toFormatTmp<span class="hl opt">} =</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>toFormat<span class="hl opt">} ||</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>toFormatUnsure<span class="hl opt">}</span> <span class="hl kwa">foreach</span> <span class="hl kwb">&#64;l</span><span class="hl opt">;</span>

    <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_entries_refH_powered</span><span class="hl opt">(</span>
        <span class="hl opt">{</span> messages <span class="hl opt">=&gt;</span> _<span class="hl opt">(</span><span class="hl str">&quot;Choose the partitions you want to format&quot;</span><span class="hl opt">),</span>
          advanced_messages <span class="hl opt">=&gt;</span> _<span class="hl opt">(</span><span class="hl str">&quot;Check bad blocks?&quot;</span><span class="hl opt">),</span>
        <span class="hl opt">},</span>
        <span class="hl opt">[</span> <span class="hl kwc">map</span> <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 kwb">$_</span><span class="hl opt">;</span>
	    <span class="hl opt">({</span>
	      text <span class="hl opt">=&gt;</span> <span class="hl kwb">$name2label</span><span class="hl opt">-&gt;(</span><span class="hl kwb">$e</span><span class="hl opt">),</span> type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;bool&apos;</span><span class="hl opt">,</span>
	      val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span>toFormatTmp<span class="hl opt">}</span>
	     <span class="hl opt">},</span> if_<span class="hl opt">(!</span>isLoopback<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">) &amp;&amp; !</span>isReiserfs<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">), {</span>
	      text <span class="hl opt">=&gt;</span> <span class="hl kwb">$name2label</span><span class="hl opt">-&gt;(</span><span class="hl kwb">$e</span><span class="hl opt">),</span> type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;bool&apos;</span><span class="hl opt">,</span> advanced <span class="hl opt">=&gt;</span> <span class="hl num">1</span><span class="hl opt">,</span> 
	      disabled <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{ !</span><span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span>toFormatTmp<span class="hl opt">} },</span>
	      val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$e</span><span class="hl opt">-&gt;{</span>toFormatCheck<span class="hl opt">}</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 kwc">or die</span> <span class="hl str">&apos;already displayed&apos;</span><span class="hl opt">;</span>
    <span class="hl slc">#- ok now we can really set toFormat</span>
    <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>toFormat<span class="hl opt">} =</span> <span class="hl kwc">delete</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>toFormatTmp<span class="hl opt">}</span> <span class="hl kwa">foreach</span> <span class="hl kwb">&#64;l</span><span class="hl opt">;</span>
<span class="hl opt">}</span>


<span class="hl kwa">sub</span> formatMountPartitions <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o, $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">$w</span><span class="hl opt">;</span>
    fs<span class="hl opt">::</span>formatMount_all<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>raid<span class="hl opt">},</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>fstab<span class="hl opt">},</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>prefix<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">$part</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
	<span class="hl kwb">$w</span> <span class="hl opt">||=</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</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 str">&quot;Formatting partitions&quot;</span><span class="hl opt">));</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set</span><span class="hl opt">(</span>isLoopback<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">)</span> ?
		_<span class="hl opt">(</span><span class="hl str">&quot;Creating and formatting file</span> <span class="hl ipl">%s</span><span class="hl str">&quot;</span><span class="hl opt">,</span> loopback<span class="hl opt">::</span>file<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">)) :</span>
		_<span class="hl opt">(</span><span class="hl str">&quot;Formatting partition</span> <span class="hl ipl">%s</span><span class="hl str">&quot;</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 opt">});</span>
    <span class="hl kwc">die</span> _<span class="hl opt">(</span><span class="hl str">&quot;Not enough swap to fulfill installation, please add some&quot;</span><span class="hl opt">)</span> <span class="hl kwa">if</span> availableMemory <span class="hl opt">&lt;</span> <span class="hl num">40</span> <span class="hl opt">*</span> <span class="hl num">1024</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl slc">#------------------------------------------------------------------------------</span>
<span class="hl kwa">sub</span> setPackages <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o</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">$w</span> <span class="hl opt">=</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</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 str">&quot;Looking for available packages&quot;</span><span class="hl opt">));</span>
    <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">SUPER</span><span class="hl opt">::</span>setPackages<span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl slc">#------------------------------------------------------------------------------</span>
<span class="hl kwa">sub</span> selectPackagesToUpgrade <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o</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">$w</span> <span class="hl opt">=</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</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 str">&quot;Finding packages to upgrade&quot;</span><span class="hl opt">));</span>
    <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">SUPER</span><span class="hl opt">::</span>selectPackagesToUpgrade<span class="hl opt">();</span>
<span class="hl opt">}</span>
<span class="hl slc">#------------------------------------------------------------------------------</span>
<span class="hl kwa">sub</span> choosePackages <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o, $packages, $compssUsers, $first_time</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl slc">#- this is done at the very beginning to take into account</span>
    <span class="hl slc">#- selection of CD by user if using a cdrom.</span>
    <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">chooseCD</span><span class="hl opt">(</span><span class="hl kwb">$packages</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl kwb">$o</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;cdrom&apos;</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$availableC</span> <span class="hl opt">=</span> install_steps<span class="hl opt">::</span>choosePackages<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">$individual</span> <span class="hl opt">= $::</span>expert<span class="hl opt">;</span>

    <span class="hl kwa">require</span> pkgs<span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$min_size</span> <span class="hl opt">=</span> pkgs<span class="hl opt">::</span>selectedSize<span class="hl opt">(</span><span class="hl kwb">$packages</span><span class="hl opt">);</span>
    <span class="hl kwb">$min_size</span> <span class="hl opt">&lt;</span> <span class="hl kwb">$availableC</span> <span class="hl kwc">or die</span> _<span class="hl opt">(</span><span class="hl str">&quot;Your system has not enough space left for installation or upgrade (</span><span class="hl ipl">%d</span> <span class="hl str">&gt;</span> <span class="hl ipl">%d</span><span class="hl str">)&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$min_size, $availableC</span><span class="hl opt">);</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$min_mark</span> <span class="hl opt">= $::</span>expert ? <span class="hl num">3</span> <span class="hl opt">:</span> <span class="hl num">4</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$def_mark</span> <span class="hl opt">=</span> <span class="hl num">4</span><span class="hl opt">;</span> <span class="hl slc">#-TODO: was 59, 59 is for packages that need gl hw acceleration.</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$b</span> <span class="hl opt">=</span> pkgs<span class="hl opt">::</span>saveSelected<span class="hl opt">(</span><span class="hl kwb">$packages</span><span class="hl opt">);</span>
    pkgs<span class="hl opt">::</span>setSelectedFromCompssList<span class="hl opt">(</span><span class="hl kwb">$packages, $o</span><span class="hl opt">-&gt;{</span>compssUsersChoice<span class="hl opt">},</span> <span class="hl kwb">$def_mark,</span> <span class="hl num">0</span><span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$def_size</span> <span class="hl opt">=</span> pkgs<span class="hl opt">::</span>selectedSize<span class="hl opt">(</span><span class="hl kwb">$packages</span><span class="hl opt">) +</span> <span class="hl num">1</span><span class="hl opt">;</span> <span class="hl slc">#- avoid division by zero.</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$level</span> <span class="hl opt">=</span> pkgs<span class="hl opt">::</span>setSelectedFromCompssList<span class="hl opt">(</span><span class="hl kwb">$packages,</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">map</span> <span class="hl opt">{ &#64;{</span><span class="hl kwb">$compssUsers</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">}{</span>flags<span class="hl opt">}} } &#64;{</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>compssUsersSorted<span class="hl opt">}} },</span> <span class="hl kwb">$min_mark,</span> <span class="hl num">0</span><span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$max_size</span> <span class="hl opt">=</span> pkgs<span class="hl opt">::</span>selectedSize<span class="hl opt">(</span><span class="hl kwb">$packages</span><span class="hl opt">) +</span> <span class="hl num">1</span><span class="hl opt">;</span> <span class="hl slc">#- avoid division by zero.</span>
    pkgs<span class="hl opt">::</span>restoreSelected<span class="hl opt">(</span><span class="hl kwb">$b</span><span class="hl opt">);</span>

    <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">chooseGroups</span><span class="hl opt">(</span><span class="hl kwb">$packages, $compssUsers, $min_mark,</span> \<span class="hl kwb">$individual, $max_size</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl opt">!$::</span>corporate<span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$size2install</span> <span class="hl opt">=</span> min<span class="hl opt">(</span><span class="hl kwb">$availableC,</span> <span class="hl kwa">do</span> <span class="hl opt">{</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$max</span> <span class="hl opt">=</span> round_up<span class="hl opt">(</span>min<span class="hl opt">(</span><span class="hl kwb">$max_size, $availableC</span><span class="hl opt">) /</span> sqr<span class="hl opt">(</span><span class="hl num">1024</span><span class="hl opt">),</span> <span class="hl num">100</span><span class="hl opt">);</span>
	
	<span class="hl kwa">if</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">&#64;l</span><span class="hl opt">);</span>
		<span class="hl kwc">my</span> <span class="hl kwb">&#64;text</span> <span class="hl opt">= (</span>__<span class="hl opt">(</span><span class="hl str">&quot;Minimum (</span><span class="hl ipl">%dMB</span><span class="hl str">)&quot;</span><span class="hl opt">),</span> __<span class="hl opt">(</span><span class="hl str">&quot;Recommended (</span><span class="hl ipl">%dMB</span><span class="hl str">)&quot;</span><span class="hl opt">),</span> __<span class="hl opt">(</span><span class="hl str">&quot;Complete (</span><span class="hl ipl">%dMB</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">$o</span><span class="hl opt">-&gt;{</span>meta_class<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;desktop&apos;</span><span class="hl opt">) {</span>
		    <span class="hl kwb">&#64;l</span> <span class="hl opt">= (</span><span class="hl num">300</span><span class="hl opt">,</span> <span class="hl num">500</span><span class="hl opt">,</span> <span class="hl num">800</span><span class="hl opt">,</span> <span class="hl num">0</span><span class="hl opt">);</span>
		    <span class="hl kwb">$max</span> <span class="hl opt">&gt;</span> <span class="hl kwb">$l</span><span class="hl opt">[</span><span class="hl num">2</span><span class="hl opt">]</span> <span class="hl kwc">or splice</span><span class="hl opt">(</span><span class="hl kwb">&#64;l,</span> <span class="hl num">2</span><span class="hl opt">,</span> <span class="hl num">1</span><span class="hl opt">);</span>
		    <span class="hl kwb">$max</span> <span class="hl opt">&gt;</span> <span class="hl kwb">$l</span><span class="hl opt">[</span><span class="hl num">1</span><span class="hl opt">]</span> <span class="hl kwc">or splice</span><span class="hl opt">(</span><span class="hl kwb">&#64;l,</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 kwb">$max</span> <span class="hl opt">&gt;</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 kwc">or</span> <span class="hl kwb">&#64;l</span> <span class="hl opt">=</span> <span class="hl kwb">$max</span><span class="hl opt">;</span>
		    <span class="hl kwb">$text</span><span class="hl opt">[</span><span class="hl kwb">$#l</span><span class="hl opt">] =</span> __<span class="hl opt">(</span><span class="hl str">&quot;Custom&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">&#64;l</span> <span class="hl opt">= (</span><span class="hl num">300</span><span class="hl opt">,</span> <span class="hl num">700</span><span class="hl opt">,</span> <span class="hl kwb">$max</span><span class="hl opt">);</span>
		    <span class="hl kwb">$l</span><span class="hl opt">[</span><span class="hl num">2</span><span class="hl opt">] &gt;</span> <span class="hl kwb">$l</span><span class="hl opt">[</span><span class="hl num">1</span><span class="hl opt">] +</span> <span class="hl num">200</span> <span class="hl kwc">or splice</span><span class="hl opt">(</span><span class="hl kwb">&#64;l,</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 slc">#- not worth proposing too alike stuff</span>
		    <span class="hl kwb">$l</span><span class="hl opt">[</span><span class="hl num">1</span><span class="hl opt">] &gt;</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 num">100</span> <span class="hl kwc">or splice</span><span class="hl opt">(</span><span class="hl kwb">&#64;l,</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 kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_help</span><span class="hl opt">(</span><span class="hl str">&apos;empty&apos;</span><span class="hl opt">);</span>
<span class="hl slc">#		$o-&gt;ask_from_listf(&apos;&apos;, _(&quot;Select the size you want to install&quot;),</span>
<span class="hl slc">#				   sub { _ ($text[$_[0]], $_[0]) }, \&#64;l, $l[1]) * sqr(1024);</span>
		<span class="hl kwb">$max</span> <span class="hl opt">*</span> sqr<span class="hl opt">(</span><span class="hl num">1024</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">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">chooseSizeToInstall</span><span class="hl opt">(</span><span class="hl kwb">$packages, $min_size, $def_size, $max_size, $availableC, $individual</span><span class="hl opt">) ||</span> <span class="hl kwa">goto</span> <span class="hl opt">&amp;</span>choosePackages<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">$size2install</span><span class="hl opt">) {</span> <span class="hl slc">#- special case for desktop</span>
	<span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">chooseGroups</span><span class="hl opt">(</span><span class="hl kwb">$packages, $compssUsers, $min_mark</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">goto</span> <span class="hl opt">&amp;</span>choosePackages<span class="hl opt">;</span>
	<span class="hl kwb">$size2install</span> <span class="hl opt">=</span> <span class="hl kwb">$availableC</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages_<span class="hl opt">}{</span>ind<span class="hl opt">}) =</span>
      pkgs<span class="hl opt">::</span>setSelectedFromCompssList<span class="hl opt">(</span><span class="hl kwb">$packages, $o</span><span class="hl opt">-&gt;{</span>compssUsersChoice<span class="hl opt">},</span> <span class="hl kwb">$min_mark, $size2install</span><span class="hl opt">);</span>

    <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">choosePackagesTree</span><span class="hl opt">(</span><span class="hl kwb">$packages</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl kwb">$individual</span><span class="hl opt">;</span>

    install_any<span class="hl opt">::</span>warnAboutNaughtyServers<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> chooseSizeToInstall <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o, $packages, $min, $def, $max, $availableC</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    min<span class="hl opt">(</span><span class="hl kwb">$def, $availableC</span> <span class="hl opt">*</span> <span class="hl num">0.7</span><span class="hl opt">);</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> choosePackagesTree <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o, $packages</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_many_from_list</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 str">&quot;Choose the packages you want to install&quot;</span><span class="hl opt">),</span>
			   <span class="hl opt">{</span>
			    list <span class="hl opt">=&gt; [</span> <span class="hl slc">#grep { pkgs::packageMedium($_)-&gt;{selected} } </span>
				      <span class="hl kwc">map</span> <span class="hl opt">{</span> pkgs<span class="hl opt">::</span>packageByName<span class="hl opt">(</span><span class="hl kwb">$packages, $_</span><span class="hl opt">) }</span>
				      <span class="hl kwc">keys</span> <span class="hl opt">%{</span><span class="hl kwb">$packages</span><span class="hl opt">-&gt;{</span>names<span class="hl opt">}} ],</span>
			    value <span class="hl opt">=&gt;</span> \<span class="hl opt">&amp;</span>pkgs<span class="hl opt">::</span>packageFlagSelected<span class="hl opt">,</span>
			    label <span class="hl opt">=&gt;</span> \<span class="hl opt">&amp;</span>pkgs<span class="hl opt">::</span>packageName<span class="hl opt">,</span>
			    <span class="hl kwc">sort</span> <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 kwa">sub</span> chooseGroups <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o, $packages, $compssUsers, $min_level, $individual, $max_size</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> pkgs<span class="hl opt">::</span>saveSelected<span class="hl opt">(</span><span class="hl kwb">$packages</span><span class="hl opt">);</span>
    install_any<span class="hl opt">::</span>unselectMostPackages<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">);</span>
    pkgs<span class="hl opt">::</span>setSelectedFromCompssList<span class="hl opt">(</span><span class="hl kwb">$packages,</span> <span class="hl opt">{},</span> <span class="hl kwb">$min_level, $max_size</span><span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$system_size</span> <span class="hl opt">=</span> pkgs<span class="hl opt">::</span>selectedSize<span class="hl opt">(</span><span class="hl kwb">$packages</span><span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$sizes, $pkgs</span><span class="hl opt">) =</span> pkgs<span class="hl opt">::</span>computeGroupSize<span class="hl opt">(</span><span class="hl kwb">$packages, $min_level</span><span class="hl opt">);</span>
    pkgs<span class="hl opt">::</span>restoreSelected<span class="hl opt">(</span><span class="hl kwb">$b</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;system_size:</span> <span class="hl ipl">$system_size</span><span class="hl str">&quot;</span><span class="hl opt">);</span>

    <span class="hl kwc">my</span> <span class="hl kwb">&#64;groups</span> <span class="hl opt">= &#64;{</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>compssUsersSorted<span class="hl opt">}};</span>
    <span class="hl kwc">my</span> <span class="hl kwb">%stable_flags</span> <span class="hl opt">=</span> grep_each <span class="hl opt">{ $::</span>b <span class="hl opt">} %{</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>compssUsersChoice<span class="hl opt">}};</span>
    <span class="hl kwc">delete</span> <span class="hl kwb">$stable_flags</span><span class="hl opt">{</span><span class="hl kwb">$_</span><span class="hl opt">}</span> <span class="hl kwa">foreach</span> <span class="hl kwc">map</span> <span class="hl opt">{ &#64;{</span><span class="hl kwb">$compssUsers</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">}{</span>flags<span class="hl opt">}} }</span> <span class="hl kwb">&#64;groups</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$compute_size</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 kwb">%pkgs</span><span class="hl opt">;</span>
	<span class="hl kwc">my</span> <span class="hl kwb">%flags</span> <span class="hl opt">=</span> <span class="hl kwb">%stable_flags</span><span class="hl opt">;</span> <span class="hl kwb">&#64;flags</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">$total_size</span><span class="hl opt">;</span>
	A<span class="hl opt">:</span> <span class="hl kwa">while</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$k, $size</span><span class="hl opt">) =</span> <span class="hl kwc">each</span> <span class="hl kwb">%$sizes</span><span class="hl opt">) {</span>
	    Or<span class="hl opt">:</span> <span class="hl kwa">foreach</span> <span class="hl opt">(</span><span class="hl kwc">split</span> <span class="hl str">&quot;</span><span class="hl esc">\t</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$k</span><span class="hl opt">) {</span>
		  <span class="hl kwa">foreach</span> <span class="hl opt">(</span><span class="hl kwc">split</span> <span class="hl str">&quot;&amp;&amp;&quot;</span><span class="hl opt">) {</span>
		      <span class="hl kwc">exists</span> <span class="hl kwb">$flags</span><span class="hl opt">{</span><span class="hl kwb">$_</span><span class="hl opt">}</span> <span class="hl kwc">or</span> <span class="hl kwa">next</span> Or<span class="hl opt">;</span>
		  <span class="hl opt">}</span>
		  <span class="hl kwb">$total_size</span> <span class="hl opt">+=</span> <span class="hl kwb">$size</span><span class="hl opt">;</span>
		  <span class="hl kwb">$pkgs</span><span class="hl opt">{</span><span class="hl kwb">$_</span><span class="hl opt">} =</span> <span class="hl num">1</span> <span class="hl kwa">foreach</span> <span class="hl opt">&#64;{</span><span class="hl kwb">$pkgs</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$k</span><span class="hl opt">}};</span>
		  <span class="hl kwa">next</span> A<span class="hl opt">;</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;computed size</span> <span class="hl ipl">$total_size</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;chooseGroups: &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">sort keys</span> <span class="hl kwb">%pkgs</span><span class="hl opt">));</span>

	<span class="hl kwc">int</span> <span class="hl kwb">$total_size</span><span class="hl opt">;</span>
    <span class="hl opt">};</span>
    <span class="hl kwc">my</span> <span class="hl kwb">%val</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 kwc">grep</span> <span class="hl opt">{ !</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>compssUsersChoice<span class="hl opt">}{</span><span class="hl kwb">$_</span><span class="hl opt">} } &#64;{</span><span class="hl kwb">$compssUsers</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">}{</span>flags<span class="hl opt">}}</span>
    <span class="hl opt">}</span> <span class="hl kwb">&#64;groups</span><span class="hl opt">;</span>

<span class="hl slc">#    &#64;groups = grep { $size{$_} = round_down($size{$_} / sqr(1024), 10) } &#64;groups; #- don&apos;t display the empty or small one (eg: because all packages are below $min_level)</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$all, $old_size</span><span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$size_to_display</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 kwb">$size</span> <span class="hl opt">=</span> <span class="hl kwb">$system_size</span> <span class="hl opt">+</span> <span class="hl kwb">$compute_size</span><span class="hl opt">-&gt;(</span><span class="hl kwc">map</span> <span class="hl opt">{ &#64;{</span><span class="hl kwb">$compssUsers</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">}{</span>flags<span class="hl opt">}} }</span> <span class="hl kwc">grep</span> <span class="hl opt">{</span> <span class="hl kwb">$val</span><span class="hl opt">{</span><span class="hl kwb">$_</span><span class="hl opt">} }</span> <span class="hl kwb">&#64;groups</span><span class="hl opt">);</span>

	<span class="hl slc">#- if a profile is deselected, deselect everything (easier than deselecting the profile packages)</span>
	<span class="hl kwb">$old_size</span> <span class="hl opt">&gt;</span> <span class="hl kwb">$size</span> <span class="hl kwc">and</span> install_any<span class="hl opt">::</span>unselectMostPackages<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">);</span>
	<span class="hl kwb">$old_size</span> <span class="hl opt">=</span> <span class="hl kwb">$size</span><span class="hl opt">;</span>
	_<span class="hl opt">(</span><span class="hl str">&quot;Selected size</span> <span class="hl ipl">%d%s</span><span class="hl str">&quot;</span><span class="hl opt">,</span> pkgs<span class="hl opt">::</span>correctSize<span class="hl opt">(</span><span class="hl kwb">$size</span> <span class="hl opt">/</span> sqr<span class="hl opt">(</span><span class="hl num">1024</span><span class="hl opt">)),</span> _<span class="hl opt">(</span><span class="hl str">&quot;MB&quot;</span><span class="hl opt">));</span>
    <span class="hl opt">};</span>

    <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">reallyChooseGroups</span><span class="hl opt">(</span><span class="hl kwb">$size_to_display, $individual,</span> \<span class="hl kwb">%val</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">$o</span><span class="hl opt">-&gt;{</span>compssUsersChoice<span class="hl opt">}{</span><span class="hl kwb">$_</span><span class="hl opt">} =</span> <span class="hl num">0</span> <span class="hl kwa">foreach</span> <span class="hl kwc">map</span> <span class="hl opt">{ &#64;{</span><span class="hl kwb">$compssUsers</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">}{</span>flags<span class="hl opt">}} }</span> <span class="hl kwc">grep</span> <span class="hl opt">{ !</span><span class="hl kwb">$val</span><span class="hl opt">{</span><span class="hl kwb">$_</span><span class="hl opt">} }</span> <span class="hl kwc">keys</span> <span class="hl kwb">%val</span><span class="hl opt">;</span>
    <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>compssUsersChoice<span class="hl opt">}{</span><span class="hl kwb">$_</span><span class="hl opt">} =</span> <span class="hl num">1</span> <span class="hl kwa">foreach</span> <span class="hl kwc">map</span> <span class="hl opt">{ &#64;{</span><span class="hl kwb">$compssUsers</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">}{</span>flags<span class="hl opt">}} }</span> <span class="hl kwc">grep</span> <span class="hl opt">{</span>  <span class="hl kwb">$val</span><span class="hl opt">{</span><span class="hl kwb">$_</span><span class="hl opt">} }</span> <span class="hl kwc">keys</span> <span class="hl kwb">%val</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> reallyChooseGroups <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o, $size_to_display, $individual, $val</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">$size_text</span> <span class="hl opt">= &amp;</span><span class="hl kwb">$size_to_display</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$path, $all</span><span class="hl opt">);</span>
    <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_entries_refH</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 str">&quot;Package Group Selection&quot;</span><span class="hl opt">), [</span>
                           <span class="hl opt">{</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$size_text,</span> type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;label&apos;</span> <span class="hl opt">}, {},</span>
			   <span class="hl opt">(</span><span class="hl kwc">map</span> <span class="hl opt">{;</span> 
				 <span class="hl kwc">my</span> <span class="hl kwb">$old</span> <span class="hl opt">=</span> <span class="hl kwb">$path</span><span class="hl opt">;</span>
				 <span class="hl kwb">$path</span> <span class="hl opt">=</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>compssUsers<span class="hl opt">}{</span><span class="hl kwb">$_</span><span class="hl opt">}{</span>path<span class="hl opt">};</span>
				 if_<span class="hl opt">(</span><span class="hl kwb">$old</span> <span class="hl kwc">ne</span> <span class="hl kwb">$path,</span> <span class="hl opt">{</span> val <span class="hl opt">=&gt;</span> translate<span class="hl opt">(</span><span class="hl kwb">$path</span><span class="hl opt">) }),</span>
				 <span class="hl opt">{</span>
				  val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$val</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">},</span>
				  type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;bool&apos;</span><span class="hl opt">,</span>
				  disabled <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span> <span class="hl kwb">$all</span> <span class="hl opt">},</span>
				  text <span class="hl opt">=&gt;</span> translate<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>compssUsers<span class="hl opt">}{</span><span class="hl kwb">$_</span><span class="hl opt">}{</span>label<span class="hl opt">}),</span>
				  help <span class="hl opt">=&gt;</span> translate<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>compssUsers<span class="hl opt">}{</span><span class="hl kwb">$_</span><span class="hl opt">}{</span>descr<span class="hl opt">}),</span>
				 <span class="hl opt">}</span>
			     <span class="hl opt">} &#64;{</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>compssUsersSorted<span class="hl opt">}}),</span>
			   if_<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>meta_class<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;desktop&apos;</span><span class="hl opt">, {</span> text <span class="hl opt">=&gt;</span> _<span class="hl opt">(</span><span class="hl str">&quot;All&quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$all,</span> type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;bool&apos;</span> <span class="hl opt">}),</span>
			   if_<span class="hl opt">(</span><span class="hl kwb">$individual,</span> <span class="hl opt">{</span> text <span class="hl opt">=&gt;</span> _<span class="hl opt">(</span><span class="hl str">&quot;Individual package selection&quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> <span class="hl kwb">$individual,</span> advanced <span class="hl opt">=&gt;</span> <span class="hl num">1</span><span class="hl opt">,</span> type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;bool&apos;</span> <span class="hl opt">}),</span>
			  <span class="hl opt">],</span> changed <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span> <span class="hl kwb">$size_text</span> <span class="hl opt">= &amp;</span><span class="hl kwb">$size_to_display</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">$all</span><span class="hl opt">) {</span>
	<span class="hl kwb">$val</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">} =</span> <span class="hl num">1</span> <span class="hl kwa">foreach</span> <span class="hl kwc">keys</span> <span class="hl kwb">%$val</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> chooseCD <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o, $packages</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;mediums</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">$install_any</span><span class="hl opt">::</span>boot_medium <span class="hl opt">}</span> pkgs<span class="hl opt">::</span>allMediums<span class="hl opt">(</span><span class="hl kwb">$packages</span><span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl kwb">&#64;mediumsDescr</span> <span class="hl opt">= ();</span>
    <span class="hl kwc">my</span> <span class="hl kwb">%mediumsDescr</span> <span class="hl opt">= ();</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>isCdNotEjectable<span class="hl opt">()) {</span>
	<span class="hl slc">#- mono-cd in case of no ramdisk</span>
	<span class="hl kwc">undef</span> <span class="hl kwb">$packages</span><span class="hl opt">-&gt;{</span>mediums<span class="hl opt">}{</span><span class="hl kwb">$_</span><span class="hl opt">}{</span>selected<span class="hl opt">}</span> <span class="hl kwa">foreach</span> <span class="hl kwb">&#64;mediums</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;low memory install, using single CD installation (as it is not ejectable)&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 slc">#- if no other medium available or a poor beginner, we are choosing for him!</span>
    <span class="hl slc">#- note first CD is always selected and should not be unselected!</span>
    <span class="hl kwa">return if</span> <span class="hl kwb">&#64;mediums</span> <span class="hl opt">== () || !$::</span>expert<span class="hl opt">;</span>

    <span class="hl slc">#- build mediumDescr according to mediums, this avoid asking multiple times</span>
    <span class="hl slc">#- all the medium grouped together on only one CD.</span>
    <span class="hl kwa">foreach</span> <span class="hl opt">(</span><span class="hl kwb">&#64;mediums</span><span class="hl opt">) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$descr</span> <span class="hl opt">=</span> pkgs<span class="hl opt">::</span>mediumDescr<span class="hl opt">(</span><span class="hl kwb">$packages, $_</span><span class="hl opt">);</span>
	<span class="hl kwc">exists</span> <span class="hl kwb">$mediumsDescr</span><span class="hl opt">{</span><span class="hl kwb">$descr</span><span class="hl opt">}</span> <span class="hl kwc">or push</span> <span class="hl kwb">&#64;mediumsDescr, $descr</span><span class="hl opt">;</span>
	<span class="hl kwb">$mediumsDescr</span><span class="hl opt">{</span><span class="hl kwb">$descr</span><span class="hl opt">} ||=</span> <span class="hl kwb">$packages</span><span class="hl opt">-&gt;{</span>mediums<span class="hl opt">}{</span><span class="hl kwb">$_</span><span class="hl opt">}{</span>selected<span class="hl opt">};</span>
    <span class="hl opt">}</span>

    <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_help</span><span class="hl opt">(</span><span class="hl str">&apos;chooseCD&apos;</span><span class="hl opt">);</span>
    <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_many_from_list</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 str">&quot;If you have all the CDs in the list below, click Ok.</span>
<span class="hl str">If you have none of those CDs, click Cancel.</span>
<span class="hl str">If only some CDs are missing, unselect them, then click Ok.&quot;</span><span class="hl opt">),</span>
			   <span class="hl opt">{</span>
			    list <span class="hl opt">=&gt;</span> \<span class="hl kwb">&#64;mediumsDescr,</span>
			    label <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span> _<span class="hl opt">(</span><span class="hl str">&quot;Cd-Rom labeled</span> <span class="hl esc">\&quot;</span><span class="hl str"></span><span class="hl ipl">%s\</span><span class="hl str">&quot;</span><span class="hl str">&quot;,</span> <span class="hl ipl">$_</span><span class="hl str">[0]) },</span>
<span class="hl str">			    val =&gt; sub { \</span><span class="hl ipl">$mediumsDescr</span><span class="hl str">{</span><span class="hl ipl">$_</span><span class="hl str">[0]} },</span>
<span class="hl str">			   }) or do {</span>
<span class="hl str"></span>			       <span class="hl ipl">$mediumsDescr</span><span class="hl str">{</span><span class="hl ipl">$_</span><span class="hl str">} = 0 foreach</span> <span class="hl ipl">&#64;mediumsDescr</span><span class="hl str">; #- force unselection of other CDs.</span>
<span class="hl str">			   };</span>
<span class="hl str"></span>    <span class="hl ipl">$o</span><span class="hl str">-&gt;set_help(&apos;choosePackages&apos;);</span>
<span class="hl str"></span>
<span class="hl str">    #- restore true selection of medium (which may have been grouped together)</span>
<span class="hl str">    foreach (</span><span class="hl ipl">&#64;mediums</span><span class="hl str">) {</span>
<span class="hl str">	my</span> <span class="hl ipl">$descr</span> <span class="hl str">= pkgs::mediumDescr(</span><span class="hl ipl">$packages,</span> <span class="hl str"></span><span class="hl ipl">$_</span><span class="hl str">);</span>
<span class="hl str"></span>	<span class="hl ipl">$packages</span><span class="hl str">-&gt;{mediums}{</span><span class="hl ipl">$_</span><span class="hl str">}{selected} =</span> <span class="hl ipl">$mediumsDescr</span><span class="hl str">{</span><span class="hl ipl">$descr</span><span class="hl str">};</span>
<span class="hl str">	log::l(&quot;</span><span class="hl kwc">select</span> status of medium <span class="hl kwb">$_</span> <span class="hl kwa">is</span> <span class="hl kwb">$packages</span><span class="hl opt">-&gt;{</span>mediums<span class="hl opt">}{</span><span class="hl kwb">$_</span><span class="hl opt">}{</span>selected<span class="hl opt">}</span><span class="hl str">&quot;);</span>
<span class="hl str">    }</span>
<span class="hl str">}</span>
<span class="hl str"></span>
<span class="hl str">#------------------------------------------------------------------------------</span>
<span class="hl str">sub installPackages {</span>
<span class="hl str">    my (</span><span class="hl ipl">$o,</span> <span class="hl str"></span><span class="hl ipl">$packages</span><span class="hl str">) =</span> <span class="hl ipl">&#64;_</span><span class="hl str">;</span>
<span class="hl str">    my (</span><span class="hl ipl">$current,</span> <span class="hl str"></span><span class="hl ipl">$total</span><span class="hl str">) = 0;</span>
<span class="hl str"></span>
<span class="hl str">    my</span> <span class="hl ipl">$w</span> <span class="hl str">=</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;wait_message(_(&quot;</span>Installing<span class="hl str">&quot;), _(&quot;</span>Preparing installation<span class="hl str">&quot;));</span>
<span class="hl str"></span>
<span class="hl str">    my</span> <span class="hl ipl">$old</span> <span class="hl str">= \&amp;pkgs::installCallback;</span>
<span class="hl str">    local *pkgs::installCallback = sub {</span>
<span class="hl str">	my</span> <span class="hl ipl">$m</span> <span class="hl str">= shift;</span>
<span class="hl str">	if (</span><span class="hl ipl">$m</span> <span class="hl str">=~ /^Starting installation/) {</span>
<span class="hl str"></span>	    <span class="hl ipl">$total</span> <span class="hl str">=</span> <span class="hl ipl">$_</span><span class="hl str">[1];</span>
<span class="hl str">	} elsif (</span><span class="hl ipl">$m</span> <span class="hl str">=~ /^Starting installing package/) {</span>
<span class="hl str">	    my</span> <span class="hl ipl">$name</span> <span class="hl str">=</span> <span class="hl ipl">$_</span><span class="hl str">[0];</span>
<span class="hl str"></span>	    <span class="hl ipl">$w</span><span class="hl str">-&gt;set(_(&quot;</span>Installing <span class="hl kwa">package</span> <span class="hl kwb">%s\n%d%%</span><span class="hl str">&quot;,</span> <span class="hl ipl">$name,</span> <span class="hl str"></span><span class="hl ipl">$total</span> <span class="hl str">&amp;&amp; 100 *</span> <span class="hl ipl">$current</span> <span class="hl str">/</span> <span class="hl ipl">$total</span><span class="hl str">));</span>
<span class="hl str"></span>	    <span class="hl ipl">$current</span> <span class="hl str">+= pkgs::packageSize(pkgs::packageByName(</span><span class="hl ipl">$o</span><span class="hl str">-&gt;{packages},</span> <span class="hl ipl">$name</span><span class="hl str">));</span>
<span class="hl str">	} else { unshift</span> <span class="hl ipl">&#64;_,</span> <span class="hl str"></span><span class="hl ipl">$m</span><span class="hl str">; goto</span> <span class="hl ipl">$old</span> <span class="hl str">}</span>
<span class="hl str">    };</span>
<span class="hl str"></span>    <span class="hl ipl">$o</span><span class="hl str">-&gt;SUPER::installPackages(</span><span class="hl ipl">$packages</span><span class="hl str">);</span>
<span class="hl str">}</span>
<span class="hl str"></span>
<span class="hl str">sub afterInstallPackages($) {</span>
<span class="hl str">    my (</span><span class="hl ipl">$o</span><span class="hl str">) =</span> <span class="hl ipl">&#64;_</span><span class="hl str">;</span>
<span class="hl str">    my</span> <span class="hl ipl">$w</span> <span class="hl str">=</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;wait_message(&apos;&apos;, _(&quot;</span>Post-install configuration<span class="hl str">&quot;));</span>
<span class="hl str"></span>    <span class="hl ipl">$o</span><span class="hl str">-&gt;SUPER::afterInstallPackages(</span><span class="hl ipl">$o</span><span class="hl str">);</span>
<span class="hl str">}</span>
<span class="hl str"></span>
<span class="hl str">#------------------------------------------------------------------------------</span>
<span class="hl str">sub configureNetwork {</span>
<span class="hl str">    my (</span><span class="hl ipl">$o,</span> <span class="hl str"></span><span class="hl ipl">$first_time</span><span class="hl str">) =</span> <span class="hl ipl">&#64;_</span><span class="hl str">;</span>
<span class="hl str">    require netconnect;</span>
<span class="hl str">    netconnect::main(</span><span class="hl ipl">$o</span><span class="hl str">-&gt;{prefix},</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;{netcnx} ||= {},</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;{netc},</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;{mouse},</span> <span class="hl ipl">$o,</span> <span class="hl str"></span><span class="hl ipl">$o</span><span class="hl str">-&gt;{intf},</span>
<span class="hl str">		     sub {</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;pkg_install(</span><span class="hl ipl">&#64;_</span><span class="hl str">) },</span> <span class="hl ipl">$first_time,</span> <span class="hl str"></span><span class="hl ipl">$o</span><span class="hl str">-&gt;{lang} eq &quot;</span>fr_FR<span class="hl str">&quot; &amp;&amp;</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;{keyboard} eq &quot;</span>fr<span class="hl str">&quot;);</span>
<span class="hl str">}</span>
<span class="hl str"></span>
<span class="hl str">#-configureNetworkIntf moved to network</span>
<span class="hl str"></span>
<span class="hl str">#-configureNetworkNet moved to network</span>
<span class="hl str">#------------------------------------------------------------------------------</span>
<span class="hl str">#-pppConfig moved to any.pm</span>
<span class="hl str">#------------------------------------------------------------------------------</span>
<span class="hl str">sub installCrypto {</span>
<span class="hl str">    my (</span><span class="hl ipl">$o</span><span class="hl str">) =</span> <span class="hl ipl">&#64;_</span><span class="hl str">;</span>
<span class="hl str">    my</span> <span class="hl ipl">$u</span> <span class="hl str">=</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;{crypto} ||= {};</span>
<span class="hl str">    </span>
<span class="hl str">    $::expert and</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;hasNetwork or return;</span>
<span class="hl str"></span>
<span class="hl str">    is_empty_hash_ref(</span><span class="hl ipl">$u</span><span class="hl str">) and</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;ask_yesorno(&apos;&apos;, </span>
<span class="hl str">_(&quot;</span>You have now the possibility to download software aimed <span class="hl kwa">for</span> encryption<span class="hl opt">.</span>

WARNING<span class="hl opt">:</span>

Due to different general requirements applicable to these software <span class="hl kwc">and</span> imposed
by various jurisdictions<span class="hl opt">,</span> customer <span class="hl kwc">and</span><span class="hl opt">/</span><span class="hl kwc">or</span> end user of theses software should
ensure that the laws of his<span class="hl kwd">/their jurisdiction allow him/</span>them to download<span class="hl opt">,</span> stock
<span class="hl kwc">and</span><span class="hl opt">/</span><span class="hl kwc">or</span> <span class="hl kwa">use</span> these software<span class="hl opt">.</span>

In addition customer <span class="hl kwc">and</span><span class="hl opt">/</span><span class="hl kwc">or</span> end user shall particularly be aware to <span class="hl kwc">not</span> infringe
the laws of his<span class="hl kwd">/their jurisdiction. Should customer and/o</span>r end user <span class="hl kwc">not</span>
respect the provision of these applicable laws<span class="hl opt">,</span> he<span class="hl opt">/</span>they will incure serious
sanctions<span class="hl opt">.</span>

In <span class="hl kwa">no</span> event shall Mandrakesoft nor its manufacturers <span class="hl kwc">and</span><span class="hl opt">/</span><span class="hl kwc">or</span> suppliers be liable
<span class="hl kwa">for</span> special<span class="hl opt">,</span> indirect <span class="hl kwc">or</span> incidental damages whatsoever <span class="hl opt">(</span>including<span class="hl opt">,</span> but <span class="hl kwc">not</span>
limited to loss of profits<span class="hl opt">,</span> business interruption<span class="hl opt">,</span> loss of commercial data <span class="hl kwc">and</span>
other pecuniary losses<span class="hl opt">,</span> <span class="hl kwc">and</span> eventual liabilities <span class="hl kwc">and</span> indemnification to be paid
pursuant to a court decision<span class="hl opt">)</span> arising out of <span class="hl kwa">use</span><span class="hl opt">,</span> possession<span class="hl opt">,</span> <span class="hl kwc">or</span> the sole
downloading of these software<span class="hl opt">,</span> to which customer <span class="hl kwc">and</span><span class="hl opt">/</span><span class="hl kwc">or</span> end user could
eventually have access after having sign up the present agreement<span class="hl opt">.</span>


For any queries relating to these agreement<span class="hl opt">,</span> please contact 
Mandrakesoft<span class="hl opt">,</span> Inc<span class="hl opt">.</span>
<span class="hl num">2400</span> N<span class="hl opt">.</span> Lincoln Avenue Suite <span class="hl num">243</span>
Altadena California <span class="hl num">91001</span>
USA<span class="hl str">&quot;)) || return;</span>
<span class="hl str"></span>
<span class="hl str">    require crypto;</span>
<span class="hl str">    eval {</span>
<span class="hl str"></span>      <span class="hl ipl">$u</span><span class="hl str">-&gt;{mirror} =</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;ask_from_listf(&apos;&apos;, </span>
<span class="hl str">					_(&quot;</span>Choose a mirror from which to get the packages<span class="hl str">&quot;), </span>
<span class="hl str">					\&amp;crypto::mirror2text, </span>
<span class="hl str">					[ crypto::mirrors() ], </span>
<span class="hl str"></span>					<span class="hl ipl">$u</span><span class="hl str">-&gt;{mirror});</span>
<span class="hl str">    };</span>
<span class="hl str">    return if</span> <span class="hl ipl">$&#64;</span><span class="hl str">;</span>
<span class="hl str"></span>
<span class="hl str">    #- bring all interface up for installing crypto packages.</span>
<span class="hl str">    install_interactive::upNetwork(</span><span class="hl ipl">$o</span><span class="hl str">);</span>
<span class="hl str"></span>
<span class="hl str">    my</span> <span class="hl ipl">&#64;packages</span> <span class="hl str">= do {</span>
<span class="hl str">      my</span> <span class="hl ipl">$w</span> <span class="hl str">=</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;wait_message(&apos;&apos;, _(&quot;</span>Contacting the mirror to get the list of available packages<span class="hl str">&quot;));</span>
<span class="hl str">      crypto::getPackages(</span><span class="hl ipl">$o</span><span class="hl str">-&gt;{prefix},</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;{packages},</span> <span class="hl ipl">$u</span><span class="hl str">-&gt;{mirror}); #- make sure</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;{packages} is defined when testing</span>
<span class="hl str">    };</span>
<span class="hl str"></span>    <span class="hl ipl">$u</span><span class="hl str">-&gt;{packages} =</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;ask_many_from_list(&apos;&apos;, _(&quot;</span>Please choose the packages you want to install<span class="hl opt">.</span><span class="hl str">&quot;), { list =&gt; \</span><span class="hl ipl">&#64;packages,</span> <span class="hl str">values =&gt;</span> <span class="hl ipl">$u</span><span class="hl str">-&gt;{packages} }) or return;</span>
<span class="hl str"></span>    <span class="hl ipl">$o</span><span class="hl str">-&gt;pkg_install(&#64;{</span><span class="hl ipl">$u</span><span class="hl str">-&gt;{packages}});</span>
<span class="hl str"></span>
<span class="hl str">    #- stop interface using ppp only.</span>
<span class="hl str">    install_interactive::downNetwork(</span><span class="hl ipl">$o,</span> <span class="hl str">&apos;pppOnly&apos;);</span>
<span class="hl str">}</span>
<span class="hl str"></span>
<span class="hl str">#------------------------------------------------------------------------------</span>
<span class="hl str">sub configureTimezone {</span>
<span class="hl str">    my (</span><span class="hl ipl">$o,</span> <span class="hl str"></span><span class="hl ipl">$clicked</span><span class="hl str">) =</span> <span class="hl ipl">&#64;_</span><span class="hl str">;</span>
<span class="hl str"></span>
<span class="hl str">    require timezone;</span>
<span class="hl str"></span>    <span class="hl ipl">$o</span><span class="hl str">-&gt;{timezone}{timezone} =</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;ask_from_treelist(&apos;&apos;, _(&quot;</span>Which <span class="hl kwa">is</span> your timezone?<span class="hl str">&quot;), &apos;/&apos;, [ timezone::getTimeZones($::g_auto_install ? &apos;&apos; :</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;{prefix}) ],</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;{timezone}{timezone});</span>
<span class="hl str"></span>    <span class="hl ipl">$o</span><span class="hl str">-&gt;set_help(&apos;configureTimezoneGMT&apos;);</span>
<span class="hl str"></span>    <span class="hl ipl">$o</span><span class="hl str">-&gt;{timezone}{UTC} =</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;ask_yesorno(&apos;&apos;, _(&quot;</span>Is your hardware clock set to GMT?<span class="hl str">&quot;),</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;{timezone}{UTC}) if $::expert ||</span> <span class="hl ipl">$clicked</span><span class="hl str">;</span>
<span class="hl str">    install_steps::configureTimezone(</span><span class="hl ipl">$o</span><span class="hl str">);</span>
<span class="hl str">}</span>
<span class="hl str"></span>
<span class="hl str">#------------------------------------------------------------------------------</span>
<span class="hl str">sub configureServices { </span>
<span class="hl str">    my (</span><span class="hl ipl">$o,</span> <span class="hl str"></span><span class="hl ipl">$clicked</span><span class="hl str">) =</span> <span class="hl ipl">&#64;_</span><span class="hl str">;</span>
<span class="hl str">    require services;</span>
<span class="hl str"></span>    <span class="hl ipl">$o</span><span class="hl str">-&gt;{services} = services::ask(</span><span class="hl ipl">$o,</span> <span class="hl str"></span><span class="hl ipl">$o</span><span class="hl str">-&gt;{prefix}) if $::expert ||</span> <span class="hl ipl">$clicked</span><span class="hl str">;</span>
<span class="hl str">    install_steps::configureServices(</span><span class="hl ipl">$o</span><span class="hl str">);</span>
<span class="hl str">}</span>
<span class="hl str"></span>
<span class="hl str">sub summary {</span>
<span class="hl str">    my (</span><span class="hl ipl">$o,</span> <span class="hl str"></span><span class="hl ipl">$first_time</span><span class="hl str">) =</span> <span class="hl ipl">&#64;_</span><span class="hl str">;</span>
<span class="hl str"></span>
<span class="hl str">    if (</span><span class="hl ipl">$first_time</span><span class="hl str">) {</span>
<span class="hl str">	#- auto-detection</span>
<span class="hl str"></span>	<span class="hl ipl">$o</span><span class="hl str">-&gt;configurePrinter(0) if !$::expert;</span>
<span class="hl str">	install_any::preConfigureTimezone(</span><span class="hl ipl">$o</span><span class="hl str">);</span>
<span class="hl str">    }</span>
<span class="hl str">    my</span> <span class="hl ipl">$mouse_name</span><span class="hl str">;</span>
<span class="hl str">    my</span> <span class="hl ipl">$format_mouse</span> <span class="hl str">= sub {</span> <span class="hl ipl">$mouse_name</span> <span class="hl str">= translate(</span><span class="hl ipl">$o</span><span class="hl str">-&gt;{mouse}{type}) . &apos; &apos; . translate(</span><span class="hl ipl">$o</span><span class="hl str">-&gt;{mouse}{name}) };</span>
<span class="hl str">    &amp;</span><span class="hl ipl">$format_mouse</span><span class="hl str">;</span>
<span class="hl str"></span>
<span class="hl str">    #- format printer description in a better way according to CUPS/LPR used.</span>
<span class="hl str">    my</span> <span class="hl ipl">$format_printers</span> <span class="hl str">= sub {</span>
<span class="hl str">	my (</span><span class="hl ipl">$printer</span><span class="hl str">) =</span> <span class="hl ipl">&#64;_</span><span class="hl str">;</span>
<span class="hl str">	if (is_empty_hash_ref(</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured})) {</span>
<span class="hl str">	    pkgs::packageFlagInstalled(pkgs::packageByName(</span><span class="hl ipl">$o</span><span class="hl str">-&gt;{packages}, &apos;cups&apos;)) and return _(&quot;</span>Remote CUPS server<span class="hl str">&quot;);</span>
<span class="hl str">	    return _(&quot;</span>No printer<span class="hl str">&quot;);</span>
<span class="hl str">	}</span>
<span class="hl str">	my</span> <span class="hl ipl">$entry</span> <span class="hl str">=</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}{</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{QUEUE}} || (values %{</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}})[0];</span>
<span class="hl str">	for (</span><span class="hl ipl">$entry</span><span class="hl str">-&gt;{mode}) {</span>
<span class="hl str">	    /CUPS/ and return</span> <span class="hl ipl">$entry</span><span class="hl str">-&gt;{cupsDescr};</span>
<span class="hl str">	    /lpr/ and return</span> <span class="hl ipl">$entry</span><span class="hl str">-&gt;{DBENTRY};</span>
<span class="hl str">	    die &quot;</span>unknown entry <span class="hl kwa">for</span> printer <span class="hl kwb">$entry</span><span class="hl opt">-&gt;{</span>QUEUE<span class="hl opt">}</span><span class="hl str">&quot;;</span>
<span class="hl str">	}</span>
<span class="hl str">    };</span>
<span class="hl str"></span>
<span class="hl str"></span>    <span class="hl ipl">$o</span><span class="hl str">-&gt;ask_from_entries_refH(&apos;&apos;, _(&quot;</span>Summary<span class="hl str">&quot;),</span>
<span class="hl str">    [</span>
<span class="hl str">{ label =&gt; _(&quot;</span>Mouse<span class="hl str">&quot;), val =&gt; \</span><span class="hl ipl">$mouse_name,</span> <span class="hl str">clicked =&gt; sub {</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;selectMouse(1); &amp;</span><span class="hl ipl">$format_mouse</span> <span class="hl str">} },</span>
<span class="hl str">{ label =&gt; _(&quot;</span>Keyboard<span class="hl str">&quot;), val =&gt; \</span><span class="hl ipl">$o</span><span class="hl str">-&gt;{keyboard}, clicked =&gt; sub {</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;selectKeyboard(1) }, format =&gt; sub { translate(keyboard::keyboard2text(</span><span class="hl ipl">$_</span><span class="hl str">[0])) } },</span>
<span class="hl str">{ label =&gt; _(&quot;</span>Timezone<span class="hl str">&quot;), val =&gt; \</span><span class="hl ipl">$o</span><span class="hl str">-&gt;{timezone}{timezone}, clicked =&gt; sub {</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;configureTimezone(1) } },</span>
<span class="hl str">{ label =&gt; _(&quot;</span>Printer<span class="hl str">&quot;), val =&gt; \</span><span class="hl ipl">$o</span><span class="hl str">-&gt;{printer}, clicked =&gt; sub {</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;configurePrinter(1) }, format =&gt;</span> <span class="hl ipl">$format_printers</span> <span class="hl str">},</span>
<span class="hl str">    (map {</span>
<span class="hl str">{ label =&gt; _(&quot;</span>ISDN card<span class="hl str">&quot;), val =&gt;</span> <span class="hl ipl">$_</span><span class="hl str">-&gt;{description}, clicked =&gt; sub {</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;configureNetwork } }</span>
<span class="hl str">     } grep {</span> <span class="hl ipl">$_</span><span class="hl str">-&gt;{driver} eq &apos;hisax&apos; } detect_devices::probeall()),</span>
<span class="hl str">    (map { </span>
<span class="hl str">{ label =&gt; _(&quot;</span>Sound card<span class="hl str">&quot;), val =&gt;</span> <span class="hl ipl">$_</span><span class="hl str">-&gt;{description} } </span>
<span class="hl str">     } arch() !~ /ppc/ ? modules::get_that_type(&apos;sound&apos;) : modules::load_thiskind(&apos;sound&apos;)),</span>
<span class="hl str">    (map {</span>
<span class="hl str">{ label =&gt; _(&quot;</span>TV card<span class="hl str">&quot;), val =&gt;</span> <span class="hl ipl">$_</span><span class="hl str">-&gt;{description} } </span>
<span class="hl str">     } grep {</span> <span class="hl ipl">$_</span><span class="hl str">-&gt;{driver} eq &apos;bttv&apos; } detect_devices::probeall()),</span>
<span class="hl str">]);</span>
<span class="hl str">}</span>
<span class="hl str"></span>
<span class="hl str">#------------------------------------------------------------------------------</span>
<span class="hl str">sub configurePrinter {</span>
<span class="hl str">    my (</span><span class="hl ipl">$o,</span> <span class="hl str"></span><span class="hl ipl">$clicked</span><span class="hl str">) =</span> <span class="hl ipl">&#64;_</span><span class="hl str">;</span>
<span class="hl str">    $::corporate &amp;&amp; !</span><span class="hl ipl">$clicked</span> <span class="hl str">and return;</span>
<span class="hl str"></span>
<span class="hl str">    require printer;</span>
<span class="hl str">    require printerdrake;</span>
<span class="hl str"></span>
<span class="hl str">    if (!$::expert &amp;&amp; !</span><span class="hl ipl">$clicked</span><span class="hl str">) {</span>
<span class="hl str">        printerdrake::auto_detect(</span><span class="hl ipl">$o</span><span class="hl str">) or return;</span>
<span class="hl str">    }</span>
<span class="hl str"></span>
<span class="hl str">    my</span> <span class="hl ipl">$printer</span> <span class="hl str">=</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;{printer} ||= {};</span>
<span class="hl str"></span>
<span class="hl str">    #- bring interface up for installing ethernet packages but avoid ppp by default,</span>
<span class="hl str">    #- else the guy know what he is doing...</span>
<span class="hl str">    #install_interactive::upNetwork(</span><span class="hl ipl">$o,</span> <span class="hl str">&apos;pppAvoided&apos;);</span>
<span class="hl str"></span>
<span class="hl str">    #- take default configuration, this include choosing the right system</span>
<span class="hl str">    #- currently used by the system.</span>
<span class="hl str">    eval { add2hash(</span><span class="hl ipl">$printer,</span> <span class="hl str">printer::getinfo(</span><span class="hl ipl">$o</span><span class="hl str">-&gt;{prefix})) };</span>
<span class="hl str"></span>
<span class="hl str">    #- figure out what printing system to use, currently are suported cups and lpr,</span>
<span class="hl str">    #- in case this has not be detected above.</span>
<span class="hl str">    $::expert or</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{mode} ||= &apos;CUPS&apos;;</span>
<span class="hl str">    if ($::expert || !</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{mode}) {</span>
<span class="hl str"></span>	<span class="hl ipl">$o</span><span class="hl str">-&gt;set_help(&apos;configurePrinterSystem&apos;);</span>
<span class="hl str"></span>	<span class="hl ipl">$o</span><span class="hl str">-&gt;ask_from_entries_refH_powered(</span>
<span class="hl str">              {</span>
<span class="hl str">	       messages =&gt; _(&quot;</span>Which printing <span class="hl kwc">system</span> <span class="hl kwa">do</span> you want to <span class="hl kwa">use</span>?<span class="hl str">&quot;),</span>
<span class="hl str">	       }, [ { val =&gt; \</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{mode}, list =&gt; [ &apos;CUPS&apos;, &apos;lpr&apos; ] } ]</span>
<span class="hl str">        ) or</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{mode} = undef,</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{want} = undef, return;</span>
<span class="hl str"></span>	<span class="hl ipl">$printer</span><span class="hl str">-&gt;{want} = 1;</span>
<span class="hl str"></span>	<span class="hl ipl">$o</span><span class="hl str">-&gt;set_help(&apos;configurePrinter&apos;);</span>
<span class="hl str">    }</span>
<span class="hl str"></span>
<span class="hl str"></span>    <span class="hl ipl">$printer</span><span class="hl str">-&gt;{PAPERSIZE} =</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;{lang} eq &apos;en&apos; ? &apos;letter&apos; : &apos;a4&apos;;</span>
<span class="hl str">    printerdrake::main(</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$o,</span> <span class="hl str">sub {</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;pkg_install(</span><span class="hl ipl">&#64;_</span><span class="hl str">) }, sub { install_interactive::upNetwork(</span><span class="hl ipl">$o,</span> <span class="hl str">&apos;pppAvoided&apos;) });</span>
<span class="hl str">    </span>
<span class="hl str"></span>    <span class="hl ipl">$o</span><span class="hl str">-&gt;pkg_install_if_requires_satisfied(&apos;Mesa-common&apos;, &apos;xpp&apos;, &apos;libqtcups2&apos;, &apos;qtcups&apos;, &apos;kups&apos;) if !is_empty_hash_ref(</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}) || pkgs::packageFlagInstalled(pkgs::packageByName(</span><span class="hl ipl">$o</span><span class="hl str">-&gt;{packages}, &apos;cups&apos;));</span>
<span class="hl str">}</span>
<span class="hl str"></span>
<span class="hl str">#------------------------------------------------------------------------------</span>
<span class="hl str">sub setRootPassword {</span>
<span class="hl str">    my (</span><span class="hl ipl">$o,</span> <span class="hl str"></span><span class="hl ipl">$clicked</span><span class="hl str">) =</span> <span class="hl ipl">&#64;_</span><span class="hl str">;</span>
<span class="hl str">    my</span> <span class="hl ipl">$sup</span> <span class="hl str">=</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;{superuser} ||= {};</span>
<span class="hl str">    my</span> <span class="hl ipl">$nis</span> <span class="hl str">=</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;{authentication}{NIS};</span>
<span class="hl str"></span>    <span class="hl ipl">$sup</span><span class="hl str">-&gt;{password2} ||=</span> <span class="hl ipl">$sup</span><span class="hl str">-&gt;{password} ||= &quot;</span><span class="hl str">&quot;;</span>
<span class="hl str"></span>
<span class="hl str">    return if</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;{security} &lt; 1 &amp;&amp; !</span><span class="hl ipl">$clicked</span><span class="hl str">;</span>
<span class="hl str"></span>
<span class="hl str">    $::isInstall and</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;set_help(&quot;</span>setRootPassword<span class="hl str">&quot;, </span>
<span class="hl str">				  if_($::expert, &quot;</span>setRootPasswordMd5<span class="hl str">&quot;),</span>
<span class="hl str">				  if_($::expert, &quot;</span>setRootPasswordNIS<span class="hl str">&quot;));</span>
<span class="hl str"></span>
<span class="hl str"></span>    <span class="hl ipl">$o</span><span class="hl str">-&gt;ask_from_entries_refH_powered(</span>
<span class="hl str">        {</span>
<span class="hl str">	 title =&gt; _(&quot;</span>Set root password<span class="hl str">&quot;), </span>
<span class="hl str">	 messages =&gt; _(&quot;</span>Set root password<span class="hl str">&quot;),</span>
<span class="hl str">	 cancel =&gt; (</span><span class="hl ipl">$o</span><span class="hl str">-&gt;{security} &lt;= 2 &amp;&amp; !$::corporate ? _(&quot;</span>No password<span class="hl str">&quot;) : &apos;&apos;),</span>
<span class="hl str">	 callbacks =&gt; { </span>
<span class="hl str">	     complete =&gt; sub {</span>
<span class="hl str"></span>		 <span class="hl ipl">$sup</span><span class="hl str">-&gt;{password} eq</span> <span class="hl ipl">$sup</span><span class="hl str">-&gt;{password2} or</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;ask_warn(&apos;&apos;, [ _(&quot;</span>The passwords <span class="hl kwa">do</span> <span class="hl kwc">not</span> match<span class="hl str">&quot;), _(&quot;</span>Please <span class="hl kwc">try</span> again<span class="hl str">&quot;) ]), return (1,1);</span>
<span class="hl str">		 length</span> <span class="hl ipl">$sup</span><span class="hl str">-&gt;{password} &lt; 2 *</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;{security}</span>
<span class="hl str">		   and</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;ask_warn(&apos;&apos;, _(&quot;</span>This password <span class="hl kwa">is</span> too simple <span class="hl opt">(</span>must be at least <span class="hl kwb">%d</span> characters long<span class="hl opt">)</span><span class="hl str">&quot;, 2 *</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;{security})), return (1,0);</span>
<span class="hl str">		 return 0</span>
<span class="hl str">        } } }, [</span>
<span class="hl str">{ label =&gt; _(&quot;</span>Password<span class="hl str">&quot;), val =&gt; \</span><span class="hl ipl">$sup</span><span class="hl str">-&gt;{password},  hidden =&gt; 1 },</span>
<span class="hl str">{ label =&gt; _(&quot;</span>Password <span class="hl opt">(</span>again<span class="hl opt">)</span><span class="hl str">&quot;), val =&gt; \</span><span class="hl ipl">$sup</span><span class="hl str">-&gt;{password2}, hidden =&gt; 1 },</span>
<span class="hl str">  if_($::expert,</span>
<span class="hl str">{ label =&gt; _(&quot;</span>Use NIS<span class="hl str">&quot;), val =&gt; \</span><span class="hl ipl">$nis,</span> <span class="hl str">type =&gt; &apos;bool&apos;, text =&gt; _(&quot;</span>yellow pages<span class="hl str">&quot;) },</span>
<span class="hl str">  ),</span>
<span class="hl str">			 ]) or return;</span>
<span class="hl str"></span>
<span class="hl str">    if (</span><span class="hl ipl">$nis</span><span class="hl str">) {</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;ask_from_entries_refH(&apos;&apos;,</span>
<span class="hl str">				     _(&quot;</span>Authentification NIS<span class="hl str">&quot;),</span>
<span class="hl str">				     [ { label =&gt; _(&quot;</span>NIS Domain<span class="hl str">&quot;), val =&gt; \ (</span><span class="hl ipl">$o</span><span class="hl str">-&gt;{netc}{NISDOMAIN} ||=</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;{netc}{DOMAINNAME}) },</span>
<span class="hl str">				       { label =&gt; _(&quot;</span>NIS Server<span class="hl str">&quot;), val =&gt; \</span><span class="hl ipl">$o</span><span class="hl str">-&gt;{authentication}{NIS}, list =&gt; [&quot;</span>broadcast<span class="hl str">&quot;], not_edit =&gt; 0 },</span>
<span class="hl str">				     ]); } else {</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;{authentication}{NIS} = &apos;&apos;; }</span>
<span class="hl str">    install_steps::setRootPassword(</span><span class="hl ipl">$o</span><span class="hl str">);</span>
<span class="hl str">}</span>
<span class="hl str"></span>
<span class="hl str">#------------------------------------------------------------------------------</span>
<span class="hl str">#-addUser</span>
<span class="hl str">#------------------------------------------------------------------------------</span>
<span class="hl str">sub addUser {</span>
<span class="hl str">    my (</span><span class="hl ipl">$o,</span> <span class="hl str"></span><span class="hl ipl">$clicked</span><span class="hl str">) =</span> <span class="hl ipl">&#64;_</span><span class="hl str">;</span>
<span class="hl str"></span>    <span class="hl ipl">$o</span><span class="hl str">-&gt;{users} ||= [];</span>
<span class="hl str"></span>
<span class="hl str">    if (</span><span class="hl ipl">$o</span><span class="hl str">-&gt;{security} &lt; 1) {</span>
<span class="hl str">	push &#64;{</span><span class="hl ipl">$o</span><span class="hl str">-&gt;{users}}, { password =&gt; &apos;mandrake&apos;, realname =&gt; &apos;default&apos;, icon =&gt; &apos;automagic&apos; } </span>
<span class="hl str">	  if !member(&apos;mandrake&apos;, map {</span> <span class="hl ipl">$_</span><span class="hl str">-&gt;{name} } &#64;{</span><span class="hl ipl">$o</span><span class="hl str">-&gt;{users}});</span>
<span class="hl str">    }</span>
<span class="hl str">    if ((</span><span class="hl ipl">$o</span><span class="hl str">-&gt;{security} &gt;= 1 ||</span> <span class="hl ipl">$clicked</span><span class="hl str">)) {</span>
<span class="hl str">	any::ask_users(</span><span class="hl ipl">$o</span><span class="hl str">-&gt;{prefix},</span> <span class="hl ipl">$o,</span> <span class="hl str"></span><span class="hl ipl">$o</span><span class="hl str">-&gt;{users},</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;{security});</span>
<span class="hl str">    }</span>
<span class="hl str">    any::get_autologin(</span><span class="hl ipl">$o</span><span class="hl str">-&gt;{prefix},</span> <span class="hl ipl">$o</span><span class="hl str">);</span>
<span class="hl str">    if (!$::expert &amp;&amp; !</span><span class="hl ipl">$clicked</span> <span class="hl str">&amp;&amp;</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;{users}) {</span>
<span class="hl str"></span>	<span class="hl ipl">$o</span><span class="hl str">-&gt;{autologin} =</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;{users}[0]{name};</span>
<span class="hl str">    }</span>
<span class="hl str">    any::autologin(</span><span class="hl ipl">$o</span><span class="hl str">-&gt;{prefix},</span> <span class="hl ipl">$o,</span> <span class="hl str"></span><span class="hl ipl">$o</span><span class="hl str">);</span>
<span class="hl str"></span>
<span class="hl str">    install_steps::addUser(</span><span class="hl ipl">$o</span><span class="hl str">);</span>
<span class="hl str">}</span>
<span class="hl str"></span>
<span class="hl str">#------------------------------------------------------------------------------</span>
<span class="hl str">sub createBootdisk {</span>
<span class="hl str">    my (</span><span class="hl ipl">$o,</span> <span class="hl str"></span><span class="hl ipl">$first_time</span><span class="hl str">) =</span> <span class="hl ipl">&#64;_</span><span class="hl str">;</span>
<span class="hl str"></span>
<span class="hl str">    return if</span> <span class="hl ipl">$first_time</span> <span class="hl str">&amp;&amp; !$::expert;</span>
<span class="hl str"></span>
<span class="hl str">    if (arch() =~ /sparc/) {</span>
<span class="hl str">	#- as probing floppies is a bit more different on sparc, assume always /dev/fd0.</span>
<span class="hl str"></span>	<span class="hl ipl">$o</span><span class="hl str">-&gt;ask_okcancel(&apos;&apos;,</span>
<span class="hl str">			 _(&quot;</span>A custom bootdisk provides a way of booting into your Linux <span class="hl kwc">system</span> without
depending on the normal bootloader<span class="hl opt">.</span> This <span class="hl kwa">is</span> useful <span class="hl kwa">if</span> you don<span class="hl str">&apos;t want to install</span>
<span class="hl str">SILO on your system, or another operating system removes SILO, or SILO doesn&apos;</span>t
work with your hardware configuration<span class="hl opt">.</span> A custom bootdisk can also be used with
the Mandrake rescue image<span class="hl opt">,</span> making it much easier to recover from severe <span class="hl kwc">system</span>
failures<span class="hl opt">.</span>

If you want to create a bootdisk <span class="hl kwa">for</span> your <span class="hl kwc">system</span><span class="hl opt">,</span> insert a floppy <span class="hl kwa">in</span> the first
drive <span class="hl kwc">and</span> press <span class="hl esc">\&quot;</span>Ok<span class="hl esc">\&quot;</span><span class="hl opt">.</span><span class="hl str">&quot;),</span>
<span class="hl str"></span>			 <span class="hl ipl">$o</span><span class="hl str">-&gt;{mkbootdisk}) or return</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;{mkbootdisk} = &apos;&apos;;</span>
<span class="hl str">	my</span> <span class="hl ipl">&#64;l</span> <span class="hl str">= detect_devices::floppies();</span>
<span class="hl str"></span>	<span class="hl ipl">$o</span><span class="hl str">-&gt;{mkbootdisk} =</span> <span class="hl ipl">$l</span><span class="hl str">[0] if !</span><span class="hl ipl">$o</span><span class="hl str">-&gt;{mkbootdisk} ||</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;{mkbootdisk} eq &quot;</span><span class="hl num">1</span><span class="hl str">&quot;;</span>
<span class="hl str"></span>	<span class="hl ipl">$o</span><span class="hl str">-&gt;{mkbootdisk} or return;</span>
<span class="hl str">    } else {</span>
<span class="hl str">	my</span> <span class="hl ipl">&#64;l</span> <span class="hl str">= detect_devices::floppies();</span>
<span class="hl str">	my</span> <span class="hl ipl">%l</span> <span class="hl str">= (</span>
<span class="hl str">		 &apos;fd0&apos;  =&gt; _(&quot;</span>First floppy drive<span class="hl str">&quot;),</span>
<span class="hl str">		 &apos;fd1&apos;  =&gt; _(&quot;</span>Second floppy drive<span class="hl str">&quot;),</span>
<span class="hl str">		 &apos;Skip&apos; =&gt; _(&quot;</span>Skip<span class="hl str">&quot;),</span>
<span class="hl str">		 );</span>
<span class="hl str"></span>
<span class="hl str">	if (</span><span class="hl ipl">$first_time</span> <span class="hl str">||</span> <span class="hl ipl">&#64;l</span> <span class="hl str">== 1) {</span>
<span class="hl str"></span>	    <span class="hl ipl">$o</span><span class="hl str">-&gt;ask_yesorno(&apos;&apos;, formatAlaTeX(</span>
<span class="hl str">			    _(&quot;</span>A custom bootdisk provides a way of booting into your Linux <span class="hl kwc">system</span> without
depending on the normal bootloader<span class="hl opt">.</span> This <span class="hl kwa">is</span> useful <span class="hl kwa">if</span> you don<span class="hl str">&apos;t want to install</span>
<span class="hl str">LILO (or grub) on your system, or another operating system removes LILO, or LILO doesn&apos;</span>t
work with your hardware configuration<span class="hl opt">.</span> A custom bootdisk can also be used with
the Mandrake rescue image<span class="hl opt">,</span> making it much easier to recover from severe <span class="hl kwc">system</span>
failures<span class="hl opt">.</span> Would you like to create a bootdisk <span class="hl kwa">for</span> your <span class="hl kwc">system</span>?<span class="hl str">&quot;)), </span>
<span class="hl str"></span>			    <span class="hl ipl">$o</span><span class="hl str">-&gt;{mkbootdisk}) or return</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;{mkbootdisk} = &apos;&apos;;</span>
<span class="hl str"></span>	    <span class="hl ipl">$o</span><span class="hl str">-&gt;{mkbootdisk} =</span> <span class="hl ipl">$l</span><span class="hl str">[0] if !</span><span class="hl ipl">$o</span><span class="hl str">-&gt;{mkbootdisk} ||</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;{mkbootdisk} eq &quot;</span><span class="hl num">1</span><span class="hl str">&quot;;</span>
<span class="hl str">	} else {</span>
<span class="hl str"></span>	    <span class="hl ipl">&#64;l</span> <span class="hl str">or die _(&quot;</span>Sorry<span class="hl opt">,</span> <span class="hl kwa">no</span> floppy drive available<span class="hl str">&quot;);</span>
<span class="hl str"></span>
<span class="hl str"></span>	    <span class="hl ipl">$o</span><span class="hl str">-&gt;ask_from_entries_refH_powered(</span>
<span class="hl str">              {</span>
<span class="hl str">	       messages =&gt; _(&quot;</span>Choose the floppy drive you want to <span class="hl kwa">use</span> to make the bootdisk<span class="hl str">&quot;),</span>
<span class="hl str">	      }, [ { val =&gt; \</span><span class="hl ipl">$o</span><span class="hl str">-&gt;{mkbootdisk}, list =&gt; \</span><span class="hl ipl">&#64;l,</span> <span class="hl str">format =&gt; sub {</span> <span class="hl ipl">$l</span><span class="hl str">{</span><span class="hl ipl">$_</span><span class="hl str">[0]} ||</span> <span class="hl ipl">$_</span><span class="hl str">[0] } } ]</span>
<span class="hl str">            ) or return;</span>
<span class="hl str">        }</span>
<span class="hl str"></span>        <span class="hl ipl">$o</span><span class="hl str">-&gt;ask_warn(&apos;&apos;, _(&quot;</span>Insert a floppy <span class="hl kwa">in</span> drive <span class="hl kwb">%s</span><span class="hl str">&quot;,</span> <span class="hl ipl">$l</span><span class="hl str">{</span><span class="hl ipl">$o</span><span class="hl str">-&gt;{mkbootdisk}} ||</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;{mkbootdisk}));</span>
<span class="hl str">    }</span>
<span class="hl str"></span>
<span class="hl str">    my</span> <span class="hl ipl">$w</span> <span class="hl str">=</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;wait_message(&apos;&apos;, _(&quot;</span>Creating bootdisk<span class="hl str">&quot;));</span>
<span class="hl str">    install_steps::createBootdisk(</span><span class="hl ipl">$o</span><span class="hl str">);</span>
<span class="hl str">}</span>
<span class="hl str"></span>
<span class="hl str">#------------------------------------------------------------------------------</span>
<span class="hl str">sub setupBootloaderBefore {</span>
<span class="hl str">    my (</span><span class="hl ipl">$o</span><span class="hl str">) =</span> <span class="hl ipl">&#64;_</span><span class="hl str">;</span>
<span class="hl str">    my</span> <span class="hl ipl">$w</span> <span class="hl str">=</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;wait_message(&apos;&apos;, _(&quot;</span>Preparing bootloader<span class="hl str">&quot;));</span>
<span class="hl str"></span>    <span class="hl ipl">$o</span><span class="hl str">-&gt;set_help(&apos;empty&apos;);</span>
<span class="hl str"></span>    <span class="hl ipl">$o</span><span class="hl str">-&gt;SUPER::setupBootloaderBefore(</span><span class="hl ipl">$o</span><span class="hl str">);</span>
<span class="hl str">}</span>
<span class="hl str"></span>
<span class="hl str">#------------------------------------------------------------------------------</span>
<span class="hl str">sub setupBootloader {</span>
<span class="hl str">    my (</span><span class="hl ipl">$o,</span> <span class="hl str"></span><span class="hl ipl">$more</span><span class="hl str">) =</span> <span class="hl ipl">&#64;_</span><span class="hl str">;</span>
<span class="hl str">    if (arch() =~ /^alpha/) {</span>
<span class="hl str"></span>	<span class="hl ipl">$o</span><span class="hl str">-&gt;ask_yesorno(&apos;&apos;, _(&quot;</span>Do you want to <span class="hl kwa">use</span> aboot?<span class="hl str">&quot;), 1) or return;</span>
<span class="hl str">	catch_cdie {</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;SUPER::setupBootloader } sub {</span>
<span class="hl str"></span>	    <span class="hl ipl">$o</span><span class="hl str">-&gt;ask_yesorno(&apos;&apos;, </span>
<span class="hl str">_(&quot;</span>Error installing aboot<span class="hl opt">,</span> 
<span class="hl kwc">try</span> to force installation even <span class="hl kwa">if</span> that destroys the first partition?<span class="hl str">&quot;));</span>
<span class="hl str">	};</span>
<span class="hl str">    } else {</span>
<span class="hl str">	any::setupBootloader(</span><span class="hl ipl">$o,</span> <span class="hl str"></span><span class="hl ipl">$o</span><span class="hl str">-&gt;{bootloader},</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;{hds},</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;{fstab},</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;{security},</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;{prefix},</span> <span class="hl ipl">$more</span><span class="hl str">) or return;</span>
<span class="hl str"></span>
<span class="hl str">	eval {</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;SUPER::setupBootloader };</span>
<span class="hl str">	if (</span><span class="hl ipl">$&#64;</span><span class="hl str">) {</span>
<span class="hl str"></span>	    <span class="hl ipl">$o</span><span class="hl str">-&gt;ask_warn(&apos;&apos;, </span>
<span class="hl str">			 [ _(&quot;</span>Installation of bootloader failed<span class="hl opt">.</span> The following error occured<span class="hl opt">:</span><span class="hl str">&quot;),</span>
<span class="hl str">			   grep { !/^Warning:/ } cat_(&quot;</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>prefix<span class="hl opt">}</span><span class="hl kwd">/tmp/</span><span class="hl opt">.</span>error<span class="hl str">&quot;) ]);</span>
<span class="hl str">	    unlink &quot;</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>prefix<span class="hl opt">}</span><span class="hl kwd">/tmp/</span><span class="hl opt">.</span>error<span class="hl str">&quot;;</span>
<span class="hl str">	    die &quot;</span>already displayed<span class="hl str">&quot;;</span>
<span class="hl str">	} elsif (arch() =~ /ppc/) {</span>
<span class="hl str">		my</span> <span class="hl ipl">$of_boot</span> <span class="hl str">= cat_(&quot;</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>prefix<span class="hl opt">}</span><span class="hl kwd">/tmp/o</span>f_boot_dev<span class="hl str">&quot;) || die &quot;</span>Can<span class="hl str">&apos;t open</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;{prefix}/tmp/of_boot_dev&quot;;</span>
<span class="hl str">		chop(</span><span class="hl ipl">$of_boot</span><span class="hl str">);</span>
<span class="hl str">		unlink &quot;</span><span class="hl ipl">$o</span><span class="hl str">-&gt;{prefix}/tmp/.error&quot;;</span>
<span class="hl str"></span>		<span class="hl ipl">$o</span><span class="hl str">-&gt;ask_warn(&apos;</span><span class="hl str">&apos;, _(&quot;You may need to change your Open Firmware boot-device to</span><span class="hl esc">\n</span> <span class="hl str">enable the bootloader.  If you don&apos;</span>t see the bootloader prompt at<span class="hl esc">\n</span> reboot<span class="hl opt">,</span> hold down Command-Option-O-F at reboot <span class="hl kwc">and</span> enter<span class="hl opt">:</span><span class="hl esc">\n</span> setenv boot-device <span class="hl kwb">$of_boot,\\\\tbxi\n</span> Then type<span class="hl opt">:</span> shut-down<span class="hl esc">\n</span>At your <span class="hl kwa">next</span> boot you should see the bootloader prompt<span class="hl opt">.</span><span class="hl str">&quot;));</span>
<span class="hl str">	    }</span>
<span class="hl str">    }</span>
<span class="hl str">}</span>
<span class="hl str"></span>
<span class="hl str">sub miscellaneous {</span>
<span class="hl str">    my (</span><span class="hl ipl">$o,</span> <span class="hl str"></span><span class="hl ipl">$clicked</span><span class="hl str">) =</span> <span class="hl ipl">&#64;_</span><span class="hl str">;</span>
<span class="hl str">    my</span> <span class="hl ipl">%l</span> <span class="hl str">= (</span>
<span class="hl str">	2 =&gt; _(&quot;</span>Low<span class="hl str">&quot;),</span>
<span class="hl str">	3 =&gt; _(&quot;</span>Medium<span class="hl str">&quot;),</span>
<span class="hl str">	4 =&gt; _(&quot;</span>High<span class="hl str">&quot;),</span>
<span class="hl str">    );</span>
<span class="hl str">    if ($::expert ||</span> <span class="hl ipl">$clicked</span><span class="hl str">) {</span>
<span class="hl str"></span>	<span class="hl ipl">$ENV</span><span class="hl str">{SECURE_LEVEL} =</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;{security} = </span>
<span class="hl str"></span>	  <span class="hl ipl">$o</span><span class="hl str">-&gt;ask_from_listf(&apos;&apos;, _(&quot;</span>Choose security level<span class="hl str">&quot;), sub {</span> <span class="hl ipl">$l</span><span class="hl str">{</span><span class="hl ipl">$_</span><span class="hl str">[0]} }, [ ikeys</span> <span class="hl ipl">%l</span> <span class="hl str">],</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;{security})</span>
<span class="hl str">	    or return;</span>
<span class="hl str">    }</span>
<span class="hl str">    install_steps::miscellaneous(</span><span class="hl ipl">$o</span><span class="hl str">);</span>
<span class="hl str">}</span>
<span class="hl str"></span>
<span class="hl str">#------------------------------------------------------------------------------</span>
<span class="hl str">sub configureX {</span>
<span class="hl str">    my (</span><span class="hl ipl">$o,</span> <span class="hl str"></span><span class="hl ipl">$clicked</span><span class="hl str">) =</span> <span class="hl ipl">&#64;_</span><span class="hl str">;</span>
<span class="hl str"></span>    <span class="hl ipl">$o</span><span class="hl str">-&gt;configureXBefore;</span>
<span class="hl str"></span>
<span class="hl str">    #- strange, xfs must not be started twice...</span>
<span class="hl str">    #- trying to stop and restart it does nothing good too...</span>
<span class="hl str">    my</span> <span class="hl ipl">$xfs_started</span> <span class="hl str">if 0;</span>
<span class="hl str">    run_program::rooted(</span><span class="hl ipl">$o</span><span class="hl str">-&gt;{prefix}, &quot;</span><span class="hl kwd">/etc/</span>rc<span class="hl opt">.</span>d<span class="hl kwd">/init.d/x</span>fs<span class="hl str">&quot;, &quot;</span>start<span class="hl str">&quot;) unless $::live ||</span> <span class="hl ipl">$xfs_started</span><span class="hl str">;</span>
<span class="hl str"></span>    <span class="hl ipl">$xfs_started</span> <span class="hl str">= 1;</span>
<span class="hl str"></span>
<span class="hl str">    require Xconfigurator;</span>
<span class="hl str">    { local $::testing = 0; #- unset testing</span>
<span class="hl str">      local $::auto = !$::expert &amp;&amp; !</span><span class="hl ipl">$clicked</span><span class="hl str">;</span>
<span class="hl str"></span>
<span class="hl str">      Xconfigurator::main(</span><span class="hl ipl">$o</span><span class="hl str">-&gt;{prefix},</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;{X},</span> <span class="hl ipl">$o,</span> <span class="hl str"></span><span class="hl ipl">$o</span><span class="hl str">-&gt;{allowFB}, sub {</span>
<span class="hl str"></span>	  <span class="hl ipl">$o</span><span class="hl str">-&gt;pkg_install(</span><span class="hl ipl">&#64;_</span><span class="hl str">);</span>
<span class="hl str">      });</span>
<span class="hl str">    }</span>
<span class="hl str"></span>    <span class="hl ipl">$o</span><span class="hl str">-&gt;configureXAfter;</span>
<span class="hl str">}</span>
<span class="hl str"></span>
<span class="hl str">#------------------------------------------------------------------------------</span>
<span class="hl str">sub generateAutoInstFloppy {</span>
<span class="hl str">    my (</span><span class="hl ipl">$o,</span> <span class="hl str"></span><span class="hl ipl">$replay</span><span class="hl str">) =</span> <span class="hl ipl">&#64;_</span><span class="hl str">;</span>
<span class="hl str"></span>
<span class="hl str">    my</span> <span class="hl ipl">$floppy</span> <span class="hl str">= detect_devices::floppy();</span>
<span class="hl str">#+</span>    <span class="hl ipl">$o</span><span class="hl str">-&gt;ask_yesorno(&apos;&apos;, </span>
<span class="hl str">#+_(&quot;</span>Do you want to generate an auto install floppy <span class="hl kwa">for</span> linux replication?<span class="hl str">&quot;),</span> <span class="hl ipl">$floppy</span><span class="hl str">) or return;</span>
<span class="hl str"></span>
<span class="hl str"></span>    <span class="hl ipl">$o</span><span class="hl str">-&gt;ask_okcancel(&apos;&apos;, _(&quot;</span>Insert a blank floppy <span class="hl kwa">in</span> drive <span class="hl kwb">%s</span><span class="hl str">&quot;,</span> <span class="hl ipl">$floppy</span><span class="hl str">), 1) or return;</span>
<span class="hl str"></span>
<span class="hl str">    my</span> <span class="hl ipl">$dev</span> <span class="hl str">= devices::make(</span><span class="hl ipl">$floppy</span><span class="hl str">);</span>
<span class="hl str"></span>
<span class="hl str">    my</span> <span class="hl ipl">$image</span> <span class="hl str">= cat_(&quot;</span><span class="hl kwd">/proc/cmdli</span>ne<span class="hl str">&quot;) =~ /pcmcia/ ? &quot;</span>pcmcia<span class="hl str">&quot; :</span>
<span class="hl str">      ${{ hd =&gt; &apos;hd&apos;, cdrom =&gt; &apos;cdrom&apos;, ftp =&gt; &apos;network&apos;, nfs =&gt; &apos;network&apos;, http =&gt; &apos;network&apos; }}{</span><span class="hl ipl">$o</span><span class="hl str">-&gt;{method}};</span>
<span class="hl str"></span>
<span class="hl str">    if (arch() =~ /sparc/) {</span>
<span class="hl str"></span>	<span class="hl ipl">$image</span> <span class="hl str">.= arch() =~ /sparc64/ &amp;&amp; &quot;</span><span class="hl num">64</span><span class="hl str">&quot;; #- for sparc64 there are a specific set of image.</span>
<span class="hl str"></span>
<span class="hl str">	my</span> <span class="hl ipl">$imagefile</span> <span class="hl str">= &quot;</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>prefix<span class="hl opt">}</span><span class="hl kwd">/tmp/au</span>toinst<span class="hl opt">.</span>img<span class="hl str">&quot;;</span>
<span class="hl str">	my</span> <span class="hl ipl">$mountdir</span> <span class="hl str">= &quot;</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>prefix<span class="hl opt">}</span><span class="hl kwd">/tmp/mou</span>nt<span class="hl str">&quot;; -d</span> <span class="hl ipl">$mountdir</span> <span class="hl str">or mkdir</span> <span class="hl ipl">$mountdir,</span> <span class="hl str">0755;</span>
<span class="hl str">	my</span> <span class="hl ipl">$workdir</span> <span class="hl str">= &quot;</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>prefix<span class="hl opt">}</span><span class="hl kwd">/tmp/</span>work<span class="hl str">&quot;; -d</span> <span class="hl ipl">$workdir</span> <span class="hl str">or rmdir</span> <span class="hl ipl">$workdir</span><span class="hl str">;</span>
<span class="hl str"></span>
<span class="hl str">	my</span> <span class="hl ipl">$w</span> <span class="hl str">=</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;wait_message(&apos;&apos;, _(&quot;</span>Creating auto install floppy<span class="hl str">&quot;));</span>
<span class="hl str">        install_any::getAndSaveFile(&quot;</span>images<span class="hl opt">/</span><span class="hl kwb">$image</span><span class="hl opt">.</span>img<span class="hl str">&quot;,</span> <span class="hl ipl">$imagefile</span><span class="hl str">) or log::l(&quot;</span>failed to <span class="hl kwc">write</span> <span class="hl kwb">$dev</span><span class="hl str">&quot;), return;</span>
<span class="hl str">        devices::make(</span><span class="hl ipl">$_</span><span class="hl str">) foreach qw(/dev/loop6 /dev/ram)</span><span class="hl opt">;</span>

	<span class="hl kwa">require</span> commands<span class="hl opt">;</span>
        run_program<span class="hl opt">::</span>run<span class="hl opt">(</span><span class="hl str">&quot;losetup&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;/dev/loop6&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$imagefile</span><span class="hl opt">);</span>
        fs<span class="hl opt">::</span>mount<span class="hl opt">(</span><span class="hl str">&quot;/dev/loop6&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$mountdir,</span> <span class="hl str">&quot;romfs&quot;</span><span class="hl opt">,</span> <span class="hl str">&apos;readonly&apos;</span><span class="hl opt">);</span>
        commands<span class="hl opt">::</span>cp<span class="hl opt">(</span><span class="hl str">&quot;-f&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$mountdir, $workdir</span><span class="hl opt">);</span>
        fs<span class="hl opt">::</span>umount<span class="hl opt">(</span><span class="hl kwb">$mountdir</span><span class="hl opt">);</span>
        run_program<span class="hl opt">::</span>run<span class="hl opt">(</span><span class="hl str">&quot;losetup&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;-d&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;/dev/loop6&quot;</span><span class="hl opt">);</span>

	substInFile <span class="hl opt">{</span> <span class="hl kwd">s/timeout.*//</span><span class="hl opt">;</span> <span class="hl kwd">s/^(\s*append\s*=\s*\&quot;.*)\&quot;/$1 kickstart=floppy\&quot;/</span> <span class="hl opt">}</span> <span class="hl str">&quot;</span><span class="hl ipl">$workdir/silo</span><span class="hl str">.conf&quot;</span><span class="hl opt">;</span> <span class="hl slc">#&quot; for po</span>
<span class="hl slc">#-TODO	output &quot;$workdir/ks.cfg&quot;, install_any::generate_ks_cfg($o);</span>
	output <span class="hl str">&quot;</span><span class="hl ipl">$workdir/boot</span><span class="hl str">.msg&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;</span><span class="hl esc">\n</span><span class="hl str">7m&quot;</span><span class="hl opt">,</span>
<span class="hl str">&quot;!! If you press enter, an auto-install is going to start.</span>
<span class="hl str">    ALL data on this computer is going to be lost,</span>
<span class="hl str">    including any Windows partitions !!</span>
<span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;7m</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">;</span>

	<span class="hl kwc">local</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>partitioning<span class="hl opt">}{</span>clearall<span class="hl opt">} =</span> <span class="hl num">1</span><span class="hl opt">;</span>
	output<span class="hl opt">(</span><span class="hl str">&quot;</span><span class="hl ipl">$workdir/auto_inst</span><span class="hl str">.cfg&quot;</span><span class="hl opt">,</span> install_any<span class="hl opt">::</span>g_auto_install<span class="hl opt">());</span>

        run_program<span class="hl opt">::</span>run<span class="hl opt">(</span><span class="hl str">&quot;genromfs&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;-d&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$workdir,</span> <span class="hl str">&quot;-f&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;/dev/ram&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;-A&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;2048,/..&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;-a&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;512&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;-V&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;DrakX autoinst&quot;</span><span class="hl opt">);</span>
        fs<span class="hl opt">::</span>mount<span class="hl opt">(</span><span class="hl str">&quot;/dev/ram&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$mountdir,</span> <span class="hl str">&apos;romfs&apos;</span><span class="hl opt">,</span> <span class="hl num">0</span><span class="hl opt">);</span>
        run_program<span class="hl opt">::</span>run<span class="hl opt">(</span><span class="hl str">&quot;silo&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;-r&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$mountdir,</span> <span class="hl str">&quot;-F&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;-i&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;/fd.b&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;-b&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;/second.b&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;-C&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;/silo.conf&quot;</span><span class="hl opt">);</span>
        fs<span class="hl opt">::</span>umount<span class="hl opt">(</span><span class="hl kwb">$mountdir</span><span class="hl opt">);</span>
        commands<span class="hl opt">::</span>dd<span class="hl opt">(</span><span class="hl str">&quot;if=/dev/ram&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;of=</span><span class="hl ipl">$dev</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;bs=1440&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;count=1024&quot;</span><span class="hl opt">);</span>

        commands<span class="hl opt">::</span>rm<span class="hl opt">(</span><span class="hl str">&quot;-rf&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$workdir, $mountdir, $imagefile</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">$param</span> <span class="hl opt">=</span> <span class="hl str">&apos;kickstart=floppy &apos;</span> <span class="hl opt">.</span> install_any<span class="hl opt">::</span>generate_automatic_stage1_params<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">);</span>
	<span class="hl opt">{</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$w</span> <span class="hl opt">=</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</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 str">&quot;Creating auto install floppy&quot;</span><span class="hl opt">));</span>
	    install_any<span class="hl opt">::</span>getAndSaveFile<span class="hl opt">(</span><span class="hl str">&quot;images/</span><span class="hl ipl">$image</span><span class="hl str">.img&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$dev</span><span class="hl opt">)</span> <span class="hl kwc">or log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;failed to write</span> <span class="hl ipl">$dev</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>
        fs<span class="hl opt">::</span>mount<span class="hl opt">(</span><span class="hl kwb">$dev,</span> <span class="hl str">&quot;/floppy&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;vfat&quot;</span><span class="hl opt">,</span> <span class="hl num">0</span><span class="hl opt">);</span>
	substInFile <span class="hl opt">{</span> 
	    <span class="hl kwd">s/timeout.*/$replay ? &apos;timeout 1&apos; : &apos;&apos;/e</span><span class="hl opt">;</span>
	    <span class="hl kwd">s/^(\s*append)/$1 $param/</span> 
	<span class="hl opt">}</span> <span class="hl str">&quot;/floppy/syslinux.cfg&quot;</span><span class="hl opt">;</span>

	<span class="hl kwc">unlink</span> <span class="hl str">&quot;/floppy/help.msg&quot;</span><span class="hl opt">;</span>
	output <span class="hl str">&quot;/floppy/boot.msg&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;</span><span class="hl esc">\n</span><span class="hl str">0c&quot;</span><span class="hl opt">,</span>
<span class="hl str">&quot;!! If you press enter, an auto-install is going to start.</span>
<span class="hl str">   All data on this computer is going to be lost,</span>
<span class="hl str">   including any Windows partitions !!</span>
<span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;07</span><span class="hl esc">\n</span><span class="hl str">&quot;</span> <span class="hl kwa">if</span> <span class="hl opt">!</span><span class="hl kwb">$replay</span><span class="hl opt">;</span>

	<span class="hl kwc">local</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>partitioning<span class="hl opt">}{</span>clearall<span class="hl opt">} = !</span><span class="hl kwb">$replay</span><span class="hl opt">;</span>
	output<span class="hl opt">(</span><span class="hl str">&quot;/floppy/auto_inst.cfg&quot;</span><span class="hl opt">,</span> install_any<span class="hl opt">::</span>g_auto_install<span class="hl opt">(</span><span class="hl kwb">$replay</span><span class="hl opt">));</span>

	fs<span class="hl opt">::</span>umount<span class="hl opt">(</span><span class="hl str">&quot;/floppy&quot;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl slc">#------------------------------------------------------------------------------</span>
<span class="hl kwa">sub</span> exitInstall <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o, $alldone</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwa">return</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>step<span class="hl opt">} =</span> <span class="hl str">&apos;&apos;</span> <span class="hl kwa">unless</span> <span class="hl kwb">$alldone</span> <span class="hl opt">||</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_yesorno</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 str">&quot;Some steps are not completed.</span>
<span class="hl str"></span>
<span class="hl str">Do you really want to quit now?&quot;</span><span class="hl opt">),</span> <span class="hl num">0</span><span class="hl opt">);</span>

    install_steps<span class="hl opt">::</span>exitInstall<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">);</span>

    <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwa">exit unless</span> <span class="hl kwb">$alldone</span><span class="hl opt">;</span>

    <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_entries_refH_powered_no_check</span><span class="hl opt">(</span>
	<span class="hl opt">{</span>
	 messages <span class="hl opt">=&gt;</span>
_<span class="hl opt">(</span><span class="hl str">&quot;Congratulations, installation is complete.</span>
<span class="hl str">Remove the boot media and press return to reboot.</span>
<span class="hl str"></span>
<span class="hl str">For information on fixes which are available for this release of Linux-Mandrake,</span>
<span class="hl str">consult the Errata available from http://www.linux-mandrake.com/.</span>
<span class="hl str"></span>
<span class="hl str">Information on configuring your system is available in the post</span>
<span class="hl str">install chapter of the Official Linux-Mandrake User&apos;s Guide.&quot;</span><span class="hl opt">),</span>
	 cancel <span class="hl opt">=&gt;</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">,</span>
	<span class="hl opt">},</span>      
	<span class="hl opt">[</span>
	 if_<span class="hl opt">($::</span>expert<span class="hl opt">,</span>
	     <span class="hl opt">{</span> val <span class="hl opt">=&gt;</span> \ <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$t1</span> <span class="hl opt">=</span> _<span class="hl opt">(</span><span class="hl str">&quot;Generate auto install floppy&quot;</span><span class="hl opt">)),</span> clicked <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
		   <span class="hl kwc">my</span> <span class="hl kwb">$t</span> <span class="hl opt">=</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_list_</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 str">&quot;The auto install can be fully automated if wanted,</span>
<span class="hl str">in that case it will take over the hard drive!!</span>
<span class="hl str">(this is meant for installing on another box).</span>
<span class="hl str"></span>
<span class="hl str">You may prefer to replay the installation.</span>
<span class="hl str">&quot;</span><span class="hl opt">), [</span> _<span class="hl opt">(</span><span class="hl str">&quot;Replay&quot;</span><span class="hl opt">),</span> _<span class="hl opt">(</span><span class="hl str">&quot;Automated&quot;</span><span class="hl opt">) ]);</span>
		   <span class="hl kwb">$t</span> <span class="hl kwc">and</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">generateAutoInstFloppy</span><span class="hl opt">(</span><span class="hl kwb">$t</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;Replay&apos;</span><span class="hl opt">);</span>
	       <span class="hl opt">},</span> advanced <span class="hl opt">=&gt;</span> <span class="hl num">1</span> <span class="hl opt">},</span>
	     <span class="hl opt">{</span> val <span class="hl opt">=&gt;</span> \ <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$t2</span> <span class="hl opt">=</span> _<span class="hl opt">(</span><span class="hl str">&quot;Save packages selection&quot;</span><span class="hl opt">)),</span> clicked <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span> install_any<span class="hl opt">::</span>g_default_packages<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">) },</span> advanced <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 opt">)</span> <span class="hl kwa">if</span> <span class="hl kwb">$alldone</span> <span class="hl opt">&amp;&amp; !$::</span>g_auto_install<span class="hl opt">;</span>
<span class="hl opt">}</span>


<span class="hl slc">#-######################################################################################</span>
<span class="hl slc">#- Misc Steps Functions</span>
<span class="hl slc">#-######################################################################################</span>

<span class="hl slc">#-######################################################################################</span>
<span class="hl slc">#- Wonderful perl :(</span>
<span class="hl slc">#-######################################################################################</span>
<span class="hl num">1</span><span class="hl opt">;</span>
</code></pre></td></tr></table>
</div> <!-- class=content -->
<div class='footer'>generated by <a href='https://git.zx2c4.com/cgit/about/'>cgit v1.2.1</a> (<a href='https://git-scm.com/'>git 2.21.0</a>) at 2025-02-02 01:50:02 +0000</div>
</div> <!-- id=cgit -->
</body>
</html>