summaryrefslogtreecommitdiffstats
path: root/perl-install/install/share/po
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install/share/po')
-rw-r--r--perl-install/install/share/po/DrakX.pot2
-rw-r--r--perl-install/install/share/po/af.po4
-rw-r--r--perl-install/install/share/po/am.po2
-rw-r--r--perl-install/install/share/po/ar.po4
-rw-r--r--perl-install/install/share/po/az.po4
-rw-r--r--perl-install/install/share/po/be.po4
-rw-r--r--perl-install/install/share/po/bg.po4
-rw-r--r--perl-install/install/share/po/bn.po2
-rw-r--r--perl-install/install/share/po/br.po4
-rw-r--r--perl-install/install/share/po/bs.po4
-rw-r--r--perl-install/install/share/po/ca.po4
-rw-r--r--perl-install/install/share/po/cs.po4
-rw-r--r--perl-install/install/share/po/cy.po4
-rw-r--r--perl-install/install/share/po/da.po4
-rw-r--r--perl-install/install/share/po/de.po4
-rw-r--r--perl-install/install/share/po/el.po4
-rw-r--r--perl-install/install/share/po/eo.po4
-rw-r--r--perl-install/install/share/po/es.po4
-rw-r--r--perl-install/install/share/po/et.po4
-rw-r--r--perl-install/install/share/po/eu.po4
-rw-r--r--perl-install/install/share/po/fa.po4
-rw-r--r--perl-install/install/share/po/fi.po4
-rw-r--r--perl-install/install/share/po/fr.po4
-rw-r--r--perl-install/install/share/po/fur.po2
-rw-r--r--perl-install/install/share/po/ga.po4
-rw-r--r--perl-install/install/share/po/gl.po4
-rw-r--r--perl-install/install/share/po/he.po2
-rw-r--r--perl-install/install/share/po/hi.po2
-rw-r--r--perl-install/install/share/po/hr.po4
-rw-r--r--perl-install/install/share/po/hu.po4
-rw-r--r--perl-install/install/share/po/id.po4
-rw-r--r--perl-install/install/share/po/is.po4
-rw-r--r--perl-install/install/share/po/it.po4
-rw-r--r--perl-install/install/share/po/ja.po2
-rw-r--r--perl-install/install/share/po/ko.po4
-rw-r--r--perl-install/install/share/po/ky.po4
-rw-r--r--perl-install/install/share/po/lt.po4
-rw-r--r--perl-install/install/share/po/ltg.po4
-rw-r--r--perl-install/install/share/po/lv.po4
-rw-r--r--perl-install/install/share/po/mk.po4
-rw-r--r--perl-install/install/share/po/mn.po4
-rw-r--r--perl-install/install/share/po/ms.po2
-rw-r--r--perl-install/install/share/po/mt.po4
-rw-r--r--perl-install/install/share/po/nb.po4
-rw-r--r--perl-install/install/share/po/nl.po4
-rw-r--r--perl-install/install/share/po/nn.po2
-rw-r--r--perl-install/install/share/po/pa_IN.po2
-rw-r--r--perl-install/install/share/po/pl.po4
-rw-r--r--perl-install/install/share/po/pt.po4
-rw-r--r--perl-install/install/share/po/pt_BR.po4
-rw-r--r--perl-install/install/share/po/ro.po4
-rw-r--r--perl-install/install/share/po/ru.po4
-rw-r--r--perl-install/install/share/po/sc.po4
-rw-r--r--perl-install/install/share/po/sk.po4
-rw-r--r--perl-install/install/share/po/sl.po2
-rw-r--r--perl-install/install/share/po/sq.po2
-rw-r--r--perl-install/install/share/po/sr.po4
-rw-r--r--perl-install/install/share/po/sr@Latn.po4
-rw-r--r--perl-install/install/share/po/sv.po4
-rw-r--r--perl-install/install/share/po/ta.po2
-rw-r--r--perl-install/install/share/po/tg.po4
-rw-r--r--perl-install/install/share/po/th.po2
-rw-r--r--perl-install/install/share/po/tl.po4
-rw-r--r--perl-install/install/share/po/tr.po4
-rw-r--r--perl-install/install/share/po/uk.po4
-rw-r--r--perl-install/install/share/po/uz.po4
-rw-r--r--perl-install/install/share/po/uz@cyrillic.po4
-rw-r--r--perl-install/install/share/po/vi.po4
-rw-r--r--perl-install/install/share/po/wa.po4
-rw-r--r--perl-install/install/share/po/zh_CN.po2
-rw-r--r--perl-install/install/share/po/zh_TW.po2
71 files changed, 126 insertions, 126 deletions
diff --git a/perl-install/install/share/po/DrakX.pot b/perl-install/install/share/po/DrakX.pot
index 41bb6c31b..e33746fa5 100644
--- a/perl-install/install/share/po/DrakX.pot
+++ b/perl-install/install/share/po/DrakX.pot
@@ -904,7 +904,7 @@ msgstr ""
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
+msgid "Please choose your keyboard layout"
msgstr ""
#: steps_interactive.pm:105
diff --git a/perl-install/install/share/po/af.po b/perl-install/install/share/po/af.po
index 40e19150c..d9b1d35fb 100644
--- a/perl-install/install/share/po/af.po
+++ b/perl-install/install/share/po/af.po
@@ -950,8 +950,8 @@ msgstr "'n Fout het voorgekom"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Kies asseblief u sleutelborduitleg."
+msgid "Please choose your keyboard layout"
+msgstr "Kies asseblief u sleutelborduitleg"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/am.po b/perl-install/install/share/po/am.po
index 371d0c9a2..1bf8fe169 100644
--- a/perl-install/install/share/po/am.po
+++ b/perl-install/install/share/po/am.po
@@ -901,7 +901,7 @@ msgstr "ስህተት ተፈጥሯል"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
+msgid "Please choose your keyboard layout"
msgstr ""
#: steps_interactive.pm:105
diff --git a/perl-install/install/share/po/ar.po b/perl-install/install/share/po/ar.po
index ad02504ff..f73812729 100644
--- a/perl-install/install/share/po/ar.po
+++ b/perl-install/install/share/po/ar.po
@@ -950,8 +950,8 @@ msgstr "حدث خطأ"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "الرجاء اختيار لوحة المفاتيح."
+msgid "Please choose your keyboard layout"
+msgstr "الرجاء اختيار لوحة المفاتيح"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/az.po b/perl-install/install/share/po/az.po
index c2ef99cb4..3ac612ac1 100644
--- a/perl-install/install/share/po/az.po
+++ b/perl-install/install/share/po/az.po
@@ -944,8 +944,8 @@ msgstr "Bir xəta oldu"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Xahiş edirik, klaviatura düzülüşünüzü seçin."
+msgid "Please choose your keyboard layout"
+msgstr "Xahiş edirik, klaviatura düzülüşünüzü seçin"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/be.po b/perl-install/install/share/po/be.po
index 3b4e650fb..1966354bf 100644
--- a/perl-install/install/share/po/be.po
+++ b/perl-install/install/share/po/be.po
@@ -922,8 +922,8 @@ msgstr "Адбылася памылка"
#: steps_interactive.pm:102
#, fuzzy, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Калі ласка, абярыце тып клавіятуры."
+msgid "Please choose your keyboard layout"
+msgstr "Калі ласка, абярыце тып клавіятуры"
#: steps_interactive.pm:105
#, c-format
diff --git a/perl-install/install/share/po/bg.po b/perl-install/install/share/po/bg.po
index b923d9996..de9570210 100644
--- a/perl-install/install/share/po/bg.po
+++ b/perl-install/install/share/po/bg.po
@@ -949,8 +949,8 @@ msgstr "Появи се грешка"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Моля, изберете подреждане на клавиатурата."
+msgid "Please choose your keyboard layout"
+msgstr "Моля, изберете подреждане на клавиатурата"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/bn.po b/perl-install/install/share/po/bn.po
index d77f290f8..3bb1350f6 100644
--- a/perl-install/install/share/po/bn.po
+++ b/perl-install/install/share/po/bn.po
@@ -951,7 +951,7 @@ msgstr "একটি ত্রুটি সম্পাদিত হয়েছে
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
+msgid "Please choose your keyboard layout"
msgstr "অনুগ্রহ করে আপনার কীবোর্ড বিন্যাস পছন্দ করুন।"
#: steps_interactive.pm:105
diff --git a/perl-install/install/share/po/br.po b/perl-install/install/share/po/br.po
index e7a0ea6b0..cfcbad507 100644
--- a/perl-install/install/share/po/br.po
+++ b/perl-install/install/share/po/br.po
@@ -921,8 +921,8 @@ msgstr "Ur fazi zo bet"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Dibabit reizhadur ho stokellaoueg mar plij."
+msgid "Please choose your keyboard layout"
+msgstr "Dibabit reizhadur ho stokellaoueg mar plij"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/bs.po b/perl-install/install/share/po/bs.po
index 6793c5456..7f636a5bc 100644
--- a/perl-install/install/share/po/bs.po
+++ b/perl-install/install/share/po/bs.po
@@ -962,8 +962,8 @@ msgstr "Došlo je do greške"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Molim izaberite raspored vaše tastature."
+msgid "Please choose your keyboard layout"
+msgstr "Molim izaberite raspored vaše tastature"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/ca.po b/perl-install/install/share/po/ca.po
index 0509bb489..706bfa6ff 100644
--- a/perl-install/install/share/po/ca.po
+++ b/perl-install/install/share/po/ca.po
@@ -952,8 +952,8 @@ msgstr "S'ha produït un error"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Si us plau, seleccioneu la disposició del vostre teclat."
+msgid "Please choose your keyboard layout"
+msgstr "Si us plau, seleccioneu la disposició del vostre teclat"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/cs.po b/perl-install/install/share/po/cs.po
index 9b6bc00b7..1ef61abe3 100644
--- a/perl-install/install/share/po/cs.po
+++ b/perl-install/install/share/po/cs.po
@@ -959,8 +959,8 @@ msgstr "Stala se chyba"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Vyberte si rozložení vaší klávesnice."
+msgid "Please choose your keyboard layout"
+msgstr "Vyberte si rozložení vaší klávesnice"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/cy.po b/perl-install/install/share/po/cy.po
index bb321b360..cc4674fa7 100644
--- a/perl-install/install/share/po/cy.po
+++ b/perl-install/install/share/po/cy.po
@@ -958,8 +958,8 @@ msgstr "Digwyddodd gwall"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Dewiswch gynllun eich bysellfwrdd."
+msgid "Please choose your keyboard layout"
+msgstr "Dewiswch gynllun eich bysellfwrdd"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/da.po b/perl-install/install/share/po/da.po
index f3dd43f14..4035f71a1 100644
--- a/perl-install/install/share/po/da.po
+++ b/perl-install/install/share/po/da.po
@@ -963,8 +963,8 @@ msgstr "Der er opstået en fejl"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Vælg dit tastaturlayout."
+msgid "Please choose your keyboard layout"
+msgstr "Vælg dit tastaturlayout"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/de.po b/perl-install/install/share/po/de.po
index 7c8fc7c19..abcea431f 100644
--- a/perl-install/install/share/po/de.po
+++ b/perl-install/install/share/po/de.po
@@ -976,8 +976,8 @@ msgstr "Ein Fehler ist aufgetreten"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Bitte wählen Sie Ihren Tastaturtyp."
+msgid "Please choose your keyboard layout"
+msgstr "Bitte wählen Sie Ihren Tastaturtyp"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/el.po b/perl-install/install/share/po/el.po
index 54b8f647d..8dcf392bf 100644
--- a/perl-install/install/share/po/el.po
+++ b/perl-install/install/share/po/el.po
@@ -968,8 +968,8 @@ msgstr "Προκλήθηκε σφάλμα"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Παρακαλώ επιλέξτε την διάταξη πληκτρολογίου."
+msgid "Please choose your keyboard layout"
+msgstr "Παρακαλώ επιλέξτε την διάταξη πληκτρολογίου"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/eo.po b/perl-install/install/share/po/eo.po
index 38b7fe97d..17f4a11ec 100644
--- a/perl-install/install/share/po/eo.po
+++ b/perl-install/install/share/po/eo.po
@@ -959,8 +959,8 @@ msgstr "Eraro okazis"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Bonvole elektu vian klavar-aranĝon."
+msgid "Please choose your keyboard layout"
+msgstr "Bonvole elektu vian klavar-aranĝon"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/es.po b/perl-install/install/share/po/es.po
index 9e24a91df..3a120e530 100644
--- a/perl-install/install/share/po/es.po
+++ b/perl-install/install/share/po/es.po
@@ -967,8 +967,8 @@ msgstr "Ocurrió un error"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Por favor, elija el tipo de su teclado."
+msgid "Please choose your keyboard layout"
+msgstr "Por favor, elija el tipo de su teclado"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/et.po b/perl-install/install/share/po/et.po
index f32422ee2..5c0ae2952 100644
--- a/perl-install/install/share/po/et.po
+++ b/perl-install/install/share/po/et.po
@@ -950,8 +950,8 @@ msgstr "Tekkis mingi viga"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Palun valige klaviatuuriasetus."
+msgid "Please choose your keyboard layout"
+msgstr "Palun valige klaviatuuriasetus"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/eu.po b/perl-install/install/share/po/eu.po
index ec9d1420b..3153a1d6e 100644
--- a/perl-install/install/share/po/eu.po
+++ b/perl-install/install/share/po/eu.po
@@ -955,8 +955,8 @@ msgstr "Errore bat izan da"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Aukeratu zure teklatu-diseinua."
+msgid "Please choose your keyboard layout"
+msgstr "Aukeratu zure teklatu-diseinua"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/fa.po b/perl-install/install/share/po/fa.po
index 38f9e38a9..40cbf6d9a 100644
--- a/perl-install/install/share/po/fa.po
+++ b/perl-install/install/share/po/fa.po
@@ -943,8 +943,8 @@ msgstr "خطائی رخ داد"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "لطفاً طرح صفحه‌کلید خود را انتخاب کنید."
+msgid "Please choose your keyboard layout"
+msgstr "لطفاً طرح صفحه‌کلید خود را انتخاب کنید"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/fi.po b/perl-install/install/share/po/fi.po
index 0b2210408..e6ac58fcc 100644
--- a/perl-install/install/share/po/fi.po
+++ b/perl-install/install/share/po/fi.po
@@ -969,8 +969,8 @@ msgstr "Ilmeni virhe"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Valitse näppäimistösi asettelu."
+msgid "Please choose your keyboard layout"
+msgstr "Valitse näppäimistösi asettelu"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/fr.po b/perl-install/install/share/po/fr.po
index 6f546f0b2..0e73c443d 100644
--- a/perl-install/install/share/po/fr.po
+++ b/perl-install/install/share/po/fr.po
@@ -1035,8 +1035,8 @@ msgstr "Une erreur est survenue"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Veuillez choisir votre type de clavier."
+msgid "Please choose your keyboard layout"
+msgstr "Veuillez choisir votre type de clavier"
#: steps_interactive.pm:105
#, c-format
diff --git a/perl-install/install/share/po/fur.po b/perl-install/install/share/po/fur.po
index 827887186..8fd2ce237 100644
--- a/perl-install/install/share/po/fur.po
+++ b/perl-install/install/share/po/fur.po
@@ -904,7 +904,7 @@ msgstr "Al è intravignût un fal"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
+msgid "Please choose your keyboard layout"
msgstr ""
#: steps_interactive.pm:105
diff --git a/perl-install/install/share/po/ga.po b/perl-install/install/share/po/ga.po
index c4a8ee0ee..6491b23b7 100644
--- a/perl-install/install/share/po/ga.po
+++ b/perl-install/install/share/po/ga.po
@@ -902,8 +902,8 @@ msgstr "Tharla earráid"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Roghnaigh leagan amach do mhéarchláir."
+msgid "Please choose your keyboard layout"
+msgstr "Roghnaigh leagan amach do mhéarchláir"
#: steps_interactive.pm:105
#, c-format
diff --git a/perl-install/install/share/po/gl.po b/perl-install/install/share/po/gl.po
index 4c3b1df4e..c5604181d 100644
--- a/perl-install/install/share/po/gl.po
+++ b/perl-install/install/share/po/gl.po
@@ -963,8 +963,8 @@ msgstr "Ocorreu un erro"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Escolla a disposición do seu teclado."
+msgid "Please choose your keyboard layout"
+msgstr "Escolla a disposición do seu teclado"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/he.po b/perl-install/install/share/po/he.po
index 52d2524ac..5f9b929d9 100644
--- a/perl-install/install/share/po/he.po
+++ b/perl-install/install/share/po/he.po
@@ -951,7 +951,7 @@ msgstr "חלה שגיאה"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
+msgid "Please choose your keyboard layout"
msgstr "בשלב זה עליך להגדיר את פרישת המקלדת שלך"
#: steps_interactive.pm:105
diff --git a/perl-install/install/share/po/hi.po b/perl-install/install/share/po/hi.po
index ef4122581..4fb65e9e0 100644
--- a/perl-install/install/share/po/hi.po
+++ b/perl-install/install/share/po/hi.po
@@ -942,7 +942,7 @@ msgstr "एक त्रुटि हो गयी है"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
+msgid "Please choose your keyboard layout"
msgstr "कृपया अपने की-बोर्ड खाका का चयन करें ।"
#: steps_interactive.pm:105
diff --git a/perl-install/install/share/po/hr.po b/perl-install/install/share/po/hr.po
index 35fc2b79f..9689f198d 100644
--- a/perl-install/install/share/po/hr.po
+++ b/perl-install/install/share/po/hr.po
@@ -939,8 +939,8 @@ msgstr "Pojavila se greška"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Molim, izaberite raspored tipkovnice."
+msgid "Please choose your keyboard layout"
+msgstr "Molim, izaberite raspored tipkovnice"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/hu.po b/perl-install/install/share/po/hu.po
index 3a4251e55..09d627da6 100644
--- a/perl-install/install/share/po/hu.po
+++ b/perl-install/install/share/po/hu.po
@@ -980,8 +980,8 @@ msgstr "Hiba lépett fel"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Válasszon billentyűzetkiosztást."
+msgid "Please choose your keyboard layout"
+msgstr "Válasszon billentyűzetkiosztást"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/id.po b/perl-install/install/share/po/id.po
index ae7d22e9f..342f86325 100644
--- a/perl-install/install/share/po/id.po
+++ b/perl-install/install/share/po/id.po
@@ -963,8 +963,8 @@ msgstr "Terjadi kesalahan"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Pilih layout keyboard Anda."
+msgid "Please choose your keyboard layout"
+msgstr "Pilih layout keyboard Anda"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/is.po b/perl-install/install/share/po/is.po
index 7a860eeda..0dddab34a 100644
--- a/perl-install/install/share/po/is.po
+++ b/perl-install/install/share/po/is.po
@@ -958,8 +958,8 @@ msgstr "Villa kom upp"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Veldu lyklaborðs-uppsetningu."
+msgid "Please choose your keyboard layout"
+msgstr "Veldu lyklaborðs-uppsetningu"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/it.po b/perl-install/install/share/po/it.po
index 17bc9515f..20c808763 100644
--- a/perl-install/install/share/po/it.po
+++ b/perl-install/install/share/po/it.po
@@ -964,8 +964,8 @@ msgstr "Si è verificato un errore"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Scegli la mappa della tastiera."
+msgid "Please choose your keyboard layout"
+msgstr "Scegli la mappa della tastiera"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/ja.po b/perl-install/install/share/po/ja.po
index 7d55abc08..3888cb493 100644
--- a/perl-install/install/share/po/ja.po
+++ b/perl-install/install/share/po/ja.po
@@ -952,7 +952,7 @@ msgstr "エラーが発生しました"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
+msgid "Please choose your keyboard layout"
msgstr "キーボードの配列を選んでください"
#: steps_interactive.pm:105
diff --git a/perl-install/install/share/po/ko.po b/perl-install/install/share/po/ko.po
index eb904dbeb..53ae2fe3a 100644
--- a/perl-install/install/share/po/ko.po
+++ b/perl-install/install/share/po/ko.po
@@ -949,8 +949,8 @@ msgstr "오류 발생"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "키보드 구성을 선택하시오."
+msgid "Please choose your keyboard layout"
+msgstr "키보드 구성을 선택하시오"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/ky.po b/perl-install/install/share/po/ky.po
index 6020f2b89..f0b4b254c 100644
--- a/perl-install/install/share/po/ky.po
+++ b/perl-install/install/share/po/ky.po
@@ -938,8 +938,8 @@ msgstr "Жаңылыштык орун алды"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Өзүңүздүн алиптакта картасын тандаңыз."
+msgid "Please choose your keyboard layout"
+msgstr "Өзүңүздүн алиптакта картасын тандаңыз"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/lt.po b/perl-install/install/share/po/lt.po
index 2fdddb138..6e26cee17 100644
--- a/perl-install/install/share/po/lt.po
+++ b/perl-install/install/share/po/lt.po
@@ -930,8 +930,8 @@ msgstr "Įvyko klaida"
#: steps_interactive.pm:102
#, fuzzy, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Prašom pasirinkti klaviatūros išdėstymą."
+msgid "Please choose your keyboard layout"
+msgstr "Prašom pasirinkti klaviatūros išdėstymą"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/ltg.po b/perl-install/install/share/po/ltg.po
index 492fc07bd..479efa306 100644
--- a/perl-install/install/share/po/ltg.po
+++ b/perl-install/install/share/po/ltg.po
@@ -957,8 +957,8 @@ msgstr "Atkluota kliuda"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Lyudzu izavielejit jiusu klaviaturys izkuortuojumu."
+msgid "Please choose your keyboard layout"
+msgstr "Lyudzu izavielejit jiusu klaviaturys izkuortuojumu"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/lv.po b/perl-install/install/share/po/lv.po
index 160d38849..5c6875310 100644
--- a/perl-install/install/share/po/lv.po
+++ b/perl-install/install/share/po/lv.po
@@ -945,8 +945,8 @@ msgstr "Atklāta kļūda"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Lūdzu izvēlieties jūsu tastatūras izkārtojumu."
+msgid "Please choose your keyboard layout"
+msgstr "Lūdzu izvēlieties jūsu tastatūras izkārtojumu"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/mk.po b/perl-install/install/share/po/mk.po
index 997ed5cd0..93cb306d9 100644
--- a/perl-install/install/share/po/mk.po
+++ b/perl-install/install/share/po/mk.po
@@ -964,8 +964,8 @@ msgstr "Се случи грешка"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Изберете распоред на тастатура."
+msgid "Please choose your keyboard layout"
+msgstr "Изберете распоред на тастатура"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/mn.po b/perl-install/install/share/po/mn.po
index a4479d059..be95ed966 100644
--- a/perl-install/install/share/po/mn.po
+++ b/perl-install/install/share/po/mn.po
@@ -907,8 +907,8 @@ msgstr ""
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Та гарын байрлалаа сонгоно уу."
+msgid "Please choose your keyboard layout"
+msgstr "Та гарын байрлалаа сонгоно уу"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/ms.po b/perl-install/install/share/po/ms.po
index d57bacf8e..4efdfec2b 100644
--- a/perl-install/install/share/po/ms.po
+++ b/perl-install/install/share/po/ms.po
@@ -910,7 +910,7 @@ msgstr "Ralat telah berlaku"
#: steps_interactive.pm:102
#, fuzzy, c-format
-msgid "Please choose your keyboard layout."
+msgid "Please choose your keyboard layout"
msgstr "Sila pilih jenis logmasuk anda:"
#: steps_interactive.pm:105
diff --git a/perl-install/install/share/po/mt.po b/perl-install/install/share/po/mt.po
index e14f33a38..ad4218727 100644
--- a/perl-install/install/share/po/mt.po
+++ b/perl-install/install/share/po/mt.po
@@ -944,8 +944,8 @@ msgstr "Inqalgħet problema"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Jekk jogħġbok agħżel tqassim tat-tastiera."
+msgid "Please choose your keyboard layout"
+msgstr "Jekk jogħġbok agħżel tqassim tat-tastiera"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/nb.po b/perl-install/install/share/po/nb.po
index 26149e20e..bfada8b9c 100644
--- a/perl-install/install/share/po/nb.po
+++ b/perl-install/install/share/po/nb.po
@@ -973,8 +973,8 @@ msgstr "En feil oppstod"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Velg ditt tastaturoppsett."
+msgid "Please choose your keyboard layout"
+msgstr "Velg ditt tastaturoppsett"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/nl.po b/perl-install/install/share/po/nl.po
index eca4d94cf..409ca2e98 100644
--- a/perl-install/install/share/po/nl.po
+++ b/perl-install/install/share/po/nl.po
@@ -966,8 +966,8 @@ msgstr "Er is een fout opgetreden"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Kies uw toetsenbord-indeling."
+msgid "Please choose your keyboard layout"
+msgstr "Kies uw toetsenbord-indeling"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/nn.po b/perl-install/install/share/po/nn.po
index 6ed3ce49b..74dd779db 100644
--- a/perl-install/install/share/po/nn.po
+++ b/perl-install/install/share/po/nn.po
@@ -953,7 +953,7 @@ msgstr "Det oppstod ein feil"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
+msgid "Please choose your keyboard layout"
msgstr "Vel tastaturoppsett"
#: steps_interactive.pm:105
diff --git a/perl-install/install/share/po/pa_IN.po b/perl-install/install/share/po/pa_IN.po
index ffb6499b9..8826437c8 100644
--- a/perl-install/install/share/po/pa_IN.po
+++ b/perl-install/install/share/po/pa_IN.po
@@ -928,7 +928,7 @@ msgstr "ਇੱਕ ਗਲਤੀ ਆਈ ਹੈ"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
+msgid "Please choose your keyboard layout"
msgstr "ਕਿਰਪਾ ਕਰਕੇ ਆਪਣਾ ਕੀਬੋਰਡ ਖਾਕਾ ਚੁਣੋ।"
#: steps_interactive.pm:105
diff --git a/perl-install/install/share/po/pl.po b/perl-install/install/share/po/pl.po
index ba3e7e9e5..cf6ee2c2a 100644
--- a/perl-install/install/share/po/pl.po
+++ b/perl-install/install/share/po/pl.po
@@ -970,8 +970,8 @@ msgstr "Wystąpił błąd"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Wybierz układ klawiatury."
+msgid "Please choose your keyboard layout"
+msgstr "Wybierz układ klawiatury"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/pt.po b/perl-install/install/share/po/pt.po
index 66a25082a..d9ab6e2cc 100644
--- a/perl-install/install/share/po/pt.po
+++ b/perl-install/install/share/po/pt.po
@@ -976,8 +976,8 @@ msgstr "Ocorreu um erro"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Por favor escolha o tipo de teclado."
+msgid "Please choose your keyboard layout"
+msgstr "Por favor escolha o tipo de teclado"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/pt_BR.po b/perl-install/install/share/po/pt_BR.po
index 5c6cfe5d2..4e57f4214 100644
--- a/perl-install/install/share/po/pt_BR.po
+++ b/perl-install/install/share/po/pt_BR.po
@@ -975,8 +975,8 @@ msgstr "Ocorreu um erro"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Por favor, escolha o layout do seu teclado."
+msgid "Please choose your keyboard layout"
+msgstr "Por favor, escolha o layout do seu teclado"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/ro.po b/perl-install/install/share/po/ro.po
index 660ca3607..b439bd05b 100644
--- a/perl-install/install/share/po/ro.po
+++ b/perl-install/install/share/po/ro.po
@@ -932,8 +932,8 @@ msgstr "A apărut o eroare"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Vă rog să alegeţi dispunerea tastaturii."
+msgid "Please choose your keyboard layout"
+msgstr "Vă rog să alegeţi dispunerea tastaturii"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/ru.po b/perl-install/install/share/po/ru.po
index 87251bb56..633ba98bd 100644
--- a/perl-install/install/share/po/ru.po
+++ b/perl-install/install/share/po/ru.po
@@ -968,8 +968,8 @@ msgstr "Произошла ошибка"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Выберите раскладку клавиатуры."
+msgid "Please choose your keyboard layout"
+msgstr "Выберите раскладку клавиатуры"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/sc.po b/perl-install/install/share/po/sc.po
index e5f23a20a..46ab9249d 100644
--- a/perl-install/install/share/po/sc.po
+++ b/perl-install/install/share/po/sc.po
@@ -909,8 +909,8 @@ msgstr "Faddina"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Sçobera su skema de su tecrau."
+msgid "Please choose your keyboard layout"
+msgstr "Sçobera su skema de su tecrau"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/sk.po b/perl-install/install/share/po/sk.po
index 5c12bf66c..df633c2cc 100644
--- a/perl-install/install/share/po/sk.po
+++ b/perl-install/install/share/po/sk.po
@@ -946,8 +946,8 @@ msgstr "Vyskytla sa chyba"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Prosím, zvoľte si typ vašej klávesnice."
+msgid "Please choose your keyboard layout"
+msgstr "Prosím, zvoľte si typ vašej klávesnice"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/sl.po b/perl-install/install/share/po/sl.po
index 16ea96621..76be17b7c 100644
--- a/perl-install/install/share/po/sl.po
+++ b/perl-install/install/share/po/sl.po
@@ -964,7 +964,7 @@ msgstr "Prišlo je do napake"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
+msgid "Please choose your keyboard layout"
msgstr "Izberite razpored tipkovnice"
#: steps_interactive.pm:105
diff --git a/perl-install/install/share/po/sq.po b/perl-install/install/share/po/sq.po
index 2aad92158..8ed33ffe3 100644
--- a/perl-install/install/share/po/sq.po
+++ b/perl-install/install/share/po/sq.po
@@ -944,7 +944,7 @@ msgstr "Një gabim është paraqitur"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
+msgid "Please choose your keyboard layout"
msgstr "Ju lutemi zgjedheni tipin tastierës suaj"
#: steps_interactive.pm:105
diff --git a/perl-install/install/share/po/sr.po b/perl-install/install/share/po/sr.po
index 56cf9fda8..0a6d08b41 100644
--- a/perl-install/install/share/po/sr.po
+++ b/perl-install/install/share/po/sr.po
@@ -959,8 +959,8 @@ msgstr "Хм,појавила се грешка"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Изаберите распоред тастатуре."
+msgid "Please choose your keyboard layout"
+msgstr "Изаберите распоред тастатуре"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/sr@Latn.po b/perl-install/install/share/po/sr@Latn.po
index 8b5067189..de0247216 100644
--- a/perl-install/install/share/po/sr@Latn.po
+++ b/perl-install/install/share/po/sr@Latn.po
@@ -959,8 +959,8 @@ msgstr "Hm,pojavila se greška"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Izaberite raspored tastature."
+msgid "Please choose your keyboard layout"
+msgstr "Izaberite raspored tastature"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/sv.po b/perl-install/install/share/po/sv.po
index 9203f780c..1bffee210 100644
--- a/perl-install/install/share/po/sv.po
+++ b/perl-install/install/share/po/sv.po
@@ -965,8 +965,8 @@ msgstr "Ett fel inträffade"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Välj tangentbordslayout."
+msgid "Please choose your keyboard layout"
+msgstr "Välj tangentbordslayout"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/ta.po b/perl-install/install/share/po/ta.po
index 6e524a5b2..2257c4625 100644
--- a/perl-install/install/share/po/ta.po
+++ b/perl-install/install/share/po/ta.po
@@ -927,7 +927,7 @@ msgstr "பிழை நேர்ந்துள்ளது மன்னிக
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
+msgid "Please choose your keyboard layout"
msgstr "தயவுசெய்து உங்கள் விசைப்பலகை இட அமைவைத் தேர்வு செய்க "
#: steps_interactive.pm:105
diff --git a/perl-install/install/share/po/tg.po b/perl-install/install/share/po/tg.po
index 6724905ea..94c9b8314 100644
--- a/perl-install/install/share/po/tg.po
+++ b/perl-install/install/share/po/tg.po
@@ -963,8 +963,8 @@ msgstr "Хатогӣ рух дод"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Лутфан, ороиши забонакро интихоб кунед."
+msgid "Please choose your keyboard layout"
+msgstr "Лутфан, ороиши забонакро интихоб кунед"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/th.po b/perl-install/install/share/po/th.po
index c0b36a62a..313faf783 100644
--- a/perl-install/install/share/po/th.po
+++ b/perl-install/install/share/po/th.po
@@ -913,7 +913,7 @@ msgstr "มีปัญหาเกิดขึ้น"
#: steps_interactive.pm:102
#, fuzzy, c-format
-msgid "Please choose your keyboard layout."
+msgid "Please choose your keyboard layout"
msgstr "คุณต้องการเลือกคีย์บอร์ดเลย์เอ้าท์แบบใด "
#: steps_interactive.pm:105
diff --git a/perl-install/install/share/po/tl.po b/perl-install/install/share/po/tl.po
index a6fb24ccf..0ca42a8d5 100644
--- a/perl-install/install/share/po/tl.po
+++ b/perl-install/install/share/po/tl.po
@@ -948,8 +948,8 @@ msgstr "May \"error\" na nangyari"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Piliin ang inyong layout ng keyboard."
+msgid "Please choose your keyboard layout"
+msgstr "Piliin ang inyong layout ng keyboard"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/tr.po b/perl-install/install/share/po/tr.po
index 9e670348e..ea0b17198 100644
--- a/perl-install/install/share/po/tr.po
+++ b/perl-install/install/share/po/tr.po
@@ -960,8 +960,8 @@ msgstr "Bir hata oluştu"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Lütfen klavye düzeninizi seçiniz."
+msgid "Please choose your keyboard layout"
+msgstr "Lütfen klavye düzeninizi seçiniz"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/uk.po b/perl-install/install/share/po/uk.po
index b87cee6e9..b243a2ff8 100644
--- a/perl-install/install/share/po/uk.po
+++ b/perl-install/install/share/po/uk.po
@@ -968,8 +968,8 @@ msgstr "Сталася помилка"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Будь ласка, виберіть розкладку клавіатури."
+msgid "Please choose your keyboard layout"
+msgstr "Будь ласка, виберіть розкладку клавіатури"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/uz.po b/perl-install/install/share/po/uz.po
index 579a9d755..24fa5548d 100644
--- a/perl-install/install/share/po/uz.po
+++ b/perl-install/install/share/po/uz.po
@@ -954,8 +954,8 @@ msgstr "Xato roʻy berdi"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Iltimos tugmalar tartibini tanlang."
+msgid "Please choose your keyboard layout"
+msgstr "Iltimos tugmalar tartibini tanlang"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/uz@cyrillic.po b/perl-install/install/share/po/uz@cyrillic.po
index f43a99376..b62864c9e 100644
--- a/perl-install/install/share/po/uz@cyrillic.po
+++ b/perl-install/install/share/po/uz@cyrillic.po
@@ -952,8 +952,8 @@ msgstr "Хато рўй берди"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Илтимос тугмалар тартибини танланг."
+msgid "Please choose your keyboard layout"
+msgstr "Илтимос тугмалар тартибини танланг"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/vi.po b/perl-install/install/share/po/vi.po
index 8b48d78e5..c6ab493ec 100644
--- a/perl-install/install/share/po/vi.po
+++ b/perl-install/install/share/po/vi.po
@@ -945,8 +945,8 @@ msgstr "Lỗi xảy ra"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Hãy chọn tổ chức bàn phím."
+msgid "Please choose your keyboard layout"
+msgstr "Hãy chọn tổ chức bàn phím"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/wa.po b/perl-install/install/share/po/wa.po
index a46769f8a..a821f3318 100644
--- a/perl-install/install/share/po/wa.po
+++ b/perl-install/install/share/po/wa.po
@@ -965,8 +965,8 @@ msgstr "Dj' aroke so ene sacwè"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
-msgstr "Tchoezixhoz li sôre di vosse taprece."
+msgid "Please choose your keyboard layout"
+msgstr "Tchoezixhoz li sôre di vosse taprece"
#: steps_interactive.pm:105
#, fuzzy, c-format
diff --git a/perl-install/install/share/po/zh_CN.po b/perl-install/install/share/po/zh_CN.po
index ce89f9935..a4a840b11 100644
--- a/perl-install/install/share/po/zh_CN.po
+++ b/perl-install/install/share/po/zh_CN.po
@@ -939,7 +939,7 @@ msgstr "发生了一个错误"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
+msgid "Please choose your keyboard layout"
msgstr "请选择您使用的键盘布局。"
#: steps_interactive.pm:105
diff --git a/perl-install/install/share/po/zh_TW.po b/perl-install/install/share/po/zh_TW.po
index 196b1a060..f529a7991 100644
--- a/perl-install/install/share/po/zh_TW.po
+++ b/perl-install/install/share/po/zh_TW.po
@@ -955,7 +955,7 @@ msgstr "發生一個錯誤"
#: steps_interactive.pm:102
#, c-format
-msgid "Please choose your keyboard layout."
+msgid "Please choose your keyboard layout"
msgstr "請選取鍵盤排列的樣式。"
#: steps_interactive.pm:105
4;naughtyServers = pkgs::naughtyServers($o->{packages}) or return 1; my $r = $o->ask_from_list_('', formatAlaTeX(N("You have selected the following server(s): %s These servers are activated by default. They don't have any known security issues, but some new ones could be found. In that case, you must make sure to upgrade as soon as possible. Do you really want to install these servers? ", join(", ", @naughtyServers))), [ N_("Yes"), N_("No") ], 'Yes') or return; if ($r ne 'Yes') { log::l("unselecting naughty servers"); pkgs::unselectPackage($o->{packages}, pkgs::packageByName($o->{packages}, $_)) foreach @naughtyServers; } 1; } sub warnAboutRemovedPackages { my ($o, $packages) = @_; my @removedPackages = keys %{$packages->{state}{ask_remove} || {}} or return; if (!$o->ask_yesorno('', formatAlaTeX(N("The following packages will be removed to allow upgrading your system: %s Do you really want to remove these packages? ", join(", ", @removedPackages))), 1)) { $packages->{state}{ask_remove} = {}; } } sub addToBeDone(&$) { my ($f, $step) = @_; return &$f() if $::o->{steps}{$step}{done}; push @{$::o->{steps}{$step}{toBeDone}}, $f; } sub set_authentication { my ($o) = @_; my $when_network_is_up = sub { my ($f) = @_; #- defer running xxx - no network yet addToBeDone { require install_steps; install_steps::upNetwork($o, 'pppAvoided'); $f->(); } 'configureNetwork'; }; any::set_authentication($o, $o->{netc}, $o->{authentication} ||= {}, $when_network_is_up); } sub killCardServices() { my $pid = chomp_(cat_("/tmp/cardmgr.pid")); $pid and kill(15, $pid); #- send SIGTERM } sub unlockCdrom(;$) { my ($cdrom) = @_; $cdrom or cat_("/proc/mounts") =~ m,(/(?:dev|tmp)/\S+)\s+(?:/mnt/cdrom|/tmp/image), and $cdrom = $1; eval { $cdrom and ioctl detect_devices::tryOpen($1), c::CDROM_LOCKDOOR(), 0 }; } sub ejectCdrom(;$) { my ($cdrom) = @_; getFile("XXX"); #- close still opened filehandle $cdrom ||= $1 if cat_("/proc/mounts") =~ m,(/(?:dev|tmp)/\S+)\s+(?:/mnt/cdrom|/tmp/image),; if ($cdrom) { #- umount BEFORE opening the cdrom device otherwise the umount will #- D state if the cdrom is already removed eval { fs::umount("/tmp/image") }; if ($@) { log::l("files still open: ", readlink($_)) foreach map { glob_("$_/fd/*") } glob_("/proc/*") } eval { my $dev = detect_devices::tryOpen($cdrom); ioctl($dev, c::CDROMEJECT(), 1) if ioctl($dev, c::CDROM_DRIVE_STATUS(), 0) == c::CDS_DISC_OK(); }; } } 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->{bootloader}, $o->{fstab}, $o->{all_hds}{hds}); 1; } sub install_urpmi { my ($prefix, $method, $packages, $mediums) = @_; #- rare case where urpmi cannot be installed (no hd install path). $method eq 'disk' && !any::hdInstallPath() and return; my @cfg; foreach (sort { $a->{medium} <=> $b->{medium} } values %$mediums) { my $name = $_->{fakemedium}; if ($_->{ignored} || $_->{selected}) { my $dir = ($_->{prefix} || ${{ nfs => "file://mnt/nfs", disk => "file:/" . any::hdInstallPath(), ftp => $ENV{URLPREFIX}, http => $ENV{URLPREFIX}, cdrom => "removable://mnt/cdrom" }}{$method} || #- for live_update or live_install script. readlink("/tmp/image/Mandrake") =~ m,^(/.*)/Mandrake/*$, && "removable:/$1") . "/$_->{rpmsdir}"; my $need_list = $dir =~ m|^[^:]*://[^/:\@]*:[^/:\@]+\@|; #- use list file only if a password is visible #- build a list file if needed. if ($need_list) { my $mask = umask 077; open(my $LIST, ">$prefix/var/lib/urpmi/list.$name") or log::l("failed to write list.$name"); umask $mask; #- build list file using internal data, synthesis file should exists. if ($_->{end} > $_->{start}) { #- WARNING this method of build only works because synthesis (or hdlist) #- has been read. foreach (@{$packages->{depslist}}[$_->{start} .. $_->{end}]) { print $LIST "$dir/".$_->filename."\n"; } } else { #- need to use another method here to build synthesis. open(my $F, "parsehdlist '$prefix/var/lib/urpmi/hdlist.$name.cz' |"); local $_; while (<$F>) { print $LIST "$dir/$_"; } close $F; } close $LIST; } #- build synthesis file if there are still not existing (ie not copied from mirror). if (-s "$prefix/var/lib/urpmi/synthesis.hdlist.$name.cz" <= 32) { unlink "$prefix/var/lib/urpmi/synthesis.hdlist.$name.cz"; run_program::rooted($prefix, "parsehdlist", ">", "/var/lib/urpmi/synthesis.hdlist.$name", "--synthesis", "/var/lib/urpmi/hdlist.$name.cz"); run_program::rooted($prefix, "gzip", "-S", ".cz", "/var/lib/urpmi/synthesis.hdlist.$name"); } my ($qname, $qdir) = ($name, $dir); $qname =~ s/(\s)/\\$1/g; $qdir =~ s/(\s)/\\$1/g; #- output new urpmi.cfg format here. push @cfg, "$qname " . ($need_list ? "" : $qdir) . " { hdlist: hdlist.$name.cz with_hdlist: ../base/" . ($_->{update} ? "hdlist.cz" : $_->{hdlist}) . ($need_list ? " list: list.$name" : "") . ($dir =~ /removable:/ && " removable: /dev/cdrom") . " update" . " } "; } else { #- remove not selected media by removing hdlist and synthesis files copied. unlink "$prefix/var/lib/urpmi/hdlist.$name.cz"; unlink "$prefix/var/lib/urpmi/synthesis.hdlist.$name.cz"; } } eval { output "$prefix/etc/urpmi/urpmi.cfg", @cfg }; } #-############################################################################### #- kde stuff #-############################################################################### sub kderc_largedisplay { my ($prefix) = @_; update_gnomekderc($_, '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 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')) { renamef("$dir/$_", "$dir/Trash/$_") foreach grep { -e "$dir/$_" } @toMove, grep { /\.rpmorig$/ } all($dir) } } #-############################################################################### #- auto_install stuff #-############################################################################### sub auto_inst_file() { ($::g_auto_install ? "/tmp" : "$::prefix/root/drakx") . "/auto_inst.cfg.pl" } sub report_bug { my ($prefix) = @_; any::report_bug($prefix, 'auto_inst' => g_auto_install('', 1)); } sub g_auto_install { my ($b_replay, $b_respect_privacy) = @_; my $o = {}; require pkgs; $o->{default_packages} = pkgs::selected_leaves($::o->{packages}); 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(locale authentication mouse netc timezone superuser intf keyboard users partitioning isUpgrade manualFstab nomouseprobe crypto security security_user libsafe netcnx useSupermount autoExitInstall mkbootdisk X services); #- TODO modules bootloader if ($::o->{printer}) { $o->{printer}{$_} = $::o->{printer}{$_} foreach qw(SPOOLER DEFAULT BROWSEPOLLADDR BROWSEPOLLPORT MANUALCUPSCONFIG); $o->{printer}{configured} = {}; foreach my $queue (keys %{$::o->{printer}{configured}}) { my $val = $::o->{printer}{configured}{$queue}{queuedata}; exists $val->{$_} and $o->{printer}{configured}{$queue}{queuedata}{$_} = $val->{$_} foreach keys %{$val || {}}; } } local $o->{partitioning}{auto_allocate} = !$b_replay; $o->{autoExitInstall} = !$b_replay; $o->{interactiveSteps} = [ 'doPartitionDisks', 'formatPartitions' ] if $b_replay; #- deep copy because we're modifying it below $o->{users} = [ @{$o->{users} || []} ]; my @user_info_to_remove = ( if_($b_respect_privacy, qw(name realname home pw)), qw(oldu oldg password password2), ); $_ = { %{$_ || {}} }, delete @$_{@user_info_to_remove} foreach $o->{superuser}, @{$o->{users} || []}; if ($b_respect_privacy && $o->{netcnx}) { if (my $type = $o->{netcnx}{type}) { my @netcnx_type_to_remove = qw(passwd passwd2 login phone_in phone_out); $_ = { %{$_ || {}} }, delete @$_{@netcnx_type_to_remove} foreach $o->{netcnx}{$type}; } } require Data::Dumper; my $str = join('', "#!/usr/bin/perl -cw # # You should check the syntax of this file before using it in an auto-install. # You can do this with 'perl -cw auto_inst.cfg.pl' or by executing this file # (note the '#!/usr/bin/perl -cw' on the first line). ", Data::Dumper->Dump([$o], ['$o']), "\0"); $str =~ s/ {8}/\t/g; #- replace all 8 space char by only one tabulation, this reduces file size so much :-) $str; } sub getAndSaveInstallFloppy { my ($o, $where) = @_; if ($postinstall_rpms && -d $postinstall_rpms && -r "$postinstall_rpms/auto_install.img") { log::l("getAndSaveInstallFloppy: using file saved as $postinstall_rpms/auto_install.img"); cp_af("$postinstall_rpms/auto_install.img", $where); } else { my $image = cat_("/proc/cmdline") =~ /pcmcia/ ? "pcmcia" : ${{ disk => 'hd', cdrom => 'cdrom', ftp => 'network', nfs => 'network', http => 'network' }}{$o->{method}}; $image .= arch() =~ /sparc64/ && "64"; #- for sparc64 there are a specific set of image. getAndSaveFile("images/$image.img", $where) or log::l("failed to write Install Floppy ($image.img) to $where"), return; } 1; } sub getAndSaveAutoInstallFloppy { my ($o, $replay, $where) = @_; eval { modules::load('loop') }; if (arch() =~ /sparc/) { my $imagefile = "$o->{prefix}/tmp/autoinst.img"; my $mountdir = "$o->{prefix}/tmp/mount"; mkdir_p($mountdir); my $workdir = "$o->{prefix}/tmp/work"; -d $workdir or rmdir $workdir; getAndSaveInstallFloppy($o, $imagefile) or return; devices::make($_) foreach qw(/dev/loop6 /dev/ram); run_program::run("losetup", "/dev/loop6", $imagefile); fs::mount("/dev/loop6", $mountdir, "romfs", 'readonly'); cp_af($mountdir, $workdir); fs::umount($mountdir); run_program::run("losetup", "-d", "/dev/loop6"); substInFile { s/timeout.*//; s/^(\s*append\s*=\s*\".*)\"/$1 kickstart=floppy"/ } "$workdir/silo.conf"; #" for po #-TODO output "$workdir/ks.cfg", generate_ks_cfg($o); output "$workdir/boot.msg", "\n7m", "!! If you press enter, an auto-install is going to start. ALL data on this computer is going to be lost, including any Windows partitions !! ", "7m\n"; local $o->{partitioning}{clearall} = 1; output("$workdir/auto_inst.cfg", g_auto_install()); run_program::run("genromfs", "-d", $workdir, "-f", "/dev/ram", "-A", "2048,/..", "-a", "512", "-V", "DrakX autoinst"); fs::mount("/dev/ram", $mountdir, 'romfs', 0); run_program::run("silo", "-r", $mountdir, "-F", "-i", "/fd.b", "-b", "/second.b", "-C", "/silo.conf"); fs::umount($mountdir); require commands; commands::dd("if=/dev/ram", "of=$where", "bs=1440", "count=1024"); rm_rf($workdir, $mountdir, $imagefile); } elsif (arch() =~ /ia64/) { #- nothing yet } else { my $imagefile = "$o->{prefix}/root/autoinst.img"; my $mountdir = "$o->{prefix}/root/aif-mount"; -d $mountdir or mkdir $mountdir, 0755; my $param = 'kickstart=floppy ' . generate_automatic_stage1_params($o); getAndSaveInstallFloppy($o, $imagefile) or return; my $dev = devices::set_loop($imagefile) or log::l("couldn't set loopback device"), return; eval { fs::mount($dev, $mountdir, 'vfat', 0); 1 } or return; substInFile { s/timeout.*/$replay ? 'timeout 1' : ''/e; s/^(\s*append)/$1 $param/ } "$mountdir/syslinux.cfg"; unlink "$mountdir/help.msg"; output "$mountdir/boot.msg", "\n0c", "!! If you press enter, an auto-install is going to start. All data on this computer is going to be lost, including any Windows partitions !! ", "07\n" if !$replay; local $o->{partitioning}{clearall} = !$replay; eval { output("$mountdir/auto_inst.cfg", g_auto_install($replay)) }; $@ and log::l("Warning: <", formatError($@), ">"); fs::umount($mountdir); rmdir $mountdir; devices::del_loop($dev); require commands; commands::dd("if=$imagefile", "of=$where", "bs=1440", "count=1024"); unlink $imagefile; } 1; } sub g_default_packages { my ($o, $b_quiet) = @_; my $floppy = detect_devices::floppy(); while (1) { $o->ask_okcancel('', N("Insert a FAT formatted floppy in drive %s", $floppy), 1) or return; eval { fs::mount(devices::make($floppy), "/floppy", "vfat", 0) }; last if !$@; $o->ask_warn('', N("This floppy is not FAT formatted")); } require Data::Dumper; my $str = Data::Dumper->Dump([ { default_packages => pkgs::selected_leaves($o->{packages}) } ], ['$o']); $str =~ s/ {8}/\t/g; output('/floppy/auto_inst.cfg', "# You should always check the syntax with 'perl -cw auto_inst.cfg.pl'\n", "# before testing. To use it, boot with ``linux defcfg=floppy''\n", $str, "\0"); fs::umount("/floppy"); $b_quiet or $o->ask_warn('', N("To use this saved packages selection, boot installation with ``linux defcfg=floppy''")); } 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(qw(vfat fat)); }; $o = loadO($O, $f); } else { -e "$f.pl" and $f .= ".pl" unless -e $f; my $fh; if (-e $f) { open $fh, $f } else { $fh = getFile($f) or die \N("Error reading file %s", $f) } { local $/ = "\0"; no strict; eval <$fh>; close $fh; $@ and die; } $O and add2hash_($o ||= {}, $O); } $O and bless $o, ref $O; $o; } sub generate_automatic_stage1_params { my ($o) = @_; my @ks = "method:$o->{method}"; if ($o->{method} eq 'http') { $ENV{URLPREFIX} =~ m|http://([^/:]+)/(.*)| or die; push @ks, "server:$1", "directory:$2"; } elsif ($o->{method} eq 'ftp') { push @ks, "server:$ENV{HOST}", "directory:$ENV{PREFIX}", "user:$ENV{LOGIN}", "pass:$ENV{PASSWORD}"; } elsif ($o->{method} eq 'nfs') { cat_("/proc/mounts") =~ m|(\S+):(\S+)\s+/tmp/image nfs| or die; push @ks, "server:$1", "directory:$2"; } if (member($o->{method}, qw(http ftp nfs))) { my ($intf) = values %{$o->{intf}}; push @ks, "interface:$intf->{DEVICE}"; if ($intf->{BOOTPROTO} eq 'dhcp') { push @ks, "network:dhcp"; } else { require network; push @ks, "network:static", "ip:$intf->{IPADDR}", "netmask:$intf->{NETMASK}", "gateway:$o->{netc}{GATEWAY}"; my @dnss = network::dnsServers($o->{netc}); push @ks, "dns:$dnss[0]" if @dnss; } } #- sync it with ../mdk-stage1/automatic.c my %aliases = (method => 'met', network => 'netw', interface => 'int', gateway => 'gat', netmask => 'netm', adsluser => 'adslu', adslpass => 'adslp', hostname => 'hos', domain => 'dom', server => 'ser', directory => 'dir', user => 'use', pass => 'pas', disk => 'dis', partition => 'par'); 'automatic='.join(',', map { /^([^:]+)(:.*)/ && $aliases{$1} ? $aliases{$1}.$2 : $_ } @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 = find { -e "$d/$l{$_}" } keys %l; $mnt ||= (stat("$d/.bashrc"))[4] ? '/root' : '/home/user' . ++$$user if -e "$d/.bashrc"; $mnt ||= (any { -d $_ && (stat($_))[4] >= 500 && -e "$_/.bashrc" } glob_($d)) ? '/home' : ''; ($mnt, $handle); } sub suggest_mount_points { my ($fstab, $prefix, $uniq) = @_; 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::merge_info_from_fstab($fstab, $handle->{dir}, $uniq, 'loose') if $mnt eq '/'; } $_->{mntpoint} and log::l("suggest_mount_points: $_->{device} -> $_->{mntpoint}") foreach @$fstab; } sub find_root_parts { my ($fstab, $prefix) = @_; map { my $handle = any::inspect($_, $prefix); my $s = $handle && cat_("$handle->{dir}/etc/mandrake-release"); if ($s) { chomp($s); $s =~ s/\s+for\s+\S+//; log::l("find_root_parts found $_->{device}: $s"); { release => $s, part => $_ }; } else { () } } @$fstab; } sub use_root_part { my ($all_hds, $part, $prefix) = @_; { my $handle = any::inspect($part, $prefix) or die; fs::get_info_from_fstab($all_hds, $handle->{dir}); } isSwap($_) and $_->{mntpoint} = 'swap' foreach fsedit::get_really_all_fstab($all_hds); #- use all available swap. } sub getHds { my ($o, $in) = @_; getHds: my $all_hds = fsedit::get_hds($o->{partitioning}, $in); my $hds = $all_hds->{hds}; if (is_empty_array_ref($hds)) { #- no way die \N("An error occurred - no valid devices were found on which to create new filesystems. Please check your hardware for the cause of this problem"); } #- try to figure out if the same number of hds is available, use them if ok. @{$o->{all_hds}{hds} || []} == @$hds and return 1; fs::get_raw_hds('', $all_hds); fs::add2all_hds($all_hds, @{$o->{manualFstab}}); $o->{all_hds} = $all_hds; $o->{fstab} = [ fsedit::get_all_fstab($all_hds) ]; fs::merge_info_from_mtab($o->{fstab}); my @win = grep { isFat_or_NTFS($_) && isFat_or_NTFS({ type => fsedit::typeOfPart($_->{device}) }) } @{$o->{fstab}}; log::l("win parts: ", join ",", map { $_->{device} } @win) if @win; if (@win == 1) { #- Suggest /boot/efi on ia64. $win[0]{mntpoint} = arch() =~ /ia64/ ? "/boot/efi" : "/mnt/windows"; } else { my %w; foreach (@win) { my $v = $w{$_->{device_windobe}}++; $_->{mntpoint} = $_->{unsafeMntpoint} = "/mnt/win_" . lc($_->{device_windobe}) . ($v ? $v+1 : ''); #- lc cuz of StartOffice(!) cf dadou } } my @sunos = grep { isSunOS($_) && type2name($_->{type}) =~ /root/i } @{$o->{fstab}}; #- take only into account root partitions. if (@sunos) { my $v = ''; map { $_->{mntpoint} = $_->{unsafeMntpoint} = "/mnt/sunos" . ($v && ++$v) } @sunos; } #- a good job is to mount SunOS root partition, and to use mount point described here in /etc/vfstab. 1; } sub log_sizes { my ($o) = @_; my @df = MDK::Common::System::df($o->{prefix}); log::l(sprintf "Installed: %s(df), %s(rpm)", formatXiB($df[0] - $df[1], 1024), formatXiB(sum(run_program::rooted_get_stdout($o->{prefix}, 'rpm', '-qa', '--queryformat', '%{size}\n')))) if -x "$o->{prefix}/bin/rpm"; } sub copy_advertising { my ($o) = @_; return if $::rootwidth < 800; my $f; my $source_dir = "Mandrake/share/advertising"; foreach ("." . $o->{locale}{lang}, "." . substr($o->{locale}{lang},0,2), '') { $f = getFile("$source_dir$_/list") or next; $source_dir = "$source_dir$_"; } if (my @files = <$f>) { my $dir = "$o->{prefix}/tmp/drakx-images"; mkdir $dir; unlink glob_("$dir/*"); foreach (@files) { chomp; getAndSaveFile("$source_dir/$_", "$dir/$_"); s/\.png/.pl/; getAndSaveFile("$source_dir/$_", "$dir/$_"); s/\.pl/_icon.png/; getAndSaveFile("$source_dir/$_", "$dir/$_"); s/_icon\.png/.png/; } @advertising_images = map { "$dir/$_" } @files; } } sub remove_advertising { my ($o) = @_; eval { rm_rf("$o->{prefix}/tmp/drakx-images") }; @advertising_images = (); } sub disable_user_view { my ($prefix) = @_; substInFile { s/^UserView=.*/UserView=true/ } "$prefix/usr/share/config/kdm/kdmrc"; substInFile { s/^Browser=.*/Browser=0/ } "$prefix/etc/X11/gdm/gdm.conf"; } sub set_security { my ($o) = @_; { local $ENV{DRAKX_PASSWORD} = $o->{bootloader}{password}; local $ENV{DURING_INSTALL} = 1; security::level::set($o->{security}); } require security::various; security::various::config_libsafe($::prefix, $o->{libsafe}); security::various::config_security_user($::prefix, $o->{security_user}); } sub write_fstab { my ($o) = @_; fs::write_fstab($o->{all_hds}, $o->{prefix}) if !$::live && !$o->{isUpgrade}; } my @bigseldom_used_groups = ( ); sub check_prog { my ($f) = @_; my @l = $f !~ m|^/| ? map { "$_/$f" } split(":", $ENV{PATH}) : $f; return if any { -x $_ } @l; common::usingRamdisk() or log::l("ERROR: check_prog can't find the program $f and we're not using ramdisk"), return; my ($f_) = map { m|^/| ? $_ : "/usr/bin/$_" } $f; remove_bigseldom_used(); foreach (@bigseldom_used_groups) { my (@l) = map { m|^/| ? $_ : "/usr/bin/$_" } @$_; if (member($f_, @l)) { foreach (@l) { getAndSaveFile($_); chmod 0755, $_; } return; } } getAndSaveFile($f_); chmod 0755, $f_; } sub remove_unused { $::testing and return; if (@_ ? $_[0] : $::o->isa('interactive::gtk')) { unlink glob_("/lib/lib$_*") foreach qw(slang newt); unlink "/usr/bin/perl-install/auto/Newt/Newt.so"; } else { unlink glob_("/usr/X11R6/bin/XF*"); } } sub remove_bigseldom_used() { log::l("remove_bigseldom_used"); $::testing and return; remove_unused(); unlink "/usr/X11R6/lib/modules/xf86Wacom.so"; unlink glob_("/usr/share/gtk/themes/$_*") foreach qw(marble3d); unlink(m|^/| ? $_ : "/usr/bin/$_") foreach (map { @$_ } @bigseldom_used_groups), qw(pvcreate pvdisplay vgchange vgcreate vgdisplay vgextend vgremove vgscan lvcreate lvdisplay lvremove /lib/liblvm.so), qw(mkreiserfs resize_reiserfs mkfs.xfs fsck.jfs); } ################################################################################ package pkgs_interactive; use run_program; use common; use pkgs; our @ISA = qw(); #- tell perl_checker this is a class sub install_steps::do_pkgs { my ($o) = @_; bless { o => $o }, 'pkgs_interactive'; } sub install { my ($do, @l) = @_; $do->{o}->pkg_install(@l); } sub ensure_is_installed { my ($do, $pkg, $file, $b_auto) = @_; if (! -e "$::prefix$file") { $do->{o}->ask_okcancel('', N("The package %s needs to be installed. Do you want to install it?", $pkg), 1) or return if !$b_auto; $do->{o}->do_pkgs->install($pkg); } if (! -e "$::prefix$file") { $do->{o}->ask_warn('', N("Mandatory package %s is missing", $pkg)); return; } 1; } sub check_kernel_module_packages { my ($do, $base_name, $o_ext_name) = @_; if (!$o_ext_name || pkgs::packageByName($do->{o}{packages}, $o_ext_name)) { my @rpms; foreach my $p (@{$do->{o}{packages}{depslist}}) { my ($ext, $version_release) = $p->name =~ /kernel[^\-]*(-smp|-enterprise|-secure)?(?:-([^\-]+))?$/ or next; $p->flag_available or next; my $name = "$base_name$ext-$version_release"; pkgs::packageByName($do->{o}{packages}, $name) or next; log::l("found kernel module packages $name"); push @rpms, $name; } @rpms > 0 and return [ @rpms, if_($o_ext_name, $o_ext_name) ]; } return undef; } sub what_provides { my ($do, $name) = @_; map { $do->{o}{packages}{depslist}[$_]->name } keys %{$do->{o}{packages}{provides}{$name} || {}}; } sub is_installed { my ($do, @l) = @_; foreach (@l) { my $p = pkgs::packageByName($do->{o}{packages}, $_); $p && $p->flag_available or return; } 1; } sub are_installed { my ($do, @l) = @_; grep { my $p = pkgs::packageByName($do->{o}{packages}, $_); $p && $p->flag_available; } @l; } sub remove { my ($do, @l) = @_; @l = grep { my $p = pkgs::packageByName($do->{o}{packages}, $_); pkgs::unselectPackage($do->{o}{packages}, $p) if $p; $p; } @l; run_program::rooted($do->{o}{prefix}, 'rpm', '-e', @l); } sub remove_nodeps { my ($do, @l) = @_; @l = grep { my $p = pkgs::packageByName($do->{o}{packages}, $_); if ($p) { $p->set_flag_requested(0); $p->set_flag_required(0); } $p; } @l; run_program::rooted($do->{o}{prefix}, 'rpm', '-e', '--nodeps', @l); } ################################################################################ package install_any; 1;