# DrakX e Brezhoneg.
# Copyright (C) 1999-2005 Mandriva
# Thierry Vignaud <tvignaud@mandriva.com>, 1999-2007
# Jañ-Mai Drapier <jan-mai.drapier@mail.dotcom.fr>, 1999-2000
#
msgid ""
msgstr ""
"Project-Id-Version: DrakX 10.2\n"
"Report-Msgid-Bugs-To: \n"
"POT-Creation-Date: 2009-10-29 18:09+0100\n"
"PO-Revision-Date: 2009-10-29 18:17+0100\n"
"Last-Translator: Thierry Vignaud <tvignaud@mandriva.com>\n"
"Language-Team: Brezhoneg <ofisk@wanadoo.fr>\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
"Plural-Forms: nplurals=1;plural=0\n"

#: display_help:49 display_help:54 drakbug:186 drakperm:136
#, c-format
msgid "Help"
msgstr "Skoazell"

#: display_help:62 drakbug:191 drakfont:506
#, c-format
msgid "Close"
msgstr "Kuitaat"

#: drakauth:24 drakauth:26 draksec:164
#, c-format
msgid "Authentication"
msgstr "Dilesadur"

#: drakauth:37 drakclock:111 drakclock:125 drakdvb:74 drakfont:213
#: drakfont:226 drakfont:264 draksplash:202 finish-install:119 logdrake:170
#: logdrake:445 logdrake:450 scannerdrake:59 scannerdrake:101 scannerdrake:142
#: scannerdrake:200 scannerdrake:259 scannerdrake:729 scannerdrake:740
#: scannerdrake:879 scannerdrake:890 scannerdrake:960
#, c-format
msgid "Error"
msgstr "Fazi"

#: drakboot:53
#, c-format
msgid "No bootloader found, creating a new configuration"
msgstr "N'eus karger loc'hañ ebet, o krouiñ ur gefluniadur nevez"

#: drakboot:88 harddrake2:198 harddrake2:199 logdrake:71
#, c-format
msgid "/_File"
msgstr "/_Restr"

#: drakboot:89 logdrake:77
#, c-format
msgid "/File/_Quit"
msgstr "/Restr/_Kuitaat"

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

#: drakboot:129
#, c-format
msgid "Text only"
msgstr "Skrid hepken"

#: drakboot:130
#, c-format
msgid "Verbose"
msgstr "Flapañ"

#: drakboot:131
#, c-format
msgid "Silent"
msgstr "Didrouz"

#: drakboot:137 drakbug:260 drakdvb:57 drakfont:682 drakperm:376 drakperm:386
#: drakups:27 harddrake2:527 localedrake:43 notify-x11-free-driver-switch:15
#: scannerdrake:51 scannerdrake:54 scannerdrake:297 scannerdrake:302
#: scannerdrake:954
#, c-format
msgid "Warning"
msgstr "Ho evezh"

#: drakboot:138
#, 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:139
#, c-format
msgid "Do you want to configure it now?"
msgstr "Mennout a rit kefluniañ anezhañ bremañ ?"

#: drakboot:148
#, c-format
msgid "Install themes"
msgstr "Staliañ ar gizioù"

#: drakboot:150
#, c-format
msgid "Graphical boot theme selection"
msgstr "Dibabit ar c'hiz loc'hañ ar reizhiad"

#: drakboot:153
#, c-format
msgid "Graphical boot mode:"
msgstr "Mod loc'hañ gant grafikoù :"

#: drakboot:155
#, c-format
msgid "Theme"
msgstr "Giz"

#: drakboot:158
#, c-format
msgid ""
"Display theme\n"
"under console"
msgstr ""
"Diskouez ar c'hiz\n"
"ouzh al letrin"

#: drakboot:163 draksplash:26
#, c-format
msgid "Create new theme"
msgstr "Krouiñ gizioù nevez"

#: drakboot:195
#, c-format
msgid "Default user"
msgstr "Arveriad dre ziouer"

#: drakboot:196
#, c-format
msgid "Default desktop"
msgstr "Burev dre ziouer"

#: drakboot:199
#, c-format
msgid "No, I do not want autologin"
msgstr "Ne fell ket din emereañ gant an dra-se"

#: drakboot:200
#, c-format
msgid "Yes, I want autologin with this (user, desktop)"
msgstr "Ya, plijout a ra din gant emereañ (averiad, burev)"

#: drakboot:207
#, c-format
msgid "System mode"
msgstr "Mod ar reizhiad"

#: drakboot:210
#, c-format
msgid "Launch the graphical environment when your system starts"
msgstr "Lañsañ an endro grafikel pa vez loc'het ho reizhiad"

#: drakboot:262
#, c-format
msgid "Boot Style Configuration"
msgstr "Kefluniadur giz al loc'hañ"

#: drakboot:264 drakboot:268
#, c-format
msgid "Video mode"
msgstr "Mod video"

#: drakboot:265
#, 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:65 drakbug:152
#, c-format
msgid "The \"%s\" program has crashed with the following error:"
msgstr ""

#: drakbug:76
#, c-format
msgid "Mandriva Linux Bug Report Tool"
msgstr ""

#: drakbug:81
#, c-format
msgid "Mandriva Linux Control Center"
msgstr "Kreizenn ren Mandriva Linux"

#: drakbug:82
#, c-format
msgid "First Time Wizard"
msgstr "Pratikoù/Arveriaded"

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

#: drakbug:84 drakbug:216
#, c-format
msgid "Standalone Tools"
msgstr ""

#: drakbug:86 drakbug:87
#, c-format
msgid "Mandriva Online"
msgstr "Mandriva Online"

#: drakbug:88
#, c-format
msgid "Remote Control"
msgstr "Ren a-bell"

#: drakbug:89
#, c-format
msgid "Software Manager"
msgstr "Merour Poelladoù"

#: drakbug:90
#, c-format
msgid "Windows Migration tool"
msgstr "Ostil broierezh deus Windows"

#: drakbug:91
#, c-format
msgid "Configuration Wizards"
msgstr "Skoazellerien kefluniadur"

#: drakbug:113
#, c-format
msgid "Select Mandriva Tool:"
msgstr "Dibabit un ostilh Mandriva :"

#: drakbug:114
#, c-format
msgid ""
"or Application Name\n"
"(or Full Path):"
msgstr ""
"pe anv ar meziant\n"
"(pe un hent leun) :"

#: drakbug:117
#, c-format
msgid "Find Package"
msgstr "Klask Pakad"

#: drakbug:118
#, c-format
msgid "Browse"
msgstr "Furchal"

#: drakbug:120
#, c-format
msgid "Package: "
msgstr "Pakad : "

#: drakbug:121
#, c-format
msgid "Kernel:"
msgstr "Kalon :"

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

#: drakbug:155
#, c-format
msgid "Its GDB trace is:"
msgstr "Setu Gdb hent anezhañ  :"

#: drakbug:158
#, 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"
msgstr ""

#: drakbug:160
#, c-format
msgid ""
"It would be very useful to attach to your report the output of the following "
"command: %s."
msgid_plural ""
"Things useful to attach to your report are the output of the following "
"commands: %s."
msgstr[0] ""

#: drakbug:163
#, c-format
msgid "'%s'"
msgstr "« %s »"

#: drakbug:166
#, fuzzy, c-format
msgid "You should also attach the following files: %s as well as %s."
msgstr "Gwell e vefe koulz deoc'h staliañ ar pakadoù-mañ : %s"

#: drakbug:173
#, c-format
msgid "Please describe what you were doing when it crashed:"
msgstr ""
"Skrivit ar pezh e oac'h oc'h ober pa eo bet c'hoarvezhet ar gwallzarvoud :"

#: drakbug:190
#, c-format
msgid "Report"
msgstr "Dezrevell"

#: drakbug:226
#, c-format
msgid "Not installed"
msgstr "N'eo ket staliet"

#: drakbug:236
#, c-format
msgid "Package not installed"
msgstr "N'eo ket staliet ar pakad"

#: drakbug:261
#, c-format
msgid ""
"You must type in what you were doing when this bug happened in order to "
"enable us to reproduce this bug and to increase the odds of fixing it"
msgstr ""

#: drakbug:262
#, c-format
msgid "Thanks."
msgstr "Mersi bras deoc'h."

#: drakclock:30 draksec:170
#, c-format
msgid "Date, Clock & Time Zone Settings"
msgstr "Kefluniadur an deizid, an eurier hag an amzer"

#: drakclock:39
#, c-format
msgid "not defined"
msgstr "n'eo ket lakaet"

#: drakclock:41
#, c-format
msgid "Change Time Zone"
msgstr "Kemmañ an takad-eur"

#: drakclock:44
#, c-format
msgid "Timezone - DrakClock"
msgstr "Takad-eur - DrakClock"

#: drakclock:44
#, c-format
msgid "Which is your timezone?"
msgstr "Petra 'zo ar takad-eur ?"

#: drakclock:45
#, c-format
msgid "GMT - DrakClock"
msgstr "GMT - DrakClock"

#: drakclock:45
#, c-format
msgid "Is your hardware clock set to GMT?"
msgstr "Ha war GMT eo lakaet ho eurier periantel ?"

#: drakclock:70
#, c-format
msgid "Network Time Protocol"
msgstr "Komenad Eur Rouedad (NTP)"

#: drakclock:72
#, c-format
msgid ""
"Your computer can synchronize its clock\n"
" with a remote time server using NTP"
msgstr ""
"Gellout a ra hoc'h urziataer gwiriekaat\n"
" e eurier gant ur servijer a eur a-bell dre NTP"

#: drakclock:73
#, c-format
msgid "Enable Network Time Protocol"
msgstr "Bevaat ar c'homenad Eur Rouedad (NTP)"

#: drakclock:81
#, c-format
msgid "Server:"
msgstr "Servijer :"

#: drakclock:95
#, c-format
msgid "Timezone"
msgstr "Takad-eur"

#: drakclock:111
#, c-format
msgid "Please enter a valid NTP server address."
msgstr "Roit ur chomlec'h mat evit ar servijer NTP mar plij."

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

#: drakclock:127 drakdvb:149 draksplash:125 logdrake:175 scannerdrake:491
#, c-format
msgid "Quit"
msgstr "Kuitaat"

#: drakclock:128
#, c-format
msgid "Retry"
msgstr "Adklask"

#: drakclock:151 drakclock:161
#, c-format
msgid "Reset"
msgstr "Deraouekaat"

#: drakdvb:30
#, c-format
msgid "DVB"
msgstr "DVB"

#: drakdvb:39 harddrake2:101
#, c-format
msgid "Channel"
msgstr "Kanol"

#: drakdvb:57
#, c-format
msgid "%s already exists and its contents will be lost"
msgstr ""

#: drakdvb:74
#, c-format
msgid "Could not get the list of available channels"
msgstr ""

#: drakdvb:80 draksec:73 drakups:99 harddrake2:381 scannerdrake:66
#: scannerdrake:70 scannerdrake:78 scannerdrake:319 scannerdrake:368
#: scannerdrake:504 scannerdrake:508 scannerdrake:530 service_harddrake:264
#, c-format
msgid "Please wait"
msgstr "Gortozit mar plij"

#: drakdvb:84
#, c-format
msgid "Detecting DVB channels, this will take a few minutes"
msgstr ""

#: drakdvb:85 drakfont:572 drakfont:652 drakfont:736 draksplash:213
#: drakups:217 logdrake:175
#, c-format
msgid "Cancel"
msgstr "Nullañ"

#: drakdvb:148
#, fuzzy, c-format
msgid "Detect Channels"
msgstr "Kanol"

#: drakdvb:150
#, fuzzy, c-format
msgid "View Channel"
msgstr "Kanol"

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

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

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

#: drakedm:54
#, c-format
msgid "Choosing a display manager"
msgstr "O tibab ur merour diskwel"

#: drakedm:55
#, 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 ""

#: drakedm:74
#, c-format
msgid "The change is done, do you want to restart the dm service?"
msgstr "Great eo ar c'hemm, C'hoant ho peus e adloc'hañ ar servij dm ?"

#: drakedm:75
#, 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 "Klask an nodrezhoù staliet"

#: drakfont:189
#, c-format
msgid "Unselect fonts installed"
msgstr "Andiuz an nodrezhoù staliet"

#: drakfont:213
#, c-format
msgid "No fonts found"
msgstr "Nodrezhoù ebet kavet"

#: drakfont:217
#, c-format
msgid "parse all fonts"
msgstr "o lenn pep nodrezh"

#: drakfont:222 drakfont:263 drakfont:338 drakfont:379 drakfont:383
#: drakfont:409 drakfont:427 drakfont:435
#, c-format
msgid "done"
msgstr "graet"

#: drakfont:226
#, c-format
msgid "Could not find any font in your mounted partitions"
msgstr "Ne m'eus ket kavout un nodrezh e-barzh ho barzhadurioù marc'het"

#: drakfont:261
#, c-format
msgid "Reselect correct fonts"
msgstr "Adibabit nodrezhoù mat"

#: drakfont:264
#, c-format
msgid "Could not find any font.\n"
msgstr "Ne m'eus ket gallet kavout un nodrezh.\n"

#: drakfont:274
#, c-format
msgid "Search for fonts in installed list"
msgstr "Klask an nodrezhoù e roll ar re staliet"

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

#: drakfont:336
#, c-format
msgid "Fonts copy"
msgstr "Adskrivañ nodrezhoù"

#: drakfont:339
#, c-format
msgid "True Type fonts installation"
msgstr "Staliadur an nodrezhoù True Type"

#: drakfont:347
#, c-format
msgid "please wait during ttmkfdir..."
msgstr "gortozit mar plij en ur ttmkfdir ..."

#: drakfont:348
#, c-format
msgid "True Type install done"
msgstr "Graet eo staliadur an nodrezhoù True Type"

#: drakfont:354 drakfont:369
#, c-format
msgid "type1inst building"
msgstr "o sevel gant type1inst"

#: drakfont:363
#, c-format
msgid "Ghostscript referencing"
msgstr ""

#: drakfont:380
#, c-format
msgid "Suppress Temporary Files"
msgstr "Lemel ar restroù padennek"

#: drakfont:425 drakfont:431
#, c-format
msgid "Suppress Fonts Files"
msgstr "Lemel restroù ar fontoù"

#: drakfont:439
#, 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 ""

#: drakfont:478
#, c-format
msgid "Font Installation"
msgstr "Staliadur ar fontoù"

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

#: drakfont:490 drakfont:642
#, c-format
msgid "Font List"
msgstr "Listenn nodrezhoù"

#: drakfont:493
#, c-format
msgid "Get Windows Fonts"
msgstr "Tapout nodrezhoù Windows"

#: drakfont:499
#, c-format
msgid "About"
msgstr "A-brepoz"

#: drakfont:500 drakfont:541
#, c-format
msgid "Options"
msgstr "Dibarzhoù"

#: drakfont:501 drakfont:721
#, c-format
msgid "Uninstall"
msgstr "Distaliañ"

#: drakfont:502
#, c-format
msgid "Import"
msgstr "Enporzh"

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

#: drakfont:522 harddrake2:236
#, c-format
msgid "Copyright (C) %s by Mandriva"
msgstr "Copyright (C) %s gant Mandriva"

#: drakfont:524
#, c-format
msgid "Font installer."
msgstr "Stalier fontoù."

#: drakfont:526 harddrake2:240
#, c-format
msgid "Mandriva Linux"
msgstr "Mandriva Linux"

#. -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:533 harddrake2:245
#, c-format
msgid "_: Translator(s) name(s) & email(s)\n"
msgstr ""
"Jañ-Mai Drapier <jan-mai.drapier@mail.dotcom.fr>\n"
"Thierry Vignaud <tvignaud@mandriva.com>\n"

#: drakfont:543
#, c-format
msgid "Choose the applications that will support the fonts:"
msgstr "Dibabit ar meziantoù a implij an nodrezhioù :"

#: drakfont:554
#, c-format
msgid "Ghostscript"
msgstr "Ghostscript"

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

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

#: drakfont:557
#, c-format
msgid "Generic Printers"
msgstr "Moullerezioù boutin"

#: drakfont:562 drakfont:572 draksplash:213 drakups:210
#, c-format
msgid "Ok"
msgstr "Ya"

#: drakfont:571
#, c-format
msgid "Select the font file or directory and click on 'Add'"
msgstr "Dibabit restr pe renkell an nodrezh ha klikit ouzh « Ouzhpennañ »"

#: drakfont:572
#, c-format
msgid "File Selection"
msgstr "Choazh ar restr"

#: drakfont:576
#, c-format
msgid "Fonts"
msgstr "Nodrezhoù"

#: drakfont:640 draksec:166
#, c-format
msgid "Import fonts"
msgstr "Enporzh an nodrezhoù"

#: drakfont:646 drakups:299 drakups:361 drakups:381
#, c-format
msgid "Add"
msgstr "Ouzhpennañ"

#: drakfont:647 drakfont:735 drakups:301 drakups:363 drakups:383
#, c-format
msgid "Remove"
msgstr "Lemel"

#: drakfont:653
#, c-format
msgid "Install"
msgstr "Staliañ"

#: drakfont:684
#, c-format
msgid "Are you sure you want to uninstall the following fonts?"
msgstr "Ha sur oc'h bezañ mennet da zistaliañ an nodezhoù a-heul ?"

#: drakfont:688 draksec:60 harddrake2:326
#, c-format
msgid "Yes"
msgstr "Ya"

#: drakfont:690 draksec:59 harddrake2:327
#, c-format
msgid "No"
msgstr "N'eo ket"

#: drakfont:729
#, c-format
msgid "Unselect All"
msgstr "Andiuz an holl re"

#: drakfont:732
#, c-format
msgid "Select All"
msgstr "Diuz an holl re"

#: drakfont:749
#, c-format
msgid "Importing fonts"
msgstr "Oc'h enporzh an nodrezhoù"

#: drakfont:753 drakfont:773
#, c-format
msgid "Initial tests"
msgstr ""

#: drakfont:754
#, c-format
msgid "Copy fonts on your system"
msgstr "Eiliañ an nodrezhoù war ho reizhiad"

#: drakfont:755
#, c-format
msgid "Install & convert Fonts"
msgstr "Staliañ & amdreiñ an nodrezhoù"

#: drakfont:756
#, c-format
msgid "Post Install"
msgstr "Pa vez echu ar staliadur"

#: drakfont:768
#, c-format
msgid "Removing fonts"
msgstr "O lemel an nodrezhoù"

#: drakfont:774
#, c-format
msgid "Remove fonts on your system"
msgstr "Lemel an nodrezhoù eus ho reizhiad"

#: drakfont:775
#, c-format
msgid "Post Uninstall"
msgstr "Goude an distaliadur"

#: 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 0.1\n"
"Copyright (C) %s Mandriva.\n"
"Ur meziant frank eo an hini-mañ ha moien zo da zal'ch anezhañ hervez GNU "
"GPL.\n"
"\n"
"Arveriadur :\n"

#: drakhelp:22
#, c-format
msgid " --help                - display this help     \n"
msgstr " --help                - diskouez an tamm-sikour-mañ\n"

#: 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
#, c-format
msgid "Mandriva Linux Help Center"
msgstr "Kreizenn sikourMandriva Linux"

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

#: drakperm:23
#, c-format
msgid "System settings"
msgstr "Dibarzhoù ar reizhiad"

#: drakperm:24
#, c-format
msgid "Custom settings"
msgstr "Kefluniadur diouzhoc'h"

#: drakperm:25
#, c-format
msgid "Custom & system settings"
msgstr "Kefluniadur diouzhoc'h ha reizhiad"

#: drakperm:33
#, c-format
msgid "Security Permissions"
msgstr "Aotreoù surantez"

#: drakperm:45
#, c-format
msgid "Editable"
msgstr "Aozabl"

#: drakperm:50 drakperm:320
#, c-format
msgid "Path"
msgstr "Hent"

#: drakperm:50 drakperm:249
#, c-format
msgid "User"
msgstr "Arveriad"

#: drakperm:50 drakperm:249
#, c-format
msgid "Group"
msgstr "Strollad"

#: drakperm:50 drakperm:109 drakperm:332 draksec:181
#, c-format
msgid "Permissions"
msgstr "Aotreoù "

#: drakperm:60
#, c-format
msgid "Add a new rule"
msgstr "Ouzhpennañ ur reollin nevez"

#: drakperm:67 drakperm:102 drakperm:128
#, c-format
msgid "Edit current rule"
msgstr "Aozañ ar reollen red"

#: drakperm:110
#, 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:112
#, c-format
msgid ""
"The current security level is %s.\n"
"Select permissions to see/edit"
msgstr ""
"%s eo al live surantez o ren.\n"
"Dibabit an aotreoù da sellet ouzh pe da aozañ"

#: drakperm:124
#, c-format
msgid "Up"
msgstr "Sevel"

#: drakperm:124
#, c-format
msgid "Move selected rule up one level"
msgstr "Pignit ar reolenn dibabet"

#: drakperm:125
#, c-format
msgid "Down"
msgstr "Diskenn"

#: drakperm:125
#, c-format
msgid "Move selected rule down one level"
msgstr "Diskennit ar reolenn dibabet"

#: drakperm:126
#, c-format
msgid "Add a rule"
msgstr "Ouzhpennañ ur reollin"

#: drakperm:126
#, c-format
msgid "Add a new rule at the end"
msgstr "Ouzhpennañ ur reollin nevez d'ar fin"

#: drakperm:127
#, c-format
msgid "Delete"
msgstr "Dilemel"

#: drakperm:127
#, c-format
msgid "Delete selected rule"
msgstr "Lemel ar reollin dibabet"

#: drakperm:128 drakups:300 drakups:362 drakups:382
#, c-format
msgid "Edit"
msgstr "Kemmañ"

#: drakperm:241
#, c-format
msgid "browse"
msgstr "ergerzhet"

#: drakperm:246
#, c-format
msgid "user"
msgstr "arveriad"

#: drakperm:246
#, c-format
msgid "group"
msgstr "strollad"

#: drakperm:246
#, c-format
msgid "other"
msgstr "all"

#: drakperm:249
#, c-format
msgid "Other"
msgstr "All"

#: drakperm:251
#, c-format
msgid "Read"
msgstr "Lenn"

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

#: drakperm:258
#, c-format
msgid "Write"
msgstr "Skriv"

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

#: drakperm:265
#, c-format
msgid "Execute"
msgstr "Seveniñ"

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

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

#: drakperm:271
#, c-format
msgid ""
"Used for directory:\n"
" only owner of directory or file in this directory can delete it"
msgstr ""

#: drakperm:272
#, c-format
msgid "Set-UID"
msgstr "Set-UID"

#: drakperm:272
#, c-format
msgid "Use owner id for execution"
msgstr ""

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

#: drakperm:273
#, c-format
msgid "Use group id for execution"
msgstr ""

#: drakperm:290
#, c-format
msgid "User:"
msgstr "Arveriad :"

#: drakperm:291
#, c-format
msgid "Group:"
msgstr "Strollad :"

#: drakperm:295
#, c-format
msgid "Current user"
msgstr "Arveriad red"

#: drakperm:296
#, c-format
msgid "When checked, owner and group will not be changed"
msgstr ""

#: drakperm:306
#, c-format
msgid "Path selection"
msgstr "Diuzadenn an hent"

#: drakperm:326
#, c-format
msgid "Property"
msgstr "Perzhioù"

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

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

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

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

#: draksec:54
#, c-format
msgid "ALL"
msgstr "HOLL"

#: draksec:55
#, c-format
msgid "LOCAL"
msgstr "LEC'HEL"

#: draksec:56
#, c-format
msgid "NONE"
msgstr "EBET"

#: draksec:57
#, c-format
msgid "Default"
msgstr "Dre ziouer"

#: draksec:58
#, c-format
msgid "Ignore"
msgstr "Tremen e-biou"

#: draksec:91
#, c-format
msgid "Security Level and Checks"
msgstr "Live ha gwiriekaat surentez"

#: draksec:114
#, c-format
msgid "Configure authentication required to access Mandriva tools"
msgstr ""

#: draksec:117
#, c-format
msgid "No password"
msgstr "Tremenger ebet"

#: draksec:118
#, c-format
msgid "Root password"
msgstr "Tremenger root"

#: draksec:119
#, c-format
msgid "User password"
msgstr "Tremenger an arveriad"

#: draksec:149 draksec:204
#, c-format
msgid "Software Management"
msgstr "Merour ar meziantoù"

#: draksec:150
#, c-format
msgid "Mandriva Update"
msgstr "Mandriva Update"

#: draksec:151
#, c-format
msgid "Software Media Manager"
msgstr "Merour ar pakadoù"

#: draksec:152
#, c-format
msgid "Configure 3D Desktop effects"
msgstr "Kefluniañ efedoù ar vurev 3D"

#: draksec:153
#, c-format
msgid "Graphical Server Configuration"
msgstr "Kefluniadur ar servijer graphek"

#: draksec:154
#, c-format
msgid "Mouse Configuration"
msgstr "Kefluniadur logod"

#: draksec:155
#, c-format
msgid "Keyboard Configuration"
msgstr "Kefluniadur ar stokellaoueg"

#: draksec:156
#, c-format
msgid "UPS Configuration"
msgstr "Kefluniadur UPS"

#: draksec:157
#, c-format
msgid "Network Configuration"
msgstr "Kefluniadur an rouedad"

#: draksec:158
#, c-format
msgid "Hosts definitions"
msgstr "Liketennoù ostiz"

#: draksec:159
#, c-format
msgid "Network Center"
msgstr "Kreizenn ren rouedad"

#: draksec:160
#, c-format
msgid "Wireless Network Roaming"
msgstr ""

#: draksec:161
#, c-format
msgid "VPN"
msgstr "VPN"

#: draksec:162
#, c-format
msgid "Proxy Configuration"
msgstr "Kefluniadur ar proksi"

#: draksec:163
#, c-format
msgid "Connection Sharing"
msgstr "Rannañ ar gevreadenn"

#: draksec:165
#, c-format
msgid "Backups"
msgstr "Dielloù"

