summaryrefslogtreecommitdiffstats
path: root/perl-install/Makefile.drakxtools
Commit message (Collapse)AuthorAgeFilesLines
* allow move to build & install drakx mo files (using sudo)Pascal Rigaux2003-11-181-1/+1
|
* fix linksThierry Vignaud2003-11-151-10/+10
|
* add links so that most tools get listed on drak<TAB> completionThierry Vignaud2003-11-141-0/+9
|
* add compatibility link for drakclockThierry Vignaud2003-11-141-0/+1
|
* have localedrake in /usr/bin rather than /usr/sbin (#1407)Guillaume Cottenceau2003-02-111-3/+4
|
* don't take lang subdir in pixmapFrederic Lepied2003-02-111-1/+1
|
* - drakhelp moved to /usr/bin/Daouda Lo2003-01-161-0/+1
|
* fix installation after pixel changesThierry Vignaud2002-12-131-1/+1
|
* - add missing printer directoryThierry Vignaud2002-11-151-1/+1
| | | | | - bump version to 9.1 like most of our packages
* 29mdk: add harddrake iconsThierry Vignaud2002-09-021-1/+7
|
* - mv drakbug executable from $$SBINDEST to $$BINDESTDaouda Lo2002-07-301-0/+1
|
* fix pixel "i do not need to test" fscking bug that broke drakxtoolsThierry Vignaud2002-07-251-1/+1
| | | | | build :-)
* add PMS_DIRS in Makefile.config and use it everywherePascal Rigaux2002-07-241-10/+2
| | | | | | (cleaning some ugly stuff in Makefile.drakxtools while doing so) => now adding a new directory only need to be done at one place
* g Move 2: partition table: hierarchyThierry Vignaud2002-07-231-2/+2
|
* - Big Move 1: interactive::* hierarchyThierry Vignaud2002-07-231-2/+2
|
* remove all (use\s+(diagnostics|vars|strict)' instancesThierry Vignaud2002-07-101-2/+0
|
* fix boot freeze on hw change: initscript was running us with stdoutThierry Vignaud2002-07-091-3/+4
| | | | | redirected to /dev/null; just use a small sh wrapper to fix it
* s/PHONY/.PHONY/Thierry Vignaud2002-07-081-1/+1
|
* - simplificationsThierry Vignaud2002-07-081-7/+7
| | | | | - harddrake support is complete
* - move diskdrake.rc from /etc/gtk to /usr/share/libDrakXPascal Rigaux2002-07-061-2/+1
| | | | | - remove unused wizard.rc
* manage security subdir.Frederic Lepied2002-06-181-1/+3
|
* - adapt to new diskdrake modulesPascal Rigaux2002-01-271-3/+6
| | | | | - some cleanup in drakxtools build
* fileshare should be ok, handle diskdrake --fileshare, fix smb importPascal Rigaux2001-11-301-0/+4
|
* remove unneeded files (*.bs and .exists)Pascal Rigaux2001-11-261-1/+2
|
* added wonderful lsnetdrakePascal Rigaux2001-09-121-0/+1
|
* basic nfs handling in drakxPascal Rigaux2001-08-201-2/+2
|
* fix po not build, add interactive_http in DIRSPascal Rigaux2001-08-171-2/+2
|
* add interactive_httpPascal Rigaux2001-08-071-5/+11
|
* added network pmsdamien2001-08-031-1/+3
|
* (install): s/cp -rf/cp -rfL/ (-L = --dereference, aka always follow ↵Pascal Rigaux2001-07-311-2/+2
| | | | symbolic links)
* do not use the po's directly. Use mo's through gettextPascal Rigaux2001-07-231-8/+9
|
* (install): ensure pm's in subdirs don't have /use(diagnostics|vars|strict)/Pascal Rigaux2001-05-301-1/+3
|
* new pixmap policydamien2001-02-261-2/+3
|
* added wizard.rc handling in Makfiles.damien2001-02-051-0/+1
|
* fix daminetsexPascal Rigaux2000-12-161-1/+0
|
* use ldetect-lstPascal Rigaux2000-12-161-2/+1
|
* pci_probing now done by libldetectPascal Rigaux2000-12-161-2/+0
| | | | | config files moved in package ldetect-lst
* stcdamien2000-09-281-1/+0
|
* updateddamien2000-09-281-1/+0
|
* adsldatabasedamien2000-09-271-0/+1
|
* updateddamien2000-09-141-0/+1
|
* updateddamien2000-09-141-1/+1
|
* updateddamien2000-09-141-3/+3
|
* updateddamien2000-09-141-1/+1
|
* updated. Wizard is available.damien2000-09-121-2/+1
|
* draknet integrationdamien2000-08-291-0/+1
|
* updateddamien2000-08-271-2/+3
|
* updateddamien2000-08-261-0/+1
|
* no_commentPascal Rigaux2000-06-051-0/+2
|
* *** empty log message ***Francois Pons2000-04-071-2/+2
|
$ok = 0; $flag = join('||', grep { if (my ($inv, $p) = /^(!)?HW"(.*)"/) { ($inv xor detect_devices::matching_desc($p)) and $ok = 1; 0; } else { 1; } } split '\|\|', $flag); push @m, $ok ? 'TRUE' : $flag || 'FALSE'; push @l2, [ length $indent, [ @m ] ]; $indent .= $t; } if ($data) { # has packages on same line my ($rate) = grep { /^\d$/ } @m or die sprintf qq(missing rate for "%s" at line %d (flags are %s)\n), $data, $line_nb, join('&&', @m); foreach (split ' ', $data) { if ($packages) { my $p = packageByName($packages, $_) or next; my @m2 = map { if_($_ && packageName($_) =~ /locales-(.*)/, qq(LOCALES"$1")) } map { packageById($packages, $_) } packageDepsId($p); my @m3 = ((grep { !/^\d$/ } @m), @m2); if (@m3 >= 1 && $m3[0] eq 'INSTALL' || @m3 >=2 && $m3[1] eq 'INSTALL') { push @{$packages->{needToCopy} ||= []}, $_; next; #- don't need to put INSTALL flag for a package. } if (packageRate($p)) { my ($rate2, @m4) = packageRateRFlags($p); if (@m3 > 1 || @m4 > 1) { log::l("can't handle complicate flags for packages appearing twice ($_)"); $fatal_error++; } log::l("package $_ appearing twice with different rates ($rate != $rate2)") if $rate != $rate2; packageSetRateRFlags($p, $rate, "$m3[0]||$m4[0]"); } else { packageSetRateRFlags($p, $rate, @m3); } } else { print "$_ = ", join(" && ", @m), "\n"; } } push @l, @l2; } else { push @l, [ $l2[0][0], $l2[$#l2][1] ]; } } $fatal_error and die "$fatal_error fatal errors in rpmsrate"; } sub readCompssUsers { my ($packages, $meta_class) = @_; my (%compssUsers, %compssUsersIcons, , %compssUsersDescr, @sorted, $l); my (%compss); my $file = 'Mandrake/base/compssUsers'; my $f = $meta_class && install_any::getFile("$file.$meta_class") || install_any::getFile($file) or die "can't find $file"; local $_; while (<$f>) { /^\s*$/ || /^#/ and next; s/#.*//; if (/^(\S.*)/) { my ($icon, $descr); /^(.*?)\s*\[icon=(.*?)\](.*)/ and $_ = "$1$3", $icon = $2; /^(.*?)\s*\[descr=(.*?)\](.*)/ and $_ = "$1$3", $descr = $2; $compssUsersIcons{$_} = $icon; $compssUsersDescr{$_} = $descr; push @sorted, $_; $compssUsers{$_} = $l = []; } elsif (/^\s+(.*?)\s*$/) { push @$l, $1; } } \%compssUsers, \@sorted, \%compssUsersIcons, \%compssUsersDescr; } sub setSelectedFromCompssList { my ($packages, $compssUsersChoice, $min_level, $max_size, $otherOnly) = @_; $compssUsersChoice->{TRUE} = 1; #- ensure TRUE is set my $nb = selectedSize($packages); foreach my $p (sort { packageRate($b) <=> packageRate($a) } values %{$packages->{names}}) { my ($rate, @flags) = packageRateRFlags($p); next if !$rate || $rate < $min_level || grep { !grep { /^!(.*)/ ? !$compssUsersChoice->{$1} : $compssUsersChoice->{$_} } split('\|\|') } @flags; #- determine the packages that will be selected when #- selecting $p. the packages are not selected. my %newSelection; selectPackage($packages, $p, 0, \%newSelection); #- this enable an incremental total size. my $old_nb = $nb; foreach (grep { $newSelection{$_} } keys %newSelection) { $nb += packageSize($packages->{names}{$_}); } if ($max_size && $nb > $max_size) { $nb = $old_nb; $min_level = packageRate($p); last; } #- at this point the package can safely be selected. if ($otherOnly) { selectPackage($packages, $p, 0, $otherOnly); } else { selectPackage($packages, $p); } } unless ($otherOnly) { log::l("setSelectedFromCompssList: reached size ", formatXiB($nb), ", up to indice $min_level (less than ", formatXiB($max_size), ")"); log::l("setSelectedFromCompssList: ", join(" ", sort map { packageName($_) } grep { packageFlagSelected($_) } @{$packages->{depslist}})); } $min_level; }