summaryrefslogtreecommitdiffstats
path: root/perl-install/scanner.pm
diff options
context:
space:
mode:
authorYves Duret <yduret@mandriva.com>2002-02-18 17:34:31 +0000
committerYves Duret <yduret@mandriva.com>2002-02-18 17:34:31 +0000
commitbabfde139c9ddc0bf9e7574c824e2fe611ad4b3d (patch)
tree3b0fe875bcab840014e06e254da661534382d8bd /perl-install/scanner.pm
parent60358ba1ae8dd7a46c4ffbdd64f59bdf8f081c74 (diff)
downloaddrakx-babfde139c9ddc0bf9e7574c824e2fe611ad4b3d.tar
drakx-babfde139c9ddc0bf9e7574c824e2fe611ad4b3d.tar.gz
drakx-babfde139c9ddc0bf9e7574c824e2fe611ad4b3d.tar.bz2
drakx-babfde139c9ddc0bf9e7574c824e2fe611ad4b3d.tar.xz
drakx-babfde139c9ddc0bf9e7574c824e2fe611ad4b3d.zip
update
Diffstat (limited to 'perl-install/scanner.pm')
-rwxr-xr-xperl-install/scanner.pm4
1 files changed, 4 insertions, 0 deletions
diff --git a/perl-install/scanner.pm b/perl-install/scanner.pm
index 0a18acd71..0ddae6c66 100755
--- a/perl-install/scanner.pm
+++ b/perl-install/scanner.pm
@@ -40,6 +40,7 @@ sub confScanner {
my ($model, $port) = @_;
$port = detect_devices::dev_is_devfs() ? "$prefix/dev/usb/scanner0" : "$prefix/dev/scanner" if (!$port);
my $a = $scannerDB->{$model}{server};
+ #print "file:[$a]\t[$model]\t[$port]\n| ", (join "\n| ", @{$scannerDB->{$model}{lines}}),"\n";
output("$_sanedir/$a.conf", (join "\n",@{$scannerDB->{$model}{lines}}));
substInFile {s/\$DEVICE/$port/} "$_sanedir/$a.conf";
add2dll($a);
@@ -209,6 +210,9 @@ sub updateScannerDBfromSane {
#-----------------------------------------------
# $Log$
+# Revision 1.5 2002/02/18 17:34:31 yduret
+# update
+#
# Revision 1.4 2002/02/18 16:16:13 yduret
# scsi parport preliminary support
# no more show unsupported scanner