#: draksec:167 logdrake:52
#, c-format
msgid "Logs"
msgstr "Kazetennoù"

#: draksec:168
#, c-format
msgid "Services"
msgstr "Servijerioù"

#: draksec:169
#, c-format
msgid "Users"
msgstr "Arveriaded"

#: draksec:171
#, c-format
msgid "Boot Configuration"
msgstr "Kefluniadur loc'hañ"

#: draksec:205
#, c-format
msgid "Hardware"
msgstr "Periantel"

#: draksec:206
#, c-format
msgid "Network"
msgstr "Rouedad"

#: draksec:207
#, c-format
msgid "System"
msgstr "Reizhiad"

#: draksec:208
#, c-format
msgid "Boot"
msgstr "Loc'hañ"

#: draksound:48
#, c-format
msgid "No Sound Card detected!"
msgstr "Kartenn gwelet ebet !"

#. -PO: keep the double empty lines between sections, this is formatted a la LaTeX
#: draksound:51
#, 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 ""

#: draksound:58
#, 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:33
#, c-format
msgid "X coordinate of text box"
msgstr "Lec'h x ar bouest skrid"

#: draksplash:34
#, c-format
msgid "Y coordinate of text box"
msgstr "Lec'h y ar bouest skrid"

#: draksplash:35
#, c-format
msgid "Text box width"
msgstr "Ledander ar bouest skrid"

#: draksplash:36
#, c-format
msgid "Text box height"
msgstr "Uhelder ar bouest skrid"

#: draksplash:37
#, c-format
msgid ""
"The progress bar X coordinate\n"
"of its upper left corner"
msgstr ""

#: draksplash:38
#, c-format
msgid ""
"The progress bar Y coordinate\n"
"of its upper left corner"
msgstr ""

#: draksplash:39
#, c-format
msgid "The width of the progress bar"
msgstr "Ledander ar varrenn araogenn"

#: draksplash:40
#, c-format
msgid "The height of the progress bar"
msgstr "Uhelder ar varrenn araogenn"

#: draksplash:41
#, c-format
msgid "X coordinate of the text"
msgstr "Lec'h x ar skrid"

#: draksplash:42
#, c-format
msgid "Y coordinate of the text"
msgstr "Lec'h y ar skrid"

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

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

#: draksplash:45
#, c-format
msgid "Text size"
msgstr "Ment ar skrid"

#: draksplash:62
#, c-format
msgid "Progress Bar"
msgstr ""

#: draksplash:65
#, c-format
msgid "Choose progress bar color 1"
msgstr "Dibabit liv 1 ar varrenn araogenn"

#: draksplash:67
#, c-format
msgid "Choose progress bar color 2"
msgstr "Dibabit liv 2 ar varrenn araogenn"

#: draksplash:69
#, c-format
msgid "Choose progress bar background"
msgstr "Dibabit drekleur ar varrenn araogenn"

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

#: draksplash:78
#, c-format
msgid "Text"
msgstr "Skrid"

#: draksplash:80
#, c-format
msgid "Choose text color"
msgstr "Dibabit liv ar skrid"

#: draksplash:83 draksplash:102
#, c-format
msgid "Choose picture"
msgstr "Dibabit ur skeudenn"

#: draksplash:87
#, c-format
msgid "Silent bootsplash"
msgstr "Skeudenn loc'hañ didrouz"

#: draksplash:90
#, c-format
msgid "Choose text zone color"
msgstr "Dibabit liv gorread ar skrid"

#: draksplash:93
#, c-format
msgid "Text color"
msgstr "Liv ar skrid"

#: draksplash:97
#, c-format
msgid "Background color"
msgstr "Liv an drekleur"

#: draksplash:103
#, c-format
msgid "Verbose bootsplash"
msgstr "Mod flapañ"

#: draksplash:110
#, c-format
msgid "Theme name"
msgstr "Anv ar giz"

#: draksplash:115
#, c-format
msgid "Final resolution"
msgstr "Spister diwezhañ"

#: draksplash:119
#, c-format
msgid "Display logo on Console"
msgstr "Diskouez al logo ouzh al letrin"

#: draksplash:124
#, c-format
msgid "Save theme"
msgstr "Enrollañ ar c'hiz"

#: draksplash:187
#, c-format
msgid "Please enter a theme name"
msgstr "Roit anv ur c'hiz mar plij"

#: draksplash:190
#, c-format
msgid "Please select a splash image"
msgstr "Dibabit ur skeudenn loc'hañ, mar plij"

#: draksplash:193
#, c-format
msgid "saving Bootsplash theme..."
msgstr "emon oc'h enrollañ giz ar skeudenn loc'hañ ..."

#: draksplash:202
#, c-format
msgid "Unable to load image file %s"
msgstr "N'hell ket kargañ ar restr skeudenn %s"

#: draksplash:213
#, c-format
msgid "choose image"
msgstr "dibabit ur skeudenn"

#: draksplash:228
#, c-format
msgid "Color selection"
msgstr "Choazh al liv"

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

#: drakups:72
#, c-format
msgid "Manual configuration"
msgstr "Kefluniadur-dorn"

#: drakups:78
#, c-format
msgid "Add an UPS device"
msgstr "Ouzhpennañ un drobarzhell UPS"

#: drakups:81
#, 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
#, c-format
msgid "Autodetection"
msgstr "Dinoiñ dre ardivink"

#: drakups:99 harddrake2:381
#, c-format
msgid "Detection in progress"
msgstr "O klask"

#: drakups:118 drakups:157 logdrake:457 logdrake:463
#, c-format
msgid "Congratulations"
msgstr "Brav"

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

#: drakups:121
#, c-format
msgid "No new UPS devices was found"
msgstr "N'eus trobarzhelloù UPS nevez kavet"

#: drakups:126 drakups:138
#, c-format
msgid "UPS driver configuration"
msgstr "Kefluniadur ar sturier UPS"

#: drakups:126
#, c-format
msgid "Please select your UPS model."
msgstr "Dibabit seurt hoc'h UPS, mar plij."

#: drakups:127
#, c-format
msgid "Manufacturer / Model:"
msgstr "Farder / Gobari :"

#: 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 "Anv :"

#: drakups:143
#, c-format
msgid "The name of your ups"
msgstr "Anv hon UPS"

#: drakups:144
#, c-format
msgid "Driver:"
msgstr "Sturier :"

#: drakups:144
#, c-format
msgid "The driver that manages your ups"
msgstr "Sturier hoc'h UPS"

#: drakups:145
#, c-format
msgid "Port:"
msgstr "Porzh :"

#: drakups:147
#, c-format
msgid "The port on which is connected your ups"
msgstr "Ar porzh a-steud m'eo luget ho ups outañ"

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

#: drakups:248
#, c-format
msgid "UPS devices"
msgstr "Trobarzhelloù UPS"

#: drakups:249 drakups:268 drakups:284 harddrake2:89 harddrake2:115
#: harddrake2:122
#, c-format
msgid "Name"
msgstr "Anv"

#: drakups:249 harddrake2:137
#, c-format
msgid "Driver"
msgstr "Sturier"

#: drakups:249 harddrake2:55
#, c-format
msgid "Port"
msgstr "Porzh"

#: drakups:267
#, c-format
msgid "UPS users"
msgstr "Arveriaded UPS"

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

#: drakups:284
#, c-format
msgid "IP address"
msgstr "Chomlec'h IP"

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

#: drakups:296
#, c-format
msgid "Rules"
msgstr "Reolennoù"

#: drakups:297
#, c-format
msgid "Action"
msgstr "Gwezhiad"

#: drakups:297 harddrake2:86
#, c-format
msgid "Level"
msgstr "Live"

#: drakups:297
#, c-format
msgid "ACL name"
msgstr "Anv an ACL"

#: drakups:297 finish-install:179
#, c-format
msgid "Password"
msgstr "Tremenger"

#: drakups:329
#, c-format
msgid "UPS Management"
msgstr "Melestradur UPS"

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

#: drakups:339
#, c-format
msgid "Welcome to the UPS configuration tools"
msgstr "Degemer en ostilh ar c'hefluniadur UPS"

#: drakxtv:67
#, c-format
msgid "No TV Card detected!"
msgstr "Kartenn TV ebet !"

#. -PO: keep the double empty lines between sections, this is formatted a la LaTeX
#: drakxtv:69
#, 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 ""

#: finish-install:56
#, c-format
msgid "Keyboard"
msgstr "Stokellaoueg"

#: finish-install:57
#, c-format
msgid "Please, choose your keyboard layout."
msgstr "Dibabit reizhadur ho stokellaoueg, mar plij."

#: finish-install:177 finish-install:195 finish-install:207
#, c-format
msgid "Encrypted home partition"
msgstr ""

#: finish-install:177
#, c-format
msgid "Please enter a password for the %s user"
msgstr "Roit un tremenger evit an arveriad %s mar plij"

#: finish-install:180
#, c-format
msgid "Password (again)"
msgstr "Tremenger (adarre)"

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

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

#: harddrake2:29
#, c-format
msgid "Alternative drivers"
msgstr "Sturierien all"

#: harddrake2:30
#, c-format
msgid "the list of alternative drivers for this sound card"
msgstr "roll ar sturierien all evit ar gartenn gwelet-mañ"

#: harddrake2:32 harddrake2:124
#, c-format
msgid "Bus"
msgstr "Bus"

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

#: harddrake2:35 harddrake2:150
#, c-format
msgid "Bus identification"
msgstr ""

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

#: harddrake2:38
#, c-format
msgid "Location on the bus"
msgstr "Lec'hel war ar bus"

#: harddrake2:39
#, 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:42
#, c-format
msgid "Drive capacity"
msgstr ""

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

#: harddrake2:43
#, c-format
msgid "Description"
msgstr "Deskrivadur"

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

#: harddrake2:44
#, c-format
msgid "Old device file"
msgstr "Trobarzhell kozh ar restr"

#: harddrake2:45
#, c-format
msgid "old static device name used in dev package"
msgstr ""

#. -PO: here "module" is the "jargon term" for a kernel driver
#: harddrake2:48
#, c-format
msgid "Module"
msgstr "Mollad"

#: harddrake2:48
#, c-format
msgid "the module of the GNU/Linux kernel that handles the device"
msgstr "Mollad ar galon GNU/Linux hag a ra tro-dro an drobarzhell"

#: harddrake2:49
#, c-format
msgid "Extended partitions"
msgstr "Parzhadurioù astennet"

#: harddrake2:49
#, c-format
msgid "the number of extended partitions"
msgstr "niver a parzhadurioù astennet"

#: harddrake2:50
#, c-format
msgid "Geometry"
msgstr "Mentoniezh"

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

#: harddrake2:51
#, c-format
msgid "Disk controller"
msgstr "Kontroller pladenn"

#: harddrake2:51
#, c-format
msgid "the disk controller on the host side"
msgstr "ar gontroller pladenn ouzh an ostiz"

#: harddrake2:52
#, c-format
msgid "Identifier"
msgstr "Anavezoud"

#: harddrake2:52
#, c-format
msgid "usually the device serial number"
msgstr ""

#: harddrake2:53
#, c-format
msgid "Media class"
msgstr "Renkad ar vedia"

#: harddrake2:53
#, c-format
msgid "class of hardware device"
msgstr "Renkad an drobarzhell"

#: harddrake2:54 harddrake2:87
#, c-format
msgid "Model"
msgstr "Gobari"

#: harddrake2:54
#, c-format
msgid "hard disk model"
msgstr "Gobari ar bladenn"

#: harddrake2:55
#, c-format
msgid "network printer port"
msgstr "porzh ar voullerez rouedad"

#: harddrake2:56
#, c-format
msgid "Primary partitions"
msgstr "Parzhadurioù kentañ"

#: harddrake2:56
#, c-format
msgid "the number of the primary partitions"
msgstr "niver a parzhadurioù kentañ"

#: harddrake2:57 harddrake2:92
#, c-format
msgid "Vendor"
msgstr "Gwerzher"

#: harddrake2:57
#, c-format
msgid "the vendor name of the device"
msgstr "anv gwerzher an drobarzhell"

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

#: harddrake2:58
#, c-format
msgid "the PCI domain of the device"
msgstr "domani PCI an drobarzhell"

#: harddrake2:60
#, fuzzy, c-format
msgid "PCI revision"
msgstr "Aotreoù "

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

#: harddrake2:59
#, c-format
msgid "the PCI bus on which the device is plugged"
msgstr "Ar bus PCI a-benn lugellañ an drobarzhell"

#: harddrake2:60
#, c-format
msgid "PCI device #"
msgstr "Trobarzhell PCI #"

#: harddrake2:60
#, c-format
msgid "PCI device number"
msgstr "niverenn an drobarzhell PCI"

#: harddrake2:61
#, c-format
msgid "PCI function #"
msgstr "Fonksion PCI niv."

#: harddrake2:61
#, c-format
msgid "PCI function number"
msgstr "Niver a fonksion PCI"

#: harddrake2:62
#, c-format
msgid "Vendor ID"
msgstr "ID ar werzher"

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

#: harddrake2:63
#, c-format
msgid "Device ID"
msgstr "ID an drobarzhell"

#: harddrake2:63
#, c-format
msgid "this is the numerical identifier of the device"
msgstr ""

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

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

#: harddrake2:65
#, c-format
msgid "Sub device ID"
msgstr "IsID an drobarzhell"

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

#: harddrake2:66
#, c-format
msgid "Device USB ID"
msgstr "ID an drobarzhell USB"

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

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

#: harddrake2:70
#, 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:71
#, c-format
msgid "Cache size"
msgstr "Ment ar grubuilh"

#: harddrake2:71
#, c-format
msgid "size of the (second level) cpu cache"
msgstr ""

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

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

#: harddrake2:75
#, c-format
msgid "Cpuid family"
msgstr "Familh cpuid"

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

#: harddrake2:76
#, c-format
msgid "Cpuid level"
msgstr "Live cpuid"

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

#: harddrake2:77
#, c-format
msgid "Frequency (MHz)"
msgstr "Frekañs (Mhz)"

#: harddrake2:77
#, 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:78
#, c-format
msgid "Flags"
msgstr "Bannielloù"

#: harddrake2:78
#, c-format
msgid "CPU flags reported by the kernel"
msgstr ""

#: harddrake2:79
#, c-format
msgid "Fdiv bug"
msgstr "Bug fdiv"

#: harddrake2:80
#, 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:81
#, c-format
msgid "Is FPU present"
msgstr "Bez eus un UNS"

#: harddrake2:81
#, c-format
msgid "yes means the processor has an arithmetic coprocessor"
msgstr ""

#: harddrake2:82
#, c-format
msgid "Whether the FPU has an irq vector"
msgstr "Ma 'z eus ur vektor IRQ gant an UNS"

#: harddrake2:82
#, c-format
msgid "yes means the arithmetic coprocessor has an exception vector attached"
msgstr ""

#: harddrake2:83
#, c-format
msgid "F00f bug"
msgstr "Buf f00f"

#: harddrake2:83
#, c-format
msgid "early pentiums were buggy and freezed when decoding the F00F bytecode"
msgstr ""

#: harddrake2:84
#, c-format
msgid "Halt bug"
msgstr "Bug halt"

#: harddrake2:85
#, c-format
msgid ""
"Some of the early i486DX-100 chips cannot reliably return to operating mode "
"after the \"halt\" instruction is used"
msgstr ""

#: harddrake2:86
#, c-format
msgid "sub generation of the cpu"
msgstr ""

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

#: harddrake2:88
#, c-format
msgid "Model name"
msgstr "Anv ar gobari"

#: harddrake2:88
#, c-format
msgid "official vendor name of the cpu"
msgstr ""

#: harddrake2:89
#, c-format
msgid "the name of the CPU"
msgstr "Anv an UTK"

#: harddrake2:90
#, c-format
msgid "Processor ID"
msgstr "ID ar c'hewerier"

#: harddrake2:90
#, c-format
msgid "the number of the processor"
msgstr "Niver ar c'hewerier"

#: harddrake2:91
#, c-format
msgid "Model stepping"
msgstr ""

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

#: harddrake2:92
#, c-format
msgid "the vendor name of the processor"
msgstr "Anv gwerzhour ar c'hewerier"

#: harddrake2:93
#, c-format
msgid "Write protection"
msgstr "Anskrivadus"

#: harddrake2:93
#, 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:97
#, c-format
msgid "Floppy format"
msgstr "Furmad ar bladennig"

#: harddrake2:97
#, c-format
msgid "format of floppies supported by the drive"
msgstr ""

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

#: harddrake2:102
#, c-format
msgid "Disk identifier"
msgstr "Anavezoud ar bladenn"

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

#: harddrake2:103
#, c-format
msgid "Logical unit number"
msgstr ""

#: harddrake2:103
#, 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:110
#, c-format
msgid "Installed size"
msgstr "Ment staliet"

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

#: harddrake2:111
#, c-format
msgid "Enabled Size"
msgstr "Ment bev"

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

#: harddrake2:112 harddrake2:121
#, c-format
msgid "Type"
msgstr "Seurt"

#: harddrake2:112
#, c-format
msgid "type of the memory device"
msgstr "seurt an drobarzhell vemor"

#: harddrake2:113
#, c-format
msgid "Speed"
msgstr "Tizh"

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

#: harddrake2:114
#, c-format
msgid "Bank connections"
msgstr ""

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

#: harddrake2:119
#, c-format
msgid "Device file"
msgstr "Restr an drobarzhell"

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

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

#: harddrake2:120
#, c-format
msgid "whether the wheel is emulated or not"
msgstr ""

#: harddrake2:121
#, c-format
msgid "the type of the mouse"
msgstr "seurt al logodenn"

#: harddrake2:122
#, c-format
msgid "the name of the mouse"
msgstr "anv al logodenn"

#: harddrake2:123
#, c-format
msgid "Number of buttons"
msgstr "Niver a nozelioù"

#: harddrake2:123
#, c-format
msgid "the number of buttons the mouse has"
msgstr "niver a nozelioù gand al logodenn"

#: harddrake2:124
#, c-format
msgid "the type of bus on which the mouse is connected"
msgstr ""

#: harddrake2:125
#, c-format
msgid "Mouse protocol used by X11"
msgstr "Komenad logod implijet gant X11"

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

#: harddrake2:132 harddrake2:141 harddrake2:148 harddrake2:156 harddrake2:337
#, c-format
msgid "Identification"
msgstr "Dilesadur"

#: harddrake2:133 harddrake2:149
#, c-format
msgid "Connection"
msgstr "Kevreadenn"

#: harddrake2:142
#, c-format
msgid "Performances"
msgstr ""

#: harddrake2:143
#, c-format
msgid "Bugs"
msgstr "Bugoù"

#: harddrake2:144
#, c-format
msgid "FPU"
msgstr "UNS"

#: harddrake2:151
#, c-format
msgid "Device"
msgstr "Trobarzhell"

#: harddrake2:152
#, c-format
msgid "Partitions"
msgstr "Parzhadurioù"

#: harddrake2:157
#, c-format
msgid "Features"
msgstr "Arc'hweloù"

#. -PO: please keep all "/" characters !!!
#: harddrake2:180 logdrake:78
#, c-format
msgid "/_Options"
msgstr "/_Dibarzhoù"

#: harddrake2:181 harddrake2:210 logdrake:80
#, c-format
msgid "/_Help"
msgstr "/_Skoazell"

#: harddrake2:185
#, c-format
msgid "/Autodetect _printers"
msgstr "/Kavout _moullerezioù"

#: harddrake2:186
#, c-format
msgid "/Autodetect _modems"
msgstr "/Kavout m_odemioù"

#: harddrake2:187
#, c-format
msgid "/Autodetect _jaz drives"
msgstr "/Kavout an drobarzhelloù _jaz"

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

#: harddrake2:192
#, c-format
msgid "Hardware Configuration"
msgstr "Kefluniadur ar periantal"

#: harddrake2:199
#, c-format
msgid "/_Quit"
msgstr "/_Kuitaat"

#: harddrake2:212
#, c-format
msgid "/_Fields description"
msgstr "/Deskrivadur an _tachennoù"

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

#: harddrake2:215
#, c-format
msgid ""
"Description of the fields:\n"
"\n"
msgstr ""
"Deskrivadur an tachennoù :\n"
"\n"

#: harddrake2:223
#, c-format
msgid "Select a device!"
msgstr "Dibabit un drobarzhell !"

#: harddrake2:223
#, 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:229
#, c-format
msgid "/_Report Bug"
msgstr "/_Reiñ da c'houzout ur gudenn"

#: harddrake2:231
#, c-format
msgid "/_About..."
msgstr "/_A-brepoz ..."

#: harddrake2:234
#, c-format
msgid "Harddrake"
msgstr "Harddrake"

#: harddrake2:238
#, c-format
msgid "This is HardDrake, a %s hardware configuration tool."
msgstr "Setu HardDrake, an ostilh %s evit kefluniañ ar periantel."

#: harddrake2:271
#, c-format
msgid "Detected hardware"
msgstr "Periantel kavet"

#: harddrake2:274 scannerdrake:286
#, c-format
msgid "Information"
msgstr "Titouroù"

#: harddrake2:276
#, c-format
msgid "Set current driver options"
msgstr "Lakaat dibarzhoù ar sturier red"

#: harddrake2:283
#, c-format
msgid "Run config tool"
msgstr "Seveniñ an ostilh kefluniadur"

#: harddrake2:303
#, c-format
msgid ""
"Click on a device in the left tree in order to display its information here."
msgstr ""
"Klikit ouzh un drobarzhell e-barzh ar wezenn a-gleiz a-benn ma ziskouez "
"titouroù anezhañ amañ."

#: harddrake2:324 notify-x11-free-driver-switch:13
#, c-format
msgid "unknown"
msgstr "anavez"

#: harddrake2:325
#, c-format
msgid "Unknown"
msgstr "Anavez"

#: harddrake2:345
#, c-format
msgid "Misc"
msgstr "A bep seurt"

#: harddrake2:429
#, c-format
msgid "secondary"
msgstr "eil derez"

#: harddrake2:429
#, c-format
msgid "primary"
msgstr "kentañ"

#: harddrake2:433
#, c-format
msgid "burner"
msgstr "engraver"

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

#: harddrake2:531
#, c-format
msgid "The following packages need to be installed:\n"
msgstr "Ar pakadoù a-heul zo war-nes bezañ staliet :\n"

#: localedrake:38
#, c-format
msgid "LocaleDrake"
msgstr "LocaleDrake"

#: localedrake:44
#, c-format
msgid "You should install the following packages: %s"
msgstr "Gwell e vefe koulz deoc'h staliañ ar pakadoù-mañ : %s"

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

#: logdrake:51
#, c-format
msgid "Mandriva Linux Tools Logs"
msgstr ""

#: logdrake:65
#, c-format
msgid "Show only for the selected day"
msgstr "Diskouez hepken an deiz dibabet"

#: logdrake:72
#, c-format
msgid "/File/_New"
msgstr "/Rest/_Nevez"

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

#: logdrake:73
#, c-format
msgid "/File/_Open"
msgstr "/Restr/_Digoriñ"

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

#: logdrake:74
#, c-format
msgid "/File/_Save"
msgstr "/Restr/_Enrollañ"

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

#: logdrake:75
#, c-format
msgid "/File/Save _As"
msgstr "/Restr/_Gwarediñ dindan"

#: logdrake:76
#, c-format
msgid "/File/-"
msgstr "/Restr/-"

#: logdrake:79
#, c-format
msgid "/Options/Test"
msgstr "/Dibarzhoù/Arnodenn"

#: logdrake:81
#, c-format
msgid "/Help/_About..."
msgstr "/Skoazell/_A-brepoz ..."

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

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

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

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

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

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

#: logdrake:131
#, c-format
msgid "Settings"
msgstr "Dibarzhoù"

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

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

#: logdrake:138
#, c-format
msgid "Choose file"
msgstr "Dibabit ur restr"

#: logdrake:150
#, c-format
msgid "Calendar"
msgstr "Deiziadur"

#: logdrake:159
#, c-format
msgid "Content of the file"
msgstr "Restrad"

#: 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 "Enrollañ"

#: logdrake:222
#, c-format
msgid "please wait, parsing file: %s"
msgstr "gortozit mar plij, o lenn ar restr : %s"

#: 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
#, c-format
msgid "Apache World Wide Web Server"
msgstr "Servijer gwiad bedel Apache"

#: logdrake:386
#, c-format
msgid "Domain Name Resolver"
msgstr ""

#: logdrake:387
#, c-format
msgid "Ftp Server"
msgstr "Servijer FTP"

#: logdrake:388
#, c-format
msgid "Postfix Mail Server"
msgstr "Servijer postel Postfix"

#: logdrake:389
#, c-format
msgid "Samba Server"
msgstr "Servijer Samba"

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

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

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

#: logdrake:401
#, c-format
msgid "Configure the mail alert system"
msgstr "Kefluniañ ar reizhiad diwall dre post"

#: logdrake:402
#, c-format
msgid "Stop the mail alert system"
msgstr "Paouez ar reizhiad diwall dre post"

#: logdrake:410
#, c-format
msgid "Mail alert configuration"
msgstr "Kefluniadur an diwall dre post"

#: logdrake:411
#, 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
#, c-format
msgid "What do you want to do?"
msgstr "Petra e fell deoc'h da ober ?"

#: logdrake:421
#, c-format
msgid "Services settings"
msgstr "Dibarzhoù ar serjivioù"

#: logdrake:422
#, c-format
msgid ""
"You will receive an alert if one of the selected services is no longer "
"running"
msgstr ""

#: logdrake:429
#, c-format
msgid "Load setting"
msgstr "Kargañ an dibarzhoù"

#: logdrake:430
#, 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 "Sammad"

#: logdrake:436
#, c-format
msgid "Alert configuration"
msgstr "Kefluniadur an diwall"

#: logdrake:437
#, c-format
msgid "Please enter your email address below "
msgstr "Roit ho chomlec'h postel mar plij "

#: logdrake:438
#, 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
#, c-format
msgid "Save as.."
msgstr "Enrollañ e ..."

