summaryrefslogtreecommitdiffstats
path: root/perl-install/share/po/DrakX.pot
diff options
context:
space:
mode:
authorPablo Saratxaga <pablo@mandriva.com>2001-09-21 14:49:08 +0000
committerPablo Saratxaga <pablo@mandriva.com>2001-09-21 14:49:08 +0000
commit822e38049c9c4bbfbd72eb0c9f9cc6f2129506e6 (patch)
treebe7d6e11a5cb5853c151b66e42f3d1d3ec645ad2 /perl-install/share/po/DrakX.pot
parente3275325538d5902c31d2604f66162837fe60317 (diff)
downloaddrakx-822e38049c9c4bbfbd72eb0c9f9cc6f2129506e6.tar
drakx-822e38049c9c4bbfbd72eb0c9f9cc6f2129506e6.tar.gz
drakx-822e38049c9c4bbfbd72eb0c9f9cc6f2129506e6.tar.bz2
drakx-822e38049c9c4bbfbd72eb0c9f9cc6f2129506e6.tar.xz
drakx-822e38049c9c4bbfbd72eb0c9f9cc6f2129506e6.zip
updated pot file
Diffstat (limited to 'perl-install/share/po/DrakX.pot')
-rw-r--r--perl-install/share/po/DrakX.pot260
1 files changed, 120 insertions, 140 deletions
diff --git a/perl-install/share/po/DrakX.pot b/perl-install/share/po/DrakX.pot
index e70a21379..78d7df9d7 100644
--- a/perl-install/share/po/DrakX.pot
+++ b/perl-install/share/po/DrakX.pot
@@ -6,7 +6,7 @@
msgid ""
msgstr ""
"Project-Id-Version: PACKAGE VERSION\n"
-"POT-Creation-Date: 2001-09-21 07:52+0200\n"
+"POT-Creation-Date: 2001-09-21 14:38+0200\n"
"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
"Language-Team: LANGUAGE <LL@li.org>\n"
@@ -212,7 +212,7 @@ msgstr ""
msgid "XFree86 server: %s"
msgstr ""
-#: ../../Xconfigurator.pm_.c:829 ../../printerdrake.pm_.c:1893
+#: ../../Xconfigurator.pm_.c:829 ../../printerdrake.pm_.c:1885
#: ../../standalone/draknet_.c:298 ../../standalone/draknet_.c:301
msgid "Expert Mode"
msgstr ""
@@ -625,9 +625,9 @@ msgid "Add"
msgstr ""
#: ../../any.pm_.c:217 ../../any.pm_.c:718 ../../diskdrake.pm_.c:161
-#: ../../interactive_http.pm_.c:153 ../../printerdrake.pm_.c:1854
-#: ../../printerdrake.pm_.c:1855 ../../printerdrake.pm_.c:1912
-#: ../../printerdrake.pm_.c:1956
+#: ../../interactive_http.pm_.c:153 ../../printerdrake.pm_.c:1846
+#: ../../printerdrake.pm_.c:1847 ../../printerdrake.pm_.c:1904
+#: ../../printerdrake.pm_.c:1948
msgid "Done"
msgstr ""
@@ -3827,8 +3827,8 @@ msgstr ""
msgid "Timezone"
msgstr ""
-#: ../../install_steps_interactive.pm_.c:873 ../../printerdrake.pm_.c:1781
-#: ../../printerdrake.pm_.c:1852
+#: ../../install_steps_interactive.pm_.c:873 ../../printerdrake.pm_.c:1773
+#: ../../printerdrake.pm_.c:1844
msgid "Printer"
msgstr ""
@@ -3930,7 +3930,7 @@ msgstr ""
msgid "Second floppy drive"
msgstr ""
-#: ../../install_steps_interactive.pm_.c:1012 ../../printerdrake.pm_.c:1390
+#: ../../install_steps_interactive.pm_.c:1012 ../../printerdrake.pm_.c:1382
msgid "Skip"
msgstr ""
@@ -5291,7 +5291,7 @@ msgid "Pipe job into a command"
msgstr ""
#: ../../printer.pm_.c:418 ../../printer.pm_.c:839
-#: ../../printerdrake.pm_.c:1227 ../../printerdrake.pm_.c:2031
+#: ../../printerdrake.pm_.c:1227 ../../printerdrake.pm_.c:2023
msgid "Unknown model"
msgstr ""
@@ -5360,9 +5360,9 @@ msgid ""
"CUPS afterwards (command: \"service cups restart\")."
msgstr ""
-#: ../../printerdrake.pm_.c:124 ../../printerdrake.pm_.c:1298
-#: ../../printerdrake.pm_.c:1302 ../../printerdrake.pm_.c:1303
-#: ../../printerdrake.pm_.c:1304 ../../printerdrake.pm_.c:2019
+#: ../../printerdrake.pm_.c:124 ../../printerdrake.pm_.c:1290
+#: ../../printerdrake.pm_.c:1294 ../../printerdrake.pm_.c:1295
+#: ../../printerdrake.pm_.c:1296 ../../printerdrake.pm_.c:2011
msgid "Close"
msgstr ""
@@ -5378,7 +5378,7 @@ msgstr ""
msgid "The port number should be an integer!"
msgstr ""
-#: ../../printerdrake.pm_.c:141 ../../printerdrake.pm_.c:2103
+#: ../../printerdrake.pm_.c:141 ../../printerdrake.pm_.c:2095
msgid "Default printer"
msgstr ""
@@ -5700,7 +5700,7 @@ msgstr ""
msgid "Photo test page"
msgstr ""
-#: ../../printerdrake.pm_.c:1175 ../../printerdrake.pm_.c:1305
+#: ../../printerdrake.pm_.c:1175 ../../printerdrake.pm_.c:1297
msgid "Printing test page(s)..."
msgstr ""
@@ -5724,87 +5724,74 @@ msgstr ""
msgid "Did it work properly?"
msgstr ""
-#: ../../printerdrake.pm_.c:1229 ../../printerdrake.pm_.c:2033
+#: ../../printerdrake.pm_.c:1229 ../../printerdrake.pm_.c:2025
msgid "Raw printer"
msgstr ""
#: ../../printerdrake.pm_.c:1237
+#, c-format
msgid ""
"To print a file from the command line (terminal window) you can either use "
-"the command \"lpr"
+"the command \"%s <file>\" or a graphical printing tool: \"xpp <file>\" or "
+"\"qtcups <file>\". The graphical tools allow you to choose the printer and "
+"to modify the option settings easily.\n"
msgstr ""
#: ../../printerdrake.pm_.c:1239
msgid ""
-" <file>\" or a graphical printing tool: \"xpp <file>\" or \"qtcups <file>\". "
-"The graphical tools allow you to choose the printer and to modify the option "
-"settings easily.\n"
"These commands you can also use in the \"Printing command\" field of the "
"printing dialogs of many applications, but here do not supply the file name "
"because the file to print is provided by the application.\n"
msgstr ""
-#: ../../printerdrake.pm_.c:1243 ../../printerdrake.pm_.c:1257
-#: ../../printerdrake.pm_.c:1271
+#: ../../printerdrake.pm_.c:1242 ../../printerdrake.pm_.c:1254
+#: ../../printerdrake.pm_.c:1266
+#, c-format
msgid ""
"\n"
-"The \"lpr\" command also allows to modify the option settings for a "
+"The \"%s\" command also allows to modify the option settings for a "
"particular printing job. Simply add the desired settings to the command "
-"line, e. g. \"lpr"
+"line, e. g. \"%s <file>\"."
msgstr ""
-#: ../../printerdrake.pm_.c:1246
+#: ../../printerdrake.pm_.c:1244 ../../printerdrake.pm_.c:1284
msgid ""
-" -o option=setting -o switch <file>\". To get a list of the options "
-"available for the current printer read either the list shown below or click "
-"on the \"Print option list\" button.\n"
+"To get a list of the options available for the current printer read either "
+"the list shown below or click on the \"Print option list\" button.\n"
"\n"
msgstr ""
-#: ../../printerdrake.pm_.c:1251 ../../printerdrake.pm_.c:1265
+#: ../../printerdrake.pm_.c:1249 ../../printerdrake.pm_.c:1261
+#, c-format
msgid ""
-"To print a file from the command line (terminal window) use the command \"lpr"
+"To print a file from the command line (terminal window) use the command \"%s "
+"<file>\".\n"
msgstr ""
-#: ../../printerdrake.pm_.c:1253 ../../printerdrake.pm_.c:1267
+#: ../../printerdrake.pm_.c:1251 ../../printerdrake.pm_.c:1263
+#: ../../printerdrake.pm_.c:1275
msgid ""
-" <file>\".\n"
"This command you can also use in the \"Printing command\" field of the "
"printing dialogs of many applications. But here do not supply the file name "
"because the file to print is provided by the application.\n"
msgstr ""
-#: ../../printerdrake.pm_.c:1260
+#: ../../printerdrake.pm_.c:1256 ../../printerdrake.pm_.c:1268
msgid ""
-" -Z option=setting -Z switch <file>\". To get a list of the options "
-"available for the current printer click on the \"Print option list\" "
-"button.\n"
+"To get a list of the options available for the current printer click on the "
+"\"Print option list\" button.\n"
"\n"
msgstr ""
-#: ../../printerdrake.pm_.c:1274
+#: ../../printerdrake.pm_.c:1273
+#, c-format
msgid ""
-" -o option=setting -o switch <file>\". To get a list of the options "
-"available for the current printer click on the \"Print option list\" "
-"button.\n"
-"\n"
+"To print a file from the command line (terminal window) use the command \"%s "
+"<file>\" or \"%s <file>\".\n"
msgstr ""
-#: ../../printerdrake.pm_.c:1279
+#: ../../printerdrake.pm_.c:1277
msgid ""
-"To print a file from the command line (terminal window) use the command \"pdq"
-msgstr ""
-
-#: ../../printerdrake.pm_.c:1281
-msgid " <file>\" or \"lpr"
-msgstr ""
-
-#: ../../printerdrake.pm_.c:1283
-msgid ""
-" <file>\".\n"
-"This command you can also use in the \"Printing command\" field of the "
-"printing dialogs of many applications. But here do not supply the file name "
-"because the file to print is provided by the application.\n"
"You can also use the graphical interface \"xpdq\" for setting options and "
"handling printing jobs.\n"
"If you are using KDE as desktop environment you have a \"panic button\", an "
@@ -5813,42 +5800,35 @@ msgid ""
"jams.\n"
msgstr ""
-#: ../../printerdrake.pm_.c:1289
+#: ../../printerdrake.pm_.c:1281
+#, c-format
msgid ""
"\n"
-"The \"pdq\" and \"lpr\" commands also allow to modify the option settings "
-"for a particular printing job. Simply add the desired settings to the "
-"command line, e. g. \"pdq"
+"The \"%s\" and \"%s\" commands also allow to modify the option settings for "
+"a particular printing job. Simply add the desired settings to the command "
+"line, e. g. \"%s <file>\".\n"
msgstr ""
#: ../../printerdrake.pm_.c:1292
-msgid ""
-" -aoption=setting -oswitch <file>\". To get a list of the options available "
-"for the current printer read either the list shown below or click on the "
-"\"Print option list\" button.\n"
-"\n"
-msgstr ""
-
-#: ../../printerdrake.pm_.c:1300
#, c-format
msgid "Printing on the printer \"%s\""
msgstr ""
-#: ../../printerdrake.pm_.c:1302
+#: ../../printerdrake.pm_.c:1294
msgid "Print option list"
msgstr ""
-#: ../../printerdrake.pm_.c:1326 ../../printerdrake.pm_.c:1749
+#: ../../printerdrake.pm_.c:1318 ../../printerdrake.pm_.c:1741
#: ../../standalone/printerdrake_.c:48
msgid "Reading printer data ..."
msgstr ""
-#: ../../printerdrake.pm_.c:1346 ../../printerdrake.pm_.c:1384
-#: ../../printerdrake.pm_.c:1419
+#: ../../printerdrake.pm_.c:1338 ../../printerdrake.pm_.c:1376
+#: ../../printerdrake.pm_.c:1411
msgid "Transfer printer configuration"
msgstr ""
-#: ../../printerdrake.pm_.c:1347
+#: ../../printerdrake.pm_.c:1339
#, c-format
msgid ""
"You can copy the printer configuration which you have done \n"
@@ -5860,29 +5840,29 @@ msgid ""
"reasons:\n"
msgstr ""
-#: ../../printerdrake.pm_.c:1355
+#: ../../printerdrake.pm_.c:1347
msgid ""
"CUPS does not support printers on Novell servers or printers\n"
"sending the data into a free-formed command.\n"
msgstr ""
-#: ../../printerdrake.pm_.c:1358
+#: ../../printerdrake.pm_.c:1350
msgid ""
"PDQ only supports local printers, remote LPD printers, and\n"
"Socket/TCP printers.\n"
msgstr ""
-#: ../../printerdrake.pm_.c:1361
+#: ../../printerdrake.pm_.c:1353
msgid "LPD and LPRng do not support IPP printers.\n"
msgstr ""
-#: ../../printerdrake.pm_.c:1363
+#: ../../printerdrake.pm_.c:1355
msgid ""
"In addition, queues not created with this program or\n"
"\"foomatic-configure\" cannot be transferred."
msgstr ""
-#: ../../printerdrake.pm_.c:1365
+#: ../../printerdrake.pm_.c:1357
msgid ""
"\n"
"Also printers configured with the PPD files provided by\n"
@@ -5890,22 +5870,22 @@ msgid ""
"transferred."
msgstr ""
-#: ../../printerdrake.pm_.c:1368
+#: ../../printerdrake.pm_.c:1360
msgid ""
"\n"
"Mark the printers which you want to transfer and click \n"
"\"Transfer\"."
msgstr ""
-#: ../../printerdrake.pm_.c:1371
+#: ../../printerdrake.pm_.c:1363
msgid "Do not transfer printers"
msgstr ""
-#: ../../printerdrake.pm_.c:1372 ../../printerdrake.pm_.c:1389
+#: ../../printerdrake.pm_.c:1364 ../../printerdrake.pm_.c:1381
msgid "Transfer"
msgstr ""
-#: ../../printerdrake.pm_.c:1385
+#: ../../printerdrake.pm_.c:1377
#, c-format
msgid ""
"A printer named \"%s\" already exists under %s. \n"
@@ -5913,27 +5893,27 @@ msgid ""
"You can also type a new name or skip this printer."
msgstr ""
-#: ../../printerdrake.pm_.c:1393
+#: ../../printerdrake.pm_.c:1385
msgid "Name of printer should contain only letters, numbers and the underscore"
msgstr ""
-#: ../../printerdrake.pm_.c:1398
+#: ../../printerdrake.pm_.c:1390
#, c-format
msgid ""
"The printer \"%s\" already exists,\n"
"do you really want to overwrite its configuration?"
msgstr ""
-#: ../../printerdrake.pm_.c:1406
+#: ../../printerdrake.pm_.c:1398
msgid "New printer name"
msgstr ""
-#: ../../printerdrake.pm_.c:1409
+#: ../../printerdrake.pm_.c:1401
#, c-format
msgid "Transferring %s ..."
msgstr ""
-#: ../../printerdrake.pm_.c:1420
+#: ../../printerdrake.pm_.c:1412
#, c-format
msgid ""
"You have transferred your former default printer (\"%s\"),\n"
@@ -5941,29 +5921,29 @@ msgid ""
"new printing system %s?"
msgstr ""
-#: ../../printerdrake.pm_.c:1431
+#: ../../printerdrake.pm_.c:1423
msgid "Refreshing printer data ..."
msgstr ""
-#: ../../printerdrake.pm_.c:1439 ../../printerdrake.pm_.c:1502
-#: ../../printerdrake.pm_.c:1523
+#: ../../printerdrake.pm_.c:1431 ../../printerdrake.pm_.c:1494
+#: ../../printerdrake.pm_.c:1515
msgid "Configuration of a remote printer"
msgstr ""
-#: ../../printerdrake.pm_.c:1440
+#: ../../printerdrake.pm_.c:1432
msgid "Starting network ..."
msgstr ""
-#: ../../printerdrake.pm_.c:1462 ../../printerdrake.pm_.c:1470
-#: ../../printerdrake.pm_.c:1472
+#: ../../printerdrake.pm_.c:1454 ../../printerdrake.pm_.c:1462
+#: ../../printerdrake.pm_.c:1464
msgid "Configure the network now"
msgstr ""
-#: ../../printerdrake.pm_.c:1463
+#: ../../printerdrake.pm_.c:1455
msgid "Network functionality not configured"
msgstr ""
-#: ../../printerdrake.pm_.c:1464
+#: ../../printerdrake.pm_.c:1456
msgid ""
"You are going to configure a remote printer. This needs working\n"
"network access, but your network is not configured yet. If you\n"
@@ -5972,11 +5952,11 @@ msgid ""
"to proceed?"
msgstr ""
-#: ../../printerdrake.pm_.c:1471
+#: ../../printerdrake.pm_.c:1463
msgid "Go on without configuring the network"
msgstr ""
-#: ../../printerdrake.pm_.c:1504
+#: ../../printerdrake.pm_.c:1496
msgid ""
"The network configuration done during the installation \n"
"cannot be started now. Please check whether the network\n"
@@ -5987,7 +5967,7 @@ msgid ""
"section \"Hardware\"/\"Printer\""
msgstr ""
-#: ../../printerdrake.pm_.c:1511
+#: ../../printerdrake.pm_.c:1503
msgid ""
"The network access was not running and could not be \n"
"started. Please check your configuration and your \n"
@@ -5995,24 +5975,24 @@ msgid ""
"again."
msgstr ""
-#: ../../printerdrake.pm_.c:1524
+#: ../../printerdrake.pm_.c:1516
msgid "Restarting printing system ..."
msgstr ""
-#: ../../printerdrake.pm_.c:1556
+#: ../../printerdrake.pm_.c:1548
msgid "high"
msgstr ""
-#: ../../printerdrake.pm_.c:1556
+#: ../../printerdrake.pm_.c:1548
msgid "paranoid"
msgstr ""
-#: ../../printerdrake.pm_.c:1557
+#: ../../printerdrake.pm_.c:1549
#, c-format
msgid "Installing a printing system in the %s security level"
msgstr ""
-#: ../../printerdrake.pm_.c:1558
+#: ../../printerdrake.pm_.c:1550
#, c-format
msgid ""
"You are about to install the printing system %s on\n"
@@ -6029,11 +6009,11 @@ msgid ""
"machine?"
msgstr ""
-#: ../../printerdrake.pm_.c:1592
+#: ../../printerdrake.pm_.c:1584
msgid "Starting the printing system at boot time"
msgstr ""
-#: ../../printerdrake.pm_.c:1593
+#: ../../printerdrake.pm_.c:1585
#, c-format
msgid ""
"The printing system (%s) will not be started automatically\n"
@@ -6047,51 +6027,51 @@ msgid ""
"system turned on again?"
msgstr ""
-#: ../../printerdrake.pm_.c:1620 ../../printerdrake.pm_.c:1652
-#: ../../printerdrake.pm_.c:1679 ../../printerdrake.pm_.c:1709
-#: ../../printerdrake.pm_.c:1786
+#: ../../printerdrake.pm_.c:1612 ../../printerdrake.pm_.c:1644
+#: ../../printerdrake.pm_.c:1671 ../../printerdrake.pm_.c:1701
+#: ../../printerdrake.pm_.c:1778
msgid "Checking installed software..."
msgstr ""
-#: ../../printerdrake.pm_.c:1656
+#: ../../printerdrake.pm_.c:1648
msgid "Removing LPRng..."
msgstr ""
-#: ../../printerdrake.pm_.c:1683
+#: ../../printerdrake.pm_.c:1675
msgid "Removing LPD..."
msgstr ""
-#: ../../printerdrake.pm_.c:1735
+#: ../../printerdrake.pm_.c:1727
msgid "Select Printer Spooler"
msgstr ""
-#: ../../printerdrake.pm_.c:1736
+#: ../../printerdrake.pm_.c:1728
msgid "Which printing system (spooler) do you want to use?"
msgstr ""
-#: ../../printerdrake.pm_.c:1767
+#: ../../printerdrake.pm_.c:1759
#, c-format
msgid "Configuring printer \"%s\" ..."
msgstr ""
-#: ../../printerdrake.pm_.c:1814 ../../printerdrake.pm_.c:1846
-#: ../../printerdrake.pm_.c:2034 ../../printerdrake.pm_.c:2096
+#: ../../printerdrake.pm_.c:1806 ../../printerdrake.pm_.c:1838
+#: ../../printerdrake.pm_.c:2026 ../../printerdrake.pm_.c:2088
msgid "Printer options"
msgstr ""
-#: ../../printerdrake.pm_.c:1823
+#: ../../printerdrake.pm_.c:1815
msgid "Preparing PrinterDrake ..."
msgstr ""
-#: ../../printerdrake.pm_.c:1853
+#: ../../printerdrake.pm_.c:1845
msgid "Would you like to configure printing?"
msgstr ""
-#: ../../printerdrake.pm_.c:1865
+#: ../../printerdrake.pm_.c:1857
msgid "Printing system: "
msgstr ""
-#: ../../printerdrake.pm_.c:1887
+#: ../../printerdrake.pm_.c:1879
msgid ""
"The following printers are configured.\n"
"Click on one of them to modify it or\n"
@@ -6099,95 +6079,95 @@ msgid ""
"\"Add Printer\" to add a new printer."
msgstr ""
-#: ../../printerdrake.pm_.c:1893 ../../standalone/draknet_.c:301
+#: ../../printerdrake.pm_.c:1885 ../../standalone/draknet_.c:301
msgid "Normal Mode"
msgstr ""
-#: ../../printerdrake.pm_.c:1899 ../../printerdrake.pm_.c:2018
+#: ../../printerdrake.pm_.c:1891 ../../printerdrake.pm_.c:2010
msgid " (Default)"
msgstr ""
-#: ../../printerdrake.pm_.c:1903 ../../printerdrake.pm_.c:1943
+#: ../../printerdrake.pm_.c:1895 ../../printerdrake.pm_.c:1935
msgid "Printer(s) on remote CUPS server(s)"
msgstr ""
-#: ../../printerdrake.pm_.c:1904 ../../printerdrake.pm_.c:1944
+#: ../../printerdrake.pm_.c:1896 ../../printerdrake.pm_.c:1936
msgid "Printer(s) on remote server(s)"
msgstr ""
-#: ../../printerdrake.pm_.c:1906 ../../printerdrake.pm_.c:1927
-#: ../../printerdrake.pm_.c:1930 ../../printerdrake.pm_.c:1979
+#: ../../printerdrake.pm_.c:1898 ../../printerdrake.pm_.c:1919
+#: ../../printerdrake.pm_.c:1922 ../../printerdrake.pm_.c:1971
msgid "Add printer"
msgstr ""
-#: ../../printerdrake.pm_.c:1985 ../../printerdrake.pm_.c:2001
-#: ../../printerdrake.pm_.c:2136
+#: ../../printerdrake.pm_.c:1977 ../../printerdrake.pm_.c:1993
+#: ../../printerdrake.pm_.c:2128
msgid "Do you want to configure another printer?"
msgstr ""
-#: ../../printerdrake.pm_.c:2011
+#: ../../printerdrake.pm_.c:2003
msgid "Modify printer configuration"
msgstr ""
-#: ../../printerdrake.pm_.c:2012
+#: ../../printerdrake.pm_.c:2004
#, c-format
msgid ""
"Printer %s: %s %s\n"
"What do you want to modify on this printer?"
msgstr ""
-#: ../../printerdrake.pm_.c:2020
+#: ../../printerdrake.pm_.c:2012
msgid "Do it!"
msgstr ""
-#: ../../printerdrake.pm_.c:2023 ../../printerdrake.pm_.c:2070
+#: ../../printerdrake.pm_.c:2015 ../../printerdrake.pm_.c:2062
msgid "Printer connection type"
msgstr ""
-#: ../../printerdrake.pm_.c:2024 ../../printerdrake.pm_.c:2074
+#: ../../printerdrake.pm_.c:2016 ../../printerdrake.pm_.c:2066
msgid "Printer name, description, location"
msgstr ""
-#: ../../printerdrake.pm_.c:2026 ../../printerdrake.pm_.c:2089
+#: ../../printerdrake.pm_.c:2018 ../../printerdrake.pm_.c:2081
msgid "Printer manufacturer, model, driver"
msgstr ""
-#: ../../printerdrake.pm_.c:2027 ../../printerdrake.pm_.c:2090
+#: ../../printerdrake.pm_.c:2019 ../../printerdrake.pm_.c:2082
msgid "Printer manufacturer, model"
msgstr ""
-#: ../../printerdrake.pm_.c:2036 ../../printerdrake.pm_.c:2100
+#: ../../printerdrake.pm_.c:2028 ../../printerdrake.pm_.c:2092
msgid "Set this printer as the default"
msgstr ""
-#: ../../printerdrake.pm_.c:2037 ../../printerdrake.pm_.c:2105
+#: ../../printerdrake.pm_.c:2029 ../../printerdrake.pm_.c:2097
msgid "Print test pages"
msgstr ""
-#: ../../printerdrake.pm_.c:2038 ../../printerdrake.pm_.c:2107
+#: ../../printerdrake.pm_.c:2030 ../../printerdrake.pm_.c:2099
msgid "Know how to print with this printer"
msgstr ""
-#: ../../printerdrake.pm_.c:2039 ../../printerdrake.pm_.c:2109
+#: ../../printerdrake.pm_.c:2031 ../../printerdrake.pm_.c:2101
msgid "Remove printer"
msgstr ""
-#: ../../printerdrake.pm_.c:2079
+#: ../../printerdrake.pm_.c:2071
#, c-format
msgid "Removing old printer \"%s\" ..."
msgstr ""
-#: ../../printerdrake.pm_.c:2104
+#: ../../printerdrake.pm_.c:2096
#, c-format
msgid "The printer \"%s\" is set as the default printer now."
msgstr ""
-#: ../../printerdrake.pm_.c:2111
+#: ../../printerdrake.pm_.c:2103
#, c-format
msgid "Do you really want to remove the printer \"%s\"?"
msgstr ""
-#: ../../printerdrake.pm_.c:2113
+#: ../../printerdrake.pm_.c:2105
#, c-format
msgid "Removing printer \"%s\" ..."
msgstr ""
generated by cgit v1.2.1 (git 2.21.0) at 2025-03-03 08:25:00 +0000
">return $getFile; $current_medium = 'unknown'; #- don't know what CD image has been copied. --$max; } } #- keep in mind the asked medium has been refused on this way. #- this means it is no more selected. $::o->{packages}[2]{$asked_medium}{selected} = undef; #- on cancel, we can expect the current medium to be undefined too, #- this enable remounting if selecting a package back. $current_medium = 'unknown'; return; } sub getFile { my ($f, $method) = @_; my $rel = relGetFile($f); log::l("getFile $f ($method) relGetFile $rel"); do { if ($method =~ /crypto/i) { require crypto; log::l("crypto::getFile $f"); crypto::getFile($f); } elsif ($::o->{method} eq "ftp") { require ftp; ftp::getFile($rel); } elsif ($::o->{method} eq "http") { require http; log::l("http getFile $f"); http::getFile($rel); } else { #- try to open the file, but examine if it is present in the repository, this allow #- handling changing a media when some of the file on the first CD has been copied #- to other to avoid media change... my $f2 = "$postinstall_rpms/$f"; $f2 = "/tmp/rhimage/$rel" unless $postinstall_rpms && -e $f2; log::l("local getFile $f2"); open GETFILE, $f2 and *GETFILE; } } || errorOpeningFile($f); } sub getAndSaveFile { my ($file, $local) = @_; log::l("getAndSaveFile $file $local"); local *F; open F, ">$local" or return; local $/ = \ (16 * 1024); my $f = ref($file) ? $file : getFile($file) or return; local $_; while (<$f>) { syswrite F, $_ } 1; } #-###################################################################################### #- Post installation RPMS from cdrom only, functions #-###################################################################################### sub setup_postinstall_rpms($$) { my ($prefix, $packages) = @_; $postinstall_rpms and return; $postinstall_rpms = "$prefix/usr/postinstall-rpm"; require pkgs; require commands; log::l("postinstall rpms directory set to $postinstall_rpms"); clean_postinstall_rpms(); #- make sure in case of previous upgrade problem. commands::mkdir_('-p', $postinstall_rpms); #- compute closure of unselected package that may be copied, #- don't complain if package does not exists as it may happen #- for the various architecture taken into account (X servers). my %toCopy; foreach (@needToCopy) { my $pkg = pkgs::packageByName($packages, $_); pkgs::selectPackage($packages, $pkg, 0, \%toCopy) if $pkg; } @toCopy{@needToCopyIfRequiresSatisfied} = (); my @toCopy = map { pkgs::packageByName($packages, $_) } keys %toCopy; #- extract headers of package, this is necessary for getting #- the complete filename of each package. #- copy the package files in the postinstall RPMS directory. #- last arg is default medium '' known as the CD#1. pkgs::extractHeaders($prefix, \@toCopy, $packages->[2]{1}); commands::cp((map { "/tmp/rhimage/" . relGetFile(pkgs::packageFile($_)) } @toCopy), $postinstall_rpms); } sub clean_postinstall_rpms() { require commands; $postinstall_rpms and -d $postinstall_rpms and commands::rm('-rf', $postinstall_rpms); } #-###################################################################################### #- Functions #-###################################################################################### sub kernelVersion { my ($o) = @_; local $_ = readlink("$::o->{prefix}/boot/vmlinuz") and return first(/vmlinuz-(.*)/); require pkgs; my $p = pkgs::packageByName($o->{packages}, "kernel") or die "I couldn't find the kernel package!"; pkgs::packageVersion($p) . "-" . pkgs::packageRelease($p); } sub getNextStep { my ($s) = $::o->{steps}{first}; $s = $::o->{steps}{$s}{next} while $::o->{steps}{$s}{done} || !$::o->{steps}{$s}{reachable}; $s; } sub spawnShell { return if $::o->{localInstall} || $::testing; -x "/bin/sh" or die "cannot open shell - /usr/bin/sh doesn't exist"; fork and return; local *F; sysopen F, "/dev/tty2", 2 or die "cannot open /dev/tty2 -- no shell will be provided"; open STDIN, "<&F" or die ''; open STDOUT, ">&F" or die ''; open STDERR, ">&F" or die ''; close F; c::setsid(); ioctl(STDIN, c::TIOCSCTTY(), 0) or warn "could not set new controlling tty: $!"; exec {"/bin/sh"} "-/bin/sh" or log::l("exec of /bin/sh failed: $!"); } sub fsck_option { my ($o) = @_; my $y = $o->{security} < 3 && $::beginner ? "-y " : ""; substInFile { s/^(\s*fsckoptions="?)(-y )?/$1$y/ } "$o->{prefix}/etc/rc.d/rc.sysinit"; } sub getAvailableSpace { my ($o) = @_; #- make sure of this place to be available for installation, this could help a lot. #- currently doing a very small install use 36Mb of postinstall-rpm, but installing #- these packages may eat up to 90Mb (of course not all the server may be installed!). #- 65mb may be a good choice to avoid almost all problem of insuficient space left... my $minAvailableSize = 65 * sqr(1024); my $n = !$::testing && getAvailableSpace_mounted($o->{prefix}) || getAvailableSpace_raw($o->{fstab}) * 512 / 1.07; $n - max(0.1 * $n, $minAvailableSize); } sub getAvailableSpace_mounted { my ($prefix) = @_; my $dir = -d "$prefix/usr" ? "$prefix/usr" : "$prefix"; my (undef, $free) = common::df($dir) or return; log::l("getAvailableSpace_mounted $free KB"); $free * 1024 || 1; } sub getAvailableSpace_raw { my ($fstab) = @_; do { $_->{mntpoint} eq '/usr' and return $_->{size} } foreach @$fstab; do { $_->{mntpoint} eq '/' and return $_->{size} } foreach @$fstab; if ($::testing) { my $nb = 450; log::l("taking ${nb}MB for testing"); return $nb << 11; } die "missing root partition"; } sub setPackages($) { my ($o) = @_; require pkgs; if (!$o->{packages} || is_empty_hash_ref($o->{packages}[0])) { $o->{packages} = pkgs::psUsingHdlists($o->{prefix}, $o->{method}); push @{$o->{default_packages}}, "nfs-utils-clients" if $o->{method} eq "nfs"; push @{$o->{default_packages}}, "numlock" if $o->{miscellaneous}{numlock}; push @{$o->{default_packages}}, "kernel-secure" if $o->{security} > 3; push @{$o->{default_packages}}, "kernel-smp" if $o->{security} <= 3 && detect_devices::hasSMP(); #- no need for kernel-smp if we have kernel-secure which is smp push @{$o->{default_packages}}, "kernel-pcmcia-cs" if $o->{pcmcia}; push @{$o->{default_packages}}, "apmd" if $o->{pcmcia}; push @{$o->{default_packages}}, "raidtools" if $o->{raid} && !is_empty_array_ref($o->{raid}{raid}); push @{$o->{default_packages}}, "reiserfs-utils" if grep { isReiserfs($_) } @{$o->{fstab}}; push @{$o->{default_packages}}, "cdrecord" if detect_devices::burners(); push @{$o->{default_packages}}, "alsa", "alsa-utils" if modules::get_alias("snd-slot-0") =~ /^snd-card-/; pkgs::getDeps($o->{prefix}, $o->{packages}); pkgs::selectPackage($o->{packages}, pkgs::packageByName($o->{packages}, 'basesystem') || die("missing basesystem package"), 1); #- some program that may be crazy on some conditions (hack waiting for Aurora to work if no fb). $o->{allowFB} && (!detect_devices::matching_desc('Rage LT') && !detect_devices::matching_desc('SiS') && !detect_devices::matching_desc('Rage Mobility')) or push @pkgs::skip_list, 'Aurora'; #- must be done after selecting base packages (to save memory) pkgs::getProvides($o->{packages}); $o->{compss} = pkgs::readCompss($o->{prefix}, $o->{packages}); #- must be done after getProvides $o->{compssListLevels} = pkgs::readCompssList($o->{packages}, lang::get_langs()); ($o->{compssUsers}, $o->{compssUsersSorted}, $o->{compssUsersIcons}, $o->{compssUsersDescr}) = pkgs::readCompssUsers($o->{packages}, $o->{compss}, $o->{meta_class}); my @l = (); push @l, 'xawtv', 'kwintv' if grep { $_->{driver} eq 'bttv' } detect_devices::probeall(); push @l, "drakprofile", "draksync", "irda-utils" if $o->{pcmcia}; push @l, "Glide_V5" if detect_devices::matching_desc('Voodoo 5'); push @l, "Glide_V3-DRI" if detect_devices::matching_desc('Voodoo (3|Banshee)'); push @l, "Device3Dfx", "XFree86-glide-module" if detect_devices::matching_desc('Voodoo'); require timezone; require lang; push @l, "isdn4k-utils" if ($o->{timezone}{timezone} || timezone::bestTimezone(lang::lang2text($o->{lang}))) =~ /Europe/; $_->{values} = [ map { $_ + 50 } @{$_->{values}} ] foreach grep {$_} map { pkgs::packageByName($o->{packages}, $_) } @l; #- add OpenGL games that are only usefull if a 3D accelerated card is installed. my @gl = (); if (detect_devices::matching_desc('Matrox.* G[24]00') || detect_devices::matching_desc('Rage X[CL]') || detect_devices::matching_desc('Rage Mobility (?:P\/M|L) ') || detect_devices::matching_desc('3D Rage (?:LT|Pro)') || detect_devices::matching_desc('Voodoo [35]') || detect_devices::matching_desc('Voodoo Banshee') || detect_devices::matching_desc('8281[05].* CGC') || detect_devices::matching_desc('Rage 128')) { push @gl, "xscreensaver-gl", "Mesa-demos", "xmms-mesa"; push @gl, "bzflag" if (!detect_devices::matching_desc('Rage X[CL]') && !detect_devices::matching_desc('Rage Mobility (?:P\/M|L) ') && !detect_devices::matching_desc('3D Rage (?:LT|Pro)')); push @gl, "csmash", "gltron" if (!detect_devices::matching_desc('Rage 128')); #- does not work well on transparancy. push @gl, "spacecup", "chromium"; } $_->{values} = [ map { $_ + 60 } @{$_->{values}} ] foreach grep {$_} map { pkgs::packageByName($o->{packages}, $_) } @gl; } else { #- this has to be done to make sure necessary files for urpmi are #- present. pkgs::psUpdateHdlistsDeps($o->{prefix}, $o->{method}); #- remove upgrade flag with selection one. TOCHECK #pkgs::unselectAllPackagesIncludingUpgradable($o->{packages}); } } sub addToBeDone(&$) { my ($f, $step) = @_; return &$f() if $::o->{steps}{$step}{done}; push @{$::o->{steps}{$step}{toBeDone}}, $f; } sub setAuthentication { my ($o) = @_; my ($shadow, $md5, $nis) = @{$o->{authentication} || {}}{qw(shadow md5 NIS)}; my $p = $o->{prefix}; any::enableMD5Shadow($p, $shadow, $md5); any::enableShadow($p) if $shadow; if ($nis) { $o->pkg_install("ypbind"); my $domain = $o->{netc}{NISDOMAIN}; $domain || $nis ne "broadcast" or die _("Can't use broadcast with no NIS domain"); my $t = $domain ? "domain $domain" . ($nis ne "broadcast" && " server") : "ypserver"; substInFile { $_ = "#~$_" unless /^#/; $_ .= "$t $nis\n" if eof; } "$p/etc/yp.conf"; require network; network::write_conf("$p/etc/sysconfig/network", $o->{netc}); } } sub killCardServices { my $pid = chop_(cat_("/tmp/cardmgr.pid")); $pid and kill(15, $pid); #- send SIGTERM } sub hdInstallPath() { cat_("/proc/mounts") =~ m|/\w+/(\S+)\s+/tmp/hdimage| or return; my ($part) = grep { $_->{device} eq $1 } @{$::o->{fstab}}; $part->{mntpoint} or grep { $_->{mntpoint} eq "/mnt/hd" } @{$::o->{fstab}} and return; $part->{mntpoint} ||= "/mnt/hd"; $part->{mntpoint} . first(readlink("/tmp/rhimage") =~ m|^/tmp/hdimage/(.*)|); } sub unlockCdrom(;$) { my ($cdrom) = @_; $cdrom or cat_("/proc/mounts") =~ m|(/tmp/\S+)\s+/tmp/rhimage| and $cdrom = $1; $cdrom or cat_("/proc/mounts") =~ m|(/dev/\S+)\s+/mnt/cdrom | and $cdrom = $1; eval { $cdrom and ioctl detect_devices::tryOpen($1), c::CDROM_LOCKDOOR(), 0 }; } sub ejectCdrom(;$) { my ($cdrom) = @_; $cdrom or cat_("/proc/mounts") =~ m|(/tmp/\S+)\s+/tmp/rhimage| and $cdrom = $1; $cdrom or cat_("/proc/mounts") =~ m|(/dev/\S+)\s+/mnt/cdrom | and $cdrom = $1; my $f = eval { $cdrom && detect_devices::tryOpen($cdrom) } or return; getFile("XXX"); #- close still opened filehandle eval { fs::umount("/tmp/rhimage") }; ioctl $f, c::CDROMEJECT(), 1; } sub setupFB { my ($o, $vga) = @_; $vga ||= 785; #- assume at least 640x480x16. require bootloader; #- update bootloader entries with vga, all kernel are now framebuffer. foreach (qw(vmlinuz vmlinuz-secure vmlinuz-smp vmlinuz-hack)) { if (my $e = bootloader::get("/boot/$_", $o->{bootloader})) { $e->{vga} = $vga; } } bootloader::install($o->{prefix}, $o->{bootloader}, $o->{fstab}, $o->{hds}); 1; } sub install_urpmi { my ($prefix, $method, $mediums) = @_; my @cfg = map_index { my $name = $_->{fakemedium}; local *LIST; open LIST, ">$prefix/var/lib/urpmi/list.$name" or log::l("failed to write list.$name"), return; my $dir = ${{ nfs => "file://mnt/nfs", hd => "file:/" . hdInstallPath(), ftp => $ENV{URLPREFIX}, http => $ENV{URLPREFIX}, cdrom => "removable_cdrom_$::i://mnt/cdrom" }}{$method} . "/$_->{rpmsdir}"; local *FILES; open FILES, "packdrake -c /tmp/$_->{hdlist} | parsehdlist - |"; chop, print LIST "$dir/$_\n" foreach <FILES>; close FILES or log::l("parsehdlist failed"), return; close LIST; $dir .= " with ../base/$_->{hdlist}" if $method =~ /ftp|http/; "$name $dir\n"; } values %$mediums; eval { output "$prefix/etc/urpmi/urpmi.cfg", @cfg }; } #-############################################################################### #- kde stuff #-############################################################################### sub kderc_largedisplay { my ($prefix) = @_; update_userkderc($_, 'KDE', Contrast => 7, kfmIconStyle => "Large", kpanelIconStyle => "Normal", #- to change to Large when icons looks better KDEIconStyle => "Large") foreach list_skels($prefix, '.kderc'); substInFile { s/^(GridWidth)=85/$1=100/; s/^(GridHeight)=70/$1=75/; } $_ foreach list_skels($prefix, '.kde/share/config/kfmrc'); } sub kdeicons_postinstall { my ($prefix) = @_; #- parse etc/fstab file to search for dos/win, floppy, zip, cdroms icons. #- handle both supermount and fsdev usage. my %l = ( 'cdrom' => [ 'cdrom', 'Cd-Rom' ], 'zip' => [ 'zip', 'Zip' ], 'floppy-ls' => [ 'floppy', 'LS-120' ], 'floppy' => [ 'floppy', 'Floppy' ], ); foreach (fs::read_fstab("$prefix/etc/fstab")) { my ($name_, $nb) = $_->{mntpoint} =~ m|.*/(\S+?)(\d*)$/|; my ($name, $text) = @{$l{$name_} || []}; my $f = ${{ supermount => sub { $name .= '.fsdev' if $name }, vfat => sub { $name = 'Dos_'; $text = $name_ }, }}{$_->{type}}; &$f if $f; template2userfile($prefix, "$ENV{SHARE_PATH}/$name.kdelnk.in", "Desktop/$text" . ($nb && " $nb"). ".kdelnk", 1, %$_) if $name; } my @l = list_skels($prefix, 'Desktop/Doc.kdelnk'); if (my ($lang) = all("$prefix/usr/doc/mandrake")) { substInFile { s|^(URL=.*?)/?$|$1/$lang/index.html| } @l; substInFile { s|^(url=/usr/doc/mandrake/)$|$1$lang/index.html| } "$prefix/usr/lib/desktop-links/mandrake.links"; } else { unlink @l; substInFile { $_ = '' if /^\[MDKsupport\]$/ .. /^\s*$/ } "$prefix/usr/lib/desktop-links/mandrake.links"; } # rename the .kdelnk to the name found in the .kdelnk as kde doesn't use it # for displaying foreach my $dir (grep { -d $_ } list_skels($prefix, 'Desktop')) { foreach (grep { /\.kdelnk$/ } all($dir)) { cat_("$dir/$_") =~ /^Name\[\Q$ENV{LANG}\E\]=(.{2,14})$/m and rename "$dir/$_", "$dir/$1.kdelnk"; } } } sub kdemove_desktop_file { my ($prefix) = @_; my @toMove = qw(doc.kdelnk news.kdelnk updates.kdelnk home.kdelnk printer.kdelnk floppy.kdelnk cdrom.kdelnk FLOPPY.kdelnk CDROM.kdelnk); #- remove any existing save in Trash of each user and #- move appropriate file there after an upgrade. foreach my $dir (grep { -d $_ } list_skels($prefix, 'Desktop')) { unlink("$dir/Trash/$_") && rename("$dir/$_", "$dir/Trash/$_") foreach grep { -e "$dir/$_" } @toMove, grep { /\.rpmorig$/ } all($dir) } } #-############################################################################### #- auto_install stuff #-############################################################################### sub auto_inst_file() { ($::g_auto_install ? "/tmp" : "$::o->{prefix}/root") . "/auto_inst.cfg.pl" } sub g_auto_install(;$) { my ($f) = @_; $f ||= auto_inst_file; my $o = {}; require pkgs; $o->{default_packages} = [ map { pkgs::packageName($_) } grep { pkgs::packageFlagSelected($_) && !pkgs::packageFlagBase($_) } values %{$::o->{packages}[0]} ]; my @fields = qw(mntpoint type size); $o->{partitions} = [ map { my %l; @l{@fields} = @$_{@fields}; \%l } grep { $_->{mntpoint} } @{$::o->{fstab}} ]; exists $::o->{$_} and $o->{$_} = $::o->{$_} foreach qw(lang autoSCSI authentication printer mouse wacom netc timezone superuser intf keyboard mkbootdisk users installClass partitioning isUpgrade manualFstab nomouseprobe crypto security netcnx useSupermount autoExitInstall); #- TODO modules bootloader if (my $card = $::o->{X}{card}) { $o->{X}{$_} = $::o->{X}{$_} foreach qw(default_depth resolution_wanted); if ($o->{X}{default_depth} and my $depth = $card->{depth}{$o->{X}{default_depth}}) { $depth ||= []; $o->{X}{resolution_wanted} ||= join "x", @{$depth->[0]} unless is_empty_array_ref($depth->[0]); $o->{X}{monitor} = $::o->{X}{monitor} if $::o->{X}{monitor}{manual}; } } local $o->{partitioning}{auto_allocate} = 1; local $o->{autoExitInstall} = 1; $_ = { %{$_ || {}} }, delete @$_{qw(oldu oldg password password2)} foreach $o->{superuser}, @{$o->{users} || []}; output($f, "# You should always check the syntax with 'perl -cw auto_inst.cfg.pl' before testing\n", Data::Dumper->Dump([$o], ['$o']), "\0"); } sub loadO { my ($O, $f) = @_; $f ||= auto_inst_file; my $o; if ($f =~ /^(floppy|patch)$/) { my $f = $f eq "floppy" ? 'auto_inst.cfg' : "patch"; unless ($::testing) { fs::mount(devices::make(detect_devices::floppy()), "/mnt", (arch() =~ /sparc/ ? "romfs" : "vfat"), 'readonly'); $f = "/mnt/$f"; } -e $f or $f .= '.pl'; my $b = before_leaving { fs::umount("/mnt") unless $::testing; modules::unload($_) foreach qw(vfat fat); }; $o = loadO($O, $f); } else { -e "$f.pl" and $f .= ".pl" unless -e $f; my $fh = -e $f ? do { local *F; open F, $f; *F } : getFile($f) or die _("Error reading file $f"); { local $/ = "\0"; no strict; eval <$fh>; close $fh; $@ and log::l("Bad kickstart file $f (failed $@)"); } add2hash_($o ||= {}, $O); } bless $o, ref $O; } sub generate_ks_cfg { my ($o) = @_; return if $o->{method} =~ /hd|cdrom/; my $ks; if ($o->{method} =~ /ftp|http/) { $ks .= "url --url $ENV{URLPREFIX}\n"; } elsif ($o->{method} =~ /nfs/) { cat_("/proc/mounts") =~ m|(\S+):(\S+)\s+/tmp/rhimage nfs| or die; $ks .= "nfs --server $1 --dir $2\n"; } my ($intf) = values %{$o->{intf}}; if ($intf->{BOOTPROTO} =~ /^(dhcp|bootp)$/) { $ks .= "network --bootproto $intf->{BOOTPROTO}\n"; } else { require network; my %l = (ip => $intf->{IPADDR}, netmask => $intf->{NETMASK}, gateway => $o->{netc}{GATEWAY}); $ks .= "network " . join(" ", map_each { $::b && "--$::a $::b" } %l); $ks .= " --nameserver $_" foreach network::dnsServers($o->{netc}); $ks .= "\n"; } $ks; } sub guess_mount_point { my ($part, $prefix, $user) = @_; my %l = ( '/' => 'etc/fstab', '/boot' => 'vmlinuz', '/tmp' => '.X11-unix', '/usr' => 'X11R6', '/var' => 'catman', ); my $handle = any::inspect($part, $prefix) or return; my $d = $handle->{dir}; my ($mnt) = grep { -e "$d/$l{$_}" } keys %l; $mnt ||= (stat("$d/.bashrc"))[4] ? '/root' : '/home/user' . ++$$user if -e "$d/.bashrc"; $mnt ||= (grep { -d $_ && (stat($_))[4] >= 500 && -e "$_/.bashrc" } glob_("$d")) ? '/home' : ''; ($mnt, $handle); } sub suggest_mount_points { my ($hds, $prefix, $uniq) = @_; my @fstab = fsedit::get_fstab(@$hds); my $user; foreach my $part (grep { isTrueFS($_) } @fstab) { $part->{mntpoint} && !$part->{unsafeMntpoint} and next; #- if already found via an fstab my ($mnt, $handle) = guess_mount_point($part, $prefix, \$user) or next; next if $uniq && fsedit::mntpoint2part($mnt, \@fstab); $part->{mntpoint} = $mnt; delete $part->{unsafeMntpoint}; #- try to find other mount points via fstab fs::get_mntpoints_from_fstab([ fsedit::get_fstab(@$hds) ], $handle->{dir}, $uniq) if $mnt eq '/'; } $_->{mntpoint} and log::l("suggest_mount_points: $_->{device} -> $_->{mntpoint}") foreach @fstab; } #- mainly for finding the root partitions for upgrade sub find_root_parts { my ($hds, $prefix) = @_; log::l("find_root_parts"); my $user; grep { my ($mnt) = guess_mount_point($_, $prefix, \$user); $mnt eq '/'; } fsedit::get_fstab(@$hds); } sub use_root_part { my ($fstab, $part, $prefix) = @_; { my $handle = any::inspect($part, $prefix) or die; fs::get_mntpoints_from_fstab($fstab, $handle->{dir}, 'uniq'); } map { $_->{mntpoint} = 'swap' } grep { isSwap($_) } @$fstab; #- use all available swap. fs::mount_all($fstab, $prefix); } sub getHds { my ($o, $f_err) = @_; my $ok = 1; my $flags = $o->{partitioning}; my @drives = detect_devices::hds(); # add2hash_($o->{partitioning}, { readonly => 1 }) if partition_table_raw::typeOfMBR($drives[0]{device}) eq 'system_commander'; getHds: $o->{hds} = catch_cdie { fsedit::hds(\@drives, $flags) } sub { $ok = 0; my $err = $@; $err =~ s/ at (.*?)$//; log::l("error reading partition table: $err");