summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/scannerdrake
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/scannerdrake')
-rwxr-xr-xperl-install/standalone/scannerdrake44
1 files changed, 23 insertions, 21 deletions
diff --git a/perl-install/standalone/scannerdrake b/perl-install/standalone/scannerdrake
index 76581674a..3f85fc6c9 100755
--- a/perl-install/standalone/scannerdrake
+++ b/perl-install/standalone/scannerdrake
@@ -27,26 +27,21 @@ use scanner;
$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/;
for (@ARGV) {
/^--version$/ and die 'version: $Id$ '."\n";
- /^--help$/ and die 'logdrake [--version] [--help] [--manual] [--device=dev]';
- /^--update$/ and do {scanner::updateScannerDBfromUsbtable(); quit();};
- /^--manual$/ and main(1);
- /^--device=(.*)$/ and do { $::isFile = ($::File) = $1; next };
+ /^--help$/ and die 'logdrake [--version] [--help] [--manual] [--device=dev] [--update-sane=sane_desc_dir] [--update-usbtable]';
+ /^--update-usbtable$/ and do {scanner::updateScannerDBfromUsbtable(); exit;};
+ /^--update-sane=(.*)$/ and do {scanner::updateScannerDBfromSane($1); exit;};
+ /^--manual$/ and $::Manual=1;
+ /^--device=(.*)$/ and do { $::isFile = ($::File) = $1; next };
}
-main();
-
-sub main {
- $in = 'interactive'->vnew(su, 'default');
- #$in->do_pkgs->install('sane-backends', 'xsane', if_($in->do_pkgs->is_installed('gimp'),'xsane-gimp'));
- if ($_[0]) {
- manual(); quit();
- }
- my $wait = $in->wait_message(_("Test ports"), _("Detecting devices ..."));
- @f = scanner::findScannerUsbport();
- $wait=undef;
- (@f) ? auto() : manual();
- quit();
-}
+$in = 'interactive'->vnew('su', 'default');
+$in->do_pkgs->install('sane-backends', 'xsane', if_($in->do_pkgs->is_installed('gimp'),'xsane-gimp'));
+if ($::Manual) {manual(); quit();}
+my $wait = $in->wait_message(_("Test ports"), _("Detecting devices ..."));
+@f = scanner::findScannerUsbport();
+$wait=undef;
+(@f) ? auto() : manual();
+quit();
sub auto {
foreach (@f) {
@@ -62,19 +57,26 @@ sub auto {
sub manual {
my $s = $in->ask_from_treelist('scannerdrake', _("Select a scanner"), '|', [keys %$scanner::scannerDB]) or return;
# DRIVER usb or scsi
+ #print "$s\n";
tryConfScanner($s);
}
sub dynamic {
+ # return the backend for the device
+ # or do whatis needed !!
}
sub tryConfScanner {
- # take care if interactive ouptut is needed (unsupported..)
+ # take care if interactive ouptut is needed (unsupported, parallel..)
my ($model, $port) = @_;
if ($scanner::scannerDB->{$model}{flags}{unsupported}) {
$in->ask_warn('scannerdrake', _("This %s scanner is unsupported", $model));
return;
}
+ if ($scanner::scannerDB->{$model}{driver} =~ /Parport/) {
+ $in->ask_warn('scannerdrake', _("This %s scanner use parallel port, wich is unsupported for the moment", $model));
+ return;
+ }
scanner::confScanner($model,$port);
}
@@ -84,6 +86,6 @@ sub quit {
#-----------------------------------------------
# $Log$
-# Revision 1.1 2001/10/10 12:45:48 yduret
-# first apparition on earth..
+# Revision 1.2 2001/11/12 15:19:54 yduret
+# update
#