#: notify-x11-free-driver-switch:15
#, c-format
msgid ""
"The proprietary driver for your graphic card can not be found, the system is "
"now using the free software driver (%s)."
msgstr ""

#: notify-x11-free-driver-switch:21
#, c-format
msgid "Reason: %s."
msgstr ""

#: scannerdrake:51
#, c-format
msgid ""
"SANE packages need to be installed to use scanners.\n"
"\n"
"Do you want to install the SANE packages?"
msgstr ""
"Ar pakadoù SANE zo war-nes bezañ staliet evit implij an eiltreseroù :\n"
"\n"
"Mennout a rit staliañ ar pakadoù SANE ?"

#: scannerdrake:55
#, c-format
msgid "Aborting Scannerdrake."
msgstr "O terriñ Scannerdrake."

#: 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 "Ne vo ket loc'het Scannerdrake bremañ."

#: scannerdrake:67 scannerdrake:505
#, c-format
msgid "Searching for configured scanners..."
msgstr "O klask an eiltreseroù kefluniet ..."

#: scannerdrake:71 scannerdrake:509
#, c-format
msgid "Searching for new scanners..."
msgstr "O klask eiltreseroù nevez ..."

#: scannerdrake:79 scannerdrake:531
#, 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 scannerdrake:115
#, c-format
msgid "Confirmation"
msgstr "Kadarnadur"

#: scannerdrake:104
#, c-format
msgid "%s found on %s, configure it automatically?"
msgstr "%s kavet war %s, kefluniañ anezhi ent emgefreek ?"

#: scannerdrake:116
#, c-format
msgid "%s is not in the scanner database, configure it manually?"
msgstr ""

#: scannerdrake:130
#, c-format
msgid "Scanner configuration"
msgstr "Kefluniadur ar skanner"

#: scannerdrake:131
#, c-format
msgid "Select a scanner model (Detected model: %s, Port: %s)"
msgstr "Dibabit ur gobari scanner (doare kavet : %s, porzh : %s)"

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

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

#: scannerdrake:136 scannerdrake:139
#, c-format
msgid " (UNSUPPORTED)"
msgstr " (N'EO KET SKORAET)"

#: scannerdrake:142
#, c-format
msgid "The %s is not supported under Linux."
msgstr "N'eo ket skoraet gant Linux %s."

#: scannerdrake:169 scannerdrake:183
#, c-format
msgid "Do not install firmware file"
msgstr "Ne staliit ket restr ar meriant"

#: scannerdrake:172 scannerdrake:222
#, 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 "Staliañ restr ar meriant eus"

#: scannerdrake:180 scannerdrake:188 scannerdrake:239 scannerdrake:246
#, c-format
msgid "CD-ROM"
msgstr "CD-ROM"

#: scannerdrake:181 scannerdrake:190 scannerdrake:240 scannerdrake:248
#, c-format
msgid "Floppy Disk"
msgstr "Bladennig"

#: scannerdrake:182 scannerdrake:192 scannerdrake:241 scannerdrake:250
#, c-format
msgid "Other place"
msgstr "Lec'hiadur all"

#: scannerdrake:198
#, c-format
msgid "Select firmware file"
msgstr "Dibabit restr ar meriant"

#: 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 "Staliañ restroù ar meriant evit"

#: scannerdrake:256
#, c-format
msgid "Select firmware file for the %s"
msgstr "Dibabit restr ar meriant evit %s"

#: scannerdrake:274
#, c-format
msgid "Could not install the firmware file for the %s!"
msgstr "Ne m'eus ket staliañ restroù ar meriant evit %s !"

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

#: scannerdrake:297
#, c-format
msgid "The %s is unsupported"
msgstr "N'eo ket skoraet %s"

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

#: scannerdrake:320
#, c-format
msgid "Setting up kernel modules..."
msgstr "O lakaat molladoù ar c'halon ..."

#: scannerdrake:330 scannerdrake:337 scannerdrake:367
#, c-format
msgid "Auto-detect available ports"
msgstr ""

#: scannerdrake:331 scannerdrake:377
#, c-format
msgid "Device choice"
msgstr "Choazh an drobarzhell"

#: 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 "dibabit ur drobarzhell"

#: scannerdrake:369
#, c-format
msgid "Searching for scanners..."
msgstr "O klask eiltreseroù ..."

#: scannerdrake:405 scannerdrake:412
#, c-format
msgid "Attention!"
msgstr "Ho evezh !"

#: 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 "aozañ ar restr kefluniadur /etc/sane.d/%s.conf. "

#: scannerdrake:420
#, c-format
msgid "Congratulations!"
msgstr "Gourc'hemennoù !"

#: 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
#, c-format
msgid ""
"The following scanners\n"
"\n"
"%s\n"
"are available on your system.\n"
msgstr ""

#: scannerdrake:447
#, c-format
msgid ""
"The following scanner\n"
"\n"
"%s\n"
"is available on your system.\n"
msgstr ""

#: scannerdrake:449 scannerdrake:452
#, c-format
msgid "There are no scanners found which are available on your system.\n"
msgstr ""

#: scannerdrake:460
#, c-format
msgid "Scanner Management"
msgstr "Melestradur ar skannerioù"

#: scannerdrake:466
#, c-format
msgid "Search for new scanners"
msgstr "Klask an eiltreserien nevez"

#: scannerdrake:472
#, c-format
msgid "Add a scanner manually"
msgstr "Ouzhpennañ un eiltreser gant an dorn"

#: scannerdrake:479
#, c-format
msgid "Install/Update firmware files"
msgstr "Staliañ/Bremañaat ar restroù meriant"

#: scannerdrake:485
#, c-format
msgid "Scanner sharing"
msgstr "Rannañ ar skanner"

#: scannerdrake:544 scannerdrake:709
#, c-format
msgid "All remote machines"
msgstr "Reizhiadoù a-bell holl"

#: scannerdrake:556 scannerdrake:859
#, c-format
msgid "This machine"
msgstr "Ar reizhiad-mañ"

#: scannerdrake:595
#, c-format
msgid "Scanner Sharing"
msgstr "Rannañ ar skanner"

#: scannerdrake:596
#, 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:597
#, c-format
msgid ""
"You can also decide here whether scanners on remote machines should be made "
"available on this machine."
msgstr ""

#: scannerdrake:600
#, c-format
msgid "The scanners on this machine are available to other computers"
msgstr ""

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

#: scannerdrake:607 scannerdrake:624
#, c-format
msgid "No remote machines"
msgstr "Reizhiadoù a-bell ebet"

#: scannerdrake:616
#, c-format
msgid "Use scanners on remote computers"
msgstr "Implij an eiltreserioù war urzhiataerioù a-bell"

#: scannerdrake:619
#, c-format
msgid "Use the scanners on hosts: "
msgstr "Implij an eiltreserioù war ostizioù : "

#: scannerdrake:646 scannerdrake:718 scannerdrake:868
#, c-format
msgid "Sharing of local scanners"
msgstr ""

#: scannerdrake:647
#, c-format
msgid ""
"These are the machines on which the locally connected scanner(s) should be "
"available:"
msgstr ""

#: scannerdrake:658 scannerdrake:808
#, c-format
msgid "Add host"
msgstr "Ouzhpennañ un ostiz"

#: scannerdrake:664 scannerdrake:814
#, c-format
msgid "Edit selected host"
msgstr "Kemmañ an ostiz diuzet"

#: scannerdrake:673 scannerdrake:823
#, c-format
msgid "Remove selected host"
msgstr "Lemel an ostiz diuzet"

#: scannerdrake:682 scannerdrake:832
#, c-format
msgid "Done"
msgstr "Echu"

#: scannerdrake:697 scannerdrake:705 scannerdrake:710 scannerdrake:756
#: scannerdrake:847 scannerdrake:855 scannerdrake:860 scannerdrake:906
#, c-format
msgid "Name/IP address of host:"
msgstr "Chomlec'h IP/Anv an oztiz :"

#: scannerdrake:719 scannerdrake:869
#, c-format
msgid "Choose the host on which the local scanners should be made available:"
msgstr ""

#: scannerdrake:730 scannerdrake:880
#, c-format
msgid "You must enter a host name or an IP address.\n"
msgstr "Ret eo deoc'h reiñ an anv-ostiz pe ur chomlec'h IP.\n"

#: scannerdrake:741 scannerdrake:891
#, c-format
msgid "This host is already in the list, it cannot be added again.\n"
msgstr "Er roll eo dija an ostiz-se. N'eo ket bet ouzhpennet ur wech all\n"

#: scannerdrake:796
#, c-format
msgid "Usage of remote scanners"
msgstr "Arveriadur an eiltreserioù a-bell"

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

#: scannerdrake:954
#, 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 ""
"staliet e tle bezañ saned evit rannañ ar skanner(où) lec'hel.\n"
"\n"
"Ha sur oc'h e mennit staliañ ar pakad saned ?"

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

#: scannerdrake:961
#, c-format
msgid "Could not install the packages needed to share your scanner(s)."
msgstr "N'eo ket evit staliañ evit ranañ hoc'h eiltreser."

#: service_harddrake:138
#, c-format
msgid "The graphic card '%s' is no more supported by the '%s' driver"
msgstr ""

#: service_harddrake:167
#, c-format
msgid "The proprietary kernel driver was not found for '%s' X.org driver"
msgstr ""

#: service_harddrake:206
#, c-format
msgid "Some devices in the \"%s\" hardware class were removed:\n"
msgstr "Bez eus trobarzhelloù lemet er c'hlass « %s » :\n"

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

#: service_harddrake:138
#, c-format
msgid "Some devices were added: %s\n"
msgstr "Ouzhpennet oa lod a eus trobarzhelloù : %s\n"

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

#: service_harddrake:264
#, c-format
msgid "Hardware probing in progress"
msgstr "O klask ar perientel"

#: service_harddrake_confirm:7
#, c-format
msgid "Hardware changes in \"%s\" class (%s seconds to answer)"
msgstr "Bez eus kemmoù gant ar c'hlass « %s » (%s eil evit respont)"

#: service_harddrake_confirm:8
#, c-format
msgid "Do you want to run the appropriate config tool?"
msgstr "Mennout a rit lañsañ an ostilh dereat ?"

#: ../menu/localedrake-system.desktop.in.h:1
msgid "System Regional Settings"
msgstr "Dibarzhoù lec'hel evit ar reizhiad"

#: ../menu/localedrake-system.desktop.in.h:2
msgid "System wide language & country configurator"
msgstr "Kefluniadur yezh hag bro ar reizhiad"

#: ../menu/harddrake.desktop.in.h:1
msgid "HardDrake"
msgstr "HardDrake"

#: ../menu/harddrake.desktop.in.h:2
#, fuzzy
msgid "Hardware Central Configuration/information tool"
msgstr "Kefluniadur ar periantal"

#: ../menu/harddrake.desktop.in.h:3
#, fuzzy
msgid "Hardware Configuration Tool"
msgstr "Kefluniadur ar periantal"

#: ../menu/localedrake-user.desktop.in.h:1
msgid "Language & country configuration"
msgstr "Kefluniadur ar yezh hag ar vro"

#: ../menu/localedrake-user.desktop.in.h:2
msgid "Regional Settings"
msgstr "Dibarzhoù lec'hel"

#~ msgid "Unknown/Others"
#~ msgstr "Anavez/All"

#~ 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 ""
#~ "Amañ e c'hellit kefluniañ al live surantez hag melestradur an surentez\n"
#~ "hoc'h urziataer.\n"
#~ "\n"
#~ "\n"
#~ "Ar « Melestradur an surentez » a vo o resev posteloù surantez ma vez\n"
#~ "bev an dibarzh « <span weight=\"bold\">Posteloù surantez</span> ». Un\n"
#~ "anv arveriad pe ur chomlec'h postel e c'hell bezañ.\n"
#~ "\n"
#~ "\n"
#~ "Gant ar meuziad « <span weight=\"bold\">Live surantez</span> », moaien\n"
#~ "eo dibab unan eus ar c'hwec'h live surantez hag a zo pourvezet. Etre\n"
#~ "« <span weight=\"bold\">Paour</span> » hag « <span\n"
#~ "weight=\"bold\">Ankeniet</span> » eo al live surantez. Aes da implij eo\n"
#~ "« Paour ». Evit ar servijerien eo « Ankeniet ».\n"
#~ "\n"
#~ "\n"
#~ "<span foreground=\"royalblue3\">Paour</span> : N'eo ket surantezet ar\n"
#~ "reizhiat met aez da implij eo gant al live-surantez-mañ. Gwell deoc'h\n"
#~ "implij kement-mañ evit un urzhiatazer hag na vez ket ouzh ur rouedad.\n"
#~ "\n"
#~ "\n"
#~ "<span foreground=\"royalblue3\">Skouer</span> : Setu al live surentez\n"
#~ "standard a vez erbedet evit un urzhiataer a vo implijet evit kevreañ\n"
#~ "evel kliant ouzh ar Genrouedad.\n"
#~ "\n"
#~ "\n"
#~ "<span foreground=\"royalblue3\">Uhel</span> : Bremañ ez eus gwiriadennoù\n"
#~ "surentez hag a zo sevenet d'an noz.\n"
#~ "\n"
#~ "\n"
#~ "<span foreground=\"royalblue3\">Uheloc'h</span> : Uhel a-walc'h eo\n"
#~ "bremañ ar surentez evit implijout ar reizhiad evel ur servijer o\n"
#~ "tigemer kevreadennoù a-berzh kliantoù niverus. Ma vez ur c'hliant\n"
#~ "kenrouedad hepken, neuze e vefe moarvat gwelloc'h deoc'h dibab ul live\n"
#~ "izeloc'h.\n"
#~ "\n"
#~ "\n"
#~ "<span foreground=\"royalblue3\">Ankeniet</span> : Kemer a reomp\n"
#~ "arc'hweloù al live diaraok, hogen bremañ eo peurserret ar reizhiad hag\n"
#~ "an arc'hweloù surentez zo en o muiañ."

#~ msgid "(default value: %s)"
#~ msgstr "(gwerzh dre ziouer : %s)"

#~ msgid "Security Level:"
#~ msgstr "Live Surentez :"

#~ msgid "Security Alerts:"
#~ msgstr "Posteloù surantez :"

#~ msgid "Security Administrator:"
#~ msgstr "Merour surentez :"

#~ msgid "Basic options"
#~ msgstr "Dibarzhoù diazeg"

#~ msgid "Network Options"
#~ msgstr "Dibarzhoù ar rouedad"

#~ msgid "System Options"
#~ msgstr "Dibarzhoù ar reizhiad"

#~ msgid "Please wait, setting security level..."
#~ msgstr "O lakaat al live surentez, gortoz mar plij ..."

#~ msgid "Please wait, setting security options..."
#~ msgstr "O lakaat an dibarzhoù surentez, gortoz mar plij ..."

#, fuzzy
#~ msgid ""
#~ "The following localization packages do not seem to be useful for your "
#~ "system:"
#~ msgstr "Ar pakadoù a-heul zo war-nes bezañ staliet :\n"

#, fuzzy
#~ msgid "Do you want to remove these packages?"
#~ msgstr "Mennout a rit lañsañ an ostilh dereat ?"

#, fuzzy
#~ msgid ""
#~ "The following hardware packages do not seem to be useful for your system:"
#~ msgstr "Ar pakadoù a-heul zo war-nes bezañ staliet :\n"

#~ msgid "Please wait, adding media..."
#~ msgstr "Gortozit mar plij, emaon oc'h ouzhpennañ ur media ..."

#~ msgid "Restart XFS"
#~ msgstr "Adloc'hañ XFS"

#~ msgid "Copyright (C) 2001-2008 by Mandriva"
#~ msgstr "Copyright (C) 2001-2008 gant Mandriva"

#~ msgid "Error!"
#~ msgstr "Fazi !"

#~ msgid "I can not find needed image file `%s'."
#~ msgstr "N'hellan ket kavour ar restr skeudenn red « %s »."

#~ msgid "Auto Install Configurator"
#~ msgstr "Keflunier ar staliadur emgefreek"

#~ msgid "replay"
#~ msgstr "adc'hoari"

#~ msgid "manual"
#~ msgstr "diwar zorn"

#~ msgid "Automatic Steps Configuration"
#~ msgstr "Kefluniadur staliañ emgefreek"

#~ msgid "Insert a blank floppy in drive %s"
#~ msgstr "Lakait ur bladennig gwerc'h el lenner %s"

#~ msgid "Creating auto install floppy"
#~ msgstr "O krouiñ ur bladennig staliañ emgefreek"

#~ msgid "Insert another blank floppy in drive %s (for drivers disk)"
#~ msgstr ""
#~ "Lakait ur bladennig gwerc'h all el lenner %s (evit pladenn ar sturieroù)"

#~ msgid "Creating auto install floppy (drivers disk)"
#~ msgstr "O krouiñ ur bladennig staliañ emgefreek (pladenn ar sturieroù)"

#~ msgid "Auto Install"
#~ msgstr "Staliañ emgefreek"

#~ msgid "Add an item"
#~ msgstr "Ouzhpennañ un hini"

#~ msgid "Remove the last item"
#~ msgstr "Lemel an hini diwezhañ"

#~ msgid "Menudrake"
#~ msgstr "Menudrake"

#~ msgid "Msec"
#~ msgstr "Msec"

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

#~ msgid "Userdrake"
#~ msgstr "Userdrake"
hl opt">);</span>
    <span class="hl kwc">sleep</span><span class="hl opt">(</span><span class="hl num">3</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> ask_url <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$in, $o_url</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">$url</span> <span class="hl opt">=</span> <span class="hl kwb">$o_url</span><span class="hl opt">;</span>
    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_</span><span class="hl opt">({</span> messages <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;URL of the mirror?&quot;</span><span class="hl opt">),</span> focus_first <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 kwb">$url,</span>
	  validate <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span> 
	      <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$url</span> <span class="hl opt">=~</span> <span class="hl kwd">m!^(http|ftp)://!</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">else</span> <span class="hl opt">{</span>
		  <span class="hl kwb">$in</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> N<span class="hl opt">(</span><span class="hl str">&quot;URL must start with ftp:// or http://&quot;</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 opt">} } ]) &amp;&amp;</span> <span class="hl kwb">$url</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> ask_mirror <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o, $type, $o_url</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    
    <span class="hl kwa">require</span> mirror<span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$mirrors</span> <span class="hl opt">=</span> <span class="hl kwc">eval</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> N<span class="hl opt">(</span><span class="hl str">&quot;Contacting Mandriva Linux web site to get the list of available mirrors...&quot;</span><span class="hl opt">));</span>
	mirror<span class="hl opt">::</span>list<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>product_id<span class="hl opt">},</span> <span class="hl kwb">$type</span><span class="hl opt">);</span>
    <span class="hl opt">};</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$err</span> <span class="hl opt">=</span> <span class="hl kwb">$&#64;</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$mirrors</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> N<span class="hl opt">(</span><span class="hl str">&quot;Failed contacting Mandriva Linux web site to get the list of available mirrors&quot;</span><span class="hl opt">) .</span> <span class="hl str">&quot;</span><span class="hl esc">\n</span><span class="hl str"></span><span class="hl ipl">$err</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
	<span class="hl kwa">return</span> ask_url<span class="hl opt">(</span><span class="hl kwb">$o, $o_url</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$give_url</span> <span class="hl opt">= {</span> country <span class="hl opt">=&gt;</span> <span class="hl str">&apos;-&apos;</span><span class="hl opt">,</span> host <span class="hl opt">=&gt;</span> <span class="hl str">&apos;URL&apos;</span> <span class="hl opt">};</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$mirror</span> <span class="hl opt">=</span> <span class="hl kwb">$o_url</span> ? <span class="hl opt">(</span>find <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>url<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl kwb">$o_url</span> <span class="hl opt">}</span> <span class="hl kwb">&#64;$mirrors</span><span class="hl opt">) ||</span> <span class="hl kwb">$give_url</span> 
        <span class="hl slc">#- use current time zone to select best mirror</span>
      <span class="hl opt">:</span> mirror<span class="hl opt">::</span>nearest<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>timezone<span class="hl opt">}{</span>timezone<span class="hl opt">},</span> <span class="hl kwb">$mirrors</span><span class="hl opt">);</span>

    <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_</span><span class="hl opt">({</span> messages <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Choose a mirror from which to get the packages&quot;</span><span class="hl opt">),</span>
		    cancel <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Cancel&quot;</span><span class="hl opt">),</span>
		<span class="hl opt">}, [ {</span> separator <span class="hl opt">=&gt;</span> <span class="hl str">&apos;|&apos;</span><span class="hl opt">,</span>
		       format <span class="hl opt">=&gt;</span> \<span class="hl opt">&amp;</span>mirror<span class="hl opt">::</span>mirror2text<span class="hl opt">,</span>
		       list <span class="hl opt">=&gt; [</span> <span class="hl kwb">&#64;$mirrors, $give_url</span> <span class="hl opt">],</span>
		       val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$mirror,</span>
		   <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 kwc">my</span> <span class="hl kwb">$url</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$mirror</span> <span class="hl kwc">eq</span> <span class="hl kwb">$give_url</span><span class="hl opt">) {</span>
	<span class="hl kwb">$url</span> <span class="hl opt">=</span> ask_url<span class="hl opt">(</span><span class="hl kwb">$o, $o_url</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">goto</span> <span class="hl opt">&amp;</span>ask_mirror<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">$url</span> <span class="hl opt">=</span> <span class="hl kwb">$mirror</span><span class="hl opt">-&gt;{</span>url<span class="hl opt">};</span>
    <span class="hl opt">}</span>
    <span class="hl kwb">$url</span> <span class="hl opt">=~</span> <span class="hl kwd">s!/main/?$!!</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;chosen mirror:</span> <span class="hl ipl">$url</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
    <span class="hl kwb">$url</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> ask_suppl_media_url <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o, $method, $o_url</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$method</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;ftp&apos;</span> <span class="hl opt">||</span> <span class="hl kwb">$method</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;http&apos;</span><span class="hl opt">) {</span>
	install<span class="hl opt">::</span>any<span class="hl opt">::</span>ask_mirror<span class="hl opt">(</span><span class="hl kwb">$o,</span> <span class="hl str">&apos;distrib&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$o_url</span><span class="hl opt">);</span>
    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$method</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;cdrom&apos;</span><span class="hl opt">) {</span>
	<span class="hl str">&apos;cdrom://&apos;</span><span class="hl opt">;</span>
    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$method</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;nfs&apos;</span><span class="hl opt">) {</span>
	<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$host, $dir</span><span class="hl opt">) =</span> <span class="hl kwb">$o_url</span> ? <span class="hl kwb">$o_url</span> <span class="hl opt">=~</span> <span class="hl kwd">m!nfs://(.*?)(/.*)!</span> <span class="hl opt">: ();</span>
	<span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_</span><span class="hl opt">(</span>
	    <span class="hl opt">{</span> title <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;NFS setup&quot;</span><span class="hl opt">),</span> 
	      messages <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Please enter the hostname and directory of your NFS media&quot;</span><span class="hl opt">),</span>
	      focus_first <span class="hl opt">=&gt;</span> <span class="hl num">1</span><span class="hl opt">,</span>
	      callbacks <span class="hl opt">=&gt; {</span>
		  complete <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
		      <span class="hl kwb">$host</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> N<span class="hl opt">(</span><span class="hl str">&quot;Hostname missing&quot;</span><span class="hl opt">)),</span> <span class="hl kwa">return</span> <span class="hl num">1</span><span class="hl opt">,</span> <span class="hl num">0</span><span class="hl opt">;</span>
		      <span class="hl kwb">$dir</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;&apos;</span> <span class="hl opt">||</span> begins_with<span class="hl opt">(</span><span class="hl kwb">$dir,</span> <span class="hl str">&apos;/&apos;</span><span class="hl opt">)</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> N<span class="hl opt">(</span><span class="hl str">&quot;Directory must begin with</span> <span class="hl esc">\&quot;</span><span class="hl str">/</span><span class="hl esc">\&quot;</span><span class="hl str">&quot;</span><span class="hl opt">)),</span> <span class="hl kwa">return</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 num">0</span><span class="hl opt">;</span>
		  <span class="hl opt">},</span>
	      <span class="hl opt">} },</span>
	    <span class="hl opt">[ {</span> label <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Hostname of the NFS mount ?&quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$host</span> <span class="hl opt">},</span> 
	      <span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Directory&quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$dir</span> <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 kwb">$dir</span> <span class="hl opt">=~</span> <span class="hl kwd">s!/+$!!</span><span class="hl opt">;</span> 
	<span class="hl kwb">$dir</span> <span class="hl opt">||=</span> <span class="hl str">&apos;/&apos;</span><span class="hl opt">;</span>
	<span class="hl str">&quot;nfs://</span><span class="hl ipl">$host$dir</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span> internal_error<span class="hl opt">(</span><span class="hl str">&quot;bad method</span> <span class="hl ipl">$method</span><span class="hl str">&quot;</span><span class="hl opt">) }</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> selectSupplMedia <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">$url</span><span class="hl opt">;</span>

  ask_method<span class="hl opt">:</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$method</span> <span class="hl opt">=</span> ask_suppl_media_method<span class="hl opt">(</span><span class="hl kwb">$o</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 slc">#- configure network if needed</span>
    <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwc">scalar keys</span> <span class="hl opt">%{</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>net<span class="hl opt">}{</span>ifcfg<span class="hl opt">}} &amp;&amp;</span> <span class="hl kwb">$method</span> <span class="hl opt">!~</span> <span class="hl kwd">/^(?:cdrom|disk)/</span> <span class="hl opt">&amp;&amp; !$::</span>local_install<span class="hl opt">) {</span>
	prep_net_suppl_media<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>

  ask_url<span class="hl opt">:</span>
    <span class="hl kwb">$url</span> <span class="hl opt">=</span> ask_suppl_media_url<span class="hl opt">(</span><span class="hl kwb">$o, $method, $url</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">goto</span> ask_method<span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$phys_medium</span> <span class="hl opt">=</span> install<span class="hl opt">::</span>media<span class="hl opt">::</span>url2mounted_phys_medium<span class="hl opt">(</span><span class="hl kwb">$o, $url,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;Supplementary&quot;</span><span class="hl opt">))</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> formatError<span class="hl opt">(</span><span class="hl kwb">$&#64;</span><span class="hl opt">)),</span> <span class="hl kwa">goto</span> ask_url<span class="hl opt">;</span>
    <span class="hl kwb">$phys_medium</span><span class="hl opt">-&gt;{</span>is_suppl<span class="hl opt">} =</span> <span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl kwb">$phys_medium</span><span class="hl opt">-&gt;{</span>unknown_CD<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 kwb">$arch</span> <span class="hl opt">=</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>product_id<span class="hl opt">}{</span>arch<span class="hl opt">};</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$field</span> <span class="hl opt">=</span> <span class="hl kwb">$phys_medium</span><span class="hl opt">-&gt;{</span>device<span class="hl opt">}</span> ? <span class="hl str">&apos;rel_path&apos;</span> <span class="hl opt">:</span> <span class="hl str">&apos;url&apos;</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 kwb">$phys_medium</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$field</span><span class="hl opt">};</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$val0</span> <span class="hl opt">=</span> <span class="hl kwb">$val</span> <span class="hl opt">=~</span> <span class="hl kwd">m!^(.*?)(/media)?/?$!</span> <span class="hl opt">&amp;&amp;</span> <span class="hl str">&quot;</span><span class="hl ipl">$1/media</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$val2</span> <span class="hl opt">=</span> <span class="hl kwb">$val</span> <span class="hl opt">=~</span> <span class="hl kwd">m!^(.*?)(/\Q$arch\E)?(/media)?/?$!</span> <span class="hl opt">&amp;&amp;</span> <span class="hl str">&quot;</span><span class="hl ipl">$1/$arch/media</span><span class="hl str">&quot;</span><span class="hl opt">;</span>

    <span class="hl kwa">foreach</span> <span class="hl opt">(</span>uniq<span class="hl opt">(</span><span class="hl kwb">$val0, $val, $val2</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;trying with</span> <span class="hl ipl">$field</span> <span class="hl str">set to</span> <span class="hl ipl">$_</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
	<span class="hl kwb">$phys_medium</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$field</span><span class="hl opt">} =</span> <span class="hl kwb">$_</span><span class="hl opt">;</span>

	<span class="hl slc">#- first, try to find a media.cfg file</span>
	<span class="hl kwc">eval</span> <span class="hl opt">{</span> install<span class="hl opt">::</span>media<span class="hl opt">::</span>get_media_cfg<span class="hl opt">(</span><span class="hl kwb">$o, $phys_medium, $o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">},</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl str">&apos;force_rpmsrate&apos;</span><span class="hl opt">) };</span>
	<span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$&#64;</span><span class="hl opt">) {</span>
	    <span class="hl kwc">delete</span> <span class="hl kwb">$phys_medium</span><span class="hl opt">-&gt;{</span>unknown_CD<span class="hl opt">};</span> <span class="hl slc">#- we have a known CD now</span>
	    <span class="hl kwa">return</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 slc">#- restore it</span>
    <span class="hl kwb">$phys_medium</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$field</span><span class="hl opt">} =</span> <span class="hl kwb">$val</span><span class="hl opt">;</span>

    <span class="hl slc">#- try using media_info/hdlist.cz</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$medium_id</span> <span class="hl opt">=</span> <span class="hl kwc">int</span><span class="hl opt">(&#64;{</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">}{</span>media<span class="hl opt">}});</span>
    <span class="hl kwc">eval</span> <span class="hl opt">{</span> install<span class="hl opt">::</span>media<span class="hl opt">::</span>get_standalone_medium<span class="hl opt">(</span><span class="hl kwb">$o, $phys_medium, $o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">}, {</span> name <span class="hl opt">=&gt;</span> <span class="hl str">&quot;Supplementary media</span> <span class="hl ipl">$medium_id</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">$&#64;</span><span class="hl opt">) {</span>
	<span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;read suppl hdlist (via</span> <span class="hl ipl">$method</span><span class="hl str">)&quot;</span><span class="hl opt">);</span>
	<span class="hl kwc">delete</span> <span class="hl kwb">$phys_medium</span><span class="hl opt">-&gt;{</span>unknown_CD<span class="hl opt">};</span> <span class="hl slc">#- we have a known CD now</span>
	<span class="hl kwa">return</span> <span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>

    install<span class="hl opt">::</span>media<span class="hl opt">::</span>umount_phys_medium<span class="hl opt">(</span><span class="hl kwb">$phys_medium</span><span class="hl opt">);</span>
    install<span class="hl opt">::</span>media<span class="hl opt">::</span>remove_from_fstab<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>all_hds<span class="hl opt">},</span> <span class="hl kwb">$phys_medium</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> N<span class="hl opt">(</span><span class="hl str">&quot;Can&apos;t find a package list file on this mirror. Make sure the location is correct.&quot;</span><span class="hl opt">));</span>
    <span class="hl kwa">goto</span> ask_url<span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> load_rate_files <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 slc">#- must be done after getProvides</span>

    <span class="hl kwa">require</span> pkgs<span class="hl opt">;</span>
    pkgs<span class="hl opt">::</span>read_rpmsrate<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">},</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>rpmsrate_flags_chosen<span class="hl opt">},</span> <span class="hl str">&apos;/tmp/rpmsrate&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>match_all_hardware<span class="hl opt">});</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">$o</span><span class="hl opt">-&gt;{</span>gtk_display_compssUsers<span class="hl opt">}) =</span> install<span class="hl opt">::</span>pkgs<span class="hl opt">::</span>readCompssUsers<span class="hl opt">(</span><span class="hl str">&apos;/tmp/compssUsers.pl&apos;</span><span class="hl opt">);</span>

    <span class="hl kwc">defined</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>compssUsers<span class="hl opt">}</span> <span class="hl kwc">or die</span> <span class="hl str">&quot;Can&apos;t read compssUsers.pl file, aborting installation</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
