1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 -rw-r--r-- | po/af.po | 917 | ||||
| -rw-r--r-- | po/ar.po | 917 | ||||
| -rw-r--r-- | po/az.po | 915 | ||||
| -rw-r--r-- | po/bg.po | 923 | ||||
| -rw-r--r-- | po/bn.po | 917 | ||||
| -rw-r--r-- | po/br.po | 935 | ||||
| -rw-r--r-- | po/bs.po | 918 | ||||
| -rw-r--r-- | po/ca.po | 918 | ||||
| -rw-r--r-- | po/cs.po | 918 | ||||
| -rw-r--r-- | po/cy.po | 926 | ||||
| -rw-r--r-- | po/da.po | 918 | ||||
| -rw-r--r-- | po/de.po | 918 | ||||
| -rw-r--r-- | po/el.po | 920 | ||||
| -rw-r--r-- | po/eo.po | 920 | ||||
| -rw-r--r-- | po/es.po | 919 | ||||
| -rw-r--r-- | po/et.po | 917 | ||||
| -rw-r--r-- | po/eu.po | 918 | ||||
| -rw-r--r-- | po/fa.po | 918 | ||||
| -rw-r--r-- | po/fi.po | 918 | ||||
| -rw-r--r-- | po/fr.po | 1019 | ||||
| -rw-r--r-- | po/fur.po | 914 | ||||
| -rw-r--r-- | po/ga.po | 909 | ||||
| -rw-r--r-- | po/gl.po | 919 | ||||
| -rw-r--r-- | po/he.po | 917 | ||||
| -rw-r--r-- | po/hi.po | 918 | ||||
| -rw-r--r-- | po/hr.po | 916 | ||||
| -rw-r--r-- | po/hu.po | 917 | ||||
| -rw-r--r-- | po/id.po | 922 | ||||
| -rw-r--r-- | po/is.po | 918 | ||||
| -rw-r--r-- | po/it.po | 919 | ||||
| -rw-r--r-- | po/ja.po | 918 | ||||
| -rw-r--r-- | po/ka.po | 914 | ||||
| -rw-r--r-- | po/ko.po | 917 | ||||
| -rw-r--r-- | po/ky.po | 917 | ||||
| -rw-r--r-- | po/lt.po | 917 | ||||
| -rw-r--r-- | po/lv.po | 917 | ||||
| -rw-r--r-- | po/mk.po | 919 | ||||
| -rw-r--r-- | po/mn.po | 913 | ||||
| -rw-r--r-- | po/ms.po | 1195 | ||||
| -rw-r--r-- | po/mt.po | 915 | ||||
| -rw-r--r-- | po/nb.po | 918 | ||||
| -rw-r--r-- | po/nl.po | 918 | ||||
| -rw-r--r-- | po/nn.po | 917 | ||||
| -rw-r--r-- | po/pa_IN.po | 917 | ||||
| -rw-r--r-- | po/pl.po | 919 | ||||
| -rw-r--r-- | po/pt.po | 1030 | ||||
| -rw-r--r-- | po/pt_BR.po | 919 | ||||
| -rw-r--r-- | po/ro.po | 915 | ||||
| -rw-r--r-- | po/ru.po | 919 | ||||
| -rw-r--r-- | po/sc.po | 919 | ||||
| -rw-r--r-- | po/sk.po | 919 | ||||
| -rw-r--r-- | po/sl.po | 917 | ||||
| -rw-r--r-- | po/sq.po | 917 | ||||
| -rw-r--r-- | po/sr.po | 917 | ||||
| -rw-r--r-- | po/sr@Latn.po | 917 | ||||
| -rw-r--r-- | po/sv.po | 919 | ||||
| -rw-r--r-- | po/tg.po | 915 | ||||
| -rw-r--r-- | po/th.po | 916 | ||||
| -rw-r--r-- | po/tl.po | 915 | ||||
| -rw-r--r-- | po/tr.po | 917 | ||||
| -rw-r--r-- | po/uk.po | 920 | ||||
| -rw-r--r-- | po/urpmi.pot | 879 | ||||
| -rw-r--r-- | po/uz.po | 913 | ||||
| -rw-r--r-- | po/uz@Latn.po | 914 | ||||
| -rw-r--r-- | po/vi.po | 925 | ||||
| -rw-r--r-- | po/wa.po | 919 | ||||
| -rw-r--r-- | po/zh_CN.po | 1052 | ||||
| -rw-r--r-- | po/zh_TW.po | 928 |
68 files changed, 32602 insertions, 30408 deletions
@@ -9,7 +9,7 @@ msgid "" msgstr "" "Project-Id-Version: urpmi 3.3\n" "Report-Msgid-Bugs-To: \n" -"POT-Creation-Date: 2005-11-16 22:47+0800\n" +"POT-Creation-Date: 2005-12-04 13:39+0800\n" "PO-Revision-Date: Fri May 19 2000 13:02:12+0200\n" "Last-Translator: Schalk W. Cronjé <schalkc@ntaba.co.za>\n" "Language-Team: Afrikaans <mandrake@af.org.za>\n" @@ -18,39 +18,21 @@ msgstr "" "Content-Transfer-Encoding: 8bit\n" "X-Generator: KTranslator v 0.6.0\n" -#. This is a list of chars acceptable as a 'yes' answer to a Yes/No question; -#. you can put here the letters for 'yes' for your language, so people -#. can hit those keys in their keyboard to reply. -#. please keep the 'Yy' for compatibility reasons -#. -#: placeholder.h:11 -msgid "Yy" -msgstr "JjYy" - -#. This is a list of chars acceptable as a 'no' answer to a Yes/No question; -#. you can put here the letters for 'no' for your language, so people -#. can hit those keys in their keyboard to reply. -#. please keep the 'Nn' for compatibility reasons -#. -#: placeholder.h:17 -msgid "Nn" -msgstr "Nn" - -#: ../gurpmi:29 ../gurpmi2:55 +#: ../gurpmi:30 ../gurpmi2:56 #, fuzzy msgid "RPM installation" msgstr "Stelsel-installasie" -#: ../gurpmi:42 +#: ../gurpmi:43 #, c-format msgid "Error: unable to find file %s, will cancel operation" msgstr "" -#: ../gurpmi:43 ../gurpmi2:122 ../gurpmi2:145 +#: ../gurpmi:44 ../gurpmi2:123 ../gurpmi2:146 msgid "_Ok" msgstr "_Ok" -#: ../gurpmi:57 +#: ../gurpmi:58 #, c-format msgid "" "You have selected a source package:\n" @@ -63,7 +45,7 @@ msgid "" "What would you like to do?" msgstr "" -#: ../gurpmi:65 ../gurpmi:76 +#: ../gurpmi:66 ../gurpmi:77 #, c-format msgid "" "You are about to install the following software packages on your computer:\n" @@ -73,7 +55,7 @@ msgid "" "Proceed?" msgstr "" -#: ../gurpmi:71 +#: ../gurpmi:72 #, c-format msgid "" "You are about to install the following software package on your computer:\n" @@ -84,43 +66,43 @@ msgid "" msgstr "" #. - buttons -#: ../gurpmi:86 +#: ../gurpmi:87 msgid "_Install" msgstr "_Installeer" -#: ../gurpmi:87 +#: ../gurpmi:88 msgid "_Save" msgstr "_Stoor" -#: ../gurpmi:88 ../gurpmi2:122 +#: ../gurpmi:89 ../gurpmi2:123 msgid "_Cancel" msgstr "Kanselleer" -#: ../gurpmi:98 +#: ../gurpmi:99 #, fuzzy msgid "Choose location to save file" msgstr "Kies 'n lêer" -#: ../gurpmi.pm:62 +#: ../gurpmi.pm:65 #, fuzzy, c-format msgid "Unknown option %s" msgstr "Onbekende konneksie tipe" -#: ../gurpmi.pm:70 +#: ../gurpmi.pm:73 #, fuzzy msgid "No packages specified" msgstr "Geen opdrag gespesifiseer nie" -#: ../gurpmi2:36 +#: ../gurpmi2:37 msgid "Please wait..." msgstr "Asseblief wag..." -#: ../gurpmi2:45 +#: ../gurpmi2:46 #, fuzzy msgid "Must be root" msgstr "Muispoort" -#: ../gurpmi2:78 +#: ../gurpmi2:79 #, fuzzy, c-format msgid "" "Some requested packages cannot be installed:\n" @@ -128,30 +110,30 @@ msgid "" "Continue installation anyway?" msgstr "Sommige pakkette kan nie geïnstalleer word nie" -#: ../gurpmi2:118 +#: ../gurpmi2:119 #, fuzzy msgid " (to upgrade)" msgstr "Opgradeer" -#: ../gurpmi2:119 +#: ../gurpmi2:120 #, fuzzy msgid " (to install)" msgstr "Verlaat installasie" -#: ../gurpmi2:122 +#: ../gurpmi2:123 msgid "Package choice" msgstr "" -#: ../gurpmi2:123 ../urpmi:366 +#: ../gurpmi2:124 ../urpmi:372 msgid "One of the following packages is needed:" msgstr "Slegs een van die volgende pakkette word benodig:" -#: ../gurpmi2:146 +#: ../gurpmi2:147 #, fuzzy msgid "_Abort" msgstr "Staak" -#: ../gurpmi2:166 +#: ../gurpmi2:167 #, fuzzy, c-format msgid "" "The following packages have to be removed for others to be upgraded:\n" @@ -164,7 +146,7 @@ msgstr "" "\n" "Kan ons voort gaan?" -#: ../gurpmi2:180 +#: ../gurpmi2:181 #, fuzzy, c-format msgid "" "To satisfy dependencies, the following %d packages are going to be " @@ -175,26 +157,26 @@ msgstr "" "geïnstalleer word:\n" "\n" -#: ../gurpmi2:187 +#: ../gurpmi2:188 msgid "Package installation..." msgstr "Installasievoorbereiding..." -#: ../gurpmi2:189 ../urpmi:513 ../urpmq:308 +#: ../gurpmi2:190 ../urpmi:520 ../urpmq:309 #, fuzzy msgid "unable to get source packages, aborting" msgstr "Kan nie die bronpakette bekom nie." -#: ../gurpmi2:203 ../urpmi:524 +#: ../gurpmi2:204 ../urpmi:531 #, c-format msgid "Please insert the medium named \"%s\" on device [%s]" msgstr "Plaas asseblief die media bekend as \"%s\" in aandrywer [%s]" -#: ../gurpmi2:232 +#: ../gurpmi2:233 #, fuzzy, c-format msgid "Downloading package `%s'..." msgstr "Laai tans pakket '%s' (%s/%s) af ..." -#: ../gurpmi2:247 +#: ../gurpmi2:248 #, fuzzy, c-format msgid "" "The following packages have bad signatures:\n" @@ -208,7 +190,8 @@ msgstr "" "\n" "Wil u hulle steeds installeer?" -#: ../gurpmi2:254 ../gurpmi2:303 ../urpmi:595 ../urpmi:713 +#. - Warning : the following message is parsed in urpm::parallel_* +#: ../gurpmi2:255 ../gurpmi2:304 ../urpmi:603 ../urpmi:726 #, fuzzy, c-format msgid "" "Installation failed, some files are missing:\n" @@ -220,35 +203,37 @@ msgstr "" "\n" "Probeer u media se databasis opdateer." -#: ../gurpmi2:261 ../urpme:118 ../urpmi:638 +#. - Warning : the following message is parsed in urpm::parallel_* +#: ../gurpmi2:262 ../urpme:123 ../urpmi:647 #, fuzzy, c-format msgid "removing %s" msgstr "Verwyder %s" -#: ../gurpmi2:269 ../urpm.pm:2903 +#: ../gurpmi2:270 ../urpm.pm:2913 #, fuzzy msgid "Preparing..." msgstr "Herlaaistelsel word voorberei..." -#: ../gurpmi2:271 +#: ../gurpmi2:272 #, c-format msgid "Installing package `%s' (%s/%s)..." msgstr "Installeer tans pakket %s (%s/%s)...." -#: ../gurpmi2:289 ../urpmi:605 ../urpmi:658 ../urpmi:676 ../urpmi:692 +#. - Warning : the following message is parsed in urpm::parallel_* +#: ../gurpmi2:290 ../urpmi:614 ../urpmi:668 ../urpmi:687 ../urpmi:704 msgid "Installation failed" msgstr "Installasie het misluk" -#: ../gurpmi2:298 +#: ../gurpmi2:299 #, fuzzy msgid "_Done" msgstr "Klaar" -#: ../gurpmi2:306 ../urpmi:729 +#: ../gurpmi2:307 ../urpmi:743 msgid "The package(s) are already installed" msgstr "Alles is alreeds installeer" -#: ../gurpmi2:308 +#: ../gurpmi2:309 msgid "Installation finished" msgstr "Geïnstalleer" @@ -279,160 +264,160 @@ msgstr "" " DrakBackup Verslag \n" #. - need to be root if binary rpms are to be installed -#: ../rurpmi:8 ../urpmi:229 +#: ../rurpmi:11 ../urpmi:235 #, fuzzy msgid "Only superuser is allowed to install packages" msgstr "Daar was 'n fout met die installasie van die pakkette:" -#: ../rurpmi:15 +#: ../rurpmi:18 msgid "Running urpmi in restricted mode..." msgstr "" -#: ../urpm.pm:70 +#: ../urpm.pm:68 #, c-format msgid "unknown protocol defined for %s" msgstr "" -#: ../urpm.pm:103 +#: ../urpm.pm:104 #, c-format msgid "no webfetch found, supported webfetch are: %s\n" msgstr "" -#: ../urpm.pm:119 +#: ../urpm.pm:120 #, fuzzy, c-format msgid "unable to handle protocol: %s" msgstr "Aktiveer Network Time Protocol" -#: ../urpm.pm:210 +#: ../urpm.pm:215 #, c-format msgid "medium \"%s\" trying to use an already used hdlist, medium ignored" msgstr "" -#: ../urpm.pm:211 +#: ../urpm.pm:216 #, c-format msgid "medium \"%s\" trying to use an already used list, medium ignored" msgstr "" -#: ../urpm.pm:224 ../urpm.pm:1314 ../urpm.pm:1324 +#: ../urpm.pm:229 ../urpm.pm:1322 ../urpm.pm:1332 #, c-format msgid "unable to access hdlist file of \"%s\", medium ignored" msgstr "" #. list file exists but isn't readable #. report error only if no result found, list files are only readable by root -#: ../urpm.pm:227 ../urpm.pm:2509 +#: ../urpm.pm:232 ../urpm.pm:2519 #, c-format msgid "unable to access list file of \"%s\", medium ignored" msgstr "" -#: ../urpm.pm:255 +#: ../urpm.pm:260 #, c-format msgid "trying to override existing medium \"%s\", skipping" msgstr "" -#: ../urpm.pm:266 +#: ../urpm.pm:271 #, c-format msgid "" "virtual medium \"%s\" should not have defined hdlist or list file, medium " "ignored" msgstr "" -#: ../urpm.pm:271 +#: ../urpm.pm:276 #, c-format msgid "virtual medium \"%s\" should have a clear url, medium ignored" msgstr "" -#: ../urpm.pm:280 +#: ../urpm.pm:285 #, c-format msgid "unable to find hdlist file for \"%s\", medium ignored" msgstr "" -#: ../urpm.pm:287 +#: ../urpm.pm:292 #, c-format msgid "unable to find list file for \"%s\", medium ignored" msgstr "" -#: ../urpm.pm:311 +#: ../urpm.pm:316 #, c-format msgid "inconsistent list file for \"%s\", medium ignored" msgstr "" -#: ../urpm.pm:321 +#: ../urpm.pm:326 #, c-format msgid "unable to inspect list file for \"%s\", medium ignored" msgstr "" #. - return value is suitable for an hash. -#: ../urpm.pm:361 +#: ../urpm.pm:366 #, c-format msgid "too many mount points for removable medium \"%s\"" msgstr "" -#: ../urpm.pm:362 +#: ../urpm.pm:367 #, fuzzy, c-format msgid "taking removable device as \"%s\"" msgstr "Verwyderbare media" -#: ../urpm.pm:365 +#: ../urpm.pm:370 #, c-format msgid "Medium \"%s\" is an ISO image, will be mounted on-the-fly" msgstr "" -#: ../urpm.pm:368 +#: ../urpm.pm:373 #, c-format msgid "using different removable device [%s] for \"%s\"" msgstr "" -#: ../urpm.pm:373 ../urpm.pm:376 +#: ../urpm.pm:378 ../urpm.pm:381 #, c-format msgid "unable to retrieve pathname for removable medium \"%s\"" msgstr "" -#: ../urpm.pm:402 +#: ../urpm.pm:407 #, fuzzy, c-format msgid "unable to write config file [%s]" msgstr "Kan nie lêer %s oopmaak nie\n" -#: ../urpm.pm:412 +#: ../urpm.pm:417 #, fuzzy, c-format msgid "wrote config file [%s]" msgstr "Partisionering het misluk: %s" -#: ../urpm.pm:440 +#: ../urpm.pm:445 msgid "Can't use parallel mode with use-distrib mode" msgstr "" -#: ../urpm.pm:450 +#: ../urpm.pm:455 #, fuzzy, c-format msgid "unable to parse \"%s\" in file [%s]" msgstr "Kan nie lêer %s oopmaak nie\n" -#: ../urpm.pm:462 +#: ../urpm.pm:467 #, c-format msgid "examining parallel handler in file [%s]" msgstr "" -#: ../urpm.pm:473 +#: ../urpm.pm:478 #, c-format msgid "found parallel handler for nodes: %s" msgstr "" -#: ../urpm.pm:477 +#: ../urpm.pm:482 #, c-format msgid "using associated media for parallel mode: %s" msgstr "" -#: ../urpm.pm:481 +#: ../urpm.pm:486 #, fuzzy, c-format msgid "unable to use parallel option \"%s\"" msgstr " op pallelle poort #%s" -#: ../urpm.pm:489 +#: ../urpm.pm:494 #, c-format msgid "there doesn't seem to be devices in the chroot in \"%s\"" msgstr "" -#: ../urpm.pm:495 +#: ../urpm.pm:500 msgid "" "--synthesis cannot be used with --media, --excludemedia, --sortmedia, --" "update or --parallel" @@ -447,149 +432,149 @@ msgstr "" #. - (However links need to be managed. see bug #12391.) #. - as previously done, just read synthesis file here, this is enough. #. - read default synthesis (we have to make sure nothing get out of depslist). -#: ../urpm.pm:556 ../urpm.pm:582 ../urpm.pm:1068 ../urpm.pm:1079 -#: ../urpm.pm:1151 ../urpm.pm:1168 ../urpm.pm:1238 ../urpm.pm:1297 -#: ../urpm.pm:1512 ../urpm.pm:1635 ../urpm.pm:1752 ../urpm.pm:1758 -#: ../urpm.pm:1861 ../urpm.pm:1946 ../urpm.pm:1950 +#: ../urpm.pm:564 ../urpm.pm:590 ../urpm.pm:1076 ../urpm.pm:1087 +#: ../urpm.pm:1159 ../urpm.pm:1176 ../urpm.pm:1246 ../urpm.pm:1305 +#: ../urpm.pm:1520 ../urpm.pm:1643 ../urpm.pm:1760 ../urpm.pm:1766 +#: ../urpm.pm:1869 ../urpm.pm:1955 ../urpm.pm:1959 #, c-format msgid "examining synthesis file [%s]" msgstr "" -#: ../urpm.pm:560 ../urpm.pm:575 ../urpm.pm:588 ../urpm.pm:1071 -#: ../urpm.pm:1082 ../urpm.pm:1157 ../urpm.pm:1163 ../urpm.pm:1243 -#: ../urpm.pm:1301 ../urpm.pm:1516 ../urpm.pm:1639 ../urpm.pm:1746 -#: ../urpm.pm:1764 ../urpm.pm:1956 +#: ../urpm.pm:568 ../urpm.pm:583 ../urpm.pm:596 ../urpm.pm:1079 +#: ../urpm.pm:1090 ../urpm.pm:1165 ../urpm.pm:1171 ../urpm.pm:1251 +#: ../urpm.pm:1309 ../urpm.pm:1524 ../urpm.pm:1647 ../urpm.pm:1754 +#: ../urpm.pm:1772 ../urpm.pm:1965 #, c-format msgid "examining hdlist file [%s]" msgstr "" -#: ../urpm.pm:570 ../urpm.pm:1075 +#: ../urpm.pm:578 ../urpm.pm:1083 #, c-format msgid "virtual medium \"%s\" is not local, medium ignored" msgstr "" -#: ../urpm.pm:600 +#: ../urpm.pm:608 #, fuzzy, c-format msgid "Search start: %s end: %s" msgstr "Opsoek na geïnstalleerde lettertipes" #. - this is almost a fatal error, ignore it by default? -#: ../urpm.pm:605 ../urpm.pm:1089 ../urpm.pm:1176 ../urpm.pm:1247 -#: ../urpm.pm:1643 +#: ../urpm.pm:613 ../urpm.pm:1097 ../urpm.pm:1184 ../urpm.pm:1255 +#: ../urpm.pm:1651 #, c-format msgid "problem reading hdlist or synthesis file of medium \"%s\"" msgstr "" -#: ../urpm.pm:612 ../urpm.pm:1899 +#: ../urpm.pm:620 ../urpm.pm:1907 msgid "performing second pass to compute dependencies\n" msgstr "" -#: ../urpm.pm:628 +#: ../urpm.pm:636 #, fuzzy, c-format msgid "skipping package %s" msgstr "Installeer pakket %s" -#: ../urpm.pm:641 +#: ../urpm.pm:649 #, fuzzy, c-format msgid "would install instead of upgrade package %s" msgstr "Probleme met Installasue van pakket %s" #. - beware this can be a child process or the main process now... #. - open in read/write mode unless testing installation. -#: ../urpm.pm:652 ../urpm.pm:2315 ../urpm.pm:2376 ../urpm.pm:2566 -#: ../urpm.pm:2968 ../urpm.pm:3092 +#: ../urpm.pm:660 ../urpm.pm:2325 ../urpm.pm:2386 ../urpm.pm:2576 +#: ../urpm.pm:2978 ../urpm.pm:3102 #, fuzzy msgid "unable to open rpmdb" msgstr "Kan nie lêer %s oopmaak nie\n" -#: ../urpm.pm:692 +#: ../urpm.pm:700 #, fuzzy, c-format msgid "medium \"%s\" already exists" msgstr "Rekening bestaan reeds\n" -#: ../urpm.pm:699 +#: ../urpm.pm:707 msgid "virtual medium needs to be local" msgstr "" -#: ../urpm.pm:724 +#: ../urpm.pm:732 #, fuzzy, c-format msgid "added medium %s" msgstr "Voeg media by" -#: ../urpm.pm:769 +#: ../urpm.pm:777 #, fuzzy msgid "unable to access first installation medium" msgstr "Probleme met skep van media." -#: ../urpm.pm:773 +#: ../urpm.pm:781 msgid "copying hdlists file..." msgstr "" -#: ../urpm.pm:775 ../urpm.pm:1192 ../urpm.pm:1267 +#: ../urpm.pm:783 ../urpm.pm:1200 ../urpm.pm:1275 msgid "...copying done" msgstr "" -#: ../urpm.pm:776 ../urpm.pm:1193 ../urpm.pm:1342 ../urpm.pm:1401 -#: ../urpm.pm:1581 ../urpm.pm:1588 +#: ../urpm.pm:784 ../urpm.pm:1201 ../urpm.pm:1350 ../urpm.pm:1409 +#: ../urpm.pm:1589 ../urpm.pm:1596 #, fuzzy msgid "...copying failed" msgstr "Aanteken gevaal" -#: ../urpm.pm:779 ../urpm.pm:804 ../urpm.pm:843 +#: ../urpm.pm:787 ../urpm.pm:812 ../urpm.pm:851 msgid "unable to access first installation medium (no hdlists file found)" msgstr "" -#: ../urpm.pm:786 +#: ../urpm.pm:794 #, fuzzy msgid "retrieving hdlists file..." msgstr "Maak /etc/hosts ...\n" -#: ../urpm.pm:798 ../urpm.pm:1625 ../urpm.pm:2115 ../urpm.pm:2835 +#: ../urpm.pm:806 ../urpm.pm:1633 ../urpm.pm:2125 ../urpm.pm:2845 msgid "...retrieving done" msgstr "" -#: ../urpm.pm:800 ../urpm.pm:1609 ../urpm.pm:2119 ../urpm.pm:2837 +#: ../urpm.pm:808 ../urpm.pm:1617 ../urpm.pm:2129 ../urpm.pm:2847 #, fuzzy, c-format msgid "...retrieving failed: %s" msgstr "FAT-grootteverandering het gefaal: %s" -#: ../urpm.pm:824 +#: ../urpm.pm:832 #, c-format msgid "invalid hdlist description \"%s\" in hdlists file" msgstr "" -#: ../urpm.pm:880 +#: ../urpm.pm:888 #, c-format msgid "trying to select nonexistent medium \"%s\"" msgstr "" #. - several elements in found and/or foundi lists. -#: ../urpm.pm:882 +#: ../urpm.pm:890 #, c-format msgid "selecting multiple media: %s" msgstr "" -#: ../urpm.pm:898 +#: ../urpm.pm:906 #, fuzzy, c-format msgid "removing medium \"%s\"" msgstr "Redigeer media \"%s\":" -#: ../urpm.pm:949 +#: ../urpm.pm:957 #, fuzzy, c-format msgid "reconfiguring urpmi for media \"%s\"" msgstr "Konfigureer drukker \"%s\" ..." -#: ../urpm.pm:978 +#: ../urpm.pm:986 #, fuzzy msgid "...reconfiguration failed" msgstr "Konfigurasie-lêer" -#: ../urpm.pm:985 +#: ../urpm.pm:993 #, fuzzy msgid "reconfiguration done" msgstr "Bedienerkonfigurasie" -#: ../urpm.pm:1129 +#: ../urpm.pm:1137 #, c-format msgid "" "unable to access medium \"%s\",\n" @@ -597,504 +582,523 @@ msgid "" "medium." msgstr "" -#: ../urpm.pm:1180 +#: ../urpm.pm:1188 #, c-format msgid "" "virtual medium \"%s\" should have valid source hdlist or synthesis, medium " "ignored" msgstr "" -#: ../urpm.pm:1190 +#: ../urpm.pm:1198 #, fuzzy, c-format msgid "copying description file of \"%s\"..." msgstr "in beskrywings" -#: ../urpm.pm:1214 ../urpm.pm:1488 +#: ../urpm.pm:1222 ../urpm.pm:1496 msgid "computing md5sum of existing source hdlist (or synthesis)" msgstr "" -#: ../urpm.pm:1263 +#: ../urpm.pm:1271 #, c-format msgid "copying source hdlist (or synthesis) of \"%s\"..." msgstr "" -#: ../urpm.pm:1277 +#: ../urpm.pm:1285 #, c-format msgid "copy of [%s] failed (file is suspiciously small)" msgstr "" -#: ../urpm.pm:1282 +#: ../urpm.pm:1290 msgid "computing md5sum of copied source hdlist (or synthesis)" msgstr "" -#: ../urpm.pm:1284 +#: ../urpm.pm:1292 #, fuzzy, c-format msgid "copy of [%s] failed (md5sum mismatch)" msgstr "Installasie het misluk" -#: ../urpm.pm:1305 ../urpm.pm:1520 ../urpm.pm:1864 +#: ../urpm.pm:1313 ../urpm.pm:1528 ../urpm.pm:1872 #, c-format msgid "problem reading synthesis file of medium \"%s\"" msgstr "" -#: ../urpm.pm:1359 +#: ../urpm.pm:1367 #, fuzzy, c-format msgid "reading rpm files from [%s]" msgstr "Fout met die lees van lêer %s" -#: ../urpm.pm:1374 +#: ../urpm.pm:1382 msgid "no rpms read" msgstr "" -#: ../urpm.pm:1384 +#: ../urpm.pm:1392 #, c-format msgid "unable to read rpm files from [%s]: %s" msgstr "" -#: ../urpm.pm:1389 +#: ../urpm.pm:1397 #, c-format msgid "no rpm files found from [%s]" msgstr "" #. - try to probe for possible with_hdlist parameter, unless #. - it is already defined (and valid). -#: ../urpm.pm:1538 +#: ../urpm.pm:1546 #, c-format msgid "retrieving source hdlist (or synthesis) of \"%s\"..." msgstr "" -#: ../urpm.pm:1566 +#: ../urpm.pm:1574 #, c-format msgid "found probed hdlist (or synthesis) as %s" msgstr "" -#: ../urpm.pm:1616 +#: ../urpm.pm:1624 msgid "computing md5sum of retrieved source hdlist (or synthesis)" msgstr "" -#: ../urpm.pm:1618 +#: ../urpm.pm:1626 #, fuzzy msgid "...retrieving failed: md5sum mismatch" msgstr "FAT-grootteverandering het gefaal: %s" -#: ../urpm.pm:1716 +#: ../urpm.pm:1724 msgid "retrieval of source hdlist (or synthesis) failed" msgstr "" -#: ../urpm.pm:1723 +#: ../urpm.pm:1731 #, fuzzy, c-format msgid "no hdlist file found for medium \"%s\"" msgstr "Kopieer die lêer vir media '%s'..." -#: ../urpm.pm:1734 ../urpm.pm:1788 +#: ../urpm.pm:1742 ../urpm.pm:1796 #, c-format msgid "file [%s] already used in the same medium \"%s\"" msgstr "" -#: ../urpm.pm:1774 +#: ../urpm.pm:1782 #, fuzzy, c-format msgid "unable to parse hdlist file of \"%s\"" msgstr "Kan nie lêer %s oopmaak nie\n" -#: ../urpm.pm:1813 +#: ../urpm.pm:1821 #, fuzzy, c-format msgid "unable to write list file of \"%s\"" msgstr "Laat \"%s\" toe om die lêer te skryf" -#: ../urpm.pm:1821 +#: ../urpm.pm:1829 #, fuzzy, c-format msgid "writing list file for medium \"%s\"" msgstr "Kopieer die lêer vir media '%s'..." -#: ../urpm.pm:1823 +#: ../urpm.pm:1831 #, c-format msgid "nothing written in list file for \"%s\"" msgstr "" -#: ../urpm.pm:1838 +#: ../urpm.pm:1846 #, fuzzy, c-format msgid "examining pubkey file of \"%s\"..." msgstr "Ondersoek medialêer '%s'....." -#: ../urpm.pm:1845 +#: ../urpm.pm:1853 #, fuzzy, c-format msgid "...imported key %s from pubkey file of \"%s\"" msgstr "Net die supergebruiker kan plaaslike pakkette installeer" -#: ../urpm.pm:1848 +#: ../urpm.pm:1856 #, fuzzy, c-format msgid "unable to import pubkey file of \"%s\"" msgstr "Kan nie lêer %s oopmaak nie\n" -#: ../urpm.pm:1913 +#: ../urpm.pm:1921 #, fuzzy, c-format msgid "reading headers from medium \"%s\"" msgstr "%s from media %s" -#: ../urpm.pm:1918 +#: ../urpm.pm:1926 #, c-format msgid "building hdlist [%s]" msgstr "" #. - XXX this happens when building a synthesis for a local media from RPMs... why ? -#: ../urpm.pm:1933 ../urpm.pm:1968 +#: ../urpm.pm:1941 ../urpm.pm:1977 #, c-format msgid "" "Unable to build synthesis file for medium \"%s\". Your hdlist file may be " "corrupted." msgstr "" -#: ../urpm.pm:1936 ../urpm.pm:1971 ../urpmi:323 +#: ../urpm.pm:1945 ../urpm.pm:1981 ../urpmi:329 #, c-format msgid "built hdlist synthesis file for medium \"%s\"" msgstr "" -#: ../urpm.pm:1994 +#: ../urpm.pm:2004 #, c-format msgid "found %d headers in cache" msgstr "" -#: ../urpm.pm:1998 +#: ../urpm.pm:2008 #, c-format msgid "removing %d obsolete headers in cache" msgstr "" -#: ../urpm.pm:2054 +#: ../urpm.pm:2064 #, fuzzy, c-format msgid "mounting %s" msgstr "Verwyder %s" -#: ../urpm.pm:2076 +#: ../urpm.pm:2086 #, fuzzy, c-format msgid "unmounting %s" msgstr "fout met onthegting van %s: %s" -#: ../urpm.pm:2100 +#: ../urpm.pm:2110 #, fuzzy, c-format msgid "invalid rpm file name [%s]" msgstr "in lêername" -#: ../urpm.pm:2106 +#: ../urpm.pm:2116 #, c-format msgid "retrieving rpm file [%s] ..." msgstr "" -#: ../urpm.pm:2124 +#: ../urpm.pm:2134 #, fuzzy, c-format msgid "unable to access rpm file [%s]" msgstr "Kan nie lêer %s oopmaak nie\n" -#: ../urpm.pm:2129 +#: ../urpm.pm:2139 #, fuzzy msgid "unable to register rpm file" msgstr "Laat \"%s\" toe om die lêer te skryf" -#: ../urpm.pm:2132 +#: ../urpm.pm:2142 #, fuzzy msgid "error registering local packages" msgstr "Daar was 'n fout met pakkette:" -#: ../urpm.pm:2156 +#: ../urpm.pm:2166 msgid "Search" msgstr "Soek" -#: ../urpm.pm:2243 +#: ../urpm.pm:2253 #, fuzzy, c-format msgid "no package named %s" msgstr "Teruglus lêernaam: %s" -#: ../urpm.pm:2245 ../urpme:94 +#. - Warning : the following message is parsed in urpm::parallel_* +#: ../urpm.pm:2255 ../urpme:96 #, fuzzy, c-format msgid "The following packages contain %s: %s" msgstr "Die volgende pakkette geïnstalleer word:\n" -#: ../urpm.pm:2439 ../urpm.pm:2486 ../urpm.pm:2517 +#: ../urpm.pm:2449 ../urpm.pm:2496 ../urpm.pm:2527 #, c-format msgid "there are multiple packages with the same rpm filename \"%s\"" msgstr "" -#: ../urpm.pm:2500 +#: ../urpm.pm:2510 #, fuzzy, c-format msgid "unable to correctly parse [%s] on value \"%s\"" msgstr "Net die supergebruiker kan plaaslike pakkette installeer" -#: ../urpm.pm:2533 +#: ../urpm.pm:2543 #, c-format msgid "" "medium \"%s\" uses an invalid list file:\n" " mirror is probably not up-to-date, trying to use alternate method" msgstr "" -#: ../urpm.pm:2537 +#: ../urpm.pm:2547 #, c-format msgid "medium \"%s\" does not define any location for rpm files" msgstr "" -#: ../urpm.pm:2549 +#: ../urpm.pm:2559 #, fuzzy, c-format msgid "package %s is not found." msgstr "%s is nie gevind nie...\n" -#: ../urpm.pm:2607 ../urpm.pm:2621 ../urpm.pm:2641 ../urpm.pm:2655 +#: ../urpm.pm:2617 ../urpm.pm:2631 ../urpm.pm:2651 ../urpm.pm:2665 #, fuzzy msgid "urpmi database locked" msgstr "RPM-databasisnavraag het misluk\n" -#: ../urpm.pm:2707 ../urpm.pm:2712 ../urpm.pm:2738 +#: ../urpm.pm:2717 ../urpm.pm:2722 ../urpm.pm:2748 #, c-format msgid "medium \"%s\" is not selected" msgstr "" #. - fallback to use other method for retrieving the file later. -#: ../urpm.pm:2734 +#: ../urpm.pm:2744 #, c-format msgid "unable to read rpm file [%s] from medium \"%s\"" msgstr "" #. - we have a removable device that is not removable, well... -#: ../urpm.pm:2742 +#: ../urpm.pm:2752 #, c-format msgid "inconsistent medium \"%s\" marked removable but not really" msgstr "" -#: ../urpm.pm:2754 +#: ../urpm.pm:2764 #, fuzzy, c-format msgid "unable to access medium \"%s\"" msgstr "Probleme met skep van media." -#: ../urpm.pm:2813 +#: ../urpm.pm:2823 #, c-format msgid "malformed input: [%s]" msgstr "" -#: ../urpm.pm:2820 +#: ../urpm.pm:2830 #, fuzzy, c-format msgid "retrieving rpm files from medium \"%s\"..." msgstr "Ondersoek die afgeleë medialêer '%s'..." -#: ../urpm.pm:2941 +#: ../urpm.pm:2951 #, c-format msgid "using process %d for executing transaction" msgstr "" -#: ../urpm.pm:2972 +#: ../urpm.pm:2982 #, c-format msgid "" "created transaction for installing on %s (remove=%d, install=%d, upgrade=%d)" msgstr "" -#: ../urpm.pm:2975 +#: ../urpm.pm:2985 #, fuzzy msgid "unable to create transaction" msgstr "Probleme met die skep van 'n ssh identiteit" -#: ../urpm.pm:2983 +#: ../urpm.pm:2993 #, fuzzy, c-format msgid "removing package %s" msgstr "Verwyder pakkette..." -#: ../urpm.pm:2985 +#: ../urpm.pm:2995 #, fuzzy, c-format msgid "unable to remove package %s" msgstr "Kan nie die bronpakette bekom nie." -#: ../urpm.pm:2997 +#: ../urpm.pm:3007 #, fuzzy, c-format msgid "unable to extract rpm from delta-rpm package %s" msgstr "Kan nie die bronpakette bekom nie." -#: ../urpm.pm:3003 +#: ../urpm.pm:3013 #, c-format msgid "adding package %s (id=%d, eid=%d, update=%d, file=%s)" msgstr "" -#: ../urpm.pm:3006 +#: ../urpm.pm:3016 #, fuzzy, c-format msgid "unable to install package %s" msgstr "Probleme met Installasue van pakket %s" -#: ../urpm.pm:3063 +#: ../urpm.pm:3073 #, fuzzy, c-format msgid "More information on package %s" msgstr "Meer inligting rakende pakket..." -#: ../urpm.pm:3234 ../urpm.pm:3267 +#: ../urpm.pm:3244 ../urpm.pm:3277 #, c-format msgid "due to missing %s" msgstr "deur %s wat soek is" -#: ../urpm.pm:3235 ../urpm.pm:3265 +#: ../urpm.pm:3245 ../urpm.pm:3275 #, c-format msgid "due to unsatisfied %s" msgstr "deur problematiese %s" -#: ../urpm.pm:3236 +#: ../urpm.pm:3246 #, c-format msgid "trying to promote %s" msgstr "probeer promosie van %s" -#: ../urpm.pm:3237 +#: ../urpm.pm:3247 #, c-format msgid "in order to keep %s" msgstr "om %s te kan behou" -#: ../urpm.pm:3260 +#: ../urpm.pm:3270 #, fuzzy, c-format msgid "in order to install %s" msgstr "om %s te kan behou" -#: ../urpm.pm:3271 +#: ../urpm.pm:3281 #, fuzzy, c-format msgid "due to conflicts with %s" msgstr "deur %s wat soek is" -#: ../urpm.pm:3272 +#: ../urpm.pm:3282 #, fuzzy msgid "unrequested" msgstr "Begin sodra gevra word" -#: ../urpm.pm:3288 +#: ../urpm.pm:3298 #, c-format msgid "Invalid signature (%s)" msgstr "" -#: ../urpm.pm:3320 +#: ../urpm.pm:3330 #, c-format msgid "Invalid Key ID (%s)" msgstr "" -#: ../urpm.pm:3322 +#: ../urpm.pm:3332 #, fuzzy, c-format msgid "Missing signature (%s)" msgstr "Ontbrekende velde" -#: ../urpm.pm:3382 +#: ../urpm.pm:3392 msgid "examining MD5SUM file" msgstr "" -#: ../urpm.pm:3393 +#: ../urpm.pm:3403 #, c-format msgid "warning: md5sum for %s unavailable in MD5SUM file" msgstr "" -#: ../urpm.pm:3415 +#: ../urpm.pm:3425 msgid "This operation is forbidden while running in restricted mode" msgstr "" -#: ../urpm/args.pm:99 ../urpm/args.pm:108 +#: ../urpm/args.pm:104 ../urpm/args.pm:113 msgid "bad proxy declaration on command line\n" msgstr "" -#: ../urpm/args.pm:218 +#: ../urpm/args.pm:223 #, fuzzy msgid "You need to be root to use --use-distrib" msgstr "Jy moet stam wees om hierdie opdrag te gebruik !\n" -#: ../urpm/args.pm:250 +#: ../urpm/args.pm:255 #, fuzzy, c-format msgid "urpmq: cannot read rpm file \"%s\"\n" msgstr "kan nie kieslyslêer:%s lees nie" -#: ../urpm/msg.pm:82 +#. Translator: Add here the keys which might be pressed in the "No"-case. +#: ../urpm/msg.pm:46 ../urpme:33 ../urpmi:409 ../urpmi:427 ../urpmi:462 +#: ../urpmi:509 ../urpmi:593 ../urpmi:673 +msgid "Nn" +msgstr "Nn" + +#. Translator: Add here the keys which might be pressed in the "Yes"-case. +#: ../urpm/msg.pm:47 ../urpme:35 ../urpmi:410 ../urpmi:428 ../urpmi:463 +#: ../urpmi:510 ../urpmi:594 ../urpmi:674 +msgid "Yy" +msgstr "JjYy" + +#: ../urpm/msg.pm:85 msgid "Sorry, bad choice, try again\n" msgstr "Jammer, swak keuse, probeer weer\n" -#: ../urpm/parallel_ka_run.pm:9 ../urpm/parallel_ka_run.pm:103 -#: ../urpm/parallel_ka_run.pm:197 +#: ../urpm/parallel_ka_run.pm:27 ../urpm/parallel_ka_run.pm:121 +#: ../urpm/parallel_ka_run.pm:215 msgid "mput failed, maybe a node is unreacheable" msgstr "" -#: ../urpm/parallel_ka_run.pm:70 ../urpm/parallel_ka_run.pm:182 -#: ../urpm/parallel_ka_run.pm:211 +#: ../urpm/parallel_ka_run.pm:64 +#, c-format +msgid "node %s has an old version of urpme, please upgrade" +msgstr "" + +#: ../urpm/parallel_ka_run.pm:88 ../urpm/parallel_ka_run.pm:200 +#: ../urpm/parallel_ka_run.pm:230 msgid "rshp failed, maybe a node is unreacheable" msgstr "" -#: ../urpm/parallel_ka_run.pm:79 ../urpm/parallel_ssh.pm:96 +#: ../urpm/parallel_ka_run.pm:97 ../urpm/parallel_ssh.pm:102 #, c-format msgid "on node %s" msgstr "" #. - first propagate the synthesis file to all machine. -#: ../urpm/parallel_ka_run.pm:101 +#: ../urpm/parallel_ka_run.pm:119 msgid "Propagating synthesis to nodes..." msgstr "" #. - now try an iteration of urpmq. -#: ../urpm/parallel_ka_run.pm:152 +#: ../urpm/parallel_ka_run.pm:170 msgid "Resolving dependencies on nodes..." msgstr "" -#: ../urpm/parallel_ka_run.pm:195 +#: ../urpm/parallel_ka_run.pm:213 msgid "Distributing files to nodes..." msgstr "" -#: ../urpm/parallel_ka_run.pm:201 +#: ../urpm/parallel_ka_run.pm:220 msgid "Verifying if install is possible on nodes..." msgstr "" -#: ../urpm/parallel_ka_run.pm:215 ../urpm/parallel_ssh.pm:243 +#: ../urpm/parallel_ka_run.pm:234 ../urpm/parallel_ssh.pm:249 #, fuzzy, c-format msgid "Installation failed on node %s" msgstr "Installasie het misluk" -#: ../urpm/parallel_ka_run.pm:220 ../urpm/parallel_ssh.pm:248 ../urpmi:726 +#. - Warning : the following message is parsed in urpm::parallel_* +#: ../urpm/parallel_ka_run.pm:239 ../urpm/parallel_ssh.pm:254 ../urpmi:740 #, fuzzy msgid "Installation is possible" msgstr "Installasie probleem" #. - continue installation. -#: ../urpm/parallel_ka_run.pm:225 +#: ../urpm/parallel_ka_run.pm:244 #, fuzzy msgid "Installing packages on nodes..." msgstr "Installeer tans pakket %s (%s/%s)...." -#: ../urpm/parallel_ssh.pm:22 ../urpm/parallel_ssh.pm:120 -#: ../urpm/parallel_ssh.pm:224 +#: ../urpm/parallel_ssh.pm:28 ../urpm/parallel_ssh.pm:126 +#: ../urpm/parallel_ssh.pm:230 #, c-format msgid "scp failed on host %s (%d)" msgstr "" -#: ../urpm/parallel_ssh.pm:118 +#: ../urpm/parallel_ssh.pm:124 #, c-format msgid "Propagating synthesis to %s..." msgstr "" -#: ../urpm/parallel_ssh.pm:171 +#: ../urpm/parallel_ssh.pm:177 #, c-format msgid "Resolving dependencies on %s..." msgstr "" -#: ../urpm/parallel_ssh.pm:201 +#: ../urpm/parallel_ssh.pm:207 #, c-format msgid "host %s does not have a good version of urpmi (%d)" msgstr "" -#: ../urpm/parallel_ssh.pm:217 +#: ../urpm/parallel_ssh.pm:223 #, fuzzy, c-format msgid "Distributing files to %s..." msgstr "Begin %s:" -#: ../urpm/parallel_ssh.pm:231 +#: ../urpm/parallel_ssh.pm:237 #, c-format msgid "Verifying if install is possible on %s..." msgstr "" -#: ../urpm/parallel_ssh.pm:255 +#: ../urpm/parallel_ssh.pm:261 #, fuzzy, c-format msgid "Performing install on %s..." msgstr "Installasievoorbereiding..." -#: ../urpm/parallel_ssh.pm:268 +#: ../urpm/parallel_ssh.pm:274 #, fuzzy, c-format msgid "Installing %s on %s..." msgstr "%s word installeer\n" -#: ../urpm/parallel_ssh.pm:269 +#: ../urpm/parallel_ssh.pm:275 #, fuzzy, c-format msgid "Preparing install on %s..." msgstr "Installasievoorbereiding..." -#: ../urpme:31 ../urpmi:500 +#: ../urpme:31 msgid "Is this OK?" msgstr "Is dit aanvaarbaar?" @@ -1115,12 +1119,12 @@ msgstr "" "\n" "gebruik:\n" -#: ../urpme:43 ../urpmf:33 ../urpmi:78 ../urpmi.addmedia:43 -#: ../urpmi.removemedia:48 ../urpmi.update:30 ../urpmq:43 +#: ../urpme:43 ../urpmf:34 ../urpmi:79 ../urpmi.addmedia:44 +#: ../urpmi.removemedia:49 ../urpmi.update:31 ../urpmq:44 msgid " --help - print this help message.\n" msgstr " --help - druk hierdie help boodskap.\n" -#: ../urpme:44 ../urpmi:85 +#: ../urpme:44 ../urpmi:86 #, fuzzy msgid " --auto - automatically select a package in choices.\n" msgstr "Wys outogeselekteerde pakkette." @@ -1129,12 +1133,12 @@ msgstr "Wys outogeselekteerde pakkette." msgid " --test - verify if the removal can be achieved correctly.\n" msgstr "" -#: ../urpme:46 ../urpmi:100 ../urpmq:64 +#: ../urpme:46 ../urpmi:101 ../urpmq:65 msgid "" " --force - force invocation even if some packages do not exist.\n" msgstr "" -#: ../urpme:47 ../urpmi:105 ../urpmq:65 +#: ../urpme:47 ../urpmi:106 ../urpmq:66 msgid " --parallel - distributed urpmi across machines of alias.\n" msgstr "" @@ -1148,8 +1152,8 @@ msgid "" " to (un)install a chroot with --root option.\n" msgstr "" -#: ../urpme:51 ../urpmi:139 ../urpmi.addmedia:74 ../urpmi.removemedia:53 -#: ../urpmi.update:48 ../urpmq:91 +#: ../urpme:51 ../urpmi:143 ../urpmi.addmedia:75 ../urpmi.removemedia:54 +#: ../urpmi.update:49 ../urpmq:92 msgid " -v - verbose mode.\n" msgstr " -v - woordryke modus.\n" @@ -1162,34 +1166,37 @@ msgstr "" msgid "Only superuser is allowed to remove packages" msgstr "Net die supergebruiker kan plaaslike pakkette installeer" -#: ../urpme:89 +#: ../urpme:90 #, fuzzy msgid "unknown package" msgstr "Onbekend" -#: ../urpme:89 +#. - Warning : the following message is parsed in urpm::parallel_* +#: ../urpme:90 #, fuzzy msgid "unknown packages" msgstr "Inligting rakende pakkette" -#: ../urpme:99 ../urpmi:439 +#. - Warning : the following message is parsed in urpm::parallel_* +#: ../urpme:102 ../urpmi:445 #, fuzzy, c-format msgid "removing package %s will break your system" msgstr "" "Jammer maat, nou wil jy jou Linux rekenaar vernietig:\n" "\n" -#: ../urpme:102 +#: ../urpme:105 #, fuzzy msgid "Nothing to remove" msgstr "Geen etiket om te verwyder nie!" -#: ../urpme:106 +#. - Warning : the following message is parsed in urpm::parallel_* +#: ../urpme:110 #, fuzzy msgid "Checking to remove the following packages" msgstr "Slegs een van die volgende pakkette word benodig:" -#: ../urpme:113 +#: ../urpme:117 #, fuzzy, c-format msgid "" "To satisfy dependencies, the following %d packages will be removed (%d MB)" @@ -1198,17 +1205,18 @@ msgstr "" "geïnstalleer word:\n" "\n" -#: ../urpme:115 ../urpmi:458 ../urpmi:588 +#: ../urpme:119 ../urpmi:464 ../urpmi:595 #, fuzzy msgid " (y/N) " msgstr " (J/n) " -#: ../urpme:122 +#. - Warning : the following message is parsed in urpm::parallel_* +#: ../urpme:129 #, fuzzy msgid "Removal failed" msgstr "Aanteken gevaal" -#: ../urpmf:27 +#: ../urpmf:28 #, fuzzy, c-format msgid "" "urpmf version %s\n" @@ -1225,237 +1233,237 @@ msgstr "" "\n" "gebruik:\n" -#: ../urpmf:34 +#: ../urpmf:35 #, fuzzy msgid " --version - print this tool's version number.\n" msgstr " --help - druk hierdie help boodskap.\n" -#: ../urpmf:35 ../urpmi:120 ../urpmq:74 +#: ../urpmf:36 ../urpmi:124 ../urpmq:75 msgid " --env - use specific environment (typically a bug report).\n" msgstr "" -#: ../urpmf:36 ../urpmi:82 ../urpmq:47 +#: ../urpmf:37 ../urpmi:83 ../urpmq:48 msgid " --excludemedia - do not use the given media, separated by comma.\n" msgstr "" -#: ../urpmf:37 +#: ../urpmf:38 msgid "" " --literal, -l - don't match patterns, use argument as a literal string.\n" msgstr "" -#: ../urpmf:38 ../urpmi:80 ../urpmq:45 +#: ../urpmf:39 ../urpmi:81 ../urpmq:46 msgid " --media - use only the given media, separated by comma.\n" msgstr "" -#: ../urpmf:39 ../urpmi:83 ../urpmq:48 +#: ../urpmf:40 ../urpmi:84 ../urpmq:49 msgid "" " --sortmedia - sort media according to substrings separated by comma.\n" msgstr "" -#: ../urpmf:40 ../urpmi:84 ../urpmq:49 +#: ../urpmf:41 ../urpmi:85 ../urpmq:50 msgid " --synthesis - use the given synthesis instead of urpmi db.\n" msgstr "" -#: ../urpmf:41 +#: ../urpmf:42 #, fuzzy msgid " --uniq - do not print identical lines twice.\n" msgstr " --help - druk hierdie help boodskap.\n" -#: ../urpmf:42 ../urpmi:79 ../urpmq:44 +#: ../urpmf:43 ../urpmi:80 ../urpmq:45 #, fuzzy msgid " --update - use only update media.\n" msgstr " --help - druk hierdie help boodskap.\n" -#: ../urpmf:43 +#: ../urpmf:44 #, fuzzy msgid " --verbose - verbose mode.\n" msgstr " -v - woordryke modus.\n" -#: ../urpmf:44 +#: ../urpmf:45 #, fuzzy msgid " -i - ignore case distinctions in patterns.\n" msgstr " -v - woordryke modus.\n" -#: ../urpmf:45 +#: ../urpmf:46 msgid " -F<str> - change field separator (defaults to ':').\n" msgstr "" -#: ../urpmf:46 +#: ../urpmf:47 msgid "Pattern expressions:\n" msgstr "" -#: ../urpmf:47 +#: ../urpmf:48 msgid " text - any text is parsed as a regexp, unless -l is used.\n" msgstr "" -#: ../urpmf:48 +#: ../urpmf:49 msgid " -e - include perl code directly as perl -e.\n" msgstr "" -#: ../urpmf:49 +#: ../urpmf:50 #, fuzzy msgid " -a - binary AND operator.\n" msgstr " -v - woordryke modus.\n" -#: ../urpmf:50 +#: ../urpmf:51 #, fuzzy msgid " -o - binary OR operator.\n" msgstr " -v - woordryke modus.\n" -#: ../urpmf:51 +#: ../urpmf:52 #, fuzzy msgid " ! - unary NOT.\n" msgstr " -v - woordryke modus.\n" -#: ../urpmf:52 +#: ../urpmf:53 #, fuzzy msgid " ( ) - left and right parentheses.\n" msgstr " -v - woordryke modus.\n" -#: ../urpmf:53 +#: ../urpmf:54 #, fuzzy msgid "List of tags:\n" msgstr "" "Lys van data om te herstel:\n" "\n" -#: ../urpmf:54 +#: ../urpmf:55 #, fuzzy msgid " --qf - specify a printf-like output format\n" msgstr " -v - woordryke modus.\n" -#: ../urpmf:55 +#: ../urpmf:56 #, fuzzy, c-format msgid " example: '%%name:%%files'\n" msgstr "" "\n" " DrakBackup Verslag \n" -#: ../urpmf:56 +#: ../urpmf:57 #, fuzzy msgid " --arch - architecture\n" msgstr " --help - druk hierdie help boodskap.\n" -#: ../urpmf:57 +#: ../urpmf:58 msgid " --buildhost - build host\n" msgstr "" -#: ../urpmf:58 +#: ../urpmf:59 msgid " --buildtime - build time\n" msgstr "" -#: ../urpmf:59 +#: ../urpmf:60 #, fuzzy msgid " --conffiles - configuration files\n" msgstr "Konsole opstelling module" -#: ../urpmf:60 +#: ../urpmf:61 msgid " --conflicts - conflict tags\n" msgstr "" -#: ../urpmf:61 +#: ../urpmf:62 msgid " --description - package description\n" msgstr "" -#: ../urpmf:62 +#: ../urpmf:63 msgid " --distribution - distribution\n" msgstr "" -#: ../urpmf:63 +#: ../urpmf:64 #, fuzzy msgid " --epoch - epoch\n" msgstr " --help - druk hierdie help boodskap.\n" -#: ../urpmf:64 +#: ../urpmf:65 #, fuzzy msgid " --filename - filename of the package\n" msgstr " --help - druk hierdie help boodskap.\n" -#: ../urpmf:65 +#: ../urpmf:66 #, fuzzy msgid " --files - list of files contained in the package\n" msgstr " -v - woordryke modus.\n" -#: ../urpmf:66 +#: ../urpmf:67 #, fuzzy msgid " --group - group\n" msgstr " --help - druk hierdie help boodskap.\n" -#: ../urpmf:67 +#: ../urpmf:68 #, fuzzy msgid " --name - package name\n" msgstr " --help - druk hierdie help boodskap.\n" -#: ../urpmf:68 +#: ../urpmf:69 msgid " --obsoletes - obsoletes tags\n" msgstr "" -#: ../urpmf:69 +#: ../urpmf:70 #, fuzzy msgid " --packager - packager\n" msgstr " --help - druk hierdie help boodskap.\n" -#: ../urpmf:70 +#: ../urpmf:71 msgid " --provides - provides tags\n" msgstr "" -#: ../urpmf:71 +#: ../urpmf:72 msgid " --requires - requires tags\n" msgstr "" -#: ../urpmf:72 +#: ../urpmf:73 #, fuzzy msgid " --size - installed size\n" msgstr " --help - druk hierdie help boodskap.\n" -#: ../urpmf:73 +#: ../urpmf:74 msgid " --sourcerpm - source rpm name\n" msgstr "" -#: ../urpmf:74 +#: ../urpmf:75 msgid " --summary - summary\n" msgstr "" -#: ../urpmf:75 +#: ../urpmf:76 #, fuzzy msgid " --url - url\n" msgstr " --help - druk hierdie help boodskap.\n" -#: ../urpmf:76 +#: ../urpmf:77 #, fuzzy msgid " --vendor - vendor\n" msgstr " -v - woordryke modus.\n" -#: ../urpmf:77 +#: ../urpmf:78 #, fuzzy msgid " -m - the media in which the package was found\n" msgstr " -v - woordryke modus.\n" -#: ../urpmf:78 ../urpmq:80 +#: ../urpmf:79 ../urpmq:81 #, fuzzy msgid " -f - print version, release and arch with name.\n" msgstr " -v - woordryke modus.\n" -#: ../urpmf:130 +#: ../urpmf:131 msgid "Incorrect format: you may use only one multi-valued tag" msgstr "" -#: ../urpmf:172 ../urpmi:218 ../urpmq:116 +#: ../urpmf:173 ../urpmi:224 ../urpmq:117 #, c-format msgid "using specific environment on %s\n" msgstr "" -#: ../urpmf:218 +#: ../urpmf:219 msgid "" "Note: since no media searched uses hdlists, urpmf was unable to return any " "result\n" msgstr "" -#: ../urpmf:219 +#: ../urpmf:220 msgid "You may want to use --name to search for package names.\n" msgstr "" -#: ../urpmi:73 +#: ../urpmi:74 #, fuzzy, c-format msgid "" "urpmi version %s\n" @@ -1472,34 +1480,34 @@ msgstr "" "\n" "gebruik:\n" -#: ../urpmi:81 ../urpmq:46 +#: ../urpmi:82 ../urpmq:47 msgid "" " --searchmedia - use only the given media to search requested (or updated) " "packages.\n" msgstr "" -#: ../urpmi:86 ../urpmq:50 +#: ../urpmi:87 ../urpmq:51 msgid "" " --auto-select - automatically select packages to upgrade the system.\n" msgstr "" -#: ../urpmi:87 +#: ../urpmi:88 msgid "" " --no-uninstall - never ask to uninstall a package, abort the " "installation.\n" msgstr "" -#: ../urpmi:88 +#: ../urpmi:89 msgid " --no-install - don't install packages (only download)\n" msgstr "" -#: ../urpmi:89 ../urpmq:52 +#: ../urpmi:90 ../urpmq:53 msgid "" " --keep - keep existing packages if possible, reject requested\n" " packages that lead to removals.\n" msgstr "" -#: ../urpmi:91 +#: ../urpmi:92 #, c-format msgid "" " --split-level - split in small transaction if more than given packages\n" @@ -1507,199 +1515,211 @@ msgid "" " default is %d.\n" msgstr "" -#: ../urpmi:94 +#: ../urpmi:95 #, c-format msgid " --split-length - small transaction length, default is %d.\n" msgstr "" -#: ../urpmi:95 ../urpmq:51 +#: ../urpmi:96 ../urpmq:52 msgid " --fuzzy - impose fuzzy search (same as -y).\n" msgstr "" -#: ../urpmi:96 ../urpmq:60 +#: ../urpmi:97 ../urpmq:61 msgid " --src - next package is a source package (same as -s).\n" msgstr "" -#: ../urpmi:97 +#: ../urpmi:98 msgid " --install-src - install only source package (no binaries).\n" msgstr "" -#: ../urpmi:98 +#: ../urpmi:99 msgid " --clean - remove rpm from cache before anything else.\n" msgstr "" -#: ../urpmi:99 +#: ../urpmi:100 msgid " --noclean - don't clean rpms from cache.\n" msgstr "" -#: ../urpmi:101 +#: ../urpmi:102 msgid "" " --allow-nodeps - allow asking user to install packages without\n" " dependencies checking.\n" msgstr "" -#: ../urpmi:103 +#: ../urpmi:104 msgid "" " --allow-force - allow asking user to install packages without\n" " dependencies checking and integrity.\n" msgstr "" -#: ../urpmi:106 +#: ../urpmi:107 msgid " --root - use another root for rpm installation.\n" msgstr "" -#: ../urpmi:107 +#: ../urpmi:108 msgid "" " --use-distrib - configure urpmi on the fly from a distrib tree, useful\n" " to install a chroot with --root option.\n" msgstr "" -#: ../urpmi:109 ../urpmi.addmedia:44 ../urpmi.update:31 ../urpmq:68 +#: ../urpmi:110 ../urpmi.addmedia:45 ../urpmi.update:32 ../urpmq:69 msgid " --wget - use wget to retrieve distant files.\n" msgstr "" -#: ../urpmi:110 ../urpmi.addmedia:45 ../urpmi.update:32 ../urpmq:69 +#: ../urpmi:111 ../urpmi.addmedia:46 ../urpmi.update:33 ../urpmq:70 msgid " --curl - use curl to retrieve distant files.\n" msgstr "" -#: ../urpmi:111 ../urpmi.addmedia:46 ../urpmi.update:33 +#: ../urpmi:112 +msgid " --curl-options - additional options to pass to curl\n" +msgstr "" + +#: ../urpmi:113 +msgid " --rsync-options- additional options to pass to rsync\n" +msgstr "" + +#: ../urpmi:114 +msgid " --wget-options - additional options to pass to wget\n" +msgstr "" + +#: ../urpmi:115 ../urpmi.addmedia:47 ../urpmi.update:34 msgid " --limit-rate - limit the download speed.\n" msgstr "" -#: ../urpmi:112 +#: ../urpmi:116 msgid "" " --resume - resume transfer of partially-downloaded files\n" " (--no-resume disables it, default is disabled).\n" msgstr "" -#: ../urpmi:114 ../urpmi.addmedia:47 ../urpmi.update:34 ../urpmq:70 +#: ../urpmi:118 ../urpmi.addmedia:48 ../urpmi.update:35 ../urpmq:71 msgid "" " --proxy - use specified HTTP proxy, the port number is assumed\n" " to be 1080 by default (format is <proxyhost[:port]>).\n" msgstr "" -#: ../urpmi:116 ../urpmi.addmedia:49 ../urpmi.update:36 ../urpmq:72 +#: ../urpmi:120 ../urpmi.addmedia:50 ../urpmi.update:37 ../urpmq:73 msgid "" " --proxy-user - specify user and password to use for proxy\n" " authentication (format is <user:password>).\n" msgstr "" -#: ../urpmi:118 +#: ../urpmi:122 msgid "" " --bug - output a bug report in directory indicated by\n" " next arg.\n" msgstr "" -#: ../urpmi:121 +#: ../urpmi:125 msgid "" " --verify-rpm - verify rpm signature before installation\n" " (--no-verify-rpm disable it, default is enabled).\n" msgstr "" -#: ../urpmi:123 +#: ../urpmi:127 msgid "" " --test - verify if the installation can be achieved correctly.\n" msgstr "" -#: ../urpmi:124 +#: ../urpmi:128 msgid " --excludepath - exclude path separated by comma.\n" msgstr "" -#: ../urpmi:125 +#: ../urpmi:129 msgid " --excludedocs - exclude doc files.\n" msgstr "" -#: ../urpmi:126 +#: ../urpmi:130 msgid " --ignoresize - don't verify disk space before installation.\n" msgstr "" -#: ../urpmi:127 +#: ../urpmi:131 msgid " --noscripts - do not execute package scriptlet(s)\n" msgstr "" -#: ../urpmi:128 +#: ../urpmi:132 msgid " --skip - packages which installation should be skipped\n" msgstr "" -#: ../urpmi:129 +#: ../urpmi:133 msgid "" " --more-choices - when several packages are found, propose more choices\n" " than the default.\n" msgstr "" -#: ../urpmi:131 ../urpmi.addmedia:68 ../urpmi.update:41 +#: ../urpmi:135 ../urpmi.addmedia:69 ../urpmi.update:42 msgid " --norebuild - don't try to rebuild hdlist if not readable.\n" msgstr "" -#: ../urpmi:132 +#: ../urpmi:136 msgid " --strict-arch - upgrade only packages with the same architecture.\n" msgstr "" -#: ../urpmi:133 ../urpmq:77 +#: ../urpmi:137 ../urpmq:78 #, fuzzy msgid " -a - select all matches on command line.\n" msgstr " -v - woordryke modus.\n" -#: ../urpmi:134 +#: ../urpmi:138 msgid " -p - allow search in provides to find package.\n" msgstr "" -#: ../urpmi:135 +#: ../urpmi:139 msgid " -P - do not search in provides to find package.\n" msgstr "" -#: ../urpmi:136 ../urpmq:92 +#: ../urpmi:140 ../urpmq:93 msgid " -y - impose fuzzy search (same as --fuzzy).\n" msgstr "" -#: ../urpmi:137 ../urpmq:89 +#: ../urpmi:141 ../urpmq:90 msgid " -s - next package is a source package (same as --src).\n" msgstr "" -#: ../urpmi:138 ../urpmi.addmedia:73 ../urpmi.removemedia:52 -#: ../urpmi.update:47 +#: ../urpmi:142 ../urpmi.addmedia:74 ../urpmi.removemedia:53 +#: ../urpmi.update:48 #, fuzzy msgid " -q - quiet mode.\n" msgstr " -v - woordryke modus.\n" -#: ../urpmi:140 +#: ../urpmi:144 msgid " names or rpm files given on command line will be installed.\n" msgstr "" -#: ../urpmi:189 +#: ../urpmi:193 msgid "What can be done with binary rpm files when using --install-src" msgstr "" -#: ../urpmi:208 +#: ../urpmi:214 #, fuzzy, c-format msgid "" "Directory [%s] already exists, please use another directory for bug report " "or delete it" msgstr "Groep bestaan alreeds, Gebruik asb. 'n ander Groepnaam" -#: ../urpmi:209 +#: ../urpmi:215 #, c-format msgid "Unable to create directory [%s] for bug report" msgstr "" -#: ../urpmi:212 ../urpmi:333 +#: ../urpmi:218 ../urpmi:339 #, fuzzy msgid "Copying failed" msgstr "Aanteken gevaal" -#: ../urpmi:238 +#: ../urpmi:244 #, c-format msgid "" "Error: %s appears to be mounted read-only.\n" "Use --allow-force to force operation." msgstr "" -#: ../urpmi:368 +#: ../urpmi:374 #, c-format msgid "What is your choice? (1-%d) " msgstr "Wat is u keuse (1-%d)" -#: ../urpmi:398 +#: ../urpmi:404 #, c-format msgid "" "The following packages can't be installed because they depend on packages\n" @@ -1707,25 +1727,25 @@ msgid "" "%s" msgstr "" -#: ../urpmi:406 ../urpmi:424 +#: ../urpmi:412 ../urpmi:430 #, fuzzy msgid "" "\n" "Continue installation anyway?" msgstr "Wil u in elk geval voortgaan?" -#: ../urpmi:406 ../urpmi:424 ../urpmi:504 +#: ../urpmi:412 ../urpmi:430 ../urpmi:511 msgid " (Y/n) " msgstr " (J/n) " -#: ../urpmi:417 +#: ../urpmi:423 #, fuzzy, c-format msgid "" "Some requested packages cannot be installed:\n" "%s" msgstr "Sommige pakkette kan nie geïnstalleer word nie" -#: ../urpmi:447 +#: ../urpmi:453 #, fuzzy, c-format msgid "" "The installation cannot continue because the following packages\n" @@ -1738,7 +1758,7 @@ msgstr "" "\n" "Kan ons voort gaan?" -#: ../urpmi:452 +#: ../urpmi:458 #, fuzzy, c-format msgid "" "The following packages have to be removed for others to be upgraded:\n" @@ -1750,91 +1770,99 @@ msgstr "" "\n" "Kan ons voort gaan?" -#: ../urpmi:487 ../urpmi:498 -#, fuzzy, c-format +#: ../urpmi:493 ../urpmi:505 +#, fuzzy msgid "" -"To satisfy dependencies, the following %d packages are going to be installed " -"(%d MB)" +"To satisfy dependencies, the following packages are going to be installed" msgstr "" "Om die afhanklikhede na te kom, moet die volgende pakket(te) ook\n" "geïnstalleer word:\n" "\n" -#: ../urpmi:488 ../urpmi:499 -#, fuzzy, c-format -msgid "" -"To satisfy dependencies, the following package is going to be installed (%d " -"MB)" +#: ../urpmi:494 ../urpmi:506 +#, fuzzy +msgid "To satisfy dependencies, the following package is going to be installed" msgstr "" "Om die afhanklikhede na te kom, moet die volgende pakket(te) ook\n" "geïnstalleer word:\n" "\n" -#: ../urpmi:494 +#: ../urpmi:495 +#, c-format +msgid "(%d packages, %d MB)" +msgstr "" + +#: ../urpmi:501 #, fuzzy, c-format msgid "" "You need to be root to install the following dependencies:\n" "%s\n" msgstr "Jy moet stam wees om hierdie opdrag te gebruik !\n" -#: ../urpmi:525 +#: ../urpmi:507 +#, c-format +msgid "Proceed with the installation of the %d packages? (%d MB)" +msgstr "" + +#: ../urpmi:532 #, fuzzy msgid "Press Enter when ready..." msgstr "Druk ENTER wanneer u reg is..." -#: ../urpmi:531 +#: ../urpmi:538 msgid "Cancel" msgstr "Kanselleer" -#: ../urpmi:531 +#: ../urpmi:538 msgid "Ok" msgstr "OK" -#: ../urpmi:579 +#: ../urpmi:586 #, fuzzy msgid "The following packages have bad signatures" msgstr "Die volgende pakkette geïnstalleer word:\n" -#: ../urpmi:580 +#: ../urpmi:587 #, fuzzy msgid "Do you want to continue installation ?" msgstr "Wil u op hierdie knoppie klik?" -#: ../urpmi:622 +#: ../urpmi:631 #, fuzzy, c-format msgid "distributing %s" msgstr "Begin %s:" #. - there's a common prefix, simplify message -#: ../urpmi:633 +#: ../urpmi:642 #, fuzzy, c-format msgid "installing %s from %s" msgstr "%s word installeer\n" -#: ../urpmi:635 +#: ../urpmi:644 #, fuzzy, c-format msgid
propagate_sync_callback($options, 'end', $file);
($total, $file) = (undef, undef);
}
}
} else {
print STDERR $_;
}
$buf = '';
}
}
$file and propagate_sync_callback($options, 'end', $file);
close WGET or die N("wget failed: exited with %d or signal %d\n", $? >> 8, $? & 127);
}
sub sync_curl {
-x "/usr/bin/curl" or die N("curl is missing\n");
local *CURL;
my $options = shift @_;
chdir(ref $options ? $options->{dir} : $options);
my (@ftp_files, @other_files);
foreach (@_) {
/^ftp:\/\/.*\/([^\/]*)$/ && -s $1 > 8192 and do { push @ftp_files, $_; next }; #- manage time stamp for large file only.
push @other_files, $_;
}
if (@ftp_files) {
my ($cur_ftp_file, %ftp_files_info);
require Date::Manip;
#- prepare to get back size and time stamp of each file.
open CURL, join(" ", map { "'$_'" } "/usr/bin/curl",
(ref $options && $options->{limit_rate} ? ("--limit-rate", $options->{limit_rate}) : ()),
(ref $options && $options->{proxy} ? set_proxy({ type => "curl", proxy => $options->{proxy} }) : ()) .
"-s", "-I", @ftp_files) . " |";
while (<CURL>) {
if (/Content-Length:\s*(\d+)/) {
!$cur_ftp_file || exists $ftp_files_info{$cur_ftp_file}{size} and $cur_ftp_file = shift @ftp_files;
$ftp_files_info{$cur_ftp_file}{size} = $1;
}
if (/Last-Modified:\s*(.*)/) {
!$cur_ftp_file || exists $ftp_files_info{$cur_ftp_file}{time} and $cur_ftp_file = shift @ftp_files;
$ftp_files_info{$cur_ftp_file}{time} = Date::Manip::ParseDate($1);
$ftp_files_info{$cur_ftp_file}{time} =~ s/(\d{6}).{4}(.*)/$1$2/; #- remove day and hour.
}
}
close CURL;
#- now analyse size and time stamp according to what already exists here.
if (@ftp_files) {
#- re-insert back shifted element of ftp_files, because curl output above
#- have not been parsed correctly, in doubt download them all.
push @ftp_files, keys %ftp_files_info;
} else {
#- for that, it should be clear ftp_files is empty... else a above work is
#- use less.
foreach (keys %ftp_files_info) {
my ($lfile) = /\/([^\/]*)$/ or next; #- strange if we can't parse it correctly.
my $ltime = Date::Manip::ParseDate(scalar gmtime((stat $1)[9]));
$ltime =~ s/(\d{6}).{4}(.*)/$1$2/; #- remove day and hour.
-s $lfile == $ftp_files_info{$_}{size} && $ftp_files_info{$_}{time} eq $ltime or
push @ftp_files, $_;
}
}
}
#- http files (and other files) are correctly managed by curl to conditionnal download.
#- options for ftp files, -R (-O <file>)*
#- options for http files, -R (-z file -O <file>)*
if (my @all_files = ((map { ("-O", $_) } @ftp_files), (map { /\/([^\/]*)$/ ? ("-z", $1, "-O", $_) : () } @other_files))) {
my @l = (@ftp_files, @other_files);
my ($buf, $file) = ('', undef);
open CURL, join(" ", map { "'$_'" } "/usr/bin/curl",
(ref $options && $options->{limit_rate} ? ("--limit-rate", $options->{limit_rate}) : ()),
(ref $options && $options->{proxy} ? set_proxy({ type => "curl", proxy => $options->{proxy} }) : ()),
(ref $options && $options->{quiet} && !$options->{verbose} ? "-s" : ()), "-R", "-f", "--stderr", "-",
@all_files) . " |";
local $/ = \1; #- read input by only one char, this is slow but very nice (and it works!).
while (<CURL>) {
$buf .= $_;
if ($_ eq "\r" || $_ eq "\n") {
if (ref $options && $options->{callback}) {
unless (defined $file) {
$file = shift @l;
propagate_sync_callback($options, 'start', $file);
}
if (my ($percent, $total, $eta, $speed) = $buf =~ /^\s*(\d+)\s+(\S+)[^\r\n]*\s+(\S+)\s+(\S+)[\r\n]$/ms) {
propagate_sync_callback($options, 'progress', $file, $percent, $total, $eta, $speed);
if ($_ eq "\n") {
propagate_sync_callback($options, 'end', $file);
$file = undef;
}
}
} else {
print STDERR $_;
}
$buf = '';
}
}
close CURL or die N("curl failed: exited with %d or signal %d\n", $? >> 8, $? & 127);
}
}
sub sync_rsync {
-x "/usr/bin/rsync" or die N("rsync is missing\n");
my $options = shift @_;
my $limit_rate = ref $options && $options->{limit_rate};
for ($limit_rate) {
/^(\d+)$/ and $limit_rate = $1/1024;
/^(\d+)[kK]$/ and $limit_rate = $1;
/^(\d+)[mM]$/ and $limit_rate = 1024*$1;
/^(\d+)[gG]$/ and $limit_rate = 1024*1024*$1;
}
foreach (@_) {
my $count = 10; #- retry count on error (if file exists).
my $basename = /^.*\/([^\/]*)$/ && $1 || $_;
my ($file) = /^rsync:\/\/(.*)/ or next; $file =~ /::/ or $file = $_;
propagate_sync_callback($options, 'start', $file);
do {
local (*RSYNC, $_);
my $buf = '';
open RSYNC, join(" ", map { "'$_'" } "/usr/bin/rsync",
($limit_rate ? "--bwlimit=$limit_rate" : ()),
(ref $options && $options->{quiet} ? qw(-q) : qw(--progress -v)),
qw(--partial --no-whole-file), $file, (ref $options ? $options->{dir} : $options)) . " |";
local $/ = \1; #- read input by only one char, this is slow but very nice (and it works!).
while (<RSYNC>) {
$buf .= $_;
if ($_ eq "\r" || $_ eq "\n") {
if (ref $options && $options->{callback}) {
if (my ($percent, $speed) = $buf =~ /^\s*\d+\s+(\d+)%\s+(\S+)\s+/) {
propagate_sync_callback($options, 'progress', $file, $percent, undef, undef, $speed);
}
} else {
print STDERR $_;
}
$buf = '';
}
}
close RSYNC;
} while ($? != 0 && --$count > 0 && -e (ref $options ? $options->{dir} : $options) . "/$basename");
propagate_sync_callback($options, 'end', $file);
}
$? == 0 or die N("rsync failed: exited with %d or signal %d\n", $? >> 8, $? & 127);
}
sub sync_ssh {
-x "/usr/bin/rsync" or die N("rsync is missing\n");
-x "/usr/bin/ssh" or die N("ssh is missing\n");
my $options = shift @_;
my $limit_rate = ref $options && $options->{limit_rate};
for ($limit_rate) {
/^(\d+)$/ and $limit_rate = $1/1024;
/^(\d+)[kK]$/ and $limit_rate = $1;
/^(\d+)[mM]$/ and $limit_rate = 1024*$1;
/^(\d+)[gG]$/ and $limit_rate = 1024*1024*$1;
}
foreach my $file (@_) {
my $count = 10; #- retry count on error (if file exists).
my $basename = $file =~ /^.*\/([^\/]*)$/ && $1 || $file;
propagate_sync_callback($options, 'start', $file);
do {
local (*RSYNC, $_);
my $buf = '';
open RSYNC, join(" ", map { "'$_'" } "/usr/bin/rsync",
($limit_rate ? "--bwlimit=$limit_rate" : ()),
(ref $options && $options->{quiet} ? qw(-q) : qw(--progress -v)),
qw(--partial -e ssh), $file, (ref $options ? $options->{dir} : $options)) . " |";
local $/ = \1; #- read input by only one char, this is slow but very nice (and it works!).
while (<RSYNC>) {
$buf .= $_;
if ($_ eq "\r" || $_ eq "\n") {
if (ref $options && $options->{callback}) {
if (my ($percent, $speed) = $buf =~ /^\s*\d+\s+(\d+)%\s+(\S+)\s+/) {
propagate_sync_callback($options, 'progress', $file, $percent, undef, undef, $speed);
}
} else {
print STDERR $_;
}
$buf = '';
}
}
close RSYNC;
} while ($? != 0 && --$count > 0 && -e (ref $options ? $options->{dir} : $options) . "/$basename");
propagate_sync_callback($options, 'end', $file);
}
$? == 0 or die N("rsync failed: exited with %d or signal %d\n", $? >> 8, $? & 127);
}
#- default logger suitable for sync operation on STDERR only.
sub sync_logger {
my ($mode, $file, $percent, $total, $eta, $speed) = @_;
if ($mode eq 'start') {
print STDERR " $file\n";
} elsif ($mode eq 'progress') {
if (defined $total && defined $eta) {
print STDERR N(" %s%% of %s completed, ETA = %s, speed = %s", $percent, $total, $eta, $speed) . "\r";
} else {
print STDERR N(" %s%% completed, speed = %s", $percent, $speed) . "\r";
}
} elsif ($mode eq 'end') {
print STDERR " " x 79, "\r";
}
}
#- read /etc/urpmi/urpmi.cfg as config file, keep compability with older
#- configuration file by examining if one entry is of the form
#- <name> <url> {
#- ...
#- }
#- else only this form is used
#- <name> <url>
#- <name> <ftp_url> with <relative_path_hdlist>
sub read_config {
my ($urpm, %options) = @_;
#- keep in mind if it has been called before.
$urpm->{media} and return; $urpm->{media} ||= [];
#- check urpmi.cfg content, if the file is old keep track
#- of old format used.
local (*F, $_);
open F, $urpm->{config}; #- no filename can be allowed on some case
while (<F>) {
chomp; s/#.*$//; s/^\s*//; s/\s*$//;
$_ eq '{' and do { #- urpmi.cfg global options extension
while (<F>) {
chomp; s/#.*$//; s/^\s*//; s/\s*$//;
$_ eq '}' and last;
#- check for boolean variables first, and after that valued variables.
my ($no, $k, $v);
if (($no, $k, $v) = /^(no-)?(verify-rpm|fuzzy|allow-(?:force|nodeps)|(?:pre|post)-clean)(?:\s*:\s*(.*))?$/) {
unless (exists $urpm->{options}{$k}) {
$urpm->{options}{$k} = $v eq '' || $v =~ /^(yes|on|1)$/i || 0;
$no and $urpm->{options}{$k} = ! $urpm->{options}{$k} || 0;
}
next;
} elsif (($k, $v) = /^(limit-rate|excludepath)\s*:\s*(.*)$/) {
unless (exists $urpm->{options}{$k}) {
$v =~ /^'([^']*)'$/ and $v = $1; $v =~ /^"([^"]*)"$/ and $v = $1;
$urpm->{options}{$k} = $v;
}
next;
}
$_ and $urpm->{error}(N("syntax error in config file at line %s", $.));
}
next };
/^(.*?[^\\])\s+(?:(.*?[^\\])\s+)?{$/ and do { #- urpmi.cfg format extention
my $medium = { name => unquotespace($1), clear_url => unquotespace($2) };
while (<F>) {
chomp; s/#.*$//; s/^\s*//; s/\s*$//;
$_ eq '}' and last;
/^hdlist\s*:\s*(.*)$/ and $medium->{hdlist} = $1, next;
/^with_hdlist\s*:\s*(.*)$/ and $medium->{with_hdlist} = $1, next;
/^list\s*:\s*(.*)$/ and $medium->{list} = $1, next;
/^removable\s*:\s*(.*)$/ and $medium->{removable} = $1, next;
/^update\s*$/ and $medium->{update} = 1, next;
/^ignore\s*$/ and $medium->{ignore} = 1, next;
/^synthesis\s*$/ and $medium->{synthesis} = 1, next;
/^modified\s*$/ and next; # IGNORED TO AVOID EXCESIVE REMOVE $medium->{modified} = 1, next;
$_ and $urpm->{error}(N("syntax error in config file at line %s", $.));
}
$urpm->probe_medium($medium, %options) and push @{$urpm->{media}}, $medium;
next };
/^(.*?[^\\])\s+(.*?[^\\])\s+with\s+(.*)$/ and do { #- urpmi.cfg old format for ftp
my $medium = { name => unquotespace($1), clear_url => unquotespace($2), with_hdlist => unquotespace($3) };
$urpm->probe_medium($medium, %options) and push @{$urpm->{media}}, $medium;
next };
/^(.*?[^\\])\s+(?:(.*?[^\\])\s*)?$/ and do { #- urpmi.cfg old format (assume hdlist.<name>.cz2?)
my $medium = { name => unquotespace($1), clear_url => unquotespace($2) };
$urpm->probe_medium($medium, %options) and push @{$urpm->{media}}, $medium;
next };
$_ and $urpm->{error}(N("syntax error in config file at line %s", $.));
}
close F;
#- keep in mind when an hdlist/list file is used, really usefull for
#- the next probe.
my (%hdlists, %lists);
foreach (@{$urpm->{media}}) {
exists $hdlists{$_->{hdlist}} and
$_->{ignore} = 1, $urpm->{error}(N("medium \"%s\" trying to use an already used hdlist, medium ignored", $_->{name}));
$hdlists{$_->{hdlist}} = undef;
if ($_->{list}) {
exists $lists{$_->{list}} and
$_->{ignore} = 1, $urpm->{error}(N("medium \"%s\" trying to use an already used list, medium ignored", $_->{name}));
$lists{$_->{list}} = undef;
}
}
#- urpmi.cfg if old is not enough to known the various media, track
#- directly into /var/lib/urpmi,
foreach (glob("$urpm->{statedir}/hdlist.*")) {
if (/\/hdlist\.((.*)\.cz2?)$/) {
#- check if it has already been detected above.
exists $hdlists{"hdlist.$1"} and next;
#- if not this is a new media to take care if
#- there is a list file.
if (-s "$urpm->{statedir}/list.$2") {
if (exists $lists{"list.$2"}) {
$urpm->{error}(N("unable to take care of medium \"%s\" as list file is already used by another medium", $2));
} else {
my $medium;
foreach (@{$urpm->{media}}) {
$_->{name} eq $2 and $medium = $_, last;
}
$medium and $urpm->{error}(N("unable to use name \"%s\" for unnamed medium because it is already used",
$2)), next;
$medium = { name => $2, hdlist => "hdlist.$1", list => "list.$2" };
$urpm->probe_medium($medium, %options) and push @{$urpm->{media}}, $medium;
}
} else {
$urpm->{error}(N("unable to take medium \"%s\" into account as no list file [%s] exists",
$2, "$urpm->{statedir}/list.$2"));
}
} else {
$urpm->{error}(N("unable to determine medium of this hdlist file [%s]", $_));
}
}
#- check the presence of hdlist file and list file if necessary.
unless ($options{nocheck_access}) {
foreach (@{$urpm->{media}}) {
$_->{ignore} and next;
-r "$urpm->{statedir}/$_->{hdlist}" || -r "$urpm->{statedir}/synthesis.$_->{hdlist}" && $_->{synthesis} or
$_->{ignore} = 1, $urpm->{error}(N("unable to access hdlist file of \"%s\", medium ignored", $_->{name}));
$_->{list} && -r "$urpm->{statedir}/$_->{list}" || defined $_->{url} or
$_->{ignore} = 1, $urpm->{error}(N("unable to access list file of \"%s\", medium ignored", $_->{name}));
}
}
}
#- probe medium to be used, take old medium into account too.
sub probe_medium {
my ($urpm, $medium, %options) = @_;
local $_;
my $existing_medium;
foreach (@{$urpm->{media}}) {
$_->{name} eq $medium->{name} and $existing_medium = $_, last;
}
$existing_medium and $urpm->{error}(N("trying to bypass existing medium \"%s\", avoiding", $medium->{name})), return;
$medium->{url} ||= $medium->{clear_url};
unless ($medium->{ignore} || $medium->{hdlist}) {
$medium->{hdlist} = "hdlist.$medium->{name}.cz";
-e "$urpm->{statedir}/$medium->{hdlist}" or $medium->{hdlist} = "hdlist.$medium->{name}.cz2";
-e "$urpm->{statedir}/$medium->{hdlist}" or
$medium->{ignore} = 1, $urpm->{error}(N("unable to find hdlist file for \"%s\", medium ignored", $medium->{name}));
}
unless ($medium->{ignore} || $medium->{list}) {
unless (defined $medium->{url}) {
$medium->{list} = "list.$medium->{name}";
unless (-e "$urpm->{statedir}/$medium->{list}") {
$medium->{ignore} = 1, $urpm->{error}(N("unable to find list file for \"%s\", medium ignored", $medium->{name}));
}
}
}
#- there is a little more to do at this point as url is not known, inspect directly list file for it.
unless ($medium->{url}) {
my %probe;
if (-r "$urpm->{statedir}/$medium->{list}") {
local *L;
open L, "$urpm->{statedir}/$medium->{list}";
while (<L>) {
#- /./ is end of url marker in list file (typically generated by a
#- find . -name "*.rpm" > list
#- for exportable list file.
/^(.*)\/\.\// and $probe{$1} = undef;
/^(.*)\/[^\/]*$/ and $probe{$1} = undef;
}
close L;
}
foreach (sort { length($a) <=> length($b) } keys %probe) {
if ($medium->{url}) {
$medium->{url} eq substr($_, 0, length($medium->{url})) or
$medium->{ignore} || $urpm->{error}(N("incoherent list file for \"%s\", medium ignored", $medium->{name})),
$medium->{ignore} = 1, last;
} else {
$medium->{url} = $_;
}
}
unless ($options{nocheck_access}) {
$medium->{url} or
$medium->{ignore} || $urpm->{error}(N("unable to inspect list file for \"%s\", medium ignored", $medium->{name})),
$medium->{ignore} = 1; #, last; keeping it cause perl to exit caller loop ...
}
}
#- probe removable device.
$urpm->probe_removable_device($medium);
#- clear URLs for trailing /es.
$medium->{url} and $medium->{url} =~ s|(.*?)/*$|$1|;
$medium->{clear_url} and $medium->{clear_url} =~ s|(.*?)/*$|$1|;
$medium;
}
#- probe device associated with a removable device.
sub probe_removable_device {
my ($urpm, $medium) = @_;
if ($medium->{url} && $medium->{url} =~ /^removable_?([^_:]*)(?:_[^:]*)?:/) {
$medium->{removable} ||= $1 && "/dev/$1";
} else {
delete $medium->{removable};
}
#- try to find device to open/close for removable medium.
if (exists $medium->{removable}) {
if (my ($dir) = $medium->{url} =~ /(?:file|removable)[^:]*:\/(.*)/) {
my %infos;
my @mntpoints = $urpm->find_mntpoints($dir, \%infos);
if (@mntpoints > 1) { #- return value is suitable for an hash.
$urpm->{log}(N("too many mount points for removable medium \"%s\"", $medium->{name}));
$urpm->{log}(N("taking removable device as \"%s\"", join ',', map { $infos{$_}{device} } @mntpoints));
}
if (@mntpoints) {
if ($medium->{removable} && $medium->{removable} ne $infos{$mntpoints[-1]}{device}) {
$urpm->{log}(N("using different removable device [%s] for \"%s\"",
$infos{$mntpoints[-1]}{device}, $medium->{name}));
}
$medium->{removable} = $infos{$mntpoints[-1]}{device};
} else {
$urpm->{error}(N("unable to retrieve pathname for removable medium \"%s\"", $medium->{name}));
}
} else {
$urpm->{error}(N("unable to retrieve pathname for removable medium \"%s\"", $medium->{name}));
}
}
}
#- write back urpmi.cfg code to allow modification of medium listed.
sub write_config {
my ($urpm) = @_;
#- avoid trashing exiting configuration in this case.
$urpm->{media} or return;
local *F;
open F, ">$urpm->{config}" or $urpm->{fatal}(6, N("unable to write config file [%s]", $urpm->{config}));
if (%{$urpm->{options} || {}}) {
printf F "{\n";
while (my ($k, $v) = each %{$urpm->{options}}) {
printf F " %s: %s\n", $k, $v;
}
printf F "}\n\n";
}
foreach my $medium (@{$urpm->{media}}) {
printf F "%s %s {\n", quotespace($medium->{name}), quotespace($medium->{clear_url});
foreach (qw(hdlist with_hdlist list removable)) {
$medium->{$_} and printf F " %s: %s\n", $_, $medium->{$_};
}
foreach (qw(update ignore synthesis modified)) {
$medium->{$_} and printf F " %s\n", $_;
}
printf F "}\n\n";
}
close F;
$urpm->{log}(N("write config file [%s]", $urpm->{config}));
#- everything should be synced now.
delete $urpm->{modified};
}
#- read urpmi.cfg file as well as synthesis file needed.
sub configure {
my ($urpm, %options) = @_;
$urpm->clean;
if ($options{parallel}) {
my ($parallel_options, $parallel_handler);
#- handle parallel configuration, examine all module available that
#- will handle the parallel mode (configuration is /etc/urpmi/parallel.cfg).
local ($_, *PARALLEL);
open PARALLEL, "/etc/urpmi/parallel.cfg";
while (<PARALLEL>) {
chomp; s/#.*$//; s/^\s*//; s/\s*$//;
/\s*([^:]*):(.*)/ or $urpm->{error}(N("unable to parse \"%s\" in file [%s]", $_, "/etc/urpmi/parallel.cfg")), next;
$1 eq $options{parallel} and $parallel_options = ($parallel_options && "\n") . $2;
}
close PARALLEL;
#- if a configuration options has been found, use it else fatal error.
if ($parallel_options) {
foreach my $dir (grep { -d $_ } map { "$_/urpm" } @INC) {
local *DIR;
opendir DIR, $dir;
while ($_ = readdir DIR) {
-f "$dir/$_" or next;
$urpm->{log}->(N("examining parallel handler in file [%s]", "$dir/$_"));
eval { require "$dir/$_"; $parallel_handler = $urpm->handle_parallel_options($parallel_options) };
$parallel_handler and last;
}
closedir DIR;
$parallel_handler and last;
}
}
if ($parallel_handler) {
if ($parallel_handler->{nodes}) {
$urpm->{log}->(N("found parallel handler for nodes: %s", join(', ', keys %{$parallel_handler->{nodes}})));
}
if (!$options{media} && $parallel_handler->{media}) {
$options{media} = $parallel_handler->{media};
$urpm->{log}->(N("using associated media for parallel mode: %s", $options{media}));
}
$urpm->{parallel_handler} = $parallel_handler;
} else {
$urpm->{fatal}(1, N("unable to use parallel option \"%s\"", $options{parallel}));
}
} else {
#- parallel is exclusive against root options.
$urpm->{root} = $options{root};
}
if ($options{synthesis}) {
if ($options{synthesis} ne 'none') {
#- synthesis take precedence over media, update options.
$options{media} || $options{update} || $options{parallel} and
$urpm->{fatal}(1, N("--synthesis cannot be used with --media, --update or --parallel"));
$urpm->parse_synthesis($options{synthesis});
}
} else {
$urpm->read_config(%options);
if ($options{media}) {
$urpm->select_media(split ',', $options{media});
foreach (grep { !$_->{modified} } @{$urpm->{media} || []}) {
#- this is only a local ignore that will not be saved.
$_->{ignore} = 1;
}
}
foreach (grep { !$_->{ignore} && (!$options{update} || $_->{update}) } @{$urpm->{media} || []}) {
delete @{$_}{qw(start end)};
if ($options{callback}) {
if ($options{hdlist} && -s "$urpm->{statedir}/$_->{hdlist}" > 32) {
$urpm->{log}(N("examining hdlist file [%s]", "$urpm->{statedir}/$_->{hdlist}"));
eval { ($_->{start}, $_->{end}) = $urpm->parse_hdlist("$urpm->{statedir}/$_->{hdlist}",
packing => 1, callback => $options{callback}) };
} else {
$urpm->{log}(N("examining synthesis file [%s]", "$urpm->{statedir}/synthesis.$_->{hdlist}"));
eval { ($_->{start}, $_->{end}) = $urpm->parse_synthesis("$urpm->{statedir}/synthesis.$_->{hdlist}",
callback => $options{callback}) };
unless (defined $_->{start} && defined $_->{end}) {
$urpm->{log}(N("examining hdlist file [%s]", "$urpm->{statedir}/$_->{hdlist}"));
eval { ($_->{start}, $_->{end}) = $urpm->parse_hdlist("$urpm->{statedir}/$_->{hdlist}",
packing => 1, callback => $options{callback}) };
}
}
unless (defined $_->{start} && defined $_->{end}) {
$urpm->{error}(N("problem reading hdlist file of medium \"%s\"", $_->{name}));
$_->{ignore} = 1;
}
} else {
if (-s "$urpm->{statedir}/synthesis.$_->{hdlist}" > 32) {
$urpm->{log}(N("examining synthesis file [%s]", "$urpm->{statedir}/synthesis.$_->{hdlist}"));
eval { ($_->{start}, $_->{end}) = $urpm->parse_synthesis("$urpm->{statedir}/synthesis.$_->{hdlist}") };
}
unless (defined $_->{start} && defined $_->{end}) {
$urpm->{log}(N("examining hdlist file [%s]", "$urpm->{statedir}/$_->{hdlist}"));
eval { ($_->{start}, $_->{end}) = $urpm->parse_hdlist("$urpm->{statedir}/$_->{hdlist}", packing => 1) };
unless (defined $_->{start} && defined $_->{end}) {
$urpm->{error}(N("problem reading synthesis file of medium \"%s\"", $_->{name}));
$_->{ignore} = 1;
}
}
}
}
}
if ($options{bug}) {
#- and a dump of rpmdb itself as synthesis file.
my $db = URPM::DB::open($options{root});
my $sig_handler = sub { undef $db; exit 3 };
local $SIG{INT} = $sig_handler;
local $SIG{QUIT} = $sig_handler;
local *RPMDB;
$db or $urpm->{fatal}(9, N("unable to open rpmdb"));
open RPMDB, "| " . ($ENV{LD_LOADER} || '') . " gzip -9 >'$options{bug}/rpmdb.cz'";
$db->traverse(sub {
my ($p) = @_;
#- this is not right but may be enough.
my $files = join '@', grep { exists $urpm->{provides}{$_} } $p->files;
$p->pack_header;
$p->build_info(fileno *RPMDB, $files);
});
close RPMDB;
}
}
#- add a new medium, sync the config file accordingly.
sub add_medium {
my ($urpm, $name, $url, $with_hdlist, %options) = @_;
#- make sure configuration has been read.
$urpm->{media} or $urpm->read_config();
#- if a medium with that name has already been found
#- we have to exit now
my ($medium);
if (defined $options{index_name}) {
my $i = $options{index_name};
do {
++$i;
undef $medium;
foreach (@{$urpm->{media}}) {
$_->{name} eq $name.$i and $medium = $_;
}
} while $medium;
$name .= $i;
} else {
foreach (@{$urpm->{media}}) {
$_->{name} eq $name and $medium = $_;
}
}
$medium and $urpm->{fatal}(5, N("medium \"%s\" already exists", $medium->{name}));
#- clear URLs for trailing /es.
$url =~ s|(.*?)/*$|$1|;
#- creating the medium info.
$medium = { name => $name,
url => $url,
hdlist => "hdlist.$name.cz",
list => "list.$name",
update => $options{update},
modified => 1,
};
#- check if a password is visible, if not set clear_url.
$url =~ m|([^:]*://[^/:\@]*:)[^/:\@]*(\@.*)| or $medium->{clear_url} = $url;
#- check to see if the medium is using file protocol or removable medium.
$url =~ /^(removable[^:]*|file):\/(.*)/ and $urpm->probe_removable_device($medium);
#- all flags once everything has been computed.
$with_hdlist and $medium->{with_hdlist} = $with_hdlist;
#- create an entry in media list.
push @{$urpm->{media}}, $medium;
#- keep in mind the database has been modified and base files need to be updated.
#- this will be done automatically by transfering modified flag from medium to global.
$urpm->{log}(N("added medium %s", $name));
}
#- add distribution media, according to url given.
sub add_distrib_media {
my ($urpm, $name, $url, %options) = @_;
my ($hdlists_file);
#- make sure configuration has been read.
$urpm->{media} or $urpm->read_config();
#- try to copy/retrive Mandrake/basehdlists file.
if (my ($dir) = $url =~ /^(?:removable[^:]*|file):\/(.*)/) {
$hdlists_file = reduce_pathname("$dir/Mandrake/base/hdlists");
$urpm->try_mounting($hdlists_file) or $urpm->{error}(N("unable to access first installation medium")), return;
if (-e $hdlists_file) {
unlink "$urpm->{cachedir}/partial/hdlists";
$urpm->{log}(N("copying hdlists file..."));
system("cp", "--preserve=mode,timestamps", "-R", $hdlists_file, "$urpm->{cachedir}/partial/hdlists") ?
$urpm->{log}(N("...copying failed")) : $urpm->{log}(N("...copying done"));
} else {
$urpm->{error}(N("unable to access first installation medium (no Mandrake/base/hdlists file found)")), return;
}
} else {
#- try to get the description if it has been found.
unlink "$urpm->{cachedir}/partial/hdlists";
eval {
$urpm->{log}(N("retrieving hdlists file..."));
$urpm->{sync}({ dir => "$urpm->{cachedir}/partial",
quiet => 1,
limit_rate => $options{limit_rate},
proxy => $urpm->{proxy} },
reduce_pathname("$url/Mandrake/base/hdlists"));
$urpm->{log}(N("...retrieving done"));
};
$@ and $urpm->{log}(N("...retrieving failed: %s", $@));
if (-e "$urpm->{cachedir}/partial/hdlists") {
$hdlists_file = "$urpm->{cachedir}/partial/hdlists";
} else {
$urpm->{error}(N("unable to access first installation medium (no Mandrake/base/hdlists file found)")), return;
}
}
#- cosmetic update of name if it contains blank char.
$name =~ /\s/ and $name .= ' ';
#- at this point, we have found an hdlists file, so parse it
#- and create all necessary medium according to it.
local *HDLISTS;
if (open HDLISTS, $hdlists_file) {
my $medium = 1;
foreach (<HDLISTS>) {
chomp;
s/\s*#.*$//;
/^\s*$/ and next;
m/^\s*(?:noauto:)?(hdlist\S*\.cz2?)\s+(\S+)\s*(.*)$/ or $urpm->{error}(N("invalid hdlist description \"%s\" in hdlists file"), $_);
my ($hdlist, $rpmsdir, $descr) = ($1, $2, $3);
$urpm->add_medium($name ? "$descr ($name$medium)" : $descr, "$url/$rpmsdir", "../base/$hdlist", %options);
++$medium;
}
close HDLISTS;
} else {
$urpm->{error}(N("unable to access first installation medium (no Mandrake/base/hdlists file found)")), return;
}
}
sub select_media {
my $urpm = shift;
my %media; @media{@_} = undef;
foreach (@{$urpm->{media}}) {
if (exists $media{$_->{name}}) {
$media{$_->{name}} = 1; #- keep it mind this one has been selected.
#- select medium by setting modified flags, do not check ignore.
$_->{modified} = 1;
}
}
#- check if some arguments does not correspond to medium name.
#- in such case, try to find the unique medium (or list candidate
#- media found).
foreach (keys %media) {
unless ($media{$_}) {
my $q = quotemeta;
my (@found, @foundi);
foreach my $medium (@{$urpm->{media}}) {
$medium->{name} =~ /$q/ and push @found, $medium;
$medium->{name} =~ /$q/i and push @foundi, $medium;
}
if (@found == 1) {
$found[0]{modified} = 1;
} elsif (@foundi == 1) {
$foundi[0]{modified} = 1;
} elsif (@found == 0 && @foundi == 0) {
$urpm->{error}(N("trying to select inexistent medium \"%s\"", $_));
} else { #- multiple element in found or foundi list.
$urpm->{log}(N("selecting multiple media: %s", join(", ", map { N("\"%s\"", $_->{name}) } (@found ? @found : @foundi))));
#- changed behaviour to select all occurence by default.
foreach (@found ? @found : @foundi) {
$_->{modified} = 1;
}
}
}
}
}
sub remove_selected_media {
my ($urpm) = @_;
my @result;
foreach (@{$urpm->{media}}) {
if ($_->{modified}) {
$urpm->{log}(N("removing medium \"%s\"", $_->{name}));
#- mark to re-write configuration.
$urpm->{modified} = 1;
#- remove file associated with this medium.
foreach ($_->{hdlist}, $_->{list}, "synthesis.$_->{hdlist}", "descriptions.$_->{name}", "$_->{name}.cache") {
$_ and unlink "$urpm->{statedir}/$_";
}
} else {
push @result, $_; #- not removed so keep it
}
}
#- restore newer media list.
$urpm->{media} = \@result;
}
#- update urpmi database regarding the current configuration.
#- take care of modification and try some trick to bypass
#- computational of base files.
#- allow options :
#- all -> all medium are rebuilded.
#- force -> try to force rebuilding base files (1) or hdlist from rpm files (2).
#- probe_with_hdlist -> probe synthesis or hdlist.
#- ratio -> use compression ratio (with gzip, default is 4)
#- noclean -> keep header directory cleaned.
sub update_media {
my ($urpm, %options) = @_; #- do not trust existing hdlist and try to recompute them.
my ($cleaned_cache);
#- take care of some options.
$cleaned_cache = !$options{noclean};
#- avoid trashing existing configuration in this case.
$urpm->{media} or return;
#- now we need additional methods not defined by default in URPM.
require URPM::Build;
#- avoid putting a require on Fcntl ':flock' (which is perl and not perl-base).
my ($LOCK_EX, $LOCK_NB, $LOCK_UN) = (2, 4, 8);
#- lock urpmi database.
local (*LOCK_FILE);
open LOCK_FILE, $urpm->{statedir};
flock LOCK_FILE, $LOCK_EX|$LOCK_NB or $urpm->{fatal}(7, N("urpmi database locked"));
#- examine each medium to see if one of them need to be updated.
#- if this is the case and if not forced, try to use a pre-calculated
#- hdlist file else build it from rpm files.
$urpm->clean;
foreach my $medium (@{$urpm->{media}}) {
#- take care of modified medium only or all if all have to be recomputed.
$medium->{ignore} and next;
#- and create synthesis file associated if it does not already exists...
-s "$urpm->{statedir}/synthesis.$medium->{hdlist}" > 32 or $medium->{modified_synthesis} = 1;
#- but do not take care of removable media for all.
$medium->{modified} ||= $options{all} && $medium->{url} !~ /removable/;
unless ($medium->{modified}) {
#- the medium is not modified, but for computing dependencies,
#- we still need to read it and all synthesis will be written if
#- a unresolved provides is found.
#- to speed up the process, we only read the synthesis at the begining.
$urpm->{log}(N("examining synthesis file [%s]", "$urpm->{statedir}/synthesis.$medium->{hdlist}"));
eval { ($medium->{start}, $medium->{end}) = $urpm->parse_synthesis("$urpm->{statedir}/synthesis.$medium->{hdlist}") };
unless (defined $medium->{start} && defined $medium->{end}) {
$urpm->{log}(N("examining hdlist file [%s]", "$urpm->{statedir}/$medium->{hdlist}"));
eval { ($medium->{start}, $medium->{end}) = $urpm->parse_hdlist("$urpm->{statedir}/$medium->{hdlist}", packing => 1) };
unless (defined $medium->{start} && defined $medium->{end}) {
#- this is almost a fatal error, ignore it by default?
$urpm->{error}(N("problem reading synthesis file of medium \"%s\"", $medium->{name}));
$medium->{ignore} = 1;
}
}
next;
}
#- list of rpm files for this medium, only available for local medium where
#- the source hdlist is not used (use force).
my ($prefix, $dir, $error, @files);
#- always delete a remaining list file in cache.
unlink "$urpm->{cachedir}/partial/list";
#- check to see if the medium is using file protocol or removable medium.
if (($prefix, $dir) = $medium->{url} =~ /^(removable[^:]*|file):\/(.*)/) {
#- try to figure a possible hdlist_path (or parent directory of searched directory.
#- this is used to probe possible hdlist file.
my $with_hdlist_dir = reduce_pathname($dir . ($medium->{with_hdlist} ? "/$medium->{with_hdlist}" : "/.."));
#- the directory given does not exist and may be accessible
#- by mounting some other. try to figure out these directory and
#- mount everything necessary.
$urpm->try_mounting($options{force} < 2 && ($options{probe_with_hdlist} || $medium->{with_hdlist}) ?
$with_hdlist_dir : $dir) or
$urpm->{error}(N("unable to access medium \"%s\"", $medium->{name})), next;
#- try to probe for possible with_hdlist parameter, unless
#- it is already defined (and valid).
if ($options{probe_with_hdlist} && (!$medium->{with_hdlist} || ! -e "$dir/$medium->{with_hdlist}")) {
my ($suffix) = $dir =~ /RPMS([^\/]*)\/*$/;
if (-s "$dir/synthesis.hdlist.cz" > 32) {
$medium->{with_hdlist} = "./synthesis.hdlist.cz";
} elsif (-s "$dir/synthesis.hdlist$suffix.cz" > 32) {
$medium->{with_hdlist} = "./synthesis.hdlist$suffix.cz";
} elsif (defined $suffix && !$suffix && -s "$dir/synthesis.hdlist1.cz" > 32) {
$medium->{with_hdlist} = "./synthesis.hdlist1.cz";
} elsif (defined $suffix && !$suffix && -s "$dir/synthesis.hdlist2.cz" > 32) {
$medium->{with_hdlist} = "./synthesis.hdlist2.cz";
} elsif (-s "$dir/../synthesis.hdlist$suffix.cz" > 32) {
$medium->{with_hdlist} = "../synthesis.hdlist$suffix.cz";
} elsif (defined $suffix && !$suffix && -s "$dir/../synthesis.hdlist1.cz" > 32) {
$medium->{with_hdlist} = "../synthesis.hdlist1.cz";
} elsif (-s "$dir/../base/hdlist$suffix.cz" > 32) {
$medium->{with_hdlist} = "../base/hdlist$suffix.cz";
} elsif (defined $suffix && !$suffix && -s "$dir/../base/hdlist1.cz" > 32) {
$medium->{with_hdlist} = "../base/hdlist1.cz";
}
#- redo...
$with_hdlist_dir = reduce_pathname($dir . ($medium->{with_hdlist} ? "/$medium->{with_hdlist}" : "/.."));
}
#- try to get the description if it has been found.
unlink "$urpm->{statedir}/descriptions.$medium->{name}";
if (-e "$dir/../descriptions") {
$urpm->{log}(N("copying description file of \"%s\"...", $medium->{name}));
system("cp", "--preserve=mode,timestamps", "-R", "$dir/../descriptions", "$urpm->{statedir}/descriptions.$medium->{name}") ?
$urpm->{log}(N("...copying failed")) : $urpm->{log}(N("...copying done"));
}
#- if the source hdlist is present and we are not forcing using rpms file
if ($options{force} < 2 && $medium->{with_hdlist} && -e $with_hdlist_dir) {
unlink "$urpm->{cachedir}/partial/$medium->{hdlist}";
$urpm->{log}(N("copying source hdlist (or synthesis) of \"%s\"...", $medium->{name}));
$options{callback} && $options{callback}('copy', $medium->{name});
if (system("cp", "--preserve=mode,timestamps", "-R", $with_hdlist_dir, "$urpm->{cachedir}/partial/$medium->{hdlist}")) {
$options{callback} && $options{callback}('failed', $medium->{name});
$urpm->{log}(N("...copying failed"))
} else {
$options{callback} && $options{callback}('done', $medium->{name});
$urpm->{log}(N("...copying done"));
}
-s "$urpm->{cachedir}/partial/$medium->{hdlist}" > 32 or
$error = 1, $urpm->{error}(N("copy of [%s] failed", $with_hdlist_dir));
#- examine if a local MD5SUM file is available.
if (!$options{force} && -s reduce_pathname("$dir/$with_hdlist_dir/../MD5SUM")) {
my ($basename) = $with_hdlist_dir =~ /^.*\/([^\/]+)$/;
$urpm->{log}(N("examining MD5SUM file"));
local (*F, $_);
open F, reduce_pathname("$dir/$with_hdlist_dir/../MD5SUM");
while (<F>) {
my ($md5sum, $file) = /(\S+)\s+(\S+)/ or next;
if ($file eq $basename) {
$options{force} ||= (split ' ', `md5sum '$urpm->{cachedir}/partial/$medium->{hdlist}'`)[0] ne $md5sum;
last;
}
}
close F;
}
#- check if the file are equals... and no force copy...
unless ($error || $options{force} || ! -e "$urpm->{statedir}/synthesis.$medium->{hdlist}") {
my @sstat = stat "$urpm->{cachedir}/partial/$medium->{hdlist}";
my @lstat = stat "$urpm->{statedir}/$medium->{hdlist}";
if ($sstat[7] == $lstat[7] && $sstat[9] == $lstat[9]) {
#- the two files are considered equal here, the medium is so not modified.
$medium->{modified} = 0;
unlink "$urpm->{cachedir}/partial/$medium->{hdlist}";
#- as previously done, just read synthesis file here, this is enough, but only
#- if synthesis exists, else it need to be recomputed.
$urpm->{log}(N("examining synthesis file [%s]", "$urpm->{statedir}/synthesis.$medium->{hdlist}"));
eval { ($medium->{start}, $medium->{end}) =
$urpm->parse_synthesis("$urpm->{statedir}/synthesis.$medium->{hdlist}") };
unless (defined $medium->{start} && defined $medium->{end}) {
$urpm->{log}(N("examining hdlist file [%s]", "$urpm->{statedir}/$medium->{hdlist}"));
eval { ($medium->{start}, $medium->{end}) =
$urpm->parse_hdlist("$urpm->{statedir}/$medium->{hdlist}", packing => 1) };
unless (defined $medium->{start} && defined $medium->{end}) {
$urpm->{error}(N("problem reading synthesis file of medium \"%s\"", $medium->{name}));
$medium->{ignore} = 1;
}
}
next;
}
}
#- examine if a local list file is available (always probed according to with_hdlist
#- and check hdlist has not be named very strangely...
if ($medium->{hdlist} ne 'list') {
my $local_list = $medium->{with_hdlist} =~ /hd(list.*)\.cz$/ ? $1 : 'list';
if (-s "$dir/$local_list") {
$urpm->{log}(N("copying source list of \"%s\"...", $medium->{name}));
system("cp", "--preserve=mode,timestamps", "-R", "$dir/$local_list", "$urpm->{cachedir}/partial/list") ?
$urpm->{log}(N("...copying failed")) : $urpm->{log}(N("...copying done"));
}
}
} else {
#- try to find rpm files, use recursive method, added additional
#- / after dir to make sure it will be taken into account if this
#- is a symlink to a directory.
#- make sure rpm filename format is correct and is not a source rpm
#- which are not well managed by urpmi.
@files = split "\n", `find '$dir/' -name "*.rpm" -print`;
#- check files contains something good!
if (@files > 0) {
#- we need to rebuild from rpm files the hdlist.
eval {
$urpm->{log}(N("reading rpm files from [%s]", $dir));
my @unresolved_before = grep { ! defined $urpm->{provides}{$_} } keys %{$urpm->{provides} || {}};
$medium->{start} = @{$urpm->{depslist}};
$medium->{headers} = [ $urpm->parse_rpms_build_headers(dir => "$urpm->{cachedir}/headers",
rpms => \@files,
clean => $cleaned_cache,
) ];
$medium->{end} = $#{$urpm->{depslist}};
if ($medium->{start} > $medium->{end}) {
#- an error occured (provided there are files in input.
delete $medium->{start};
delete $medium->{end};
die "no rpms read\n";
} else {
$cleaned_cache = 0; #- make sure the headers will not be removed for another media.
my @unresolved_after = grep { ! defined $urpm->{provides}{$_} } keys %{$urpm->{provides} || {}};
@unresolved_before == @unresolved_after or $urpm->{second_pass} = 1;
}
};
$@ and $error = 1, $urpm->{error}(N("unable to read rpm files from [%s]: %s", $dir, $@));
$error and delete $medium->{headers}; #- do not propagate these.
$error or delete $medium->{synthesis}; #- when building hdlist by ourself, drop synthesis property.
} else {
$error = 1;
$urpm->{error}(N("no rpm files found from [%s]", $dir));
}
}
} else {
my $basename;
#- try to get the description if it has been found.
unlink "$urpm->{cachedir}/partial/descriptions";
if (-e "$urpm->{statedir}/descriptions.$medium->{name}") {
rename("$urpm->{statedir}/descriptions.$medium->{name}", "$urpm->{cachedir}/partial/descriptions") or
system("mv", "$urpm->{statedir}/descriptions.$medium->{name}", "$urpm->{cachedir}/partial/descriptions");
}
eval {
$urpm->{log}(N("retrieving description file of \"%s\"...", $medium->{name}));
$urpm->{sync}({ dir => "$urpm->{cachedir}/partial",
quiet => 1,
limit_rate => $options{limit_rate},
proxy => $urpm->{proxy} },
reduce_pathname("$medium->{url}/../descriptions"));
$urpm->{log}(N("...retrieving done"));
};
if (-e "$urpm->{cachedir}/partial/descriptions") {
rename("$urpm->{cachedir}/partial/descriptions", "$urpm->{statedir}/descriptions.$medium->{name}") or
system("mv", "$urpm->{cachedir}/partial/descriptions", "$urpm->{statedir}/descriptions.$medium->{name}");
}
#- try to probe for possible with_hdlist parameter, unless
#- it is already defined (and valid).
$urpm->{log}(N("retrieving source hdlist (or synthesis) of \"%s\"...", $medium->{name}));
$options{callback} && $options{callback}('retrieve', $medium->{name});
if ($options{probe_with_hdlist}) {
my ($suffix) = $dir =~ /RPMS([^\/]*)\/*$/;
foreach ($medium->{with_hdlist} || (),
"synthesis.hdlist.cz", "synthesis.hdlist$suffix.cz",
!$suffix ? ("synthesis.hdlist1.cz", "synthesis.hdlist2.cz") : (),
"../synthesis.hdlist$suffix.cz", !$suffix ? "../synthesis.hdlist1.cz" : (),
"../base/hdlist$suffix.cz", !$suffix ? "../base/hdlist1.cz" : (),
) {
$basename = /^.*\/([^\/]*)$/ && $1 || $_ or next;
unlink "$urpm->{cachedir}/partial/$basename";
eval {
$urpm->{sync}({ dir => "$urpm->{cachedir}/partial",
quiet => 0,
limit_rate => $options{limit_rate},
callback => $options{callback},
proxy => $urpm->{proxy} }, reduce_pathname("$medium->{url}/$_"));
};
if (!$@ && -s "$urpm->{cachedir}/partial/$basename" > 32) {
$medium->{with_hdlist} = $_;
$urpm->{log}(N("found probed hdlist (or synthesis) as %s", $basename));
last; #- found a suitable with_hdlist in the list above.
}
}
} else {
$basename = $medium->{with_hdlist} =~ /^.*\/([^\/]*)$/ && $1 || $medium->{with_hdlist};
#- try to sync (copy if needed) local copy after restored the previous one.
unlink "$urpm->{cachedir}/partial/$basename";
if ($medium->{synthesis}) {
$options{force} || ! -e "$urpm->{statedir}/synthesis.$medium->{hdlist}" or
system("cp", "--preserve=mode,timestamps", "-R", "$urpm->{statedir}/synthesis.$medium->{hdlist}", "$urpm->{cachedir}/partial/$basename");
} else {
$options{force} || ! -e "$urpm->{statedir}/$medium->{hdlist}" or
system("cp", "--preserve=mode,timestamps", "-R", "$urpm->{statedir}/$medium->{hdlist}", "$urpm->{cachedir}/partial/$basename");
}
eval {
$urpm->{sync}({ dir => "$urpm->{cachedir}/partial",
quiet => 0,
limit_rate => $options{limit_rate},
callback => $options{callback},
proxy => $urpm->{proxy} }, reduce_pathname("$medium->{url}/$medium->{with_hdlist}"));
};
if ($@) {
$urpm->{log}(N("...retrieving failed: %s", $@));
unlink "$urpm->{cachedir}/partial/$basename";
}
}
if (-s "$urpm->{cachedir}/partial/$basename" > 32) {
$options{callback} && $options{callback}('done', $medium->{name});
$urpm->{log}(N("...retrieving done"));
unless ($options{force}) {
#- examine if a distant MD5SUM file is available.
unlink "$urpm->{cachedir}/partial/MD5SUM";
eval {
$urpm->{sync}({ dir => "$urpm->{cachedir}/partial",
quiet => 1,
limit_rate => $options{limit_rate},
proxy => $urpm->{proxy} },
reduce_pathname("$medium->{url}/$medium->{with_hdlist}/../MD5SUM"));
};
if (!$@ && -s "$urpm->{cachedir}/partial/MD5SUM" > 32) {
$urpm->{log}(N("examining MD5SUM file"));
local (*F, $_);
open F, "$urpm->{cachedir}/partial/MD5SUM";
while (<F>) {
my ($md5sum, $file) = /(\S+)\s+(\S+)/ or next;
if ($file eq $basename) {
$options{force} ||= (split ' ', `md5sum '$urpm->{cachedir}/partial/$basename'`)[0] ne $md5sum;
last;
}
}
close F;
}
unless ($options{force}) {
my @sstat = stat "$urpm->{cachedir}/partial/$basename";
my @lstat = stat "$urpm->{statedir}/$medium->{hdlist}";
if ($sstat[7] == $lstat[7] && $sstat[9] == $lstat[9]) {
#- the two files are considered equal here, the medium is so not modified.
$medium->{modified} = 0;
unlink "$urpm->{cachedir}/partial/$basename";
#- as previously done, just read synthesis file here, this is enough.
$urpm->{log}(N("examining synthesis file [%s]", "$urpm->{statedir}/synthesis.$medium->{hdlist}"));
eval { ($medium->{start}, $medium->{end}) =
$urpm->parse_synthesis("$urpm->{statedir}/synthesis.$medium->{hdlist}") };
unless (defined $medium->{start} && defined $medium->{end}) {
$urpm->{log}(N("examining hdlist file [%s]", "$urpm->{statedir}/$medium->{hdlist}"));
eval { ($medium->{start}, $medium->{end}) =
$urpm->parse_hdlist("$urpm->{statedir}/$medium->{hdlist}", packing => 1) };
unless (defined $medium->{start} && defined $medium->{end}) {
$urpm->{error}(N("problem reading synthesis file of medium \"%s\"", $medium->{name}));
$medium->{ignore} = 1;
}
}
next;
}
}
}
#- the file are different, update local copy.
rename("$urpm->{cachedir}/partial/$basename", "$urpm->{cachedir}/partial/$medium->{hdlist}");
#- retrieve of hdlist (or synthesis has been successfull, check if a list file is available.
#- and check hdlist has not be named very strangely...
if ($medium->{hdlist} ne 'list') {
my $local_list = $medium->{with_hdlist} =~ /hd(list.*)\.cz$/ ? $1 : 'list';
eval {
$urpm->{sync}({ dir => "$urpm->{cachedir}/partial",
quiet => 1,
limit_rate => $options{limit_rate},
proxy => $urpm->{proxy} },
reduce_pathname("$medium->{url}/$local_list"));
$local_list ne 'list' and
rename("$urpm->{cachedir}/partial/$local_list", "$urpm->{cachedir}/partial/list");
};
$@ and unlink "$urpm->{cachedir}/partial/list";
}
} else {
$error = 1;
$options{callback} && $options{callback}('failed', $medium->{name});
$urpm->{error}(N("retrieve of source hdlist (or synthesis) failed"));
}
}
#- build list file according to hdlist used.
unless ($medium->{headers} || -s "$urpm->{cachedir}/partial/$medium->{hdlist}" > 32) {
$error = 1;
$urpm->{error}(N("no hdlist file found for medium \"%s\"", $medium->{name}));
}
#- make sure group and other does not have any access to this file.
unless ($error) {
#- sort list file contents according to id.
my %list;
if ($medium->{headers}) {
#- rpm files have already been read (first pass), there is just a need to
#- build list hash.
foreach (@files) {
/\/([^\/]*\.rpm)$/ or next;
$list{$1} and $urpm->{error}(N("file [%s] already used in the same medium \"%s\"", $1, $medium->{name})), next;
$list{$1} = "$prefix:/$_\n";
}
} else {
#- read first pass hdlist or synthesis, try to open as synthesis, if file
#- is larger than 1MB, this is problably an hdlist else a synthesis.
#- anyway, if one tries fails, try another mode.
$options{callback} && $options{callback}('parse', $medium->{name});
my @unresolved_before = grep { ! defined $urpm->{provides}{$_} } keys %{$urpm->{provides} || {}};
if (!$medium->{synthesis} || -s "$urpm->{cachedir}/partial/$medium->{hdlist}" > 262144) {
$urpm->{log}(N("examining hdlist file [%s]", "$urpm->{cachedir}/partial/$medium->{hdlist}"));
eval { ($medium->{start}, $medium->{end}) =
$urpm->parse_hdlist("$urpm->{cachedir}/partial/$medium->{hdlist}", 1) };
if (defined $medium->{start} && defined $medium->{end}) {
delete $medium->{synthesis};
} else {
$urpm->{log}(N("examining synthesis file [%s]", "$urpm->{cachedir}/partial/$medium->{hdlist}"));
eval { ($medium->{start}, $medium->{end}) =
$urpm->parse_synthesis("$urpm->{cachedir}/partial/$medium->{hdlist}") };
defined $medium->{start} && defined $medium->{end} and $medium->{synthesis} = 1;
}
} else {
$urpm->{log}(N("examining synthesis file [%s]", "$urpm->{cachedir}/partial/$medium->{hdlist}"));
eval { ($medium->{start}, $medium->{end}) =
$urpm->parse_synthesis("$urpm->{cachedir}/partial/$medium->{hdlist}") };
if (defined $medium->{start} && defined $medium->{end}) {
$medium->{synthesis} = 1;
} else {
$urpm->{log}(N("examining hdlist file [%s]", "$urpm->{cachedir}/partial/$medium->{hdlist}"));
eval { ($medium->{start}, $medium->{end}) =
$urpm->parse_hdlist("$urpm->{cachedir}/partial/$medium->{hdlist}", 1) };
defined $medium->{start} && defined $medium->{end} and delete $medium->{synthesis};
}
}
unless (defined $medium->{start} && defined $medium->{end}) {
$error = 1;
$urpm->{error}(N("unable to parse hdlist file of \"%s\"", $medium->{name}));
$options{callback} && $options{callback}('failed', $medium->{name});
#- we will have to read back the current synthesis file unmodified.
} else {
$options{callback} && $options{callback}('done', $medium->{name});
}
unless ($error) {
my @unresolved_after = grep { ! defined $urpm->{provides}{$_} } keys %{$urpm->{provides} || {}};
@unresolved_before == @unresolved_after or $urpm->{second_pass} = 1;
if ($medium->{hdlist} ne 'list' && -s "$urpm->{cachedir}/partial/list") {
local (*F, $_);
open F, "$urpm->{cachedir}/partial/list";
while (<F>) {
/\/([^\/]*\.rpm)$/ or next;
$list{$1} and $urpm->{error}(N("file [%s] already used in the same medium \"%s\"", $1, $medium->{name})), next;
$list{$1} = "$medium->{url}/$_";
}
close F;
} else {
#- if url is clear and no relative list file has been downloaded,
#- there is no need for a list file.
if ($medium->{url} ne $medium->{clear_url}) {
foreach ($medium->{start} .. $medium->{end}) {
my $filename = $urpm->{depslist}[$_]->filename;
$list{$filename} = "$medium->{url}/$filename\n";
}
}
}
}
}
unless ($error) {
if (%list) {
#- write list file.
local *LIST;
my $mask = umask 077;
open LIST, ">$urpm->{cachedir}/partial/$medium->{list}"
or $error = 1, $urpm->{error}(N("unable to write list file of \"%s\"", $medium->{name}));
umask $mask;
print LIST values %list;
close LIST;
#- check if at least something has been written into list file.
if (-s "$urpm->{cachedir}/partial/$medium->{list}") {
$urpm->{log}(N("writing list file for medium \"%s\"", $medium->{name}));
} else {
$error = 1, $urpm->{error}(N("nothing written in list file for \"%s\"", $medium->{name}));
}
} else {
#- the flag is no more necessary.
delete $medium->{list};
unlink "$urpm->{statedir}/$medium->{list}";
}
}
}
if ($error) {
#- an error has occured for updating the medium, we have to remove tempory files.
unlink "$urpm->{cachedir}/partial/$medium->{hdlist}";
$medium->{list} and unlink "$urpm->{cachedir}/partial/$medium->{list}";
#- read default synthesis (we have to make sure nothing get out of depslist).
$urpm->{log}(N("examining synthesis file [%s]", "$urpm->{statedir}/synthesis.$medium->{hdlist}"));
eval { ($medium->{start}, $medium->{end}) = $urpm->parse_synthesis("$urpm->{statedir}/synthesis.$medium->{hdlist}") };
unless (defined $medium->{start} && defined $medium->{end}) {
$urpm->{error}(N("problem reading synthesis file of medium \"%s\"", $medium->{name}));
$medium->{ignore} = 1;
}
} else {
#- make sure to rebuild base files and clean medium modified state.
$medium->{modified} = 0;
$urpm->{modified} = 1;
#- but use newly created file.
unlink "$urpm->{statedir}/$medium->{hdlist}";
$medium->{synthesis} and unlink "$urpm->{statedir}/synthesis.$medium->{hdlist}";
$medium->{list} and unlink "$urpm->{statedir}/$medium->{list}";
unless ($medium->{headers}) {
rename("$urpm->{cachedir}/partial/$medium->{hdlist}", $medium->{synthesis} ?
"$urpm->{statedir}/synthesis.$medium->{hdlist}" : "$urpm->{statedir}/$medium->{hdlist}") or
system("mv", "$urpm->{cachedir}/partial/$medium->{hdlist}", $medium->{synthesis} ?
"$urpm->{statedir}/synthesis.$medium->{hdlist}" :
"$urpm->{statedir}/$medium->{hdlist}");
}
if ($medium->{list}) {
rename("$urpm->{cachedir}/partial/$medium->{list}", "$urpm->{statedir}/$medium->{list}") or
system("mv", "$urpm->{cachedir}/partial/$medium->{list}", "$urpm->{statedir}/$medium->{list}");
}
#- and create synthesis file associated.
$medium->{modified_synthesis} = !$medium->{synthesis};
}
}
#- some unresolved provides may force to rebuild all synthesis,
#- a second pass will be necessary.
if ($urpm->{second_pass}) {
$urpm->{log}(N("performing second pass to compute dependencies\n"));
$urpm->unresolved_provides_clean;
}
#- second pass consist of reading again synthesis or hdlist.
foreach my $medium (@{$urpm->{media}}) {
#- take care of modified medium only or all if all have to be recomputed.
$medium->{ignore} and next;
$options{callback} && $options{callback}('parse', $medium->{name});
#- a modified medium is an invalid medium, we have to read back the previous hdlist
#- or synthesis which has not been modified by first pass above.
if ($medium->{headers} && !$medium->{modified}) {
if ($urpm->{second_pass}) {
$urpm->{log}(N("reading headers from medium \"%s\"", $medium->{name}));
($medium->{start}, $medium->{end}) = $urpm->parse_headers(dir => "$urpm->{cachedir}/headers",
headers => $medium->{headers},
);
}
$urpm->{log}(N("building hdlist [%s]", "$urpm->{statedir}/$medium->{hdlist}"));
#- finish building operation of hdlist.
$urpm->build_hdlist(start => $medium->{start},
end => $medium->{end},
dir => "$urpm->{cachedir}/headers",
hdlist => "$urpm->{statedir}/$medium->{hdlist}",
);
#- synthesis need to be created for sure, since the medium has been built from rpm files.
$urpm->build_synthesis(start => $medium->{start},
end => $medium->{end},
synthesis => "$urpm->{statedir}/synthesis.$medium->{hdlist}",
);
$urpm->{log}(N("built hdlist synthesis file for medium \"%s\"", $medium->{name}));
#- keep in mind we have modified database, sure at this point.
$urpm->{modified} = 1;
} elsif ($medium->{synthesis}) {
if ($urpm->{second_pass}) {
$urpm->{log}(N("examining synthesis file [%s]", "$urpm->{statedir}/synthesis.$medium->{hdlist}"));
($medium->{start}, $medium->{end}) = $urpm->parse_synthesis("$urpm->{statedir}/synthesis.$medium->{hdlist}");
}
} else {
if ($urpm->{second_pass}) {
$urpm->{log}(N("examining hdlist file [%s]", "$urpm->{statedir}/$medium->{hdlist}"));
($medium->{start}, $medium->{end}) = $urpm->parse_hdlist("$urpm->{statedir}/$medium->{hdlist}", 1);
}
#- check if synthesis file can be built.
if (($urpm->{second_pass} || $medium->{modified_synthesis}) && !$medium->{modified}) {
$urpm->build_synthesis(start => $medium->{start},
end => $medium->{end},
synthesis => "$urpm->{statedir}/synthesis.$medium->{hdlist}",
);
$urpm->{log}(N("built hdlist synthesis file for medium \"%s\"", $medium->{name}));
#- keep in mind we have modified database, sure at this point.
$urpm->{modified} = 1;
}
}
$options{callback} && $options{callback}('done', $medium->{name});
}
#- clean headers cache directory to remove everything that is no more
#- usefull according to depslist used.
if ($urpm->{modified}) {
if ($options{noclean}) {
local (*D, $_);
my %headers;
opendir D, "$urpm->{cachedir}/headers";
while (defined($_ = readdir D)) {
/^([^\/]*-[^-]*-[^-]*\.[^\.]*)(?::\S*)?$/ and $headers{$1} = $_;
}
closedir D;
$urpm->{log}(N("found %d headers in cache", scalar(keys %headers)));
foreach (@{$urpm->{depslist}}) {
delete $headers{$_->fullname};
}
$urpm->{log}(N("removing %d obsolete headers in cache", scalar(keys %headers)));
foreach (values %headers) {
unlink "$urpm->{cachedir}/headers/$_";
}
}
#- this file is written in any cases.
$urpm->write_config();
}
#- now everything is finished.
system("sync");
#- release lock on database.
flock LOCK_FILE, $LOCK_UN;
close LOCK_FILE;
}
#- clean params and depslist computation zone.
sub clean {
my ($urpm) = @_;
$urpm->{depslist} = [];
$urpm->{provides} = {};
foreach (@{$urpm->{media} || []}) {
delete $_->{start};
delete $_->{end};
}
}
#- check if supermount is used.
sub is_using_supermount {
my ($urpm, $device_mntpoint) = @_;
local (*F, $_);
#- read /etc/fstab and check for existing mount point.
open F, "/etc/fstab";
while (<F>) {
my ($device, $mntpoint, $fstype, $options) = /^\s*(\S+)\s+(\/\S+)\s+(\S+)\s+(\S+)/ or next;
$mntpoint =~ s,/+,/,g; $mntpoint =~ s,/$,,;
if ($fstype eq 'supermount') {
$device_mntpoint eq $mntpoint and return 1;
$options =~ /^(?:.*[\s,])?dev=([^\s,]+)/ && $device_mntpoint eq $1 and return 1;
}
}
return 0;
}
#- find used mount point from a pathname, use a optional mode to allow
#- filtering according the next operation (mount or umount).
sub find_mntpoints {
my ($urpm, $dir, $infos) = @_;
my ($fdir, $pdir, $v, %fstab, @mntpoints) = $dir;
local (*F, $_);
#- read /etc/fstab and check for existing mount point.
open F, "/etc/fstab";
while (<F>) {
my ($device, $mntpoint, $fstype, $options) = /^\s*(\S+)\s+(\/\S+)\s+(\S+)\s+(\S+)/ or next;
$mntpoint =~ s,/+,/,g; $mntpoint =~ s,/$,,;
$fstab{$mntpoint} = 0;
if (ref $infos) {
if ($fstype eq 'supermount') {
$options =~ /^(?:.*[\s,])?dev=([^\s,]+)/ and $infos->{$mntpoint} = { mounted => 0, device => $1, fs => $fstype };
} else {
$infos->{$mntpoint} = { mounted => 0, device => $device, fs => $fstype };
}
}
}
open F, "/etc/mtab";
while (<F>) {
my ($device, $mntpoint, $fstype, $options) = /^\s*(\S+)\s+(\/\S+)\s+(\S+)\s+(\S+)/ or next;
$mntpoint =~ s,/+,/,g; $mntpoint =~ s,/$,,;
$fstab{$mntpoint} = 1;
if (ref $infos) {
if ($fstype eq 'supermount') {
$options =~ /^(?:.*[\s,])?dev=([^\s,]+)/ and $infos->{$mntpoint} = { mounted => 1, device => $1, fs => $fstype };
} else {
$infos->{$mntpoint} = { mounted => 1, device => $device, fs => $fstype };
}
}
}
close F;
#- try to follow symlink, too complex symlink graph may not
#- be seen.
while ($v = readlink $fdir) {
if ($fdir =~ /^\//) {
$fdir = $v;
} else {
while ($v =~ /^\.\.\/(.*)/) {
$v = $1;
$fdir =~ s/^(.*)\/[^\/]+\/*/$1/;
}
$fdir .= "/$v";
}
}
#- check the possible mount point.
foreach (split '/', $fdir) {
length($_) or next;
$pdir .= "/$_";
$pdir =~ s,/+,/,g; $pdir =~ s,/$,,;
if (exists $fstab{$pdir}) {
ref $infos and push @mntpoints, $pdir;
$infos eq 'mount' && ! $fstab{$pdir} and push @mntpoints, $pdir;
$infos eq 'umount' && $fstab{$pdir} and unshift @mntpoints, $pdir;
}
}
@mntpoints;
}
#- reduce pathname by removing <something>/.. each time it appears (or . too).
sub reduce_pathname {
my ($url) = @_;
#- take care if this is a true url and not a simple pathname.
my ($host, $dir) = $url =~ /([^:\/]*:\/\/[^\/]*\/)?(.*)/;
#- remove any multiple /s or trailing /.
#- then split all components of pathname.
$dir =~ s/\/+/\//g; $dir =~ s/\/$//;
my @paths = split '/', $dir;
#- reset $dir, recompose it, and clean trailing / added by algorithm.
$dir = '';
foreach (@paths) {
if ($_ eq '..') {
$dir =~ s/([^\/]+)\/$// or $dir .= "../";
} elsif ($_ ne '.') {
$dir .= "$_/";
}
}
$dir =~ s/\/$//;
$host . $dir;
}
#- check for necessity of mounting some directory to get access
sub try_mounting {
my ($urpm, $dir, $removable) = @_;
my %infos;
$dir = reduce_pathname($dir);
foreach (grep { ! $infos{$_}{mounted} && $infos{$_}{fs} ne 'supermount' } $urpm->find_mntpoints($dir, \%infos)) {
$urpm->{log}(N("mounting %s", $_));
`mount '$_' 2>/dev/null`;
$removable && $infos{$_}{fs} ne 'supermount' and $urpm->{removable_mounted}{$_} = undef;
}
-e $dir;
}
sub try_umounting {
my ($urpm, $dir) = @_;
my %infos;
$dir = reduce_pathname($dir);
foreach (reverse grep { $infos{$_}{mounted} && $infos{$_}{fs} ne 'supermount' } $urpm->find_mntpoints($dir, \%infos)) {
$urpm->{log}(N("unmounting %s", $_));
`umount '$_' 2>/dev/null`;
delete $urpm->{removable_mounted}{$_};
}
! -e $dir;
}
sub try_umounting_removables {
my ($urpm) = @_;
foreach (keys %{$urpm->{removable_mounted}}) {
$urpm->try_umounting($_);
}
delete $urpm->{removable_mounted};
}
#- relocate depslist array id to use only the most recent packages,
#- reorder info hashes to give only access to best packages.
sub relocate_depslist_provides {
my ($urpm, %options) = @_;
my $relocated_entries = $urpm->relocate_depslist;
$urpm->{log}($relocated_entries ?
N("relocated %s entries in depslist", $relocated_entries) :
N("no entries relocated in depslist"));
$relocated_entries;
}
#- register local packages for being installed, keep track of source.
sub register_rpms {
my ($urpm, @files) = @_;
my ($start, $id, $error, %requested);
#- examine each rpm and build the depslist for them using current
#- depslist and provides environment.
$start = @{$urpm->{depslist}};
foreach (@files) {
/\.rpm$/ or $error = 1, $urpm->{error}(N("invalid rpm file name [%s]", $_)), next;
#- allow url to be given.
if (my ($basename) = /^[^:]*:\/.*\/([^\/]*\.rpm)$/) {
unlink "$urpm->{cachedir}/partial/$basename";
eval {
$urpm->{log}(N("retrieving rpm file [%s] ...", $_));
$urpm->{sync}({ dir => "$urpm->{cachedir}/partial", quiet => 1, proxy => $urpm->{proxy} }, $_);
$urpm->{log}(N("...retrieving done"));
$_ = "$urpm->{cachedir}/partial/$basename";
};
$@ and $urpm->{log}(N("...retrieving failed: %s", $@));
} else {
-r $_ or $error = 1, $urpm->{error}(N("unable to access rpm file [%s]", $_)), next;
}
($id, undef) = $urpm->parse_rpm($_);
my $pkg = defined $id && $urpm->{depslist}[$id];
$pkg or $urpm->{error}(N("unable to register rpm file")), next;
$urpm->{source}{$id} = $_;
}
$error and $urpm->{fatal}(1, N("error registering local packages"));
defined $id && $start <= $id and @requested{($start .. $id)} = (1) x ($id-$start+1);
#- distribute local packages to distant nodes directly in cache of each machine.
@files && $urpm->{parallel_handler} and $urpm->{parallel_handler}->parallel_register_rpms(@_);
%requested;
}
#- search packages registered by their name by storing their id into packages hash.
sub search_packages {
my ($urpm, $packages, $names, %options) = @_;
my (%exact, %exact_a, %exact_ra, %found, %foundi);
foreach my $v (@$names) {
my $qv = quotemeta $v;
unless ($options{fuzzy}) {
#- try to search through provides.
if (my @l = grep { defined $_ } map { $_ && ($options{src} ? $_->arch eq 'src' : $_->is_arch_compat) &&
($options{use_provides} || $_->name eq $v) ?
$_->id : undef } map { $urpm->{depslist}[$_] }
keys %{$urpm->{provides}{$v} || {}}) {
#- we assume that if the there is at least one package providing the resource exactly,
#- this should be the best ones that is described.
$exact{$v} = join '|', @l;
next;
}
}
if ($options{use_provides} && $options{fuzzy}) {
foreach (keys %{$urpm->{provides}}) {
#- search through provides to find if a provide match this one.
#- but manages choices correctly (as a provides may be virtual or
#- multiply defined.
if (/$qv/) {
my @list = grep { defined $_ }
map { my $pkg = $urpm->{depslist}[$_];
$pkg && ($options{src} ? $pkg->arch eq 'src' : $pkg->arch ne 'src') ? $pkg->id : undef }
keys %{$urpm->{provides}{$_} || {}};
@list > 0 and push @{$found{$v}}, join '|', @list;
}
if (/$qv/i) {
my @list = grep { defined $_ }
map { my $pkg = $urpm->{depslist}[$_];
$pkg && ($options{src} ? $pkg->arch eq 'src' : $pkg->arch ne 'src') ? $pkg->id : undef }
keys %{$urpm->{provides}{$_} || {}};
@list > 0 and push @{$found{$v}}, join '|', @list;
}
}
}
foreach my $id (0 .. $#{$urpm->{depslist}}) {
my $pkg = $urpm->{depslist}[$id];
($options{src} ? $pkg->arch eq 'src' : $pkg->is_arch_compat) or next;
my $pack_ra = $pkg->name . '-' . $pkg->version;
my $pack_a = "$pack_ra-" . $pkg->release;
my $pack = "$pack_a." . $pkg->arch;
unless ($options{fuzzy}) {
if ($pack eq $v) {
$exact{$v} = $id;
next;
} elsif ($pack_a eq $v) {
push @{$exact_a{$v}}, $id;
next;
} elsif ($pack_ra eq $v) {
push @{$exact_ra{$v}}, $id;
next;
}
}
$pack =~ /$qv/ and push @{$found{$v}}, $id;
$pack =~ /$qv/i and push @{$foundi{$v}}, $id;
}
}
my $result = 1;
foreach (@$names) {
if (defined $exact{$_}) {
$packages->{$exact{$_}} = 1;
} else {
#- at this level, we need to search the best package given for a given name,
#- always prefer already found package.
my %l;
foreach (@{$exact_a{$_} || $exact_ra{$_} || $found{$_} || $foundi{$_} || []}) {
my $pkg = $urpm->{depslist}[$_];
push @{$l{$pkg->name}}, $pkg;
}
if (values(%l) == 0) {
$urpm->{error}(N("no package named %s", $_));
$result = 0;
} elsif (values(%l) > 1 && !$options{all}) {
$urpm->{error}(N("The following packages contain %s: %s", $_, join(' ', keys %l)));
$result = 0;
} else {
foreach (values %l) {
my $best;
foreach (@$_) {
if ($best && $best != $_) {
$_->compare_pkg($best) > 0 and $best = $_;
} else {
$best = $_;
}
}
$packages->{$best->id} = 1;
}
}
}
}
#- return true if no error have been encoutered, else false.
$result;
}
#- do the resolution of dependencies.
sub resolve_dependencies {
my ($urpm, $state, $requested, %options) = @_;
#- needed for both parallel mode or simple mode.
require URPM::Resolve;
if ($options{install_src}) {
#- only src will be installed, so only update $state->{selected} according
#- to src status of files.
foreach (%$requested) {
my $pkg = $urpm->{depslist}[$_] or next;
$pkg->arch eq 'src' or next;
$state->{selected}{$_} = undef;
}
}
if ($urpm->{parallel_handler}) {
#- build the global synthesis file first.
my $file = "$urpm->{cachedir}/partial/parallel.cz";
unlink $file;
foreach (@{$urpm->{media}}) {
defined $_->{start} && defined $_->{end} or next;
system "cat '$urpm->{statedir}/synthesis.$_->{hdlist}' >> $file";
}
#- let each node determine what is requested, according to handler given.
$urpm->{parallel_handler}->parallel_resolve_dependencies($file, @_);
} else {
my $db;
if ($options{rpmdb}) {
$db = new URPM;
$db->parse_synthesis($options{rpmdb});
} else {
$db = URPM::DB::open($urpm->{root});
$db or $urpm->{fatal}(9, N("unable to open rpmdb"));
}
my $sig_handler = sub { undef $db; exit 3 };
local $SIG{INT} = $sig_handler;
local $SIG{QUIT} = $sig_handler;
#- auto select package for upgrading the distribution.
$options{auto_select} and $urpm->request_packages_to_upgrade($db, $state, $requested, requested => undef);
$urpm->resolve_requested($db, $state, $requested, %options);
}
}
#- get out of package that should not be upgraded.
sub deselect_unwanted_packages {
my ($urpm, $packages, %options) = @_;
my (%skip, %remove);
local ($_, *F);
open F, $urpm->{skiplist};
while (<F>) {
chomp; s/#.*$//; s/^\s*//; s/\s*$//;
if (my ($n, $s) = /^([^\s\[]+)(?:\[\*\])?\[?\s*([^\s\]]*\s*[^\s\]]*)/) {
$skip{$n}{$s} = undef;
}
}
close F;
%skip or return;
foreach (grep { $options{force} || (exists $packages->{$_} && ! defined $packages->{$_}) } keys %$packages) {
my $pkg = $urpm->{depslist}[$_] or next;
my $remove_it;
#- check if fullname is matching a regexp.
if (grep { exists $skip{$_}{''} && /^\/(.*)\/$/ && $pkg->fullname =~ /$1/ } keys %skip) {
delete $packages->{$pkg->id};
} else {
#- check if a provides match at least one package.
foreach ($pkg->provides) {
if (my ($n, $s) = /^([^\s\[]*)(?:\[\*\])?\[?([^\s\]]*\s*[^\s\]]*)/) {
foreach my $sn ($n, grep { /^\/(.*)\/$/ && $n =~ /$1/ } keys %skip) {
foreach (keys %{$skip{$sn} || {}}) {
URPM::ranges_overlap($_, $s) and delete $packages->{$pkg->id};
}
}
}
}
}
}
1;
}
#- select source for package selected.
#- according to keys given in the packages hash.
#- return a list of list containing the source description for each rpm,
#- match exactly the number of medium registered, ignored medium always
#- have a null list.
sub get_source_packages {
my ($urpm, $packages, %options) = @_;
my ($id, $error, %local_sources, @list, %fullname2id, %file2fullnames, %examined);
local (*D, *F, $_);
#- build association hash to retrieve id and examine all list files.
foreach (keys %$packages) {
my $p = $urpm->{depslist}[$_];
if ($urpm->{source}{$_}) {
$local_sources{$_} = $urpm->{source}{$_};
} else {
$fullname2id{$p->fullname} = $_.'';
}
}
#- examine each medium to search for packages.
#- now get rpm file name in hdlist to match list file.
foreach my $pkg (@{$urpm->{depslist} || []}) {
$file2fullnames{$pkg->filename =~ /(.*)\.rpm$/ && $1 || $pkg->fullname}{$pkg->fullname} = undef;
}
#- examine the local repository, which is trusted (no gpg or pgp signature check but md5 is now done).
opendir D, "$urpm->{cachedir}/rpms";
while (defined($_ = readdir D)) {
if (my ($filename) = /^([^\/]*)\.rpm$/) {
my $filepath = "$urpm->{cachedir}/rpms/$filename.rpm";
if (!$options{clean_all} && -s $filepath && URPM::verify_rpm($filepath, nogpg => 1, nopgp => 1) =~ /md5 OK/) {
if (keys(%{$file2fullnames{$filename} || {}}) > 1) {
$urpm->{error}(N("there are multiple packages with the same rpm filename \"%s\""), $filename);
next;
} elsif (keys(%{$file2fullnames{$filename} || {}}) == 1) {
my ($fullname) = keys(%{$file2fullnames{$filename} || {}});
if (defined($id = delete $fullname2id{$fullname})) {
$local_sources{$id} = $filepath;
} else {
$options{clean_other} and unlink $filepath;
}
} else {
$options{clean_other} and unlink $filepath;
}
} else {
#- this is an invalid file in cache, remove it and ignore it.
#- or clean options has been given meaning ignore any file in cache
#- remove it too.
unlink $filepath;
}
} #- no error on unknown filename located in cache (because .listing)
}
closedir D;
foreach my $medium (@{$urpm->{media} || []}) {
my (%sources, %list_examined, $list_warning);
if (defined $medium->{start} && defined $medium->{end} && !$medium->{ignore}) {
#- always prefer a list file is available.
if ($medium->{list} && -r "$urpm->{statedir}/$medium->{list}") {
open F, "$urpm->{statedir}/$medium->{list}";
while (<F>) {
if (my ($filename) = /\/([^\/]*)\.rpm$/) {
if (keys(%{$file2fullnames{$filename} || {}}) > 1) {
$urpm->{error}(N("there are multiple packages with the same rpm filename \"%s\""), $filename);
next;
} elsif (keys(%{$file2fullnames{$filename} || {}}) == 1) {
my ($fullname) = keys(%{$file2fullnames{$filename} || {}});
defined($id = $fullname2id{$fullname}) and $sources{$id} = $_;
$list_examined{$fullname} = $examined{$fullname} = undef;
}
} else {
chomp;
$error = 1;
$urpm->{error}(N("unable to correctly parse [%s] on value \"%s\"",
"$urpm->{statedir}/$medium->{list}", $_));
last;
}
}
close F;
}
if (defined $medium->{url}) {
foreach ($medium->{start} .. $medium->{end}) {
my $pkg = $urpm->{depslist}[$_];
my ($filename) = $pkg->filename =~ /([^\/]*)\.rpm$/;
if (keys(%{$file2fullnames{$filename} || {}}) > 1) {
$urpm->{error}(N("there are multiple packages with the same rpm filename \"%s\""), $filename);
next;
} elsif (keys(%{$file2fullnames{$filename} || {}}) == 1) {
my ($fullname) = keys(%{$file2fullnames{$filename} || {}});
unless (exists $list_examined{$fullname}) {
++$list_warning;
defined($id = $fullname2id{$fullname}) and $sources{$id} = "$medium->{url}/".$pkg->filename;
$examined{$fullname} = undef;
}
}
}
$list_warning && $medium->{list} && -r "$urpm->{statedir}/$medium->{list}" and
$urpm->{error}(N("medium \"%s\" uses an invalid list file (mirror is problably not up-to-date, trying to use alternate method)", $medium->{name}));
} elsif (!%list_examined) {
$error = 1;
$urpm->{error}(N("medium \"%s\" does not define any location for rpm files", $medium->{name}));
}
}
push @list, \%sources;
}
#- examine package list to see if a package has not been found.
foreach (grep { ! exists $examined{$_} } keys %fullname2id) {
$error = 1;
$urpm->{error}(N("package %s is not found.", $_));
}
$error ? () : (\%local_sources, \@list);
}
#- download package that may need to be downloaded.
#- make sure header are available in the appropriate directory.
#- change location to find the right package in the local
#- filesystem for only one transaction.
#- try to mount/eject removable media here.
#- return a list of package ready for rpm.
sub download_source_packages {
my ($urpm, $local_sources, $list, %options) = @_;
my (%sources, %error_sources, %removables);
#- make sure everything is correct on input...
@{$urpm->{media} || []} == @$list or return;
#- examine if given medium is already inside a removable device.
my $check_notfound = sub {
my ($id, $dir, $removable) = @_;
$dir and $urpm->try_mounting($dir, $removable);
if (!$dir || -e $dir) {
foreach (values %{$list->[$id]}) {
chomp;
/^(removable_?[^_:]*|file):\/(.*\/([^\/]*))/ or next;
unless ($dir) {
$dir = $2;
$urpm->try_mounting($dir, $removable);
}
-r $2 or return 1;
}
} else {
return 2;
}
return 0;
};
#- removable media have to be examined to keep mounted the one that has
#- more package than other (size is better ?).
my $examine_removable_medium = sub {
my ($id, $device, $copy) = @_;
my $medium = $urpm->{media}[$id];
if (my ($prefix, $dir) = $medium->{url} =~ /^(removable[^:]*|file):\/(.*)/) {
#- the directory given does not exist or may be accessible
#- by mounting some other. try to figure out these directory and
#- mount everything necessary.
while ($check_notfound->($id, $dir, 'removable')) {
$options{ask_for_medium} or $urpm->{fatal}(4, N("medium \"%s\" is not selected", $medium->{name}));
$urpm->try_umounting($dir); system("eject", $device);
$options{ask_for_medium}($medium->{name}, $medium->{removable}) or
$urpm->{fatal}(4, N("medium \"%s\" is not selected", $medium->{name}));
}
if (-e $dir) {
my @removable_sources;
while (my ($i, $url) = each %{$list->[$id]}) {
chomp $url;
$url =~ /^(removable[^:]*|file):\/(.*\/([^\/]*))/ or next;
if (-r $2) {
if ($copy) {
push @removable_sources, $2;
$sources{$i} = "$urpm->{cachedir}/rpms/$3";
} else {
$sources{$i} = $2;
}
} else {
$urpm->{error}(N("unable to read rpm file [%s] from medium \"%s\"", $2, $medium->{name}));
}
}
if (@removable_sources) {
system("cp", "--preserve=mode,timestamps", "-R", @removable_sources, "$urpm->{cachedir}/rpms");
}
} else {
$urpm->{error}(N("medium \"%s\" is not selected", $medium->{name}));
}
} else {
#- we have a removable device that is not removable, well...
$urpm->{error}(N("incoherent medium \"%s\" marked removable but not really", $medium->{name}));
}
};
#- avoid putting a require on Fcntl ':flock' (which is perl and not perl-base).
my ($LOCK_EX, $LOCK_UN) = (2, 8);
#- lock urpmi database, but keep lock to wait for an urpmi.update to finish.
local (*LOCK_FILE);
open LOCK_FILE, $urpm->{statedir};
flock LOCK_FILE, $LOCK_EX or $urpm->{fatal}(7, N("urpmi database locked"));
foreach (0..$#$list) {
values %{$list->[$_]} or next;
my $medium = $urpm->{media}[$_];
#- examine non removable device but that may be mounted.
if ($medium->{removable}) {
push @{$removables{$medium->{removable}} ||= []}, $_;
} elsif (my ($prefix, $dir) = $medium->{url} =~ /^(removable[^:]*|file):\/(.*)/) {
chomp $dir;
-e $dir || $urpm->try_mounting($dir) or
$urpm->{error}(N("unable to access medium \"%s\"", $medium->{name})), next;
}
}
foreach my $device (keys %removables) {
#- here we have only removable device.
#- if more than one media use this device, we have to sort
#- needed package to copy first the needed rpm files.
if (@{$removables{$device}} > 1) {
my @sorted_media = sort { values %{$list->[$a]} <=> values %{$list->[$b]} } @{$removables{$device}};
#- check if a removable device is already mounted (and files present).
if (my ($already_mounted_medium) = grep { !$check_notfound->($_) } @sorted_media) {
@sorted_media = grep { $_ ne $already_mounted_medium } @sorted_media;
unshift @sorted_media, $already_mounted_medium;
}
#- mount all except the biggest one.
foreach (@sorted_media[0 .. $#sorted_media-1]) {
$examine_removable_medium->($_, $device, 'copy');
}
#- now mount the last one...
$removables{$device} = [ $sorted_media[-1] ];
}
#- mount the removable device, only one or the important one.
#- if supermount is used on the device, it is preferable to copy
#- the file instead (because it is so slooooow).
$examine_removable_medium->($removables{$device}[0], $device, $urpm->is_using_supermount($device) && 'copy');
}
#- get back all ftp and http accessible rpms file into the local cache
#- if necessary (as used by checksig or any other reasons).
foreach (0..$#$list) {
my %distant_sources;
#- ignore as well medium that contains nothing about the current set of files.
values %{$list->[$_]} or next;
#- examine all files to know what can be indexed on multiple media.
while (my ($i, $url) = each %{$list->[$_]}) {
#- it is trusted that the url given is acceptable, so the file can safely be ignored.
defined $sources{$i} and next;
if ($url =~ /^(removable[^:]*|file):\/(.*\.rpm)$/) {
if (-r $2) {
$sources{$i} = $2;
} else {
$error_sources{$i} = $2;
}
} elsif ($url =~ /^([^:]*):\/(.*\/([^\/]*\.rpm))$/) {
if ($options{force_local} || $1 ne 'ftp' && $1 ne 'http') { #- only ftp and http protocol supported by grpmi.
$sources{$i} = "$urpm->{cachedir}/rpms/$3";
$distant_sources{$i} = "$1:/$2";
} else {
$sources{$i} = "$1:/$2";
}
} else {
$urpm->{error}(N("malformed input: [%s]", $url));
}
}
#- download files from the current medium.
if (%distant_sources) {
eval {
$urpm->{log}(N("retrieving rpm files from medium \"%s\"...", $urpm->{media}[$_]{name}));
$urpm->{sync}({ dir => "$urpm->{cachedir}/rpms",
quiet => 0,
verbose => $options{verbose},
limit_rate => $options{limit_rate},
callback => $options{callback},
proxy => $urpm->{proxy} },
values %distant_sources);
$urpm->{log}(N("...retrieving done"));
};
if ($@) {
$urpm->{log}(N("...retrieving failed: %s", $@));
}
#- clean files that have not been downloaded, but keep mind there
#- has been problem downloading them at least once, this is
#- necessary to keep track of failing download in order to
#- present the error to the user.
foreach (keys %distant_sources) {
-s $sources{$_} or $error_sources{$_} = delete $sources{$_};
}
}
}
#- clean failed download which have succeeded.
delete @error_sources{keys %sources};
#- now everything is finished.
system("sync");
#- release lock on database.
flock LOCK_FILE, $LOCK_UN;
close LOCK_FILE;
#- return the hash of rpm file that have to be installed, they are all local now.
%$local_sources, %sources, %error_sources;
}
#- extract package that should be installed instead of upgraded,
#- sources is a hash of id -> source rpm filename.
sub extract_packages_to_install {
my ($urpm, $sources) = @_;
my %inst;
local ($_, *F);
open F, $urpm->{instlist};
while (<F>) {
chomp; s/#.*$//; s/^\s*//; s/\s*$//;
foreach (keys %{$urpm->{provides}{$_} || {}}) {
my $pkg = $urpm->{depslist}[$_] or next;
#- some package with specific naming convention to avoid upgrade problem
#- should not be taken into account here.
#- these package have version=1 and release=1mdk, and name contains version and release.
$pkg->version eq '1' && $pkg->release eq '1mdk' && $pkg->name =~ /^.*-[^\-]*mdk$/ and next;
exists $sources->{$pkg->id} and $inst{$pkg->id} = delete $sources->{$pkg->id};
}
}
close F;
\%inst;
}
#- install logger (ala rpm)
sub install_logger {
my ($urpm, $type, $id, $subtype, $amount, $total) = @_;
my $pkg = defined $id && $urpm->{depslist}[$id];
my $progress_size = 50;
if ($subtype eq 'start') {
$urpm->{logger_progress} = 0;
if ($type eq 'trans') {
$urpm->{logger_id} = 0;
printf "%-28s", N("Preparing...");
} else {
printf "%4d:%-23s", ++$urpm->{logger_id}, ($pkg && $pkg->name);
}
} elsif ($subtype eq 'stop') {
if ($urpm->{logger_progress} < $progress_size) {
print '#' x ($progress_size - $urpm->{logger_progress});
print "\n";
}
} elsif ($subtype eq 'progress') {
my $new_progress = $total > 0 ? int($progress_size * $amount / $total) : $progress_size;
if ($new_progress > $urpm->{logger_progress}) {
print '#' x ($new_progress - $urpm->{logger_progress});
$urpm->{logger_progress} = $new_progress;
$urpm->{logger_progress} == $progress_size and print "\n";
}
}
}
#- install packages according to each hashes (install or upgrade).
sub install {
my ($urpm, $remove, $install, $upgrade, %options) = @_;
my $db = URPM::DB::open($urpm->{root}, !$options{test}); #- open in read/write mode unless testing installation.
$db or $urpm->{fatal}(9, N("unable to open rpmdb"));
my $trans = $db->create_transaction($urpm->{root});
my ($update, @l, %file2pkg) = 0;
local *F;
foreach (@$remove) {
$trans->remove($_) or $urpm->{error}(N("unable to remove package %s", $_));
}
foreach my $mode ($install, $upgrade) {
foreach (keys %$mode) {
my $pkg = $urpm->{depslist}[$_];
$file2pkg{$mode->{$_}} = $pkg;
$pkg->update_header($mode->{$_});
$trans->add($pkg,
update => $update, $options{excludepath} ? (excludepath => [ split ',', $options{excludepath} ]) : ())
or $urpm->{error}(N("unable to install package %s", $install->{$_}));
}
++$update;
}
if (!$options{nodeps} and @l = $trans->check) {
if ($options{translate_message}) {
foreach (@l) {
my ($type, $needs, $conflicts) = split '@', $_;
$_ = ($type eq 'requires' ?
N("%s is needed by %s", $needs, $conflicts) :
N("%s conflicts with %s", $needs, $conflicts));
}
}
return @l;
}
!$options{noorder} and @l = $trans->order and return @l;
#- assume default value for some parameter.
$options{delta} ||= 1000;
$options{callback_open} ||= sub {
my ($data, $type, $id) = @_;
open F, $install->{$id} || $upgrade->{$id} or
$urpm->{error}(N("unable to access rpm file [%s]", $install->{$id} || $upgrade->{$id}));
return fileno F;
};
$options{callback_close} ||= sub { close F };
if (keys %$install || keys %$upgrade) {
$options{callback_inst} ||= \&install_logger;
$options{callback_trans} ||= \&install_logger;
}
@l = $trans->run($urpm, %options);
#- in case of error or testing, do not try to check rpmdb
#- for packages being upgraded or not.
@l || $options{test} and return @l;
#- examine the local repository to delete package which have been installed.
if ($options{post_clean_cache}) {
foreach (keys %$install, keys %$upgrade) {
my $pkg = $urpm->{depslist}[$_];
$db->traverse_tag('name', [ $pkg->name ], sub {
my ($p) = @_;
$p->fullname eq $pkg->fullname or return;
unlink "$urpm->{cachedir}/rpms/".$pkg->filename;
});
}
}
return @l;
}
#- install all files to node as remembered according to resolving done.
sub parallel_install {
my ($urpm, $remove, $install, $upgrade, %options) = @_;
$urpm->{parallel_handler}->parallel_install(@_);
}
#- find packages to remove.
sub find_packages_to_remove {
my ($urpm, $state, $l, %options) = @_;
if ($urpm->{parallel_handler}) {
#- invoke parallel finder.
$urpm->{parallel_handler}->parallel_find_remove($urpm, $state, $l, %options, find_packages_to_remove => 1);
} else {
my $db = URPM::DB::open($options{root});
my (@m, @notfound);
$db or $urpm->{fatal}(9, N("unable to open rpmdb"));
if (!$options{matches}) {
foreach (@$l) {
my ($n, $found);
#- check if name-version-release may have been given.
if (($n) = /^(.*)-[^\-]*-[^\-]*\.[^\.\-]*$/) {
$db->traverse_tag('name', [ $n ], sub {
my ($p) = @_;
$p->fullname eq $_ or return;
$urpm->resolve_closure_ask_remove($db, $state, $p);
push @m, join('-', ($p->fullname)[0..2]);
$found = 1;
});
$found and next;
}
#- check if name-version-release may have been given.
if (($n) = /^(.*)-[^\-]*-[^\-]*$/) {
$db->traverse_tag('name', [ $n ], sub {
my ($p) = @_;
join('-', ($p->fullname)[0..2]) eq $_ or return;
$urpm->resolve_closure_ask_remove($db, $state, $p);
push @m, join('-', ($p->fullname)[0..2]);
$found = 1;
});
$found and next;
}
#- check if name-version may have been given.
if (($n) = /^(.*)-[^\-]*$/) {
$db->traverse_tag('name', [ $n ], sub {
my ($p) = @_;
join('-', ($p->fullname)[0..1]) eq $_ or return;
$urpm->resolve_closure_ask_remove($db, $state, $p);
push @m, join('-', ($p->fullname)[0..2]);
$found = 1;
});
$found and next;
}
#- check if only name may have been given.
$db->traverse_tag('name', [ $_ ], sub {
my ($p) = @_;
$p->name eq $_ or return;
$urpm->resolve_closure_ask_remove($db, $state, $p);
push @m, join('-', ($p->fullname)[0..2]);
$found = 1;
});
$found and next;
push @notfound, $_;
}
if (@notfound && ($options{auto} || @$l > 1)) {
$options{callback_notfound} and $options{callback_notfound}->($urpm, @notfound)
or return ();
}
}
if ($options{matches} || @notfound) {
my $match = join "|", map { quotemeta } @$l;
#- reset what has been already found.
%$state = ();
@m = ();
#- search for package that matches, and perform closure again.
$db->traverse(sub {
my ($p) = @_;
$p->fullname =~ /$match/ or return;
$urpm->resolve_closure_ask_remove($db, $state, $p);
push @m, join('-', ($p->fullname)[0..2]);
});
if (@notfound) {
unless (@m) {
$options{callback_notfound} and $options{callback_notfound}->($urpm, @notfound)
or return ();
} else {
$options{callback_fuzzy} and $options{callback_fuzzy}->($urpm, $match, @m)
or return ();
}
}
}
#- check if something need to be removed.
if ($options{callback_base} && %{$state->{ask_remove} || {}}) {
my @base = qw(basesystem);
my (@base_to_remove, %basepackages, %base);
#- check if a package to be removed is a part of basesystem requires.
while (defined($_ = shift @base)) {
exists $basepackages{$_} and next;
$db->traverse_tag(/^\// ? 'path' : 'whatprovides', [ $_ ], sub {
my ($p) = @_;
push @{$basepackages{$_} ||= []}, join '-', ($p->fullname)[0..2];
push @base, $p->requires_nosense;
});
}
foreach (values %basepackages) {
my $n = @$_;
foreach (@$_) {
$base{$_} = \$n;
}
}
foreach (keys %{$state->{ask_remove}}) {
my $rn = $base{$_};
if ($rn) {
$$rn == 1 and push @base_to_remove, $_;
--$$rn;
}
}
@base_to_remove and $options{callback_base}->($urpm, @base_to_remove)
|| return ();
}
}
keys %{$state->{ask_remove}};
}
#- remove packages from node as remembered according to resolving done.
sub parallel_remove {
my ($urpm, $remove, %options) = @_;
my $state = {};
my $callback = sub { $urpm->{fatal}(1, "internal distributed remove fatal error") };
$urpm->{parallel_handler}->parallel_find_remove($urpm, $state, $remove, %options,
callback_notfound => $callback,
callback_fuzzy => $callback,
callback_base => $callback,
);
}
1;
__END__
=head1 NAME
urpm - Mandrake perl tools to handle urpmi database
=head1 SYNOPSYS
require urpm;
my $urpm = new urpm;
$urpm->read_config();
$urpm->add_medium('medium_ftp',
'ftp://ftp.mirror/pub/linux/distributions/mandrake-devel/cooker/i586/Mandrake/RPMS',
'synthesis.hdlist.cz',
update => 0);
$urpm->add_distrib_media('stable', 'removable://mnt/cdrom',
update => 1);
$urpm->select_media('contrib', 'update');
$urpm->update_media(%options);
$urpm->write_config();
my $urpm = new urpm;
$urpm->read_config(nocheck_access => $uid > 0);
foreach (grep { !$_->{ignore} } @{$urpm->{media} || []}) {
$urpm->parse_synthesis($_);
}
if (@files) {
push @names, $urpm->register_rpms(@files);
}
$urpm->relocate_depslist_provides();
my %packages;
@names and $urpm->search_packages(\%packages, [ @names],
use_provides => 1);
if ($auto_select) {
my (%to_remove, %keep_files);
$urpm->select_packages_to_upgrade('', \%packages,
\%to_remove, \%keep_files,
use_parsehdlist => $complete);
}
$urpm->filter_packages_to_upgrade(\%packages,
$ask_choice);
$urpm->deselect_unwanted_packages(\%packages);
my ($local_sources, $list) = $urpm->get_source_packages(\%packages);
my %sources = $urpm->download_source_packages($local_sources,
$list,
'force_local',
$ask_medium_change);
my @rpms_install = grep { $_ !~ /\.src.\.rpm/ } values %{
$urpm->extract_packages_to_install(\%sources)
|| {}};
my @rpms_upgrade = grep { $_ !~ /\.src.\.rpm/ } values %sources;
=head1 DESCRIPTION
C<urpm> is used by urpmi executables to manipulate packages and media
on a Linux-Mandrake distribution.
=head1 SEE ALSO
perl-URPM (obsolete rpmtools) package is used to manipulate at a lower
level hdlist and rpm files.
=head1 COPYRIGHT
Copyright (C) 2000,2001,2002 MandrakeSoft <fpons@mandrakesoft.com>
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2, or (at your option)
any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
=cut
|