package pkgs; # $Id$ use strict; use common; use run_program; use detect_devices; use log; sub read_rpmsrate_raw { my ($file) = @_; my $line_nb = 0; my $fatal_error; my (%flags, %rates, @need_to_copy); my (@l); local $_; foreach (cat_($file)) { $line_nb++; /\t/ and die "tabulations not allowed at line $line_nb\n"; s/#.*//; # comments my ($indent, $data) = /(\s*)(.*)/; next if !$data; # skip empty lines @l = grep { $_->[0] < length $indent } @l; my @m = @l ? @{$l[-1][1]} : (); my ($t, $flag, @l2); while ($data =~ /^(( [1-5] | (?: (?: !\s*)? [0-9A-Z_]+(?:".*?")?) (?: \s*\|\|\s* (?: !\s*)? [0-9A-Z_]+(?:".*?")?)* ) (?:\s+|$) )(.*)/x) { #@")) { ($t, $flag, $data) = ($1,$2,$3); while ($flag =~ s,^\s*(("[^"]*"|[^"\s]*)*)\s+,$1,) {} push @m, $flag; push @l2, [ length $indent, [ @m ] ]; $indent .= $t; } if ($data) { # has packages on same line my ($rates, $flags) = partition { /^\d$/ } @m; my ($rate) = @$rates or die sprintf qq(missing rate for "%s" at line %d (flags are %s)\n), $data, $line_nb, join('&&', @m); foreach my $name (split ' ', $data) { if (uc($name) eq $name) { log::l("$line_nb: $name is parsed as a package name, not as a flag"); } if (member('INSTALL', @$flags)) { push @need_to_copy, $name if !member('NOCOPY', @$flags); next; #- do not need to put INSTALL flag for a package. } if (member('PRINTER', @$flags)) { push @need_to_copy, $name; } my @new_flags = @$flags; if (my $previous = $flags{$name}) { my @common = intersection($flags, $previous); my @diff1 = difference2($flags, \@common); my @diff2 = difference2($previous, \@common); if (!@diff1 || !@diff2) { @new_flags = @common; } elsif (@diff1 == 1 && @diff2 == 1) { @new_flags = (@common, join('||', $diff1[0], $diff2[0])); } else { log::l("$line_nb: can not handle complicate flags for packages appearing twice ($name)"); $fatal_error++; } log::l("$line_nb: package $name appearing twice with different rates ($rate != " . $rates{$name} . ")") if $rate != $rates{$name}; } $rates{$name} = $rate; $flags{$name} = \@new_flags; } push @l, @l2; } else { push @l, [ $l2[0][0], $l2[-1][1] ]; } } $fatal_error and die "$fatal_error fatal errors in rpmsrate"; \%rates, \%flags, \@need_to_copy; } sub read_rpmsrate { my ($packages, $rpmsrate_flags_chosen, $file, $match_all_hardware) = @_; my ($rates, $flags, $need_to_copy) = read_rpmsrate_raw($file); my ($TYPEs, @probeall); if (!$match_all_hardware) { $TYPEs = detect_devices::matching_types(); @probeall = detect_devices::probeall(); } foreach (keys %$flags) { my @flags = @{$flags->{$_}}; my $p; if ($::isInstall) { $p = install::pkgs::packageByName($packages, $_) or next; if (my @l = map { /locales-(.*)/ ? qq(LOCALES"$1") : () } $p->requires_nosense) { if (@l > 1) { log::l("ERROR: package $_ is requiring many locales") if $_ ne 'lsb'; } else { push @flags, @l; } } } @flags = map { my ($user_flags, $known_flags) = partition { /^!?CAT_/ } split('\|\|', $_); my $ok = find { my $inv = s/^!//; return 0 if $::isStandalone && $inv; if (my ($p) = /^HW"(.*)"/) { $match_all_hardware ? 1 : ($inv xor find { $_->{description} =~ /$p/i } @probeall); } elsif (($p) = /^DRIVER"(.*)"/) { $match_all_hardware ? 1 : ($inv xor find { $_->{driver} =~ /$p/i } @probeall); } elsif (($p) = /^TYPE"(.*)"/) { $match_all_hardware ? 1 : ($inv xor $TYPEs->{$p}); } elsif (($p) = /^HW_CAT"(.*)"/) { $match_all_hardware ? 1 : ($inv xor detect_devices::probe_category($p)); } else { $inv xor $rpmsrate_flags_chosen->{$_}; } } @$known_flags; $ok ? 'TRUE' : @$user_flags ? join('||', @$user_flags) : 'FALSE'; } @flags; if ($::isInstall) { $p->set_rate($rates->{$_}); $p->set_rflags(member('FALSE', @flags) ? 'FALSE' : @flags); } elsif ($::isStandalone) { $flags->{$_} = \@flags; } } push @{$packages->{needToCopy} ||= []}, @$need_to_copy if ref($packages); return ($rates, $flags) if $::isStandalone; } 1; class='sub right'>Thierry Vignaud [tv]
summaryrefslogtreecommitdiffstats
path: root/perl-install/printer
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2004-08-24 03:28:18 +0000
committerOlivier Blin <oblin@mandriva.org>2004-08-24 03:28:18 +0000
commit0cba04f3c520d65301c7532e69b7c196a88a88bb (patch)
tree71151f490cb9c0520be4d46dc8a70c1be4ad6785 /perl-install/printer
parente17fd434232bba39822837d5fa7a11026f4698f1 (diff)
downloaddrakx-0cba04f3c520d65301c7532e69b7c196a88a88bb.tar
drakx-0cba04f3c520d65301c7532e69b7c196a88a88bb.tar.gz
drakx-0cba04f3c520d65301c7532e69b7c196a88a88bb.tar.bz2
drakx-0cba04f3c520d65301c7532e69b7c196a88a88bb.tar.xz
drakx-0cba04f3c520d65301c7532e69b7c196a88a88bb.zip
(local_detect) fix modules conf parsing
Diffstat (limited to 'perl-install/printer')
-rw-r--r--perl-install/printer/detect.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/printer/detect.pm b/perl-install/printer/detect.pm
index 99a1bddeb..c1f4f3aaa 100644
--- a/perl-install/printer/detect.pm
+++ b/perl-install/printer/detect.pm
@@ -7,7 +7,7 @@ use detect_devices;
use printer::data;
sub local_detect() {
- modules::any_conf->vnew->read->get_probeall("usb-interface") and eval { modules::load($usbprintermodule) };
+ modules::any_conf->read->get_probeall("usb-interface") and eval { modules::load($usbprintermodule) };
eval { modules::unload(qw(lp parport_pc parport)) }; #- on kernel 2.4 parport has to be unloaded to probe again
eval { modules::load(qw(parport_pc lp)) }; #- take care as not available on 2.4 kernel (silent error).
whatPrinter();
generated by cgit v1.2.1 (git 2.21.0) at 2024-12-19 15:14:30 +0000