From f6b05a31b60fb74c908967f2eb5c5a750846ea32 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Wed, 4 Oct 2000 13:57:08 +0000 Subject: *** empty log message *** --- perl-install/ChangeLog | 7 ++++++- perl-install/c/stuff.xs.pm | 10 +++++++++- perl-install/install_any.pm | 4 +++- 3 files changed, 18 insertions(+), 3 deletions(-) diff --git a/perl-install/ChangeLog b/perl-install/ChangeLog index 9b4ad240b..267b494da 100644 --- a/perl-install/ChangeLog +++ b/perl-install/ChangeLog @@ -17,7 +17,12 @@ * Xconfigurator.pm: removed bad card for 3D Rage Pro. - * install_any.pm: removed Aurora for SiS card. + * install_any.pm: removed Aurora for SiS card, add more case for + detecting right cdrom for live upgrade, fixed wrong list of + packages for laptops. + + * c/stuff.xs.pm: added time interval of 200ms between update of + progression bar of install, make sure the last step is seen. 2000-10-04 DrakX diff --git a/perl-install/c/stuff.xs.pm b/perl-install/c/stuff.xs.pm index 52191cb27..5968289ac 100644 --- a/perl-install/c/stuff.xs.pm +++ b/perl-install/c/stuff.xs.pm @@ -11,6 +11,7 @@ print ' #include #include #include +#include #include #include #include @@ -710,6 +711,9 @@ rpmRunTransactions(trans, callbackOpen, callbackClose, callbackMessage, force) const unsigned long *param_ul1 = NULL; const unsigned long *param_ul2 = NULL; char *n = (char *) pkgKey; + static struct timeval tprev; + static struct timeval tcurr; + long delta; switch (what) { case RPMCALLBACK_INST_OPEN_FILE: { @@ -770,18 +774,22 @@ rpmRunTransactions(trans, callbackOpen, callbackClose, callbackMessage, force) case RPMCALLBACK_INST_START: { msg = "Starting installing package"; + gettimeofday(&tprev, NULL); param_s = n; last_amount = 0; } break; case RPMCALLBACK_INST_PROGRESS: - if (total && (amount - last_amount) * 22 / 4 / total) { + gettimeofday(&tcurr, NULL); + delta = 1000000 * (tcurr.tv_sec - tprev.tv_sec) + (tcurr.tv_usec - tprev.tv_usec); + if (delta > 200000 || amount >= total - 1) { /* (total && (amount - last_amount) * 22 / 4 / total)) { */ msg = "Progressing installing package"; param_s = n; param_ul1 = &amount; param_ul2 = &total; + tprev = tcurr; last_amount = amount; } break; default: break; diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 4cb1fc98b..e0fac5717 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -310,7 +310,7 @@ sub setPackages($) { my @l = (); push @l, 'xawtv', 'kwintv' if grep { $_->{driver} eq 'bttv' } detect_devices::probeall(); - push @l, "kapm", "kcmlaptop", "DrakProfile", "DrakSync" if $o->{pcmcia}; + push @l, "drakprofile", "draksync", "irda-utils" if $o->{pcmcia}; push @l, "Glide_V5" if detect_devices::matching_desc('Voodoo 5'); push @l, "Glide_V3-DRI" if detect_devices::matching_desc('Voodoo (3|Banshee)'); push @l, "Device3Dfx", "XFree86-glide-module" if detect_devices::matching_desc('Voodoo'); @@ -392,11 +392,13 @@ sub hdInstallPath() { sub unlockCdrom(;$) { my ($cdrom) = @_; $cdrom or cat_("/proc/mounts") =~ m|(/tmp/\S+)\s+/tmp/rhimage| and $cdrom = $1; + $cdrom or cat_("/proc/mounts") =~ m|(/dev/\S+)\s+/mnt/cdrom | and $cdrom = $1; eval { $cdrom and ioctl detect_devices::tryOpen($1), c::CDROM_LOCKDOOR(), 0 }; } sub ejectCdrom(;$) { my ($cdrom) = @_; $cdrom or cat_("/proc/mounts") =~ m|(/tmp/\S+)\s+/tmp/rhimage| and $cdrom = $1; + $cdrom or cat_("/proc/mounts") =~ m|(/dev/\S+)\s+/mnt/cdrom | and $cdrom = $1; my $f = eval { $cdrom && detect_devices::tryOpen($cdrom) } or return; getFile("XXX"); #- close still opened filehandle eval { fs::umount("/tmp/rhimage") }; -- cgit v1.2.1