summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
Commit message (Expand)AuthorAgeFilesLines
* - there is no more adverstising iconPascal Rigaux2005-09-151-5/+2
* add upgrade script for conectivaPascal Rigaux2005-09-141-1/+1
* migrate fstab when upgrading an alien distro (should be done always?)Pascal Rigaux2005-09-131-1/+2
* when taking screenshot during pkgs install, we can be chrootedPascal Rigaux2005-09-131-2/+4
* for now, disable FTP in media_browser since we don't handle it (#16088)Pascal Rigaux2005-09-131-1/+1
* for local_install we don't want use_root_part to do anythingPascal Rigaux2005-09-131-0/+2
* silently ignore existing X config file if upgrading an alien distroPascal Rigaux2005-09-131-0/+1
* set META_CLASS"xxx" flagPascal Rigaux2005-09-091-0/+1
* have a progress bar when removing packagesPascal Rigaux2005-09-091-1/+12
* Remove commented codeRafael Garcia-Suarez2005-09-091-1/+0
* When adding http suppl media, repropose the last url entered. VeryRafael Garcia-Suarez2005-09-091-2/+7
* pass around wait_message with progress bar capabilityPascal Rigaux2005-09-091-4/+2
* Remove a misleading commentRafael Garcia-Suarez2005-09-061-1/+1
* At some point, an empty hashref is autovivified in $packages->{medium}.Rafael Garcia-Suarez2005-09-051-1/+1
* Proper detection of network interface at supplementary media setupRafael Garcia-Suarez2005-09-051-1/+1
* - new functionality: upgrade_by_removing_pkgs, enabled when upgrading redhat ...Pascal Rigaux2005-09-021-7/+15
* move code to create_minimal_files()Pascal Rigaux2005-09-021-0/+12
* rename pkgs::rpmDbOpenForInstall() to pkgs::open_rpm_db_rw()Pascal Rigaux2005-09-021-1/+1
* opening rpm db in selectPackage(), so remove some rpmDbOpen()Pascal Rigaux2005-09-021-1/+0
* new function select_by_package_names()Pascal Rigaux2005-09-021-5/+2
* hoist things in install_anyPascal Rigaux2005-09-021-1/+9
* fs::format::wait_message() is now ->wait_message_with_progress_bar (on intera...Pascal Rigaux2005-09-021-1/+1
* initial deployment server supportOlivier Blin2005-08-311-0/+25
* more precise log_size during installPascal Rigaux2005-08-261-3/+3
* log more precisely the "naughty servers" unselectedPascal Rigaux2005-08-181-1/+1
* fix typoPascal Rigaux2005-08-161-4/+4
* - if we have a lot of memory, keep the clp in tmpfsPascal Rigaux2005-08-101-10/+36
* create clp_on_tmpfs() for future usePascal Rigaux2005-08-101-1/+2
* cleanupPascal Rigaux2005-08-081-1/+1
* move is_xbox from common to detect_devicesOlivier Blin2005-08-051-1/+1
* workarround problem in supplementary mediaFlorent Villard2005-07-151-0/+5
* Don't write ignored media in urpmi.cfg (bug 15537)Rafael Garcia-Suarez2005-07-011-1/+1
* use fs::type::is_dmraid()Pascal Rigaux2005-07-011-1/+1
* don't spawn a new shell if it's already running (useful when using the no-reb...Pascal Rigaux2005-07-011-1/+4
* fix typo in previous commitPascal Rigaux2005-06-301-1/+1
* install dmraid if neededPascal Rigaux2005-06-301-0/+1
* try to cleanup fs.pmPascal Rigaux2005-06-281-12/+12
* upcase protocol namesThierry Vignaud2005-06-281-4/+4
* (ask_if_suppl_media) upcase protocol nameThierry Vignaud2005-06-281-1/+1
* Add NFS supplementary media in fstabRafael Garcia-Suarez2005-06-281-2/+4
* Fix install_urpmi with nfs suppl mediaRafael Garcia-Suarez2005-06-281-9/+14
* Support NFS supplementary mediaRafael Garcia-Suarez2005-06-271-2/+18
* fsedit::is_same_hd is now fs:get::is_same_hdPascal Rigaux2005-06-131-1/+1
* don't need use MDK::Common... when we have "use common" (which is the standar...Pascal Rigaux2005-06-101-1/+0
* don't need prefixing with current packagePascal Rigaux2005-06-091-1/+1
* (media_browser): handle nfsPascal Rigaux2005-06-071-31/+73
* replace strange "-" with a ascii compliant onePascal Rigaux2005-06-061-1/+1
* install2 functions should be stepsPascal Rigaux2005-06-061-0/+16
* get rid of $clicked and $ent_number (obsolete)Pascal Rigaux2005-06-061-3/+3
* do not use a loop device to read ISO image IDs, read them directly in the fil...Olivier Blin2005-06-031-8/+4
generated by cgit v1.2.1 (git 2.21.0) at 2025-02-26 16:20:04 +0000
ass="hl opt">{$url} = $cvalue; ++$value; } } my $min_value = min(values %mirror2value); my @possible = (grep { $mirror2value{$_} == $min_value } keys %mirror2value) x 2; #- increase probability push @possible, grep { $mirror2value{$_} == 1 + $min_value } keys %mirror2value; $possible[rand @possible]; } #- hack to retrieve Mandrake Linux version... sub version() { require pkgs; my $pkg = pkgs::packageByName($::o->{packages}, 'mandrake-release'); $pkg && $pkg->version || '9.1'; #- safe but dangerous ;-) } sub dir { $mirrors{$_[0]}[1] . ($::corporate && '/corporate' || '') . '/' . version() } sub ftp($) { ftp::new($_[0], dir($_[0])) } sub getFile { my ($file, $o_host) = @_; my $host = $o_host || $crypto::host; my $dir = dir($host) . ($file =~ /\.rpm$/ && "/RPMS"); log::l("getting crypto file $file on directory $dir with login $mirrors{$host}[2]"); my ($ftp, $retr) = ftp::new($host, $dir, if_($mirrors{$host}[2], $mirrors{$host}[2]), if_($mirrors{$host}[3], $mirrors{$host}[3]) ); $$retr->close if $$retr; $$retr = $ftp->retr($file) or ftp::rewindGetFile(); $$retr ||= $ftp->retr($file); } sub getPackages { my ($prefix, $packages, $mirror) = @_; $crypto::host = $mirror; #- check first if there is something to get... my $fhdlist = getFile("base/hdlist.cz", $mirror); unless ($fhdlist) { log::l("no updates available, bailing out"); return; } #- extract hdlist of crypto, then depslist. require pkgs; my $update_medium = pkgs::psUsingHdlist($prefix, 'ftp', $packages, "hdlist-updates.cz", "1u", "RPMS", "Updates for Mandrake Linux " . version(), 1, $fhdlist); if ($update_medium) { log::l("read updates hdlist"); #- keep in mind where is the URL prefix used according to mirror (for install_any::install_urpmi). $update_medium->{prefix} = "ftp://$mirror" . dir($mirror); #- (re-)enable the medium to allow install of package, #- make it an update medium (for install_any::install_urpmi). $update_medium->{selected} = 1; $update_medium->{update} = 1; #- search for packages to update. $packages->{rpmdb} ||= pkgs::rpmDbOpen($prefix); pkgs::selectPackagesToUpgrade($packages, $prefix, $update_medium); } return $update_medium; } sub get { my ($mirror, $dir, @files) = @_; foreach (@files) { log::l("crypto: downloading $_"); ftp($mirror)->get($_, "$dir/$_") } int @files; } 1;
generated by cgit v1.2.1 (git 2.21.0) at 2025-02-26 16:20:02 +0000