diff options
| author | Yves Duret <yduret@mandriva.com> | 2002-02-18 16:16:13 +0000 |
|---|---|---|
| committer | Yves Duret <yduret@mandriva.com> | 2002-02-18 16:16:13 +0000 |
| commit | c64184d0aefb7e208336c8a56422815e89d4d744 (patch) | |
| tree | a50ebdfd03c94fd9e6ca235f7fa95c9865c83722 /perl-install/scanner.pm | |
| parent | d80cdb09af1e15b5c29150b4968c6fee3c783df3 (diff) | |
| download | drakx-backup-do-not-use-c64184d0aefb7e208336c8a56422815e89d4d744.tar drakx-backup-do-not-use-c64184d0aefb7e208336c8a56422815e89d4d744.tar.gz drakx-backup-do-not-use-c64184d0aefb7e208336c8a56422815e89d4d744.tar.bz2 drakx-backup-do-not-use-c64184d0aefb7e208336c8a56422815e89d4d744.tar.xz drakx-backup-do-not-use-c64184d0aefb7e208336c8a56422815e89d4d744.zip | |
scsi parport preliminary support
no more show unsupported scanner
common output for ScannerDB update from sane *.desc files and from usbtable
Diffstat (limited to 'perl-install/scanner.pm')
| -rwxr-xr-x | perl-install/scanner.pm | 17 |
1 files changed, 13 insertions, 4 deletions
diff --git a/perl-install/scanner.pm b/perl-install/scanner.pm index 90df5f6f6..0a18acd71 100755 --- a/perl-install/scanner.pm +++ b/perl-install/scanner.pm @@ -70,6 +70,11 @@ sub findScannerUsbport { @res; } + +sub findScannerScsi { + +} + sub readScannerDB { my ($file) = @_; my ($card, %cards); @@ -80,7 +85,7 @@ sub readScannerDB { my $fs = { LINE => sub { push @{$card->{lines}}, $val }, NAME => sub { - $cards{$card->{type}} = $card if $card; + $cards{$card->{type}} = $card if ($card and !$card->{flags}{unsupported}); $card = { type => $val }; }, SEE => sub { @@ -119,7 +124,7 @@ sub updateScannerDBfromUsbtable { next unless ($mod eq "\"scanner\""); $name =~ s/\"(.*)\"$/$1/; if (member($name, keys %$scanner::scannerDB)) { - print "$name already in ScannerDB\n"; + print "#[$name] already in ScannerDB!\n"; next; } print F "NAME $name\nDRIVER usb\nCOMMENT usb $vendor_id $product_id\nUNSUPPORTED\n\n"; @@ -172,13 +177,12 @@ sub updateScannerDBfromSane { $name = (member($mfg, keys %$sane2DB)) ? (ref $sane2DB->{$mfg}) ? $sane2DB->{$mfg}($name) : "$sane2DB->{$mfg}|$name" : "$mfg|$name"; if (member($name, keys %$scanner::scannerDB)) { - print "#![$name] already in ScannerDB !\n"; + print "#[$name] already in ScannerDB!\n"; } else { print Y "\nNAME $name\nSERVER $backend\nDRIVER $intf\n"; print Y "COMMENT $comment\n" if ($comment); $comment = undef; } - #print "#-----------------------------------------------------------------------------\n"; $name = $val; }, interface => sub {$intf = $val;}, @@ -205,6 +209,11 @@ sub updateScannerDBfromSane { #----------------------------------------------- # $Log$ +# Revision 1.4 2002/02/18 16:16:13 yduret +# scsi parport preliminary support +# no more show unsupported scanner +# common output for ScannerDB update from sane *.desc files and from usbtable +# # Revision 1.3 2001/11/12 15:18:02 yduret # update, sync with cvs # |