summaryrefslogtreecommitdiffstats
path: root/perl-install/scanner.pm
Commit message (Expand)AuthorAgeFilesLines
* perl_checker cleanupsThierry Vignaud2012-03-231-6/+6
* Synthesized commit during git-svn import combining previous Mandriva history ...Mageia SVN-Git Migration2011-02-061-1/+1
* (detect) fix keeping around device as seen by detect_devices for frontends (e...Thierry Vignaud2009-04-281-1/+3
* (detect) do not reject scanners handled by 'usbcore' driver (eg: "KODAK|i1320...Thierry Vignaud2009-04-281-1/+1
* (installfirmware) fix a crash when installing firmware (#40738)Thierry Vignaud2009-01-161-0/+1
* perl_checker cleanupsThierry Vignaud2008-12-151-34/+32
* - fixing crash when installing parallel scanner (#36387, #37039)Tiago Salem Herrmann2008-03-111-3/+4
* - Fix to scanner.pm open usbtable.gz instead of usbtable.Tiago Salem Herrmann2008-03-101-1/+1
* bump copyright yearThierry Vignaud2008-01-231-1/+1
* kill svn:executable propertyThierry Vignaud2007-08-101-0/+0
* (detect) export the whole device data as seen by detect_devices since it'sThierry Vignaud2007-06-141-0/+1
* re-sync after the big svn lossPascal Rigaux2007-04-251-6/+5
* - Moved loading of kernel modules before the port checking step, theTill Kamppeter2006-01-201-0/+4
* - Bug fixes in scanner::detect() functionTill Kamppeter2005-08-051-4/+4
* reduce the overall perl_checker warningsThierry Vignaud2005-07-081-8/+8
* - Removed some remaining "Mandrake"s in printerdrake and scannerdrake.Till Kamppeter2005-05-121-2/+2
* switch from MandrakeSoft to Mandriva in copyright noticesThierry Vignaud2005-04-211-1/+1
* - Added support for the new keywords MANUAL, MANUALREQUIRED, and KERNEL in theTill Kamppeter2005-02-191-1/+4
* (detect) blacklist usb devices that have a driver and that are wronglyThierry Vignaud2004-09-141-2/+17
* MandrakeSoft -> MandrakesoftPascal Rigaux2004-07-201-1/+1
* Fixed bug #7242: Firmware was not found by "gt68xx" SANE backend.Till Kamppeter2004-03-011-1/+13
* Removed occurences of "Mandrake" from translateable strings.Till Kamppeter2004-01-211-1/+2
* - Added button for installing/updating firmware in main window (only ifTill Kamppeter2003-12-181-16/+76
* Added facility to install scanner firmware.Till Kamppeter2003-12-151-4/+9
* Let scannerdrake configure non-root access to parallel port scanners automati...Till Kamppeter2003-12-111-0/+94
* Fixed functions for scanner database (ScannerDB) generation.Till Kamppeter2003-09-091-5/+17
* perl_checker compliancePascal Rigaux2003-08-111-2/+2
* perl_checker fixesThierry Vignaud2003-04-301-7/+7
* perl_checker adaptations + fixesPascal Rigaux2003-04-241-2/+2
* new perl_checker compliancePascal Rigaux2003-04-171-12/+12
* fix doble explanation logging of scannerdrake and harddrake startupThierry Vignaud2003-04-041-1/+0
* Bug fixes:Till Kamppeter2003-03-131-5/+37
* perl_checker fixesThierry Vignaud2003-03-061-2/+2
* do not detect some usb webcams as scanners ...Thierry Vignaud2003-03-061-1/+1
* - Fixed confScanner() deleting the config file in some cases.Till Kamppeter2003-02-281-1/+2
* Skip Alcatel Speed Touch ADSL Modem when it is detected by "sane-find-scanner"Till Kamppeter2003-02-261-5/+4
* Replaced "my" by "our" for the declaration of the "ScannerDB" variable, so th...Till Kamppeter2003-02-181-1/+1
* perl_checker fixesThierry Vignaud2003-02-181-12/+14
* - (get_usb_ids_for_port, updateScannerDBfromSane) : simplifyThierry Vignaud2003-02-171-38/+20
* Improved manual scanner configuration, bug fixes.Till Kamppeter2003-02-141-2/+42
* no commentThierry Vignaud2003-02-131-1/+1
* fix drakxtools buildThierry Vignaud2003-02-131-1/+1
* Improved handling and structure of scanner databaseTill Kamppeter2003-02-131-11/+63
* Scannerdrake vastly improvedTill Kamppeter2003-02-121-24/+129
* perl_checker fixesThierry Vignaud2003-02-061-4/+4
* - Fixed Titi's newly introduced bugs. Now scannerdrake works at least asTill Kamppeter2003-02-041-10/+17
* remove unused variables or rename them with an underscore (eg: $o becomes $_o)Pascal Rigaux2002-12-041-1/+1
* $prefix is no good, replace it with $::prefixPascal Rigaux2002-12-041-3/+3
* do not use "local *F", use "my $F" or output() insteadPascal Rigaux2002-12-031-18/+12
* perl_checker adaptationsPascal Rigaux2002-11-271-9/+6
generated by cgit v1.2.1 (git 2.21.0) at 2025-03-03 20:34:52 +0000
xt) { local $::Wizard_no_previous = $page->{no_back}; local $::Wizard_no_cancel = $page->{no_cancel} || $page->{end}; local $::Wizard_finished = $page->{end}; defined $page->{pre} and $page->{pre}($page); die qq(inexistant "$next" wizard step) if is_empty_hash_ref($page); # FIXME or the displaying fails my $data = defined $page->{data} ? (ref($page->{data}) eq 'CODE' ? $page->{data}->() : $page->{data}) : []; my $data2; foreach my $d (@$data) { $d->{val} = ${$d->{val_ref}} if $d->{val_ref}; $d->{list} = $d->{list_ref} if $d->{list_ref}; #$d->{val} = ref($d->{val}) eq 'CODE' ? $d->{val}->() : $d->{val}; if ($d->{boolean_list}) { my $i; foreach (@{$d->{boolean_list}}) { push @$data2, { text => $_, type => 'bool', val => \${$d->{val}}->[$i], disabled => $d->{disabled} }; $i++; } } else { push @$data2, $d; } } my $name = ref($page->{name}) ? $page->{name}->() : $page->{name}; my %yesno = (yes => N("Yes"), no => N("No")); my $yes = ref($page->{default}) eq 'CODE' ? $page->{default}->() : $page->{default}; $data2 = [ { val => \$yes, type => 'list', list => [ keys %yesno ], format => sub { $yesno{$_[0]} }, gtk => { use_boxradio => 1 } } ] if $page->{type} eq "yesorno"; my $a; if (ref $data2 eq 'ARRAY' && @$data2) { $a = $in->ask_from_({ title => $o->{name}, messages => $name, (map { $_ => $page->{$_} || $default_callback{$_} } qw(complete)), if_($page->{interactive_help_id}, interactive_help_id => $page->{interactive_help_id}), }, $data2); } else { $a = $in->ask_okcancel($o->{name}, $name, $yes || 'ok'); } # interactive->ask_yesorno does not support stepping forward or backward: $a = $yes if $a && $page->{type} eq "yesorno"; if ($a) { # step forward: push @steps, $next if !$page->{ignore} && $steps[-1] ne $next; my $current = $next; $next = defined $page->{post} ? $page->{post}($page->{type} eq "yesorno" ? $yes eq 'yes' : $a) : 0; return if $page->{end}; if (!$next) { if (!defined $o->{pages}{$next}) { $next = $page->{next}; } else { die qq(the "$next" page (from previous wizard step) is undefined) if !$next; } } die qq(Step "$current": inexistant "$next" page) if !exists $o->{pages}{$next}; } else { # step back: $next = pop @steps; } $page = $o->{pages}{$next}; } } sub safe_process { my ($o, $in) = @_; eval { $o->process($in) }; my $err = $@; if ($err =~ /wizcancel/) { $in->exit(0); } else { die $err if $err; } } 1;
generated by cgit v1.2.1 (git 2.21.0) at 2025-03-03 20:34:51 +0000