<span class="hl opt">}</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 kwa">require</span> install<span class="hl opt">::</span>pkgs<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> install<span class="hl opt">::</span>pkgs<span class="hl opt">::</span>empty_packages<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>keep_unrequested_dependencies<span class="hl opt">});</span>
	
	<span class="hl kwc">my</span> <span class="hl kwb">$media</span> <span class="hl opt">=</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>media<span class="hl opt">} || [ {</span> type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;media_cfg&apos;</span><span class="hl opt">,</span> url <span class="hl opt">=&gt;</span> <span class="hl str">&apos;drakx://media&apos;</span> <span class="hl opt">} ];</span>

	<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$suppl_method, $copy_rpms_on_disk</span><span class="hl opt">) =</span> install<span class="hl opt">::</span>media<span class="hl opt">::</span>get_media<span class="hl opt">(</span><span class="hl kwb">$o, $media, $o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">});</span>

	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$suppl_method</span><span class="hl opt">) {</span>
	    <span class="hl num">1</span> <span class="hl kwa">while</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">selectSupplMedia</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>

	<span class="hl slc">#- open rpm db according to right mode needed</span>
	<span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">}{</span>rpmdb<span class="hl opt">} ||=</span> install<span class="hl opt">::</span>pkgs<span class="hl opt">::</span>rpmDbOpen<span class="hl opt">(</span><span class="hl str">&apos;rebuild_if_needed&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>rpm_dbapi<span class="hl opt">});</span>

	<span class="hl opt">{</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$_wait</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> N<span class="hl opt">(</span><span class="hl str">&quot;Looking at packages already installed...&quot;</span><span class="hl opt">));</span>
	    install<span class="hl opt">::</span>pkgs<span class="hl opt">::</span>selectPackagesAlreadyInstalled<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">});</span>
	<span class="hl opt">}</span>

	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$extension</span> <span class="hl opt">=</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>upgrade_by_removing_pkgs_matching<span class="hl opt">}) {</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$time</span> <span class="hl opt">=</span> <span class="hl kwc">time</span><span class="hl opt">();</span>
	    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$_w, $wait_message</span><span class="hl opt">) =</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message_with_progress_bar</span><span class="hl opt">;</span>
	    <span class="hl kwb">$wait_message</span><span class="hl opt">-&gt;(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Removing packages prior to upgrade...&quot;</span><span class="hl opt">));</span>
	    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$current, $total</span><span class="hl opt">);</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$callback</span> <span class="hl opt">=</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
		<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl kwb">$type, $_id, $subtype, $amount</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$type</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;user&apos;</span><span class="hl opt">) {</span>
		    <span class="hl opt">(</span><span class="hl kwb">$current, $total</span><span class="hl opt">) = (</span><span class="hl num">0</span><span class="hl opt">,</span> <span class="hl kwb">$amount</span><span class="hl opt">);</span>
		<span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$type</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;uninst&apos;</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$subtype</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;stop&apos;</span><span class="hl opt">) {</span>
		    <span class="hl kwb">$wait_message</span><span class="hl opt">-&gt;(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$current++, $total</span><span class="hl opt">);</span>
		<span class="hl opt">}</span>
	    <span class="hl opt">};</span>
	    <span class="hl kwc">push</span> <span class="hl opt">&#64;{</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>default_packages<span class="hl opt">}},</span> install<span class="hl opt">::</span>pkgs<span class="hl opt">::</span>upgrade_by_removing_pkgs<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">},</span> <span class="hl kwb">$callback, $extension, $o</span><span class="hl opt">-&gt;{</span>isUpgrade<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;Removing packages took: &quot;</span><span class="hl opt">,</span> formatTimeRaw<span class="hl opt">(</span><span class="hl kwc">time</span><span class="hl opt">() -</span> <span class="hl kwb">$time</span><span class="hl opt">));</span>
	<span class="hl opt">}</span>

	mark_skipped_packages<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">);</span>

	<span class="hl slc">#- always try to select basic kernel (else on upgrade, kernel will never be updated provided a kernel is already</span>
	<span class="hl slc">#- installed and provides what is necessary).</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$kernel_pkg</span> <span class="hl opt">=</span> install<span class="hl opt">::</span>pkgs<span class="hl opt">::</span>bestKernelPackage<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">},</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>match_all_hardware<span class="hl opt">});</span>
	install<span class="hl opt">::</span>pkgs<span class="hl opt">::</span>selectPackage<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">},</span> <span class="hl kwb">$kernel_pkg,</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>isUpgrade<span class="hl opt">} &amp;&amp;</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">}{</span>sizes<span class="hl opt">}{</span>dkms<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;selecting kernel-desktop-devel-latest (since dkms was installed)&quot;</span><span class="hl opt">);</span>
	    install<span class="hl opt">::</span>pkgs<span class="hl opt">::</span>select_by_package_names<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">}, [</span><span class="hl str">&apos;kernel-desktop-devel-latest&apos;</span><span class="hl opt">],</span> <span class="hl num">1</span><span class="hl opt">);</span>
	<span class="hl opt">}</span>

	install<span class="hl opt">::</span>pkgs<span class="hl opt">::</span>select_by_package_names_or_die<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">}, [</span><span class="hl str">&apos;basesystem&apos;</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 kwb">$rpmsrate_flags_was_chosen</span> <span class="hl opt">=</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>rpmsrate_flags_chosen<span class="hl opt">};</span>

	put_in_hash<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>rpmsrate_flags_chosen<span class="hl opt">} ||= {},</span> rpmsrate_always_flags<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">));</span> <span class="hl slc">#- must be done before pkgs::read_rpmsrate()</span>
	load_rate_files<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">);</span>

	install<span class="hl opt">::</span>media<span class="hl opt">::</span>copy_rpms_on_disk<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 kwb">$copy_rpms_on_disk</span><span class="hl opt">;</span>

	set_rpmsrate_default_category_flags<span class="hl opt">(</span><span class="hl kwb">$o, $rpmsrate_flags_was_chosen</span><span class="hl opt">);</span>

	<span class="hl kwc">push</span> <span class="hl opt">&#64;{</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>default_packages<span class="hl opt">}},</span> default_packages<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">);</span>
	select_default_packages<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">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 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> N<span class="hl opt">(</span><span class="hl str">&quot;Finding packages to upgrade...&quot;</span><span class="hl opt">));</span>
	    install<span class="hl opt">::</span>pkgs<span class="hl opt">::</span>selectPackagesToUpgrade<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<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>packages<span class="hl opt">}{</span>sizes<span class="hl opt">}{</span><span class="hl str">&apos;kdebase-progs&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;selecting task-kde (since kdebase-progs was installed)&quot;</span><span class="hl opt">);</span>
	    install<span class="hl opt">::</span>pkgs<span class="hl opt">::</span>select_by_package_names<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">}, [</span><span class="hl str">&apos;task-kde&apos;</span><span class="hl opt">]);</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> count_files <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$dir</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl opt">-</span>d <span class="hl kwb">$dir</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
    <span class="hl kwc">opendir my</span> <span class="hl kwb">$dh, $dir</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">&#64;list</span> <span class="hl opt">=</span> <span class="hl kwc">grep</span> <span class="hl opt">{ !</span><span class="hl kwd">/^\.\.?$/</span> <span class="hl opt">}</span> <span class="hl kwc">readdir</span> <span class="hl kwb">$dh</span><span class="hl opt">;</span>
    <span class="hl kwc">closedir</span> <span class="hl kwb">$dh</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 num">0</span><span class="hl opt">;</span>
    <span class="hl kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$n</span> <span class="hl opt">(</span><span class="hl kwb">&#64;list</span><span class="hl opt">) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$p</span> <span class="hl opt">=</span> <span class="hl str">&quot;</span><span class="hl ipl">$dir/$n</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
	<span class="hl kwa">if</span> <span class="hl opt">(-</span>d <span class="hl kwb">$p</span><span class="hl opt">) {</span> <span class="hl kwb">$c</span> <span class="hl opt">+=</span> count_files<span class="hl opt">(</span><span class="hl kwb">$p</span><span class="hl opt">) }</span> <span class="hl kwa">else</span> <span class="hl opt">{ ++</span><span class="hl kwb">$c</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 opt">}</span>

<span class="hl kwa">sub</span> cp_with_progress <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$wait_message</span> <span class="hl opt">=</span> <span class="hl kwc">shift</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$current</span> <span class="hl opt">=</span> <span class="hl kwc">shift</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$total</span> <span class="hl opt">=</span> <span class="hl kwc">shift</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$dest</span> <span class="hl opt">=</span> <span class="hl kwc">pop</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    cp_with_progress_<span class="hl opt">({</span> keep_special <span class="hl opt">=&gt;</span> <span class="hl num">1</span> <span class="hl opt">},</span> <span class="hl kwb">$wait_message, $total,</span> \<span class="hl kwb">&#64;_, $dest</span><span class="hl opt">);</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> cp_with_progress_ <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$options, $wait_message, $total, $list, $dest</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwb">&#64;$list</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
    <span class="hl kwb">&#64;$list</span> <span class="hl opt">==</span> <span class="hl num">1</span> <span class="hl opt">|| -</span>d <span class="hl kwb">$dest</span> <span class="hl kwc">or die</span> <span class="hl str">&quot;cp: copying multiple files, but last argument (</span><span class="hl ipl">$dest</span><span class="hl str">) is not a directory</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">;</span>

    <span class="hl opt">-</span>d <span class="hl kwb">$dest</span> <span class="hl kwc">or</span> <span class="hl kwb">$dest</span> <span class="hl opt">=</span> dirname<span class="hl opt">(</span><span class="hl kwb">$dest</span><span class="hl opt">);</span>
    _cp_with_progress<span class="hl opt">(</span><span class="hl kwb">$options, $wait_message,</span> <span class="hl num">0</span><span class="hl opt">,</span> <span class="hl kwb">$total, $list, $dest</span><span class="hl opt">);</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> _cp_with_progress <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$options, $wait_message, $current, $total, $list, $dest</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$src</span> <span class="hl opt">(</span><span class="hl kwb">&#64;$list</span><span class="hl opt">) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$dest</span> <span class="hl opt">=</span> <span class="hl kwb">$dest</span><span class="hl opt">;</span>
	<span class="hl opt">-</span>d <span class="hl kwb">$dest</span> <span class="hl kwc">and</span> <span class="hl kwb">$dest</span> <span class="hl opt">.=</span> <span class="hl str">&apos;/&apos;</span> <span class="hl opt">.</span> basename<span class="hl opt">(</span><span class="hl kwb">$src</span><span class="hl opt">);</span>

	<span class="hl kwc">unlink</span> <span class="hl kwb">$dest</span><span class="hl opt">;</span>

	<span class="hl kwa">if</span> <span class="hl opt">(-</span>l <span class="hl kwb">$src</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$options</span><span class="hl opt">-&gt;{</span>keep_special<span class="hl opt">}) {</span>
	    <span class="hl kwa">unless</span> <span class="hl opt">(</span><span class="hl kwc">symlink</span><span class="hl opt">(</span><span class="hl kwc">readlink</span><span class="hl opt">(</span><span class="hl kwb">$src</span><span class="hl opt">) ||</span> <span class="hl kwc">die</span><span class="hl opt">(</span><span class="hl str">&quot;readlink failed:</span> <span class="hl ipl">$!</span><span class="hl str">&quot;</span><span class="hl opt">),</span> <span class="hl kwb">$dest</span><span class="hl opt">)) {</span>
		<span class="hl kwc">warn</span> <span class="hl str">&quot;symlink: can&apos;t create symlink</span> <span class="hl ipl">$dest</span><span class="hl str">:</span> <span class="hl ipl">$!\n</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(-</span>d <span class="hl kwb">$src</span><span class="hl opt">) {</span>
	    <span class="hl opt">-</span>d <span class="hl kwb">$dest</span> <span class="hl kwc">or mkdir</span> <span class="hl kwb">$dest,</span> <span class="hl opt">(</span><span class="hl kwc">stat</span><span class="hl opt">(</span><span class="hl kwb">$src</span><span class="hl opt">))[</span><span class="hl num">2</span><span class="hl opt">]</span> <span class="hl kwc">or die</span> <span class="hl str">&quot;mkdir: can&apos;t create directory</span> <span class="hl ipl">$dest</span><span class="hl str">:</span> <span class="hl ipl">$!\n</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
	    _cp_with_progress<span class="hl opt">(</span><span class="hl kwb">$options, $wait_message, $current, $total,</span> <span class="hl opt">[</span> glob_<span class="hl opt">(</span><span class="hl kwb">$src</span><span class="hl opt">) ],</span> <span class="hl kwb">$dest</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">open</span><span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$F, $src</span><span class="hl opt">)</span> <span class="hl kwc">or die</span> <span class="hl str">&quot;can&apos;t open</span> <span class="hl ipl">$src</span> <span class="hl str">for reading:</span> <span class="hl ipl">$!\n</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
	    <span class="hl kwc">open</span><span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$G,</span> <span class="hl str">&quot;&gt;&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$dest</span><span class="hl opt">)</span> <span class="hl kwc">or die</span> <span class="hl str">&quot;can&apos;t cp to file</span> <span class="hl ipl">$dest</span><span class="hl str">:</span> <span class="hl ipl">$!\n</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
	    <span class="hl kwc">local</span> <span class="hl kwb">$/</span> <span class="hl opt">=</span> <span class="hl esc">\409</span>6<span class="hl opt">;</span>
	    <span class="hl kwc">local</span> <span class="hl kwb">$_</span><span class="hl opt">;</span> <span class="hl kwa">while</span> <span class="hl opt">(&lt;</span><span class="hl kwb">$F</span><span class="hl opt">&gt;) {</span> <span class="hl kwc">print</span> <span class="hl kwb">$G $_</span> <span class="hl opt">}</span>
	    <span class="hl kwc">chmod</span><span class="hl opt">((</span><span class="hl kwc">stat</span><span class="hl opt">(</span><span class="hl kwb">$src</span><span class="hl opt">))[</span><span class="hl num">2</span><span class="hl opt">],</span> <span class="hl kwb">$dest</span><span class="hl opt">);</span>
	    <span class="hl kwb">$wait_message</span><span class="hl opt">-&gt;(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">, ++</span><span class="hl kwb">$current, $total</span><span class="hl opt">);</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> set_rpmsrate_default_category_flags <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o, $rpmsrate_flags_was_chosen</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl slc">#- if no cleaning needed, populate by default, clean is used for second or more call to this function.</span>
    <span class="hl kwa">if</span> <span class="hl opt">($::</span>auto_install <span class="hl opt">&amp;&amp; (</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>rpmsrate_flags_chosen<span class="hl opt">} || {})-&gt;{</span>CAT_ALL<span class="hl opt">}) {</span>
	<span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>rpmsrate_flags_chosen<span class="hl opt">}{</span><span class="hl str">&quot;CAT_</span><span class="hl ipl">$_</span><span class="hl str">&quot;</span><span class="hl opt">} =</span> <span class="hl num">1</span> <span class="hl kwa">foreach</span> <span class="hl kwc">map</span> <span class="hl opt">{ &#64;{</span><span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>flags<span class="hl opt">}} } &#64;{</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>compssUsers<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">$rpmsrate_flags_was_chosen</span> <span class="hl opt">&amp;&amp; !</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>isUpgrade<span class="hl opt">}) {</span>
	<span class="hl slc">#- use default selection seen in compssUsers directly.</span>
	<span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>selected<span class="hl opt">} =</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>default_selected<span class="hl opt">}</span> <span class="hl kwa">foreach</span> <span class="hl opt">&#64;{</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>compssUsers<span class="hl opt">}};</span>
	set_rpmsrate_category_flags<span class="hl opt">(</span><span class="hl kwb">$o, $o</span><span class="hl opt">-&gt;{</span>compssUsers<span class="hl opt">});</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> set_rpmsrate_category_flags <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o, $compssUsers</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>rpmsrate_flags_chosen<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">grep</span> <span class="hl opt">{</span> <span class="hl kwd">/^CAT_/</span> <span class="hl opt">}</span> <span class="hl kwc">keys</span> <span class="hl opt">%{</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>rpmsrate_flags_chosen<span class="hl opt">}};</span>
    <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>rpmsrate_flags_chosen<span class="hl opt">}{</span><span class="hl str">&quot;CAT_</span><span class="hl ipl">$_</span><span class="hl str">&quot;</span><span class="hl opt">} =</span> <span class="hl num">1</span> <span class="hl kwa">foreach</span> <span class="hl kwc">map</span> <span class="hl opt">{ &#64;{</span><span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>flags<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>selected<span class="hl opt">} }</span> <span class="hl kwb">&#64;$compssUsers</span><span class="hl opt">;</span>
    <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>rpmsrate_flags_chosen<span class="hl opt">}{</span>CAT_SYSTEM<span class="hl opt">} =</span> <span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>rpmsrate_flags_chosen<span class="hl opt">}{</span>CAT_MINIMAL_DOCS<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> rpmsrate_always_flags <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">$rpmsrate_flags_chosen</span> <span class="hl opt">= {};</span>
    <span class="hl kwb">$rpmsrate_flags_chosen</span><span class="hl opt">-&gt;{</span><span class="hl str">qq(META_CLASS&quot;</span><span class="hl ipl">$o</span><span class="hl str">-&gt;{meta_class}&quot;)</span><span class="hl opt">} =</span> <span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl kwb">$rpmsrate_flags_chosen</span><span class="hl opt">-&gt;{</span><span class="hl kwc">uc</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 kwc">grep</span> <span class="hl opt">{</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>match_all_hardware<span class="hl opt">} ||</span> detect_devices<span class="hl opt">::</span>probe_category<span class="hl opt">(</span><span class="hl str">&quot;multimedia/</span><span class="hl ipl">$_</span><span class="hl str">&quot;</span><span class="hl opt">) }</span> modules<span class="hl opt">::</span>sub_categories<span class="hl opt">(</span><span class="hl str">&apos;multimedia&apos;</span><span class="hl opt">);</span>
    <span class="hl kwb">$rpmsrate_flags_chosen</span><span class="hl opt">-&gt;{</span><span class="hl kwc">uc</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> detect_devices<span class="hl opt">::</span>probe_name<span class="hl opt">(</span><span class="hl str">&apos;Flag&apos;</span><span class="hl opt">);</span>
    <span class="hl kwb">$rpmsrate_flags_chosen</span><span class="hl opt">-&gt;{</span>UTF8<span class="hl opt">} =</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>locale<span class="hl opt">}{</span>utf8<span class="hl opt">};</span>
    <span class="hl kwb">$rpmsrate_flags_chosen</span><span class="hl opt">-&gt;{</span>BURNER<span class="hl opt">} =</span> <span class="hl num">1</span> <span class="hl kwa">if</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>match_all_hardware<span class="hl opt">} ||</span> detect_devices<span class="hl opt">::</span>burners<span class="hl opt">();</span>
    <span class="hl kwb">$rpmsrate_flags_chosen</span><span class="hl opt">-&gt;{</span>DVD<span class="hl opt">} =</span> <span class="hl num">1</span> <span class="hl kwa">if</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>match_all_hardware<span class="hl opt">} ||</span> detect_devices<span class="hl opt">::</span>dvdroms<span class="hl opt">();</span>
    <span class="hl kwb">$rpmsrate_flags_chosen</span><span class="hl opt">-&gt;{</span>USB<span class="hl opt">} =</span> <span class="hl num">1</span> <span class="hl kwa">if</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>match_all_hardware<span class="hl opt">} ||</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>modules_conf<span class="hl opt">}-&gt;</span><span class="hl kwd">get_probeall</span><span class="hl opt">(</span><span class="hl str">&quot;usb-interface&quot;</span><span class="hl opt">);</span>
    <span class="hl kwb">$rpmsrate_flags_chosen</span><span class="hl opt">-&gt;{</span>PCMCIA<span class="hl opt">} =</span> <span class="hl num">1</span> <span class="hl kwa">if</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>match_all_hardware<span class="hl opt">} ||</span> detect_devices<span class="hl opt">::</span>hasPCMCIA<span class="hl opt">();</span>
    <span class="hl kwb">$rpmsrate_flags_chosen</span><span class="hl opt">-&gt;{</span>HIGH_SECURITY<span class="hl opt">} =</span> <span class="hl num">1</span> <span class="hl kwa">if</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>security<span class="hl opt">} &gt;</span> <span class="hl num">3</span><span class="hl opt">;</span>
    <span class="hl kwb">$rpmsrate_flags_chosen</span><span class="hl opt">-&gt;{</span>BIGMEM<span class="hl opt">} =</span> <span class="hl num">1</span> <span class="hl kwa">if</span> detect_devices<span class="hl opt">::</span>BIGMEM<span class="hl opt">();</span>
    <span class="hl kwb">$rpmsrate_flags_chosen</span><span class="hl opt">-&gt;{</span>SMP<span class="hl opt">} =</span> <span class="hl num">1</span> <span class="hl kwa">if</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>match_all_hardware<span class="hl opt">} ||</span> detect_devices<span class="hl opt">::</span>hasSMP<span class="hl opt">();</span>
    <span class="hl kwb">$rpmsrate_flags_chosen</span><span class="hl opt">-&gt;{</span>CDCOM<span class="hl opt">} =</span> <span class="hl num">1</span> <span class="hl kwa">if</span> any <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>name<span class="hl opt">} =~</span> <span class="hl kwd">/commercial/i</span> <span class="hl opt">}</span> install<span class="hl opt">::</span>media<span class="hl opt">::</span>allMediums<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">});</span>
    <span class="hl kwb">$rpmsrate_flags_chosen</span><span class="hl opt">-&gt;{</span><span class="hl str">&apos;3D&apos;</span><span class="hl opt">} =</span> <span class="hl num">1</span> <span class="hl kwa">if</span>
      <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>match_all_hardware<span class="hl opt">} ||</span>
      detect_devices<span class="hl opt">::</span>matching_desc__regexp<span class="hl opt">(</span><span class="hl str">&apos;Matrox.* G[245][05]0&apos;</span><span class="hl opt">) ||</span>
      detect_devices<span class="hl opt">::</span>matching_desc__regexp<span class="hl opt">(</span><span class="hl str">&apos;Rage X[CL]&apos;</span><span class="hl opt">) ||</span>
      detect_devices<span class="hl opt">::</span>matching_desc__regexp<span class="hl opt">(</span><span class="hl str">&apos;3D Rage (?:LT|Pro)&apos;</span><span class="hl opt">) ||</span>
      detect_devices<span class="hl opt">::</span>matching_desc__regexp<span class="hl opt">(</span><span class="hl str">&apos;Voodoo [35]&apos;</span><span class="hl opt">) ||</span>
      detect_devices<span class="hl opt">::</span>matching_desc__regexp<span class="hl opt">(</span><span class="hl str">&apos;Voodoo Banshee&apos;</span><span class="hl opt">) ||</span>
      detect_devices<span class="hl opt">::</span>matching_desc__regexp<span class="hl opt">(</span><span class="hl str">&apos;8281[05].* CGC&apos;</span><span class="hl opt">) ||</span>
      detect_devices<span class="hl opt">::</span>matching_desc__regexp<span class="hl opt">(</span><span class="hl str">&apos;Rage 128&apos;</span><span class="hl opt">) ||</span>
      detect_devices<span class="hl opt">::</span>matching_desc__regexp<span class="hl opt">(</span><span class="hl str">&apos;Radeon &apos;</span><span class="hl opt">) ||</span> <span class="hl slc">#- all Radeon card are now 3D with 4.3.0</span>
      detect_devices<span class="hl opt">::</span>matching_desc__regexp<span class="hl opt">(</span><span class="hl str">&apos;[nN]Vidia.*T[nN]T2&apos;</span><span class="hl opt">) ||</span> <span class="hl slc">#- TNT2 cards</span>
      detect_devices<span class="hl opt">::</span>matching_desc__regexp<span class="hl opt">(</span><span class="hl str">&apos;[nN][vV]idia.*NV[56]&apos;</span><span class="hl opt">) ||</span>
      detect_devices<span class="hl opt">::</span>matching_desc__regexp<span class="hl opt">(</span><span class="hl str">&apos;[nN][vV]idia.*Vanta&apos;</span><span class="hl opt">) ||</span>
      detect_devices<span class="hl opt">::</span>matching_desc__regexp<span class="hl opt">(</span><span class="hl str">&apos;[nN][vV]idia.*[gG]e[fF]orce&apos;</span><span class="hl opt">) ||</span> <span class="hl slc">#- GeForce cards</span>
      detect_devices<span class="hl opt">::</span>matching_desc__regexp<span class="hl opt">(</span><span class="hl str">&apos;[nN][vV]idia.*NV1[15]&apos;</span><span class="hl opt">) ||</span>
      detect_devices<span class="hl opt">::</span>matching_desc__regexp<span class="hl opt">(</span><span class="hl str">&apos;[nN][vV]idia.*Quadro&apos;</span><span class="hl opt">);</span>

    <span class="hl kwa">foreach</span> <span class="hl opt">(</span>lang<span class="hl opt">::</span>langsLANGUAGE<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>locale<span class="hl opt">}{</span>langs<span class="hl opt">})) {</span>
	<span class="hl kwb">$rpmsrate_flags_chosen</span><span class="hl opt">-&gt;{</span><span class="hl str">qq(LOCALES&quot;</span><span class="hl ipl">$_</span><span class="hl str">&quot;)</span><span class="hl opt">} =</span> <span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl kwb">$rpmsrate_flags_chosen</span><span class="hl opt">-&gt;{</span><span class="hl str">&apos;CHARSET&quot;&apos;</span> <span class="hl opt">.</span> lang<span class="hl opt">::</span>l2charset<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>locale<span class="hl opt">}{</span>lang<span class="hl opt">}) .</span> <span class="hl str">&apos;&quot;&apos;</span><span class="hl opt">} =</span> <span class="hl num">1</span><span class="hl opt">;</span>

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

<span class="hl kwa">sub</span> default_packages <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">&#64;l</span><span class="hl opt">;</span>

    <span class="hl kwc">push</span> <span class="hl kwb">&#64;l,</span> <span class="hl str">&quot;brltty&quot;</span> <span class="hl kwa">if</span> cat_<span class="hl opt">(</span><span class="hl str">&quot;/proc/cmdline&quot;</span><span class="hl opt">) =~</span> <span class="hl kwd">/brltty=/</span><span class="hl opt">;</span>
    <span class="hl kwc">push</span> <span class="hl kwb">&#64;l,</span> <span class="hl str">&quot;nfs-utils-clients&quot;</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">&quot;nfs&quot;</span><span class="hl opt">;</span>
    <span class="hl kwc">push</span> <span class="hl kwb">&#64;l,</span> <span class="hl str">&quot;mdadm&quot;</span> <span class="hl kwa">if</span> <span class="hl opt">!</span>is_empty_array_ref<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>all_hds<span class="hl opt">}{</span>raids<span class="hl opt">});</span>
    <span class="hl kwc">push</span> <span class="hl kwb">&#64;l,</span> <span class="hl str">&quot;lvm2&quot;</span> <span class="hl kwa">if</span> <span class="hl opt">!</span>is_empty_array_ref<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>all_hds<span class="hl opt">}{</span>lvms<span class="hl opt">});</span>
    <span class="hl kwc">push</span> <span class="hl kwb">&#64;l,</span> <span class="hl str">&quot;dmraid&quot;</span> <span class="hl kwa">if</span> any <span class="hl opt">{</span> fs<span class="hl opt">::</span>type<span class="hl opt">::</span>is_dmraid<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">) } &#64;{</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>all_hds<span class="hl opt">}{</span>hds<span class="hl opt">}};</span>
    <span class="hl kwc">push</span> <span class="hl kwb">&#64;l,</span> <span class="hl str">&apos;powernowd&apos;</span> <span class="hl kwa">if</span> cat_<span class="hl opt">(</span><span class="hl str">&apos;/proc/cpuinfo&apos;</span><span class="hl opt">) =~</span> <span class="hl kwd">/AuthenticAMD/</span> <span class="hl opt">&amp;&amp;</span> arch<span class="hl opt">() =~</span> <span class="hl kwd">/x86_64/</span>
      <span class="hl opt">||</span> cat_<span class="hl opt">(</span><span class="hl str">&apos;/proc/cpuinfo&apos;</span><span class="hl opt">) =~</span> <span class="hl kwd">/model name.*Intel\(R\) Core\(TM\)2 CPU/</span><span class="hl opt">;</span>
    <span class="hl kwc">push</span> <span class="hl kwb">&#64;l,</span> detect_devices<span class="hl opt">::</span>probe_name<span class="hl opt">(</span><span class="hl str">&apos;Pkg&apos;</span><span class="hl opt">);</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$dmi_BIOS</span> <span class="hl opt">=</span> detect_devices<span class="hl opt">::</span>dmidecode_category<span class="hl opt">(</span><span class="hl str">&apos;BIOS&apos;</span><span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$dmi_Base_Board</span> <span class="hl opt">=</span> detect_devices<span class="hl opt">::</span>dmidecode_category<span class="hl opt">(</span><span class="hl str">&apos;Base Board&apos;</span><span class="hl opt">);</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$dmi_BIOS</span><span class="hl opt">-&gt;{</span>Vendor<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;COMPAL&apos;</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$dmi_BIOS</span><span class="hl opt">-&gt;{</span>Characteristics<span class="hl opt">} =~</span> <span class="hl kwd">/Function key-initiated network boot is supported/</span>
          <span class="hl opt">||</span> <span class="hl kwb">$dmi_Base_Board</span><span class="hl opt">-&gt;{</span>Manufacturer<span class="hl opt">} =~</span> <span class="hl kwd">/^ACER/</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$dmi_Base_Board</span><span class="hl opt">-&gt;{</span><span class="hl str">&apos;Product Name&apos;</span><span class="hl opt">} =~</span> <span class="hl kwd">/TravelMate 610/</span><span class="hl opt">) {</span>
	<span class="hl slc">#- FIXME : append correct options (wireless, ...)</span>
	modules<span class="hl opt">::</span>append_to_modules_loaded_at_startup_for_all_kernels<span class="hl opt">(</span><span class="hl str">&apos;acerhk&apos;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>

    <span class="hl kwc">push</span> <span class="hl kwb">&#64;l,</span> <span class="hl str">&apos;quota&apos;</span> <span class="hl kwa">if</span> any <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>options<span class="hl opt">} =~</span> <span class="hl kwd">/usrquota|grpquota/</span> <span class="hl opt">} &#64;{</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>fstab<span class="hl opt">}};</span>
    <span class="hl kwc">push</span> <span class="hl kwb">&#64;l,</span> uniq<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 kwc">map</span> <span class="hl opt">{</span> fs<span class="hl opt">::</span>format<span class="hl opt">::</span>package_needed_for_partition_type<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">) } &#64;{</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>fstab<span class="hl opt">}});</span>
    <span class="hl kwc">push</span> <span class="hl kwb">&#64;l,</span> <span class="hl str">&apos;ntfs-3g&apos;</span> <span class="hl kwa">if</span> any <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>fs_type<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;ntfs-3g&apos;</span> <span class="hl opt">} &#64;{</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>fstab<span class="hl opt">}};</span>

    <span class="hl slc"># handle locales with specified scripting:</span>
    <span class="hl kwc">my</span> <span class="hl kwb">&#64;languages</span> <span class="hl opt">=</span> <span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl kwd">s/\&#64;.*//</span><span class="hl opt">;</span> <span class="hl kwb">$_</span> <span class="hl opt">}</span> lang<span class="hl opt">::</span>langsLANGUAGE<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>locale<span class="hl opt">}{</span>langs<span class="hl opt">});</span>
    <span class="hl kwc">my</span> <span class="hl kwb">&#64;locale_pkgs</span> <span class="hl opt">=</span> <span class="hl kwc">map</span> <span class="hl opt">{</span> URPM<span class="hl opt">::</span>packages_providing<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">},</span> <span class="hl str">&apos;locales-&apos;</span> <span class="hl opt">.</span> <span class="hl kwb">$_</span><span class="hl opt">) }</span> <span class="hl kwb">&#64;languages</span><span class="hl opt">;</span>
    <span class="hl kwc">unshift</span> <span class="hl kwb">&#64;l,</span> uniq<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 kwd">name</span> <span class="hl opt">}</span> <span class="hl kwb">&#64;locale_pkgs</span><span class="hl opt">);</span>

    <span class="hl kwb">&#64;l</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> mark_skipped_packages <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>
    install<span class="hl opt">::</span>pkgs<span class="hl opt">::</span>skip_packages<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">},</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>skipped_packages<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>skipped_packages<span class="hl opt">};</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> select_default_packages <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>
    install<span class="hl opt">::</span>pkgs<span class="hl opt">::</span>select_by_package_names<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">},</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>default_packages<span class="hl opt">});</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> unselectMostPackages <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>
    install<span class="hl opt">::</span>pkgs<span class="hl opt">::</span>unselectAllPackages<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">});</span>
    select_default_packages<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> warnAboutNaughtyServers <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">&#64;naughtyServers</span> <span class="hl opt">=</span> install<span class="hl opt">::</span>pkgs<span class="hl opt">::</span>naughtyServers<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">})</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span> <span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$r</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> 
