diff options
| author | Till Kamppeter <tkamppeter@mandriva.com> | 2003-03-02 16:14:21 +0000 |
|---|---|---|
| committer | Till Kamppeter <tkamppeter@mandriva.com> | 2003-03-02 16:14:21 +0000 |
| commit | b5b93d92f29791ae154bb59559e2b47eb9d5523a (patch) | |
| tree | 1b37b47ee29a54202da53e6d4db332992384075c /perl-install | |
| parent | b004f75c6a1b4e301644cd93b8be1b10e1511930 (diff) | |
| download | drakx-backup-do-not-use-b5b93d92f29791ae154bb59559e2b47eb9d5523a.tar drakx-backup-do-not-use-b5b93d92f29791ae154bb59559e2b47eb9d5523a.tar.gz drakx-backup-do-not-use-b5b93d92f29791ae154bb59559e2b47eb9d5523a.tar.bz2 drakx-backup-do-not-use-b5b93d92f29791ae154bb59559e2b47eb9d5523a.tar.xz drakx-backup-do-not-use-b5b93d92f29791ae154bb59559e2b47eb9d5523a.zip | |
Fixes on reading of Foomatic data overview ("foomatic-configure -O"):
- Removed usage of on-disk cache
- Made new "<general>" and "<ieee1284>" tags for auto-detection info
being recognized.
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/printer/main.pm | 34 |
1 files changed, 20 insertions, 14 deletions
diff --git a/perl-install/printer/main.pm b/perl-install/printer/main.pm index 5b0dcb134..2a7f46c4f 100644 --- a/perl-install/printer/main.pm +++ b/perl-install/printer/main.pm @@ -21,9 +21,6 @@ use vars qw(@ISA @EXPORT); @ISA = qw(Exporter); @EXPORT = qw(%printer_type %printer_type_inv); -#-location of the printer database in an installed system -my $PRINTER_DB_FILE = "/usr/share/foomatic/db/compiled/overview.xml"; - #-Did we already read the subroutines of /usr/sbin/ptal-init? my $ptalinitread = 0; @@ -383,18 +380,12 @@ sub read_printer_db(;$) { my $spooler = $_[0]; - my $dbpath = $::prefix . $PRINTER_DB_FILE; - local *DBPATH; #- don't have to do close ... and don't modify globals at least # Generate the Foomatic printer/driver overview, read it from the # appropriate file when it is already generated - if (!(-f $dbpath)) { - open DBPATH, ($::testing ? $::prefix : "chroot $::prefix/ ") . #-# - "foomatic-configure -O -q |" or - die "Could not run foomatic-configure"; - } else { - open DBPATH, $dbpath or die "An error occurred on $dbpath : $!"; #-# - } + open DBPATH, ($::testing ? $::prefix : "chroot $::prefix/ ") . #-# + "foomatic-configure -O -q |" or + die "Could not run foomatic-configure"; my $entry = {}; my $inentry = 0; @@ -419,7 +410,7 @@ sub read_printer_db(;$) { # All entries inside this block will be ignored if ($autodetecttype) { if (m!^.*</$autodetecttype>\s*$!) { - # End of parallel, USB, or SNMP section + # End of general, parallel, USB, or SNMP section $autodetecttype = ""; } elsif (m!^\s*<manufacturer>\s*([^<>]+)\s*</manufacturer>\s*$!) { # Manufacturer @@ -433,12 +424,27 @@ sub read_printer_db(;$) { } elsif (m!^\s*<commandset>\s*([^<>]+)\s*</commandset>\s*$!) { # Command set $entry->{devidcmdset} = $1; + } elsif (m!^\s*<ieee1284>\s*([^<>]+)\s*</ieee1284>\s*$!) { + # Full ID string + my $idstr = $1; + $idstr =~ m!(MFG|MANUFACTURER):([^;]+);!i; + $entry->{devidmake} = $2; + undef $2; + $idstr =~ m!(MDL|MODEL):([^;]+);!i; + $entry->{devidmodel} = $2; + undef $2; + $idstr =~ m!(DES|DESCRIPTION):([^;]+);!i; + $entry->{deviddesc} = $2; + undef $2; + $idstr =~ m!(CMD|COMMAND\s*SET):([^;]+);!i; + $entry->{devidcmdset} = $2; + undef $2; } } else { if (m!^.*</autodetect>\s*$!) { # End of autodetect block $inautodetect = 0; - } elsif (m!^\s*<(parallel|usb|snmp)>\s*$!) { + } elsif (m!^\s*<(general|parallel|usb|snmp)>\s*$!) { # Beginning of parallel, USB, or SNMP section $autodetecttype = $1; } |