summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorYves Duret <yduret@mandriva.com>2002-02-18 16:16:13 +0000
committerYves Duret <yduret@mandriva.com>2002-02-18 16:16:13 +0000
commitc64184d0aefb7e208336c8a56422815e89d4d744 (patch)
treea50ebdfd03c94fd9e6ca235f7fa95c9865c83722 /perl-install
parentd80cdb09af1e15b5c29150b4968c6fee3c783df3 (diff)
downloaddrakx-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')
-rwxr-xr-xperl-install/scanner.pm17
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
#