formatAlaTeX<span class="hl opt">(</span>
             <span class="hl slc">#-PO: keep the double empty lines between sections, this is formatted a la LaTeX</span>
             N<span class="hl opt">(</span><span class="hl str">&quot;You have selected the following server(s):</span> <span class="hl ipl">%s</span>
<span class="hl str"></span>
<span class="hl str"></span>
<span class="hl str">These servers are activated by default. They do not have any known security</span>
<span class="hl str">issues, but some new ones could be found. In that case, you must make sure</span>
<span class="hl str">to upgrade as soon as possible.</span>
<span class="hl str"></span>
<span class="hl str"></span>
<span class="hl str">Do you really want to install these servers?</span>
<span class="hl str">&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 kwb">&#64;naughtyServers</span><span class="hl opt">))), [</span> N_<span class="hl opt">(</span><span class="hl str">&quot;Yes&quot;</span><span class="hl opt">),</span> N_<span class="hl opt">(</span><span class="hl str">&quot;No&quot;</span><span class="hl opt">) ],</span> <span class="hl str">&apos;Yes&apos;</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">$r</span> <span class="hl kwc">ne</span> <span class="hl str">&apos;Yes&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;unselecting naughty servers: &quot;</span> <span class="hl opt">.</span> <span class="hl kwc">join</span><span class="hl opt">(</span><span class="hl str">&apos; &apos;</span><span class="hl opt">,</span> <span class="hl kwb">&#64;naughtyServers</span><span class="hl opt">));</span>
	install<span class="hl opt">::</span>pkgs<span class="hl opt">::</span>unselectPackage<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">},</span> install<span class="hl opt">::</span>pkgs<span class="hl opt">::</span>packageByName<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">},</span> <span class="hl kwb">$_</span><span class="hl opt">))</span> <span class="hl kwa">foreach</span> <span class="hl kwb">&#64;naughtyServers</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> warnAboutRemovedPackages <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;removedPackages</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><span class="hl kwc">state</span><span class="hl opt">}{</span>ask_remove<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">$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> 
formatAlaTeX<span class="hl opt">(</span>
             <span class="hl slc">#-PO: keep the double empty lines between sections, this is formatted a la LaTeX</span>
             N<span class="hl opt">(</span><span class="hl str">&quot;The following packages will be removed to allow upgrading your system:</span> <span class="hl ipl">%s</span>
<span class="hl str"></span>
<span class="hl str"></span>
<span class="hl str">Do you really want to remove these packages?</span>
<span class="hl str">&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 kwb">&#64;removedPackages</span><span class="hl opt">))),</span> <span class="hl num">1</span><span class="hl opt">)) {</span>
	<span class="hl kwb">$packages</span><span class="hl opt">-&gt;{</span><span class="hl kwc">state</span><span class="hl opt">}{</span>ask_remove<span class="hl opt">} = {};</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> addToBeDone<span class="hl opt">(&amp;$) {</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$f, $step</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 opt">&amp;</span><span class="hl kwb">$f</span><span class="hl opt">()</span> <span class="hl kwa">if</span> <span class="hl opt">$::</span>o-<span class="hl opt">&gt;{</span>steps<span class="hl opt">}{</span><span class="hl kwb">$step</span><span class="hl opt">}{</span>done<span class="hl opt">};</span>

    <span class="hl kwc">push</span> <span class="hl opt">&#64;{$::</span>o-<span class="hl opt">&gt;{</span>steps<span class="hl opt">}{</span><span class="hl kwb">$step</span><span class="hl opt">}{</span>toBeDone<span class="hl opt">}},</span> <span class="hl kwb">$f</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> set_authentication <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">$when_network_is_up</span> <span class="hl opt">=</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
	<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$f</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
	<span class="hl slc">#- defer running xxx - no network yet</span>
	addToBeDone <span class="hl opt">{</span>
	    <span class="hl kwa">require</span> install<span class="hl opt">::</span>steps<span class="hl opt">;</span>
	    install<span class="hl opt">::</span>steps<span class="hl opt">::</span>upNetwork<span class="hl opt">(</span><span class="hl kwb">$o,</span> <span class="hl str">&apos;pppAvoided&apos;</span><span class="hl opt">);</span>
	    <span class="hl kwb">$f</span><span class="hl opt">-&gt;();</span>
	<span class="hl opt">}</span> <span class="hl str">&apos;configureNetwork&apos;</span><span class="hl opt">;</span>
    <span class="hl opt">};</span>
    <span class="hl kwa">require</span> authentication<span class="hl opt">;</span>
    authentication<span class="hl opt">::</span>set<span class="hl opt">(</span><span class="hl kwb">$o, $o</span><span class="hl opt">-&gt;{</span>net<span class="hl opt">},</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>authentication<span class="hl opt">} ||= {},</span> <span class="hl kwb">$when_network_is_up</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl slc">#-###############################################################################</span>
<span class="hl slc">#- kde stuff</span>
<span class="hl slc">#-###############################################################################</span>
<span class="hl kwa">sub</span> kdemove_desktop_file <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$prefix</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;toMove</span> <span class="hl opt">=</span> <span class="hl str">qw(doc.kdelnk news.kdelnk updates.kdelnk home.kdelnk printer.kdelnk floppy.kdelnk cdrom.kdelnk FLOPPY.kdelnk CDROM.kdelnk)</span><span class="hl opt">;</span>

    <span class="hl slc">#- remove any existing save in Trash of each user and</span>
    <span class="hl slc">#- move appropriate file there after an upgrade.</span>
    <span class="hl kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$dir</span> <span class="hl opt">(</span><span class="hl kwc">grep</span> <span class="hl opt">{ -</span>d <span class="hl kwb">$_</span> <span class="hl opt">}</span> list_skels<span class="hl opt">(</span><span class="hl kwb">$prefix,</span> <span class="hl str">&apos;Desktop&apos;</span><span class="hl opt">)) {</span>
	renamef<span class="hl opt">(</span><span class="hl str">&quot;</span><span class="hl ipl">$dir/$_</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;</span><span class="hl ipl">$dir/Trash/$_</span><span class="hl str">&quot;</span><span class="hl opt">)</span> 
	  <span class="hl kwa">foreach</span> <span class="hl kwc">grep</span> <span class="hl opt">{ -</span>e <span class="hl str">&quot;</span><span class="hl ipl">$dir/$_</span><span class="hl str">&quot;</span> <span class="hl opt">}</span> <span class="hl kwb">&#64;toMove,</span> <span class="hl kwc">grep</span> <span class="hl opt">{ /</span>\<span class="hl opt">.</span>rpmorig<span class="hl kwb">$/</span> <span class="hl opt">}</span> all<span class="hl opt">(</span><span class="hl kwb">$dir</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>


<span class="hl slc">#-###############################################################################</span>
<span class="hl slc">#- auto_install stuff</span>
<span class="hl slc">#-###############################################################################</span>
<span class="hl kwa">sub</span> auto_inst_file<span class="hl opt">() {</span> <span class="hl str">&quot;$::prefix/root/drakx/auto_inst.cfg.pl&quot;</span> <span class="hl opt">}</span>

<span class="hl kwa">sub</span> report_bug<span class="hl opt">() {</span>
    any<span class="hl opt">::</span>report_bug<span class="hl opt">(</span><span class="hl str">&apos;auto_inst&apos;</span> <span class="hl opt">=&gt;</span> g_auto_install<span class="hl opt">(</span><span class="hl str">&apos;&apos;</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> g_auto_install <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$b_replay, $b_respect_privacy</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">$o</span> <span class="hl opt">= {};</span>

    <span class="hl kwa">require</span> install<span class="hl opt">::</span>pkgs<span class="hl opt">;</span>
    <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>default_packages<span class="hl opt">} =</span> install<span class="hl opt">::</span>pkgs<span class="hl opt">::</span>selected_leaves<span class="hl opt">($::</span>o-<span class="hl opt">&gt;{</span>packages<span class="hl opt">});</span>

    <span class="hl kwc">my</span> <span class="hl kwb">&#64;fields</span> <span class="hl opt">=</span> <span class="hl str">qw(mntpoint fs_type size)</span><span class="hl opt">;</span>
    <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>partitions<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">%l</span><span class="hl opt">;</span> <span class="hl kwb">&#64;l</span><span class="hl opt">{</span><span class="hl kwb">&#64;fields</span><span class="hl opt">} =</span> <span class="hl kwb">&#64;$_</span><span class="hl opt">{</span><span class="hl kwb">&#64;fields</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 kwc">grep</span> <span class="hl opt">{</span> 
	<span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>mntpoint<span class="hl opt">} &amp;&amp;</span> fs<span class="hl opt">::</span>format<span class="hl opt">::</span>known_type<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">);</span>
    <span class="hl opt">} &#64;{$::</span>o-<span class="hl opt">&gt;{</span>fstab<span class="hl opt">}} ];</span>
    
    <span class="hl kwc">exists</span> <span class="hl opt">$::</span>o-<span class="hl opt">&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">}</span> <span class="hl kwc">and</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">} = $::</span>o-<span class="hl opt">&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">}</span> <span class="hl kwa">foreach</span> <span class="hl str">qw(locale authentication mouse net timezone superuser keyboard users partitioning isUpgrade manualFstab nomouseprobe crypto security security_user autoExitInstall X services postInstall postInstallNonRooted)</span><span class="hl opt">;</span> <span class="hl slc">#- TODO modules bootloader </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>auto_allocate<span class="hl opt">} = !</span><span class="hl kwb">$b_replay</span><span class="hl opt">;</span>
    <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>autoExitInstall<span class="hl opt">} = !</span><span class="hl kwb">$b_replay</span><span class="hl opt">;</span>
    <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>interactiveSteps<span class="hl opt">} = [</span> <span class="hl str">&apos;doPartitionDisks&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;formatPartitions&apos;</span> <span class="hl opt">]</span> <span class="hl kwa">if</span> <span class="hl kwb">$b_replay</span><span class="hl opt">;</span>

    <span class="hl slc">#- deep copy because we&apos;re modifying it below</span>
    <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>users<span class="hl opt">} =</span> <span class="hl kwb">$b_respect_privacy</span> ? <span class="hl opt">[] : [ &#64;{</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>users<span class="hl opt">} || []} ];</span>

    <span class="hl kwc">my</span> <span class="hl kwb">&#64;user_info_to_remove</span> <span class="hl opt">= (</span>
	if_<span class="hl opt">(</span><span class="hl kwb">$b_respect_privacy,</span> <span class="hl str">qw(realname pw)</span><span class="hl opt">),</span> 
	<span class="hl str">qw(oldu oldg password password2)</span><span class="hl opt">,</span>
    <span class="hl opt">);</span>
    <span class="hl kwb">$_</span> <span class="hl opt">= { %{</span><span class="hl kwb">$_</span> <span class="hl opt">|| {}} },</span> <span class="hl kwc">delete</span> <span class="hl kwb">&#64;$_</span><span class="hl opt">{</span><span class="hl kwb">&#64;user_info_to_remove</span><span class="hl opt">}</span> <span class="hl kwa">foreach</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>superuser<span class="hl opt">}, &#64;{</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>users<span class="hl opt">} || []};</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$b_respect_privacy</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>net<span class="hl opt">}) {</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$type</span> <span class="hl opt">=</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>net<span class="hl opt">}{</span>type<span class="hl opt">}) {</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">&#64;net_type_to_remove</span> <span class="hl opt">=</span> <span class="hl str">qw(passwd login phone_in phone_out)</span><span class="hl opt">;</span>
	    <span class="hl kwb">$_</span> <span class="hl opt">= { %{</span><span class="hl kwb">$_</span> <span class="hl opt">|| {}} },</span> <span class="hl kwc">delete</span> <span class="hl kwb">&#64;$_</span><span class="hl opt">{</span><span class="hl kwb">&#64;net_type_to_remove</span><span class="hl opt">}</span> <span class="hl kwa">foreach</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>net<span class="hl opt">}{</span><span class="hl kwb">$type</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">$warn_privacy</span> <span class="hl opt">=</span> <span class="hl kwb">$b_respect_privacy</span> ? <span class="hl str">&quot;!! This file has been simplified to respect privacy when reporting problems.</span>
<span class="hl str"># You should use /root/drakx/auto_inst.cfg.pl instead !!</span><span class="hl esc">\n</span><span class="hl str">#&quot;</span> <span class="hl opt">:</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">;</span>
    
    <span class="hl kwa">require</span> Data<span class="hl opt">::</span>Dumper<span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$str</span> <span class="hl opt">=</span> <span class="hl kwc">join</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> 
<span class="hl str">&quot;#!/usr/bin/perl -cw</span>
<span class="hl str">#</span> <span class="hl ipl">$warn_privacy</span>
<span class="hl str"># You should check the syntax of this file before using it in an auto-install.</span>
<span class="hl str"># You can do this with &apos;perl -cw auto_inst.cfg.pl&apos; or by executing this file</span>
<span class="hl str"># (note the &apos;#!/usr/bin/perl -cw&apos; on the first line).</span>
<span class="hl str">&quot;</span><span class="hl opt">,</span> Data<span class="hl opt">::</span>Dumper-<span class="hl opt">&gt;</span><span class="hl kwd">Dump</span><span class="hl opt">([</span><span class="hl kwb">$o</span><span class="hl opt">], [</span><span class="hl str">&apos;</span><span class="hl ipl">$o</span><span class="hl str">&apos;</span><span class="hl opt">]));</span>
    <span class="hl kwb">$str</span> <span class="hl opt">=~</span> <span class="hl kwd">s/ {8}/\t/g</span><span class="hl opt">;</span> <span class="hl slc">#- replace all 8 space char by only one tabulation, this reduces file size so much :-)</span>
    <span class="hl kwb">$str</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> getAndSaveAutoInstallFloppies <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o, $replay</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$name</span> <span class="hl opt">= (</span><span class="hl kwb">$replay</span> ? <span class="hl str">&apos;replay&apos;</span> <span class="hl opt">:</span> <span class="hl str">&apos;auto&apos;</span><span class="hl opt">) .</span> <span class="hl str">&apos;_install&apos;</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$dest_dir</span> <span class="hl opt">=</span> <span class="hl str">&quot;$::prefix/root/drakx&quot;</span><span class="hl opt">;</span>

    <span class="hl kwc">eval</span> <span class="hl opt">{</span> modules<span class="hl opt">::</span>load<span class="hl opt">(</span><span class="hl str">&apos;loop&apos;</span><span class="hl opt">) };</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>arch<span class="hl opt">() =~</span> <span class="hl kwd">/ia64/</span><span class="hl opt">) {</span>
	<span class="hl slc">#- nothing yet</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">$mountdir</span> <span class="hl opt">=</span> <span class="hl str">&quot;$::prefix/root/aif-mount&quot;</span><span class="hl opt">; -</span>d <span class="hl kwb">$mountdir</span> <span class="hl kwc">or mkdir</span> <span class="hl kwb">$mountdir,</span> <span class="hl num">0755</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> generate_automatic_stage1_params<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">);</span>

	<span class="hl kwc">my</span> <span class="hl kwb">$img</span> <span class="hl opt">=</span> install<span class="hl opt">::</span>media<span class="hl opt">::</span>getAndSaveInstallFloppies<span class="hl opt">(</span><span class="hl kwb">$o, $dest_dir, $name</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 kwc">my</span> <span class="hl kwb">$dev</span> <span class="hl opt">=</span> devices<span class="hl opt">::</span>set_loop<span class="hl opt">(</span><span class="hl kwb">$img</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;couldn&apos;t set loopback device&quot;</span><span class="hl opt">),</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
	    find <span class="hl opt">{</span> <span class="hl kwc">eval</span> <span class="hl opt">{</span> fs<span class="hl opt">::</span>mount<span class="hl opt">::</span>mount<span class="hl opt">(</span><span class="hl kwb">$dev, $mountdir, $_,</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 str">qw(ext2 vfat)</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>e <span class="hl str">&quot;</span><span class="hl ipl">$mountdir/menu</span><span class="hl str">.lst&quot;</span><span class="hl opt">) {</span>
		<span class="hl slc"># hd_grub boot disk is different than others</span>
		substInFile <span class="hl opt">{</span>
		    <span class="hl kwd">s/^(\s*timeout.*)/timeout 1/</span><span class="hl opt">;</span>
		    <span class="hl kwd">s/\bautomatic=method:disk/$param/</span><span class="hl opt">;</span>
		<span class="hl opt">}</span> <span class="hl str">&quot;</span><span class="hl ipl">$mountdir/menu</span><span class="hl str">.lst&quot;</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(-</span>e <span class="hl str">&quot;</span><span class="hl ipl">$mountdir/syslinux</span><span class="hl str">.cfg&quot;</span><span class="hl opt">) {</span>
		<span class="hl slc">#- make room first</span>
		<span class="hl kwc">unlink</span> <span class="hl str">&quot;</span><span class="hl ipl">$mountdir/help</span><span class="hl str">.msg&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;</span><span class="hl ipl">$mountdir/boot</span><span class="hl str">.msg&quot;</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 opt">}</span> <span class="hl str">&quot;</span><span class="hl ipl">$mountdir/syslinux</span><span class="hl str">.cfg&quot;</span><span class="hl opt">;</span>

		output <span class="hl str">&quot;</span><span class="hl ipl">$mountdir/boot</span><span class="hl str">.msg&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$replay</span> ? <span class="hl str">&apos;&apos;</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 opt">;</span>
	    <span class="hl opt">}</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>
		<span class="hl kwc">eval</span> <span class="hl opt">{</span> output<span class="hl opt">(</span><span class="hl str">&quot;</span><span class="hl ipl">$mountdir/auto_inst</span><span class="hl str">.cfg&quot;</span><span class="hl opt">,</span> g_auto_install<span class="hl opt">(</span><span class="hl kwb">$replay</span><span class="hl opt">)) };</span>
		<span class="hl kwb">$&#64;</span> <span class="hl kwc">and log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;Warning: &lt;&quot;</span><span class="hl opt">,</span> formatError<span class="hl opt">(</span><span class="hl kwb">$&#64;</span><span class="hl opt">),</span> <span class="hl str">&quot;&gt;&quot;</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span>
	
	    fs<span class="hl opt">::</span>mount<span class="hl opt">::</span>umount<span class="hl opt">(</span><span class="hl kwb">$mountdir</span><span class="hl opt">);</span>
	    devices<span class="hl opt">::</span>del_loop<span class="hl opt">(</span><span class="hl kwb">$dev</span><span class="hl opt">);</span>
	<span class="hl opt">}</span>
	<span class="hl kwc">rmdir</span> <span class="hl kwb">$mountdir</span><span class="hl opt">;</span>
	<span class="hl kwb">$img</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>


<span class="hl kwa">sub</span> g_default_packages <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 opt">(</span><span class="hl kwb">$_h, $file</span><span class="hl opt">) =</span> media_browser<span class="hl opt">(</span><span class="hl kwb">$o,</span> <span class="hl str">&apos;save&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;package_list.pl&apos;</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">require</span> Data<span class="hl opt">::</span>Dumper<span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$str</span> <span class="hl opt">=</span> Data<span class="hl opt">::</span>Dumper-<span class="hl opt">&gt;</span><span class="hl kwd">Dump</span><span class="hl opt">([ {</span> default_packages <span class="hl opt">=&gt;</span> install<span class="hl opt">::</span>pkgs<span class="hl opt">::</span>selected_leaves<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">}) } ], [</span><span class="hl str">&apos;</span><span class="hl ipl">$o</span><span class="hl str">&apos;</span><span class="hl opt">]);</span>
    <span class="hl kwb">$str</span> <span class="hl opt">=~</span> <span class="hl kwd">s/ {8}/\t/g</span><span class="hl opt">;</span>
    output<span class="hl opt">(</span><span class="hl kwb">$file,</span>
	   <span class="hl str">&quot;# You should always check the syntax with &apos;perl -cw auto_inst.cfg.pl&apos;</span><span class="hl esc">\n</span><span class="hl str">&quot;</span> <span class="hl opt">.</span>
	   <span class="hl str">&quot;# before testing.  To use it, boot with ``linux defcfg=floppy&apos;&apos;</span><span class="hl esc">\n</span><span class="hl str">&quot;</span> <span class="hl opt">.</span>
	   <span class="hl kwb">$str</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> loadO <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$O, $f</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span> <span class="hl kwb">$f</span> <span class="hl opt">||=</span> auto_inst_file<span class="hl opt">();</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$f</span> <span class="hl opt">=~</span> <span class="hl kwd">/^(floppy|patch)$/</span><span class="hl opt">) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$f</span> <span class="hl opt">=</span> <span class="hl kwb">$f</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;floppy&quot;</span> ? <span class="hl str">&apos;auto_inst.cfg&apos;</span> <span class="hl opt">:</span> <span class="hl str">&quot;patch&quot;</span><span class="hl opt">;</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$o</span><span class="hl opt">;</span>
	<span class="hl kwa">foreach</span> <span class="hl opt">(</span>removable_media__early_in_install<span class="hl opt">()) {</span>
            <span class="hl kwc">my</span> <span class="hl kwb">$dev</span> <span class="hl opt">=</span> devices<span class="hl opt">::</span>make<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>device<span class="hl opt">});</span>
            <span class="hl kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$fs</span> <span class="hl opt">(</span>arch<span class="hl opt">() =~</span> <span class="hl kwd">/sparc/</span> ? <span class="hl str">&apos;romfs&apos;</span> <span class="hl opt">: (</span><span class="hl str">&apos;ext2&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;vfat&apos;</span><span class="hl opt">)) {</span>
                <span class="hl kwc">eval</span> <span class="hl opt">{</span> fs<span class="hl opt">::</span>mount<span class="hl opt">::</span>mount<span class="hl opt">(</span><span class="hl kwb">$dev,</span> <span class="hl str">&apos;/mnt&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$fs,</span> <span class="hl str">&apos;readonly&apos;</span><span class="hl opt">);</span> <span class="hl num">1</span> <span class="hl opt">}</span> <span class="hl kwc">or</span> <span class="hl kwa">next</span><span class="hl opt">;</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$abs_f</span> <span class="hl opt">=</span> find <span class="hl opt">{ -</span>e <span class="hl kwb">$_</span> <span class="hl opt">}</span> <span class="hl str">&quot;/mnt/</span><span class="hl ipl">$f</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;/mnt/</span><span class="hl ipl">$f</span><span class="hl str">.pl&quot;</span><span class="hl opt">) {</span>
		    <span class="hl kwb">$o</span> <span class="hl opt">=</span> loadO_<span class="hl opt">(</span><span class="hl kwb">$O, $abs_f</span><span class="hl opt">);</span>
		<span class="hl opt">}</span>
		fs<span class="hl opt">::</span>mount<span class="hl opt">::</span>umount<span class="hl opt">(</span><span class="hl str">&quot;/mnt&quot;</span><span class="hl opt">);</span>
		<span class="hl kwa">goto</span> found <span class="hl kwa">if</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 kwc">die</span> <span class="hl str">&quot;Could not find</span> <span class="hl ipl">$f</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
      found<span class="hl opt">:</span>
	modules<span class="hl opt">::</span>unload<span class="hl opt">(</span><span class="hl str">qw(vfat fat)</span><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">else</span> <span class="hl opt">{</span>
	loadO_<span class="hl opt">(</span><span class="hl kwb">$O, $f</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

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

    <span class="hl kwc">my</span> <span class="hl kwb">$o</span><span class="hl opt">;</span>
    <span class="hl opt">{</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$fh</span><span class="hl opt">;</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">ref</span> <span class="hl kwb">$f</span><span class="hl opt">) {</span>
	    <span class="hl kwb">$fh</span> <span class="hl opt">=</span> <span class="hl kwb">$f</span><span class="hl opt">;</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl opt">-</span>e <span class="hl str">&quot;</span><span class="hl ipl">$f</span><span class="hl str">.pl&quot;</span> <span class="hl kwc">and</span> <span class="hl kwb">$f</span> <span class="hl opt">.=</span> <span class="hl str">&quot;.pl&quot;</span> <span class="hl kwa">unless</span> <span class="hl opt">-</span>e <span class="hl kwb">$f</span><span class="hl opt">;</span>

	    <span class="hl kwb">$fh</span> <span class="hl opt">= -</span>e <span class="hl kwb">$f</span> ? common<span class="hl opt">::</span>open_file<span class="hl opt">(</span><span class="hl kwb">$f</span><span class="hl opt">) :</span> getFile_<span class="hl opt">(</span><span class="hl kwb">$O</span><span class="hl opt">-&gt;{</span>stage2_phys_medium<span class="hl opt">},</span> <span class="hl kwb">$f</span><span class="hl opt">) ||</span> <span class="hl kwc">die</span> N<span class="hl opt">(</span><span class="hl str">&quot;Error reading file</span> <span class="hl ipl">%s</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$f</span><span class="hl opt">);</span>
	<span class="hl opt">}</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$s</span> <span class="hl opt">=</span> cat__<span class="hl opt">(</span><span class="hl kwb">$fh</span><span class="hl opt">);</span>
	<span class="hl kwc">close</span> <span class="hl kwb">$fh</span><span class="hl opt">;</span>
	<span class="hl opt">{</span>
	    <span class="hl kwa">no</span> strict<span class="hl opt">;</span>
	    <span class="hl kwc">eval</span> <span class="hl kwb">$s</span><span class="hl opt">;</span>
	    <span class="hl kwb">$&#64;</span> <span class="hl kwc">and die</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
	<span class="hl kwb">$O</span> <span class="hl kwc">and</span> add2hash_<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">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwb">$O</span> <span class="hl kwc">and bless</span> <span class="hl kwb">$o,</span> <span class="hl kwc">ref</span> <span class="hl kwb">$O</span><span class="hl opt">;</span>

    handle_old_auto_install_format<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">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> handle_old_auto_install_format <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 slc">#- handle backward compatibility for things that changed</span>
    <span class="hl kwa">foreach</span> <span class="hl opt">(&#64;{</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>partitions<span class="hl opt">} || []}, &#64;{</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>manualFstab<span class="hl opt">} || []}) {</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$type</span> <span class="hl opt">=</span> <span class="hl kwc">delete</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>type<span class="hl opt">}) {</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$type</span> <span class="hl opt">=~</span> <span class="hl kwd">/^(0x)?(\d*)$/</span><span class="hl opt">) {</span>
		fs<span class="hl opt">::</span>type<span class="hl opt">::</span>set_pt_type<span class="hl opt">(</span><span class="hl kwb">$_, $type</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		fs<span class="hl opt">::</span>type<span class="hl opt">::</span>set_fs_type<span class="hl opt">(</span><span class="hl kwb">$_, $type</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>
    <span class="hl slc">#- {rpmsrate_flags_chosen} was called {compssUsersChoice}</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$rpmsrate_flags_chosen</span> <span class="hl opt">=</span> <span class="hl kwc">delete</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>compssUsersChoice<span class="hl opt">}) {</span>
	<span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>rpmsrate_flags_chosen<span class="hl opt">} =</span> <span class="hl kwb">$rpmsrate_flags_chosen</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl slc">#- compssUsers flags are now named CAT_XXX</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>rpmsrate_flags_chosen<span class="hl opt">} &amp;&amp;</span>
	<span class="hl opt">!</span> any <span class="hl opt">{</span> <span class="hl kwd">/^CAT_/</span> <span class="hl opt">}</span> <span class="hl kwc">keys</span> <span class="hl opt">%{</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>rpmsrate_flags_chosen<span class="hl opt">}}) {</span>
	<span class="hl slc">#- we don&apos;t really know if this is needed for compatibility, but it won&apos;t hurt :)</span>
	<span class="hl kwa">foreach</span> <span class="hl opt">(</span><span class="hl kwc">keys</span> <span class="hl opt">%{</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>rpmsrate_flags_chosen<span class="hl opt">}}) {</span>
	    <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>rpmsrate_flags_chosen<span class="hl opt">}{</span><span class="hl str">&quot;CAT_</span><span class="hl ipl">$_</span><span class="hl str">&quot;</span><span class="hl opt">} =</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>rpmsrate_flags_chosen<span class="hl opt">}{</span><span class="hl kwb">$_</span><span class="hl opt">};</span>
	<span class="hl opt">}</span>
	<span class="hl slc">#- it used to be always selected</span>
	<span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>rpmsrate_flags_chosen<span class="hl opt">}{</span>CAT_SYSTEM<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">if</span> <span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>updates<span class="hl opt">} &amp;&amp;</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>updates<span class="hl opt">}{</span>mirror<span class="hl opt">}) {</span>
	<span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>updates<span class="hl opt">}{</span>url<span class="hl opt">} =</span> <span class="hl kwc">delete</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>updates<span class="hl opt">}{</span>mirror<span class="hl opt">};</span>
    <span class="hl opt">}</span>

    <span class="hl slc">#- backward compatibility for network fields</span>
    <span class="hl kwc">exists</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>intf<span class="hl opt">}</span> <span class="hl kwc">and</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>net<span class="hl opt">}{</span>ifcfg<span class="hl opt">} =</span> <span class="hl kwc">delete</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>intf<span class="hl opt">};</span>
    <span class="hl kwc">exists</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>netcnx<span class="hl opt">}{</span>type<span class="hl opt">}</span> <span class="hl kwc">and</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>net<span class="hl opt">}{</span>type<span class="hl opt">} =</span> <span class="hl kwc">delete</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>netcnx<span class="hl opt">}{</span>type<span class="hl opt">};</span>
    <span class="hl kwc">exists</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>netc<span class="hl opt">}{</span>NET_INTERFACE<span class="hl opt">}</span> <span class="hl kwc">and</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>net<span class="hl opt">}{</span>net_interface<span class="hl opt">} =</span> <span class="hl kwc">delete</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>netc<span class="hl opt">}{</span>NET_INTERFACE<span class="hl opt">};</span>
    <span class="hl kwc">my</span> <span class="hl kwb">%netc_translation</span> <span class="hl opt">= (</span>
			    resolv <span class="hl opt">=&gt; [</span> <span class="hl str">qw(dnsServer dnsServer2 dnsServer3 DOMAINNAME DOMAINNAME2 DOMAINNAME3)</span> <span class="hl opt">],</span>
			    network <span class="hl opt">=&gt; [</span> <span class="hl str">qw(NETWORKING FORWARD_IPV4 NETWORKING_IPV6 HOSTNAME GATEWAY GATEWAYDEV NISDOMAIN)</span> <span class="hl opt">],</span>
			    auth <span class="hl opt">=&gt; [</span> <span class="hl str">qw(LDAPDOMAIN WINDOMAIN)</span> <span class="hl opt">],</span>
			   <span class="hl opt">);</span>
    <span class="hl kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$dest</span> <span class="hl opt">(</span><span class="hl kwc">keys</span> <span class="hl kwb">%netc_translation</span><span class="hl opt">) {</span>
	<span class="hl kwc">exists</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>netc<span class="hl opt">}{</span><span class="hl kwb">$_</span><span class="hl opt">}</span> <span class="hl kwc">and</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>net<span class="hl opt">}{</span><span class="hl kwb">$dest</span><span class="hl opt">}{</span><span class="hl kwb">$_</span><span class="hl opt">} =</span> <span class="hl kwc">delete</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>netc<span class="hl opt">}{</span><span class="hl kwb">$_</span><span class="hl opt">}</span> <span class="hl kwa">foreach</span> <span class="hl opt">&#64;{</span><span class="hl kwb">$netc_translation</span><span class="hl opt">{</span><span class="hl kwb">$dest</span><span class="hl opt">}};</span>
    <span class="hl opt">}</span>
    <span class="hl kwc">delete</span> <span class="hl kwb">&#64;$o</span><span class="hl opt">{</span><span class="hl str">qw(netc netcnx)</span><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> generate_automatic_stage1_params <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">$method</span> <span class="hl opt">=</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">my</span> <span class="hl kwb">&#64;ks</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 kwa">method</span><span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;http&apos;</span><span class="hl opt">) {</span>
	<span class="hl kwb">$ENV</span><span class="hl opt">{</span>URLPREFIX<span class="hl opt">} =~</span> <span class="hl kwd">m!(http|ftp)://([^/:]+)(.*)!</span> <span class="hl kwc">or die</span><span class="hl opt">;</span>
	<span class="hl kwb">$method</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span><span class="hl opt">;</span> <span class="hl slc">#- in stage1, FTP via HTTP proxy is available through FTP config, not HTTP</span>
	<span class="hl kwb">&#64;ks</span> <span class="hl opt">= (</span>server <span class="hl opt">=&gt;</span> <span class="hl kwb">$2,</span> directory <span class="hl opt">=&gt;</span> <span class="hl kwb">$3</span><span class="hl opt">);</span>
    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$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;ftp&apos;</span><span class="hl opt">) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">&#64;l</span> <span class="hl opt">=</span> install<span class="hl opt">::</span>ftp<span class="hl opt">::</span>parse_ftp_url<span class="hl opt">(</span><span class="hl kwb">$ENV</span><span class="hl opt">{</span>URLPREFIX<span class="hl opt">});</span>
	<span class="hl kwb">&#64;ks</span> <span class="hl opt">= (</span>server <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> directory <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> user <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> pass <span class="hl opt">=&gt;</span> <span class="hl kwb">$l</span><span class="hl opt">[</span><span class="hl num">3</span><span class="hl opt">]);</span>
    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$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;nfs&apos;</span><span class="hl opt">) {</span>
	cat_<span class="hl opt">(</span><span class="hl str">&quot;/proc/mounts&quot;</span><span class="hl opt">) =~</span> m<span class="hl opt">|(</span>\S<span class="hl opt">+):(</span>\S<span class="hl opt">+)</span>\s<span class="hl opt">+</span><span class="hl kwd">/tmp/m</span>edia<span class="hl opt">|</span> <span class="hl kwc">or</span> internal_error<span class="hl opt">(</span><span class="hl str">&quot;can not find nfsimage&quot;</span><span class="hl opt">);</span>
	<span class="hl kwb">&#64;ks</span> <span class="hl opt">= (</span>server <span class="hl opt">=&gt;</span> <span class="hl kwb">$1,</span> directory <span class="hl opt">=&gt;</span> <span class="hl kwb">$2</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwb">&#64;ks</span> <span class="hl opt">= (</span><span class="hl kwa">method</span> <span class="hl opt">=&gt;</span> <span class="hl kwb">$method, &#64;ks</span><span class="hl opt">);</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>is_network_install<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">$ENV</span><span class="hl opt">{</span>PROXY<span class="hl opt">}) {</span>
	    <span class="hl kwc">push</span> <span class="hl kwb">&#64;ks,</span> proxy_host <span class="hl opt">=&gt;</span> <span class="hl kwb">$ENV</span><span class="hl opt">{</span>PROXY<span class="hl opt">},</span> proxy_port <span class="hl opt">=&gt;</span> <span class="hl kwb">$ENV</span><span class="hl opt">{</span>PROXYPORT<span class="hl opt">};</span>
	<span class="hl opt">}</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$intf</span> <span class="hl opt">=</span> first<span class="hl opt">(</span><span class="hl kwc">values</span> <span class="hl opt">%{</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>net<span class="hl opt">}{</span>ifcfg<span class="hl opt">}});</span>
	<span class="hl kwc">push</span> <span class="hl kwb">&#64;ks,</span> interface <span class="hl opt">=&gt;</span> <span class="hl kwb">$intf</span><span class="hl opt">-&gt;{</span>DEVICE<span class="hl opt">};</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$intf</span><span class="hl opt">-&gt;{</span>BOOTPROTO<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;dhcp&apos;</span><span class="hl opt">) {</span>
	    <span class="hl kwc">push</span> <span class="hl kwb">&#64;ks,</span> network <span class="hl opt">=&gt;</span> <span class="hl str">&apos;dhcp&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 kwc">push</span> <span class="hl kwb">&#64;ks,</span> network <span class="hl opt">=&gt;</span> <span class="hl str">&apos;static&apos;</span><span class="hl opt">,</span> ip <span class="hl opt">=&gt;</span> <span class="hl kwb">$intf</span><span class="hl opt">-&gt;{</span>IPADDR<span class="hl opt">},</span> netmask <span class="hl opt">=&gt;</span> <span class="hl kwb">$intf</span><span class="hl opt">-&gt;{</span>NETMASK<span class="hl opt">},</span> gateway <span class="hl opt">=&gt;</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>net<span class="hl opt">}{</span>network<span class="hl opt">}{</span>GATEWAY<span class="hl opt">};</span>
	    <span class="hl kwa">require</span> network<span class="hl opt">::</span>network<span class="hl opt">;</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">&#64;dnss</span> <span class="hl opt">=</span> network<span class="hl opt">::</span>network<span class="hl opt">::</span>dnsServers<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>net<span class="hl opt">})) {</span>
		<span class="hl kwc">push</span> <span class="hl kwb">&#64;ks,</span> dns <span class="hl opt">=&gt;</span> <span class="hl kwb">$dnss</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 opt">}</span>
    <span class="hl opt">}</span>

    <span class="hl slc">#- sync it with ../mdk-stage1/automatic.c</span>
    <span class="hl kwc">my</span> <span class="hl kwb">%aliases</span> <span class="hl opt">= (</span><span class="hl kwa">method</span> <span class="hl opt">=&gt;</span> <span class="hl str">&apos;met&apos;</span><span class="hl opt">,</span> network <span class="hl opt">=&gt;</span> <span class="hl str">&apos;netw&apos;</span><span class="hl opt">,</span> interface <span class="hl opt">=&gt;</span> <span class="hl str">&apos;int&apos;</span><span class="hl opt">,</span> gateway <span class="hl opt">=&gt;</span> <span class="hl str">&apos;gat&apos;</span><span class="hl opt">,</span> netmask <span class="hl opt">=&gt;</span> <span class="hl str">&apos;netm&apos;</span><span class="hl opt">,</span>
		   adsluser <span class="hl opt">=&gt;</span> <span class="hl str">&apos;adslu&apos;</span><span class="hl opt">,</span> adslpass <span class="hl opt">=&gt;</span> <span class="hl str">&apos;adslp&apos;</span><span class="hl opt">,</span> hostname <span class="hl opt">=&gt;</span> <span class="hl str">&apos;hos&apos;</span><span class="hl opt">,</span> domain <span class="hl opt">=&gt;</span> <span class="hl str">&apos;dom&apos;</span><span class="hl opt">,</span> server <span class="hl opt">=&gt;</span> <span class="hl str">&apos;ser&apos;</span><span class="hl opt">,</span>
		   directory <span class="hl opt">=&gt;</span> <span class="hl str">&apos;dir&apos;</span><span class="hl opt">,</span> user <span class="hl opt">=&gt;</span> <span class="hl str">&apos;use&apos;</span><span class="hl opt">,</span> pass <span class="hl opt">=&gt;</span> <span class="hl str">&apos;pas&apos;</span><span class="hl opt">,</span> disk <span class="hl opt">=&gt;</span> <span class="hl str">&apos;dis&apos;</span><span class="hl opt">,</span> partition <span class="hl opt">=&gt;</span> <span class="hl str">&apos;par&apos;</span><span class="hl opt">);</span>
    
    <span class="hl str">&apos;automatic=&apos;</span> <span class="hl opt">.</span> <span class="hl kwc">join</span><span class="hl opt">(</span><span class="hl str">&apos;,&apos;</span><span class="hl opt">,</span> <span class="hl kwc">map</span> <span class="hl opt">{ (</span><span class="hl kwb">$aliases</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">$_</span><span class="hl opt">-&gt;[</span><span class="hl num">0</span><span class="hl opt">]) .</span> <span class="hl str">&apos;:&apos;</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> group_by2<span class="hl opt">(</span><span class="hl kwb">&#64;ks</span><span class="hl opt">));</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> find_root_parts <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$fstab, $prefix</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</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>release<span class="hl opt">} =~</span> <span class="hl kwd">/\b(mandrake|mandriva|conectiva)\b/i</span> <span class="hl opt">}</span> 
      _find_root_parts<span class="hl opt">(</span><span class="hl kwb">$fstab, $prefix</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> _find_root_parts <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$fstab, $prefix</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>local_install<span class="hl opt">) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$f</span> <span class="hl opt">=</span> common<span class="hl opt">::</span>release_file<span class="hl opt">(</span><span class="hl str">&apos;/mnt&apos;</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">return</span> common<span class="hl opt">::</span>parse_release_file<span class="hl opt">(</span><span class="hl str">&apos;/mnt&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$f,</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">$handle</span> <span class="hl opt">=</span> any<span class="hl opt">::</span>inspect<span class="hl opt">(</span><span class="hl kwb">$_, $prefix</span><span class="hl opt">);</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$f</span> <span class="hl opt">=</span> <span class="hl kwb">$handle</span> <span class="hl opt">&amp;&amp;</span> common<span class="hl opt">::</span>release_file<span class="hl opt">(</span><span class="hl kwb">$handle</span><span class="hl opt">-&gt;{</span>dir<span class="hl opt">})) {</span>
	    common<span class="hl opt">::</span>parse_release_file<span class="hl opt">(</span><span class="hl kwb">$handle</span><span class="hl opt">-&gt;{</span>dir<span class="hl opt">},</span> <span class="hl kwb">$f, $_</span><span class="hl opt">);</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{ () }</span>
    <span class="hl opt">}</span> <span class="hl kwc">grep</span> <span class="hl opt">{</span> isTrueLocalFS<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 opt">}</span>

<span class="hl kwa">sub</span> migrate_device_names <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$all_hds, $from_fstab, $new_root, $root_from_fstab, $o_in</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;warning: fstab says root partition is</span> <span class="hl ipl">$root_from_fstab</span><span class="hl str">-&gt;{device}, whereas we were reading fstab from</span> <span class="hl ipl">$new_root</span><span class="hl str">-&gt;{device}&quot;</span><span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$old_prefix, $old_part_number</span><span class="hl opt">) =</span> devices<span class="hl opt">::</span>simple_partition_scan<span class="hl opt">(</span><span class="hl kwb">$root_from_fstab</span><span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$new_prefix, $new_part_number</span><span class="hl opt">) =</span> devices<span class="hl opt">::</span>simple_partition_scan<span class="hl opt">(</span><span class="hl kwb">$new_root</span><span class="hl opt">);</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$old_part_number</span> <span class="hl opt">!=</span> <span class="hl kwb">$new_part_number</span><span class="hl opt">) {</span>
	<span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;argh,</span> <span class="hl ipl">$root_from_fstab</span><span class="hl str">-&gt;{device} and</span> <span class="hl ipl">$old_part_number</span><span class="hl str">-&gt;{device} are not the same partition number&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 kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;replacing</span> <span class="hl ipl">$old_prefix</span> <span class="hl str">with</span> <span class="hl ipl">$new_prefix</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
    
    <span class="hl kwc">my</span> <span class="hl kwb">%h</span><span class="hl opt">;</span>
    <span class="hl kwa">foreach</span> <span class="hl opt">(</span><span class="hl kwb">&#64;$from_fstab</span><span class="hl opt">) {</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>device<span class="hl opt">} =~</span> <span class="hl kwd">s!^\Q$old_prefix!$new_prefix!</span><span class="hl opt">) {</span>
	    <span class="hl slc">#- this is simple to handle, nothing more to do</span>
	<span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>part_number<span class="hl opt">}) {</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$device_prefix</span> <span class="hl opt">=</span> devices<span class="hl opt">::</span>part_prefix<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">);</span>
	    <span class="hl kwc">push</span> <span class="hl opt">&#64;{</span><span class="hl kwb">$h</span><span class="hl opt">{</span><span class="hl kwb">$device_prefix</span><span class="hl opt">}},</span> <span class="hl kwb">$_</span><span class="hl opt">;</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl slc">#- hopefully this does not need anything special</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>
    <span class="hl kwc">my</span> <span class="hl kwb">&#64;from_fstab_per_hds</span> <span class="hl opt">=</span> <span class="hl kwc">values</span> <span class="hl kwb">%h</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>


    <span class="hl kwc">my</span> <span class="hl kwb">&#64;current_hds</span> <span class="hl opt">=</span> <span class="hl kwc">grep</span> <span class="hl opt">{</span> <span class="hl kwb">$new_root</span><span class="hl opt">-&gt;{</span>rootDevice<span class="hl opt">}</span> <span class="hl kwc">ne</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>device<span class="hl opt">} }</span> fs<span class="hl opt">::</span>get<span class="hl opt">::</span>hds<span class="hl opt">(</span><span class="hl kwb">$all_hds</span><span class="hl opt">);</span>

    found_one<span class="hl opt">:</span>
    <span class="hl kwb">&#64;from_fstab_per_hds</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>

    <span class="hl kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$from_fstab_per_hd</span> <span class="hl opt">(</span><span class="hl kwb">&#64;from_fstab_per_hds</span><span class="hl opt">) {</span>
	<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$matching, $other</span><span class="hl opt">) =</span> partition <span class="hl opt">{</span> 
	    <span class="hl kwc">my</span> <span class="hl kwb">$hd</span> <span class="hl opt">=</span> <span class="hl kwb">$_</span><span class="hl opt">;</span>
	    every <span class="hl opt">{</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$wanted</span> <span class="hl opt">=</span> <span class="hl kwb">$_</span><span class="hl opt">;</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$part</span> <span class="hl opt">=</span> find <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>part_number<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl kwb">$wanted</span><span class="hl opt">-&gt;{</span>part_number<span class="hl opt">} }</span> partition_table<span class="hl opt">::</span>get_normal_parts<span class="hl opt">(</span><span class="hl kwb">$hd</span><span class="hl opt">);</span>
		<span class="hl kwb">$part</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>fs_type<span class="hl opt">} &amp;&amp;</span> fs<span class="hl opt">::</span>type<span class="hl opt">::</span>can_be_this_fs_type<span class="hl opt">(</span><span class="hl kwb">$wanted, $part</span><span class="hl opt">-&gt;{</span>fs_type<span class="hl opt">});</span>
	    <span class="hl opt">}</span> <span class="hl kwb">&#64;$from_fstab_per_hd</span><span class="hl opt">;</span>
	<span class="hl opt">}</span> <span class="hl kwb">&#64;current_hds</span><span class="hl opt">;</span>
	<span class="hl kwb">&#64;$matching</span> <span class="hl opt">==</span> <span class="hl num">1</span> <span class="hl kwc">or</span> <span class="hl kwa">next</span><span class="hl opt">;</span>

	<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$hd</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;$matching</span><span class="hl opt">;</span>
	<span class="hl kwb">&#64;current_hds</span> <span class="hl opt">=</span> <span class="hl kwb">&#64;$other</span><span class="hl opt">;</span>
	<span class="hl kwb">&#64;from_fstab_per_hds</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">$from_fstab_per_hd</span> <span class="hl opt">}</span> <span class="hl kwb">&#64;from_fstab_per_hds</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;</span><span class="hl ipl">$hd</span><span class="hl str">-&gt;{device} nicely corresponds to &quot;</span> <span class="hl opt">.</span> <span class="hl kwc">join</span><span class="hl opt">(</span><span class="hl str">&apos; &apos;</span><span class="hl opt">,</span> <span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>device<span class="hl opt">} }</span> <span class="hl kwb">&#64;$from_fstab_per_hd</span><span class="hl opt">));</span>
	<span class="hl kwa">foreach</span> <span class="hl opt">(</span><span class="hl kwb">&#64;$from_fstab_per_hd</span><span class="hl opt">) {</span>
	    partition_table<span class="hl opt">::</span>compute_device_name<span class="hl opt">(</span><span class="hl kwb">$_, $hd</span><span class="hl opt">);</span>
	<span class="hl opt">}</span>
	<span class="hl kwa">goto</span> found_one<span class="hl opt">;</span>
    <span class="hl opt">}</span>
	
    <span class="hl slc">#- we can not find one and only one matching hd</span>
    <span class="hl kwc">my</span> <span class="hl kwb">&#64;from_fstab_not_handled</span> <span class="hl opt">=</span> <span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl kwb">&#64;$_</span> <span class="hl opt">}</span> <span class="hl kwb">&#64;from_fstab_per_hds</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;we still do not know what to do with: &quot;</span> <span class="hl opt">.</span> <span class="hl kwc">join</span><span class="hl opt">(</span><span class="hl str">&apos; &apos;</span><span class="hl opt">,</span> <span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>device<span class="hl opt">} }</span> <span class="hl kwb">&#64;from_fstab_not_handled</span><span class="hl opt">));</span>


    <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$o_in</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;well, ignoring them!&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 kwc">my</span> <span class="hl kwb">$propositions_valid</span> <span class="hl opt">=</span> every <span class="hl opt">{</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$wanted</span> <span class="hl opt">=</span> <span class="hl kwb">$_</span><span class="hl opt">;</span>
	<span class="hl kwc">my</span> <span class="hl kwb">&#64;parts</span> <span class="hl opt">=</span> <span class="hl kwc">grep</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>part_number<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl kwb">$wanted</span><span class="hl opt">-&gt;{</span>part_number<span class="hl opt">}</span>
			     <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>fs_type<span class="hl opt">} &amp;&amp;</span> fs<span class="hl opt">::</span>type<span class="hl opt">::</span>can_be_this_fs_type<span class="hl opt">(</span><span class="hl kwb">$wanted, $_</span><span class="hl opt">-&gt;{</span>fs_type<span class="hl opt">}) }</span> fs<span class="hl opt">::</span>get<span class="hl opt">::</span>hds_fstab<span class="hl opt">(</span><span class="hl kwb">&#64;current_hds</span><span class="hl opt">);</span>
	<span class="hl kwb">$wanted</span><span class="hl opt">-&gt;{</span>propositions<span class="hl opt">} =</span> \<span class="hl kwb">&#64;parts</span><span class="hl opt">;</span>
	<span class="hl kwb">&#64;parts</span> <span class="hl opt">&gt;</span> <span class="hl num">0</span><span class="hl opt">;</span>
    <span class="hl opt">}</span> <span class="hl kwb">&#64;from_fstab_not_handled</span><span class="hl opt">;</span>

    <span class="hl kwb">$o_in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> 
		    N<span class="hl opt">(</span><span class="hl str">&quot;The following disk(s) were renamed:&quot;</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 opt">{</span> label <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;</span><span class="hl ipl">%s</span> <span class="hl str">(previously named as</span> <span class="hl ipl">%s</span><span class="hl str">)&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>mntpoint<span class="hl opt">},</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>device<span class="hl opt">}),</span>
			  val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>device<span class="hl opt">},</span> format <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">] &amp;&amp;</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>device<span class="hl opt">} },</span>
			  list <span class="hl opt">=&gt; [</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> 
				    <span class="hl kwb">$propositions_valid</span> ? <span class="hl opt">&#64;{</span><span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>propositions<span class="hl opt">}} :</span> 
				    fs<span class="hl opt">::</span>get<span class="hl opt">::</span>hds_fstab<span class="hl opt">(</span><span class="hl kwb">&#64;current_hds</span><span class="hl opt">) ] };</span>
		    <span class="hl opt">}</span> <span class="hl kwb">&#64;from_fstab_not_handled</span> <span class="hl opt">]);</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> use_root_part <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$all_hds, $part, $o_in</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwa">return if</span> <span class="hl opt">$::</span>local_install<span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$migrate_device_names</span><span class="hl opt">;</span>
    <span class="hl opt">{</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$handle</span> <span class="hl opt">=</span> any<span class="hl opt">::</span>inspect<span class="hl opt">(</span><span class="hl kwb">$part,</span> <span class="hl opt">$::</span>prefix<span class="hl opt">)</span> <span class="hl kwc">or</span> internal_error<span class="hl opt">();</span>

	<span class="hl kwc">my</span> <span class="hl kwb">&#64;from_fstab</span> <span class="hl opt">=</span> fs<span class="hl opt">::</span>read_fstab<span class="hl opt">(</span><span class="hl kwb">$handle</span><span class="hl opt">-&gt;{</span>dir<span class="hl opt">},</span> <span class="hl str">&apos;/etc/fstab&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;keep_default&apos;</span><span class="hl opt">);</span>

	<span class="hl kwc">my</span> <span class="hl kwb">$root_from_fstab</span> <span class="hl opt">=</span> fs<span class="hl opt">::</span>get<span class="hl opt">::</span>root_<span class="hl opt">(</span>\<span class="hl kwb">&#64;from_fstab</span><span class="hl opt">);</span>
	<span class="hl kwa">if</span> <span class="hl opt">(!</span>fs<span class="hl opt">::</span>get<span class="hl opt">::</span>is_same_hd<span class="hl opt">(</span><span class="hl kwb">$root_from_fstab, $part</span><span class="hl opt">)) {</span>
	    <span class="hl kwb">$migrate_device_names</span> <span class="hl opt">=</span> <span class="hl num">1</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;from_fstab contained:</span> <span class="hl ipl">$_</span><span class="hl str">-&gt;{device}</span> <span class="hl ipl">$_</span><span class="hl str">-&gt;{mntpoint}&quot;</span><span class="hl opt">)</span> <span class="hl kwa">foreach</span> <span class="hl kwb">&#64;from_fstab</span><span class="hl opt">;</span>
	    migrate_device_names<span class="hl opt">(</span><span class="hl kwb">$all_hds,</span> \<span class="hl kwb">&#64;from_fstab, $part, $root_from_fstab, $o_in</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;from_fstab now contains:</span> <span class="hl ipl">$_</span><span class="hl str">-&gt;{device}</span> <span class="hl ipl">$_</span><span class="hl str">-&gt;{mntpoint}&quot;</span><span class="hl opt">)</span> <span class="hl kwa">foreach</span> <span class="hl kwb">&#64;from_fstab</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
	fs<span class="hl opt">::</span>add2all_hds<span class="hl opt">(</span><span class="hl kwb">$all_hds, &#64;from_fstab</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;fstab is now:</span> <span class="hl ipl">$_</span><span class="hl str">-&gt;{device}</span> <span class="hl ipl">$_</span><span class="hl str">-&gt;{mntpoint}&quot;</span><span class="hl opt">)</span> <span class="hl kwa">foreach</span> fs<span class="hl opt">::</span>get<span class="hl opt">::</span>fstab<span class="hl opt">(</span><span class="hl kwb">$all_hds</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    isSwap<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">)</span> <span class="hl kwc">and</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>mntpoint<span class="hl opt">} =</span> <span class="hl str">&apos;swap&apos;</span> <span class="hl kwa">foreach</span> fs<span class="hl opt">::</span>get<span class="hl opt">::</span>really_all_fstab<span class="hl opt">(</span><span class="hl kwb">$all_hds</span><span class="hl opt">);</span> <span class="hl slc">#- use all available swap.</span>
    <span class="hl kwb">$migrate_device_names</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> getHds <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o, $o_in</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    fs<span class="hl opt">::</span>any<span class="hl opt">::</span>get_hds<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>all_hds<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>manualFstab<span class="hl opt">},</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>partitioning<span class="hl opt">}, $::</span>local_install<span class="hl opt">,</span> <span class="hl kwb">$o_in</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> removable_media__early_in_install<span class="hl opt">() {</span>
    <span class="hl kwc">eval</span> <span class="hl opt">{</span> modules<span class="hl opt">::</span>load<span class="hl opt">(</span><span class="hl str">&apos;usb_storage&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;sd_mod&apos;</span><span class="hl opt">) }</span> <span class="hl kwa">if</span> detect_devices<span class="hl opt">::</span>usbStorage<span class="hl opt">();</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$all_hds</span> <span class="hl opt">=</span> fsedit<span class="hl opt">::</span>get_hds<span class="hl opt">({});</span>
    fs<span class="hl opt">::</span>get_raw_hds<span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$all_hds</span><span class="hl opt">);</span>

    <span class="hl kwc">my</span> <span class="hl kwb">&#64;l1</span> <span class="hl opt">=</span> <span class="hl kwc">grep</span> <span class="hl opt">{</span> detect_devices<span class="hl opt">::</span>isKeyUsb<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">) } &#64;{</span><span class="hl kwb">$all_hds</span><span class="hl opt">-&gt;{</span>hds<span class="hl opt">}};</span>
    <span class="hl kwc">my</span> <span class="hl kwb">&#64;l2</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>media_type<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;fd&apos;</span> <span class="hl opt">||</span> detect_devices<span class="hl opt">::</span>isKeyUsb<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">) } &#64;{</span><span class="hl kwb">$all_hds</span><span class="hl opt">-&gt;{</span>raw_hds<span class="hl opt">}};</span>
    <span class="hl opt">(</span>fs<span class="hl opt">::</span>get<span class="hl opt">::</span>hds_fstab<span class="hl opt">(</span><span class="hl kwb">&#64;l1</span><span class="hl opt">),</span> <span class="hl kwb">&#64;l2</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl kwc">my</span> <span class="hl kwb">%media_browser</span><span class="hl opt">;</span>
<span class="hl kwa">sub</span> media_browser <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$in, $save, $o_suggested_name</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">%media_type2text</span> <span class="hl opt">= (</span>
	fd <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Floppy&quot;</span><span class="hl opt">),</span>
	hd <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Hard Disk&quot;</span><span class="hl opt">),</span>
	cdrom <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;CDROM&quot;</span><span class="hl opt">),</span>
    <span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl kwb">&#64;network_protocols</span> <span class="hl opt">= (</span>if_<span class="hl opt">(!</span><span class="hl kwb">$save,</span> N_<span class="hl opt">(</span><span class="hl str">&quot;HTTP&quot;</span><span class="hl opt">)),</span> if_<span class="hl opt">(</span><span class="hl num">0</span><span class="hl opt">,</span> N_<span class="hl opt">(</span><span class="hl str">&quot;FTP&quot;</span><span class="hl opt">)),</span> N_<span class="hl opt">(</span><span class="hl str">&quot;NFS&quot;</span><span class="hl opt">));</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$to_text</span> <span class="hl opt">=</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
	<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$hd</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
	<span class="hl opt">(</span><span class="hl kwb">$media_type2text</span><span class="hl opt">{</span><span class="hl kwb">$hd</span><span class="hl opt">-&gt;{</span>media_type<span class="hl opt">}} ||</span> <span class="hl kwb">$hd</span><span class="hl opt">-&gt;{</span>media_type<span class="hl opt">}) .</span> <span class="hl str">&apos;: &apos;</span> <span class="hl opt">.</span> partition_table<span class="hl opt">::</span>description<span class="hl opt">(</span><span class="hl kwb">$hd</span><span class="hl opt">);</span>
    <span class="hl opt">};</span>

  ask_media<span class="hl opt">:</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$all_hds</span> <span class="hl opt">=</span> fsedit<span class="hl opt">::</span>get_hds<span class="hl opt">({},</span> <span class="hl kwb">$in</span><span class="hl opt">);</span>
    fs<span class="hl opt">::</span>get_raw_hds<span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$all_hds</span><span class="hl opt">);</span>

    <span class="hl kwc">my</span> <span class="hl kwb">&#64;raw_hds</span> <span class="hl opt">=</span> <span class="hl kwc">grep</span> <span class="hl opt">{ !</span><span class="hl kwb">$save</span> <span class="hl opt">||</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>media_type<span class="hl opt">}</span> <span class="hl kwc">ne</span> <span class="hl str">&apos;cdrom&apos;</span> <span class="hl opt">} &#64;{</span><span class="hl kwb">$all_hds</span><span class="hl opt">-&gt;{</span>raw_hds<span class="hl opt">}};</span>
    <span class="hl kwc">my</span> <span class="hl kwb">&#64;dev_and_text</span> <span class="hl opt">=</span> group_by2<span class="hl opt">(</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 kwb">$to_text</span><span class="hl opt">-&gt;(</span><span class="hl kwb">$_</span><span class="hl opt">) }</span> <span class="hl kwb">&#64;raw_hds</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">$hd</span> <span class="hl opt">=</span> <span class="hl kwb">$to_text</span><span class="hl opt">-&gt;(</span><span class="hl kwb">$_</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">join</span><span class="hl opt">(</span><span class="hl str">&apos;\1&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$hd,</span> partition_table<span class="hl opt">::</span>description<span class="hl opt">(</span><span class="hl kwb">$_</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> isOtherAvailableFS<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">) }</span> fs<span class="hl opt">::</span>get<span class="hl opt">::</span>hds_fstab<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">);</span>
	<span class="hl opt">}</span> fs<span class="hl opt">::</span>get<span class="hl opt">::</span>hds<span class="hl opt">(</span><span class="hl kwb">$all_hds</span><span class="hl opt">)),</span>
	if_<span class="hl opt">(</span>is_network_install<span class="hl opt">($::</span>o<span class="hl opt">) ||</span> install<span class="hl opt">::</span>steps<span class="hl opt">::</span>hasNetwork<span class="hl opt">($::</span>o<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">join</span><span class="hl opt">(</span><span class="hl str">&apos;\1&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;Network&quot;</span><span class="hl opt">),</span> translate<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">)) }</span> <span class="hl kwb">&#64;network_protocols</span><span class="hl opt">),</span>
    <span class="hl opt">);</span>

    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_</span><span class="hl opt">({</span>
	messages <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Please choose a media&quot;</span><span class="hl opt">),</span>
    <span class="hl opt">}, [</span> 
	<span class="hl opt">{</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$media_browser</span><span class="hl opt">{</span>dev<span class="hl opt">},</span> separator <span class="hl opt">=&gt;</span> <span class="hl str">&apos;\1&apos;</span><span class="hl opt">,</span> list <span class="hl opt">=&gt; [</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 kwb">&#64;dev_and_text</span> <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 kwc">my</span> <span class="hl kwb">$dev</span> <span class="hl opt">= (</span>find <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">eq</span> <span class="hl kwb">$media_browser</span><span class="hl opt">{</span>dev<span class="hl opt">} }</span> <span class="hl kwb">&#64;dev_and_text</span><span class="hl opt">)-&gt;[</span><span class="hl num">0</span><span class="hl opt">];</span>

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

      browse<span class="hl opt">:</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$file</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_filename</span><span class="hl opt">({</span> save <span class="hl opt">=&gt;</span> <span class="hl kwb">$save,</span> 
				       directory <span class="hl opt">=&gt;</span> <span class="hl kwb">$dir,</span> 
				       if_<span class="hl opt">(</span><span class="hl kwb">$o_suggested_name,</span> file <span class="hl opt">=&gt;</span> <span class="hl str">&quot;</span><span class="hl ipl">$dir/$o_suggested_name</span><span class="hl str">&quot;</span><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 kwa">if</span> <span class="hl opt">(-</span>e <span class="hl kwb">$file</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$save</span><span class="hl opt">) {</span>
	    <span class="hl kwb">$in</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> N<span class="hl opt">(</span><span class="hl str">&quot;File already exists. Overwrite it?&quot;</span><span class="hl opt">))</span> <span class="hl kwc">or</span> <span class="hl kwa">goto</span> browse<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">$save</span><span class="hl opt">) {</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwc">open</span><span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$_fh,</span> <span class="hl str">&quot;&gt;&gt;</span><span class="hl ipl">$file</span><span class="hl str">&quot;</span><span class="hl opt">)) {</span>
		<span class="hl kwb">$in</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> N<span class="hl opt">(</span><span class="hl str">&quot;Permission denied&quot;</span><span class="hl opt">));</span>
		<span class="hl kwa">goto</span> browse<span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	    <span class="hl kwb">$file</span><span class="hl opt">;</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    common<span class="hl opt">::</span>open_file<span class="hl opt">(</span><span class="hl kwb">$file</span><span class="hl opt">) ||</span> <span class="hl kwa">goto</span> browse<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">$inspect_and_browse</span> <span class="hl opt">=</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
	<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$dev</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$h</span> <span class="hl opt">=</span> any<span class="hl opt">::</span>inspect<span class="hl opt">(</span><span class="hl kwb">$dev,</span> <span class="hl opt">$::</span>prefix<span class="hl opt">,</span> <span class="hl kwb">$save</span><span class="hl opt">)) {</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$file</span> <span class="hl opt">=</span> <span class="hl kwb">$browse</span><span class="hl opt">-&gt;(</span><span class="hl kwb">$h</span><span class="hl opt">-&gt;{</span>dir<span class="hl opt">})) {</span>
		<span class="hl kwa">return</span> <span class="hl kwb">$h, $file</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	    <span class="hl kwc">undef</span> <span class="hl kwb">$h</span><span class="hl opt">;</span> <span class="hl slc">#- help perl</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Error&quot;</span><span class="hl opt">),</span> formatError<span class="hl opt">(</span><span class="hl kwb">$&#64;</span><span class="hl opt">));</span>
	<span class="hl opt">}</span>
	<span class="hl opt">();</span>
    <span class="hl opt">};</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>member<span class="hl opt">(</span><span class="hl kwb">$dev, &#64;network_protocols</span><span class="hl opt">)) {</span>
	<span class="hl kwa">require</span> install<span class="hl opt">::</span>interactive<span class="hl opt">;</span>
	install<span class="hl opt">::</span>interactive<span class="hl opt">::</span>upNetwork<span class="hl opt">($::</span>o<span class="hl opt">);</span>

	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$dev</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;HTTP&apos;</span><span class="hl opt">) {</span>
	    <span class="hl kwa">require</span> install<span class="hl opt">::</span>http<span class="hl opt">;</span>
	    <span class="hl kwb">$media_browser</span><span class="hl opt">{</span>url<span class="hl opt">} ||=</span> <span class="hl str">&apos;http://&apos;</span><span class="hl opt">;</span>

	    <span class="hl kwa">while</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">) {</span>
		<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;URL&apos;</span><span class="hl opt">, [</span>
		    <span class="hl opt">{</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$media_browser</span><span class="hl opt">{</span>url<span class="hl opt">} }</span>
		<span class="hl opt">])</span> <span class="hl kwc">or</span> <span class="hl kwa">last</span><span class="hl opt">;</span>
		    
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$dev</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;HTTP&apos;</span><span class="hl opt">) {</span>
		    <span class="hl kwc">my</span> <span class="hl kwb">$fh</span> <span class="hl opt">=</span> install<span class="hl opt">::</span>http<span class="hl opt">::</span>getFile<span class="hl opt">(</span><span class="hl kwb">$media_browser</span><span class="hl opt">{</span>url<span class="hl opt">});</span>
		    <span class="hl kwb">$fh</span> <span class="hl kwc">and</span> <span class="hl kwa">return</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$fh</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">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$dev</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;NFS&apos;</span><span class="hl opt">) {</span>
	    <span class="hl kwa">while</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">) {</span>
		<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;NFS&apos;</span><span class="hl opt">, [</span>
		    <span class="hl opt">{</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$media_browser</span><span class="hl opt">{</span>nfs<span class="hl opt">} }</span>
		<span class="hl opt">])</span> <span class="hl kwc">or</span> <span class="hl kwa">last</span><span class="hl opt">;</span>

		<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$kind</span><span class="hl opt">) =</span> fs<span class="hl opt">::</span>wild_device<span class="hl opt">::</span>analyze<span class="hl opt">(</span><span class="hl kwb">$media_browser</span><span class="hl opt">{</span>nfs<span class="hl opt">});</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$kind</span> <span class="hl kwc">ne</span> <span class="hl str">&apos;nfs&apos;</span><span class="hl opt">) {</span>
		    <span class="hl kwb">$in</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> N<span class="hl opt">(</span><span class="hl str">&quot;Bad NFS name&quot;</span><span class="hl opt">));</span>
		    <span class="hl kwa">next</span><span class="hl opt">;</span>
		<span class="hl opt">}</span>

		<span class="hl kwc">my</span> <span class="hl kwb">$nfs</span> <span class="hl opt">=</span> fs<span class="hl opt">::</span>wild_device<span class="hl opt">::</span>to_subpart<span class="hl opt">(</span><span class="hl kwb">$media_browser</span><span class="hl opt">{</span>nfs<span class="hl opt">});</span>
		<span class="hl kwb">$nfs</span><span class="hl opt">-&gt;{</span>fs_type<span class="hl opt">} =</span> <span class="hl str">&apos;nfs&apos;</span><span class="hl opt">;</span>

		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$h, $file</span><span class="hl opt">) =</span> <span class="hl kwb">$inspect_and_browse</span><span class="hl opt">-&gt;(</span><span class="hl kwb">$nfs</span><span class="hl opt">)) {</span>
		    <span class="hl kwa">return</span> <span class="hl kwb">$h, $file</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">else</span> <span class="hl opt">{</span>
	    <span class="hl kwb">$in</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 str">&apos;todo&apos;</span><span class="hl opt">);</span>
	    <span class="hl kwa">goto</span> ask_media<span class="hl opt">;</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$dev</span><span class="hl opt">-&gt;{</span>fs_type<span class="hl opt">} ||</span> <span class="hl kwb">$dev</span><span class="hl opt">-&gt;{</span>fs_type<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;auto&apos;</span> <span class="hl opt">||</span> <span class="hl kwb">$dev</span><span class="hl opt">-&gt;{</span>fs_type<span class="hl opt">} =~</span> <span class="hl kwd">/:/</span><span class="hl opt">) {</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$p</span> <span class="hl opt">=</span> fs<span class="hl opt">::</span>type<span class="hl opt">::</span>type_subpart_from_magic<span class="hl opt">(</span><span class="hl kwb">$dev</span><span class="hl opt">)) {</span>
		add2hash<span class="hl opt">(</span><span class="hl kwb">$p, $dev</span><span class="hl opt">);</span>
		<span class="hl kwb">$dev</span> <span class="hl opt">=</span> <span class="hl kwb">$p</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">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Error&quot;</span><span class="hl opt">),</span> N<span class="hl opt">(</span><span class="hl str">&quot;Bad media</span> <span class="hl ipl">%s</span><span class="hl str">&quot;</span><span class="hl opt">,</span> partition_table<span class="hl opt">::</span>description<span class="hl opt">(</span><span class="hl kwb">$dev</span><span class="hl opt">)));</span>
		<span class="hl kwa">goto</span> ask_media<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 kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$h, $file</span><span class="hl opt">) =</span> <span class="hl kwb">$inspect_and_browse</span><span class="hl opt">-&gt;(</span><span class="hl kwb">$dev</span><span class="hl opt">)) {</span>
	    <span class="hl kwa">return</span> <span class="hl kwb">$h, $file</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>

	<span class="hl kwa">goto</span> ask_media<span class="hl opt">;</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> X_options_from_o <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 opt">{</span> 
	freedriver <span class="hl opt">=&gt;</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>freedriver<span class="hl opt">},</span>
	allowFB <span class="hl opt">=&gt;</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>allowFB<span class="hl opt">},</span>
	ignore_bad_conf <span class="hl opt">=&gt;</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>isUpgrade<span class="hl opt">} =~</span> <span class="hl kwd">/redhat|conectiva/</span><span class="hl opt">,</span>
    <span class="hl opt">};</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> screenshot_dir__and_move<span class="hl opt">() {</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$dir0, $dir1, $dir2</span><span class="hl opt">) = (</span><span class="hl str">&apos;/root&apos;</span><span class="hl opt">,</span> <span class="hl str">&quot;$::prefix/root&quot;</span><span class="hl opt">,</span> <span class="hl str">&apos;/tmp&apos;</span><span class="hl opt">);</span>
    <span class="hl kwa">if</span> <span class="hl opt">(-</span>e <span class="hl kwb">$dir0</span> <span class="hl opt">&amp;&amp; ! -</span>e <span class="hl str">&apos;/root/non-chrooted-marker.DrakX&apos;</span><span class="hl opt">) {</span>
	<span class="hl opt">(</span><span class="hl kwb">$dir0,</span> <span class="hl str">&apos;nowarn&apos;</span><span class="hl opt">);</span> <span class="hl slc">#- it occurs during pkgs install when we are chrooted</span>
    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(-</span>e <span class="hl kwb">$dir1</span><span class="hl opt">) {</span>
	<span class="hl kwa">if</span> <span class="hl opt">(-</span>e <span class="hl str">&quot;</span><span class="hl ipl">$dir2/DrakX</span><span class="hl str">-screenshots&quot;</span><span class="hl opt">) {</span>
	    cp_af<span class="hl opt">(</span><span class="hl str">&quot;</span><span class="hl ipl">$dir2/DrakX</span><span class="hl str">-screenshots&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$dir1</span><span class="hl opt">);</span>
	    rm_rf<span class="hl opt">(</span><span class="hl str">&quot;</span><span class="hl ipl">$dir2/DrakX</span><span class="hl str">-screenshots&quot;</span><span class="hl opt">);</span>
	<span class="hl opt">}</span>
	<span class="hl kwb">$dir1</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">$dir2</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">$warned</span><span class="hl opt">;</span>
<span class="hl kwa">sub</span> take_screenshot <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$in</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$base_dir, $nowarn</span><span class="hl opt">) =</span> screenshot_dir__and_move<span class="hl opt">();</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$dir</span> <span class="hl opt">=</span> <span class="hl str">&quot;</span><span class="hl ipl">$base_dir/DrakX</span><span class="hl str">-screenshots&quot;</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(!-</span>e <span class="hl kwb">$dir</span><span class="hl opt">) {</span>
	<span class="hl kwc">mkdir</span> <span class="hl kwb">$dir</span> <span class="hl kwc">or</span> <span class="hl kwb">$in</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> N<span class="hl opt">(</span><span class="hl str">&quot;Can not make screenshots before partitioning&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 kwc">my</span> <span class="hl kwb">$nb</span> <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl kwb">$nb++</span> <span class="hl kwa">while</span> <span class="hl opt">-</span>e <span class="hl str">&quot;</span><span class="hl ipl">$dir/$nb</span><span class="hl str">.png&quot;</span><span class="hl opt">;</span>
    <span class="hl kwc">system</span><span class="hl opt">(</span><span class="hl str">&quot;fb2png /dev/fb0</span> <span class="hl ipl">$dir/$nb</span><span class="hl str">.png 0&quot;</span><span class="hl opt">);</span>

    <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$warned</span> <span class="hl opt">&amp;&amp; !</span><span class="hl kwb">$nowarn</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 kwb">$in</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> N<span class="hl opt">(</span><span class="hl str">&quot;Screenshots will be available after install in</span> <span class="hl ipl">%s</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;/root/DrakX-screenshots&quot;</span><span class="hl opt">));</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> copy_advertising <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 kwa">return if</span> <span class="hl opt">$::</span>rootwidth <span class="hl opt">&lt;</span> <span class="hl num">800</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$f</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$source_dir</span> <span class="hl opt">=</span> <span class="hl str">&quot;install/extra/advertising&quot;</span><span class="hl opt">;</span>
    <span class="hl kwa">foreach</span> <span class="hl opt">(</span><span class="hl str">&quot;.&quot;</span> <span class="hl opt">.</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>locale<span class="hl opt">}{</span>lang<span class="hl opt">},</span> <span class="hl str">&quot;.&quot;</span> <span class="hl opt">.</span> <span class="hl kwc">substr</span><span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>locale<span class="hl opt">}{</span>lang<span class="hl opt">},</span><span class="hl num">0</span><span class="hl opt">,</span><span class="hl num">2</span><span class="hl opt">),</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">) {</span>
	<span class="hl kwb">$f</span> <span class="hl opt">=</span> getFile_<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>stage2_phys_medium<span class="hl opt">},</span> <span class="hl str">&quot;</span><span class="hl ipl">$source_dir$_/list</span><span class="hl str">&quot;</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">next</span><span class="hl opt">;</span>
	<span class="hl kwb">$source_dir</span> <span class="hl opt">=</span> <span class="hl str">&quot;</span><span class="hl ipl">$source_dir$_</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">&#64;files</span> <span class="hl opt">= &lt;</span><span class="hl kwb">$f</span><span class="hl opt">&gt;) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$dir</span> <span class="hl opt">=</span> <span class="hl str">&quot;$::prefix/tmp/drakx-images&quot;</span><span class="hl opt">;</span>
	<span class="hl kwc">mkdir</span> <span class="hl kwb">$dir</span><span class="hl opt">;</span>
	<span class="hl kwc">unlink</span> glob_<span class="hl opt">(</span><span class="hl str">&quot;</span><span class="hl ipl">$dir/*</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
	<span class="hl kwa">foreach</span> <span class="hl opt">(</span><span class="hl kwb">&#64;files</span><span class="hl opt">) {</span>
	    <span class="hl kwc">chomp</span><span class="hl opt">;</span>
	    install<span class="hl opt">::</span>media<span class="hl opt">::</span>getAndSaveFile_<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>stage2_phys_medium<span class="hl opt">},</span> <span class="hl str">&quot;</span><span class="hl ipl">$source_dir/$_</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;</span><span class="hl ipl">$dir/$_</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
	    <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$pl</span> <span class="hl opt">=</span> <span class="hl kwb">$_</span><span class="hl opt">) =~</span> <span class="hl kwd">s/\.png/.pl/</span><span class="hl opt">;</span>
	    install<span class="hl opt">::</span>media<span class="hl opt">::</span>getAndSaveFile_<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>stage2_phys_medium<span class="hl opt">},</span> <span class="hl str">&quot;</span><span class="hl ipl">$source_dir/$pl</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;</span><span class="hl ipl">$dir/$pl</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
	<span class="hl opt">}</span>
	<span class="hl kwb">&#64;advertising_images</span> <span class="hl opt">=</span> <span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl str">&quot;</span><span class="hl ipl">$dir/$_</span><span class="hl str">&quot;</span> <span class="hl opt">}</span> <span class="hl kwb">&#64;files</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> remove_advertising<span class="hl opt">() {</span>
    <span class="hl kwc">eval</span> <span class="hl opt">{</span> rm_rf<span class="hl opt">(</span><span class="hl str">&quot;$::prefix/tmp/drakx-images&quot;</span><span class="hl opt">) };</span>
    <span class="hl kwb">&#64;advertising_images</span> <span class="hl opt">= ();</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> disable_user_view<span class="hl opt">() {</span>
    substInFile <span class="hl opt">{</span> <span class="hl kwd">s/^UserView=.*/UserView=true/</span> <span class="hl opt">}</span> <span class="hl str">&quot;$::prefix/etc/kde/kdm/kdmrc&quot;</span><span class="hl opt">;</span>
    substInFile <span class="hl opt">{</span> <span class="hl kwd">s/^Browser=.*/Browser=0/</span> <span class="hl opt">}</span> <span class="hl str">&quot;$::prefix/etc/X11/gdm/custom.conf&quot;</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> set_security <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 kwa">require</span> security<span class="hl opt">::</span>various<span class="hl opt">;</span>
    security<span class="hl opt">::</span>level<span class="hl opt">::</span>set<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>security<span class="hl opt">});</span>
    security<span class="hl opt">::</span>various<span class="hl opt">::</span>config_security_user<span class="hl opt">($::</span>prefix<span class="hl opt">,</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>security_user<span class="hl opt">});</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> write_fstab <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>
    fs<span class="hl opt">::</span>write_fstab<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>all_hds<span class="hl opt">}, $::</span>prefix<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 kwb">$o</span><span class="hl opt">-&gt;{</span>isUpgrade<span class="hl opt">} =~</span> <span class="hl kwd">/redhat|conectiva/</span> <span class="hl opt">||</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>migrate_device_names<span class="hl opt">};</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> adjust_files_mtime_to_timezone<span class="hl opt">() {</span>
    <span class="hl slc">#- to ensure linuxconf does not cry against those files being in the future</span>
    <span class="hl slc">#- to ensure fc-cache works correctly on fonts installed after reboot</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$timezone_shift</span> <span class="hl opt">=</span> run_program<span class="hl opt">::</span>rooted_get_stdout<span class="hl opt">($::</span>prefix<span class="hl opt">,</span> <span class="hl str">&apos;date&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;+</span><span class="hl ipl">%z</span><span class="hl str">&apos;</span><span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$h, $m</span><span class="hl opt">) =</span> <span class="hl kwb">$timezone_shift</span> <span class="hl opt">=~</span> <span class="hl kwd">/\+(..)(..)/</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$now</span> <span class="hl opt">=</span> <span class="hl kwc">time</span><span class="hl opt">() - (</span><span class="hl kwb">$h</span> <span class="hl opt">*</span> <span class="hl num">60</span> <span class="hl opt">+</span> <span class="hl kwb">$m</span> <span class="hl opt">*</span> <span class="hl num">60</span><span class="hl opt">) *</span> <span class="hl num">60</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">&#64;files</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 str">&quot;$::prefix/</span><span class="hl ipl">$_</span><span class="hl str">&quot;</span> <span class="hl opt">}</span> <span class="hl str">&apos;/etc/modules.conf&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;/etc/crontab&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;/etc/sysconfig/mouse&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;/etc/sysconfig/network&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;/etc/X11/fs/config&apos;</span><span class="hl opt">),</span>
	glob_<span class="hl opt">(</span><span class="hl str">&quot;$::prefix/var/cache/fontconfig/*&quot;</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;adjust_files_mtime_to_timezone: setting time back</span> <span class="hl ipl">$h</span><span class="hl str">:</span><span class="hl ipl">$m</span> <span class="hl str">for files &quot;</span> <span class="hl opt">.</span> <span class="hl kwc">join</span><span class="hl opt">(</span><span class="hl str">&apos; &apos;</span><span class="hl opt">,</span> <span class="hl kwb">&#64;files</span><span class="hl opt">));</span>
    <span class="hl kwa">foreach</span> <span class="hl opt">(</span><span class="hl kwb">&#64;files</span><span class="hl opt">) {</span>
	<span class="hl kwc">utime</span> <span class="hl kwb">$now, $now, $_</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>


<span class="hl kwa">sub</span> move_compressed_image_to_disk <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">our</span> <span class="hl kwb">$compressed_image_on_disk</span><span class="hl opt">;</span>
    <span class="hl kwa">return if</span> <span class="hl kwb">$compressed_image_on_disk</span> <span class="hl opt">|| $::</span>local_install<span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$name</span> <span class="hl opt">=</span> <span class="hl str">&apos;mdkinst.sqfs&apos;</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$loop, $current_image</span><span class="hl opt">) =</span> devices<span class="hl opt">::</span>find_compressed_image<span class="hl opt">(</span><span class="hl kwb">$name</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 kwc">my</span> <span class="hl kwb">$compressed_image_size</span> <span class="hl opt">= (-</span>s <span class="hl kwb">$current_image</span><span class="hl opt">) /</span> <span class="hl num">1024</span><span class="hl opt">;</span> <span class="hl slc">#- put in KiB</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$dir</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>availableRamMB<span class="hl opt">() &gt;</span> <span class="hl num">400</span><span class="hl opt">) {</span>
	<span class="hl kwb">$dir</span> <span class="hl opt">=</span> <span class="hl str">&apos;/tmp&apos;</span><span class="hl opt">;</span> <span class="hl slc">#- on tmpfs</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">$tmp</span> <span class="hl opt">=</span> fs<span class="hl opt">::</span>get<span class="hl opt">::</span>mntpoint2part<span class="hl opt">(</span><span class="hl str">&apos;/tmp&apos;</span><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 kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$tmp</span> <span class="hl opt">&amp;&amp;</span> fs<span class="hl opt">::</span>df<span class="hl opt">(</span><span class="hl kwb">$tmp,</span> <span class="hl opt">$::</span>prefix<span class="hl opt">) /</span> <span class="hl num">2</span> <span class="hl opt">&gt;</span> <span class="hl kwb">$compressed_image_size</span> <span class="hl opt">*</span> <span class="hl num">1.2</span><span class="hl opt">) {</span> <span class="hl slc">#- we want at least 20% free afterwards</span>
	    <span class="hl kwb">$dir</span> <span class="hl opt">=</span> <span class="hl str">&quot;$::prefix/tmp&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">my</span> <span class="hl kwb">$root</span> <span class="hl opt">=</span> fs<span class="hl opt">::</span>get<span class="hl opt">::</span>mntpoint2part<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>fstab<span class="hl opt">});</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$root_free_MB</span> <span class="hl opt">=</span> fs<span class="hl opt">::</span>df<span class="hl opt">(</span><span class="hl kwb">$root,</span> <span class="hl opt">$::</span>prefix<span class="hl opt">)</span> <span class="hl kwd">/ 2 /</span> <span class="hl num">1024</span><span class="hl opt">;</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$wanted_size_MB</span> <span class="hl opt">=</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>isUpgrade<span class="hl opt">} ||</span> fs<span class="hl opt">::</span>get<span class="hl opt">::</span>mntpoint2part<span class="hl opt">(</span><span class="hl str">&apos;/usr&apos;</span><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 num">150</span> <span class="hl opt">:</span> <span class="hl num">300</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;compressed image: root free</span> <span class="hl ipl">$root_free_MB</span> <span class="hl str">MB, wanted at least</span> <span class="hl ipl">$wanted_size_MB</span> <span class="hl str">MB&quot;</span><span class="hl opt">);</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$root_free_MB</span> <span class="hl opt">&gt;</span> <span class="hl kwb">$wanted_size_MB</span><span class="hl opt">) {</span>
		<span class="hl kwb">$dir</span> <span class="hl opt">=</span> <span class="hl kwb">$tmp</span> ? <span class="hl opt">$::</span>prefix <span class="hl opt">:</span> <span class="hl str">&quot;$::prefix/tmp&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">$dir</span> <span class="hl opt">=</span> <span class="hl str">&apos;/tmp&apos;</span><span class="hl opt">;</span> <span class="hl slc">#- on tmpfs</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span>availableRamMB<span class="hl opt">() &lt;</span> <span class="hl num">200</span><span class="hl opt">) {</span>
		    <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;ERROR: not much ram (&quot;</span> <span class="hl opt">.</span> availableRamMB<span class="hl opt">() .</span> <span class="hl str">&quot; MB), we&apos;re going in the wall!&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 opt">}</span>
    <span class="hl kwb">$compressed_image_on_disk</span> <span class="hl opt">=</span> <span class="hl str">&quot;</span><span class="hl ipl">$dir/$name</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">$current_image</span> <span class="hl kwc">ne</span> <span class="hl kwb">$compressed_image_on_disk</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;move_compressed_image_to_disk: copying</span> <span class="hl ipl">$current_image</span> <span class="hl str">to</span> <span class="hl ipl">$compressed_image_on_disk</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
	cp_af<span class="hl opt">(</span><span class="hl kwb">$current_image, $compressed_image_on_disk</span><span class="hl opt">);</span>
	run_program<span class="hl opt">::</span>run<span class="hl opt">(</span><span class="hl str">&apos;losetup&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;-r&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$loop, $compressed_image_on_disk</span><span class="hl opt">);</span>
	<span class="hl kwc">unlink</span> <span class="hl kwb">$current_image</span> <span class="hl kwa">if</span> <span class="hl kwb">$current_image</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;/tmp/</span><span class="hl ipl">$name</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> deploy_server_notify <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">$fallback_intf</span> <span class="hl opt">=</span> <span class="hl str">&quot;eth0&quot;</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$fallback_port</span> <span class="hl opt">=</span> <span class="hl num">3710</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$server, $port</span><span class="hl opt">) =</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>deploy_server<span class="hl opt">} =~</span> <span class="hl kwd">/^(.*?)(?::(\d+))?$/</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$server</span><span class="hl opt">) {</span>
        <span class="hl kwa">require</span> network<span class="hl opt">::</span>tools<span class="hl opt">;</span>
        <span class="hl kwa">require</span> IO<span class="hl opt">::</span>Socket<span class="hl opt">;</span>
        <span class="hl kwb">$port</span> <span class="hl opt">||=</span> <span class="hl kwb">$fallback_port</span><span class="hl opt">;</span>
        <span class="hl kwc">my</span> <span class="hl kwb">$intf</span> <span class="hl opt">=</span> network<span class="hl opt">::</span>tools<span class="hl opt">::</span>get_current_gateway_interface<span class="hl opt">() ||</span> <span class="hl kwb">$fallback_intf</span><span class="hl opt">;</span>
        <span class="hl kwc">my</span> <span class="hl kwb">$mac</span> <span class="hl opt">=</span> c<span class="hl opt">::</span>get_hw_address<span class="hl opt">(</span><span class="hl kwb">$intf</span><span class="hl opt">);</span>
        <span class="hl kwc">my</span> <span class="hl kwb">$sock</span> <span class="hl opt">=</span> IO<span class="hl opt">::</span>Socket<span class="hl opt">::</span>INET-<span class="hl opt">&gt;</span><span class="hl kwd">new</span><span class="hl opt">(</span>PeerAddr <span class="hl opt">=&gt;</span> <span class="hl kwb">$server,</span> PeerPort <span class="hl opt">=&gt;</span> <span class="hl kwb">$port,</span> Proto <span class="hl opt">=&gt;</span> <span class="hl str">&apos;tcp&apos;</span><span class="hl opt">);</span>
        <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$sock</span><span class="hl opt">) {</span>
            <span class="hl kwc">print</span> <span class="hl kwb">$sock</span> <span class="hl str">&quot;</span><span class="hl ipl">$mac\n</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
            <span class="hl kwc">close</span><span class="hl opt">(</span><span class="hl kwb">$sock</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">qq(successfully notified deploy server</span> <span class="hl ipl">$server</span> <span class="hl str">on port</span> <span class="hl ipl">$port</span><span class="hl str">)</span><span class="hl opt">);</span>
        <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
            <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">qq(unable to contact deploy server</span> <span class="hl ipl">$server</span> <span class="hl str">on port</span> <span class="hl ipl">$port</span><span class="hl str">)</span><span class="hl opt">);</span>
        <span class="hl opt">}</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
        <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">qq(unable to parse deploy server in string</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;{deploy_server})</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl slc">#-###############################################################################</span>
<span class="hl slc">#- pcmcia various</span>
<span class="hl slc">#-###############################################################################</span>
<span class="hl kwa">sub</span> configure_pcmcia <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">$controller</span> <span class="hl opt">=</span> detect_devices<span class="hl opt">::</span>pcmcia_controller_probe<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 kwb">$controller</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$controller</span><span class="hl opt">-&gt;{</span>driver<span class="hl opt">}</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
    <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;configuring PCMCIA controller (</span><span class="hl ipl">$o</span><span class="hl str">-&gt;{pcmcia})&quot;</span><span class="hl opt">);</span>
    <span class="hl kwc">symlink</span> <span class="hl str">&quot;/tmp/stage2/</span><span class="hl ipl">$_</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$_</span> <span class="hl kwa">foreach</span> <span class="hl str">&quot;/etc/pcmcia&quot;</span><span class="hl opt">;</span>
    <span class="hl kwc">eval</span> <span class="hl opt">{</span> modules<span class="hl opt">::</span>load<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 str">&apos;pcmcia&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;/lib/udev/pcmcia-socket-startup&quot;</span><span class="hl opt">);</span>
<span class="hl opt">}</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-08-11 07:54:47 +0000</div>
</div> <!-- id=cgit -->
</body>
</html>