# translation of libDrakX-standalone-bs.po to Bosnian
# translation of bs.po to Bosanski
# translation of DrakX-bs.po to Bosanski
# Copyright (C) 2001, 2003, 2004, 2005, 2006. Free Software Foundation, Inc.
# Amila Akagić <bono@lugbih.org>, 06. 2001.
# Vedran Ljubovic <vljubovic@smartnet.ba>, 2002, 2003, 2004, 2005, 2006.
#
msgid ""
msgstr ""
"Project-Id-Version: libDrakX-standalone-bs\n"
"Report-Msgid-Bugs-To: \n"
"POT-Creation-Date: 2009-02-13 16:30+0100\n"
"PO-Revision-Date: 2006-09-09 19:47+0200\n"
"Last-Translator: Vedran Ljubovic <vljubovic@smartnet.ba>\n"
"Language-Team: Bosnian <lokal@linux.org.ba>\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
"X-Generator: KBabel 1.10.2\n"

#: drakauth:24 drakauth:26 draksec:163
#, c-format
msgid "Authentication"
msgstr "Baza korisnika"

#: drakauth:37 drakclock:111 drakclock:125 drakdvb:72 drakfont:213
#: drakfont:226 drakfont:264 draksplash:202 finish-install:119 logdrake:170
#: logdrake:445 logdrake:450 scannerdrake:59 scannerdrake:101 scannerdrake:142
#: scannerdrake:200 scannerdrake:259 scannerdrake:729 scannerdrake:740
#: scannerdrake:879 scannerdrake:890 scannerdrake:960
#, c-format
msgid "Error"
msgstr "Greška"

#: drakboot:53
#, c-format
msgid "No bootloader found, creating a new configuration"
msgstr "Nije pronađen bootloader, pravim novu konfiguraciju"

#: drakboot:88 harddrake2:197 harddrake2:198 logdrake:71
#, c-format
msgid "/_File"
msgstr "/_Datoteka"

#: drakboot:89 logdrake:77
#, c-format
msgid "/File/_Quit"
msgstr "/Datoteka/_Izlaz"

#: drakboot:89 harddrake2:198 logdrake:77
#, c-format
msgid "<control>Q"
msgstr "<control>Q"

#: drakboot:129
#, c-format
msgid "Text only"
msgstr "Samo tekst"

#: drakboot:130
#, c-format
msgid "Verbose"
msgstr "Opširno"

#: drakboot:131
#, c-format
msgid "Silent"
msgstr "Bez ispisa"

#: drakboot:137 drakbug:254 drakdvb:57 drakfont:682 drakperm:376 drakperm:386
#: drakups:27 harddrake2:516 localedrake:43 notify-x11-free-driver-switch:15
#: scannerdrake:51 scannerdrake:54 scannerdrake:297 scannerdrake:302
#: scannerdrake:954
#, c-format
msgid "Warning"
msgstr "Upozorenje"

#: drakboot:138
#, c-format
msgid ""
"Your system bootloader is not in framebuffer mode. To activate graphical "
"boot, select a graphic video mode from the bootloader configuration tool."
msgstr ""
"Vaš sistemski bootloader nije u framebuffer modu. Da aktivirate grafički "
"boot, izaberite grafički video režim iz alata za podešavanje bootloadera."

#: drakboot:139
#, c-format
msgid "Do you want to configure it now?"
msgstr "Želite li ga sada podesiti ?"

#: drakboot:148
#, c-format
msgid "Install themes"
msgstr "Instaliraj teme"

#: drakboot:150
#, c-format
msgid "Graphical boot theme selection"
msgstr "Izbor grafičke boot teme"

#: drakboot:153
#, c-format
msgid "Graphical boot mode:"
msgstr "Režim grafičkog pokretanja:"

#: drakboot:155
#, c-format
msgid "Theme"
msgstr "Tema"

#: drakboot:158
#, c-format
msgid ""
"Display theme\n"
"under console"
msgstr ""
"Tema prikaza\n"
"pod konzolom"

#: drakboot:163 draksplash:26
#, c-format
msgid "Create new theme"
msgstr "Napravi novu temu"

#: drakboot:195
#, c-format
msgid "Default user"
msgstr "Korisnik"

#: drakboot:196
#, c-format
msgid "Default desktop"
msgstr "Desktop"

#: drakboot:199
#, c-format
msgid "No, I do not want autologin"
msgstr "Ne, ne želim da se automatski prijavim"

#: drakboot:200
#, c-format
msgid "Yes, I want autologin with this (user, desktop)"
msgstr ""
"Da, želim da se automatski prijavim sa ovim vrijednostima (korisnik, desktop)"

#: drakboot:207
#, c-format
msgid "System mode"
msgstr "Sistemske opcije"

#: drakboot:210
#, c-format
msgid "Launch the graphical environment when your system starts"
msgstr "Pokreni X-Window sistem na startu"

#: drakboot:262
#, c-format
msgid "Boot Style Configuration"
msgstr "Konfiguracija stila boota"

#: drakboot:264 drakboot:268
#, c-format
msgid "Video mode"
msgstr "Video režim"

#: drakboot:265
#, c-format
msgid ""
"Please choose a video mode, it will be applied to each of the boot entries "
"selected below.\n"
"Be sure your video card supports the mode you choose."
msgstr ""
"Molim izaberite video režim, on će biti primjenjen na svaku od boot stavki "
"izabranih ispod.\n"
"Provjerite da li vaša video kartica podržava taj režim prije nego što "
"izaberete!"

#: drakbug:65 drakbug:152
#, c-format
msgid "The \"%s\" program has crashed with the following error:"
msgstr ""

#: drakbug:76
#, c-format
msgid "Mandriva Linux Bug Report Tool"
msgstr "Mandriva Linux alat za prijavu bugova"

#: drakbug:81
#, c-format
msgid "Mandriva Linux Control Center"
msgstr "Mandriva Linux Kontrolni centar"

#: drakbug:82
#, c-format
msgid "First Time Wizard"
msgstr "Čarobnjak za prvo pokretanje"

#: drakbug:83
#, c-format
msgid "Synchronization tool"
msgstr "Alat za sinhroniziranje"

#: drakbug:84 drakbug:216
#, c-format
msgid "Standalone Tools"
msgstr "Samostalni alati"

#: drakbug:86 drakbug:87
#, c-format
msgid "Mandriva Online"
msgstr "Mandriva Online"

#: drakbug:88
#, c-format
msgid "Remote Control"
msgstr "Udaljena kontrola"

#: drakbug:89
#, c-format
msgid "Software Manager"
msgstr "Upravljanje programima"

#: drakbug:90
#, c-format
msgid "Windows Migration tool"
msgstr "Alat za Windows migraciju"

#: drakbug:91
#, c-format
msgid "Configuration Wizards"
msgstr "Čarobnjaci za podešavanje"

#: drakbug:113
#, c-format
msgid "Select Mandriva Tool:"
msgstr "Izaberite Mandriva alat:"

#: drakbug:114
#, c-format
msgid ""
"or Application Name\n"
"(or Full Path):"
msgstr ""
"ili Ime programa\n"
"(ili puni put):"

#: drakbug:117
#, c-format
msgid "Find Package"
msgstr "Nađi paket"

#: drakbug:119
#, c-format
msgid "Package: "
msgstr "Paket:"

#: drakbug:120
#, c-format
msgid "Kernel:"
msgstr "Kernel:"

#: drakbug:151
#, c-format
msgid "The \"%s\" program has segfaulted with the following error:"
msgstr ""

#: drakbug:155
#, c-format
msgid "Its GDB trace is:"
msgstr ""

#: drakbug:158
#, fuzzy, c-format
msgid ""
"To submit a bug report, click on the report button.  \n"
"This will open a web browser window on %s where you'll find a form to fill "
"in.  The information displayed above will be transferred to that server"
msgstr ""
"Da prijavite bug, kliknite na dugme Prijavi.\n"
"Ovo će otvoriti prozor web browsera na adresi %s gdje ćete pronaći formular "
"koji treba popuniti. Gore prikazane informacije će biti poslane na taj "
"server.\n"
"Korisne stvari koje možete uključiti u vaš izvještaj su izlaz naredbe "
"lspcidrake -vdrake -v, verzija kernela i sadržaj datoteke /proc/cpuinfo."

#: drakbug:160
#, c-format
msgid ""
"It would be very useful to attach to your report the output of the following "
"command: %s."
msgid_plural ""
"Things useful to attach to your report are the output of the following "
"commands: %s."
msgstr[0] ""
msgstr[1] ""

#: drakbug:163
#, c-format
msgid "'%s'"
msgstr ""

#: drakbug:166
#, fuzzy, c-format
msgid "You should also attach the following files: %s as well as %s."
msgstr "Trebate instalirati sljedeće pakete: %s"

#: drakbug:173
#, c-format
msgid "Please describe what you were doing when it crashed:"
msgstr ""

#: drakbug:185 drakperm:136
#, c-format
msgid "Help"
msgstr "Pomoć"

#: drakbug:189
#, c-format
msgid "Report"
msgstr "Izvještaj"

#: drakbug:190 drakfont:506
#, c-format
msgid "Close"
msgstr "Zatvori"

#: drakbug:223
#, c-format
msgid "Not installed"
msgstr "Nije instaliran"

#: drakbug:236
#, c-format
msgid "Package not installed"
msgstr "Paket nije instaliran"

#: drakbug:255
#, c-format
msgid ""
"You must type in what you were doing when this bug happened in order to "
"enable us to reproduce this bug and to increase the odds of fixing it"
msgstr ""

#: drakbug:256
#, c-format
msgid "Thanks."
msgstr ""

#: drakclock:30 draksec:169
#, c-format
msgid "Date, Clock & Time Zone Settings"
msgstr "Postavke datuma, sata i vremenske zone"

#: drakclock:39
#, c-format
msgid "not defined"
msgstr "nije definisana"

#: drakclock:41
#, c-format
msgid "Change Time Zone"
msgstr "Promijenite vremensku zonu"

#: drakclock:44
#, c-format
msgid "Timezone - DrakClock"
msgstr "Vremenska zona - DrakClock"

#: drakclock:44
#, c-format
msgid "Which is your timezone?"
msgstr "Koja je vaša vremenska zona?"

#: drakclock:45
#, c-format
msgid "GMT - DrakClock"
msgstr "GMT - DrakClock"

#: drakclock:45
#, c-format
msgid "Is your hardware clock set to GMT?"
msgstr "Da li je vaš hardverski sat podešen na GMT?"

#: drakclock:70
#, c-format
msgid "Network Time Protocol"
msgstr "Network Time Protocol"

#: drakclock:72
#, c-format
msgid ""
"Your computer can synchronize its clock\n"
" with a remote time server using NTP"
msgstr ""
"Vaš računar može sinhronizovati svoj sat\n"
"sa vremenskim serverom koristeći NTP"

#: drakclock:73
#, c-format
msgid "Enable Network Time Protocol"
msgstr "Uključi Network Time Protocol"

#: drakclock:81
#, c-format
msgid "Server:"
msgstr "Server:"

#: drakclock:95
#, c-format
msgid "Timezone"
msgstr "Vremenska zona"

#: drakclock:111
#, c-format
msgid "Please enter a valid NTP server address."
msgstr "Molim unesite ispravnu adresu NTP servera."

#: drakclock:126
#, c-format
msgid "Could not synchronize with %s."
msgstr "Ne mogu sinhronizovati sa %s."

#: drakclock:127 drakdvb:122 draksplash:125 logdrake:175 scannerdrake:491
#, c-format
msgid "Quit"
msgstr "Izlaz"

#: drakclock:128
#, c-format
msgid "Retry"
msgstr "Pokušaj ponovo"

#: drakclock:151 drakclock:161
#, c-format
msgid "Reset"
msgstr "Poništi"

#: drakdvb:30
#, fuzzy, c-format
msgid "DVB"
msgstr "DVD"

#: drakdvb:39 harddrake2:100
#, c-format
msgid "Channel"
msgstr "Kanal"

#: drakdvb:57
#, c-format
msgid "%s already exists and its contents will be lost"
msgstr ""

#: drakdvb:72
#, c-format
msgid "Could not get the list of available channels"
msgstr ""

#: drakdvb:78 draksec:73 drakups:99 harddrake2:370 scannerdrake:66
#: scannerdrake:70 scannerdrake:78 scannerdrake:319 scannerdrake:368
#: scannerdrake:504 scannerdrake:508 scannerdrake:530 service_harddrake:264
#, c-format
msgid "Please wait"
msgstr "Molim sačekajte"

#: drakdvb:82
#, c-format
msgid "Detecting DVB channels, this will take a few minutes"
msgstr ""

#: drakdvb:83 drakfont:572 drakfont:652 drakfont:736 draksplash:213
#: drakups:217 logdrake:175
#, c-format
msgid "Cancel"
msgstr "Odustani"

#: drakdvb:121
#, fuzzy, c-format
msgid "Detect Channels"
msgstr "Kanal"

#: drakdvb:123
#, fuzzy, c-format
msgid "View Channel"
msgstr "Kanal"

#: drakedm:41
#, c-format
msgid "GDM (GNOME Display Manager)"
msgstr "GDM (GNOME Display Manager)"

#: drakedm:42
#, c-format
msgid "KDM (KDE Display Manager)"
msgstr "KDM (KDE Display Manager)"

#: drakedm:43
#, c-format
msgid "XDM (X Display Manager)"
msgstr "XDM (X Display Manager)"

#: drakedm:54
#, c-format
msgid "Choosing a display manager"
msgstr "Izbor display managera"

#: drakedm:55
#, c-format
msgid ""
"X11 Display Manager allows you to graphically log\n"
"into your system with the X Window System running and supports running\n"
"several different X sessions on your local machine at the same time."
msgstr ""
"X11 Display Manager vam omogućuje da se grafički prijavite na vaš sistem uz "
"pokretanje X Window Systema, a podržava i nekoliko različitih X sesija na "
"vašem lokalnom računaru u isto vrijeme."

#: drakedm:74
#, c-format
msgid "The change is done, do you want to restart the dm service?"
msgstr "Izmjena je primijenjena, želite li sada restartovati servis dm?"

#: drakedm:75
#, c-format
msgid ""
"You are going to close all running programs and lose your current session. "
"Are you really sure that you want to restart the dm service?"
msgstr ""
"Sada ćete zatvoriti sve pokrenute programe i izgubiti vašu sesiju. Da li ste "
"stvarno sigurni da želite restartovati dm servis ?"

#: drakfont:187
#, c-format
msgid "Search installed fonts"
msgstr "Pretraži instalirane fontove"

#: drakfont:189
#, c-format
msgid "Unselect fonts installed"
msgstr "Isključi instalirane fontove"

#: drakfont:213
#, c-format
msgid "No fonts found"
msgstr "Nije pronađen nijedan font"

#: drakfont:217
#, c-format
msgid "parse all fonts"
msgstr "obradi sve fontove"

#: drakfont:222 drakfont:263 drakfont:338 drakfont:379 drakfont:383
#: drakfont:409 drakfont:427 drakfont:435
#, c-format
msgid "done"
msgstr "gotovo"

#: drakfont:226
#, c-format
msgid "Could not find any font in your mounted partitions"
msgstr "Ne mogu naći nijedan font na montiranim particijama"

#: drakfont:261
#, c-format
msgid "Reselect correct fonts"
msgstr "Ponovo izaberi ispravne fontove"

#: drakfont:264
#, c-format
msgid "Could not find any font.\n"
msgstr "Ne mogu naći nijedan font.\n"

#: drakfont:274
#, c-format
msgid "Search for fonts in installed list"
msgstr "Pretraži fontove na listi instaliranih"

#: drakfont:298
#, c-format
msgid "%s fonts conversion"
msgstr "konverzija %s fontova"

#: drakfont:336
#, c-format
msgid "Fonts copy"
msgstr "Kopiranje fontova"

#: drakfont:339
#, c-format
msgid "True Type fonts installation"
msgstr "Instalacija True Type fontova"

#: drakfont:347
#, c-format
msgid "please wait during ttmkfdir..."
msgstr "molim sačekajte tokom ttmkfdir..."

#: drakfont:348
#, c-format
msgid "True Type install done"
msgstr "Završena True Type instalacija"

#: drakfont:354 drakfont:369
#, c-format
msgid "type1inst building"
msgstr "type1inst kreiranje"

#: drakfont:363
#, c-format
msgid "Ghostscript referencing"
msgstr "Ghostscript referenciranje"

#: drakfont:380
#, c-format
msgid "Suppress Temporary Files"
msgstr "Onemogući privremene datoteke"

#: drakfont:425 drakfont:431
#, c-format
msgid "Suppress Fonts Files"
msgstr "Onemogući datoteke fontova"

#: drakfont:439
#, c-format
msgid ""
"Before installing any fonts, be sure that you have the right to use and "
"install them on your system.\n"
"\n"
"You can install the fonts the normal way. In rare cases, bogus fonts may "
"hang up your X Server."
msgstr ""
"Before installing any fonts, be sure that you have the right to use and "
"install them on your system.\n"
"\n"
"You can install the fonts the normal way. In rare cases, bogus fonts may "
"hang up your X Server."

#: drakfont:478
#, c-format
msgid "Font Installation"
msgstr "Instalacija fontova"

#: drakfont:489
#, c-format
msgid "DrakFont"
msgstr "DrakFont"

#: drakfont:490 drakfont:642
#, c-format
msgid "Font List"
msgstr "Lista fontova"

#: drakfont:493
#, c-format
msgid "Get Windows Fonts"
msgstr "Preuzmi Windows fontove"

#: drakfont:499
#, c-format
msgid "About"
msgstr "O programu"

#: drakfont:500 drakfont:541
#, c-format
msgid "Options"
msgstr "Opcije"

#: drakfont:501 drakfont:721
#, c-format
msgid "Uninstall"
msgstr "Deinstaliraj"

#: drakfont:502
#, c-format
msgid "Import"
msgstr "Uvezi"

#: drakfont:520
#, c-format
msgid "Drakfont"
msgstr "Drakfont"

#: drakfont:522 harddrake2:235
#, c-format
msgid "Copyright (C) %s by Mandriva"
msgstr "Copyright (C) %s Mandriva"

#: drakfont:524
#, c-format
msgid "Font installer."
msgstr "Instalacija fontova."

#: drakfont:526 harddrake2:239
#, c-format
msgid "Mandriva Linux"
msgstr "Mandriva Linux"

#. -PO: put here name(s) and email(s) of translator(s) (eg: "John Smith <jsmith@nowhere.com>")
#. -PO: put here name(s) and email(s) of translator(s) (eg: "John Smith <jsmith@nowhere.com>")
#: drakfont:533 harddrake2:244
#, c-format
msgid "_: Translator(s) name(s) & email(s)\n"
msgstr "Vedran Ljubovic <vljubovic@smartnet.ba>\n"

#: drakfont:543
#, c-format
msgid "Choose the applications that will support the fonts:"
msgstr "Izaberite programe koji će podržavati fontove :"

#: drakfont:554
#, c-format
msgid "Ghostscript"
msgstr "Ghostscript"

#: drakfont:555
#, c-format
msgid "OpenOffice.org"
msgstr "OpenOffice.org"

#: drakfont:556
#, c-format
msgid "Abiword"
msgstr "Abiword"

#: drakfont:557
#, c-format
msgid "Generic Printers"
msgstr "Razni štampači"

#: drakfont:562 drakfont:572 draksplash:213 drakups:210
#, c-format
msgid "Ok"
msgstr "U redu"

#: drakfont:571
#, c-format
msgid "Select the font file or directory and click on 'Add'"
msgstr "Izaberite font datoteku ili direktorij i kliknite na 'Dodaj'"

#: drakfont:572
#, c-format
msgid "File Selection"
msgstr "Izbor datoteka"

#: drakfont:576
#, c-format
msgid "Fonts"
msgstr "Slova"

#: drakfont:640 draksec:165
#, c-format
msgid "Import fonts"
msgstr "Uvoz fontova"

#: drakfont:646 drakups:299 drakups:361 drakups:381
#, c-format
msgid "Add"
msgstr "Dodaj"

#: drakfont:647 drakfont:735 drakups:301 drakups:363 drakups:383
#, c-format
msgid "Remove"
msgstr "Ukloni"

#: drakfont:653
#, c-format
msgid "Install"
msgstr "Instalacija"

#: drakfont:684
#, c-format
msgid "Are you sure you want to uninstall the following fonts?"
msgstr "Da li ste sigurni da želite deinstalirati sljedeće fontove?"

#: drakfont:688 draksec:60 harddrake2:324
#, c-format
msgid "Yes"
msgstr "Da"

#: drakfont:690 draksec:59 harddrake2:325
#, c-format
msgid "No"
msgstr "Ne"

#: drakfont:729
#, c-format
msgid "Unselect All"
msgstr "Ništa izabrano"

#: drakfont:732
#, c-format
msgid "Select All"
msgstr "Sve izabrano"

#: drakfont:749
#, c-format
msgid "Importing fonts"
msgstr "Uvoz fontova"

#: drakfont:753 drakfont:773
#, c-format
msgid "Initial tests"
msgstr "Probni inicijali"

#: drakfont:754
#, c-format
msgid "Copy fonts on your system"
msgstr "Kopiraj fontove na sistem"

#: drakfont:755
#, c-format
msgid "Install & convert Fonts"
msgstr "Instaliraj i konvertuj fontove"

#: drakfont:756
#, c-format
msgid "Post Install"
msgstr "Post Install"

#: drakfont:768
#, fuzzy, c-format
msgid "Removing fonts"
msgstr "Uvoz fontova"

#: drakfont:774
#, c-format
msgid "Remove fonts on your system"
msgstr "Pobriši fontove sa mog sistema"

#: drakfont:775
#, c-format
msgid "Post Uninstall"
msgstr "Post Uninstall"

#: drakhelp:17
#, c-format
msgid ""
" drakhelp 0.1\n"
"Copyright (C) %s Mandriva.\n"
"This is free software and may be redistributed under the terms of the GNU "
"GPL.\n"
"\n"
"Usage: \n"
msgstr ""
" drakhelp 0.1\n"
"Copyright (C) %s Mandriva.\n"
"Ovo je slobodan softver i može se distribuirati pod uslovima GNU GPLa.\n"
"\n"
"Upotreba: \n"

#: drakhelp:22
#, c-format
msgid " --help                - display this help     \n"
msgstr " --help                - prikazuje ovu pomoć     \n"

#: drakhelp:23
#, c-format
msgid ""
" --id <id_label>       - load the html help page which refers to id_label\n"
msgstr ""
" --id <id_label>       - učitaj HTML help stranicu koja se odnosi na "
"id_label\n"

#: drakhelp:24
#, c-format
msgid ""
" --doc <link>          - link to another web page ( for WM welcome "
"frontend)\n"
msgstr ""
" --doc <link>          - link na drugu web stranicu ( za WM pozdravni "
"ekran)\n"

#: drakhelp:52
#, c-format
msgid "Mandriva Linux Help Center"
msgstr "Mandriva Linux Centar za pomoć"

#: drakhelp:52
#, c-format
msgid "No Help entry for %s\n"
msgstr "Nema Pomoći za %s\n"

#: drakperm:23
#, c-format
msgid "System settings"
msgstr "Sistemske postavke"

#: drakperm:24
#, c-format
msgid "Custom settings"
msgstr "Vlastite postavke"

#: drakperm:25
#, c-format
msgid "Custom & system settings"
msgstr "Vlastite i sistemske postavke"

#: drakperm:33
#, c-format
msgid "Security Permissions"
msgstr "Sigurnosne permisije"

#: drakperm:45
#, c-format
msgid "Editable"
msgstr "Izmjenljivo"

#: drakperm:50 drakperm:320
#, c-format
msgid "Path"
msgstr "Staza"

#: drakperm:50 drakperm:249
#, c-format
msgid "User"
msgstr "Korisnik"

#: drakperm:50 drakperm:249
#, c-format
msgid "Group"
msgstr "Grupa"

#: drakperm:50 drakperm:109 drakperm:332 draksec:180
#, c-format
msgid "Permissions"
msgstr "Privilegije"

#: drakperm:60
#, c-format
msgid "Add a new rule"
msgstr "Dodaj novo pravilo"

#: drakperm:67 drakperm:102 drakperm:128
#, c-format
msgid "Edit current rule"
msgstr "Izmijeni trenutno pravilo"

#: drakperm:110
#, c-format
msgid ""
"Here you can see files to use in order to fix permissions, owners, and "
"groups via msec.\n"
"You can also edit your own rules which will owerwrite the default rules."
msgstr ""
"Ovdje možete pregledati datoteke koje se koriste radi promjene privilegija, "
"vlasnika i grupa putem msec-a.\n"
"Možete također stvoriti vaša vlastita pravila koja će prepisati ranije "
"podešena pravila."

#: drakperm:112
#, c-format
msgid ""
"The current security level is %s.\n"
"Select permissions to see/edit"
msgstr ""
"Trenutni nivo sigurnisti je %s.\n"
"Izaberite koje privilegije želite vidjeti/izmijeniti"

#: drakperm:124
#, c-format
msgid "Up"
msgstr "Gore"

#: drakperm:124
#, c-format
msgid "Move selected rule up one level"
msgstr "Pomjeri izabrano pravilo za jedan nivo gore"

#: drakperm:125
#, c-format
msgid "Down"
msgstr "Dolje"

#: drakperm:125
#, c-format
msgid "Move selected rule down one level"
msgstr "Pomjeri izabrano pravilo dole za jedan nivo"

#: drakperm:126
#, c-format
msgid "Add a rule"
msgstr "Dodaj pravilo"

#: drakperm:126
#, c-format
msgid "Add a new rule at the end"
msgstr "Dodaj novo pravilo na kraj"

#: drakperm:127
#, c-format
msgid "Delete"
msgstr "Obriši"

#: drakperm:127
#, c-format
msgid "Delete selected rule"
msgstr "Obriši izabrano pravilo"

#: drakperm:128 drakups:300 drakups:362 drakups:382
#, c-format
msgid "Edit"
msgstr "Izmijeni"

#: drakperm:241
#, c-format
msgid "browse"
msgstr "pregledaj"

#: drakperm:246
#, c-format
msgid "user"
msgstr "korisnik"

#: drakperm:246
#, c-format
msgid "group"
msgstr "grupa"

#: drakperm:246
#, c-format
msgid "other"
msgstr "ostali"

#: drakperm:249
#, c-format
msgid "Other"
msgstr "Ostalo"

#: drakperm:251
#, c-format
msgid "Read"
msgstr "Čitaj"

#. -PO: here %s will be either "user", "group" or "other"
#: drakperm:254
#, c-format
msgid "Enable \"%s\" to read the file"
msgstr "Omogući \"%s\" da čita datoteku"

#: drakperm:258
#, c-format
msgid "Write"
msgstr "Zapiši"

#. -PO: here %s will be either "user", "group" or "other"
#: drakperm:261
#, c-format
msgid "Enable \"%s\" to write the file"
msgstr "Omogući \"%s\" da piše u datoteku"

#: drakperm:265
#, c-format
msgid "Execute"
msgstr "Izvrši"

#. -PO: here %s will be either "user", "group" or "other"
#: drakperm:268
#, c-format
msgid "Enable \"%s\" to execute the file"
msgstr "Uključite \"%s\" da izvršite datoteku"

#: drakperm:271
#, c-format
msgid "Sticky-bit"
msgstr "Sticky-bit"

#: drakperm:271
#, c-format
msgid ""
"Used for directory:\n"
" only owner of directory or file in this directory can delete it"
msgstr ""
"Koristi se za direktorij:\n"
" samo vlasnik tog direktorija ili datoteke u ovom direktoriju ga može "
"obrisati"

#: drakperm:272
#, c-format
msgid "Set-UID"
msgstr "Set-UID"

#: drakperm:272
#, c-format
msgid "Use owner id for execution"
msgstr "Koristi id vlasnika za izvršavanje"

#: drakperm:273
#, c-format
msgid "Set-GID"
msgstr "Set-GID"

#: drakperm:273
#, c-format
msgid "Use group id for execution"
msgstr "Koristi id grupe za izvršavanje"

#: drakperm:290
#, c-format
msgid "User:"
msgstr "Korisnik :"

#: drakperm:291
#, c-format
msgid "Group:"
msgstr "Grupa :"

#: drakperm:295
#, c-format
msgid "Current user"
msgstr "Trenutni korisnik"

#: drakperm:296
#, c-format
msgid "When checked, owner and group will not be changed"
msgstr "Kada je uključeno, vlasnik i grupa se ne mogu promijeniti"

#: drakperm:306
#, c-format
msgid "Path selection"
msgstr "Izbor staze"

#: drakperm:326
#, c-format
msgid "Property"
msgstr "Osobina"

#: drakperm:376
#, c-format
msgid ""
"The first character of the path must be a slash (\"/\"):\n"
"\"%s\""
msgstr ""
"Prvi karakter puta mora biti slash (\"/\"):\n"
"\"%s\""

#: drakperm:386
#, c-format
msgid "Both the username and the group must valid!"
msgstr "I korisničko ime i grupa moraju biti ispravni!"

#: drakperm:387
#, c-format
msgid "User: %s"
msgstr "Korisnik: %s"

#: drakperm:388
#, c-format
msgid "Group: %s"
msgstr "Grupa: %s"

#: draksec:54
#, c-format
msgid "ALL"
msgstr "SVE"

#: draksec:55
#, c-format
msgid "LOCAL"
msgstr "LOCAL"

#: draksec:56
#, c-format
msgid "NONE"
msgstr "NIŠTA"

#: draksec:57
#, c-format
msgid "Default"
msgstr "Default"

#: draksec:58
#, c-format
msgid "Ignore"
msgstr "Ignoriši"

#: draksec:91
#, c-format
msgid "Security Level and Checks"
msgstr "Nivo sigurnosti i provjere"

#: draksec:114
#, c-format
msgid "Configure authentication required to access Mandriva tools"
msgstr ""

#: draksec:117
#, c-format
msgid "No password"
msgstr "Bez šifre"

#: draksec:118
#, c-format
msgid "Root password"
msgstr ""

#: draksec:119
#, c-format
msgid "User password"
msgstr ""

#: draksec:149 draksec:203
#, c-format
msgid "Software Management"
msgstr "Programi"

#: draksec:150
#, fuzzy, c-format
msgid "Mandriva Update"
msgstr "Mandriva Online"

#: draksec:151
#, c-format
msgid "Software Media Manager"
msgstr "Upravitelj medijima softvera"

#: draksec:152
#, c-format
msgid "Configure 3D Desktop effects"
msgstr "Podesite 3D desktop efekte"

#: draksec:153
#, fuzzy, c-format
msgid "Graphical Server Configuration"
msgstr "Podešavanje Mail obavijesti"

#: draksec:154
#, fuzzy, c-format
msgid "Mouse Configuration"
msgstr "Ručno podešavanje"

#: draksec:155
#, fuzzy, c-format
msgid "Keyboard Configuration"
msgstr "Podešavanje hardvera"

#: draksec:156
#, fuzzy, c-format
msgid "UPS Configuration"
msgstr "Podešavanje UPS drajvera"

#: draksec:157
#, fuzzy, c-format
msgid "Network Configuration"
msgstr "Postavke upozorenja"

#: draksec:158
#, c-format
msgid "Hosts definitions"
msgstr "Hosts definicije"

#: draksec:159
#, fuzzy, c-format
msgid "Network Center"
msgstr "Mreža i Internet"

#: draksec:160
#, c-format
msgid "VPN"
msgstr ""

#: draksec:161
#, c-format
msgid "Proxy Configuration"
msgstr "Podešavanje proxy-ja"

#: draksec:162
#, fuzzy, c-format
msgid "Connection Sharing"
msgstr "Konekcija"

#: draksec:164
#, c-format
msgid "Backups"
msgstr "Backup"

#: draksec:166 logdrake:52
#, c-format
msgid "Logs"
msgstr "Logovi"

#: draksec:167
#, c-format
msgid "Services"
msgstr "Servisi"

#: draksec:168
#, fuzzy, c-format
msgid "Users"
msgstr "Korisnik"

#: draksec:170
#, fuzzy, c-format
msgid "Boot Configuration"
msgstr "Postavke upozorenja"

#: draksec:204
#, c-format
msgid "Hardware"
msgstr "Hardware"

#: draksec:205
#, fuzzy, c-format
msgid "Network"
msgstr "Mrežne opcije"

#: draksec:206
#, c-format
msgid "System"
msgstr "Sistem"

#: draksec:207
#, c-format
msgid "Boot"
msgstr "Boot"

#: draksound:48
#, c-format
msgid "No Sound Card detected!"
msgstr "Nije izabrana zvučna kartica!"

#. -PO: keep the double empty lines between sections, this is formatted a la LaTeX
#: draksound:51
#, c-format
msgid ""
"No Sound Card has been detected on your machine. Please verify that a Linux-"
"supported Sound Card is correctly plugged in.\n"
"\n"
"\n"
"You can visit our hardware database at:\n"
"\n"
"\n"
"http://www.mandrivalinux.com/en/hardware.php3"
msgstr ""
"Nije pronađena nijedna zvučna kartica na vašoj mašini. Molim provjerite da "
"li je ispravno spojena zvučna kartica koja je podržana pod Linuxom.\n"
"\n"
"\n"
"Možete posjetiti našu bazu hardvera na:\n"
"\n"
"\n"
"http://www.mandrivalinux.com/en/hardware.php3"

#: draksound:58
#, c-format
msgid ""
"\n"
"\n"
"\n"
"Note: if you've an ISA PnP sound card, you'll have to use the alsaconf or "
"the sndconfig program.  Just type \"alsaconf\" or \"sndconfig\" in a console."
msgstr ""
"\n"
"\n"
"\n"
"Napomena: ako imate ISA PnP zvučnu karticu, moraćete koristiti alsaconf ili "
"sndconfig program.  Samo ukucajte \"alsaconf\" ili \"sndconfig\" na konzoli."

#: draksplash:33
#, c-format
msgid "X coordinate of text box"
msgstr "X koordinata tekstualnog polja"

#: draksplash:34
#, c-format
msgid "Y coordinate of text box"
msgstr "Y koordinata tekstualnog polja"

#: draksplash:35
#, c-format
msgid "Text box width"
msgstr "Širina tekstualnog polja"

#: draksplash:36
#, c-format
msgid "Text box height"
msgstr "Visina tekstualnog polja"

#: draksplash:37
#, c-format
msgid ""
"The progress bar X coordinate\n"
"of its upper left corner"
msgstr ""
"X koordinata indikatora napretka \n"
"tj. njegovog gornjeg lijevog ugla"

#: draksplash:38
#, c-format
msgid ""
"The progress bar Y coordinate\n"
"of its upper left corner"
msgstr ""
"Y koordinata indikatora napretka \n"
"tj. njegovog gornjeg lijevog ugla"

#: draksplash:39
#, c-format
msgid "The width of the progress bar"
msgstr "Širina indikatora napretka"

#: draksplash:40
#, c-format
msgid "The height of the progress bar"
msgstr "Visina indikatora napretka"

#: draksplash:41
#, c-format
msgid "X coordinate of the text"
msgstr "X koordinata teksta"

#: draksplash:42
#, c-format
msgid "Y coordinate of the text"
msgstr "Y koordinata teksta"

#: draksplash:43
#, c-format
msgid "Text box transparency"
msgstr "Prozirnost tekstualnog polja"

#: draksplash:44
#, c-format
msgid "Progress box transparency"
msgstr "Prozirnost indikatora napretka"

#: draksplash:45
#, c-format
msgid "Text size"
msgstr "Veličina teksta"

#: draksplash:62
#, c-format
msgid "Progress Bar"
msgstr ""

#: draksplash:65
#, c-format
msgid "Choose progress bar color 1"
msgstr "Izaberite boju 1 indikatora napretka"

#: draksplash:67
#, c-format
msgid "Choose progress bar color 2"
msgstr "Izaberite boju 2 indikatora napretka"

#: draksplash:69
#, c-format
msgid "Choose progress bar background"
msgstr "Izaberite pozadinu indikatora napretka"

#: draksplash:72
#, c-format
msgid "Gradient type"
msgstr "Vrsta prelaza boja"

#: draksplash:78
#, fuzzy, c-format
msgid "Text"
msgstr "Samo tekst"

#: draksplash:80
#, c-format
msgid "Choose text color"
msgstr "Izaberite boju teksta"

#: draksplash:83 draksplash:102
#, c-format
msgid "Choose picture"
msgstr "Izaberite sliku"

#: draksplash:87
#, c-format
msgid "Silent bootsplash"
msgstr "Startni ekran bez poruka"

#: draksplash:90
#, c-format
msgid "Choose text zone color"
msgstr "Izaberite boju tekst zone"

#: draksplash:93
#, c-format
msgid "Text color"
msgstr "Boja teksta"

#: draksplash:97
#, c-format
msgid "Background color"
msgstr "Boja pozadine"

#: draksplash:103
#, c-format
msgid "Verbose bootsplash"
msgstr "Startni ekran sa porukama"

#: draksplash:110
#, c-format
msgid "Theme name"
msgstr "Naziv teme"

#: draksplash:115
#, c-format
msgid "Final resolution"
msgstr "Krajnja rezolucija"

#: draksplash:119
#, c-format
msgid "Display logo on Console"
msgstr "Prikaži logo na konzoli"

#: draksplash:124
#, c-format
msgid "Save theme"
msgstr "Snimi temu"

#: draksplash:187
#, c-format
msgid "Please enter a theme name"
msgstr "Molimo unesite naziv teme"

#: draksplash:190
#, c-format
msgid "Please select a splash image"
msgstr "Molim izaberite sliku za startni ekran"

#: draksplash:193
#, c-format
msgid "saving Bootsplash theme..."
msgstr "snimam Bootsplash temu..."

#: draksplash:202
#, c-format
msgid "Unable to load image file %s"
msgstr "Ne mogu učitati sliku %s"

#: draksplash:213
#, c-format
msgid "choose image"
msgstr "izaberite sliku"

#: draksplash:228
#, c-format
msgid "Color selection"
msgstr "Izbor boje"

#: drakups:71
#, c-format
msgid "Connected through a serial port or an usb cable"
msgstr "Spojen putem serijskog porta ili USB kabla"

#: drakups:72
#, c-format
msgid "Manual configuration"
msgstr "Ručno podešavanje"

#: drakups:78
#, c-format
msgid "Add an UPS device"
msgstr "Dodaj UPS uređaj"

#: drakups:81
#, c-format
msgid ""
"Welcome to the UPS configuration utility.\n"
"\n"
"Here, you'll add a new UPS to your system.\n"
msgstr ""
"Dobro došli u program za podešavanje UPSa.\n"
"\n"
"Ovdje možete dodati novi UPS na vaš sistem.\n"

#: drakups:88
#, c-format
msgid ""
"We're going to add an UPS device.\n"
"\n"
"Do you want to autodetect UPS devices connected to this machine or to "
"manually select them?"
msgstr ""
"Sada ćemo dodati UPS uređaj.\n"
"\n"
"Želite li da probam automatski otkriti UPS uređaje spojene na ovaj računar "
"ili da ih ručno izaberete?"

#: drakups:91
#, c-format
msgid "Autodetection"
msgstr "Auto prepoznavanje"

#: drakups:99 harddrake2:370
#, c-format
msgid "Detection in progress"
msgstr "Detekcija u toku"

#: drakups:118 drakups:157 logdrake:457 logdrake:463
#, c-format
msgid "Congratulations"
msgstr "Čestitamo"

#: drakups:119
#, c-format
msgid "The wizard successfully added the following UPS devices:"
msgstr "Čarobnjak je uspješno dodao sljedeće UPS uređaje:"

#: drakups:121
#, c-format
msgid "No new UPS devices was found"
msgstr "Nije pronađen nijedan novi UPS uređaj"

#: drakups:126 drakups:138
#, c-format
msgid "UPS driver configuration"
msgstr "Podešavanje UPS drajvera"

#: drakups:126
#, c-format
msgid "Please select your UPS model."
msgstr "Molim izaberite vaš UPS model."

#: drakups:127
#, c-format
msgid "Manufacturer / Model:"
msgstr "Proizvođač / model:"

#: drakups:138
#, c-format
msgid ""
"We are configuring the \"%s\" UPS from \"%s\".\n"
"Please fill in its name, its driver and its port."
msgstr ""
"Sada podešavamo UPS \"%s\" od \"%s\".\n"
"Molim unesite njegovo ime, drajver i port."

#: drakups:143
#, c-format
msgid "Name:"
msgstr "Ime:"

#: drakups:143
#, c-format
msgid "The name of your ups"
msgstr "Naziv vašeg UPSa"

#: drakups:144
#, c-format
msgid "Driver:"
msgstr "Drajver:"

#: drakups:144
#, c-format
msgid "The driver that manages your ups"
msgstr "Drajver koji upravlja vašim UPSom"

#: drakups:145
#, c-format
msgid "Port:"
msgstr "Port:"

#: drakups:147
#, c-format
msgid "The port on which is connected your ups"
msgstr "Port na koji je spojen vaš UPS"

#: drakups:157
#, c-format
msgid "The wizard successfully configured the new \"%s\" UPS device."
msgstr "Čarobnjak je uspješno podesio novi \"%s\" UPS uređaj."

#: drakups:248
#, c-format
msgid "UPS devices"
msgstr "UPS uređaji"

#: drakups:249 drakups:268 drakups:284 harddrake2:88 harddrake2:114
#: harddrake2:121
#, c-format
msgid "Name"
msgstr "Ime"

#: drakups:249 harddrake2:136
#, c-format
msgid "Driver"
msgstr "Drajver"

#: drakups:249 harddrake2:54
#, c-format
msgid "Port"
msgstr "Port"

#: drakups:267
#, c-format
msgid "UPS users"
msgstr "UPS korisnici"

#: drakups:283
#, c-format
msgid "Access Control Lists"
msgstr "Liste kontrole pristupa"

#: drakups:284
#, c-format
msgid "IP address"
msgstr "IP adresa"

#: drakups:284
#, c-format
msgid "IP mask"
msgstr "IP maska"

#: drakups:296
#, c-format
msgid "Rules"
msgstr "Pravila"

#: drakups:297
#, c-format
msgid "Action"
msgstr "Akcija"

#: drakups:297 harddrake2:85
#, c-format
msgid "Level"
msgstr "Nivo"

#: drakups:297
#, c-format
msgid "ACL name"
msgstr "Naziv ACLa"

#: drakups:297 finish-install:171
#, c-format
msgid "Password"
msgstr "Šifra"

#: drakups:329
#, c-format
msgid "UPS Management"
msgstr "Upravljanje UPSom"

#: drakups:333 drakups:342
#, c-format
msgid "DrakUPS"
msgstr "DrakUPS"

#: drakups:339
#, c-format
msgid "Welcome to the UPS configuration tools"
msgstr "Dobrodošli u alate za podešavanje UPSa"

#: drakxtv:67
#, c-format
msgid "No TV Card detected!"
msgstr "Nije detektovana TV kartica!"

#. -PO: keep the double empty lines between sections, this is formatted a la LaTeX
#: drakxtv:69
#, c-format
msgid ""
"No TV Card has been detected on your machine. Please verify that a Linux-"
"supported Video/TV Card is correctly plugged in.\n"
"\n"
"\n"
"You can visit our hardware database at:\n"
"\n"
"\n"
"http://www.mandrivalinux.com/en/hardware.php3"
msgstr ""
"Na vašem računaru nije detektovana TV kartica. Molim provjerite da li je "
"ispravno priključena Video/TV kartica koja je podržana pod Linuxom.\n"
"\n"
"\n"
"Možete posjetiti našu bazu hardvera na:\n"
"\n"
"\n"
"http://www.mandrivalinux.com/en/hardware.php3"

#: finish-install:56
#, c-format
msgid "Keyboard"
msgstr "Tastatura"

#: finish-install:57
#, c-format
msgid "Please, choose your keyboard layout."
msgstr "Molim izaberite izgled vaše tastature."

#: finish-install:169 finish-install:187 finish-install:199
#, c-format
msgid "Encrypted home partition"
msgstr ""

#: finish-install:169
#, c-format
msgid "Please enter a password for the %s user"
msgstr ""

#: finish-install:172
#, c-format
msgid "Password (again)"
msgstr "Šifra (ponovo)"

#: finish-install:187
#, c-format
msgid "Creating encrypted home partition"
msgstr ""

#: finish-install:199
#, c-format
msgid "Formatting encrypted home partition"
msgstr ""

#: harddrake2:28
#, c-format
msgid "Alternative drivers"
msgstr "Alternativni drajveri"

#: harddrake2:29
#, c-format
msgid "the list of alternative drivers for this sound card"
msgstr "spisak alternativnih drajvera za ovu zvučnu karticu"

#: harddrake2:31 harddrake2:123
#, c-format
msgid "Bus"
msgstr "Sabirnica"

#: harddrake2:32
#, c-format
msgid ""
"this is the physical bus on which the device is plugged (eg: PCI, USB, ...)"
msgstr ""
"ovo je fizička sabirnica na koju je uređaj priključen (npr: PCI, USB, ...)"

#: harddrake2:34 harddrake2:149
#, c-format
msgid "Bus identification"
msgstr "Identifikacija sabirnice (busa)"

#: harddrake2:35
#, c-format
msgid ""
"- PCI and USB devices: this lists the vendor, device, subvendor and "
"subdevice PCI/USB ids"
msgstr ""
"- PCI i USB uređaji: ovo će izlistati PCI/USB id-ove za; vendor, device, "
"subvendor i subdevice"

#: harddrake2:37
#, c-format
msgid "Location on the bus"
msgstr "Lokacija na sabirnici"

#: harddrake2:38
#, c-format
msgid ""
"- pci devices: this gives the PCI slot, device and function of this card\n"
"- eide devices: the device is either a slave or a master device\n"
"- scsi devices: the scsi bus and the scsi device ids"
msgstr ""
"- pci devices: ovo daje PCI slot, uređaj i funkciju ove kartice\n"
"- eide devices: uređaj može biti master ili slave\n"
"- scsi devices: SCSI id-ovi za: bus i device"

#: harddrake2:41
#, c-format
msgid "Drive capacity"
msgstr "Kapacitet uređaja"

#: harddrake2:41
#, c-format
msgid "special capacities of the driver (burning ability and or DVD support)"
msgstr "posebne mogućnosti drajvera (mogućnost prženja i/ili podrška za DVD)"

#: harddrake2:42
#, c-format
msgid "Description"
msgstr "Opis"

#: harddrake2:42
#, c-format
msgid "this field describes the device"
msgstr "ovo polje opisuje uređaj"

#: harddrake2:43
#, c-format
msgid "Old device file"
msgstr "Stara datoteka uređaja"

#: harddrake2:44
#, c-format
msgid "old static device name used in dev package"
msgstr "staro statičko ime uređaja koje koristi dev paket"

#. -PO: here "module" is the "jargon term" for a kernel driver
#: harddrake2:47
#, c-format
msgid "Module"
msgstr "Modul"

#: harddrake2:47
#, c-format
msgid "the module of the GNU/Linux kernel that handles the device"
msgstr "modul Linux kernela koji upravlja uređajem"

#: harddrake2:48
#, c-format
msgid "Extended partitions"
msgstr "Proširene particije"

#: harddrake2:48
#, c-format
msgid "the number of extended partitions"
msgstr "broj proširenih particija"

#: harddrake2:49
#, c-format
msgid "Geometry"
msgstr "Geometrija"

#: harddrake2:49
#, c-format
msgid "Cylinder/head/sectors geometry of the disk"
msgstr "CHS (cilindar/glava/sektor) geometrija diska"

#: harddrake2:50
#, c-format
msgid "Disk controller"
msgstr "Disk kontroler"

#: harddrake2:50
#, c-format
msgid "the disk controller on the host side"
msgstr "disk kontroler na strani računara"

#: harddrake2:51
#, fuzzy, c-format
msgid "Identifier"
msgstr "Identifikator diska"

#: harddrake2:51
#, fuzzy, c-format
msgid "usually the device serial number"
msgstr "obično serijski broj diska"

#: harddrake2:52
#, c-format
msgid "Media class"
msgstr "Klasa medija"

#: harddrake2:52
#, c-format
msgid "class of hardware device"
msgstr "klasa hardverskog uređaja"

#: harddrake2:53 harddrake2:86
#, c-format
msgid "Model"
msgstr "Model"

#: harddrake2:53
#, c-format
msgid "hard disk model"
msgstr "model hard diska"

#: harddrake2:54
#, c-format
msgid "network printer port"
msgstr "port mrežnog štampača"

#: harddrake2:55
#, c-format
msgid "Primary partitions"
msgstr "Primarne particije"

#: harddrake2:55
#, c-format
msgid "the number of the primary partitions"
msgstr "broj primarnih particija"

#: harddrake2:56 harddrake2:91
#, c-format
msgid "Vendor"
msgstr "Proizvođač"

#: harddrake2:56
#, c-format
msgid "the vendor name of the device"
msgstr "naziv proizvođača uređaja"

#: harddrake2:57
#, c-format
msgid "PCI domain"
msgstr ""

#: harddrake2:57
#, fuzzy, c-format
msgid "the PCI domain of the device"
msgstr "naziv proizvođača uređaja"

#: harddrake2:58
#, c-format
msgid "Bus PCI #"
msgstr "Bus PCI #"

#: harddrake2:58
#, c-format
msgid "the PCI bus on which the device is plugged"
msgstr "PCI sabirnica na koju je uređaj priključen"

#: harddrake2:59
#, c-format
msgid "PCI device #"
msgstr "PCI uređaj #"

#: harddrake2:59
#, c-format
msgid "PCI device number"
msgstr "Broj PCI uređaja"

#: harddrake2:60
#, c-format
msgid "PCI function #"
msgstr "PCI funkcija #"

#: harddrake2:60
#, c-format
msgid "PCI function number"
msgstr "Broj PCI funkcije"

#: harddrake2:61
#, c-format
msgid "Vendor ID"
msgstr "ID proizvođača"

#: harddrake2:61
#, c-format
msgid "this is the standard numerical identifier of the vendor"
msgstr "ovo je standardni numerički identifikator proizvođača"

#: harddrake2:62
#, c-format
msgid "Device ID"
msgstr "ID uređaja"

#: harddrake2:62
#, c-format
msgid "this is the numerical identifier of the device"
msgstr "ovo je numerički identifikator uređaja"

#: harddrake2:63
#, c-format
msgid "Sub vendor ID"
msgstr "Pod-ID proizvođača"

#: harddrake2:63
#, c-format
msgid "this is the minor numerical identifier of the vendor"
msgstr "ovo je manji numerički identifikator proizvođača"

#: harddrake2:64
#, c-format
msgid "Sub device ID"
msgstr "Pod-ID uređaja"

#: harddrake2:64
#, c-format
msgid "this is the minor numerical identifier of the device"
msgstr "ovo je manji numerički identifikator uređaja"

#: harddrake2:65
#, c-format
msgid "Device USB ID"
msgstr "USB ID uređaja"

#: harddrake2:65
#, c-format
msgid ".."
msgstr ".."

#: harddrake2:69
#, c-format
msgid "Bogomips"
msgstr "Bogomips"

#: harddrake2:69
#, c-format
msgid ""
"the GNU/Linux kernel needs to run a calculation loop at boot time to "
"initialize a timer counter.  Its result is stored as bogomips as a way to "
"\"benchmark\" the cpu."
msgstr ""
"GNU/Linux kernel mora izvršiti proračunsku petlju prilikom boot-a kako bi "
"inicijalizirao tajmer.  Rezultat rada te petlje se prikazuje u vidu "
"bogomipsa, kao jedan neprecizan pokazatelj brzine CPUa."

#: harddrake2:70
#, c-format
msgid "Cache size"
msgstr "Veličina cache-a"

#: harddrake2:70
#, c-format
msgid "size of the (second level) cpu cache"
msgstr "veličina CPU keša (drugog nivoa)"

#. -PO: here "comas" is the medical coma, not the lexical coma!!
#: harddrake2:73
#, c-format
msgid "Coma bug"
msgstr "Coma bug"

#: harddrake2:73
#, c-format
msgid "whether this cpu has the Cyrix 6x86 Coma bug"
msgstr "da li ovaj CPU ima Cyrix 6x86 Coma bug"

#: harddrake2:74
#, c-format
msgid "Cpuid family"
msgstr "Cpuid familija"

#: harddrake2:74
#, c-format
msgid "family of the cpu (eg: 6 for i686 class)"
msgstr "familija CPUa (npr: 6 za i686 generaciju)"

#: harddrake2:75
#, c-format
msgid "Cpuid level"
msgstr "Nivo cpuid-a"

#: harddrake2:75
#, c-format
msgid "information level that can be obtained through the cpuid instruction"
msgstr "nivo informacija koje se mogu dobiti cpuid instrukcijom"

#: harddrake2:76
#, c-format
msgid "Frequency (MHz)"
msgstr "Frekvencija (MHz)"

#: harddrake2:76
#, c-format
msgid ""
"the CPU frequency in MHz (Megahertz which in first approximation may be "
"coarsely assimilated to number of instructions the cpu is able to execute "
"per second)"
msgstr ""
"frekvencija CPUa u MHz (Megaherc je jedinica koja se može približno "
"usporediti sa brojem instrukcija koje CPU izvršava u sekundi)"

#: harddrake2:77
#, c-format
msgid "Flags"
msgstr "Flagovi"

#: harddrake2:77
#, c-format
msgid "CPU flags reported by the kernel"
msgstr "CPU flagovi koje je prijavio kernel"

#: harddrake2:78
#, c-format
msgid "Fdiv bug"
msgstr "Fdiv bug"

#: harddrake2:79
#, c-format
msgid ""
"Early Intel Pentium chips manufactured have a bug in their floating point "
"processor which did not achieve the required precision when performing a "
"Floating point DIVision (FDIV)"
msgstr ""
"Rani Intel Pentium procesori imaju bug u numeričkom koprocesoru koji ne "
"postiže potrebnu preciznost prilikom izvršavanja dijeljenja sa tekućim "
"zarezom (FDIV)"

#: harddrake2:80
#, c-format
msgid "Is FPU present"
msgstr "Da li postoji FPU"

#: harddrake2:80
#, c-format
msgid "yes means the processor has an arithmetic coprocessor"
msgstr "da znači da procesor ima aritmetički koprocesor"

#: harddrake2:81
#, c-format
msgid "Whether the FPU has an irq vector"
msgstr "Da li FPU ima IRQ vektor"

#: harddrake2:81
#, c-format
msgid "yes means the arithmetic coprocessor has an exception vector attached"
msgstr "da znači da aritmetički koprocesor ima priključen exception vector"

#: harddrake2:82
#, c-format
msgid "F00f bug"
msgstr "F00F bug"

#: harddrake2:82
#, c-format
msgid "early pentiums were buggy and freezed when decoding the F00F bytecode"
msgstr ""
"rani Pentium procesori imaju bug koji izaziva smrzavanje sistema prilikom "
"dekodiranja F00F bytecode-a"

#: harddrake2:83
#, c-format
msgid "Halt bug"
msgstr "Halt bug"

#: harddrake2:84
#, c-format
msgid ""
"Some of the early i486DX-100 chips cannot reliably return to operating mode "
"after the \"halt\" instruction is used"
msgstr ""
"Neki rani i486DX-100 chipovi se ne mogu pouzdano vratiti u radni način nakon "
"korištenja instrukcije \"halt\""

#: harddrake2:85
#, c-format
msgid "sub generation of the cpu"
msgstr "podgeneracija procesora"

#: harddrake2:86
#, c-format
msgid "generation of the cpu (eg: 8 for Pentium III, ...)"
msgstr "generacija procesora (npr: 8 za Pentium III, ...)"

#: harddrake2:87
#, c-format
msgid "Model name"
msgstr "Naziv modela"

#: harddrake2:87
#, c-format
msgid "official vendor name of the cpu"
msgstr "zvanično ime proizvođača procesora"

#: harddrake2:88
#, c-format
msgid "the name of the CPU"
msgstr "naziv procesora"

#: harddrake2:89
#, c-format
msgid "Processor ID"
msgstr "ID procesora"

#: harddrake2:89
#, c-format
msgid "the number of the processor"
msgstr "broj procesora"

#: harddrake2:90
#, c-format
msgid "Model stepping"
msgstr "Model stepping"

#: harddrake2:90
#, c-format
msgid "stepping of the cpu (sub model (generation) number)"
msgstr "stepping procesora (broj pod-modela / generacije)"

#: harddrake2:91
#, c-format
msgid "the vendor name of the processor"
msgstr "naziv proizvođača procesora"

#: harddrake2:92
#, c-format
msgid "Write protection"
msgstr "Zaštita od pisanja"

#: harddrake2:92
#, c-format
msgid ""
"the WP flag in the CR0 register of the cpu enforce write protection at the "
"memory page level, thus enabling the processor to prevent unchecked kernel "
"accesses to user memory (aka this is a bug guard)"
msgstr ""
"WP flag u CR0 registru CPUa prisiljava zaštitu od pisanja na nivou "
"memorijske stranice, čime je uključeno sprječavanje od neprovjerenih "
"pristupa kernela u korisničku memoriju (drugim riječima, ovo je zaštita od "
"bugova)"

#: harddrake2:96
#, c-format
msgid "Floppy format"
msgstr "Format diskete"

#: harddrake2:96
#, c-format
msgid "format of floppies supported by the drive"
msgstr "format disketa koje podržava jedinica"

#: harddrake2:100
#, c-format
msgid "EIDE/SCSI channel"
msgstr "EIDE/SCSI channel"

#: harddrake2:101
#, c-format
msgid "Disk identifier"
msgstr "Identifikator diska"

#: harddrake2:101
#, c-format
msgid "usually the disk serial number"
msgstr "obično serijski broj diska"

#: harddrake2:102
#, c-format
msgid "Logical unit number"
msgstr "Broj logičke jedinice"

#: harddrake2:102
#, c-format
msgid ""
"the SCSI target number (LUN). SCSI devices connected to a host are uniquely "
"identified by a\n"
"channel number, a target id and a logical unit number"
msgstr ""
"SCSI odredišni broj (LUN). SCSI uređaji spojeni na računar su jedinstveno "
"identificirani\n"
"brojem kanala, odredišnim IDom i brojem logične jedinice"

#. -PO: here, "size" is the size of the ram chip (eg: 128Mo, 256Mo, ...)
#: harddrake2:109
#, c-format
msgid "Installed size"
msgstr "Instalirana veličina"

#: harddrake2:109
#, c-format
msgid "Installed size of the memory bank"
msgstr "Instalirana veličina memorijske banke"

#: harddrake2:110
#, c-format
msgid "Enabled Size"
msgstr "Omogućena veličina"

#: harddrake2:110
#, c-format
msgid "Enabled size of the memory bank"
msgstr "Omogućena veličina memorijske banke"

#: harddrake2:111 harddrake2:120
#, c-format
msgid "Type"
msgstr "Vrsta"

#: harddrake2:111
#, c-format
msgid "type of the memory device"
msgstr "vrsta memorijskog uređaja"

#: harddrake2:112
#, c-format
msgid "Speed"
msgstr "Brzina"

#: harddrake2:112
#, c-format
msgid "Speed of the memory bank"
msgstr "Brzina memorijske banke"

#: harddrake2:113
#, c-format
msgid "Bank connections"
msgstr "Veze memorijske banke"

#: harddrake2:114
#, c-format
msgid "Socket designation of the memory bank"
msgstr "Oznaka podnožja (socketa) memorijske banke"

#: harddrake2:118
#, c-format
msgid "Device file"
msgstr "Datoteka uređaja"

#: harddrake2:118
#, c-format
msgid ""
"the device file used to communicate with the kernel driver for the mouse"
msgstr ""
"datoteka uređaja koja se koristi za komunikaciju sa kernelskim drajverom miša"

#: harddrake2:119
#, c-format
msgid "Emulated wheel"
msgstr "Simulirani točkić"

#: harddrake2:119
#, c-format
msgid "whether the wheel is emulated or not"
msgstr "da li je točkić simuliran ili ne"

#: harddrake2:120
#, c-format
msgid "the type of the mouse"
msgstr "vrsta miša"

#: harddrake2:121
#, c-format
msgid "the name of the mouse"
msgstr "naziv miša"

#: harddrake2:122
#, c-format
msgid "Number of buttons"
msgstr "Broj dugmadi"

#: harddrake2:122
#, c-format
msgid "the number of buttons the mouse has"
msgstr "broj dugmadi koje ima miš"

#: harddrake2:123
#, c-format
msgid "the type of bus on which the mouse is connected"
msgstr "vrsta sabirnice na koju je spojen miš"

#: harddrake2:124
#, c-format
msgid "Mouse protocol used by X11"
msgstr "Protokol miša koji koristi X11"

#: harddrake2:124
#, c-format
msgid "the protocol that the graphical desktop use with the mouse"
msgstr "protokol koji koristi grafički desktop sa mišem"

#: harddrake2:131 harddrake2:140 harddrake2:147 harddrake2:155 harddrake2:335
#, c-format
msgid "Identification"
msgstr "Identifikacija"

#: harddrake2:132 harddrake2:148
#, c-format
msgid "Connection"
msgstr "Konekcija"

#: harddrake2:141
#, c-format
msgid "Performances"
msgstr "Performanse"

#: harddrake2:142
#, c-format
msgid "Bugs"
msgstr "Bugovi"

#: harddrake2:143
#, c-format
msgid "FPU"
msgstr "FPU"

#: harddrake2:150
#, c-format
msgid "Device"
msgstr "Uređaj"

#: harddrake2:151
#, c-format
msgid "Partitions"
msgstr "Particije"

#: harddrake2:156
#, c-format
msgid "Features"
msgstr "Osobine"

#. -PO: please keep all "/" characters !!!
#: harddrake2:179 logdrake:78
#, c-format
msgid "/_Options"
msgstr "/_Opcije"

#: harddrake2:180 harddrake2:209 logdrake:80
#, c-format
msgid "/_Help"
msgstr "/_Pomoć"

#: harddrake2:184
#, c-format
msgid "/Autodetect _printers"
msgstr "/Automatski prepoznaj štam_pače"

#: harddrake2:185
#, c-format
msgid "/Autodetect _modems"
msgstr "/Automatski prepoznaj _modeme"

#: harddrake2:186
#, c-format
msgid "/Autodetect _jaz drives"
msgstr "/Automatski prepoznaj _jaz uređaje"

#: harddrake2:187
#, c-format
msgid "/Autodetect parallel _zip drives"
msgstr "/Autodetektuj paralelne _ZIP uređaje"

#: harddrake2:191
#, c-format
msgid "Hardware Configuration"
msgstr "Podešavanje hardvera"

#: harddrake2:198
#, c-format
msgid "/_Quit"
msgstr "/_Izlaz"

#: harddrake2:211
#, c-format
msgid "/_Fields description"
msgstr "/_Opis polja"

#: harddrake2:213
#, c-format
msgid "Harddrake help"
msgstr "Harddrake pomoć"

#: harddrake2:214
#, c-format
msgid ""
"Description of the fields:\n"
"\n"
msgstr ""
"Opis polja:\n"
"\n"

#: harddrake2:222
#, c-format
msgid "Select a device!"
msgstr "Izaberite uređaj !"

#: harddrake2:222
#, c-format
msgid ""
"Once you've selected a device, you'll be able to see the device information "
"in fields displayed on the right frame (\"Information\")"
msgstr ""
"Nakon što izaberete uređaj, moći ćete vidjeti informacije o uređaju u "
"poljima u desnom okviru (\"Informacije\")"

#: harddrake2:228
#, c-format
msgid "/_Report Bug"
msgstr "/_Prijavi grešku"

#: harddrake2:230
#, c-format
msgid "/_About..."
msgstr "/_O programu..."

#: harddrake2:233
#, c-format
msgid "Harddrake"
msgstr "Harddrake"

#: harddrake2:237
#, c-format
msgid "This is HardDrake, a %s hardware configuration tool."
msgstr "Ovo je HardDrake, %s alat za podešavanje hardvera."

#: harddrake2:270
#, c-format
msgid "Detected hardware"
msgstr "Pronađeni hardver"

#: harddrake2:273 scannerdrake:286
#, c-format
msgid "Information"
msgstr "Informacije"

#: harddrake2:275
#, c-format
msgid "Set current driver options"
msgstr "Podesite opcije trenutnog drajvera"

#: harddrake2:282
#, c-format
msgid "Run config tool"
msgstr "Pokreni alat za podešavanje"

#: harddrake2:302
#, c-format
msgid ""
"Click on a device in the left tree in order to display its information here."
msgstr "Kliknite na uređaj u drvetu lijevo da dobijete informacije o njemu."

#: harddrake2:322 notify-x11-free-driver-switch:13
#, c-format
msgid "unknown"
msgstr "nepoznat"

#: harddrake2:323
#, c-format
msgid "Unknown"
msgstr "Nepoznat"

#: harddrake2:343
#, c-format
msgid "Misc"
msgstr "Razno"

#: harddrake2:418
#, c-format
msgid "secondary"
msgstr "sekundarni"

#: harddrake2:418
#, c-format
msgid "primary"
msgstr "primarni"

#: harddrake2:422
#, c-format
msgid "burner"
msgstr "pržilica"

#: harddrake2:422
#, c-format
msgid "DVD"
msgstr "DVD"

#: harddrake2:474
#, c-format
msgid "Unknown/Others"
msgstr "Nepoznat/Ostali"

#: harddrake2:516
#, c-format
msgid "The following packages need to be installed:\n"
msgstr "Sljedeći paketi trebaju biti instalirani:\n"

#: localedrake:38
#, c-format
msgid "LocaleDrake"
msgstr "LocaleDrake"

#: localedrake:44
#, c-format
msgid "You should install the following packages: %s"
msgstr "Trebate instalirati sljedeće pakete: %s"

#. -PO: the following is used to combine packages names. eg: "initscripts, harddrake, yudit"
#: localedrake:47
#, c-format
msgid ", "
msgstr ", "

#: logdrake:51
#, c-format
msgid "Mandriva Linux Tools Logs"
msgstr "Dnevnici Mandriva Linux alata"

#: logdrake:65
#, c-format
msgid "Show only for the selected day"
msgstr "Prikaži samo za izabrani dan"

#: logdrake:72
#, c-format
msgid "/File/_New"
msgstr "/Datoteka/_Nova"

#: logdrake:72
#, c-format
msgid "<control>N"
msgstr "<control>N"

#: logdrake:73
#, c-format
msgid "/File/_Open"
msgstr "/Datoteka/_Otvori"

#: logdrake:73
#, c-format
msgid "<control>O"
msgstr "<control>O"

#: logdrake:74
#, c-format
msgid "/File/_Save"
msgstr "/Datoteka/_Sačuvaj"

#: logdrake:74
#, c-format
msgid "<control>S"
msgstr "<control>S"

#: logdrake:75
#, c-format
msgid "/File/Save _As"
msgstr "/Datoteka/Sačuvaj K_ao"

#: logdrake:76
#, c-format
msgid "/File/-"
msgstr "/Datoteka/-"

#: logdrake:79
#, c-format
msgid "/Options/Test"
msgstr "/Opcije/Test"

#: logdrake:81
#, c-format
msgid "/Help/_About..."
msgstr "/Pomoć/_O programu..."

#: logdrake:110
#, c-format
msgid ""
"_:this is the auth.log log file\n"
"Authentication"
msgstr "Authentication"

#: logdrake:111
#, c-format
msgid ""
"_:this is the user.log log file\n"
"User"
msgstr "User"

#: logdrake:112
#, c-format
msgid ""
"_:this is the /var/log/messages log file\n"
"Messages"
msgstr "Messages"

#: logdrake:113
#, c-format
msgid ""
"_:this is the /var/log/syslog log file\n"
"Syslog"
msgstr "Syslog"

#: logdrake:117
#, c-format
msgid "search"
msgstr "pretraživanje"

#: logdrake:129
#, c-format
msgid "A tool to monitor your logs"
msgstr "Alat za pregled vaših logova"

#: logdrake:131
#, c-format
msgid "Settings"
msgstr "Podešavanja"

#: logdrake:134
#, c-format
msgid "Matching"
msgstr "Odgovara"

#: logdrake:135
#, c-format
msgid "but not matching"
msgstr "but not matching"

#: logdrake:138
#, c-format
msgid "Choose file"
msgstr "Izaberi datoteku"

#: logdrake:150
#, c-format
msgid "Calendar"
msgstr "Kalendar"

#: logdrake:159
#, c-format
msgid "Content of the file"
msgstr "Sadržaj datoteke"

#: logdrake:163 logdrake:407
#, c-format
msgid "Mail alert"
msgstr "Mail obavijest"

#: logdrake:170
#, c-format
msgid "The alert wizard has failed unexpectedly:"
msgstr "Čarobnjak za upozorenja je neočekivano pao:"

#: logdrake:174
#, c-format
msgid "Save"
msgstr "Snimi"

#: logdrake:222
#, c-format
msgid "please wait, parsing file: %s"
msgstr "molim sačekajte, parsiram datoteku: %s"

#: logdrake:244
#, c-format
msgid "Sorry, log file isn't available!"
msgstr ""

#: logdrake:292
#, c-format
msgid "Error while opening \"%s\" log file: %s\n"
msgstr ""

#: logdrake:385
#, c-format
msgid "Apache World Wide Web Server"
msgstr "Apache World Wide Web Server"

#: logdrake:386
#, c-format
msgid "Domain Name Resolver"
msgstr "Domain Name Resolver"

#: logdrake:387
#, c-format
msgid "Ftp Server"
msgstr "FTP server"

#: logdrake:388
#, c-format
msgid "Postfix Mail Server"
msgstr "Postfix mail server"

#: logdrake:389
#, c-format
msgid "Samba Server"
msgstr "Samba server"

#: logdrake:390
#, c-format
msgid "SSH Server"
msgstr "SSH server"

#: logdrake:391
#, c-format
msgid "Webmin Service"
msgstr "Webmin servis"

#: logdrake:392
#, c-format
msgid "Xinetd Service"
msgstr "Xinetd servis"

#: logdrake:401
#, c-format
msgid "Configure the mail alert system"
msgstr "Podesi sistem za e-mail obavještenja"

#: logdrake:402
#, c-format
msgid "Stop the mail alert system"
msgstr "Zaustavi sistem za e-mail obavještenja"

#: logdrake:410
#, c-format
msgid "Mail alert configuration"
msgstr "Podešavanje Mail obavijesti"

#: logdrake:411
#, c-format
msgid ""
"Welcome to the mail configuration utility.\n"
"\n"
"Here, you'll be able to set up the alert system.\n"
msgstr ""
"Dobro došli u program za podešavanje maila.\n"
"\n"
"Ovdje možete podesiti sistem obavještavanja.\n"

#: logdrake:414
#, c-format
msgid "What do you want to do?"
msgstr "Šta želite uraditi?"

#: logdrake:421
#, c-format
msgid "Services settings"
msgstr "Postavke servisa"

#: logdrake:422
#, c-format
msgid ""
"You will receive an alert if one of the selected services is no longer "
"running"
msgstr "Primićete obavještenje ako neki od izabranih servisa prestane raditi"

#: logdrake:429
#, c-format
msgid "Load setting"
msgstr "Podešavanje opterećenja"

#: logdrake:430
#, c-format
msgid "You will receive an alert if the load is higher than this value"
msgstr ""
"Primićete upozorenje ako je opterećenje (system load) veće od ove vrijednosti"

#: logdrake:431
#, c-format
msgid ""
"_: load here is a noun, the load of the system\n"
"Load"
msgstr "Opterećenje"

#: logdrake:436
#, c-format
msgid "Alert configuration"
msgstr "Postavke upozorenja"

#: logdrake:437
#, c-format
msgid "Please enter your email address below "
msgstr "Molim unesite vašu email adresu ispod"

#: logdrake:438
#, c-format
msgid "and enter the name (or the IP) of the SMTP server you wish to use"
msgstr "i unesite ime (ili IP adresu) SMTP servera kojeg želite koristiti"

#: logdrake:445
#, c-format
msgid "\"%s\" neither is a valid email nor is an existing local user!"
msgstr "\"%s\" nije ni ispravna e-mail adresa ni postojeći lokalni korisnik!"

#: logdrake:450
#, c-format
msgid ""
"\"%s\" is a local user, but you did not select a local smtp, so you must use "
"a complete email address!"
msgstr ""
"\"%s\" je lokalni korisnik, ali niste izabrali lokalni SMTP, tako da morate "
"unijeti kompletnu e-mail adresu!"

#: logdrake:457
#, c-format
msgid "The wizard successfully configured the mail alert."
msgstr "Čarobnjak je uspješno podesio e-mail obavještenja."

#: logdrake:463
#, c-format
msgid "The wizard successfully disabled the mail alert."
msgstr "Čarobnjak je uspješno isključio e-mail obavještenja."

#: logdrake:522
#, c-format
msgid "Save as.."
msgstr "Sačuvaj kao..."

#: notify-x11-free-driver-switch:15
#, c-format
msgid ""
"The proprietary driver for your graphic card can not be found, the system is "
"now using the free software driver (%s)."
msgstr ""

#: scannerdrake:51
#, c-format
msgid ""
"SANE packages need to be installed to use scanners.\n"
"\n"
"Do you want to install the SANE packages?"
msgstr ""
"SANE paket treba biti instaliran da biste mogli koristiti skenere.\n"
"\n"
"Da li želite instalirati SANE pakete?"

#: scannerdrake:55
#, c-format
msgid "Aborting Scannerdrake."
msgstr "Prekidam Scannerdrake."

#: scannerdrake:60
#, c-format
msgid ""
"Could not install the packages needed to set up a scanner with Scannerdrake."
msgstr ""
"Ne mogu instalirati pakete koji su potrebni za podešavanje skenera pomoću "
"Scannerdrake-a."

#: scannerdrake:61
#, c-format
msgid "Scannerdrake will not be started now."
msgstr "Sada će biti pokrenut Scannerdrake."

#: scannerdrake:67 scannerdrake:505
#, c-format
msgid "Searching for configured scanners..."
msgstr "Tražim podešene skenere ..."

#: scannerdrake:71 scannerdrake:509
#, c-format
msgid "Searching for new scanners..."
msgstr "Tražim nove skenere ..."

#: scannerdrake:79 scannerdrake:531
#, c-format
msgid "Re-generating list of configured scanners..."
msgstr "Regeneriram listu podešenih skenera ..."

#: scannerdrake:101
#, c-format
msgid "The %s is not supported by this version of %s."
msgstr "%s nije podržan na ovoj verziji %s."

#: scannerdrake:104 scannerdrake:115
#, c-format
msgid "Confirmation"
msgstr "Potvrda"

#: scannerdrake:104
#, c-format
msgid "%s found on %s, configure it automatically?"
msgstr "%s je pronađen na %s, da ga podesim automatski?"

#: scannerdrake:116
#, c-format
msgid "%s is not in the scanner database, configure it manually?"
msgstr "%s nije u bazi skenera, želite li ga ručno podesiti?"

#: scannerdrake:130
#, c-format
msgid "Scanner configuration"
msgstr "Postavke skenera"

#: scannerdrake:131
#, c-format
msgid "Select a scanner model (Detected model: %s, Port: %s)"
msgstr "Izaberite model skenera (otkriven model: %s, port: %s)"

#: scannerdrake:133
#, c-format
msgid "Select a scanner model (Detected model: %s)"
msgstr "Izaberite model skenera (otkriven model: %s)"

#: scannerdrake:134
#, c-format
msgid "Select a scanner model (Port: %s)"
msgstr "Izaberite model skenera (port: %s)"

#: scannerdrake:136 scannerdrake:139
#, c-format
msgid " (UNSUPPORTED)"
msgstr " (NIJE PODRŽANO)"

#: scannerdrake:142
#, c-format
msgid "The %s is not supported under Linux."
msgstr "%s nije podržan na Linuxu."

#: scannerdrake:169 scannerdrake:183
#, c-format
msgid "Do not install firmware file"
msgstr "Nemoj instalirati firmware datoteku"

#: scannerdrake:172 scannerdrake:222
#, c-format
msgid "Scanner Firmware"
msgstr "Firmware skenera"

#: scannerdrake:173 scannerdrake:225
#, c-format
msgid ""
"It is possible that your %s needs its firmware to be uploaded everytime when "
"it is turned on."
msgstr ""
"Moguće je da vaš %s zahtijeva da firmware bude poslan svaki put kada ga "
"upalite."

#: scannerdrake:174 scannerdrake:226
#, c-format
msgid "If this is the case, you can make this be done automatically."
msgstr "Ako je to slučaj, ovo se može obavljati automatski."

#: scannerdrake:175 scannerdrake:229
#, c-format
msgid ""
"To do so, you need to supply the firmware file for your scanner so that it "
"can be installed."
msgstr ""
"Da biste to uradili, morate navesti firmware datoteku za vaš skener kako bi "
"ona mogla biti instalirana."

#: scannerdrake:176 scannerdrake:230
#, c-format
msgid ""
"You find the file on the CD or floppy coming with the scanner, on the "
"manufacturer's home page, or on your Windows partition."
msgstr ""
"Datoteku možete naći na CDu ili disketi koja je došla uz skener, na web "
"stranici proizvođača ili na vašoj Windows particiji."

#: scannerdrake:178 scannerdrake:237
#, c-format
msgid "Install firmware file from"
msgstr "Instaliraj firmware datoteku iz"

#: scannerdrake:180 scannerdrake:188 scannerdrake:239 scannerdrake:246
#, c-format
msgid "CD-ROM"
msgstr "sa CDROMa"

#: scannerdrake:181 scannerdrake:190 scannerdrake:240 scannerdrake:248
#, c-format
msgid "Floppy Disk"
msgstr "sa diskete"

#: scannerdrake:182 scannerdrake:192 scannerdrake:241 scannerdrake:250
#, c-format
msgid "Other place"
msgstr "ostalo"

#: scannerdrake:198
#, c-format
msgid "Select firmware file"
msgstr "Izaberite firmware datoteku"

#: scannerdrake:201 scannerdrake:260
#, c-format
msgid "The firmware file %s does not exist or is unreadable!"
msgstr "Firmware datoteka %s ne postoji ili se ne može čitati!"

#: scannerdrake:224
#, c-format
msgid ""
"It is possible that your scanners need their firmware to be uploaded "
"everytime when they are turned on."
msgstr ""
"Moguće je da vaši skeneri zahtijevaju da firmware bude poslan svaki put kada "
"ih upalite."

#: scannerdrake:228
#, c-format
msgid ""
"To do so, you need to supply the firmware files for your scanners so that it "
"can be installed."
msgstr ""
"Da biste to uradili, trebate navesti firmware datoteke za vaše skenere kako "
"bi mogle biti instalirane."

#: scannerdrake:231
#, c-format
msgid ""
"If you have already installed your scanner's firmware you can update the "
"firmware here by supplying the new firmware file."
msgstr ""
"Ako ste već podesili firmware vašeg skenera, možete ga promijeniti ovdje "
"tako što ćete zadati novu firmware datoteku."

#: scannerdrake:233
#, c-format
msgid "Install firmware for the"
msgstr "Instaliraj firmware za"

#: scannerdrake:256
#, c-format
msgid "Select firmware file for the %s"
msgstr "Izaberite firmware datoteku za %s"

#: scannerdrake:274
#, c-format
msgid "Could not install the firmware file for the %s!"
msgstr "Ne mogu instalirati firmware datoteku za %s!"

#: scannerdrake:287
#, c-format
msgid "The firmware file for your %s was successfully installed."
msgstr "Firmware datoteka za %s je uspješno instalirana."

#: scannerdrake:297
#, c-format
msgid "The %s is unsupported"
msgstr "%s nije podržan"

#: scannerdrake:302
#, c-format
msgid ""
"The %s must be configured by system-config-printer.\n"
"You can launch system-config-printer from the %s Control Center in Hardware "
"section."
msgstr ""
"%s se mora podesiti iz system-config-printer-a.\n"
"Možete pokrenuti system-config-printer iz %s Kontrolnog centra u odjeljku "
"Hardware."

#: scannerdrake:320
#, c-format
msgid "Setting up kernel modules..."
msgstr "Podešavam module kernela..."

#: scannerdrake:330 scannerdrake:337 scannerdrake:367
#, c-format
msgid "Auto-detect available ports"
msgstr "Auto prepoznaj dostupne portove"

#: scannerdrake:331 scannerdrake:377
#, c-format
msgid "Device choice"
msgstr "Izbor uređaja"

#: scannerdrake:332 scannerdrake:378
#, c-format
msgid "Please select the device where your %s is attached"
msgstr "Molim izaberite uređaj gdje je priključen vaš %s"

#: scannerdrake:333
#, c-format
msgid "(Note: Parallel ports cannot be auto-detected)"
msgstr "(Napomena: Paralelni portovi ne mogu biti automatski istraženi)"

#: scannerdrake:335 scannerdrake:380
#, c-format
msgid "choose device"
msgstr "izaberite uređaj"

#: scannerdrake:369
#, c-format
msgid "Searching for scanners..."
msgstr "Tražim skenere ..."

#: scannerdrake:405 scannerdrake:412
#, c-format
msgid "Attention!"
msgstr "Pažnja!"

#: scannerdrake:406
#, c-format
msgid ""
"Your %s cannot be configured fully automatically.\n"
"\n"
"Manual adjustments are required. Please edit the configuration file /etc/"
"sane.d/%s.conf. "
msgstr ""
"Vaš %s se ne može potpuno automatski podesiti.\n"
"\n"
"Potrebno je ručno prilagođavanje. Molim editujte datoteku /etc/sane.d/%s."
"conf. "

#: scannerdrake:407 scannerdrake:416
#, c-format
msgid ""
"More info in the driver's manual page. Run the command \"man sane-%s\" to "
"read it."
msgstr ""
"Više informacija je u priručniku drajvera. Izvršite naredbu \"man sane-%s\" "
"da biste je pročitali."

#: scannerdrake:409 scannerdrake:418
#, c-format
msgid ""
"After that you may scan documents using \"XSane\" or \"Kooka\" from "
"Multimedia/Graphics in the applications menu."
msgstr ""
"Nakon toga možete skenirati dokumente koristeći \"XSane\" ili \"Kooka\" koji "
"se nalaze u meniju Multimedija/Grafika."

#: scannerdrake:413
#, c-format
msgid ""
"Your %s has been configured, but it is possible that additional manual "
"adjustments are needed to get it to work. "
msgstr ""
"Vaš %s je podešen, ali je moguće da će biti potrebna dodatna ručna podešenja "
"da bi radio. "

#: scannerdrake:414
#, c-format
msgid ""
"If it does not appear in the list of configured scanners in the main window "
"of Scannerdrake or if it does not work correctly, "
msgstr ""
"Ako se ne pojavi na listi podešenih skenera u glavnom prozoru programa "
"Scannerdrake ili ako ne bude radio ispravno, "

#: scannerdrake:415
#, c-format
msgid "edit the configuration file /etc/sane.d/%s.conf. "
msgstr "editujte konfiguracionu datoteku /etc/sane.d/%s.conf. "

#: scannerdrake:420
#, c-format
msgid "Congratulations!"
msgstr "Čestitamo!"

#: scannerdrake:421
#, c-format
msgid ""
"Your %s has been configured.\n"
"You may now scan documents using \"XSane\" or \"Kooka\" from Multimedia/"
"Graphics in the applications menu."
msgstr ""
"Vaš %s je podešen.\n"
"Sada možete skenirati dokumente koristeći \"XSane\" ili \"Kooka\" koji se "
"nalaze u meniju Multimedija/Grafika."

#: scannerdrake:446
#, c-format
msgid ""
"The following scanners\n"
"\n"
"%s\n"
"are available on your system.\n"
msgstr ""
"Sljedeći skeneri\n"
"\n"
"%s\n"
"su dostupni na vašem sistemu.\n"

#: scannerdrake:447
#, c-format
msgid ""
"The following scanner\n"
"\n"
"%s\n"
"is available on your system.\n"
msgstr ""
"Sljedeći skener\n"
"\n"
"%s\n"
"je dostupan na vašem sistemu.\n"

#: scannerdrake:449 scannerdrake:452
#, c-format
msgid "There are no scanners found which are available on your system.\n"
msgstr "Nisam pronašao nijedan skener na vašem sistemu.\n"

#: scannerdrake:460
#, c-format
msgid "Scanner Management"
msgstr "Upravljanje skenerima"

#: scannerdrake:466
#, c-format
msgid "Search for new scanners"
msgstr "Traženje novih skenera"

#: scannerdrake:472
#, c-format
msgid "Add a scanner manually"
msgstr "Ručno dodaj skener"

#: scannerdrake:479
#, c-format
msgid "Install/Update firmware files"
msgstr "Instaliraj/Updatuj firmware datoteke"

#: scannerdrake:485
#, c-format
msgid "Scanner sharing"
msgstr "Dijeljenje skenera"

#: scannerdrake:544 scannerdrake:709
#, c-format
msgid "All remote machines"
msgstr "Svi udaljeni računari"

#: scannerdrake:556 scannerdrake:859
#, c-format
msgid "This machine"
msgstr "Na ovom računaru"

#: scannerdrake:595
#, c-format
msgid "Scanner Sharing"
msgstr "Dijeljenje skenera"

#: scannerdrake:596
#, c-format
msgid ""
"Here you can choose whether the scanners connected to this machine should be "
"accessible by remote machines and by which remote machines."
msgstr ""
"Ovdje možete izabrati da li skeneri spojeni na ovaj računar trebaju biti "
"dostupni udaljenim računarima i kojim računarima."

#: scannerdrake:597
#, c-format
msgid ""
"You can also decide here whether scanners on remote machines should be made "
"available on this machine."
msgstr ""
"Ovdje takođe trebate odlučiti da li ovaj računar treba koristiti skenere na "
"udaljenim računarima."

#: scannerdrake:600
#, c-format
msgid "The scanners on this machine are available to other computers"
msgstr "Skeneri na ovom računari su dostupni drugim računarima"

#: scannerdrake:602
#, c-format
msgid "Scanner sharing to hosts: "
msgstr "Dijeljenje skenera za računare:"

#: scannerdrake:607 scannerdrake:624
#, c-format
msgid "No remote machines"
msgstr "Nema udaljenih računara"

#: scannerdrake:616
#, c-format
msgid "Use scanners on remote computers"
msgstr "Koristi skenere na udaljenim računarima"

#: scannerdrake:619
#, c-format
msgid "Use the scanners on hosts: "
msgstr "Koristi skenere na računaru:"

#: scannerdrake:646 scannerdrake:718 scannerdrake:868
#, c-format
msgid "Sharing of local scanners"
msgstr "Dijeljenje lokalnih skenera"

#: scannerdrake:647
#, c-format
msgid ""
"These are the machines on which the locally connected scanner(s) should be "
"available:"
msgstr "Ovo su računari kojima treba dozvoliti korištenje lokalnog skenera:"

#: scannerdrake:658 scannerdrake:808
#, c-format
msgid "Add host"
msgstr "Dodaj računar"

#: scannerdrake:664 scannerdrake:814
#, c-format
msgid "Edit selected host"
msgstr "Izmijeni izabrani računar"

#: scannerdrake:673 scannerdrake:823
#, c-format
msgid "Remove selected host"
msgstr "Ukloni izabrani računar"

#: scannerdrake:682 scannerdrake:832
#, c-format
msgid "Done"
msgstr "Gotovo"

#: scannerdrake:697 scannerdrake:705 scannerdrake:710 scannerdrake:756
#: scannerdrake:847 scannerdrake:855 scannerdrake:860 scannerdrake:906
#, c-format
msgid "Name/IP address of host:"
msgstr "Ime/IP adresa računara:"

#: scannerdrake:719 scannerdrake:869
#, c-format
msgid "Choose the host on which the local scanners should be made available:"
msgstr "Izaberite računar kojem treba omogućiti pristup lokalnim skenerima:"

#: scannerdrake:730 scannerdrake:880
#, c-format
msgid "You must enter a host name or an IP address.\n"
msgstr "Morate unijeti ime računara ili IP.\n"

#: scannerdrake:741 scannerdrake:891
#, c-format
msgid "This host is already in the list, it cannot be added again.\n"
msgstr "Ovaj računar je već na listi, ne možete ga ponovo dodati.\n"

#: scannerdrake:796
#, c-format
msgid "Usage of remote scanners"
msgstr "Upotreba udaljenih skenera"

#: scannerdrake:797
#, c-format
msgid "These are the machines from which the scanners should be used:"
msgstr "Ovo su računari sa koji treba koristiti skenere:"

#: scannerdrake:954
#, c-format
msgid ""
"saned needs to be installed to share the local scanner(s).\n"
"\n"
"Do you want to install the saned package?"
msgstr ""
"saned mora biti instaliran za dijeljenje lokalnih skenera.\n"
"\n"
"Želite li instalirati saned paket?"

#: scannerdrake:958 scannerdrake:962
#, c-format
msgid "Your scanner(s) will not be available on the network."
msgstr "Vaši skeneri neće biti dostupni putem mreže."

#: scannerdrake:961
#, c-format
msgid "Could not install the packages needed to share your scanner(s)."
msgstr "Ne mogu instalirati pakete koji su potrebni za dijeljenje skenera."

#: service_harddrake:134
#, c-format
msgid "Some devices in the \"%s\" hardware class were removed:\n"
msgstr "Uklonjeni su neki uređaji u \"%s\" klasi hardvera:\n"

#: service_harddrake:135
#, c-format
msgid "- %s was removed\n"
msgstr "- %s je uklonjen\n"

#: service_harddrake:138
#, c-format
msgid "Some devices were added: %s\n"
msgstr "Dodani su neki uređaji: %s\n"

#: service_harddrake:139
#, c-format
msgid "- %s was added\n"
msgstr "- %s je dodan\n"

#: service_harddrake:264
#, c-format
msgid "Hardware probing in progress"
msgstr "Hardversko probanje u toku"

#: service_harddrake_confirm:7
#, c-format
msgid "Hardware changes in \"%s\" class (%s seconds to answer)"
msgstr "Hardverske izmjene u klasi \"%s\" (%s sekundi za odgovor)"

#: service_harddrake_confirm:8
#, c-format
msgid "Do you want to run the appropriate config tool?"
msgstr "Želite li pokrenuti odgovarajući konfiguracijski alat ?"

#: ../menu/localedrake-system.desktop.in.h:1
#, fuzzy
msgid "System Regional Settings"
msgstr "Sistemske postavke"

#: ../menu/localedrake-system.desktop.in.h:2
msgid "System wide language & country configurator"
msgstr ""

#: ../menu/harddrake.desktop.in.h:1
msgid "HardDrake"
msgstr "HardDrake"

#: ../menu/harddrake.desktop.in.h:2
#, fuzzy
msgid "Hardware Central Configuration/information tool"
msgstr "Podešavanje hardvera"

#: ../menu/harddrake.desktop.in.h:3
#, fuzzy
msgid "Hardware Configuration Tool"
msgstr "Podešavanje hardvera"

#: ../menu/localedrake-user.desktop.in.h:1
#, fuzzy
msgid "Language & country configuration"
msgstr "Ručno podešavanje"

#: ../menu/localedrake-user.desktop.in.h:2
#, fuzzy
msgid "Regional Settings"
msgstr "Podešavanja"

#~ msgid ""
#~ "Here, you can setup the security level and administrator of your "
#~ "machine.\n"
#~ "\n"
#~ "\n"
#~ "The '<span weight=\"bold\">Security Administrator</span>' is the one who "
#~ "will receive security alerts if the\n"
#~ "'<span weight=\"bold\">Security Alerts</span>' option is set. It can be a "
#~ "username or an email.\n"
#~ "\n"
#~ "\n"
#~ "The '<span weight=\"bold\">Security Level</span>' menu allows you to "
#~ "select one of the six preconfigured security levels\n"
#~ "provided with msec. These levels range from '<span weight=\"bold\">poor</"
#~ "span>' security and ease of use, to\n"
#~ "'<span weight=\"bold\">paranoid</span>' config, suitable for very "
#~ "sensitive server applications:\n"
#~ "\n"
#~ "\n"
#~ "<span foreground=\"royalblue3\">Poor</span>: This is a totally unsafe but "
#~ "very\n"
#~ "easy to use security level. It should only be used for machines not "
#~ "connected to\n"
#~ "any network and that are not accessible to everybody.\n"
#~ "\n"
#~ "\n"
#~ "<span foreground=\"royalblue3\">Standard</span>: This is the standard "
#~ "security\n"
#~ "recommended for a computer that will be used to connect to the Internet "
#~ "as a\n"
#~ "client.\n"
#~ "\n"
#~ "\n"
#~ "<span foreground=\"royalblue3\">High</span>: There are already some\n"
#~ "restrictions, and more automatic checks are run every night.\n"
#~ "\n"
#~ "\n"
#~ "<span foreground=\"royalblue3\">Higher</span>: The security is now high "
#~ "enough\n"
#~ "to use the system as a server which can accept connections from many "
#~ "clients. If\n"
#~ "your machine is only a client on the Internet, you should choose a lower "
#~ "level.\n"
#~ "\n"
#~ "\n"
#~ "<span foreground=\"royalblue3\">Paranoid</span>: This is similar to the "
#~ "previous\n"
#~ "level, but the system is entirely closed and security features are at "
#~ "their\n"
#~ "maximum"
#~ msgstr ""
#~ "Ovdje možete podesiti nivo sigurnosti i administratora ovog računara.\n"
#~ "\n"
#~ "\n"
#~ "'<span weight=\"bold\">Sigurnosni administrator</span>' je onaj koji će "
#~ "dobijati sigurnosna upozorenja\n"
#~ "ako je aktivna opcija '<span weight=\"bold\">Sigurnosna upozorenja</"
#~ "span>'. Ovo može biti korisničko\n"
#~ "ime ili e-mail.\n"
#~ "\n"
#~ "\n"
#~ "Meni '<span weight=\"bold\">Nivo sigurnosti</span>' vam omogućuje da "
#~ "izaberete jedan od šest gotovih\n"
#~ "nivoa sigurnosti koje pruža msec. Ovi nivoi imaju raspon od '<span weight="
#~ "\"bold\">slabe</span>'\n"
#~ "sigurnosti i jednostavnog korištenja, do '<span weight=\"bold"
#~ "\">paranoidnih</span>' postavki, prikladnih za\n"
#~ "vrlo osjetljive serverske primjene:\n"
#~ "\n"
#~ "\n"
#~ "<span foreground=\"royalblue3\">Slab</span>: Ovo je potpuno "
#~ "neupotrebljiv\n"
#~ "nivo sigurnosti, ali lagan za upotrebu. Treba ga koristiti samo na "
#~ "računarima\n"
#~ "koji nisu spojeni na mrežu i koji nisu dostupni svakome.\n"
#~ "\n"
#~ "\n"
#~ "<span foreground=\"royalblue3\">Standardan</span>: Ovo je standardna\n"
#~ "sigurnost koja se preporučuje za računar koji će biti korišten za "
#~ "spajanje\n"
#~ "na Internet kao klijent.\n"
#~ "\n"
#~ "\n"
#~ "<span foreground=\"royalblue3\">Visok</span>: Postoje već neka\n"
#~ "ograničenja, a automatizovane provjere se vrše svake noći.\n"
#~ "\n"
#~ "\n"
#~ "<span foreground=\"royalblue3\">Viši</span>: Sigurnost je sada dovoljno\n"
#~ "visoka da bi se sistem mogao koristiti kao server koji prihvata "
#~ "konekcije\n"
#~ "od mnogih klijenata. Ako je vaš računar samo klijent na Internetu, "
#~ "trebali\n"
#~ "biste izabrati niži nivo.\n"
#~ "\n"
#~ "\n"
#~ "<span foreground=\"royalblue3\">Paranoičan</span>: Ovo je slično kao\n"
#~ "prethodni nivo, ali je sistem potpuno zatvoren i sigurnosne mogućnosti\n"
#~ "su na maksimumu."

#~ msgid "(default value: %s)"
#~ msgstr " (default vrijednost: %s)"

#~ msgid "Security Level:"
#~ msgstr "Nivo sigurnosti:"

#~ msgid "Security Alerts:"
#~ msgstr "Sigurnosna upozorenja:"

#~ msgid "Security Administrator:"
#~ msgstr "Sigurnosni administrator:"

#~ msgid "Basic options"
#~ msgstr "Osnovne opcije"

#~ msgid "Network Options"
#~ msgstr "Mrežne opcije"

#~ msgid "System Options"
#~ msgstr "Sistemske opcije"

#~ msgid "Periodic Checks"
#~ msgstr "Periodične provjere"

#~ msgid "Please wait, setting security level..."
#~ msgstr "Molim sačekajte, podešavam nivo sigurnosti..."

#~ msgid "Please wait, setting security options..."
#~ msgstr "Molim sačekajte, podešavam sigurnosne opcije..."

#, fuzzy
#~ msgid ""
#~ "The following localization packages do not seem to be useful for your "
#~ "system:"
#~ msgstr "Sljedeći paketi trebaju biti instalirani:\n"

#, fuzzy
#~ msgid "Do you want to remove these packages?"
#~ msgstr "Želite li pokrenuti odgovarajući konfiguracijski alat ?"

#, fuzzy
#~ msgid ""
#~ "The following hardware packages do not seem to be useful for your system:"
#~ msgstr "Sljedeći paketi trebaju biti instalirani:\n"

#~ msgid "Please wait, adding media..."
#~ msgstr "Molim sačekajte, dodajem medije..."

#~ msgid "The change is done, but to be effective you must logout"
#~ msgstr ""
#~ "Izmjena je napravljena, ali da bi stupila na snagu morate se odjaviti"

#~ msgid "Restart XFS"
#~ msgstr "Restartuj XFS"

#~ msgid "Copyright (C) 2001-2008 by Mandriva"
#~ msgstr "Autorska prava (C) 2001-2008, Mandriva"

#~ msgid "Error!"
#~ msgstr "Greška!"

#~ msgid "I can not find needed image file `%s'."
#~ msgstr "Ne mogu pronaći potrebnu image datoteku '%s'"

#~ msgid "Auto Install Configurator"
#~ msgstr "Podešavanje auto instalacije"

#~ msgid ""
#~ "You are about to configure an Auto Install floppy. This feature is "
#~ "somewhat dangerous and must be used circumspectly.\n"
#~ "\n"
#~ "With that feature, you will be able to replay the installation you've "
#~ "performed on this computer, being interactively prompted for some steps, "
#~ "in order to change their values.\n"
#~ "\n"
#~ "For maximum safety, the partitioning and formatting will never be "
#~ "performed automatically, whatever you chose during the install of this "
#~ "computer.\n"
#~ "\n"
#~ "Press ok to continue."
#~ msgstr ""
#~ "Sada ćete podesiti autoinstalacijsku disketu. Ova opcija je pomalo opasna "
#~ "i mora biti korištena uz pažnju.\n"
#~ "\n"
#~ "Sa ovom opcijom bićete u mogućnosti da ponovite instalaciju koju ste "
#~ "obavili na ovom računaru, pri ćemu ćete biti interaktivno upitani za neke "
#~ "korake kako biste promijenili njihove vrijednosti.\n"
#~ "\n"
#~ "Zbog maksimalne sigurnosti, particioniranje i formatiranje nikad neće "
#~ "biti obavljeno automatski, bez obzira šta izaberete tokom instalacije na "
#~ "ovaj računar.\n"
#~ "\n"
#~ "Pritisnite \"U redu\" za nastavak."

#~ msgid "replay"
#~ msgstr "ponovi"

#~ msgid "manual"
#~ msgstr "ručno"

#~ msgid "Automatic Steps Configuration"
#~ msgstr "Automatska konfiguracija koraka"

#~ msgid ""
#~ "Please choose for each step whether it will replay like your install, or "
#~ "it will be manual"
#~ msgstr ""
#~ "Molim izaberite za svaki korak da li ćete ga ponoviti kao i u vašoj "
#~ "instalaciji ili će se obaviti ručno"

#~ msgid "Insert a blank floppy in drive %s"
#~ msgstr "Ubacite praznu disketu u jedinicu %s"

#~ msgid "Creating auto install floppy"
#~ msgstr "Pravim autoinstalacijsku disketu"

#~ msgid "Insert another blank floppy in drive %s (for drivers disk)"
#~ msgstr "Ubacite još jednu praznu disketu u jedinicu %s (za drajvere)"

#~ msgid "Creating auto install floppy (drivers disk)"
#~ msgstr "Pravim autoinstalacijsku disketu (drajver disk)"

#~ msgid ""
#~ "\n"
#~ "Welcome.\n"
#~ "\n"
#~ "The parameters of the auto-install are available in the sections on the "
#~ "left"
#~ msgstr ""
#~ "\n"
#~ "Dobro došli.\n"
#~ "\n"
#~ "Parametri automatske instalacije su dostupni u odjeljcima lijevo"

#~ msgid ""
#~ "The floppy has been successfully generated.\n"
#~ "You may now replay your installation."
#~ msgstr ""
#~ "Disketa je uspješno napravljena.\n"
#~ "Sada možete ponoviti vašu instalaciju."

#~ msgid "Auto Install"
#~ msgstr "Auto instalacija"

#~ msgid "Add an item"
#~ msgstr "Dodaj stavku"

#~ msgid "Remove the last item"
#~ msgstr "Ukloniti zadnju stavku"

#~ msgid "Menudrake"
#~ msgstr "Menudrake"

#~ msgid "Msec"
#~ msgstr "Msec"

#~ msgid "Urpmi"
#~ msgstr "Urpmi"

#~ msgid "Userdrake"
#~ msgstr "Userdrake"
05'>2205</a>
<a id='n2206' href='#n2206'>2206</a>
<a id='n2207' href='#n2207'>2207</a>
<a id='n2208' href='#n2208'>2208</a>
<a id='n2209' href='#n2209'>2209</a>
<a id='n2210' href='#n2210'>2210</a>
<a id='n2211' href='#n2211'>2211</a>
<a id='n2212' href='#n2212'>2212</a>
<a id='n2213' href='#n2213'>2213</a>
<a id='n2214' href='#n2214'>2214</a>
<a id='n2215' href='#n2215'>2215</a>
<a id='n2216' href='#n2216'>2216</a>
<a id='n2217' href='#n2217'>2217</a>
<a id='n2218' href='#n2218'>2218</a>
<a id='n2219' href='#n2219'>2219</a>
<a id='n2220' href='#n2220'>2220</a>
<a id='n2221' href='#n2221'>2221</a>
<a id='n2222' href='#n2222'>2222</a>
<a id='n2223' href='#n2223'>2223</a>
<a id='n2224' href='#n2224'>2224</a>
<a id='n2225' href='#n2225'>2225</a>
<a id='n2226' href='#n2226'>2226</a>
<a id='n2227' href='#n2227'>2227</a>
<a id='n2228' href='#n2228'>2228</a>
<a id='n2229' href='#n2229'>2229</a>
<a id='n2230' href='#n2230'>2230</a>
<a id='n2231' href='#n2231'>2231</a>
<a id='n2232' href='#n2232'>2232</a>
<a id='n2233' href='#n2233'>2233</a>
<a id='n2234' href='#n2234'>2234</a>
<a id='n2235' href='#n2235'>2235</a>
<a id='n2236' href='#n2236'>2236</a>
<a id='n2237' href='#n2237'>2237</a>
<a id='n2238' href='#n2238'>2238</a>
<a id='n2239' href='#n2239'>2239</a>
<a id='n2240' href='#n2240'>2240</a>
<a id='n2241' href='#n2241'>2241</a>
<a id='n2242' href='#n2242'>2242</a>
<a id='n2243' href='#n2243'>2243</a>
<a id='n2244' href='#n2244'>2244</a>
<a id='n2245' href='#n2245'>2245</a>
<a id='n2246' href='#n2246'>2246</a>
<a id='n2247' href='#n2247'>2247</a>
<a id='n2248' href='#n2248'>2248</a>
<a id='n2249' href='#n2249'>2249</a>
<a id='n2250' href='#n2250'>2250</a>
<a id='n2251' href='#n2251'>2251</a>
<a id='n2252' href='#n2252'>2252</a>
<a id='n2253' href='#n2253'>2253</a>
<a id='n2254' href='#n2254'>2254</a>
<a id='n2255' href='#n2255'>2255</a>
<a id='n2256' href='#n2256'>2256</a>
<a id='n2257' href='#n2257'>2257</a>
<a id='n2258' href='#n2258'>2258</a>
<a id='n2259' href='#n2259'>2259</a>
<a id='n2260' href='#n2260'>2260</a>
<a id='n2261' href='#n2261'>2261</a>
<a id='n2262' href='#n2262'>2262</a>
<a id='n2263' href='#n2263'>2263</a>
<a id='n2264' href='#n2264'>2264</a>
<a id='n2265' href='#n2265'>2265</a>
<a id='n2266' href='#n2266'>2266</a>
<a id='n2267' href='#n2267'>2267</a>
<a id='n2268' href='#n2268'>2268</a>
<a id='n2269' href='#n2269'>2269</a>
<a id='n2270' href='#n2270'>2270</a>
<a id='n2271' href='#n2271'>2271</a>
<a id='n2272' href='#n2272'>2272</a>
<a id='n2273' href='#n2273'>2273</a>
<a id='n2274' href='#n2274'>2274</a>
<a id='n2275' href='#n2275'>2275</a>
<a id='n2276' href='#n2276'>2276</a>
<a id='n2277' href='#n2277'>2277</a>
<a id='n2278' href='#n2278'>2278</a>
<a id='n2279' href='#n2279'>2279</a>
<a id='n2280' href='#n2280'>2280</a>
<a id='n2281' href='#n2281'>2281</a>
<a id='n2282' href='#n2282'>2282</a>
<a id='n2283' href='#n2283'>2283</a>
<a id='n2284' href='#n2284'>2284</a>
<a id='n2285' href='#n2285'>2285</a>
<a id='n2286' href='#n2286'>2286</a>
<a id='n2287' href='#n2287'>2287</a>
<a id='n2288' href='#n2288'>2288</a>
<a id='n2289' href='#n2289'>2289</a>
<a id='n2290' href='#n2290'>2290</a>
<a id='n2291' href='#n2291'>2291</a>
<a id='n2292' href='#n2292'>2292</a>
<a id='n2293' href='#n2293'>2293</a>
<a id='n2294' href='#n2294'>2294</a>
<a id='n2295' href='#n2295'>2295</a>
<a id='n2296' href='#n2296'>2296</a>
<a id='n2297' href='#n2297'>2297</a>
<a id='n2298' href='#n2298'>2298</a>
<a id='n2299' href='#n2299'>2299</a>
<a id='n2300' href='#n2300'>2300</a>
<a id='n2301' href='#n2301'>2301</a>
<a id='n2302' href='#n2302'>2302</a>
<a id='n2303' href='#n2303'>2303</a>
<a id='n2304' href='#n2304'>2304</a>
<a id='n2305' href='#n2305'>2305</a>
<a id='n2306' href='#n2306'>2306</a>
<a id='n2307' href='#n2307'>2307</a>
<a id='n2308' href='#n2308'>2308</a>
<a id='n2309' href='#n2309'>2309</a>
<a id='n2310' href='#n2310'>2310</a>
<a id='n2311' href='#n2311'>2311</a>
<a id='n2312' href='#n2312'>2312</a>
<a id='n2313' href='#n2313'>2313</a>
<a id='n2314' href='#n2314'>2314</a>
<a id='n2315' href='#n2315'>2315</a>
<a id='n2316' href='#n2316'>2316</a>
<a id='n2317' href='#n2317'>2317</a>
<a id='n2318' href='#n2318'>2318</a>
<a id='n2319' href='#n2319'>2319</a>
<a id='n2320' href='#n2320'>2320</a>
<a id='n2321' href='#n2321'>2321</a>
<a id='n2322' href='#n2322'>2322</a>
<a id='n2323' href='#n2323'>2323</a>
<a id='n2324' href='#n2324'>2324</a>
<a id='n2325' href='#n2325'>2325</a>
<a id='n2326' href='#n2326'>2326</a>
<a id='n2327' href='#n2327'>2327</a>
<a id='n2328' href='#n2328'>2328</a>
<a id='n2329' href='#n2329'>2329</a>
<a id='n2330' href='#n2330'>2330</a>
<a id='n2331' href='#n2331'>2331</a>
<a id='n2332' href='#n2332'>2332</a>
<a id='n2333' href='#n2333'>2333</a>
<a id='n2334' href='#n2334'>2334</a>
<a id='n2335' href='#n2335'>2335</a>
<a id='n2336' href='#n2336'>2336</a>
<a id='n2337' href='#n2337'>2337</a>
<a id='n2338' href='#n2338'>2338</a>
<a id='n2339' href='#n2339'>2339</a>
<a id='n2340' href='#n2340'>2340</a>
<a id='n2341' href='#n2341'>2341</a>
<a id='n2342' href='#n2342'>2342</a>
<a id='n2343' href='#n2343'>2343</a>
<a id='n2344' href='#n2344'>2344</a>
<a id='n2345' href='#n2345'>2345</a>
<a id='n2346' href='#n2346'>2346</a>
<a id='n2347' href='#n2347'>2347</a>
<a id='n2348' href='#n2348'>2348</a>
<a id='n2349' href='#n2349'>2349</a>
<a id='n2350' href='#n2350'>2350</a>
<a id='n2351' href='#n2351'>2351</a>
<a id='n2352' href='#n2352'>2352</a>
<a id='n2353' href='#n2353'>2353</a>
<a id='n2354' href='#n2354'>2354</a>
<a id='n2355' href='#n2355'>2355</a>
<a id='n2356' href='#n2356'>2356</a>
<a id='n2357' href='#n2357'>2357</a>
<a id='n2358' href='#n2358'>2358</a>
<a id='n2359' href='#n2359'>2359</a>
<a id='n2360' href='#n2360'>2360</a>
<a id='n2361' href='#n2361'>2361</a>
<a id='n2362' href='#n2362'>2362</a>
<a id='n2363' href='#n2363'>2363</a>
<a id='n2364' href='#n2364'>2364</a>
<a id='n2365' href='#n2365'>2365</a>
<a id='n2366' href='#n2366'>2366</a>
<a id='n2367' href='#n2367'>2367</a>
<a id='n2368' href='#n2368'>2368</a>
<a id='n2369' href='#n2369'>2369</a>
<a id='n2370' href='#n2370'>2370</a>
<a id='n2371' href='#n2371'>2371</a>
<a id='n2372' href='#n2372'>2372</a>
<a id='n2373' href='#n2373'>2373</a>
<a id='n2374' href='#n2374'>2374</a>
<a id='n2375' href='#n2375'>2375</a>
<a id='n2376' href='#n2376'>2376</a>
<a id='n2377' href='#n2377'>2377</a>
<a id='n2378' href='#n2378'>2378</a>
<a id='n2379' href='#n2379'>2379</a>
<a id='n2380' href='#n2380'>2380</a>
<a id='n2381' href='#n2381'>2381</a>
<a id='n2382' href='#n2382'>2382</a>
<a id='n2383' href='#n2383'>2383</a>
<a id='n2384' href='#n2384'>2384</a>
<a id='n2385' href='#n2385'>2385</a>
<a id='n2386' href='#n2386'>2386</a>
<a id='n2387' href='#n2387'>2387</a>
<a id='n2388' href='#n2388'>2388</a>
<a id='n2389' href='#n2389'>2389</a>
<a id='n2390' href='#n2390'>2390</a>
<a id='n2391' href='#n2391'>2391</a>
<a id='n2392' href='#n2392'>2392</a>
<a id='n2393' href='#n2393'>2393</a>
<a id='n2394' href='#n2394'>2394</a>
<a id='n2395' href='#n2395'>2395</a>
<a id='n2396' href='#n2396'>2396</a>
<a id='n2397' href='#n2397'>2397</a>
<a id='n2398' href='#n2398'>2398</a>
<a id='n2399' href='#n2399'>2399</a>
<a id='n2400' href='#n2400'>2400</a>
<a id='n2401' href='#n2401'>2401</a>
<a id='n2402' href='#n2402'>2402</a>
<a id='n2403' href='#n2403'>2403</a>
<a id='n2404' href='#n2404'>2404</a>
<a id='n2405' href='#n2405'>2405</a>
<a id='n2406' href='#n2406'>2406</a>
<a id='n2407' href='#n2407'>2407</a>
<a id='n2408' href='#n2408'>2408</a>
<a id='n2409' href='#n2409'>2409</a>
<a id='n2410' href='#n2410'>2410</a>
<a id='n2411' href='#n2411'>2411</a>
<a id='n2412' href='#n2412'>2412</a>
<a id='n2413' href='#n2413'>2413</a>
<a id='n2414' href='#n2414'>2414</a>
<a id='n2415' href='#n2415'>2415</a>
<a id='n2416' href='#n2416'>2416</a>
<a id='n2417' href='#n2417'>2417</a>
<a id='n2418' href='#n2418'>2418</a>
<a id='n2419' href='#n2419'>2419</a>
<a id='n2420' href='#n2420'>2420</a>
<a id='n2421' href='#n2421'>2421</a>
<a id='n2422' href='#n2422'>2422</a>
<a id='n2423' href='#n2423'>2423</a>
<a id='n2424' href='#n2424'>2424</a>
<a id='n2425' href='#n2425'>2425</a>
<a id='n2426' href='#n2426'>2426</a>
<a id='n2427' href='#n2427'>2427</a>
<a id='n2428' href='#n2428'>2428</a>
<a id='n2429' href='#n2429'>2429</a>
<a id='n2430' href='#n2430'>2430</a>
<a id='n2431' href='#n2431'>2431</a>
<a id='n2432' href='#n2432'>2432</a>
<a id='n2433' href='#n2433'>2433</a>
<a id='n2434' href='#n2434'>2434</a>
<a id='n2435' href='#n2435'>2435</a>
<a id='n2436' href='#n2436'>2436</a>
<a id='n2437' href='#n2437'>2437</a>
<a id='n2438' href='#n2438'>2438</a>
<a id='n2439' href='#n2439'>2439</a>
<a id='n2440' href='#n2440'>2440</a>
<a id='n2441' href='#n2441'>2441</a>
<a id='n2442' href='#n2442'>2442</a>
<a id='n2443' href='#n2443'>2443</a>
<a id='n2444' href='#n2444'>2444</a>
<a id='n2445' href='#n2445'>2445</a>
<a id='n2446' href='#n2446'>2446</a>
<a id='n2447' href='#n2447'>2447</a>
<a id='n2448' href='#n2448'>2448</a>
<a id='n2449' href='#n2449'>2449</a>
<a id='n2450' href='#n2450'>2450</a>
<a id='n2451' href='#n2451'>2451</a>
<a id='n2452' href='#n2452'>2452</a>
<a id='n2453' href='#n2453'>2453</a>
<a id='n2454' href='#n2454'>2454</a>
<a id='n2455' href='#n2455'>2455</a>
<a id='n2456' href='#n2456'>2456</a>
<a id='n2457' href='#n2457'>2457</a>
<a id='n2458' href='#n2458'>2458</a>
<a id='n2459' href='#n2459'>2459</a>
<a id='n2460' href='#n2460'>2460</a>
<a id='n2461' href='#n2461'>2461</a>
<a id='n2462' href='#n2462'>2462</a>
<a id='n2463' href='#n2463'>2463</a>
<a id='n2464' href='#n2464'>2464</a>
<a id='n2465' href='#n2465'>2465</a>
<a id='n2466' href='#n2466'>2466</a>
<a id='n2467' href='#n2467'>2467</a>
<a id='n2468' href='#n2468'>2468</a>
<a id='n2469' href='#n2469'>2469</a>
<a id='n2470' href='#n2470'>2470</a>
<a id='n2471' href='#n2471'>2471</a>
<a id='n2472' href='#n2472'>2472</a>
<a id='n2473' href='#n2473'>2473</a>
<a id='n2474' href='#n2474'>2474</a>
<a id='n2475' href='#n2475'>2475</a>
<a id='n2476' href='#n2476'>2476</a>
<a id='n2477' href='#n2477'>2477</a>
<a id='n2478' href='#n2478'>2478</a>
<a id='n2479' href='#n2479'>2479</a>
<a id='n2480' href='#n2480'>2480</a>
<a id='n2481' href='#n2481'>2481</a>
<a id='n2482' href='#n2482'>2482</a>
<a id='n2483' href='#n2483'>2483</a>
<a id='n2484' href='#n2484'>2484</a>
<a id='n2485' href='#n2485'>2485</a>
<a id='n2486' href='#n2486'>2486</a>
<a id='n2487' href='#n2487'>2487</a>
<a id='n2488' href='#n2488'>2488</a>
<a id='n2489' href='#n2489'>2489</a>
<a id='n2490' href='#n2490'>2490</a>
<a id='n2491' href='#n2491'>2491</a>
<a id='n2492' href='#n2492'>2492</a>
<a id='n2493' href='#n2493'>2493</a>
<a id='n2494' href='#n2494'>2494</a>
<a id='n2495' href='#n2495'>2495</a>
<a id='n2496' href='#n2496'>2496</a>
<a id='n2497' href='#n2497'>2497</a>
<a id='n2498' href='#n2498'>2498</a>
<a id='n2499' href='#n2499'>2499</a>
<a id='n2500' href='#n2500'>2500</a>
<a id='n2501' href='#n2501'>2501</a>
<a id='n2502' href='#n2502'>2502</a>
<a id='n2503' href='#n2503'>2503</a>
<a id='n2504' href='#n2504'>2504</a>
<a id='n2505' href='#n2505'>2505</a>
<a id='n2506' href='#n2506'>2506</a>
<a id='n2507' href='#n2507'>2507</a>
<a id='n2508' href='#n2508'>2508</a>
<a id='n2509' href='#n2509'>2509</a>
<a id='n2510' href='#n2510'>2510</a>
<a id='n2511' href='#n2511'>2511</a>
<a id='n2512' href='#n2512'>2512</a>
<a id='n2513' href='#n2513'>2513</a>
<a id='n2514' href='#n2514'>2514</a>
<a id='n2515' href='#n2515'>2515</a>
<a id='n2516' href='#n2516'>2516</a>
<a id='n2517' href='#n2517'>2517</a>
<a id='n2518' href='#n2518'>2518</a>
<a id='n2519' href='#n2519'>2519</a>
<a id='n2520' href='#n2520'>2520</a>
<a id='n2521' href='#n2521'>2521</a>
<a id='n2522' href='#n2522'>2522</a>
<a id='n2523' href='#n2523'>2523</a>
<a id='n2524' href='#n2524'>2524</a>
<a id='n2525' href='#n2525'>2525</a>
<a id='n2526' href='#n2526'>2526</a>
<a id='n2527' href='#n2527'>2527</a>
<a id='n2528' href='#n2528'>2528</a>
<a id='n2529' href='#n2529'>2529</a>
<a id='n2530' href='#n2530'>2530</a>
<a id='n2531' href='#n2531'>2531</a>
<a id='n2532' href='#n2532'>2532</a>
<a id='n2533' href='#n2533'>2533</a>
<a id='n2534' href='#n2534'>2534</a>
<a id='n2535' href='#n2535'>2535</a>
<a id='n2536' href='#n2536'>2536</a>
<a id='n2537' href='#n2537'>2537</a>
<a id='n2538' href='#n2538'>2538</a>
<a id='n2539' href='#n2539'>2539</a>
<a id='n2540' href='#n2540'>2540</a>
<a id='n2541' href='#n2541'>2541</a>
<a id='n2542' href='#n2542'>2542</a>
<a id='n2543' href='#n2543'>2543</a>
<a id='n2544' href='#n2544'>2544</a>
<a id='n2545' href='#n2545'>2545</a>
<a id='n2546' href='#n2546'>2546</a>
<a id='n2547' href='#n2547'>2547</a>
<a id='n2548' href='#n2548'>2548</a>
<a id='n2549' href='#n2549'>2549</a>
<a id='n2550' href='#n2550'>2550</a>
<a id='n2551' href='#n2551'>2551</a>
<a id='n2552' href='#n2552'>2552</a>
<a id='n2553' href='#n2553'>2553</a>
<a id='n2554' href='#n2554'>2554</a>
<a id='n2555' href='#n2555'>2555</a>
<a id='n2556' href='#n2556'>2556</a>
<a id='n2557' href='#n2557'>2557</a>
<a id='n2558' href='#n2558'>2558</a>
<a id='n2559' href='#n2559'>2559</a>
<a id='n2560' href='#n2560'>2560</a>
<a id='n2561' href='#n2561'>2561</a>
<a id='n2562' href='#n2562'>2562</a>
<a id='n2563' href='#n2563'>2563</a>
<a id='n2564' href='#n2564'>2564</a>
<a id='n2565' href='#n2565'>2565</a>
<a id='n2566' href='#n2566'>2566</a>
<a id='n2567' href='#n2567'>2567</a>
<a id='n2568' href='#n2568'>2568</a>
<a id='n2569' href='#n2569'>2569</a>
<a id='n2570' href='#n2570'>2570</a>
<a id='n2571' href='#n2571'>2571</a>
<a id='n2572' href='#n2572'>2572</a>
<a id='n2573' href='#n2573'>2573</a>
<a id='n2574' href='#n2574'>2574</a>
<a id='n2575' href='#n2575'>2575</a>
<a id='n2576' href='#n2576'>2576</a>
<a id='n2577' href='#n2577'>2577</a>
<a id='n2578' href='#n2578'>2578</a>
<a id='n2579' href='#n2579'>2579</a>
<a id='n2580' href='#n2580'>2580</a>
<a id='n2581' href='#n2581'>2581</a>
<a id='n2582' href='#n2582'>2582</a>
<a id='n2583' href='#n2583'>2583</a>
<a id='n2584' href='#n2584'>2584</a>
<a id='n2585' href='#n2585'>2585</a>
<a id='n2586' href='#n2586'>2586</a>
<a id='n2587' href='#n2587'>2587</a>
<a id='n2588' href='#n2588'>2588</a>
<a id='n2589' href='#n2589'>2589</a>
<a id='n2590' href='#n2590'>2590</a>
<a id='n2591' href='#n2591'>2591</a>
<a id='n2592' href='#n2592'>2592</a>
<a id='n2593' href='#n2593'>2593</a>
<a id='n2594' href='#n2594'>2594</a>
<a id='n2595' href='#n2595'>2595</a>
<a id='n2596' href='#n2596'>2596</a>
<a id='n2597' href='#n2597'>2597</a>
<a id='n2598' href='#n2598'>2598</a>
<a id='n2599' href='#n2599'>2599</a>
<a id='n2600' href='#n2600'>2600</a>
<a id='n2601' href='#n2601'>2601</a>
<a id='n2602' href='#n2602'>2602</a>
<a id='n2603' href='#n2603'>2603</a>
<a id='n2604' href='#n2604'>2604</a>
<a id='n2605' href='#n2605'>2605</a>
<a id='n2606' href='#n2606'>2606</a>
<a id='n2607' href='#n2607'>2607</a>
<a id='n2608' href='#n2608'>2608</a>
<a id='n2609' href='#n2609'>2609</a>
<a id='n2610' href='#n2610'>2610</a>
<a id='n2611' href='#n2611'>2611</a>
<a id='n2612' href='#n2612'>2612</a>
<a id='n2613' href='#n2613'>2613</a>
<a id='n2614' href='#n2614'>2614</a>
<a id='n2615' href='#n2615'>2615</a>
<a id='n2616' href='#n2616'>2616</a>
<a id='n2617' href='#n2617'>2617</a>
<a id='n2618' href='#n2618'>2618</a>
<a id='n2619' href='#n2619'>2619</a>
<a id='n2620' href='#n2620'>2620</a>
<a id='n2621' href='#n2621'>2621</a>
<a id='n2622' href='#n2622'>2622</a>
<a id='n2623' href='#n2623'>2623</a>
<a id='n2624' href='#n2624'>2624</a>
<a id='n2625' href='#n2625'>2625</a>
<a id='n2626' href='#n2626'>2626</a>
<a id='n2627' href='#n2627'>2627</a>
<a id='n2628' href='#n2628'>2628</a>
<a id='n2629' href='#n2629'>2629</a>
<a id='n2630' href='#n2630'>2630</a>
<a id='n2631' href='#n2631'>2631</a>
<a id='n2632' href='#n2632'>2632</a>
<a id='n2633' href='#n2633'>2633</a>
<a id='n2634' href='#n2634'>2634</a>
<a id='n2635' href='#n2635'>2635</a>
<a id='n2636' href='#n2636'>2636</a>
<a id='n2637' href='#n2637'>2637</a>
<a id='n2638' href='#n2638'>2638</a>
<a id='n2639' href='#n2639'>2639</a>
<a id='n2640' href='#n2640'>2640</a>
<a id='n2641' href='#n2641'>2641</a>
<a id='n2642' href='#n2642'>2642</a>
<a id='n2643' href='#n2643'>2643</a>
<a id='n2644' href='#n2644'>2644</a>
<a id='n2645' href='#n2645'>2645</a>
<a id='n2646' href='#n2646'>2646</a>
<a id='n2647' href='#n2647'>2647</a>
<a id='n2648' href='#n2648'>2648</a>
<a id='n2649' href='#n2649'>2649</a>
<a id='n2650' href='#n2650'>2650</a>
<a id='n2651' href='#n2651'>2651</a>
<a id='n2652' href='#n2652'>2652</a>
<a id='n2653' href='#n2653'>2653</a>
<a id='n2654' href='#n2654'>2654</a>
<a id='n2655' href='#n2655'>2655</a>
<a id='n2656' href='#n2656'>2656</a>
<a id='n2657' href='#n2657'>2657</a>
<a id='n2658' href='#n2658'>2658</a>
<a id='n2659' href='#n2659'>2659</a>
<a id='n2660' href='#n2660'>2660</a>
<a id='n2661' href='#n2661'>2661</a>
<a id='n2662' href='#n2662'>2662</a>
<a id='n2663' href='#n2663'>2663</a>
<a id='n2664' href='#n2664'>2664</a>
<a id='n2665' href='#n2665'>2665</a>
<a id='n2666' href='#n2666'>2666</a>
<a id='n2667' href='#n2667'>2667</a>
<a id='n2668' href='#n2668'>2668</a>
<a id='n2669' href='#n2669'>2669</a>
<a id='n2670' href='#n2670'>2670</a>
<a id='n2671' href='#n2671'>2671</a>
<a id='n2672' href='#n2672'>2672</a>
<a id='n2673' href='#n2673'>2673</a>
<a id='n2674' href='#n2674'>2674</a>
<a id='n2675' href='#n2675'>2675</a>
<a id='n2676' href='#n2676'>2676</a>
<a id='n2677' href='#n2677'>2677</a>
<a id='n2678' href='#n2678'>2678</a>
<a id='n2679' href='#n2679'>2679</a>
<a id='n2680' href='#n2680'>2680</a>
<a id='n2681' href='#n2681'>2681</a>
<a id='n2682' href='#n2682'>2682</a>
<a id='n2683' href='#n2683'>2683</a>
<a id='n2684' href='#n2684'>2684</a>
<a id='n2685' href='#n2685'>2685</a>
<a id='n2686' href='#n2686'>2686</a>
<a id='n2687' href='#n2687'>2687</a>
<a id='n2688' href='#n2688'>2688</a>
<a id='n2689' href='#n2689'>2689</a>
<a id='n2690' href='#n2690'>2690</a>
<a id='n2691' href='#n2691'>2691</a>
<a id='n2692' href='#n2692'>2692</a>
<a id='n2693' href='#n2693'>2693</a>
<a id='n2694' href='#n2694'>2694</a>
<a id='n2695' href='#n2695'>2695</a>
<a id='n2696' href='#n2696'>2696</a>
<a id='n2697' href='#n2697'>2697</a>
<a id='n2698' href='#n2698'>2698</a>
<a id='n2699' href='#n2699'>2699</a>
<a id='n2700' href='#n2700'>2700</a>
<a id='n2701' href='#n2701'>2701</a>
<a id='n2702' href='#n2702'>2702</a>
<a id='n2703' href='#n2703'>2703</a>
<a id='n2704' href='#n2704'>2704</a>
<a id='n2705' href='#n2705'>2705</a>
<a id='n2706' href='#n2706'>2706</a>
<a id='n2707' href='#n2707'>2707</a>
<a id='n2708' href='#n2708'>2708</a>
<a id='n2709' href='#n2709'>2709</a>
<a id='n2710' href='#n2710'>2710</a>
<a id='n2711' href='#n2711'>2711</a>
<a id='n2712' href='#n2712'>2712</a>
<a id='n2713' href='#n2713'>2713</a>
<a id='n2714' href='#n2714'>2714</a>
<a id='n2715' href='#n2715'>2715</a>
<a id='n2716' href='#n2716'>2716</a>
<a id='n2717' href='#n2717'>2717</a>
<a id='n2718' href='#n2718'>2718</a>
<a id='n2719' href='#n2719'>2719</a>
<a id='n2720' href='#n2720'>2720</a>
<a id='n2721' href='#n2721'>2721</a>
<a id='n2722' href='#n2722'>2722</a>
<a id='n2723' href='#n2723'>2723</a>
<a id='n2724' href='#n2724'>2724</a>
<a id='n2725' href='#n2725'>2725</a>
<a id='n2726' href='#n2726'>2726</a>
<a id='n2727' href='#n2727'>2727</a>
<a id='n2728' href='#n2728'>2728</a>
<a id='n2729' href='#n2729'>2729</a>
<a id='n2730' href='#n2730'>2730</a>
<a id='n2731' href='#n2731'>2731</a>
<a id='n2732' href='#n2732'>2732</a>
<a id='n2733' href='#n2733'>2733</a>
<a id='n2734' href='#n2734'>2734</a>
<a id='n2735' href='#n2735'>2735</a>
<a id='n2736' href='#n2736'>2736</a>
<a id='n2737' href='#n2737'>2737</a>
<a id='n2738' href='#n2738'>2738</a>
<a id='n2739' href='#n2739'>2739</a>
<a id='n2740' href='#n2740'>2740</a>
<a id='n2741' href='#n2741'>2741</a>
<a id='n2742' href='#n2742'>2742</a>
<a id='n2743' href='#n2743'>2743</a>
<a id='n2744' href='#n2744'>2744</a>
<a id='n2745' href='#n2745'>2745</a>
<a id='n2746' href='#n2746'>2746</a>
<a id='n2747' href='#n2747'>2747</a>
<a id='n2748' href='#n2748'>2748</a>
<a id='n2749' href='#n2749'>2749</a>
<a id='n2750' href='#n2750'>2750</a>
<a id='n2751' href='#n2751'>2751</a>
<a id='n2752' href='#n2752'>2752</a>
<a id='n2753' href='#n2753'>2753</a>
<a id='n2754' href='#n2754'>2754</a>
<a id='n2755' href='#n2755'>2755</a>
<a id='n2756' href='#n2756'>2756</a>
<a id='n2757' href='#n2757'>2757</a>
<a id='n2758' href='#n2758'>2758</a>
<a id='n2759' href='#n2759'>2759</a>
<a id='n2760' href='#n2760'>2760</a>
<a id='n2761' href='#n2761'>2761</a>
<a id='n2762' href='#n2762'>2762</a>
<a id='n2763' href='#n2763'>2763</a>
<a id='n2764' href='#n2764'>2764</a>
<a id='n2765' href='#n2765'>2765</a>
<a id='n2766' href='#n2766'>2766</a>
<a id='n2767' href='#n2767'>2767</a>
<a id='n2768' href='#n2768'>2768</a>
<a id='n2769' href='#n2769'>2769</a>
<a id='n2770' href='#n2770'>2770</a>
<a id='n2771' href='#n2771'>2771</a>
<a id='n2772' href='#n2772'>2772</a>
<a id='n2773' href='#n2773'>2773</a>
<a id='n2774' href='#n2774'>2774</a>
<a id='n2775' href='#n2775'>2775</a>
<a id='n2776' href='#n2776'>2776</a>
<a id='n2777' href='#n2777'>2777</a>
<a id='n2778' href='#n2778'>2778</a>
<a id='n2779' href='#n2779'>2779</a>
<a id='n2780' href='#n2780'>2780</a>
<a id='n2781' href='#n2781'>2781</a>
<a id='n2782' href='#n2782'>2782</a>
<a id='n2783' href='#n2783'>2783</a>
<a id='n2784' href='#n2784'>2784</a>
<a id='n2785' href='#n2785'>2785</a>
<a id='n2786' href='#n2786'>2786</a>
<a id='n2787' href='#n2787'>2787</a>
<a id='n2788' href='#n2788'>2788</a>
<a id='n2789' href='#n2789'>2789</a>
<a id='n2790' href='#n2790'>2790</a>
<a id='n2791' href='#n2791'>2791</a>
<a id='n2792' href='#n2792'>2792</a>
<a id='n2793' href='#n2793'>2793</a>
<a id='n2794' href='#n2794'>2794</a>
<a id='n2795' href='#n2795'>2795</a>
<a id='n2796' href='#n2796'>2796</a>
<a id='n2797' href='#n2797'>2797</a>
<a id='n2798' href='#n2798'>2798</a>
<a id='n2799' href='#n2799'>2799</a>
<a id='n2800' href='#n2800'>2800</a>
<a id='n2801' href='#n2801'>2801</a>
<a id='n2802' href='#n2802'>2802</a>
<a id='n2803' href='#n2803'>2803</a>
<a id='n2804' href='#n2804'>2804</a>
<a id='n2805' href='#n2805'>2805</a>
<a id='n2806' href='#n2806'>2806</a>
<a id='n2807' href='#n2807'>2807</a>
<a id='n2808' href='#n2808'>2808</a>
<a id='n2809' href='#n2809'>2809</a>
<a id='n2810' href='#n2810'>2810</a>
<a id='n2811' href='#n2811'>2811</a>
<a id='n2812' href='#n2812'>2812</a>
<a id='n2813' href='#n2813'>2813</a>
<a id='n2814' href='#n2814'>2814</a>
<a id='n2815' href='#n2815'>2815</a>
<a id='n2816' href='#n2816'>2816</a>
<a id='n2817' href='#n2817'>2817</a>
<a id='n2818' href='#n2818'>2818</a>
<a id='n2819' href='#n2819'>2819</a>
<a id='n2820' href='#n2820'>2820</a>
<a id='n2821' href='#n2821'>2821</a>
<a id='n2822' href='#n2822'>2822</a>
<a id='n2823' href='#n2823'>2823</a>
<a id='n2824' href='#n2824'>2824</a>
</pre></td>
<td class='lines'><pre><code><span class="hl kwa">package</span> printerdrake<span class="hl opt">;</span>
<span class="hl slc"># $Id$</span>
<span class="hl kwa">use</span> diagnostics<span class="hl opt">;</span>
<span class="hl kwa">use</span> strict<span class="hl opt">;</span>


<span class="hl kwa">use</span> common<span class="hl opt">;</span>
<span class="hl kwa">use</span> detect_devices<span class="hl opt">;</span>
<span class="hl kwa">use</span> modules<span class="hl opt">;</span>
<span class="hl kwa">use</span> network<span class="hl opt">;</span>
<span class="hl kwa">use</span> <span class="hl kwc">log</span><span class="hl opt">;</span>
<span class="hl kwa">use</span> printer<span class="hl opt">;</span>

<span class="hl num">1</span><span class="hl opt">;</span>

<span class="hl kwa">sub</span> choose_printer_type <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_help</span><span class="hl opt">(</span><span class="hl str">&apos;configurePrinterConnected&apos;</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl opt">$::</span>isInstall<span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$queue</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>OLD_QUEUE<span class="hl opt">};</span>
    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>str_type<span class="hl opt">} =</span> <span class="hl kwb">$printer</span><span class="hl opt">::</span>printer_type_inv<span class="hl opt">{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>TYPE<span class="hl opt">}};</span>
    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>str_type<span class="hl opt">} =</span> 
	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_list_</span><span class="hl opt">(</span>_<span class="hl opt">(</span><span class="hl str">&quot;Select Printer Connection&quot;</span><span class="hl opt">),</span>
			    _<span class="hl opt">(</span><span class="hl str">&quot;How is the printer connected?&quot;</span><span class="hl opt">) .</span>
			    <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;cups&quot;</span> ?
			     _<span class="hl opt">(</span><span class="hl str">&quot;</span>
<span class="hl str">Printers on remote CUPS servers you do not have to configure here; these printers will be automatically detected.&quot;</span><span class="hl opt">) : ()),</span>
			    <span class="hl opt">[</span> printer<span class="hl opt">::</span>printer_type<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">) ],</span>
			    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>str_type<span class="hl opt">},</span>
			    <span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>TYPE<span class="hl opt">} =</span> <span class="hl kwb">$printer</span><span class="hl opt">::</span>printer_type<span class="hl opt">{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>str_type<span class="hl opt">}};</span>
    <span class="hl num">1</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> setup_remote_cups_server <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwc">local</span> <span class="hl opt">$::</span>isWizard <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
    <span class="hl slc"># Check whether the network functionality is configured and</span>
    <span class="hl slc"># running</span>
    <span class="hl kwa">if</span> <span class="hl opt">(!</span>check_network<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">)) {</span><span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">};</span>

    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_help</span><span class="hl opt">(</span><span class="hl str">&apos;configureRemoteCUPSServer&apos;</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl opt">$::</span>isInstall<span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$queue</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>OLD_QUEUE<span class="hl opt">};</span>
    <span class="hl slc">#- hack to handle cups remote server printing,</span>
    <span class="hl slc">#- first read /etc/cups/cupsd.conf for variable BrowsePoll address:port</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$server, $port, $default, $autoconf</span><span class="hl opt">);</span>
    <span class="hl slc"># Return value: 0 when nothing was changed (&quot;Apply&quot; never pressed), 1</span>
    <span class="hl slc"># when &quot;Apply&quot; was at least pressed once.</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$retvalue</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
    <span class="hl kwa">while</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">) {</span>
	<span class="hl slc"># Read CUPS config file</span>
	<span class="hl kwc">my</span> <span class="hl kwb">&#64;cupsd_conf</span> <span class="hl opt">=</span> printer<span class="hl opt">::</span>read_cupsd_conf<span class="hl opt">();</span>
	<span class="hl kwa">foreach</span> <span class="hl opt">(</span><span class="hl kwb">&#64;cupsd_conf</span><span class="hl opt">) {</span>
	    <span class="hl kwd">/^\s*BrowsePoll\s+(\S+)/</span> <span class="hl kwc">and</span> <span class="hl kwb">$server</span> <span class="hl opt">=</span> <span class="hl kwb">$1,</span> <span class="hl kwa">last</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
	<span class="hl kwb">$server</span> <span class="hl opt">=~</span> <span class="hl kwd">/([^:]*):(.*)/</span> <span class="hl kwc">and</span> <span class="hl opt">(</span><span class="hl kwb">$server, $port</span><span class="hl opt">) = (</span><span class="hl kwb">$1, $2</span><span class="hl opt">);</span>
	<span class="hl slc"># Read printer list</span>
	<span class="hl kwc">my</span> <span class="hl kwb">&#64;queuelist</span> <span class="hl opt">=</span> printer<span class="hl opt">::</span>read_cups_printer_list<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$#queuelist</span> <span class="hl opt">&gt;=</span><span class="hl num">0</span><span class="hl opt">) {</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DEFAULT<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">) {</span>
		<span class="hl kwb">$default</span> <span class="hl opt">=</span> printer<span class="hl opt">::</span>get_default_printer<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$default</span><span class="hl opt">) {</span>
		    <span class="hl slc"># If a CUPS system has only remote printers and no default</span>
		    <span class="hl slc"># printer defined, it defines the first printer whose</span>
		    <span class="hl slc"># broadcast signal appeared after the start of the CUPS</span>
		    <span class="hl slc"># daemon, so on every start another printer gets the</span>
		    <span class="hl slc"># default printer. To avoid this, make sure that the</span>
		    <span class="hl slc"># default printer is defined.</span>
		    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DEFAULT<span class="hl opt">} =</span> <span class="hl kwb">$default</span><span class="hl opt">;</span>
		    printer<span class="hl opt">::</span>set_default_printer<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
		<span class="hl opt">}</span>
	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		<span class="hl kwb">$default</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DEFAULT<span class="hl opt">};</span>
	    <span class="hl opt">}</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$queue</span><span class="hl opt">;</span>
	    <span class="hl kwa">for</span> <span class="hl kwb">$queue</span> <span class="hl opt">(</span><span class="hl kwb">&#64;queuelist</span><span class="hl opt">) {</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$queue</span> <span class="hl opt">=~</span> <span class="hl kwd">/^\s*$default/</span><span class="hl opt">) {</span>
		    <span class="hl kwb">$default</span> <span class="hl opt">=</span> <span class="hl kwb">$queue</span><span class="hl opt">;</span>
		<span class="hl opt">}</span>
	    <span class="hl opt">}</span>
	    <span class="hl slc"># The default printer setting should not be &quot;None&quot; when there</span>
	    <span class="hl slc"># are printers</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$default</span> <span class="hl kwc">eq</span> _<span class="hl opt">(</span><span class="hl str">&quot;None&quot;</span><span class="hl opt">)) {</span>
		<span class="hl kwb">$default</span> <span class="hl opt">=</span> _<span class="hl opt">(</span><span class="hl str">&quot;Choose a default printer!&quot;</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl kwc">push</span><span class="hl opt">(</span><span class="hl kwb">&#64;queuelist,</span> _<span class="hl opt">(</span><span class="hl str">&quot;None&quot;</span><span class="hl opt">));</span>
	    <span class="hl kwb">$default</span> <span class="hl opt">=</span> _<span class="hl opt">(</span><span class="hl str">&quot;None&quot;</span><span class="hl opt">);</span>
	<span class="hl opt">}</span>
	<span class="hl slc">#- Did we have automatic or manual configuration mode for CUPS</span>
	<span class="hl kwb">$autoconf</span> <span class="hl opt">=</span> printer<span class="hl opt">::</span>get_cups_autoconf<span class="hl opt">();</span>
	<span class="hl slc">#- Remember the server/port/autoconf settings to check whether the user</span>
        <span class="hl slc">#- has changed them.</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$oldserver</span> <span class="hl opt">=</span> <span class="hl kwb">$server</span><span class="hl opt">;</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$oldport</span> <span class="hl opt">=</span> <span class="hl kwb">$port</span><span class="hl opt">;</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$oldautoconf</span> <span class="hl opt">=</span> <span class="hl kwb">$autoconf</span><span class="hl opt">;</span>

        <span class="hl slc">#- then ask user for this combination and rewrite /etc/cups/cupsd.conf</span>
	<span class="hl slc">#- according to new settings. There are no other point where such</span>
	<span class="hl slc">#- information is written in this file.</span>

	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_</span>
	    <span class="hl opt">({</span> title <span class="hl opt">=&gt;</span> _<span class="hl opt">(</span><span class="hl str">&quot;Remote CUPS server&quot;</span><span class="hl opt">),</span>
	       messages <span class="hl opt">=&gt;</span> _<span class="hl opt">(</span><span class="hl str">&quot;With remote CUPS servers, you do not have to configure any printer here; CUPS servers inform your machine automatically about their printers. All printers known to your machine currently are listed in the</span> <span class="hl esc">\&quot;</span><span class="hl str">Default printer</span><span class="hl esc">\&quot;</span> <span class="hl str">field. Choose the default printer for your machine there and click the</span> <span class="hl esc">\&quot;</span><span class="hl str">Apply/Re-read printers</span><span class="hl esc">\&quot;</span> <span class="hl str">button. Click the same button to refresh the list (it can take up to 30 seconds after the start of CUPS until all remote printers are visible). When your CUPS server is in a different network, you have to give the CUPS server IP address and optionally the port number to get the printer information from the server, otherwise leave these fields blank.&quot;</span><span class="hl opt">) .</span>
              <span class="hl opt">($::</span>expert ? _<span class="hl opt">(</span><span class="hl str">&quot;</span>
<span class="hl str">Normally, CUPS is automatically configured according to your network environment, so that you can access the printers on the CUPS servers in your local network. If this does not work correctly, turn off</span> <span class="hl esc">\&quot;</span><span class="hl str">Automatic CUPS configuration</span><span class="hl esc">\&quot;</span> <span class="hl str">and edit your file /etc/cups/cupsd.conf manually. Do not forget to restart CUPS afterwards (command:</span> <span class="hl esc">\&quot;</span><span class="hl str">service cups restart</span><span class="hl esc">\&quot;</span><span class="hl str">).&quot;</span><span class="hl opt">) : ()),</span>
              cancel <span class="hl opt">=&gt;</span> _<span class="hl opt">(</span><span class="hl str">&quot;Close&quot;</span><span class="hl opt">),</span>
              ok <span class="hl opt">=&gt;</span> _<span class="hl opt">(</span><span class="hl str">&quot;Apply/Re-read printers&quot;</span><span class="hl opt">),</span>
	      callbacks <span class="hl opt">=&gt; {</span> complete <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
		 <span class="hl kwa">unless</span> <span class="hl opt">(!</span><span class="hl kwb">$server</span> <span class="hl opt">||</span> network<span class="hl opt">::</span>is_ip<span class="hl opt">(</span><span class="hl kwb">$server</span><span class="hl opt">)) {</span>
		     <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> 
			_<span class="hl opt">(</span><span class="hl str">&quot;The IP address should look like 192.168.1.20&quot;</span><span class="hl opt">));</span>
		     <span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">,</span><span class="hl num">0</span><span class="hl opt">);</span>
		 <span class="hl opt">}</span>
		 <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$port</span> <span class="hl opt">!~</span> <span class="hl kwd">/^\d*$/</span><span class="hl opt">) {</span>
		     <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span>
			_<span class="hl opt">(</span><span class="hl str">&quot;The port number should be an integer!&quot;</span><span class="hl opt">));</span>
		     <span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">,</span><span class="hl num">1</span><span class="hl opt">);</span>
		 <span class="hl opt">}</span>
		 <span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
	     <span class="hl opt">} }</span>
	   <span class="hl opt">},</span>
	     <span class="hl opt">[</span>	
		<span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> _<span class="hl opt">(</span><span class="hl str">&quot;Default printer&quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$default,</span>
		  not_edit <span class="hl opt">=&gt;</span> <span class="hl num">0</span><span class="hl opt">,</span> list <span class="hl opt">=&gt;</span> \<span class="hl kwb">&#64;queuelist</span><span class="hl opt">},</span>
		<span class="hl slc">#{ label =&gt; _(&quot;Default printer&quot;) },</span>
		<span class="hl slc">#{ val =&gt; \$default,</span>
		<span class="hl slc">#  format =&gt; \&amp;translate, not_edit =&gt; 0, list =&gt; \&#64;queuelist},</span>
		<span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> _<span class="hl opt">(</span><span class="hl str">&quot;CUPS server IP&quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$server</span> <span class="hl opt">},</span>
		<span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> _<span class="hl opt">(</span><span class="hl str">&quot;Port&quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$port</span> <span class="hl opt">},</span>
		<span class="hl opt">($::</span>expert ?
		<span class="hl opt">{</span> text <span class="hl opt">=&gt;</span> _<span class="hl opt">(</span><span class="hl str">&quot;Automatic CUPS configuration&quot;</span><span class="hl opt">),</span> type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;bool&apos;</span><span class="hl opt">,</span>
		  val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$autoconf</span> <span class="hl opt">} : ()),</span>
		<span class="hl opt">]</span>
	     <span class="hl opt">)) {</span>
	    <span class="hl slc"># We have clicked &quot;Apply/Re-read&quot;</span>
	    <span class="hl kwb">$retvalue</span> <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
	    <span class="hl slc"># Set default printer</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$default</span> <span class="hl opt">=~</span> <span class="hl kwd">/^\s*([^\s\(\)]+)\s*\(/</span><span class="hl opt">) {</span>
		<span class="hl kwb">$default</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	    <span class="hl kwa">if</span> <span class="hl opt">((</span><span class="hl kwb">$default</span> <span class="hl kwc">ne</span> _<span class="hl opt">(</span><span class="hl str">&quot;None&quot;</span><span class="hl opt">)) &amp;&amp;</span>
		<span class="hl opt">(</span><span class="hl kwb">$default</span> <span class="hl kwc">ne</span> _<span class="hl opt">(</span><span class="hl str">&quot;Choose a default printer!&quot;</span><span class="hl opt">))) {</span>
		<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DEFAULT<span class="hl opt">} =</span> <span class="hl kwb">$default</span><span class="hl opt">;</span>
	        printer<span class="hl opt">::</span>set_default_printer<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span>
	    <span class="hl slc"># Set BrowsePoll line</span>
	    <span class="hl kwa">if</span> <span class="hl opt">((</span><span class="hl kwb">$server</span> <span class="hl kwc">ne</span> <span class="hl kwb">$oldserver</span><span class="hl opt">) || (</span><span class="hl kwb">$port</span> <span class="hl kwc">ne</span> <span class="hl kwb">$oldport</span><span class="hl opt">)) {</span>
		<span class="hl kwb">$server</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$port</span> <span class="hl kwc">and</span> <span class="hl kwb">$server</span> <span class="hl opt">=</span> <span class="hl str">&quot;</span><span class="hl ipl">$server</span><span class="hl str">:</span><span class="hl ipl">$port</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$server</span><span class="hl opt">) {</span>
		    <span class="hl kwb">&#64;cupsd_conf</span> <span class="hl opt">=</span> 
			<span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl kwb">$server</span> <span class="hl kwc">and</span> 
			      <span class="hl kwd">s/^\s*BrowsePoll\s+(\S+)/BrowsePoll $server/</span> <span class="hl kwc">and</span>
				  <span class="hl kwb">$server</span> <span class="hl opt">=</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">;</span>
			      <span class="hl kwb">$_</span> <span class="hl opt">}</span> <span class="hl kwb">&#64;cupsd_conf</span><span class="hl opt">;</span>
		    <span class="hl kwb">$server</span> <span class="hl kwc">and push</span> <span class="hl kwb">&#64;cupsd_conf,</span> <span class="hl str">&quot;</span><span class="hl esc">\n</span><span class="hl str">BrowsePoll</span> <span class="hl ipl">$server\n</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
		<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		    <span class="hl kwb">&#64;cupsd_conf</span> <span class="hl opt">=</span> 
			<span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl kwd">s/^\s*BrowsePoll\s+(\S+)/\#BrowsePoll $1/</span><span class="hl opt">;</span>
			      <span class="hl kwb">$_</span> <span class="hl opt">}</span> <span class="hl kwb">&#64;cupsd_conf</span><span class="hl opt">;</span>
		<span class="hl opt">}</span>
	        printer<span class="hl opt">::</span>write_cupsd_conf<span class="hl opt">(</span><span class="hl kwb">&#64;cupsd_conf</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span>
	    <span class="hl slc"># Set auto-configuration state</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$autoconf</span> <span class="hl opt">!=</span> <span class="hl kwb">$oldautoconf</span><span class="hl opt">) {</span>
	        printer<span class="hl opt">::</span>set_cups_autoconf<span class="hl opt">(</span><span class="hl kwb">$autoconf</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl kwa">last</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>
    <span class="hl slc"># Save user settings for auto-install</span>
    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>BROWSEPOLLADDR<span class="hl opt">} =</span> <span class="hl kwb">$server</span><span class="hl opt">;</span>
    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>BROWSEPOLLPORT<span class="hl opt">} =</span> <span class="hl kwb">$port</span><span class="hl opt">;</span>
    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>MANUALCUPSCONFIG<span class="hl opt">} =</span> <span class="hl num">1</span> <span class="hl opt">-</span> <span class="hl kwb">$autoconf</span><span class="hl opt">;</span>
    <span class="hl kwa">return</span> <span class="hl kwb">$retvalue</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> setup_printer_connection <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl slc"># Choose the appropriate connection config dialog</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$done</span> <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl kwa">for</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>TYPE<span class="hl opt">}) {</span>
	<span class="hl kwd">/LOCAL/</span>     <span class="hl kwc">and</span> setup_local    <span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">)</span> <span class="hl kwc">and</span> <span class="hl kwa">last</span><span class="hl opt">;</span>
	<span class="hl kwd">/LPD/</span>       <span class="hl kwc">and</span> setup_lpd      <span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">)</span> <span class="hl kwc">and</span> <span class="hl kwa">last</span><span class="hl opt">;</span>
	<span class="hl kwd">/SOCKET/</span>    <span class="hl kwc">and</span> setup_socket   <span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">)</span> <span class="hl kwc">and</span> <span class="hl kwa">last</span><span class="hl opt">;</span>
	<span class="hl kwd">/SMB/</span>       <span class="hl kwc">and</span> setup_smb      <span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">)</span> <span class="hl kwc">and</span> <span class="hl kwa">last</span><span class="hl opt">;</span>
	<span class="hl kwd">/NCP/</span>       <span class="hl kwc">and</span> setup_ncp      <span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">)</span> <span class="hl kwc">and</span> <span class="hl kwa">last</span><span class="hl opt">;</span>
	<span class="hl kwd">/URI/</span>       <span class="hl kwc">and</span> setup_uri      <span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">)</span> <span class="hl kwc">and</span> <span class="hl kwa">last</span><span class="hl opt">;</span>
	<span class="hl kwd">/POSTPIPE/</span>  <span class="hl kwc">and</span> setup_postpipe <span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">)</span> <span class="hl kwc">and</span> <span class="hl kwa">last</span><span class="hl opt">;</span>
	<span class="hl kwb">$done</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span> <span class="hl kwa">last</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">return</span> <span class="hl kwb">$done</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> auto_detect <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$in</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl opt">{</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$w</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</span><span class="hl opt">(</span>_<span class="hl opt">(</span><span class="hl str">&quot;Test ports&quot;</span><span class="hl opt">),</span> _<span class="hl opt">(</span><span class="hl str">&quot;Detecting devices ...&quot;</span><span class="hl opt">));</span>
	modules<span class="hl opt">::</span>get_alias<span class="hl opt">(</span><span class="hl str">&quot;usb-interface&quot;</span><span class="hl opt">)</span> <span class="hl kwc">and eval</span> <span class="hl opt">{</span> modules<span class="hl opt">::</span>load<span class="hl opt">(</span><span class="hl str">&quot;printer&quot;</span><span class="hl opt">);</span> <span class="hl kwc">sleep</span><span class="hl opt">(</span><span class="hl num">2</span><span class="hl opt">); };</span>
	<span class="hl kwa">foreach</span> <span class="hl opt">(</span><span class="hl str">qw(lp parport_pc parport_probe parport)</span><span class="hl opt">) {</span>
	    <span class="hl kwc">eval</span> <span class="hl opt">{</span> modules<span class="hl opt">::</span>unload<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">); };</span> <span class="hl slc">#- on kernel 2.4 parport has to be unloaded to probe again</span>
	<span class="hl opt">}</span>
	<span class="hl kwa">foreach</span> <span class="hl opt">(</span><span class="hl str">qw(parport_pc lp parport_probe)</span><span class="hl opt">) {</span>
	    <span class="hl kwc">eval</span> <span class="hl opt">{</span> modules<span class="hl opt">::</span>load<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">); };</span> <span class="hl slc">#- take care as not available on 2.4 kernel (silent error).</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$b</span> <span class="hl opt">=</span> before_leaving <span class="hl opt">{</span> <span class="hl kwc">eval</span> <span class="hl opt">{</span> modules<span class="hl opt">::</span>unload<span class="hl opt">(</span><span class="hl str">&quot;parport_probe&quot;</span><span class="hl opt">) } };</span>
    detect_devices<span class="hl opt">::</span>whatPrinter<span class="hl opt">();</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> wizard_welcome <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$ret</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$autodetect</span> <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl kwb">$autodetect</span> <span class="hl opt">=</span> <span class="hl num">0</span> <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>NOAUTODETECT<span class="hl opt">});</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$in</span><span class="hl opt">) {</span>
	<span class="hl kwc">eval</span> <span class="hl opt">{</span>
	    <span class="hl kwa">if</span> <span class="hl opt">($::</span>expert<span class="hl opt">) {</span>
		<span class="hl kwb">$ret</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_okcancel</span>
		    <span class="hl opt">(</span>_<span class="hl opt">(</span><span class="hl str">&quot;Add a new printer&quot;</span><span class="hl opt">),</span>
		     _<span class="hl opt">(</span><span class="hl str">&quot;</span>
<span class="hl str">Welcome to the Printer Setup Wizard</span>
<span class="hl str"></span>
<span class="hl str">This wizard allows you to install local or remote printers to be used from this machine and also from other machines in the network.</span>
<span class="hl str"></span>
<span class="hl str">It asks you for all necessary information to set up the printer and gives you access to all available printer drivers, driver options, and printer connection types.&quot;</span><span class="hl opt">));</span>
	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		<span class="hl kwb">$ret</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_</span>
		    <span class="hl opt">({</span>title <span class="hl opt">=&gt;</span> _<span class="hl opt">(</span><span class="hl str">&quot;Local Printer&quot;</span><span class="hl opt">),</span>
		      messages <span class="hl opt">=&gt;</span> _<span class="hl opt">(</span><span class="hl str">&quot;</span>
<span class="hl str">Welcome to the Printer Setup Wizard</span>
<span class="hl str"></span>
<span class="hl str">This wizard will help you to install your printer(s) connected to this computer.</span>
<span class="hl str"></span>
<span class="hl str">Please plug in your printer(s) on this computer and turn it/them on. Click on</span> <span class="hl esc">\&quot;</span><span class="hl str">Next</span><span class="hl esc">\&quot;</span> <span class="hl str">when you are ready, and on</span> <span class="hl esc">\&quot;</span><span class="hl str">Cancel</span><span class="hl esc">\&quot;</span> <span class="hl str">when you do not want to set up your printer(s) now.</span>
<span class="hl str"></span>
<span class="hl str">Note that some computers can crash during the printer auto-detection, turn off</span> <span class="hl esc">\&quot;</span><span class="hl str">Auto-detect printers</span><span class="hl esc">\&quot;</span> <span class="hl str">to do a printer installation without auto-detection. Use the</span> <span class="hl esc">\&quot;</span><span class="hl str">Expert Mode</span><span class="hl esc">\&quot;</span> <span class="hl str">of printerdrake when you want to set up printing on a remote printer if printerdrake does not list it automatically.&quot;</span><span class="hl opt">)},</span>
		     <span class="hl opt">[</span>
		      <span class="hl opt">{</span> text <span class="hl opt">=&gt;</span> _<span class="hl opt">(</span><span class="hl str">&quot;Auto-detect printers&quot;</span><span class="hl opt">),</span> type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;bool&apos;</span><span class="hl opt">,</span>
			val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$autodetect</span><span class="hl opt">},</span>
		      <span class="hl opt">]);</span>
		<span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$autodetect</span><span class="hl opt">) {</span>
		    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>NOAUTODETECT<span class="hl opt">} =</span> <span class="hl num">1</span><span class="hl opt">;</span>
		<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		    <span class="hl kwc">undef</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>NOAUTODETECT<span class="hl opt">};</span>
		<span class="hl opt">}</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">};</span>
	<span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl kwb">$&#64;</span> <span class="hl opt">=~</span> <span class="hl kwd">/wizcancel/</span><span class="hl opt">)</span> ? <span class="hl num">0</span> <span class="hl opt">:</span> <span class="hl kwb">$ret</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> wizard_congratulations <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$in</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$in</span><span class="hl opt">) {</span>
	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_okcancel</span><span class="hl opt">(</span>_<span class="hl opt">(</span><span class="hl str">&quot;Local Printer&quot;</span><span class="hl opt">),</span>
			  _<span class="hl opt">(</span><span class="hl str">&quot;</span>
<span class="hl str">Congratulations, your printer is now installed and configured!</span>
<span class="hl str"></span>
<span class="hl str">You can print using the</span> <span class="hl esc">\&quot;</span><span class="hl str">Print</span><span class="hl esc">\&quot;</span> <span class="hl str">command of your application (usually in the</span> <span class="hl esc">\&quot;</span><span class="hl str">File</span><span class="hl esc">\&quot;</span> <span class="hl str">menu).</span>
<span class="hl str"></span>
<span class="hl str">If you want to add, remove, or rename a printer, or if you want to change the default option settings (paper input tray, printout quality, ...), select</span> <span class="hl esc">\&quot;</span><span class="hl str">Printer</span><span class="hl esc">\&quot;</span> <span class="hl str">in the</span> <span class="hl esc">\&quot;</span><span class="hl str">Hardware</span><span class="hl esc">\&quot;</span> <span class="hl str">section of the Mandrake Control Center.&quot;</span><span class="hl opt">))</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> setup_local <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">&#64;port, &#64;str, $device</span><span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$queue</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>OLD_QUEUE<span class="hl opt">};</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$do_auto_detect</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">((!$::</span>expert<span class="hl opt">) &amp;&amp; ($::</span>isWizard<span class="hl opt">)) {</span>
	<span class="hl kwb">$do_auto_detect</span> <span class="hl opt">= !</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>NOAUTODETECT<span class="hl opt">};</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl kwc">local</span> <span class="hl opt">$::</span>isWizard <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$res</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_list_</span>
	    <span class="hl opt">(</span>_<span class="hl opt">(</span><span class="hl str">&quot;Auto-Detection of Printers&quot;</span><span class="hl opt">),</span>
	     _<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake is able to auto-detect your locally connected parallel and USB printers for you, but note that on some systems the auto-detection CAN FREEZE YOUR SYSTEM AND THIS CAN LEAD TO CORRUPTED FILE SYSTEMS! So do it ON YOUR OWN RISK!</span>
<span class="hl str"></span>
<span class="hl str">Do you really want to get your printers auto-detected?&quot;</span><span class="hl opt">),</span>
	     <span class="hl opt">[</span>_<span class="hl opt">(</span><span class="hl str">&quot;Do auto-detection&quot;</span><span class="hl opt">),</span>
	      _<span class="hl opt">(</span><span class="hl str">&quot;Set up printer manually&quot;</span><span class="hl opt">)],</span>
	     _<span class="hl opt">(</span><span class="hl str">&quot;Do auto-detection&quot;</span><span class="hl opt">));</span>
	<span class="hl kwb">$do_auto_detect</span> <span class="hl opt">= (</span><span class="hl kwb">$res</span> <span class="hl kwc">eq</span> _<span class="hl opt">(</span><span class="hl str">&quot;Do auto-detection&quot;</span><span class="hl opt">));</span>
    <span class="hl opt">}</span>
    <span class="hl kwc">my</span> <span class="hl kwb">&#64;parport</span> <span class="hl opt">= ();</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$menuentries</span> <span class="hl opt">= {};</span>
    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_help</span><span class="hl opt">(</span><span class="hl str">&apos;setupLocal&apos;</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl opt">$::</span>isInstall<span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$do_auto_detect</span><span class="hl opt">) {</span>
	<span class="hl slc"># When HPOJ is running, it blocks the printer ports on which it is</span>
	<span class="hl slc"># configured, so we stop it here. If it is not installed or not </span>
	<span class="hl slc"># configured, this command has no effect.</span>
	printer<span class="hl opt">::</span>stop_service<span class="hl opt">(</span><span class="hl str">&quot;hpoj&quot;</span><span class="hl opt">);</span>
	<span class="hl kwb">&#64;parport</span> <span class="hl opt">=</span> auto_detect<span class="hl opt">(</span><span class="hl kwb">$in</span><span class="hl opt">);</span>
	<span class="hl kwa">for</span> <span class="hl kwc">my</span> <span class="hl kwb">$p</span> <span class="hl opt">(</span><span class="hl kwb">&#64;parport</span><span class="hl opt">) {</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$p</span><span class="hl opt">-&gt;{</span>val<span class="hl opt">}{</span>DESCRIPTION<span class="hl opt">}) {</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$menustr</span> <span class="hl opt">=</span> <span class="hl kwb">$p</span><span class="hl opt">-&gt;{</span>val<span class="hl opt">}{</span>DESCRIPTION<span class="hl opt">};</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$p</span><span class="hl opt">-&gt;{</span>port<span class="hl opt">} =~</span> <span class="hl kwd">m!^/dev/lp(\d+)$!</span><span class="hl opt">) {</span>
		    <span class="hl kwb">$menustr</span> <span class="hl opt">.=</span> _<span class="hl opt">(</span><span class="hl str">&quot; on parallel port \#</span><span class="hl ipl">%s</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$1</span><span class="hl opt">);</span>
		<span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$p</span><span class="hl opt">-&gt;{</span>port<span class="hl opt">} =~</span> <span class="hl kwd">m!^/dev/usb/lp(\d+)$!</span><span class="hl opt">) {</span>
		    <span class="hl kwb">$menustr</span> <span class="hl opt">.=</span> _<span class="hl opt">(</span><span class="hl str">&quot;, USB printer \#</span><span class="hl ipl">%s</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$1</span><span class="hl opt">);</span>
		<span class="hl opt">}</span>
		<span class="hl kwa">if</span> <span class="hl opt">($::</span>expert<span class="hl opt">) {</span>
		    <span class="hl kwb">$menustr</span> <span class="hl opt">.=</span> <span class="hl str">&quot; (</span><span class="hl ipl">$p</span><span class="hl str">-&gt;{port})&quot;</span><span class="hl opt">;</span>
		<span class="hl opt">}</span>
		<span class="hl kwb">$menuentries</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$menustr</span><span class="hl opt">} =</span> <span class="hl kwb">$p</span><span class="hl opt">-&gt;{</span>port<span class="hl opt">};</span>
		<span class="hl kwc">push</span> <span class="hl kwb">&#64;str,</span> _<span class="hl opt">(</span><span class="hl str">&quot;Detected</span> <span class="hl ipl">%s</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$menustr</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$menustr</span><span class="hl opt">;</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$p</span><span class="hl opt">-&gt;{</span>port<span class="hl opt">} =~</span> <span class="hl kwd">m!^/dev/lp(\d+)$!</span><span class="hl opt">) {</span>
		    <span class="hl kwb">$menustr</span> <span class="hl opt">=</span> _<span class="hl opt">(</span><span class="hl str">&quot;Printer on parallel port \#</span><span class="hl ipl">%s</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$1</span><span class="hl opt">);</span>
		<span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$p</span><span class="hl opt">-&gt;{</span>port<span class="hl opt">} =~</span> <span class="hl kwd">m!^/dev/usb/lp(\d+)$!</span><span class="hl opt">) {</span>
		    <span class="hl kwb">$menustr</span> <span class="hl opt">=</span> _<span class="hl opt">(</span><span class="hl str">&quot;USB printer \#</span><span class="hl ipl">%s</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$1</span><span class="hl opt">);</span>
		<span class="hl opt">}</span>
		<span class="hl kwa">if</span> <span class="hl opt">($::</span>expert<span class="hl opt">) {</span>
		    <span class="hl kwb">$menustr</span> <span class="hl opt">.=</span> <span class="hl str">&quot; (</span><span class="hl ipl">$p</span><span class="hl str">-&gt;{port})&quot;</span><span class="hl opt">;</span>
		<span class="hl opt">}</span>
		<span class="hl kwb">$menuentries</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$menustr</span><span class="hl opt">} =</span> <span class="hl kwb">$p</span><span class="hl opt">-&gt;{</span>port<span class="hl opt">};</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span>
	<span class="hl kwa">if</span> <span class="hl opt">($::</span>expert<span class="hl opt">) {</span>
	    <span class="hl kwb">&#64;port</span> <span class="hl opt">=</span> detect_devices<span class="hl opt">::</span>whatPrinterPort<span class="hl opt">();</span>
	    <span class="hl kwa">for</span> <span class="hl kwc">my</span> <span class="hl kwb">$q</span> <span class="hl opt">(</span><span class="hl kwb">&#64;port</span><span class="hl opt">) {</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">&#64;str</span><span class="hl opt">) {</span>
		    <span class="hl kwc">my</span> <span class="hl kwb">$alreadyfound</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
		    <span class="hl kwa">for</span> <span class="hl kwc">my</span> <span class="hl kwb">$p</span> <span class="hl opt">(</span><span class="hl kwb">&#64;parport</span><span class="hl opt">) {</span>
			<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$p</span><span class="hl opt">-&gt;{</span>port<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl kwb">$q</span><span class="hl opt">) {</span>
			    <span class="hl kwb">$alreadyfound</span> <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
			    <span class="hl kwa">last</span><span class="hl opt">;</span>
			<span class="hl opt">}</span>
		    <span class="hl opt">}</span>
		    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$alreadyfound</span><span class="hl opt">) {</span>
			<span class="hl kwa">next</span><span class="hl opt">;</span>
		    <span class="hl opt">}</span>
		<span class="hl opt">}</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$menustr</span><span class="hl opt">;</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$q</span> <span class="hl opt">=~</span> <span class="hl kwd">m!^/dev/lp(\d+)$!</span><span class="hl opt">) {</span>
		    <span class="hl kwb">$menustr</span> <span class="hl opt">=</span> _<span class="hl opt">(</span><span class="hl str">&quot;Printer on parallel port \#</span><span class="hl ipl">%s</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$1</span><span class="hl opt">);</span>
		<span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$q</span> <span class="hl opt">=~</span> <span class="hl kwd">m!^/dev/usb/lp(\d+)$!</span><span class="hl opt">) {</span>
		    <span class="hl kwb">$menustr</span> <span class="hl opt">=</span> _<span class="hl opt">(</span><span class="hl str">&quot;USB printer \#</span><span class="hl ipl">%s</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$1</span><span class="hl opt">);</span>
		<span class="hl opt">}</span>
		<span class="hl kwa">if</span> <span class="hl opt">($::</span>expert<span class="hl opt">) {</span>
		    <span class="hl kwb">$menustr</span> <span class="hl opt">.=</span> <span class="hl str">&quot; (</span><span class="hl ipl">$q</span><span class="hl str">)&quot;</span><span class="hl opt">;</span>
		<span class="hl opt">}</span>
		<span class="hl kwb">$menuentries</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$menustr</span><span class="hl opt">} =</span> <span class="hl kwb">$q</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span>
	<span class="hl slc"># We are ready with auto-detection, so we restart HPOJ here. If it </span>
	<span class="hl slc"># is not installed or not configured, this command has no effect.</span>
	printer<span class="hl opt">::</span>start_service<span class="hl opt">(</span><span class="hl str">&quot;hpoj&quot;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$m</span><span class="hl opt">;</span>
	<span class="hl kwa">for</span> <span class="hl opt">(</span><span class="hl kwb">$m</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span> <span class="hl kwb">$m</span> <span class="hl opt">&lt;=</span> <span class="hl num">2</span><span class="hl opt">;</span> <span class="hl kwb">$m++</span><span class="hl opt">) {</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$menustr</span> <span class="hl opt">=</span> _<span class="hl opt">(</span><span class="hl str">&quot;Printer on parallel port \#</span><span class="hl ipl">%s</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$m</span><span class="hl opt">);</span>
	    <span class="hl kwa">if</span> <span class="hl opt">($::</span>expert<span class="hl opt">) {</span>
		<span class="hl kwb">$menustr</span> <span class="hl opt">.=</span> <span class="hl str">&quot; (/dev/lp</span><span class="hl ipl">$m</span><span class="hl str">)&quot;</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	    <span class="hl kwb">$menuentries</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$menustr</span><span class="hl opt">} =</span> <span class="hl str">&quot;/dev/lp</span><span class="hl ipl">$m</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
	    <span class="hl kwb">$menustr</span> <span class="hl opt">=</span> _<span class="hl opt">(</span><span class="hl str">&quot;USB printer \#</span><span class="hl ipl">%s</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$m</span><span class="hl opt">);</span>
	    <span class="hl kwa">if</span> <span class="hl opt">($::</span>expert<span class="hl opt">) {</span>
		<span class="hl kwb">$menustr</span> <span class="hl opt">.=</span> <span class="hl str">&quot; (/dev/usb/lp</span><span class="hl ipl">$m</span><span class="hl str">)&quot;</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	    <span class="hl kwb">$menuentries</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$menustr</span><span class="hl opt">} =</span> <span class="hl str">&quot;/dev/usb/lp</span><span class="hl ipl">$m</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>
    <span class="hl kwc">my</span> <span class="hl kwb">&#64;menuentrieslist</span> <span class="hl opt">=</span> <span class="hl kwc">sort</span> <span class="hl opt">{</span> <span class="hl kwb">$menuentries</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$a</span><span class="hl opt">}</span> <span class="hl kwc">cmp</span> <span class="hl kwb">$menuentries</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$b</span><span class="hl opt">} }</span>
    <span class="hl kwc">keys</span><span class="hl opt">(%{</span><span class="hl kwb">$menuentries</span><span class="hl opt">});</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$menuchoice</span> <span class="hl opt">=</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$oldmenuchoice</span> <span class="hl opt">=</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">((</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">}) &amp;&amp;</span>
	<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;connect&apos;</span><span class="hl opt">} =~</span> <span class="hl kwd">m/^file:/</span><span class="hl opt">)) {</span>
	<span class="hl slc"># Non-HP or HP print-only device (HPOJ not used)</span>
	<span class="hl kwb">$device</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;connect&apos;</span><span class="hl opt">};</span>
	<span class="hl kwb">$device</span> <span class="hl opt">=~</span> <span class="hl kwd">s/^file://</span><span class="hl opt">;</span>
	<span class="hl kwa">for</span> <span class="hl kwc">my</span> <span class="hl kwb">$p</span> <span class="hl opt">(</span><span class="hl kwc">keys</span> <span class="hl opt">%{</span><span class="hl kwb">$menuentries</span><span class="hl opt">}) {</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$device</span> <span class="hl kwc">eq</span> <span class="hl kwb">$menuentries</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$p</span><span class="hl opt">}) {</span>
		<span class="hl kwb">$menuchoice</span> <span class="hl opt">=</span> <span class="hl kwb">$p</span><span class="hl opt">;</span>
		<span class="hl kwa">last</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">((</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">}) &amp;&amp;</span>
	<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;connect&apos;</span><span class="hl opt">} =~</span> <span class="hl kwd">m!^ptal:/mlc:!</span><span class="hl opt">)) {</span>
	<span class="hl slc"># HP multi-function device (controlled by HPOJ)</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$ptaldevice</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;connect&apos;</span><span class="hl opt">};</span>
	<span class="hl kwb">$ptaldevice</span> <span class="hl opt">=~</span> <span class="hl kwd">s!^ptal:/mlc:!!</span><span class="hl opt">;</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$ptaldevice</span> <span class="hl opt">=~</span> <span class="hl kwd">/^par:(\d+)$/</span><span class="hl opt">) {</span>
	    <span class="hl kwb">$device</span> <span class="hl opt">=</span> <span class="hl str">&quot;/dev/lp</span><span class="hl ipl">$1</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
	    <span class="hl kwa">for</span> <span class="hl kwc">my</span> <span class="hl kwb">$p</span> <span class="hl opt">(</span><span class="hl kwc">keys</span> <span class="hl opt">%{</span><span class="hl kwb">$menuentries</span><span class="hl opt">}) {</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$device</span> <span class="hl kwc">eq</span> <span class="hl kwb">$menuentries</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$p</span><span class="hl opt">}) {</span>
		    <span class="hl kwb">$menuchoice</span> <span class="hl opt">=</span> <span class="hl kwb">$p</span><span class="hl opt">;</span>
		    <span class="hl kwa">last</span><span class="hl opt">;</span>
		<span class="hl opt">}</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$make</span> <span class="hl opt">=</span> <span class="hl kwc">lc</span><span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;make&apos;</span><span class="hl opt">});</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$model</span> <span class="hl opt">=</span> <span class="hl kwc">lc</span><span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;model&apos;</span><span class="hl opt">});</span>
	    <span class="hl kwb">$device</span> <span class="hl opt">=</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
	    <span class="hl kwa">for</span> <span class="hl kwc">my</span> <span class="hl kwb">$p</span> <span class="hl opt">(</span><span class="hl kwc">keys</span> <span class="hl opt">%{</span><span class="hl kwb">$menuentries</span><span class="hl opt">}) {</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$menumakemodel</span> <span class="hl opt">=</span> <span class="hl kwc">lc</span><span class="hl opt">(</span><span class="hl kwb">$p</span><span class="hl opt">);</span>
		<span class="hl kwa">if</span> <span class="hl opt">((</span><span class="hl kwb">$menumakemodel</span> <span class="hl opt">=~</span> <span class="hl kwd">/$make/</span><span class="hl opt">) &amp;&amp;</span> 
		    <span class="hl opt">(</span><span class="hl kwb">$menumakemodel</span> <span class="hl opt">=~</span> <span class="hl kwd">/$model/</span><span class="hl opt">)) {</span>
		    <span class="hl kwb">$menuchoice</span> <span class="hl opt">=</span> <span class="hl kwb">$p</span><span class="hl opt">;</span>
		    <span class="hl kwb">$device</span> <span class="hl opt">=</span> <span class="hl kwb">$menuentries</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$p</span><span class="hl opt">};</span>
		    <span class="hl kwa">last</span><span class="hl opt">;</span>
		<span class="hl opt">}</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl kwb">$device</span> <span class="hl opt">=</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">if</span> <span class="hl opt">((</span><span class="hl kwb">$menuchoice</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">) &amp;&amp; (</span><span class="hl kwb">&#64;menuentrieslist</span> <span class="hl opt">&gt; -</span><span class="hl num">1</span><span class="hl opt">)) {</span>
	<span class="hl kwb">$menuchoice</span> <span class="hl opt">=</span> <span class="hl kwb">$menuentrieslist</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">];</span>
	<span class="hl kwb">$oldmenuchoice</span> <span class="hl opt">=</span> <span class="hl kwb">$menuchoice</span><span class="hl opt">;</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$device</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">) {</span>
	    <span class="hl kwb">$device</span> <span class="hl opt">=</span> <span class="hl kwb">$menuentries</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$menuchoice</span><span class="hl opt">};</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$in</span><span class="hl opt">) {</span>
	<span class="hl opt">$::</span>expert <span class="hl kwc">or</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_help</span><span class="hl opt">(</span><span class="hl str">&apos;configurePrinterDev&apos;</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl opt">$::</span>isInstall<span class="hl opt">;</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$#menuentrieslist</span> <span class="hl opt">&lt;</span> <span class="hl num">0</span><span class="hl opt">) {</span> <span class="hl slc"># No menu entry</span>
	    <span class="hl slc"># auto-detection has failed, we must do all manually</span>
	    <span class="hl kwb">$do_auto_detect</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>MANUAL<span class="hl opt">} =</span> <span class="hl num">1</span><span class="hl opt">;</span>
	    <span class="hl kwa">if</span> <span class="hl opt">($::</span>expert<span class="hl opt">) {</span>
		<span class="hl kwb">$device</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_entry</span>
		    <span class="hl opt">(</span>_<span class="hl opt">(</span><span class="hl str">&quot;Local Printer&quot;</span><span class="hl opt">),</span>
		     _<span class="hl opt">(</span><span class="hl str">&quot;No local printer found! To manually install a printer enter a device name/file name in the input line (Parallel Ports: /dev/lp0, /dev/lp1, ..., equivalent to LPT1:, LPT2:, ..., 1st USB printer: /dev/usb/lp0, 2nd USB printer: /dev/usb/lp1, ...).&quot;</span><span class="hl opt">),</span>
		     <span class="hl opt">{</span> 
			 complete <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
			     <span class="hl kwa">unless</span> <span class="hl opt">(</span><span class="hl kwb">$menuchoice</span> <span class="hl kwc">ne</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">) {</span>
				 <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> _<span class="hl opt">(</span><span class="hl str">&quot;You must enter a device or file name!&quot;</span><span class="hl opt">));</span>
				 <span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">,</span><span class="hl num">0</span><span class="hl opt">);</span>
			     <span class="hl opt">}</span>
			     <span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
			 <span class="hl opt">}</span>
		     <span class="hl opt">});</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$device</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">) {</span>
		    <span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
		<span class="hl opt">}</span>
	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span>_<span class="hl opt">(</span><span class="hl str">&quot;Local Printer&quot;</span><span class="hl opt">),</span>
			      _<span class="hl opt">(</span><span class="hl str">&quot;No local printer found!</span><span class="hl esc">\n\n</span><span class="hl str">&quot;</span><span class="hl opt">) .</span> 
			      <span class="hl opt">($::</span>isInstall ? _<span class="hl opt">(</span><span class="hl str">&quot;Network printers can only be installed after the installation. Choose</span> <span class="hl esc">\&quot;</span><span class="hl str">Hardware</span><span class="hl esc">\&quot;</span> <span class="hl str">and then</span> <span class="hl esc">\&quot;</span><span class="hl str">Printer</span><span class="hl esc">\&quot;</span> <span class="hl str">in the Mandrake Control Center.&quot;</span><span class="hl opt">) :</span>
			       _<span class="hl opt">(</span><span class="hl str">&quot;To install network printers, click</span> <span class="hl esc">\&quot;</span><span class="hl str">Cancel</span><span class="hl esc">\&quot;</span><span class="hl str">, switch to the</span> <span class="hl esc">\&quot;</span><span class="hl str">Expert Mode</span><span class="hl esc">\&quot;</span><span class="hl str">, and click</span> <span class="hl esc">\&quot;</span><span class="hl str">Add a new printer</span><span class="hl esc">\&quot;</span> <span class="hl str">again.&quot;</span><span class="hl opt">)));</span>
		<span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$manualconf</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
	    <span class="hl kwb">$manualconf</span> <span class="hl opt">=</span> <span class="hl num">1</span> <span class="hl kwa">if</span> <span class="hl opt">((</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>MANUAL<span class="hl opt">}) || (!</span><span class="hl kwb">$do_auto_detect</span><span class="hl opt">));</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_</span><span class="hl opt">(</span>
	    <span class="hl opt">{</span>title <span class="hl opt">=&gt;</span> _<span class="hl opt">(</span><span class="hl str">&quot;Local Printer&quot;</span><span class="hl opt">),</span>
	     messages <span class="hl opt">=&gt; ((</span><span class="hl kwb">$do_auto_detect</span> ?
			  <span class="hl opt">($::</span>expert ?
			   <span class="hl opt">((</span><span class="hl kwb">$#menuentrieslist</span> <span class="hl opt">==</span> <span class="hl num">0</span><span class="hl opt">)</span> ?
_<span class="hl opt">(</span><span class="hl str">&quot;The following printer was auto-detected, if it is not the one you want to configure, enter a device name/file name in the input line&quot;</span><span class="hl opt">) :</span>
_<span class="hl opt">(</span><span class="hl str">&quot;Here is a list of all auto-detected printers. Please choose the printer you want to set up or enter a device name/file name in the input line&quot;</span><span class="hl opt">)) :</span>
			   <span class="hl opt">((</span><span class="hl kwb">$#menuentrieslist</span> <span class="hl opt">==</span> <span class="hl num">0</span><span class="hl opt">)</span> ?
_<span class="hl opt">(</span><span class="hl str">&quot;The following printer was auto-detected. The configuration of the printer will work fully automatically. If your printer was not correctly detected or if you prefer a customized printer configuration, turn on</span> <span class="hl esc">\&quot;</span><span class="hl str">Manual configuration</span><span class="hl esc">\&quot;</span><span class="hl str">.&quot;</span><span class="hl opt">) :</span>
_<span class="hl opt">(</span><span class="hl str">&quot;Here is a list of all auto-detected printers. Please choose the printer you want to set up. The configuration of the printer will work fully automatically. If your printer was not correctly detected or if you prefer a customized printer configuration, turn on</span> <span class="hl esc">\&quot;</span><span class="hl str">Manual configuration</span><span class="hl esc">\&quot;</span><span class="hl str">.&quot;</span><span class="hl opt">))) :</span>
			  <span class="hl opt">($::</span>expert ?
_<span class="hl opt">(</span><span class="hl str">&quot;Please choose the port where your printer is connected to or enter a device name/file name in the input line&quot;</span><span class="hl opt">) :</span>
_<span class="hl opt">(</span><span class="hl str">&quot;Please choose the port where your printer is connected to.&quot;</span><span class="hl opt">))) .</span>
			 <span class="hl opt">($::</span>expert ?
_<span class="hl opt">(</span><span class="hl str">&quot; (Parallel Ports: /dev/lp0, /dev/lp1, ..., equivalent to LPT1:, LPT2:, ..., 1st USB printer: /dev/usb/lp0, 2nd USB printer: /dev/usb/lp1, ...).&quot;</span><span class="hl opt">) :</span>
			  <span class="hl opt">())),</span> 
             callbacks <span class="hl opt">=&gt; {</span>
		 complete <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
		     <span class="hl kwa">unless</span> <span class="hl opt">(</span><span class="hl kwb">$menuchoice</span> <span class="hl kwc">ne</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">) {</span>
			 <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> _<span class="hl opt">(</span><span class="hl str">&quot;You must choose/enter a printer/device!&quot;</span><span class="hl opt">));</span>
			 <span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">,</span><span class="hl num">0</span><span class="hl opt">);</span>
		     <span class="hl opt">}</span>
		     <span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
		 <span class="hl opt">},</span>
		 changed <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
		     <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$oldmenuchoice</span> <span class="hl kwc">ne</span> <span class="hl kwb">$menuchoice</span><span class="hl opt">) {</span>
			 <span class="hl kwb">$device</span> <span class="hl opt">=</span> <span class="hl kwb">$menuentries</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$menuchoice</span><span class="hl opt">};</span>
			 <span class="hl kwb">$oldmenuchoice</span> <span class="hl opt">=</span> <span class="hl kwb">$menuchoice</span><span class="hl opt">;</span>
		     <span class="hl opt">}</span>
		     <span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
		 <span class="hl opt">}</span>
	     <span class="hl opt">}},</span>
            <span class="hl opt">[</span>
	     <span class="hl opt">($::</span>expert ? 
	      <span class="hl opt">{</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$device</span> <span class="hl opt">} : ()),</span>
	     <span class="hl opt">{</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$menuchoice,</span> list <span class="hl opt">=&gt;</span> \<span class="hl kwb">&#64;menuentrieslist,</span> 
	       not_edit <span class="hl opt">=&gt; !$::</span>expert<span class="hl opt">,</span> format <span class="hl opt">=&gt;</span> \<span class="hl opt">&amp;</span>translate<span class="hl opt">,</span>
	       allow_empty_list <span class="hl opt">=&gt;</span> <span class="hl num">1</span><span class="hl opt">,</span> type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;list&apos;</span> <span class="hl opt">},</span>
	     <span class="hl opt">(((!$::</span>expert<span class="hl opt">) &amp;&amp; (</span><span class="hl kwb">$do_auto_detect</span><span class="hl opt">))</span> ? 
	      <span class="hl opt">{</span> text <span class="hl opt">=&gt;</span> _<span class="hl opt">(</span><span class="hl str">&quot;Manual configuration&quot;</span><span class="hl opt">),</span> type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;bool&apos;</span><span class="hl opt">,</span>
		val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$manualconf</span> <span class="hl opt">} : ()),</span>
	    <span class="hl opt">]</span>
	    <span class="hl opt">)) {</span>
		<span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$manualconf</span><span class="hl opt">) {</span>
		<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>MANUAL<span class="hl opt">} =</span> <span class="hl num">1</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		<span class="hl kwc">undef</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>MANUAL<span class="hl opt">};</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>

    <span class="hl slc">#- Check whether the printer is an HP multi-function device and </span>
    <span class="hl slc">#- configure HPOJ if it is one</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$ptaldevice</span> <span class="hl opt">=</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$isHPOJ</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$do_auto_detect</span><span class="hl opt">) {</span>
	<span class="hl kwc">local</span> <span class="hl opt">$::</span>isWizard <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
	<span class="hl kwb">$isHPOJ</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_yesorno</span><span class="hl opt">(</span>_<span class="hl opt">(</span><span class="hl str">&quot;Local Printer&quot;</span><span class="hl opt">),</span>
				   _<span class="hl opt">(</span><span class="hl str">&quot;Is your printer a multi-function device from HP (OfficeJet, PSC, PhotoSmart LaserJet 1100/1200/1220/3200 with scanner)?&quot;</span><span class="hl opt">),</span> <span class="hl num">0</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">if</span> <span class="hl opt">((</span><span class="hl kwb">$menuchoice</span> <span class="hl opt">=~</span> <span class="hl kwd">/HP\s+OfficeJet/i</span><span class="hl opt">) ||</span>
	<span class="hl opt">(</span><span class="hl kwb">$menuchoice</span> <span class="hl opt">=~</span> <span class="hl kwd">/HP\s+PSC/i</span><span class="hl opt">) ||</span>
	<span class="hl opt">(</span><span class="hl kwb">$menuchoice</span> <span class="hl opt">=~</span> <span class="hl kwd">/HP\s+PhotoSmart/i</span><span class="hl opt">) ||</span>
	<span class="hl opt">(</span><span class="hl kwb">$menuchoice</span> <span class="hl opt">=~</span> <span class="hl kwd">/HP\s+LaserJet\s+1100/i</span><span class="hl opt">) ||</span>
	<span class="hl opt">(</span><span class="hl kwb">$menuchoice</span> <span class="hl opt">=~</span> <span class="hl kwd">/HP\s+LaserJet\s+1200/i</span><span class="hl opt">) ||</span>
	<span class="hl opt">(</span><span class="hl kwb">$menuchoice</span> <span class="hl opt">=~</span> <span class="hl kwd">/HP\s+LaserJet\s+1220/i</span><span class="hl opt">) ||</span>
	<span class="hl opt">(</span><span class="hl kwb">$menuchoice</span> <span class="hl opt">=~</span> <span class="hl kwd">/HP\s+LaserJet\s+3200/i</span><span class="hl opt">) ||</span>
	<span class="hl opt">(</span><span class="hl kwb">$isHPOJ</span><span class="hl opt">)) {</span>
	<span class="hl slc"># Install HPOJ package</span>
	<span class="hl kwa">if</span> <span class="hl opt">((!$::</span>testing<span class="hl opt">) &amp;&amp;</span>
	    <span class="hl opt">(!</span>printer<span class="hl opt">::</span>files_exist<span class="hl opt">((</span><span class="hl str">qw(/usr/sbin/ptal-mlcd</span>
<span class="hl str">				       /etc/ptal-start.conf)</span><span class="hl opt">)))) {</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$w</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> _<span class="hl opt">(</span><span class="hl str">&quot;Installing HPOJ package...&quot;</span><span class="hl opt">));</span>
	    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">do_pkgs</span><span class="hl opt">-&gt;</span><span class="hl kwd">install</span><span class="hl opt">(</span><span class="hl str">&apos;hpoj&apos;</span><span class="hl opt">);</span>
	<span class="hl opt">}</span>
	<span class="hl slc"># Configure and start HPOJ</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$w</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</span>
	    <span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> _<span class="hl opt">(</span><span class="hl str">&quot;Checking device and configuring HPOJ ...&quot;</span><span class="hl opt">));</span>
	<span class="hl kwb">$ptaldevice</span> <span class="hl opt">=</span> printer<span class="hl opt">::</span>configure_hpoj<span class="hl opt">(</span><span class="hl kwb">$device, &#64;parport</span><span class="hl opt">);</span>

	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$ptaldevice</span><span class="hl opt">) {</span>
	    <span class="hl slc"># Configure scanning with SANE on the MF device</span>
	    <span class="hl kwa">if</span> <span class="hl opt">((</span><span class="hl kwb">$menuchoice</span> <span class="hl opt">=~</span> <span class="hl kwd">/HP\s+OfficeJet\s+[KVRGP]/i</span><span class="hl opt">) ||</span>
		<span class="hl opt">(</span><span class="hl kwb">$menuchoice</span> <span class="hl opt">=~</span> <span class="hl kwd">/HP\s+PSC\s+[579]/i</span><span class="hl opt">)) {</span>
		<span class="hl slc"># Install SANE</span>
		<span class="hl kwa">if</span> <span class="hl opt">((!$::</span>testing<span class="hl opt">) &amp;&amp;</span>
		    <span class="hl opt">(!</span>printer<span class="hl opt">::</span>files_exist<span class="hl opt">((</span><span class="hl str">qw(/usr/bin/scanimage</span>
<span class="hl str">					       /usr/bin/xscanimage</span>
<span class="hl str">					       /usr/bin/xsane</span>
<span class="hl str">					       /etc/sane.d/dll.conf)</span><span class="hl opt">,</span>
					    <span class="hl opt">(</span>printer<span class="hl opt">::</span>files_exist
					     <span class="hl opt">(</span><span class="hl str">&apos;/usr/bin/gimp&apos;</span><span class="hl opt">)</span> ? 
					     <span class="hl str">&apos;/usr/bin/xsane-gimp&apos;</span> <span class="hl opt">:</span> 
					     <span class="hl opt">()))))) {</span>
		    <span class="hl kwc">my</span> <span class="hl kwb">$w</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</span>
			<span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> _<span class="hl opt">(</span><span class="hl str">&quot;Installing SANE package...&quot;</span><span class="hl opt">));</span>
		    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">do_pkgs</span><span class="hl opt">-&gt;</span><span class="hl kwd">install</span><span class="hl opt">(</span><span class="hl str">&apos;sane-backends&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;sane-frontends&apos;</span><span class="hl opt">,</span>
					  <span class="hl str">&apos;xsane&apos;</span><span class="hl opt">,</span> 
					  if_<span class="hl opt">(</span><span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">do_pkgs</span><span class="hl opt">-&gt;</span><span class="hl kwd">is_installed</span>
					      <span class="hl opt">(</span><span class="hl str">&apos;gimp&apos;</span><span class="hl opt">),</span><span class="hl str">&apos;xsane-gimp&apos;</span><span class="hl opt">));</span>
		<span class="hl opt">}</span>
		<span class="hl slc"># Configure the HP SANE backend</span>
		printer<span class="hl opt">::</span>config_sane<span class="hl opt">(</span><span class="hl kwb">$ptaldevice</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span>
	    <span class="hl slc"># Inform user about how to scan with his MF device</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$text</span> <span class="hl opt">=</span> scanner_help<span class="hl opt">(</span><span class="hl kwb">$menuchoice,</span> <span class="hl str">&quot;ptal:/</span><span class="hl ipl">$ptaldevice</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$text</span><span class="hl opt">) {</span>
		<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span>_<span class="hl opt">(</span><span class="hl str">&quot;Scanning on your HP multi-function device&quot;</span><span class="hl opt">),</span>
			      <span class="hl kwb">$text</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span>
	    <span class="hl slc"># make the DeviceURI from $ptaldevice.</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;connect&apos;</span><span class="hl opt">} =</span> <span class="hl str">&quot;ptal:/&quot;</span> <span class="hl opt">.</span> <span class="hl kwb">$ptaldevice</span><span class="hl opt">;</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl slc"># make the DeviceURI from $device.</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;connect&apos;</span><span class="hl opt">} =</span> <span class="hl str">&quot;file:&quot;</span> <span class="hl opt">.</span> <span class="hl kwb">$device</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl slc"># make the DeviceURI from $device.</span>
	<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;connect&apos;</span><span class="hl opt">} =</span> <span class="hl str">&quot;file:&quot;</span> <span class="hl opt">.</span> <span class="hl kwb">$device</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl slc">#- if CUPS is the spooler, make sure that CUPS knows the device</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;cups&quot;</span><span class="hl opt">) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$w</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</span>
	    <span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> _<span class="hl opt">(</span><span class="hl str">&quot;Making printer port available for CUPS ...&quot;</span><span class="hl opt">));</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$ptaldevice</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">) {</span>
	    printer<span class="hl opt">::</span>assure_device_is_available_for_cups<span class="hl opt">(</span><span class="hl kwb">$device</span><span class="hl opt">);</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    printer<span class="hl opt">::</span>assure_device_is_available_for_cups<span class="hl opt">(</span><span class="hl kwb">$ptaldevice</span><span class="hl opt">);</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>

    <span class="hl slc">#- Read the printer driver database if necessary</span>
    <span class="hl kwa">if</span> <span class="hl opt">((</span><span class="hl kwc">keys</span> <span class="hl kwb">%printer</span><span class="hl opt">::</span>thedb<span class="hl opt">) ==</span> <span class="hl num">0</span><span class="hl opt">) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$w</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> _<span class="hl opt">(</span><span class="hl str">&quot;Reading printer database ...&quot;</span><span class="hl opt">));</span>
        printer<span class="hl opt">::</span>read_printer_db<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">});</span>
    <span class="hl opt">}</span>

    <span class="hl slc">#- Search the database entry which matches the detected printer best</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$descr</span> <span class="hl opt">=</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
    <span class="hl kwa">foreach</span> <span class="hl opt">(</span><span class="hl kwb">&#64;parport</span><span class="hl opt">) {</span>
	<span class="hl kwb">$device</span> <span class="hl kwc">eq</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>port<span class="hl opt">}</span> <span class="hl kwc">or</span> <span class="hl kwa">next</span><span class="hl opt">;</span>
	<span class="hl kwb">$descr</span> <span class="hl opt">=</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>val<span class="hl opt">}{</span>DESCRIPTION<span class="hl opt">};</span>
	<span class="hl slc"># Clean up the description from noise which makes the best match</span>
	<span class="hl slc"># difficult</span>
	<span class="hl kwb">$descr</span> <span class="hl opt">=~</span> <span class="hl kwd">s/\s+Inc\.//</span><span class="hl opt">;</span>
	<span class="hl kwb">$descr</span> <span class="hl opt">=~</span> <span class="hl kwd">s/\s+Corp\.//</span><span class="hl opt">;</span>
	<span class="hl kwb">$descr</span> <span class="hl opt">=~</span> <span class="hl kwd">s/\s+SA\.//</span><span class="hl opt">;</span>
	<span class="hl kwb">$descr</span> <span class="hl opt">=~</span> <span class="hl kwd">s/\s+S\.\s*A\.//</span><span class="hl opt">;</span>
	<span class="hl kwb">$descr</span> <span class="hl opt">=~</span> <span class="hl kwd">s/\s+Ltd\.//</span><span class="hl opt">;</span>
	<span class="hl kwb">$descr</span> <span class="hl opt">=~</span> <span class="hl kwd">s/\s+International//</span><span class="hl opt">;</span>
	<span class="hl kwb">$descr</span> <span class="hl opt">=~</span> <span class="hl kwd">s/\s+Int\.//</span><span class="hl opt">;</span>
	<span class="hl kwb">$descr</span> <span class="hl opt">=~</span> <span class="hl kwd">s/\s+\(?[Pp]rinter\)?$//</span><span class="hl opt">;</span>
	
        <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DBENTRY<span class="hl opt">} =</span>
            bestMatchSentence <span class="hl opt">(</span><span class="hl kwb">$descr,</span> <span class="hl kwc">keys</span> <span class="hl kwb">%printer</span><span class="hl opt">::</span>thedb<span class="hl opt">);</span>
        <span class="hl slc"># If the manufacturer was not guessed correctly, discard the</span>
        <span class="hl slc"># guess.</span>
        <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DBENTRY<span class="hl opt">} =~</span> <span class="hl kwd">/^([^\|]+)\|/</span><span class="hl opt">;</span>
        <span class="hl kwc">my</span> <span class="hl kwb">$guessedmake</span> <span class="hl opt">=</span> <span class="hl kwc">lc</span><span class="hl opt">(</span><span class="hl kwb">$1</span><span class="hl opt">);</span>
        <span class="hl kwa">if</span> <span class="hl opt">((</span><span class="hl kwb">$descr</span> <span class="hl opt">!~</span> <span class="hl kwd">/$guessedmake/i</span><span class="hl opt">) &amp;&amp;</span>
            <span class="hl opt">((</span><span class="hl kwb">$guessedmake</span> <span class="hl kwc">ne</span> <span class="hl str">&quot;hp&quot;</span><span class="hl opt">) ||</span>
             <span class="hl opt">(</span><span class="hl kwb">$descr</span> <span class="hl opt">!~</span> <span class="hl kwd">/Hewlett[\s-]+Packard/i</span><span class="hl opt">)))</span>
            <span class="hl opt">{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DBENTRY<span class="hl opt">} =</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">};</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">if</span> <span class="hl opt">((!</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;desc&apos;</span><span class="hl opt">}) &amp;&amp; (</span><span class="hl kwb">$descr</span><span class="hl opt">)) {</span>
	<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;desc&apos;</span><span class="hl opt">} =</span> <span class="hl kwb">$descr</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl num">1</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> setup_lpd <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl slc"># Check whether the network functionality is configured and</span>
    <span class="hl slc"># running</span>
    <span class="hl kwa">if</span> <span class="hl opt">(!</span>check_network<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">)) {</span><span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">};</span>

    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_help</span><span class="hl opt">(</span><span class="hl str">&apos;setupLPD&apos;</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl opt">$::</span>isInstall<span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$uri, $remotehost, $remotequeue</span><span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$queue</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>OLD_QUEUE<span class="hl opt">};</span>
    <span class="hl kwa">if</span> <span class="hl opt">((</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">}) &amp;&amp;</span>
	<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;connect&apos;</span><span class="hl opt">} =~</span> <span class="hl kwd">m/^lpd:/</span><span class="hl opt">)) {</span>
	<span class="hl kwb">$uri</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;connect&apos;</span><span class="hl opt">};</span>
	<span class="hl kwb">$uri</span> <span class="hl opt">=~</span> <span class="hl kwd">m!^\s*lpd://([^/]+)/([^/]+)/?\s*$!</span><span class="hl opt">;</span>
	<span class="hl kwb">$remotehost</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
	<span class="hl kwb">$remotequeue</span> <span class="hl opt">=</span> <span class="hl kwb">$2</span><span class="hl opt">;</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl kwb">$remotehost</span> <span class="hl opt">=</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
	<span class="hl kwb">$remotequeue</span> <span class="hl opt">=</span> <span class="hl str">&quot;lp&quot;</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl kwa">return if</span> <span class="hl opt">!</span><span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from</span><span class="hl opt">(</span>_<span class="hl opt">(</span><span class="hl str">&quot;Remote lpd Printer Options&quot;</span><span class="hl opt">),</span>
_<span class="hl opt">(</span><span class="hl str">&quot;To use a remote lpd printer, you need to supply the hostname of the printer server and the printer name on that server.&quot;</span><span class="hl opt">), [</span>
<span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> _<span class="hl opt">(</span><span class="hl str">&quot;Remote host name&quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$remotehost</span> <span class="hl opt">},</span>
<span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> _<span class="hl opt">(</span><span class="hl str">&quot;Remote printer name&quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$remotequeue</span> <span class="hl opt">} ],</span>
complete <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
    <span class="hl kwa">unless</span> <span class="hl opt">(</span><span class="hl kwb">$remotehost</span> <span class="hl kwc">ne</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">) {</span>
	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> _<span class="hl opt">(</span><span class="hl str">&quot;Remote host name missing!&quot;</span><span class="hl opt">));</span>
	<span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">,</span><span class="hl num">0</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">unless</span> <span class="hl opt">(</span><span class="hl kwb">$remotequeue</span> <span class="hl kwc">ne</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">) {</span>
	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> _<span class="hl opt">(</span><span class="hl str">&quot;Remote printer name missing!&quot;</span><span class="hl opt">));</span>
	<span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">,</span><span class="hl num">1</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
			      <span class="hl opt">);</span>
    <span class="hl slc">#- make the DeviceURI from user input.</span>
    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;connect&apos;</span><span class="hl opt">} =</span> 
        <span class="hl str">&quot;lpd://</span><span class="hl ipl">$remotehost/$remotequeue</span><span class="hl str">&quot;</span><span class="hl opt">;</span>

    <span class="hl slc">#- LPD does not support filtered queues to a remote LPD server by itself</span>
    <span class="hl slc">#- It needs an additional program as &quot;rlpr&quot;</span>
    <span class="hl kwa">if</span> <span class="hl opt">((</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;lpd&apos;</span><span class="hl opt">) &amp;&amp; (!$::</span>testing<span class="hl opt">) &amp;&amp;</span>
        <span class="hl opt">(!</span>printer<span class="hl opt">::</span>files_exist<span class="hl opt">((</span><span class="hl str">qw(/usr/bin/rlpr)</span><span class="hl opt">)))) {</span>
        <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">do_pkgs</span><span class="hl opt">-&gt;</span><span class="hl kwd">install</span><span class="hl opt">(</span><span class="hl str">&apos;rlpr&apos;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>

    <span class="hl num">1</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> setup_smb <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl slc"># Check whether the network functionality is configured and</span>
    <span class="hl slc"># running</span>
    <span class="hl kwa">if</span> <span class="hl opt">(!</span>check_network<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">)) {</span><span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">};</span>

    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_help</span><span class="hl opt">(</span><span class="hl str">&apos;setupSMB&apos;</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl opt">$::</span>isInstall<span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$uri, $smbuser, $smbpassword, $workgroup, $smbserver, $smbserverip, $smbshare</span><span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$queue</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>OLD_QUEUE<span class="hl opt">};</span>
    <span class="hl kwa">if</span> <span class="hl opt">((</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">}) &amp;&amp;</span>
	<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;connect&apos;</span><span class="hl opt">} =~</span> <span class="hl kwd">m/^smb:/</span><span class="hl opt">)) {</span>
	<span class="hl kwb">$uri</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;connect&apos;</span><span class="hl opt">};</span>
	<span class="hl kwb">$uri</span> <span class="hl opt">=~</span> <span class="hl kwd">m!^\s*smb://(.*)$!</span><span class="hl opt">;</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$parameters</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
	<span class="hl slc"># Get the user&apos;s login and password from the URI</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$parameters</span> <span class="hl opt">=~</span> <span class="hl kwd">m!([^&#64;]*)&#64;([^&#64;]+)!</span><span class="hl opt">) {</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$login</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
	    <span class="hl kwb">$parameters</span> <span class="hl opt">=</span> <span class="hl kwb">$2</span><span class="hl opt">;</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$login</span> <span class="hl opt">=~</span> <span class="hl kwd">m!([^:]*):([^:]*)!</span><span class="hl opt">) {</span>
		<span class="hl kwb">$smbuser</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
		<span class="hl kwb">$smbpassword</span> <span class="hl opt">=</span> <span class="hl kwb">$2</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		<span class="hl kwb">$smbuser</span> <span class="hl opt">=</span> <span class="hl kwb">$login</span><span class="hl opt">;</span>
		<span class="hl kwb">$smbpassword</span> <span class="hl opt">=</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl kwb">$smbuser</span> <span class="hl opt">=</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
	    <span class="hl kwb">$smbpassword</span> <span class="hl opt">=</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
	<span class="hl slc"># Get the workgroup, server, and share name</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$parameters</span> <span class="hl opt">=~</span> <span class="hl kwd">m!([^/]*)/([^/]+)/([^/]+)$!</span><span class="hl opt">) {</span>
	    <span class="hl kwb">$workgroup</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
	    <span class="hl kwb">$smbserver</span> <span class="hl opt">=</span> <span class="hl kwb">$2</span><span class="hl opt">;</span>
	    <span class="hl kwb">$smbshare</span> <span class="hl opt">=</span> <span class="hl kwb">$3</span><span class="hl opt">;</span>
	<span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$parameters</span> <span class="hl opt">=~</span> <span class="hl kwd">m!([^/]+)/([^/]+)$!</span><span class="hl opt">) {</span>
	    <span class="hl kwb">$workgroup</span> <span class="hl opt">=</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
	    <span class="hl kwb">$smbserver</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
	    <span class="hl kwb">$smbshare</span> <span class="hl opt">=</span> <span class="hl kwb">$2</span><span class="hl opt">;</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl kwc">die</span> <span class="hl str">&quot;The</span> <span class="hl esc">\&quot;</span><span class="hl str">smb://</span><span class="hl esc">\&quot;</span> <span class="hl str">URI must at least contain the server name and the share name!</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span>network<span class="hl opt">::</span>is_ip<span class="hl opt">(</span><span class="hl kwb">$smbserver</span><span class="hl opt">)) {</span>
	    <span class="hl kwb">$smbserverip</span> <span class="hl opt">=</span> <span class="hl kwb">$smbserver</span><span class="hl opt">;</span>
	    <span class="hl kwb">$smbserver</span> <span class="hl opt">=</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>

    <span class="hl kwa">return if</span> <span class="hl opt">!</span><span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from</span><span class="hl opt">(</span>_<span class="hl opt">(</span><span class="hl str">&quot;SMB (Windows 9x/NT) Printer Options&quot;</span><span class="hl opt">),</span>
_<span class="hl opt">(</span><span class="hl str">&quot;To print to a SMB printer, you need to provide the SMB host name (Note! It may be different from its TCP/IP hostname!) and possibly the IP address of the print server, as well as the share name for the printer you wish to access and any applicable user name, password, and workgroup information.&quot;</span><span class="hl opt">), [</span>
<span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> _<span class="hl opt">(</span><span class="hl str">&quot;SMB server host&quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$smbserver</span> <span class="hl opt">},</span>
<span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> _<span class="hl opt">(</span><span class="hl str">&quot;SMB server IP&quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$smbserverip</span> <span class="hl opt">},</span>
<span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> _<span class="hl opt">(</span><span class="hl str">&quot;Share name&quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$smbshare</span> <span class="hl opt">},</span>
<span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> _<span class="hl opt">(</span><span class="hl str">&quot;User name&quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$smbuser</span> <span class="hl opt">},</span>
<span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> _<span class="hl opt">(</span><span class="hl str">&quot;Password&quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$smbpassword,</span> hidden <span class="hl opt">=&gt;</span> <span class="hl num">1</span> <span class="hl opt">},</span>
<span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> _<span class="hl opt">(</span><span class="hl str">&quot;Workgroup&quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$workgroup</span> <span class="hl opt">}, ],</span>
complete <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
    <span class="hl kwa">unless</span> <span class="hl opt">((</span>network<span class="hl opt">::</span>is_ip<span class="hl opt">(</span><span class="hl kwb">$smbserverip</span><span class="hl opt">)) || (</span><span class="hl kwb">$smbserverip</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">)) {</span>
	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> _<span class="hl opt">(</span><span class="hl str">&quot;IP address should be in format 1.2.3.4&quot;</span><span class="hl opt">));</span>
	<span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">,</span><span class="hl num">1</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">unless</span> <span class="hl opt">((</span><span class="hl kwb">$smbserver</span> <span class="hl kwc">ne</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">) || (</span><span class="hl kwb">$smbserverip</span> <span class="hl kwc">ne</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">)) {</span>
	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> _<span class="hl opt">(</span><span class="hl str">&quot;Either the server name or the server&apos;s IP must be given!&quot;</span><span class="hl opt">));</span>
	<span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">,</span><span class="hl num">0</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">unless</span> <span class="hl opt">(</span><span class="hl kwb">$smbshare</span> <span class="hl kwc">ne</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">) {</span>
	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> _<span class="hl opt">(</span><span class="hl str">&quot;Samba share name missing!&quot;</span><span class="hl opt">));</span>
	<span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">,</span><span class="hl num">2</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
    <span class="hl opt">);</span>
    <span class="hl slc">#- make the DeviceURI from, try to probe for available variable to</span>
    <span class="hl slc">#- build a suitable URI.</span>
    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;connect&apos;</span><span class="hl opt">} =</span>
    <span class="hl kwc">join</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">, (</span><span class="hl str">&quot;smb://&quot;</span><span class="hl opt">, (</span><span class="hl kwb">$smbuser</span> <span class="hl opt">&amp;&amp; (</span><span class="hl kwb">$smbuser</span> <span class="hl opt">.</span> 
    <span class="hl opt">(</span><span class="hl kwb">$smbpassword</span> <span class="hl opt">&amp;&amp;</span> <span class="hl str">&quot;:</span><span class="hl ipl">$smbpassword</span><span class="hl str">&quot;</span><span class="hl opt">) .</span> <span class="hl str">&quot;&#64;&quot;</span><span class="hl opt">)), (</span><span class="hl kwb">$workgroup</span> <span class="hl opt">&amp;&amp; (</span><span class="hl str">&quot;</span><span class="hl ipl">$workgroup/</span><span class="hl str">&quot;</span><span class="hl opt">)),</span>
    <span class="hl opt">(</span><span class="hl kwb">$smbserver</span> <span class="hl opt">||</span> <span class="hl kwb">$smbserverip</span><span class="hl opt">),</span> <span class="hl str">&quot;/</span><span class="hl ipl">$smbshare</span><span class="hl str">&quot;</span><span class="hl opt">);</span>

    <span class="hl kwa">if</span> <span class="hl opt">((!$::</span>testing<span class="hl opt">) &amp;&amp;</span>
        <span class="hl opt">(!</span>printer<span class="hl opt">::</span>files_exist<span class="hl opt">((</span><span class="hl str">qw(/usr/bin/smbclient)</span><span class="hl opt">)))) {</span>
	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">do_pkgs</span><span class="hl opt">-&gt;</span><span class="hl kwd">install</span><span class="hl opt">(</span><span class="hl str">&apos;samba-client&apos;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;cups&apos;</span> <span class="hl kwc">and</span> printer<span class="hl opt">::</span>restart_queue<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
    <span class="hl num">1</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> setup_ncp <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl slc"># Check whether the network functionality is configured and</span>
    <span class="hl slc"># running</span>
    <span class="hl kwa">if</span> <span class="hl opt">(!</span>check_network<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">)) {</span><span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">};</span>

    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_help</span><span class="hl opt">(</span><span class="hl str">&apos;setupNCP&apos;</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl opt">$::</span>isInstall<span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$uri, $ncpuser, $ncppassword, $ncpserver, $ncpqueue</span><span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$queue</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>OLD_QUEUE<span class="hl opt">};</span>
    <span class="hl kwa">if</span> <span class="hl opt">((</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">}) &amp;&amp;</span>
	<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;connect&apos;</span><span class="hl opt">} =~</span> <span class="hl kwd">m/^ncp:/</span><span class="hl opt">)) {</span>
	<span class="hl kwb">$uri</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;connect&apos;</span><span class="hl opt">};</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$parameters</span> <span class="hl opt">=</span> <span class="hl kwb">$uri</span> <span class="hl opt">=~</span> <span class="hl kwd">m!^\s*ncp://(.*)$!</span><span class="hl opt">;</span>
	<span class="hl slc"># Get the user&apos;s login and password from the URI</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$parameters</span> <span class="hl opt">=~</span> <span class="hl kwd">m!([^&#64;]*)&#64;([^&#64;]+)!</span><span class="hl opt">) {</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$login</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
	    <span class="hl kwb">$parameters</span> <span class="hl opt">=</span> <span class="hl kwb">$2</span><span class="hl opt">;</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$login</span> <span class="hl opt">=~</span> <span class="hl kwd">m!([^:]*):([^:]*)!</span><span class="hl opt">) {</span>
		<span class="hl kwb">$ncpuser</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
		<span class="hl kwb">$ncppassword</span> <span class="hl opt">=</span> <span class="hl kwb">$2</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		<span class="hl kwb">$ncpuser</span> <span class="hl opt">=</span> <span class="hl kwb">$login</span><span class="hl opt">;</span>
		<span class="hl kwb">$ncppassword</span> <span class="hl opt">=</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl kwb">$ncpuser</span> <span class="hl opt">=</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
	    <span class="hl kwb">$ncppassword</span> <span class="hl opt">=</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
	<span class="hl slc"># Get the workgroup, server, and share name</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$parameters</span> <span class="hl opt">=~</span> <span class="hl kwd">m!([^/]+)/([^/]+)$!</span><span class="hl opt">) {</span>
	    <span class="hl kwb">$ncpserver</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
	    <span class="hl kwb">$ncpqueue</span> <span class="hl opt">=</span> <span class="hl kwb">$2</span><span class="hl opt">;</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl kwc">die</span> <span class="hl str">&quot;The</span> <span class="hl esc">\&quot;</span><span class="hl str">ncp://</span><span class="hl esc">\&quot;</span> <span class="hl str">URI must at least contain the server name and the share name!</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>

    <span class="hl kwa">return if</span> <span class="hl opt">!</span><span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from</span><span class="hl opt">(</span>_<span class="hl opt">(</span><span class="hl str">&quot;NetWare Printer Options&quot;</span><span class="hl opt">),</span>
_<span class="hl opt">(</span><span class="hl str">&quot;To print on a NetWare printer, you need to provide the NetWare print server name (Note! it may be different from its TCP/IP hostname!) as well as the print queue name for the printer you wish to access and any applicable user name and password.&quot;</span><span class="hl opt">), [</span>
<span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> _<span class="hl opt">(</span><span class="hl str">&quot;Printer Server&quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$ncpserver</span> <span class="hl opt">},</span>
<span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> _<span class="hl opt">(</span><span class="hl str">&quot;Print Queue Name&quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$ncpqueue</span> <span class="hl opt">},</span>
<span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> _<span class="hl opt">(</span><span class="hl str">&quot;User name&quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$ncpuser</span> <span class="hl opt">},</span>
<span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> _<span class="hl opt">(</span><span class="hl str">&quot;Password&quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$ncppassword,</span> hidden <span class="hl opt">=&gt;</span> <span class="hl num">1</span> <span class="hl opt">} ],</span>
complete <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
    <span class="hl kwa">unless</span> <span class="hl opt">(</span><span class="hl kwb">$ncpserver</span> <span class="hl kwc">ne</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">) {</span>
	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> _<span class="hl opt">(</span><span class="hl str">&quot;NCP server name missing!&quot;</span><span class="hl opt">));</span>
	<span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">,</span><span class="hl num">0</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">unless</span> <span class="hl opt">(</span><span class="hl kwb">$ncpqueue</span> <span class="hl kwc">ne</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">) {</span>
	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> _<span class="hl opt">(</span><span class="hl str">&quot;NCP queue name missing!&quot;</span><span class="hl opt">));</span>
	<span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">,</span><span class="hl num">1</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
					<span class="hl opt">);</span>
    <span class="hl slc"># Generate the Foomatic URI</span>
    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;connect&apos;</span><span class="hl opt">} =</span>
    <span class="hl kwc">join</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">, (</span><span class="hl str">&quot;ncp://&quot;</span><span class="hl opt">, (</span><span class="hl kwb">$ncpuser</span> <span class="hl opt">&amp;&amp; (</span><span class="hl kwb">$ncpuser</span> <span class="hl opt">.</span> 
    <span class="hl opt">(</span><span class="hl kwb">$ncppassword</span> <span class="hl opt">&amp;&amp;</span> <span class="hl str">&quot;:</span><span class="hl ipl">$ncppassword</span><span class="hl str">&quot;</span><span class="hl opt">) .</span> <span class="hl str">&quot;&#64;&quot;</span><span class="hl opt">)),</span>
    <span class="hl str">&quot;</span><span class="hl ipl">$ncpserver/$ncpqueue</span><span class="hl str">&quot;</span><span class="hl opt">);</span>

    <span class="hl kwa">if</span> <span class="hl opt">((!$::</span>testing<span class="hl opt">) &amp;&amp;</span>
        <span class="hl opt">(!</span>printer<span class="hl opt">::</span>files_exist<span class="hl opt">((</span><span class="hl str">qw(/usr/bin/nprint)</span><span class="hl opt">)))) {</span>
	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">do_pkgs</span><span class="hl opt">-&gt;</span><span class="hl kwd">install</span><span class="hl opt">(</span><span class="hl str">&apos;ncpfs&apos;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>

    <span class="hl num">1</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> setup_socket <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl slc"># Check whether the network functionality is configured and</span>
    <span class="hl slc"># running</span>
    <span class="hl kwa">if</span> <span class="hl opt">(!</span>check_network<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">)) {</span><span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">};</span>

    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_help</span><span class="hl opt">(</span><span class="hl str">&apos;setupSocket&apos;</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl opt">$::</span>isInstall<span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$hostname, $port, $uri, $remotehost,$remoteport</span><span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$queue</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>OLD_QUEUE<span class="hl opt">};</span>
    <span class="hl kwa">if</span> <span class="hl opt">((</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">}) &amp;&amp;</span>
	<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;connect&apos;</span><span class="hl opt">} =~</span> <span class="hl kwd">m/^socket:/</span><span class="hl opt">)) {</span>
	<span class="hl kwb">$uri</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;connect&apos;</span><span class="hl opt">};</span>
	<span class="hl opt">(</span><span class="hl kwb">$remotehost, $remoteport</span><span class="hl opt">) =</span> <span class="hl kwb">$uri</span> <span class="hl opt">=~</span> <span class="hl kwd">m!^\s*socket://([^/:]+):([0-9]+)/?\s*$!</span><span class="hl opt">;</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl kwb">$remotehost</span> <span class="hl opt">=</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
	<span class="hl kwb">$remoteport</span> <span class="hl opt">=</span> <span class="hl str">&quot;9100&quot;</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl kwa">return if</span> <span class="hl opt">!</span><span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from</span><span class="hl opt">(</span>_<span class="hl opt">(</span><span class="hl str">&quot;TCP/Socket Printer Options&quot;</span><span class="hl opt">),</span>
_<span class="hl opt">(</span><span class="hl str">&quot;To print to a TCP or socket printer, you need to provide the host name of the printer and optionally the port number. On HP JetDirect servers the port number is usually 9100, on other servers it can vary. See the manual of your hardware.&quot;</span><span class="hl opt">), [</span>
<span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> _<span class="hl opt">(</span><span class="hl str">&quot;Printer host name&quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$remotehost</span> <span class="hl opt">},</span>
<span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> _<span class="hl opt">(</span><span class="hl str">&quot;Port&quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$remoteport</span> <span class="hl opt">} ],</span>
complete <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
    <span class="hl kwa">unless</span> <span class="hl opt">(</span><span class="hl kwb">$remotehost</span> <span class="hl kwc">ne</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">) {</span>
	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> _<span class="hl opt">(</span><span class="hl str">&quot;Printer host name missing!&quot;</span><span class="hl opt">));</span>
	<span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">,</span><span class="hl num">0</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">unless</span> <span class="hl opt">(</span><span class="hl kwb">$remoteport</span> <span class="hl opt">=~</span> <span class="hl kwd">/^[0-9]+$/</span><span class="hl opt">) {</span>
	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> _<span class="hl opt">(</span><span class="hl str">&quot;The port number should be an integer!&quot;</span><span class="hl opt">));</span>
	<span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">,</span><span class="hl num">1</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
					 <span class="hl opt">);</span>

    <span class="hl slc">#- make the Foomatic URI</span>
    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;connect&apos;</span><span class="hl opt">} =</span> 
    <span class="hl kwc">join</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">, (</span><span class="hl str">&quot;socket://</span><span class="hl ipl">$remotehost</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$remoteport</span> ? <span class="hl opt">(</span><span class="hl str">&quot;:</span><span class="hl ipl">$remoteport</span><span class="hl str">&quot;</span><span class="hl opt">) : ());</span>

    <span class="hl slc">#- LPD and LPRng need netcat (&apos;nc&apos;) to access to socket printers</span>
    <span class="hl kwa">if</span> <span class="hl opt">(((</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;lpd&apos;</span><span class="hl opt">) || (</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;lprng&apos;</span><span class="hl opt">))&amp;&amp;</span> 
        <span class="hl opt">(!$::</span>testing<span class="hl opt">) &amp;&amp;</span>
        <span class="hl opt">(!</span>printer<span class="hl opt">::</span>files_exist<span class="hl opt">((</span><span class="hl str">qw(/usr/bin/nc)</span><span class="hl opt">)))) {</span>
        <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">do_pkgs</span><span class="hl opt">-&gt;</span><span class="hl kwd">install</span><span class="hl opt">(</span><span class="hl str">&apos;nc&apos;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>

    <span class="hl num">1</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> setup_uri <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_help</span><span class="hl opt">(</span><span class="hl str">&apos;setupURI&apos;</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl opt">$::</span>isInstall<span class="hl opt">;</span>
    <span class="hl kwa">return if</span> <span class="hl opt">!</span><span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from</span><span class="hl opt">(</span>_<span class="hl opt">(</span><span class="hl str">&quot;Printer Device URI&quot;</span><span class="hl opt">),</span>
_<span class="hl opt">(</span><span class="hl str">&quot;You can specify directly the URI to access the printer. The URI must fulfill either the CUPS or the Foomatic specifications. Note that not all URI types are supported by all the spoolers.&quot;</span><span class="hl opt">), [</span>
<span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> _<span class="hl opt">(</span><span class="hl str">&quot;Printer Device URI&quot;</span><span class="hl opt">),</span>
val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;connect&apos;</span><span class="hl opt">},</span>
list <span class="hl opt">=&gt; [</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;connect&apos;</span><span class="hl opt">},</span>
	  <span class="hl str">&quot;file:/&quot;</span><span class="hl opt">,</span>
	  <span class="hl str">&quot;http://&quot;</span><span class="hl opt">,</span>
	  <span class="hl str">&quot;ipp://&quot;</span><span class="hl opt">,</span>
	  <span class="hl str">&quot;lpd://&quot;</span><span class="hl opt">,</span>
	  <span class="hl str">&quot;smb://&quot;</span><span class="hl opt">,</span>
	  <span class="hl str">&quot;ncp://&quot;</span><span class="hl opt">,</span>
	  <span class="hl str">&quot;socket://&quot;</span><span class="hl opt">,</span>
	  <span class="hl str">&quot;postpipe:</span><span class="hl esc">\&quot;\&quot;</span><span class="hl str">&quot;</span><span class="hl opt">,</span>
	  <span class="hl opt">],</span> not_edit <span class="hl opt">=&gt;</span> <span class="hl num">0</span> <span class="hl opt">}, ],</span>
complete <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
    <span class="hl kwa">unless</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;connect&apos;</span><span class="hl opt">} =~</span> <span class="hl kwd">/[^:]+:.+/</span><span class="hl opt">) {</span>
	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> _<span class="hl opt">(</span><span class="hl str">&quot;A valid URI must be entered!&quot;</span><span class="hl opt">));</span>
	<span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">,</span><span class="hl num">0</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
    <span class="hl opt">);</span>

    <span class="hl slc"># Non-local printer, check network and abort if no network available</span>
    <span class="hl kwa">if</span> <span class="hl opt">((</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;connect&apos;</span><span class="hl opt">} !~</span> <span class="hl kwd">m!^file:/!</span><span class="hl opt">) &amp;&amp;</span>
        <span class="hl opt">(!</span>check_network<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">))) {</span><span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">};</span>

    <span class="hl slc"># If the chosen protocol needs additional software, install it.</span>

    <span class="hl slc"># LPD does not support filtered queues to a remote LPD server by itself</span>
    <span class="hl slc"># It needs an additional program as &quot;rlpr&quot;</span>
    <span class="hl kwa">if</span> <span class="hl opt">((</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;connect&apos;</span><span class="hl opt">} =~</span> <span class="hl kwd">/^lpd:/</span><span class="hl opt">) &amp;&amp;</span>
	<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;lpd&apos;</span><span class="hl opt">) &amp;&amp; (!$::</span>testing<span class="hl opt">) &amp;&amp;</span>
        <span class="hl opt">(!</span>printer<span class="hl opt">::</span>files_exist<span class="hl opt">((</span><span class="hl str">qw(/usr/bin/rlpr)</span><span class="hl opt">)))) {</span>
        <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">do_pkgs</span><span class="hl opt">-&gt;</span><span class="hl kwd">install</span><span class="hl opt">(</span><span class="hl str">&apos;rlpr&apos;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">if</span> <span class="hl opt">((</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;connect&apos;</span><span class="hl opt">} =~</span> <span class="hl kwd">/^smb:/</span><span class="hl opt">) &amp;&amp;</span>
        <span class="hl opt">(!$::</span>testing<span class="hl opt">) &amp;&amp;</span>
        <span class="hl opt">(!</span>printer<span class="hl opt">::</span>files_exist<span class="hl opt">((</span><span class="hl str">qw(/usr/bin/smbclient)</span><span class="hl opt">)))) {</span>
	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">do_pkgs</span><span class="hl opt">-&gt;</span><span class="hl kwd">install</span><span class="hl opt">(</span><span class="hl str">&apos;samba-client&apos;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">if</span> <span class="hl opt">((</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;connect&apos;</span><span class="hl opt">} =~</span> <span class="hl kwd">/^ncp:/</span><span class="hl opt">) &amp;&amp;</span>
	<span class="hl opt">(!$::</span>testing<span class="hl opt">) &amp;&amp;</span>
        <span class="hl opt">(!</span>printer<span class="hl opt">::</span>files_exist<span class="hl opt">((</span><span class="hl str">qw(/usr/bin/nprint)</span><span class="hl opt">)))) {</span>
	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">do_pkgs</span><span class="hl opt">-&gt;</span><span class="hl kwd">install</span><span class="hl opt">(</span><span class="hl str">&apos;ncpfs&apos;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl slc">#- LPD and LPRng need netcat (&apos;nc&apos;) to access to socket printers</span>
    <span class="hl kwa">if</span> <span class="hl opt">((</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;connect&apos;</span><span class="hl opt">} =~</span> <span class="hl kwd">/^socket:/</span><span class="hl opt">) &amp;&amp;</span>
	<span class="hl opt">((</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;lpd&apos;</span><span class="hl opt">) || (</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;lprng&apos;</span><span class="hl opt">)) &amp;&amp;</span>
        <span class="hl opt">(!$::</span>testing<span class="hl opt">) &amp;&amp;</span>
        <span class="hl opt">(!</span>printer<span class="hl opt">::</span>files_exist<span class="hl opt">((</span><span class="hl str">qw(/usr/bin/nc)</span><span class="hl opt">)))) {</span>
        <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">do_pkgs</span><span class="hl opt">-&gt;</span><span class="hl kwd">install</span><span class="hl opt">(</span><span class="hl str">&apos;nc&apos;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl num">1</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> setup_postpipe <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_help</span><span class="hl opt">(</span><span class="hl str">&apos;setupPostpipe&apos;</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl opt">$::</span>isInstall<span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$uri</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$commandline</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$queue</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>OLD_QUEUE<span class="hl opt">};</span>
    <span class="hl kwa">if</span> <span class="hl opt">((</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">}) &amp;&amp;</span>
	<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;connect&apos;</span><span class="hl opt">} =~</span> <span class="hl kwd">m/^postpipe:/</span><span class="hl opt">)) {</span>
	<span class="hl kwb">$uri</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;connect&apos;</span><span class="hl opt">};</span>
	<span class="hl kwb">$uri</span> <span class="hl opt">=~</span> <span class="hl kwd">m!^\s*postpipe:\&quot;(.*)\&quot;$!</span><span class="hl opt">;</span>
	<span class="hl kwb">$commandline</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl kwb">$commandline</span> <span class="hl opt">=</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl kwa">return if</span> <span class="hl opt">!</span><span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from</span><span class="hl opt">(</span>_<span class="hl opt">(</span><span class="hl str">&quot;Pipe into command&quot;</span><span class="hl opt">),</span>
_<span class="hl opt">(</span><span class="hl str">&quot;Here you can specify any arbitrary command line into which the job should be piped instead of being sent directly to a printer.&quot;</span><span class="hl opt">), [</span>
<span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> _<span class="hl opt">(</span><span class="hl str">&quot;Command line&quot;</span><span class="hl opt">),</span>
val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$commandline</span> <span class="hl opt">}, ],</span>
complete <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
    <span class="hl kwa">unless</span> <span class="hl opt">(</span><span class="hl kwb">$commandline</span> <span class="hl kwc">ne</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">) {</span>
	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> _<span class="hl opt">(</span><span class="hl str">&quot;A command line must be entered!&quot;</span><span class="hl opt">));</span>
	<span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">,</span><span class="hl num">0</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl opt">);</span>

    <span class="hl slc">#- make the Foomatic URI</span>
    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;connect&apos;</span><span class="hl opt">} =</span> <span class="hl str">&quot;postpipe:</span><span class="hl ipl">$commandline</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
    
    <span class="hl num">1</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> choose_printer_name <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl slc"># Name, description, location</span>
    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_help</span><span class="hl opt">(</span><span class="hl str">&apos;setupPrinterName&apos;</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl opt">$::</span>isInstall<span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$default</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;queue&apos;</span><span class="hl opt">};</span>
    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_</span>
	<span class="hl opt">(</span>
	 <span class="hl opt">{</span> title <span class="hl opt">=&gt;</span> _<span class="hl opt">(</span><span class="hl str">&quot;Enter Printer Name and Comments&quot;</span><span class="hl opt">),</span>
	   <span class="hl slc">#cancel =&gt; !$printer-&gt;{configured}{$queue} ? &apos;&apos; : _(&quot;Remove queue&quot;),</span>
	   callbacks <span class="hl opt">=&gt; {</span> complete <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
	       <span class="hl kwa">unless</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;queue&apos;</span><span class="hl opt">} =~</span> <span class="hl kwd">/^\w+$/</span><span class="hl opt">) {</span>
		   <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> _<span class="hl opt">(</span><span class="hl str">&quot;Name of printer should contain only letters, numbers and the underscore&quot;</span><span class="hl opt">));</span>
		   <span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">,</span><span class="hl num">0</span><span class="hl opt">);</span>
	       <span class="hl opt">}</span>
	       <span class="hl kwc">local</span> <span class="hl opt">$::</span>isWizard <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
	       <span class="hl kwa">if</span> <span class="hl opt">((</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;queue&apos;</span><span class="hl opt">}})</span>
		   <span class="hl opt">&amp;&amp; (</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;queue&apos;</span><span class="hl opt">}</span> <span class="hl kwc">ne</span> <span class="hl kwb">$default</span><span class="hl opt">) &amp;&amp;</span> 
		   <span class="hl opt">(!</span><span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_yesorno</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> _<span class="hl opt">(</span><span class="hl str">&quot;The printer</span> <span class="hl esc">\&quot;</span><span class="hl str"></span><span class="hl ipl">%s\</span><span class="hl str">&quot;</span> already <span class="hl kwc">exists</span><span class="hl opt">,</span><span class="hl esc">\n</span>do you really want to overwrite its configuration?<span class="hl str">&quot;,</span>
<span class="hl str"></span>					    <span class="hl ipl">$printer</span><span class="hl str">-&gt;{currentqueue}{&apos;queue&apos;}),</span>
<span class="hl str">				      0))) {</span>
<span class="hl str">		   return (1,0); # Let the user correct the name</span>
<span class="hl str">	       }</span>
<span class="hl str">	       return 0;</span>
<span class="hl str">	   },</span>
<span class="hl str">		      },</span>
<span class="hl str">	   messages =&gt;</span>
<span class="hl str">_(&quot;</span>Every printer needs a name <span class="hl opt">(</span><span class="hl kwa">for</span> example <span class="hl esc">\&quot;</span>printer<span class="hl esc">\&quot;</span><span class="hl opt">).</span> The Description <span class="hl kwc">and</span> Location fields <span class="hl kwa">do</span> <span class="hl kwc">not</span> need to be filled <span class="hl kwa">in</span><span class="hl opt">.</span> They are comments <span class="hl kwa">for</span> the users<span class="hl opt">.</span><span class="hl str">&quot;) }, </span>
<span class="hl str">	 [ { label =&gt; _(&quot;</span>Name of printer<span class="hl str">&quot;), val =&gt; \</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{currentqueue}{&apos;queue&apos;} },</span>
<span class="hl str">	   { label =&gt; _(&quot;</span>Description<span class="hl str">&quot;), val =&gt; \</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{currentqueue}{&apos;desc&apos;} },</span>
<span class="hl str">	   { label =&gt; _(&quot;</span>Location<span class="hl str">&quot;), val =&gt; \</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{currentqueue}{&apos;loc&apos;} },</span>
<span class="hl str">	 ]) or return 0;</span>
<span class="hl str"></span>
<span class="hl str"></span>    <span class="hl ipl">$printer</span><span class="hl str">-&gt;{QUEUE} =</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{currentqueue}{&apos;queue&apos;};</span>
<span class="hl str">    1;</span>
<span class="hl str">}</span>
<span class="hl str"></span>
<span class="hl str">sub get_db_entry {</span>
<span class="hl str">    my (</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$in</span><span class="hl str">) =</span> <span class="hl ipl">&#64;_</span><span class="hl str">;</span>
<span class="hl str">    #- Read the printer driver database if necessary</span>
<span class="hl str">    if ((keys</span> <span class="hl ipl">%printer</span><span class="hl str">::thedb) == 0) {</span>
<span class="hl str">	my</span> <span class="hl ipl">$w</span> <span class="hl str">=</span> <span class="hl ipl">$in</span><span class="hl str">-&gt;wait_message(&apos;&apos;, _(&quot;</span>Reading printer database <span class="hl opt">...</span><span class="hl str">&quot;));</span>
<span class="hl str">        printer::read_printer_db(</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{SPOOLER});</span>
<span class="hl str">    }</span>
<span class="hl str">    my</span> <span class="hl ipl">$w</span> <span class="hl str">=</span> <span class="hl ipl">$in</span><span class="hl str">-&gt;wait_message(&apos;&apos;, _(&quot;</span>Preparing printer database <span class="hl opt">...</span><span class="hl str">&quot;));</span>
<span class="hl str">    my</span> <span class="hl ipl">$queue</span> <span class="hl str">=</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{OLD_QUEUE};</span>
<span class="hl str">    if (</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}{</span><span class="hl ipl">$queue</span><span class="hl str">}) {</span>
<span class="hl str">	# The queue was already configured</span>
<span class="hl str">	if (</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}{</span><span class="hl ipl">$queue</span><span class="hl str">}{&apos;queuedata&apos;}{&apos;foomatic&apos;}) {</span>
<span class="hl str">	    # The queue was configured with Foomatic</span>
<span class="hl str">	    my</span> <span class="hl ipl">$driverstr</span><span class="hl str">;</span>
<span class="hl str">	    if (</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}{</span><span class="hl ipl">$queue</span><span class="hl str">}{&apos;queuedata&apos;}{&apos;driver&apos;} eq &quot;</span>Postscript<span class="hl str">&quot;) {</span>
<span class="hl str"></span>		<span class="hl ipl">$driverstr</span> <span class="hl str">= &quot;</span>PostScript<span class="hl str">&quot;;</span>
<span class="hl str">	    } else {</span>
<span class="hl str"></span>		<span class="hl ipl">$driverstr</span> <span class="hl str">= &quot;</span>GhostScript <span class="hl opt">+</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">}{</span><span class="hl str">&apos;queuedata&apos;</span><span class="hl opt">}{</span><span class="hl str">&apos;driver&apos;</span><span class="hl opt">}</span><span class="hl str">&quot;;</span>
<span class="hl str">	    }</span>
<span class="hl str">	    my</span> <span class="hl ipl">$make</span> <span class="hl str">= uc(</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}{</span><span class="hl ipl">$queue</span><span class="hl str">}{&apos;queuedata&apos;}{&apos;make&apos;});</span>
<span class="hl str">	    my</span> <span class="hl ipl">$model</span> <span class="hl str">=</span>	<span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}{</span><span class="hl ipl">$queue</span><span class="hl str">}{&apos;queuedata&apos;}{&apos;model&apos;};</span>
<span class="hl str">	    if ($::expert) {</span>
<span class="hl str"></span>		<span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY} = &quot;</span><span class="hl kwb">$make</span><span class="hl opt">|</span><span class="hl kwb">$model</span><span class="hl opt">|</span><span class="hl kwb">$driverstr</span><span class="hl str">&quot;;</span>
<span class="hl str">		# database key contains the &quot;</span><span class="hl opt">(</span>recommended<span class="hl opt">)</span><span class="hl str">&quot; for the</span>
<span class="hl str">		# recommended driver, so add it if necessary</span>
<span class="hl str">		if (!(</span><span class="hl ipl">$printer</span><span class="hl str">::thedb{</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY}}{printer})) {</span>
<span class="hl str"></span>		    <span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY} .= &quot;</span> <span class="hl opt">(</span>recommended<span class="hl opt">)</span><span class="hl str">&quot;;</span>
<span class="hl str">		}</span>
<span class="hl str">	    } else {</span>
<span class="hl str"></span>		<span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY} = &quot;</span><span class="hl kwb">$make</span><span class="hl opt">|</span><span class="hl kwb">$model</span><span class="hl str">&quot;;</span>
<span class="hl str">	    }</span>
<span class="hl str"></span>	    <span class="hl ipl">$printer</span><span class="hl str">-&gt;{OLD_CHOICE} =</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY};</span>
<span class="hl str">	} elsif ((</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{SPOOLER} eq &quot;</span>cups<span class="hl str">&quot;) &amp;&amp; ($::expert) &amp;&amp;</span>
<span class="hl str">		 (</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}{</span><span class="hl ipl">$queue</span><span class="hl str">}{&apos;queuedata&apos;}{&apos;ppd&apos;})) {</span>
<span class="hl str">	    # Do we have a native CUPS driver or a PostScript PPD file?</span>
<span class="hl str"></span>	    <span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY} = printer::get_descr_from_ppd(</span><span class="hl ipl">$printer</span><span class="hl str">) ||</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY};</span>
<span class="hl str"></span>	    <span class="hl ipl">$printer</span><span class="hl str">-&gt;{OLD_CHOICE} =</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY};</span>
<span class="hl str">	} else {</span>
<span class="hl str">	    # Point the list cursor at least to manufacturer and model of the</span>
<span class="hl str">	    # printer</span>
<span class="hl str"></span>	    <span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY} = &quot;</span><span class="hl str">&quot;;</span>
<span class="hl str">	    my</span> <span class="hl ipl">$make</span> <span class="hl str">= uc(</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}{</span><span class="hl ipl">$queue</span><span class="hl str">}{&apos;queuedata&apos;}{&apos;make&apos;});</span>
<span class="hl str">	    my</span> <span class="hl ipl">$model</span> <span class="hl str">=</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}{</span><span class="hl ipl">$queue</span><span class="hl str">}{&apos;queuedata&apos;}{&apos;model&apos;};</span>
<span class="hl str">	    my</span> <span class="hl ipl">$key</span><span class="hl str">;</span>
<span class="hl str">	    for</span> <span class="hl ipl">$key</span> <span class="hl str">(keys</span> <span class="hl ipl">%printer</span><span class="hl str">::thedb) {</span>
<span class="hl str">		if ((($::expert) &amp;&amp; (</span><span class="hl ipl">$key</span> <span class="hl str">=~ /^</span><span class="hl ipl">$make\</span><span class="hl str">|</span><span class="hl ipl">$model\</span><span class="hl str">|.*\(recommended\)</span><span class="hl ipl">$/</span><span class="hl str">)) ||</span>
<span class="hl str">		    ((!$::expert) &amp;&amp; (</span><span class="hl ipl">$key</span> <span class="hl str">=~ /^</span><span class="hl ipl">$make\</span><span class="hl str">|</span><span class="hl ipl">$model$/</span><span class="hl str">))) {</span>
<span class="hl str"></span>		    <span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY} =</span> <span class="hl ipl">$key</span><span class="hl str">;</span>
<span class="hl str">		}</span>
<span class="hl str">	    }</span>
<span class="hl str">	    if (</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY} eq &quot;</span><span class="hl str">&quot;) {</span>
<span class="hl str">		# Exact match of make and model did not work, try to clean</span>
<span class="hl str">		# up the model name</span>
<span class="hl str"></span>		<span class="hl ipl">$model</span> <span class="hl str">=~ s/PS//;</span>
<span class="hl str"></span>		<span class="hl ipl">$model</span> <span class="hl str">=~ s/PostScript//;</span>
<span class="hl str"></span>		<span class="hl ipl">$model</span> <span class="hl str">=~ s/Series//;</span>
<span class="hl str">		for</span> <span class="hl ipl">$key</span> <span class="hl str">(keys</span> <span class="hl ipl">%printer</span><span class="hl str">::thedb) {</span>
<span class="hl str">		    if ((($::expert) &amp;&amp; (</span><span class="hl ipl">$key</span> <span class="hl str">=~ /^</span><span class="hl ipl">$make\</span><span class="hl str">|</span><span class="hl ipl">$model\</span><span class="hl str">|.*\(recommended\)</span><span class="hl ipl">$/</span><span class="hl str">)) ||</span>
<span class="hl str">			((!$::expert) &amp;&amp; (</span><span class="hl ipl">$key</span> <span class="hl str">=~ /^</span><span class="hl ipl">$make\</span><span class="hl str">|</span><span class="hl ipl">$model$/</span><span class="hl str">))) {</span>
<span class="hl str"></span>			<span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY} =</span> <span class="hl ipl">$key</span><span class="hl str">;</span>
<span class="hl str">		    }</span>
<span class="hl str">		}</span>
<span class="hl str">	    }</span>
<span class="hl str">	    if ((</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY} eq &quot;</span><span class="hl str">&quot;) &amp;&amp; (</span><span class="hl ipl">$make</span> <span class="hl str">ne &quot;</span><span class="hl str">&quot;)) {</span>
<span class="hl str">		# Exact match with cleaned-up model did not work, try a best match</span>
<span class="hl str">		my</span> <span class="hl ipl">$matchstr</span> <span class="hl str">= &quot;</span><span class="hl kwb">$make</span><span class="hl opt">|</span><span class="hl kwb">$model</span><span class="hl str">&quot;;</span>
<span class="hl str"></span>		<span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY} = bestMatchSentence(</span><span class="hl ipl">$matchstr,</span> <span class="hl str">keys</span> <span class="hl ipl">%printer</span><span class="hl str">::thedb);</span>
<span class="hl str">		# If the manufacturer was not guessed correctly, discard the</span>
<span class="hl str">		# guess.</span>
<span class="hl str"></span>		<span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY} =~ /^([^\|]+)\|/;</span>
<span class="hl str">		my</span> <span class="hl ipl">$guessedmake</span> <span class="hl str">= lc(</span><span class="hl ipl">$1</span><span class="hl str">);</span>
<span class="hl str">		if ((</span><span class="hl ipl">$matchstr</span> <span class="hl str">!~ /</span><span class="hl ipl">$guessedmake/i</span><span class="hl str">) &amp;&amp;</span>
<span class="hl str">		    ((</span><span class="hl ipl">$guessedmake</span> <span class="hl str">ne &quot;</span>hp<span class="hl str">&quot;) ||</span>
<span class="hl str">		     (</span><span class="hl ipl">$matchstr</span> <span class="hl str">!~ /Hewlett[\s-]+Packard/i)))</span>
<span class="hl str">		{</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY} = &quot;</span><span class="hl str">&quot;};</span>
<span class="hl str">	    }</span>
<span class="hl str">	    # Set the OLD_CHOICE to a non-existing value</span>
<span class="hl str"></span>	    <span class="hl ipl">$printer</span><span class="hl str">-&gt;{OLD_CHOICE} = &quot;</span>XXX<span class="hl str">&quot;;</span>
<span class="hl str">	}</span>
<span class="hl str">    } else {</span>
<span class="hl str">	if (($::expert) &amp;&amp; (</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY} !~ /(recommended)/)) {</span>
<span class="hl str">	    my (</span><span class="hl ipl">$make,</span> <span class="hl str"></span><span class="hl ipl">$model</span><span class="hl str">) =</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY} =~ /^([^\|]+)\|([^\|]+)\|/;</span>
<span class="hl str">	    for my</span> <span class="hl ipl">$key</span> <span class="hl str">(keys</span> <span class="hl ipl">%printer</span><span class="hl str">::thedb) {</span>
<span class="hl str">		if (</span><span class="hl ipl">$key</span> <span class="hl str">=~ /^</span><span class="hl ipl">$make\</span><span class="hl str">|</span><span class="hl ipl">$model\</span><span class="hl str">|.*\(recommended\)</span><span class="hl ipl">$/</span><span class="hl str">) {</span>
<span class="hl str"></span>		    <span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY} =</span> <span class="hl ipl">$key</span><span class="hl str">;</span>
<span class="hl str">		}</span>
<span class="hl str">	    }</span>
<span class="hl str">	}</span>
<span class="hl str"></span>	<span class="hl ipl">$printer</span><span class="hl str">-&gt;{OLD_CHOICE} =</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY};</span>
<span class="hl str">    }</span>
<span class="hl str">}</span>
<span class="hl str"></span>
<span class="hl str">sub choose_model {</span>
<span class="hl str">    my (</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$in</span><span class="hl str">) =</span> <span class="hl ipl">&#64;_</span><span class="hl str">;</span>
<span class="hl str"></span>    <span class="hl ipl">$in</span><span class="hl str">-&gt;set_help(&apos;chooseModel&apos;) if $::isInstall;</span>
<span class="hl str">    #- Read the printer driver database if necessary</span>
<span class="hl str">    if ((keys</span> <span class="hl ipl">%printer</span><span class="hl str">::thedb) == 0) {</span>
<span class="hl str">	my</span> <span class="hl ipl">$w</span> <span class="hl str">=</span> <span class="hl ipl">$in</span><span class="hl str">-&gt;wait_message(&apos;&apos;, _(&quot;</span>Reading printer database <span class="hl opt">...</span><span class="hl str">&quot;));</span>
<span class="hl str">        printer::read_printer_db(</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{SPOOLER});</span>
<span class="hl str">    }</span>
<span class="hl str">    if (!</span><span class="hl ipl">$printer</span><span class="hl str">::thedb{</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY}}) {</span>
<span class="hl str"></span>	<span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY} = _(&quot;</span>Raw printer <span class="hl opt">(</span>No driver<span class="hl opt">)</span><span class="hl str">&quot;);</span>
<span class="hl str">    }</span>
<span class="hl str">    # Choose the printer/driver from the list</span>
<span class="hl str">    return (</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY} =</span> <span class="hl ipl">$in</span><span class="hl str">-&gt;ask_from_treelist(_(&quot;</span>Printer model selection<span class="hl str">&quot;),</span>
<span class="hl str">							 _(&quot;</span>Which printer model <span class="hl kwa">do</span> you have?<span class="hl str">&quot;) .</span>
<span class="hl str">							 _(&quot;</span>

Please check whether Printerdrake did the auto-detection of your printer model correctly<span class="hl opt">.</span> Search the correct model <span class="hl kwa">in</span> the list <span class="hl kwa">when</span> the cursor <span class="hl kwa">is</span> standing on a wrong model <span class="hl kwc">or</span> on <span class="hl esc">\&quot;</span>Raw printer<span class="hl esc">\&quot;</span><span class="hl opt">.</span><span class="hl str">&quot;), &apos;|&apos;,</span>
<span class="hl str">							 [ keys</span> <span class="hl ipl">%printer</span><span class="hl str">::thedb ],</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY}));</span>
<span class="hl str"></span>
<span class="hl str">}</span>
<span class="hl str"></span>
<span class="hl str">sub get_printer_info {</span>
<span class="hl str">    my (</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$in</span><span class="hl str">) =</span> <span class="hl ipl">&#64;_</span><span class="hl str">;</span>
<span class="hl str">    #- Read the printer driver database if necessary</span>
<span class="hl str">    #if ((keys</span> <span class="hl ipl">%printer</span><span class="hl str">::thedb) == 0) {</span>
<span class="hl str">    #    my</span> <span class="hl ipl">$w</span> <span class="hl str">=</span> <span class="hl ipl">$in</span><span class="hl str">-&gt;wait_message(&apos;&apos;, _(&quot;</span>Reading printer database <span class="hl opt">...</span><span class="hl str">&quot;));</span>
<span class="hl str">    #    printer::read_printer_db(</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{SPOOLER});</span>
<span class="hl str">    #}</span>
<span class="hl str">    my</span> <span class="hl ipl">$queue</span> <span class="hl str">=</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{OLD_QUEUE};</span>
<span class="hl str">    my</span> <span class="hl ipl">$oldchoice</span> <span class="hl str">=</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{OLD_CHOICE};</span>
<span class="hl str">    my</span> <span class="hl ipl">$newdriver</span> <span class="hl str">= 0;</span>
<span class="hl str">    if ((!</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}{</span><span class="hl ipl">$queue</span><span class="hl str">}) ||      # New queue  or</span>
<span class="hl str">	((</span><span class="hl ipl">$oldchoice</span><span class="hl str">) &amp;&amp; (</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY}) &amp;&amp; # make/model/driver changed</span>
<span class="hl str">	 ((</span><span class="hl ipl">$oldchoice</span> <span class="hl str">ne</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY}) ||</span>
<span class="hl str">	  (</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{currentqueue}{&apos;driver&apos;} ne </span>
<span class="hl str"></span>	   <span class="hl ipl">$printer</span><span class="hl str">::thedb{</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY}}{&apos;driver&apos;})))) {</span>
<span class="hl str">	delete(</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{currentqueue}{printer});</span>
<span class="hl str">	delete(</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{currentqueue}{ppd});</span>
<span class="hl str"></span>	<span class="hl ipl">$printer</span><span class="hl str">-&gt;{currentqueue}{foomatic} = 0;</span>
<span class="hl str">	# Read info from printer database</span>
<span class="hl str">	foreach (qw(printer ppd driver make model)</span><span class="hl opt">) {</span> <span class="hl slc">#- copy some parameter, shorter that way...</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwb">$_</span><span class="hl opt">} =</span> <span class="hl kwb">$printer</span><span class="hl opt">::</span>thedb<span class="hl opt">{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DBENTRY<span class="hl opt">}}{</span><span class="hl kwb">$_</span><span class="hl opt">};</span>
	<span class="hl opt">}</span>
	<span class="hl kwb">$newdriver</span> <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl slc"># Use the &quot;printer&quot; and not the &quot;foomatic&quot; field to identify a Foomatic</span>
    <span class="hl slc"># queue because in a new queue &quot;foomatic&quot; is not set yet.</span>
    <span class="hl kwa">if</span> <span class="hl opt">((</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;printer&apos;</span><span class="hl opt">}) ||</span> <span class="hl slc"># We have a Foomatic queue</span>
	<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;ppd&apos;</span><span class="hl opt">})) {</span> <span class="hl slc"># We have a CUPS+PPD queue</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;printer&apos;</span><span class="hl opt">}) {</span> <span class="hl slc"># Foomatic queue?</span>
	    <span class="hl slc"># In case of a new queue &quot;foomatic&quot; was not set yet</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;foomatic&apos;</span><span class="hl opt">} =</span> <span class="hl num">1</span><span class="hl opt">;</span>
	    <span class="hl slc"># Now get the options for this printer/driver combo</span>
	    <span class="hl kwa">if</span> <span class="hl opt">((</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">}) &amp;&amp; (</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">}{</span><span class="hl str">&apos;queuedata&apos;</span><span class="hl opt">}{</span><span class="hl str">&apos;foomatic&apos;</span><span class="hl opt">})) {</span>
		<span class="hl slc"># The queue was already configured with Foomatic ...</span>
		<span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$newdriver</span><span class="hl opt">) {</span>
		    <span class="hl slc"># ... and the user didn&apos;t change the printer/driver</span>
		    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">} =</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">}{</span><span class="hl str">&apos;args&apos;</span><span class="hl opt">};</span>
		<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		    <span class="hl slc"># ... and the user has chosen another printer/driver</span>
		    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">} =</span> printer<span class="hl opt">::</span>read_foomatic_options<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
		<span class="hl opt">}</span>
	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		<span class="hl slc"># The queue was not configured with Foomatic before</span>
		<span class="hl slc"># Set some special options</span>
		<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPECIAL_OPTIONS<span class="hl opt">} =</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">;</span>
		<span class="hl slc"># Default page size depending on the country/language</span>
		<span class="hl slc"># (US/Canada -&gt; Letter, Others -&gt; A4)</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$pagesize</span><span class="hl opt">;</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>PAPERSIZE<span class="hl opt">}) {</span>
		    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPECIAL_OPTIONS<span class="hl opt">} .=</span> 
			<span class="hl str">&quot; -o PageSize=</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{PAPERSIZE}&quot;</span><span class="hl opt">;</span>
		<span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">((</span><span class="hl kwb">$pagesize</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;{</span>lang<span class="hl opt">}) ||</span>
			 <span class="hl opt">(</span><span class="hl kwb">$pagesize</span> <span class="hl opt">=</span> <span class="hl kwb">$ENV</span><span class="hl opt">{</span><span class="hl str">&apos;LC_PAPER&apos;</span><span class="hl opt">}) ||</span>
			 <span class="hl opt">(</span><span class="hl kwb">$pagesize</span> <span class="hl opt">=</span> <span class="hl kwb">$ENV</span><span class="hl opt">{</span><span class="hl str">&apos;LANG&apos;</span><span class="hl opt">}) ||</span>
			 <span class="hl opt">(</span><span class="hl kwb">$pagesize</span> <span class="hl opt">=</span> <span class="hl kwb">$ENV</span><span class="hl opt">{</span><span class="hl str">&apos;LANGUAGE&apos;</span><span class="hl opt">}) ||</span>
			 <span class="hl opt">(</span><span class="hl kwb">$pagesize</span> <span class="hl opt">=</span> <span class="hl kwb">$ENV</span><span class="hl opt">{</span><span class="hl str">&apos;LC_ALL&apos;</span><span class="hl opt">})) {</span>
		    <span class="hl kwa">if</span> <span class="hl opt">((</span><span class="hl kwb">$pagesize</span> <span class="hl opt">=~</span> <span class="hl kwd">/^en_CA/</span><span class="hl opt">) ||</span>
			<span class="hl opt">(</span><span class="hl kwb">$pagesize</span> <span class="hl opt">=~</span> <span class="hl kwd">/^fr_CA/</span><span class="hl opt">) ||</span> 
			<span class="hl opt">(</span><span class="hl kwb">$pagesize</span> <span class="hl opt">=~</span> <span class="hl kwd">/^en_US/</span><span class="hl opt">)) {</span>
			<span class="hl kwb">$pagesize</span> <span class="hl opt">=</span> <span class="hl str">&quot;Letter&quot;</span><span class="hl opt">;</span>
		    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
			<span class="hl kwb">$pagesize</span> <span class="hl opt">=</span> <span class="hl str">&quot;A4&quot;</span><span class="hl opt">;</span>
		    <span class="hl opt">}</span>
		    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPECIAL_OPTIONS<span class="hl opt">} .=</span> 
			<span class="hl str">&quot; -o PageSize=</span><span class="hl ipl">$pagesize</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
		<span class="hl opt">}</span>
		<span class="hl slc"># oki4w driver -&gt; OKI winprinter which needs the</span>
		<span class="hl slc"># oki4daemon to work</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;driver&apos;</span><span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;oki4w&apos;</span><span class="hl opt">) {</span>
		    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;connect&apos;</span><span class="hl opt">}</span> <span class="hl kwc">ne</span> 
			<span class="hl str">&apos;file:/dev/lp0&apos;</span><span class="hl opt">) {</span>
			<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span>_<span class="hl opt">(</span><span class="hl str">&quot;OKI winprinter configuration&quot;</span><span class="hl opt">),</span>
				      _<span class="hl opt">(</span><span class="hl str">&quot;You are configuring an OKI laser winprinter. These printers</span><span class="hl esc">\n</span><span class="hl str">use a very special communication protocol and therefore they work only when connected to the first parallel port. When your printer is connected to another port or to a print server box please connect the printer to the first parallel port before you print a test page. Otherwise the printer will not work. Your connection type setting will be ignored by the driver.&quot;</span><span class="hl opt">));</span>
		    <span class="hl opt">}</span>
		    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;connect&apos;</span><span class="hl opt">} =</span> <span class="hl str">&apos;file:/dev/null&apos;</span><span class="hl opt">;</span>
		    <span class="hl slc"># Start the oki4daemon</span>
		    printer<span class="hl opt">::</span>start_service_on_boot<span class="hl opt">(</span><span class="hl str">&apos;oki4daemon&apos;</span><span class="hl opt">);</span>
		    printer<span class="hl opt">::</span>start_service<span class="hl opt">(</span><span class="hl str">&apos;oki4daemon&apos;</span><span class="hl opt">);</span>
		    <span class="hl slc"># Set permissions</span>
		    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;cups&apos;</span><span class="hl opt">) {</span>
			printer<span class="hl opt">::</span>set_permissions<span class="hl opt">(</span><span class="hl str">&apos;/dev/oki4drv&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;660&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;lp&apos;</span><span class="hl opt">,</span>
						 <span class="hl str">&apos;sys&apos;</span><span class="hl opt">);</span>
		    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;pdq&apos;</span><span class="hl opt">) {</span>
			printer<span class="hl opt">::</span>set_permissions<span class="hl opt">(</span><span class="hl str">&apos;/dev/oki4drv&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;666&apos;</span><span class="hl opt">);</span>
		    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
			printer<span class="hl opt">::</span>set_permissions<span class="hl opt">(</span><span class="hl str">&apos;/dev/oki4drv&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;660&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;lp&apos;</span><span class="hl opt">,</span>
						 <span class="hl str">&apos;lp&apos;</span><span class="hl opt">);</span>
		    <span class="hl opt">}</span>
		<span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;driver&apos;</span><span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;lexmarkinkjet&apos;</span><span class="hl opt">) {</span>
		    <span class="hl slc"># Set &quot;Port&quot; option</span>
		    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;connect&apos;</span><span class="hl opt">}</span> <span class="hl kwc">eq</span> 
			<span class="hl str">&apos;file:/dev/lp0&apos;</span><span class="hl opt">) {</span>
			<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPECIAL_OPTIONS<span class="hl opt">} .=</span> 
			    <span class="hl str">&quot; -o Port=ParPort1&quot;</span><span class="hl opt">;</span>
		    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;connect&apos;</span><span class="hl opt">}</span> <span class="hl kwc">eq</span> 
			<span class="hl str">&apos;file:/dev/lp1&apos;</span><span class="hl opt">) {</span>
			<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPECIAL_OPTIONS<span class="hl opt">} .=</span> 
			    <span class="hl str">&quot; -o Port=ParPort2&quot;</span><span class="hl opt">;</span>
		    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;connect&apos;</span><span class="hl opt">}</span> <span class="hl kwc">eq</span> 
			<span class="hl str">&apos;file:/dev/lp2&apos;</span><span class="hl opt">) {</span>
			<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPECIAL_OPTIONS<span class="hl opt">} .=</span> 
			    <span class="hl str">&quot; -o Port=ParPort3&quot;</span><span class="hl opt">;</span>
		    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;connect&apos;</span><span class="hl opt">}</span> <span class="hl kwc">eq</span> 
			<span class="hl str">&apos;file:/dev/usb/lp0&apos;</span><span class="hl opt">) {</span>
			<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPECIAL_OPTIONS<span class="hl opt">} .=</span> 
			    <span class="hl str">&quot; -o Port=USB1&quot;</span><span class="hl opt">;</span>
		    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;connect&apos;</span><span class="hl opt">}</span> <span class="hl kwc">eq</span> 
			<span class="hl str">&apos;file:/dev/usb/lp1&apos;</span><span class="hl opt">) {</span>
			<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPECIAL_OPTIONS<span class="hl opt">} .=</span> 
			    <span class="hl str">&quot; -o Port=USB2&quot;</span><span class="hl opt">;</span>
		    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;connect&apos;</span><span class="hl opt">}</span> <span class="hl kwc">eq</span> 
			<span class="hl str">&apos;file:/dev/usb/lp2&apos;</span><span class="hl opt">) {</span>
			<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPECIAL_OPTIONS<span class="hl opt">} .=</span> 
			    <span class="hl str">&quot; -o Port=USB3&quot;</span><span class="hl opt">;</span>
		    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
			<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span>_<span class="hl opt">(</span><span class="hl str">&quot;Lexmark inkjet configuration&quot;</span><span class="hl opt">),</span>
				      _<span class="hl opt">(</span><span class="hl str">&quot;The inkjet printer drivers provided by Lexmark only support local printers, no printers on remote machines or print server boxes. Please connect your printer to a local port or configure it on the machine where it is connected to.&quot;</span><span class="hl opt">));</span>
			<span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
		    <span class="hl opt">}</span>
		    <span class="hl slc"># Set device permissions</span>
		    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;connect&apos;</span><span class="hl opt">} =~</span> <span class="hl kwd">/^\s*file:(\S*)\s*$/</span><span class="hl opt">;</span>
		    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;cups&apos;</span><span class="hl opt">) {</span>
			printer<span class="hl opt">::</span>set_permissions<span class="hl opt">(</span><span class="hl kwb">$1,</span> <span class="hl str">&apos;660&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;lp&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;sys&apos;</span><span class="hl opt">);</span>
		    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;pdq&apos;</span><span class="hl opt">) {</span>
			printer<span class="hl opt">::</span>set_permissions<span class="hl opt">(</span><span class="hl kwb">$1,</span> <span class="hl str">&apos;666&apos;</span><span class="hl opt">);</span>
		    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
			printer<span class="hl opt">::</span>set_permissions<span class="hl opt">(</span><span class="hl kwb">$1,</span> <span class="hl str">&apos;660&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;lp&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;lp&apos;</span><span class="hl opt">);</span>
		    <span class="hl opt">}</span>
		    <span class="hl slc"># This is needed to have the device not blocked by the</span>
		    <span class="hl slc"># spooler backend.</span>
		    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;connect&apos;</span><span class="hl opt">} =</span> <span class="hl str">&apos;file:/dev/null&apos;</span><span class="hl opt">;</span>
		    <span class="hl slc">#install packages</span>
		    <span class="hl kwc">my</span> <span class="hl kwb">$drivertype</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;model&apos;</span><span class="hl opt">};</span>
		    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$drivertype</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;Z22&apos;</span><span class="hl opt">) {</span><span class="hl kwb">$drivertype</span> <span class="hl opt">=</span> <span class="hl str">&apos;Z32&apos;</span><span class="hl opt">;}</span>
		    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$drivertype</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;Z23&apos;</span><span class="hl opt">) {</span><span class="hl kwb">$drivertype</span> <span class="hl opt">=</span> <span class="hl str">&apos;Z33&apos;</span><span class="hl opt">;}</span>
		    <span class="hl kwb">$drivertype</span> <span class="hl opt">=</span> <span class="hl kwc">lc</span><span class="hl opt">(</span><span class="hl kwb">$drivertype</span><span class="hl opt">);</span>
		    <span class="hl kwa">if</span> <span class="hl opt">(!</span>printer<span class="hl opt">::</span>files_exist<span class="hl opt">(</span><span class="hl str">&quot;/usr/local/lexmark/</span><span class="hl ipl">$drivertype/$drivertype</span><span class="hl str">&quot;</span><span class="hl opt">)) {</span>
			<span class="hl kwc">eval</span> <span class="hl opt">{</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">do_pkgs</span><span class="hl opt">-&gt;</span><span class="hl kwd">install</span><span class="hl opt">(</span><span class="hl str">&quot;lexmark-drivers-</span><span class="hl ipl">$drivertype</span><span class="hl str">&quot;</span><span class="hl opt">) };</span>
		    <span class="hl opt">}</span>
		    <span class="hl kwa">if</span> <span class="hl opt">(!</span>printer<span class="hl opt">::</span>files_exist<span class="hl opt">(</span><span class="hl str">&quot;/usr/local/lexmark/</span><span class="hl ipl">$drivertype/$drivertype</span><span class="hl str">&quot;</span><span class="hl opt">)) {</span>
			<span class="hl slc"># Driver installation failed, probably we do not have</span>
			<span class="hl slc"># the commercial CDs</span>
			<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span>_<span class="hl opt">(</span><span class="hl str">&quot;Lexmark inkjet configuration&quot;</span><span class="hl opt">),</span>
				      _<span class="hl opt">(</span><span class="hl str">&quot;To be able to print with your Lexmark inkjet and this configuration, you need the inkjet printer drivers provided by Lexmark (http://www.lexmark.com/). Go to the US site and click on the</span> <span class="hl esc">\&quot;</span><span class="hl str">Drivers</span><span class="hl esc">\&quot;</span> <span class="hl str">button. Then choose your model and afterwards</span> <span class="hl esc">\&quot;</span><span class="hl str">Linux</span><span class="hl esc">\&quot;</span> <span class="hl str">as operating system. The drivers come as RPM packages or shell scripts with interactive graphical installation. You do not need to do this configuration by the graphical frontends. Cancel directly after the license agreement. Then print printhead alignment pages with</span> <span class="hl esc">\&quot;</span><span class="hl str">lexmarkmaintain</span><span class="hl esc">\&quot;</span> <span class="hl str">and adjust the head alignment settings with this program.&quot;</span><span class="hl opt">));</span>
		    <span class="hl opt">}</span>
		<span class="hl opt">}</span>
		<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">} =</span> printer<span class="hl opt">::</span>read_foomatic_options<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
		<span class="hl kwc">delete</span><span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPECIAL_OPTIONS<span class="hl opt">});</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;ppd&apos;</span><span class="hl opt">}) {</span> <span class="hl slc"># CUPS+PPD queue?</span>
	    <span class="hl slc"># If we had a Foomatic queue before, unmark the flag and initialize</span>
	    <span class="hl slc"># the &quot;printer&quot; and &quot;driver&quot; fields</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;foomatic&apos;</span><span class="hl opt">} =</span> <span class="hl num">0</span><span class="hl opt">;</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;printer&apos;</span><span class="hl opt">} =</span> <span class="hl kwc">undef</span><span class="hl opt">;</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;driver&apos;</span><span class="hl opt">} =</span> <span class="hl str">&quot;CUPS/PPD&quot;</span><span class="hl opt">;</span>
	    <span class="hl slc"># Now get the options from this PPD file</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">}) {</span>
		<span class="hl slc"># The queue was already configured</span>
		<span class="hl kwa">if</span> <span class="hl opt">((!</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DBENTRY<span class="hl opt">}) || (!</span><span class="hl kwb">$oldchoice</span><span class="hl opt">) ||</span>
		    <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DBENTRY<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl kwb">$oldchoice</span><span class="hl opt">)) {</span>
		    <span class="hl slc"># ... and the user didn&apos;t change the printer/driver</span>
		    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">} =</span> printer<span class="hl opt">::</span>read_cups_options<span class="hl opt">(</span><span class="hl kwb">$queue</span><span class="hl opt">);</span>
		<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		    <span class="hl slc"># ... and the user has chosen another printer/driver</span>
		    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">} =</span> printer<span class="hl opt">::</span>read_cups_options<span class="hl opt">(</span><span class="hl str">&quot;/usr/share/cups/model/</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{currentqueue}{ppd}&quot;</span><span class="hl opt">);</span>
		<span class="hl opt">}</span>
	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		<span class="hl slc"># The queue was not configured before</span>
		<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">} =</span> printer<span class="hl opt">::</span>read_cups_options<span class="hl opt">(</span><span class="hl str">&quot;/usr/share/cups/model/</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{currentqueue}{ppd}&quot;</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>
    <span class="hl num">1</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> setup_options <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">&#64;simple_options</span> <span class="hl opt">=</span> 
	<span class="hl opt">(</span><span class="hl str">&quot;PageSize&quot;</span><span class="hl opt">,</span>        <span class="hl slc"># Media properties</span>
	 <span class="hl str">&quot;MediaType&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Form&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;InputSlot&quot;</span><span class="hl opt">,</span>       <span class="hl slc"># Trays</span>
	 <span class="hl str">&quot;Tray&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;OutBin&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;OutputBin&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;FaceUp&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;FaceDown&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Collate&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Manual&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;ManualFeed&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Manualfeed&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;ManualFeeder&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Feeder&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Duplex&quot;</span><span class="hl opt">,</span>          <span class="hl slc"># Double-sided printing</span>
	 <span class="hl str">&quot;Binding&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Tumble&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;DoubleSided&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Resolution&quot;</span><span class="hl opt">,</span>      <span class="hl slc"># Resolution/Quality</span>
	 <span class="hl str">&quot;GSResolution&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;JCLResolution&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Quality&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;PrintQuality&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;PrintoutQuality&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;QualityType&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;ImageType&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;InkType&quot;</span><span class="hl opt">,</span>         <span class="hl slc"># Colour/Gray/BW, 4-ink/6-ink</span>
	 <span class="hl str">&quot;Mode&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;OutputMode&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;OutputType&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;ColorMode&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;PrintingMode&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Monochrome&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;BlackOnly&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Grayscale&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;GrayScale&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Colour&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Color&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Gamma&quot;</span><span class="hl opt">,</span>           <span class="hl slc"># Lighter/Darker</span>
	 <span class="hl str">&quot;GammaCorrection&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;GammaGeneral&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;MasterGamma&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;StpGamma&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;EconoMode&quot;</span><span class="hl opt">,</span>       <span class="hl slc"># Ink/Toner saving</span>
	 <span class="hl str">&quot;Economode&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;TonerSaving&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;JCLEconomode&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;HPNup&quot;</span><span class="hl opt">,</span>           <span class="hl slc"># Other useful options</span>
	 <span class="hl str">&quot;InstalledMemory&quot;</span><span class="hl opt">,</span> <span class="hl slc"># Laser printer hardware config</span>
	 <span class="hl str">&quot;Option1&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option2&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option3&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option4&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option5&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option6&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option7&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option8&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option9&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option10&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option11&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option12&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option13&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option14&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option15&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option16&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option17&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option18&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option19&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option20&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option21&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option22&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option23&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option24&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option25&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option26&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option27&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option28&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option29&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option30&quot;</span>
	 <span class="hl opt">);</span>
    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_help</span><span class="hl opt">(</span><span class="hl str">&apos;setupOptions&apos;</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl opt">$::</span>isInstall<span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">((</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;printer&apos;</span><span class="hl opt">}) ||</span> <span class="hl slc"># We have a Foomatic queue</span>
	<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl str">&apos;ppd&apos;</span><span class="hl opt">})) {</span> <span class="hl slc"># We have a CUPS+PPD queue</span>
	<span class="hl slc"># Set up the widgets for the option dialog</span>
	<span class="hl kwc">my</span> <span class="hl kwb">&#64;widgets</span><span class="hl opt">;</span>
	<span class="hl kwc">my</span> <span class="hl kwb">&#64;userinputs</span><span class="hl opt">;</span>
	<span class="hl kwc">my</span> <span class="hl kwb">&#64;choicelists</span><span class="hl opt">;</span>
	<span class="hl kwc">my</span> <span class="hl kwb">&#64;shortchoicelists</span><span class="hl opt">;</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$i</span><span class="hl opt">;</span>
	<span class="hl kwa">for</span> <span class="hl opt">(</span><span class="hl kwb">$i</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span> <span class="hl kwb">$i</span> <span class="hl opt">&lt;=</span> <span class="hl kwb">$#</span><span class="hl opt">{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}};</span> <span class="hl kwb">$i++</span><span class="hl opt">) {</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$optshortdefault</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span><span class="hl str">&apos;default&apos;</span><span class="hl opt">};</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span><span class="hl str">&apos;type&apos;</span><span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;enum&apos;</span><span class="hl opt">) {</span>
		<span class="hl slc"># enumerated option</span>
		<span class="hl kwc">push</span><span class="hl opt">(</span><span class="hl kwb">&#64;choicelists,</span> <span class="hl opt">[]);</span>
		<span class="hl kwc">push</span><span class="hl opt">(</span><span class="hl kwb">&#64;shortchoicelists,</span> <span class="hl opt">[]);</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$choice</span><span class="hl opt">;</span>
		<span class="hl kwa">for</span> <span class="hl kwb">$choice</span> <span class="hl opt">(&#64;{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span><span class="hl str">&apos;vals&apos;</span><span class="hl opt">}}) {</span>
		    <span class="hl kwc">push</span><span class="hl opt">(&#64;{</span><span class="hl kwb">$choicelists</span><span class="hl opt">[</span><span class="hl kwb">$i</span><span class="hl opt">]},</span> <span class="hl kwb">$choice</span><span class="hl opt">-&gt;{</span><span class="hl str">&apos;comment&apos;</span><span class="hl opt">});</span>
		    <span class="hl kwc">push</span><span class="hl opt">(&#64;{</span><span class="hl kwb">$shortchoicelists</span><span class="hl opt">[</span><span class="hl kwb">$i</span><span class="hl opt">]},</span> <span class="hl kwb">$choice</span><span class="hl opt">-&gt;{</span><span class="hl str">&apos;value&apos;</span><span class="hl opt">});</span>
		    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$choice</span><span class="hl opt">-&gt;{</span><span class="hl str">&apos;value&apos;</span><span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl kwb">$optshortdefault</span><span class="hl opt">) {</span>
			<span class="hl kwc">push</span><span class="hl opt">(</span><span class="hl kwb">&#64;userinputs, $choice</span><span class="hl opt">-&gt;{</span><span class="hl str">&apos;comment&apos;</span><span class="hl opt">});</span>
		    <span class="hl opt">}</span>
		<span class="hl opt">}</span>
		<span class="hl kwc">push</span><span class="hl opt">(</span><span class="hl kwb">&#64;widgets,</span>
		     <span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span><span class="hl str">&apos;comment&apos;</span><span class="hl opt">},</span> 
		       val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$userinputs</span><span class="hl opt">[</span><span class="hl kwb">$i</span><span class="hl opt">],</span> 
		       not_edit <span class="hl opt">=&gt;</span> <span class="hl num">1</span><span class="hl opt">,</span>
		       list <span class="hl opt">=&gt;</span> \<span class="hl opt">&#64;{</span><span class="hl kwb">$choicelists</span><span class="hl opt">[</span><span class="hl kwb">$i</span><span class="hl opt">]},</span>
		       advanced <span class="hl opt">=&gt; !</span>member<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span><span class="hl str">&apos;name&apos;</span><span class="hl opt">},</span>
					   <span class="hl kwb">&#64;simple_options</span><span class="hl opt">) });</span>
	    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span><span class="hl str">&apos;type&apos;</span><span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;bool&apos;</span><span class="hl opt">) {</span>
		<span class="hl slc"># boolean option</span>
		<span class="hl kwc">push</span><span class="hl opt">(</span><span class="hl kwb">&#64;choicelists,</span> <span class="hl opt">[</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span><span class="hl str">&apos;name&apos;</span><span class="hl opt">},</span> 
				    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span><span class="hl str">&apos;name_false&apos;</span><span class="hl opt">}]);</span>
		<span class="hl kwc">push</span><span class="hl opt">(</span><span class="hl kwb">&#64;shortchoicelists,</span> <span class="hl opt">[]);</span>
		<span class="hl kwc">push</span><span class="hl opt">(</span><span class="hl kwb">&#64;userinputs, $choicelists</span><span class="hl opt">[</span><span class="hl kwb">$i</span><span class="hl opt">][</span><span class="hl num">1</span><span class="hl opt">-</span><span class="hl kwb">$optshortdefault</span><span class="hl opt">]);</span>
		<span class="hl kwc">push</span><span class="hl opt">(</span><span class="hl kwb">&#64;widgets,</span>
		     <span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span><span class="hl str">&apos;comment&apos;</span><span class="hl opt">},</span>
		       val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$userinputs</span><span class="hl opt">[</span><span class="hl kwb">$i</span><span class="hl opt">],</span>
		       not_edit <span class="hl opt">=&gt;</span> <span class="hl num">1</span><span class="hl opt">,</span>
		       list <span class="hl opt">=&gt;</span> \<span class="hl opt">&#64;{</span><span class="hl kwb">$choicelists</span><span class="hl opt">[</span><span class="hl kwb">$i</span><span class="hl opt">]},</span>
		       advanced <span class="hl opt">=&gt; !</span>member<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span><span class="hl str">&apos;name&apos;</span><span class="hl opt">},</span>
					   <span class="hl kwb">&#64;simple_options</span><span class="hl opt">) });</span>
	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		<span class="hl slc"># numerical option</span>
		<span class="hl kwc">push</span><span class="hl opt">(</span><span class="hl kwb">&#64;choicelists,</span> <span class="hl opt">[]);</span>
		<span class="hl kwc">push</span><span class="hl opt">(</span><span class="hl kwb">&#64;shortchoicelists,</span> <span class="hl opt">[]);</span>
		<span class="hl kwc">push</span><span class="hl opt">(</span><span class="hl kwb">&#64;userinputs, $optshortdefault</span><span class="hl opt">);</span>
		<span class="hl kwc">push</span><span class="hl opt">(</span><span class="hl kwb">&#64;widgets,</span>
		     <span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span><span class="hl str">&apos;comment&apos;</span><span class="hl opt">} .</span> 
			   <span class="hl str">&quot; (</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{ARGS}[</span><span class="hl ipl">$i</span><span class="hl str">]{&apos;min&apos;} ... &quot;</span> <span class="hl opt">.</span>
			       <span class="hl str">&quot;</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{ARGS}[</span><span class="hl ipl">$i</span><span class="hl str">]{&apos;max&apos;})&quot;</span><span class="hl opt">,</span>
			   <span class="hl slc">#type =&gt; &apos;range&apos;,</span>
			   <span class="hl slc">#min =&gt; $printer-&gt;{ARGS}[$i]{&apos;min&apos;},</span>
			   <span class="hl slc">#max =&gt; $printer-&gt;{ARGS}[$i]{&apos;max&apos;},</span>
			   val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$userinputs</span><span class="hl opt">[</span><span class="hl kwb">$i</span><span class="hl opt">],</span>
			   advanced <span class="hl opt">=&gt; !</span>member<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span><span class="hl str">&apos;name&apos;</span><span class="hl opt">},</span>
					       <span class="hl kwb">&#64;simple_options</span><span class="hl opt">) });</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span>
	<span class="hl slc"># Show the options dialog. The call-back function does a</span>
	<span class="hl slc"># range check of the numerical options.</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$windowtitle</span> <span class="hl opt">=</span> <span class="hl str">&quot;</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{currentqueue}{&apos;make&apos;}</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{currentqueue}{&apos;model&apos;}&quot;</span><span class="hl opt">;</span>
	<span class="hl kwa">if</span> <span class="hl opt">($::</span>expert<span class="hl opt">) {</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$driver</span> <span class="hl opt">=</span> <span class="hl kwc">undef</span><span class="hl opt">;</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$driver</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>driver<span class="hl opt">}) {</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>foomatic<span class="hl opt">}) {</span>
		    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$driver</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;Postscript&apos;</span><span class="hl opt">) {</span>
			<span class="hl kwb">$driver</span> <span class="hl opt">=</span> <span class="hl str">&quot;PostScript&quot;</span><span class="hl opt">;</span>
		    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
			<span class="hl kwb">$driver</span> <span class="hl opt">=</span> <span class="hl str">&quot;GhostScript +</span> <span class="hl ipl">$driver</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
		    <span class="hl opt">}</span>
		<span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>ppd<span class="hl opt">}) {</span>
		    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DBENTRY<span class="hl opt">}) {</span>
			<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DBENTRY<span class="hl opt">} =~</span> <span class="hl kwd">/^[^\|]*\|[^\|]*\|(.*)$/</span><span class="hl opt">;</span>
			<span class="hl kwb">$driver</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
		    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
			<span class="hl kwb">$driver</span> <span class="hl opt">=</span> printer<span class="hl opt">::</span>get_descr_from_ppd<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
			<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$driver</span> <span class="hl opt">=~</span> <span class="hl kwd">/^[^\|]*\|[^\|]*$/</span><span class="hl opt">) {</span> <span class="hl slc"># No driver info</span>
			    <span class="hl kwb">$driver</span> <span class="hl opt">=</span> <span class="hl str">&quot;CUPS/PPD&quot;</span><span class="hl opt">;</span>
			<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
			    <span class="hl kwb">$driver</span> <span class="hl opt">=~</span> <span class="hl kwd">/^[^\|]*\|[^\|]*\|(.*)$/</span><span class="hl opt">;</span>
			    <span class="hl kwb">$driver</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
			<span class="hl opt">}</span>
		    <span class="hl opt">}</span>
		<span class="hl opt">}</span>
	    <span class="hl opt">}</span> 
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$driver</span><span class="hl opt">) {</span>
		<span class="hl kwb">$windowtitle</span> <span class="hl opt">.=</span> <span class="hl str">&quot;,</span> <span class="hl ipl">$driver</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span>
	<span class="hl kwa">return</span> <span class="hl num">0</span> <span class="hl kwa">if</span> <span class="hl opt">!</span><span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from</span>
	    <span class="hl opt">(</span><span class="hl kwb">$windowtitle,</span>
	     _<span class="hl opt">(</span><span class="hl str">&quot;Printer default settings</span>
<span class="hl str"></span>
<span class="hl str">You should make sure that the page size and the ink type/printing mode (if available) and also the hardware configuration of laser printers (memory, duplex unit, extra trays) are set correctly. Note that with a very high printout quality/resolution printing can get substantially slower.&quot;</span><span class="hl opt">),</span>
	     \<span class="hl kwb">&#64;widgets,</span>
	     complete <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
		 <span class="hl kwc">my</span> <span class="hl kwb">$i</span><span class="hl opt">;</span>
		 <span class="hl kwa">for</span> <span class="hl opt">(</span><span class="hl kwb">$i</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span> <span class="hl kwb">$i</span> <span class="hl opt">&lt;=</span> <span class="hl kwb">$#</span><span class="hl opt">{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}};</span> <span class="hl kwb">$i++</span><span class="hl opt">) {</span>
		     <span class="hl kwa">if</span> <span class="hl opt">((</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span><span class="hl str">&apos;type&apos;</span><span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;int&apos;</span><span class="hl opt">) || (</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span><span class="hl str">&apos;type&apos;</span><span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;float&apos;</span><span class="hl opt">)) {</span>
			 <span class="hl kwa">unless</span> <span class="hl opt">((</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span><span class="hl str">&apos;type&apos;</span><span class="hl opt">}</span> <span class="hl kwc">ne</span> <span class="hl str">&apos;int&apos;</span><span class="hl opt">) || (</span><span class="hl kwb">$userinputs</span><span class="hl opt">[</span><span class="hl kwb">$i</span><span class="hl opt">] =~</span> <span class="hl kwd">/^[\-\+]?[0-9]+$/</span><span class="hl opt">)) {</span>
			     <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> _<span class="hl opt">(</span><span class="hl str">&quot;Option</span> <span class="hl ipl">%s</span> <span class="hl str">must be an integer number!&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span><span class="hl str">&apos;comment&apos;</span><span class="hl opt">}));</span>
			     <span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">,</span> <span class="hl kwb">$i</span><span class="hl opt">);</span>
			 <span class="hl opt">}</span>
			 <span class="hl kwa">unless</span> <span class="hl opt">((</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span><span class="hl str">&apos;type&apos;</span><span class="hl opt">}</span> <span class="hl kwc">ne</span> <span class="hl str">&apos;float&apos;</span><span class="hl opt">) || (</span><span class="hl kwb">$userinputs</span><span class="hl opt">[</span><span class="hl kwb">$i</span><span class="hl opt">] =~</span> <span class="hl kwd">/^[\-\+]?[0-9\.]+$/</span><span class="hl opt">)) {</span>
			     <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> _<span class="hl opt">(</span><span class="hl str">&quot;Option</span> <span class="hl ipl">%s</span> <span class="hl str">must be a number!&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span><span class="hl str">&apos;comment&apos;</span><span class="hl opt">}));</span>
			     <span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">,</span> <span class="hl kwb">$i</span><span class="hl opt">);</span>
			 <span class="hl opt">}</span>
			 <span class="hl kwa">unless</span> <span class="hl opt">((</span><span class="hl kwb">$userinputs</span><span class="hl opt">[</span><span class="hl kwb">$i</span><span class="hl opt">] &gt;=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span><span class="hl str">&apos;min&apos;</span><span class="hl opt">}) &amp;&amp;</span>
				 <span class="hl opt">(</span><span class="hl kwb">$userinputs</span><span class="hl opt">[</span><span class="hl kwb">$i</span><span class="hl opt">] &lt;=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span><span class="hl str">&apos;max&apos;</span><span class="hl opt">})) {</span>
			     <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> _<span class="hl opt">(</span><span class="hl str">&quot;Option</span> <span class="hl ipl">%s</span> <span class="hl str">out of range!&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span><span class="hl str">&apos;comment&apos;</span><span class="hl opt">}));</span>
			     <span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">,</span> <span class="hl kwb">$i</span><span class="hl opt">);</span>
			 <span class="hl opt">}</span>
		     <span class="hl opt">}</span>
		 <span class="hl opt">}</span>
		 <span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl num">0</span><span class="hl opt">);</span>
	     <span class="hl opt">} );</span>
	<span class="hl slc"># Read out the user&apos;s choices</span>
	<span class="hl opt">&#64;{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>options<span class="hl opt">}} = ();</span>
	<span class="hl kwa">for</span> <span class="hl opt">(</span><span class="hl kwb">$i</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span> <span class="hl kwb">$i</span> <span class="hl opt">&lt;=</span> <span class="hl kwb">$#</span><span class="hl opt">{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}};</span> <span class="hl kwb">$i++</span><span class="hl opt">) {</span>
	    <span class="hl kwc">push</span><span class="hl opt">(&#64;{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>options<span class="hl opt">}},</span> <span class="hl str">&quot;-o&quot;</span><span class="hl opt">);</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span><span class="hl str">&apos;type&apos;</span><span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;enum&apos;</span><span class="hl opt">) {</span>
		<span class="hl slc"># enumerated option</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$j</span><span class="hl opt">;</span>
		<span class="hl kwa">for</span> <span class="hl opt">(</span><span class="hl kwb">$j</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span> <span class="hl kwb">$j</span> <span class="hl opt">&lt;=</span> <span class="hl kwb">$#</span><span class="hl opt">{</span><span class="hl kwb">$choicelists</span><span class="hl opt">[</span><span class="hl kwb">$i</span><span class="hl opt">]};</span> <span class="hl kwb">$j++</span><span class="hl opt">) {</span>
		    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$choicelists</span><span class="hl opt">[</span><span class="hl kwb">$i</span><span class="hl opt">][</span><span class="hl kwb">$j</span><span class="hl opt">]</span> <span class="hl kwc">eq</span> <span class="hl kwb">$userinputs</span><span class="hl opt">[</span><span class="hl kwb">$i</span><span class="hl opt">]) {</span>
			<span class="hl kwc">push</span><span class="hl opt">(&#64;{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>options<span class="hl opt">}},</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span><span class="hl str">&apos;name&apos;</span><span class="hl opt">} .</span> <span class="hl str">&quot;=&quot;</span><span class="hl opt">.</span> <span class="hl kwb">$shortchoicelists</span><span class="hl opt">[</span><span class="hl kwb">$i</span><span class="hl opt">][</span><span class="hl kwb">$j</span><span class="hl opt">]);</span>
		    <span class="hl opt">}</span>
		<span class="hl opt">}</span>
	    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span><span class="hl str">&apos;type&apos;</span><span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;bool&apos;</span><span class="hl opt">) {</span>
		<span class="hl slc"># boolean option</span>
		<span class="hl kwc">push</span><span class="hl opt">(&#64;{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>options<span class="hl opt">}},</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span><span class="hl str">&apos;name&apos;</span><span class="hl opt">} .</span> <span class="hl str">&quot;=&quot;</span><span class="hl opt">.</span>
		     <span class="hl opt">((</span><span class="hl kwb">$choicelists</span><span class="hl opt">[</span><span class="hl kwb">$i</span><span class="hl opt">][</span><span class="hl num">0</span><span class="hl opt">]</span> <span class="hl kwc">eq</span> <span class="hl kwb">$userinputs</span><span class="hl opt">[</span><span class="hl kwb">$i</span><span class="hl opt">])</span> ? <span class="hl str">&quot;1&quot;</span> <span class="hl opt">:</span> <span class="hl str">&quot;0&quot;</span><span class="hl opt">));</span>
	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		<span class="hl slc"># numerical option</span>
		<span class="hl kwc">push</span><span class="hl opt">(&#64;{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>options<span class="hl opt">}},</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span><span class="hl str">&apos;name&apos;</span><span class="hl opt">} .</span> <span class="hl str">&quot;=&quot;</span> <span class="hl opt">.</span> <span class="hl kwb">$userinputs</span><span class="hl opt">[</span><span class="hl kwb">$i</span><span class="hl opt">]);</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>
    <span class="hl num">1</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> setasdefault <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_help</span><span class="hl opt">(</span><span class="hl str">&apos;setupAsDefault&apos;</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl opt">$::</span>isInstall<span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">((</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DEFAULT<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">) ||</span> <span class="hl slc"># We have no default printer,</span>
	                               <span class="hl slc"># so set the current one as default</span>
	<span class="hl opt">(</span><span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_yesorno</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> _<span class="hl opt">(</span><span class="hl str">&quot;Do you want to set this printer (</span><span class="hl esc">\&quot;</span><span class="hl str"></span><span class="hl ipl">%s\</span><span class="hl str">&quot;</span><span class="hl opt">)</span><span class="hl esc">\n</span>as the <span class="hl kwa">default</span> printer?<span class="hl str">&quot;,</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{QUEUE}), 0))) { # Ask the user</span>
<span class="hl str"></span>	<span class="hl ipl">$printer</span><span class="hl str">-&gt;{DEFAULT} =</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{QUEUE};</span>
<span class="hl str">        printer::set_default_printer(</span><span class="hl ipl">$printer</span><span class="hl str">);</span>
<span class="hl str">    }</span>
<span class="hl str">}</span>
<span class="hl str">	</span>
<span class="hl str">sub print_testpages {</span>
<span class="hl str">    my (</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$in,</span> <span class="hl str"></span><span class="hl ipl">$upNetwork</span><span class="hl str">) =</span> <span class="hl ipl">&#64;_</span><span class="hl str">;</span>
<span class="hl str"></span>    <span class="hl ipl">$in</span><span class="hl str">-&gt;set_help(&apos;printTestPages&apos;) if $::isInstall;</span>
<span class="hl str">    # print test pages</span>
<span class="hl str">    my</span> <span class="hl ipl">$standard</span> <span class="hl str">= 1;</span>
<span class="hl str">    my</span> <span class="hl ipl">$altletter</span> <span class="hl str">= 0;</span>
<span class="hl str">    my</span> <span class="hl ipl">$alta4</span> <span class="hl str">= 0;</span>
<span class="hl str">    my</span> <span class="hl ipl">$photo</span> <span class="hl str">= 0;</span>
<span class="hl str">    my</span> <span class="hl ipl">$ascii</span> <span class="hl str">= 0;</span>
<span class="hl str">    my</span> <span class="hl ipl">$res2</span> <span class="hl str">= 0;</span>
<span class="hl str">    my</span> <span class="hl ipl">$res1</span> <span class="hl str">=</span> <span class="hl ipl">$in</span><span class="hl str">-&gt;ask_from_</span>
<span class="hl str">	({ title =&gt; _(&quot;</span>Test pages<span class="hl str">&quot;),</span>
<span class="hl str">	   messages =&gt; _(&quot;</span>Please <span class="hl kwc">select</span> the test pages you want to <span class="hl kwc">print</span><span class="hl opt">.</span>
Note<span class="hl opt">:</span> the photo test page can <span class="hl kwa">take</span> a rather long <span class="hl kwc">time</span> to get printed <span class="hl kwc">and</span> on laser printers with too low memory it can even <span class="hl kwc">not</span> come out<span class="hl opt">.</span> In most cases it <span class="hl kwa">is</span> enough to <span class="hl kwc">print</span> the standard test page<span class="hl opt">.</span><span class="hl str">&quot;),</span>
<span class="hl str">          cancel =&gt; ((!</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{NEW}) ?</span>
<span class="hl str">		     _(&quot;</span>Cancel<span class="hl str">&quot;) : ($::isWizard ? _(&quot;</span><span class="hl opt">&lt;-</span> Previous<span class="hl str">&quot;) : </span>
<span class="hl str">				    _(&quot;</span>No test pages<span class="hl str">&quot;))),</span>
<span class="hl str">          ok =&gt; ($::isWizard ? _(&quot;</span>Next <span class="hl opt">-&gt;</span><span class="hl str">&quot;) : _(&quot;</span>Print<span class="hl str">&quot;))},</span>
<span class="hl str">	 [</span>
<span class="hl str">	  { text =&gt; _(&quot;</span>Standard test page<span class="hl str">&quot;), type =&gt; &apos;bool&apos;,</span>
<span class="hl str">	    val =&gt; \</span><span class="hl ipl">$standard</span> <span class="hl str">},</span>
<span class="hl str">	  ($::expert ?</span>
<span class="hl str">	   { text =&gt; _(&quot;</span>Alternative test page <span class="hl opt">(</span>Letter<span class="hl opt">)</span><span class="hl str">&quot;), type =&gt; &apos;bool&apos;, </span>
<span class="hl str">	     val =&gt; \</span><span class="hl ipl">$altletter</span> <span class="hl str">} : ()),</span>
<span class="hl str">	  ($::expert ?</span>
<span class="hl str">	   { text =&gt; _(&quot;</span>Alternative test page <span class="hl opt">(</span>A4<span class="hl opt">)</span><span class="hl str">&quot;), type =&gt; &apos;bool&apos;, </span>
<span class="hl str">	     val =&gt; \</span><span class="hl ipl">$alta4</span> <span class="hl str">} : ()), </span>
<span class="hl str">	  { text =&gt; _(&quot;</span>Photo test page<span class="hl str">&quot;), type =&gt; &apos;bool&apos;, val =&gt; \</span><span class="hl ipl">$photo</span> <span class="hl str">},</span>
<span class="hl str">	  #{ text =&gt; _(&quot;</span>Plain text test page<span class="hl str">&quot;), type =&gt; &apos;bool&apos;,</span>
<span class="hl str">	  #  val =&gt; \</span><span class="hl ipl">$ascii</span> <span class="hl str">}</span>
<span class="hl str">	  ($::isWizard ?</span>
<span class="hl str">	   { text =&gt; _(&quot;</span>Do <span class="hl kwc">not print</span> any test page<span class="hl str">&quot;), type =&gt; &apos;bool&apos;, </span>
<span class="hl str">	     val =&gt; \</span><span class="hl ipl">$res2</span> <span class="hl str">} : ())</span>
<span class="hl str">	  ]);</span>
<span class="hl str"></span>    <span class="hl ipl">$res2</span> <span class="hl str">= 1 if (!(</span><span class="hl ipl">$standard</span> <span class="hl str">||</span> <span class="hl ipl">$altletter</span> <span class="hl str">||</span> <span class="hl ipl">$alta4</span> <span class="hl str">||</span> <span class="hl ipl">$photo</span> <span class="hl str">||</span>
<span class="hl str"></span>		    <span class="hl ipl">$ascii</span><span class="hl str">));</span>
<span class="hl str">    if (</span><span class="hl ipl">$res1</span> <span class="hl str">&amp;&amp; !</span><span class="hl ipl">$res2</span><span class="hl str">) {</span>
<span class="hl str">	my</span> <span class="hl ipl">&#64;lpq_output</span><span class="hl str">;</span>
<span class="hl str">	{</span>
<span class="hl str">	    my</span> <span class="hl ipl">$w</span> <span class="hl str">=</span> <span class="hl ipl">$in</span><span class="hl str">-&gt;wait_message(&apos;&apos;, _(&quot;</span>Printing test page<span class="hl opt">(</span>s<span class="hl opt">)...</span><span class="hl str">&quot;));</span>
<span class="hl str">	    </span>
<span class="hl str"></span>	    <span class="hl ipl">$upNetwork</span> <span class="hl str">and do { &amp;</span><span class="hl ipl">$upNetwork</span><span class="hl str">(); undef</span> <span class="hl ipl">$upNetwork</span><span class="hl str">; sleep(1) };</span>
<span class="hl str">	    my</span> <span class="hl ipl">$stdtestpage</span> <span class="hl str">= &quot;</span><span class="hl kwd">/usr/s</span>hare<span class="hl kwd">/printer-testpages/</span>testprint<span class="hl opt">.</span>ps<span class="hl str">&quot;;</span>
<span class="hl str">	    my</span> <span class="hl ipl">$altlttestpage</span> <span class="hl str">= &quot;</span><span class="hl kwd">/usr/s</span>hare<span class="hl kwd">/printer-testpages/</span>testpage<span class="hl opt">.</span>ps<span class="hl str">&quot;;</span>
<span class="hl str">	    my</span> <span class="hl ipl">$alta4testpage</span> <span class="hl str">= &quot;</span><span class="hl kwd">/usr/s</span>hare<span class="hl kwd">/printer-testpages/</span>testpage-a4<span class="hl opt">.</span>ps<span class="hl str">&quot;;</span>
<span class="hl str">	    my</span> <span class="hl ipl">$phototestpage</span> <span class="hl str">= &quot;</span><span class="hl kwd">/usr/s</span>hare<span class="hl kwd">/printer-testpages/p</span>hoto<span class="hl opt">-</span>testpage<span class="hl opt">.</span>jpg<span class="hl str">&quot;;</span>
<span class="hl str">	    my</span> <span class="hl ipl">$asciitestpage</span> <span class="hl str">= &quot;</span><span class="hl kwd">/usr/s</span>hare<span class="hl kwd">/printer-testpages/</span>testpage<span class="hl opt">.</span>asc<span class="hl str">&quot;;</span>
<span class="hl str">	    my</span> <span class="hl ipl">&#64;testpages</span><span class="hl str">;</span>
<span class="hl str">	    # Install the filter to convert the photo test page to PS</span>
<span class="hl str">	    if ((</span><span class="hl ipl">$photo</span><span class="hl str">) &amp;&amp; (!$::testing) &amp;&amp;</span>
<span class="hl str">		(!printer::files_exist((qw(/usr/bin/convert)</span><span class="hl opt">)))) {</span>
		<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">do_pkgs</span><span class="hl opt">-&gt;</span><span class="hl kwd">install</span><span class="hl opt">(</span><span class="hl str">&apos;ImageMagick&apos;</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span>
	    <span class="hl slc"># set up list of pages to print</span>
	    <span class="hl kwb">$standard</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwc">push</span> <span class="hl opt">(</span><span class="hl kwb">&#64;testpages, $stdtestpage</span><span class="hl opt">);</span>
	    <span class="hl kwb">$altletter</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwc">push</span> <span class="hl opt">(</span><span class="hl kwb">&#64;testpages, $altlttestpage</span><span class="hl opt">);</span>
	    <span class="hl kwb">$alta4</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwc">push</span> <span class="hl opt">(</span><span class="hl kwb">&#64;testpages, $alta4testpage</span><span class="hl opt">);</span>
	    <span class="hl kwb">$photo</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwc">push</span> <span class="hl opt">(</span><span class="hl kwb">&#64;testpages, $phototestpage</span><span class="hl opt">);</span>
	    <span class="hl kwb">$ascii</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwc">push</span> <span class="hl opt">(</span><span class="hl kwb">&#64;testpages, $asciitestpage</span><span class="hl opt">);</span>
	    <span class="hl slc"># print the stuff</span>
	    <span class="hl kwb">&#64;lpq_output</span> <span class="hl opt">=</span> printer<span class="hl opt">::</span>print_pages<span class="hl opt">(</span><span class="hl kwb">$printer, &#64;testpages</span><span class="hl opt">);</span>
	<span class="hl opt">}</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$dialogtext</span><span class="hl opt">;</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">&#64;lpq_output</span><span class="hl opt">) {</span>
	    <span class="hl kwb">$dialogtext</span> <span class="hl opt">=</span> _<span class="hl opt">(</span><span class="hl str">&quot;Test page(s) have been sent to the printer.</span>
<span class="hl str">It may take some time before the printer starts.</span>
<span class="hl str">Printing status:</span><span class="hl esc">\n</span><span class="hl str"></span><span class="hl ipl">%s\n\n</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">&#64;lpq_output</span><span class="hl opt">);</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl kwb">$dialogtext</span> <span class="hl opt">=</span> _<span class="hl opt">(</span><span class="hl str">&quot;Test page(s) have been sent to the printer.</span>
<span class="hl str">It may take some time before the printer starts.</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
	<span class="hl opt">}</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>NEW<span class="hl opt">} ==</span> <span class="hl num">0</span><span class="hl opt">) {</span>
	    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span><span class="hl kwb">$dialogtext</span><span class="hl opt">);</span>
	    <span class="hl kwa">return</span> <span class="hl num">1</span><span class="hl opt">;</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_yesorno</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span><span class="hl kwb">$dialogtext</span> <span class="hl opt">.</span> _<span class="hl opt">(</span><span class="hl str">&quot;Did it work properly?&quot;</span><span class="hl opt">),</span> <span class="hl num">1</span><span class="hl opt">)</span> 
		<span class="hl kwc">and</span> <span class="hl kwa">return</span> <span class="hl num">1</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl kwa">return</span> <span class="hl opt">($::</span>isWizard ? <span class="hl kwb">$res1</span> <span class="hl opt">:</span> <span class="hl num">1</span><span class="hl opt">) ;</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">return</span> <span class="hl num">2</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> printer_help <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$spooler</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">};</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$queue</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>QUEUE<span class="hl opt">};</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$default</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DEFAULT<span class="hl opt">};</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$raw</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$cupsremote</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$scanning</span> <span class="hl opt">=</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">}) {</span>
	<span class="hl kwa">if</span> <span class="hl opt">((</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">}{</span><span class="hl str">&apos;queuedata&apos;</span><span class="hl opt">}{</span><span class="hl str">&apos;model&apos;</span><span class="hl opt">}</span> <span class="hl kwc">eq</span>
	     _<span class="hl opt">(</span><span class="hl str">&quot;Unknown model&quot;</span><span class="hl opt">)) ||</span>
	    <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">}{</span><span class="hl str">&apos;queuedata&apos;</span><span class="hl opt">}{</span><span class="hl str">&apos;model&apos;</span><span class="hl opt">}</span> <span class="hl kwc">eq</span>
	     _<span class="hl opt">(</span><span class="hl str">&quot;Raw printer&quot;</span><span class="hl opt">))) {</span>
	    <span class="hl kwb">$raw</span> <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
	<span class="hl slc"># Information about scanning with HP&apos;s multi-function devices</span>
	<span class="hl kwb">$scanning</span> <span class="hl opt">=</span> scanner_help
	    <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">}{</span><span class="hl str">&apos;queuedata&apos;</span><span class="hl opt">}{</span><span class="hl str">&apos;make&apos;</span><span class="hl opt">} .</span> <span class="hl str">&quot; &quot;</span> <span class="hl opt">.</span>
	     <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">}{</span><span class="hl str">&apos;queuedata&apos;</span><span class="hl opt">}{</span><span class="hl str">&apos;model&apos;</span><span class="hl opt">},</span> 
	     <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">}{</span><span class="hl str">&apos;queuedata&apos;</span><span class="hl opt">}{</span><span class="hl str">&apos;connect&apos;</span><span class="hl opt">});</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$scanning</span><span class="hl opt">) {</span>
	    <span class="hl kwb">$scanning</span> <span class="hl opt">=</span> <span class="hl str">&quot;</span><span class="hl esc">\n\n</span><span class="hl str"></span><span class="hl ipl">$scanning\n\n</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl kwb">$cupsremote</span> <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$dialogtext</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$spooler</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;cups&quot;</span><span class="hl opt">) {</span>
	<span class="hl kwb">$dialogtext</span> <span class="hl opt">=</span>
_<span class="hl opt">(</span><span class="hl str">&quot;To print a file from the command line (terminal window) you can either use the command</span> <span class="hl esc">\&quot;</span><span class="hl str"></span><span class="hl ipl">%s</span> <span class="hl str">&lt;file&gt;</span><span class="hl esc">\&quot;</span> <span class="hl str">or a graphical printing tool:</span> <span class="hl esc">\&quot;</span><span class="hl str">xpp &lt;file&gt;</span><span class="hl esc">\&quot;</span> <span class="hl str">or</span> <span class="hl esc">\&quot;</span><span class="hl str">kprinter &lt;file&gt;</span><span class="hl esc">\&quot;</span><span class="hl str">. The graphical tools allow you to choose the printer and to modify the option settings easily.</span>
<span class="hl str">&quot;</span><span class="hl opt">, (</span><span class="hl kwb">$queue</span> <span class="hl kwc">ne</span> <span class="hl kwb">$default</span> ? <span class="hl str">&quot;lpr -P</span> <span class="hl ipl">$queue</span><span class="hl str">&quot;</span> <span class="hl opt">:</span> <span class="hl str">&quot;lpr&quot;</span><span class="hl opt">)) .</span>
_<span class="hl opt">(</span><span class="hl str">&quot;These commands you can also use in the</span> <span class="hl esc">\&quot;</span><span class="hl str">Printing command</span><span class="hl esc">\&quot;</span> <span class="hl str">field of the printing dialogs of many applications, but here do not supply the file name because the file to print is provided by the application.</span>
<span class="hl str">&quot;</span><span class="hl opt">) .</span>
<span class="hl opt">(!</span><span class="hl kwb">$raw</span> ?
_<span class="hl opt">(</span><span class="hl str">&quot;</span>
<span class="hl str">The</span> <span class="hl esc">\&quot;</span><span class="hl str"></span><span class="hl ipl">%s\</span><span class="hl str">&quot;</span> command also allows to modify the option settings <span class="hl kwa">for</span> a particular printing job<span class="hl opt">.</span> Simply add the desired settings to the command line<span class="hl opt">,</span> e<span class="hl opt">.</span> g<span class="hl opt">.</span> <span class="hl esc">\&quot;</span><span class="hl kwb">%s</span> <span class="hl opt">&lt;</span>file<span class="hl opt">&gt;</span><span class="hl esc">\&quot;</span><span class="hl opt">.</span> <span class="hl str">&quot;, &quot;</span>lpr<span class="hl str">&quot;, (</span><span class="hl ipl">$queue</span> <span class="hl str">ne</span> <span class="hl ipl">$default</span> <span class="hl str">? &quot;</span>lpr <span class="hl opt">-</span>P <span class="hl kwb">$queue</span> <span class="hl opt">-</span>o option<span class="hl opt">=</span>setting <span class="hl opt">-</span>o switch<span class="hl str">&quot; : &quot;</span>lpr <span class="hl opt">-</span>o option<span class="hl opt">=</span>setting <span class="hl opt">-</span>o switch<span class="hl str">&quot;)) .</span>
<span class="hl str">(!</span><span class="hl ipl">$cupsremote</span> <span class="hl str">?</span>
<span class="hl str"> _(&quot;</span>To know about the options available <span class="hl kwa">for</span> the current printer <span class="hl kwc">read</span> either the list shown below <span class="hl kwc">or</span> click on the <span class="hl esc">\&quot;</span>Print option list<span class="hl esc">\&quot;</span> button<span class="hl opt">.</span><span class="hl kwb">%s</span>

<span class="hl str">&quot;,</span> <span class="hl ipl">$scanning</span><span class="hl str">) . printer::lphelp_output(</span><span class="hl ipl">$printer</span><span class="hl str">) :</span> <span class="hl ipl">$scanning</span> <span class="hl str">.</span>
<span class="hl str"> _(&quot;</span>Here <span class="hl kwa">is</span> a list of the available printing options <span class="hl kwa">for</span> the current printer<span class="hl opt">:</span>

<span class="hl str">&quot;) . printer::lphelp_output(</span><span class="hl ipl">$printer</span><span class="hl str">)) :</span> <span class="hl ipl">$scanning</span><span class="hl str">);</span>
<span class="hl str">    } elsif (</span><span class="hl ipl">$spooler</span> <span class="hl str">eq &quot;</span>lprng<span class="hl str">&quot;) {</span>
<span class="hl str"></span>	<span class="hl ipl">$dialogtext</span> <span class="hl str">=</span>
<span class="hl str">_(&quot;</span>To <span class="hl kwc">print</span> a file from the command line <span class="hl opt">(</span>terminal window<span class="hl opt">)</span> <span class="hl kwa">use</span> the command <span class="hl esc">\&quot;</span><span class="hl kwb">%s</span> <span class="hl opt">&lt;</span>file<span class="hl opt">&gt;</span><span class="hl esc">\&quot;</span><span class="hl opt">.</span>
<span class="hl str">&quot;, (</span><span class="hl ipl">$queue</span> <span class="hl str">ne</span> <span class="hl ipl">$default</span> <span class="hl str">? &quot;</span>lpr <span class="hl opt">-</span>P <span class="hl kwb">$queue</span><span class="hl str">&quot; : &quot;</span>lpr<span class="hl str">&quot;)) . </span>
<span class="hl str">_(&quot;</span>This command you can also <span class="hl kwa">use in</span> the <span class="hl esc">\&quot;</span>Printing command<span class="hl esc">\&quot;</span> field of the printing dialogs of many applications<span class="hl opt">.</span> But here <span class="hl kwa">do</span> <span class="hl kwc">not</span> supply the file name because the file to <span class="hl kwc">print</span> <span class="hl kwa">is</span> provided by the application<span class="hl opt">.</span>
<span class="hl str">&quot;) .</span>
<span class="hl str">(!</span><span class="hl ipl">$raw</span> <span class="hl str">?</span>
<span class="hl str">_(&quot;</span>
The <span class="hl esc">\&quot;</span><span class="hl kwb">%s\</span><span class="hl str">&quot; command also allows to modify the option settings for a particular printing job. Simply add the desired settings to the command line, e. g.</span> <span class="hl esc">\&quot;</span><span class="hl str"></span><span class="hl ipl">%s</span> <span class="hl str">&lt;file&gt;</span><span class="hl esc">\&quot;</span><span class="hl str">. &quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;lpr&quot;</span><span class="hl opt">, (</span><span class="hl kwb">$queue</span> <span class="hl kwc">ne</span> <span class="hl kwb">$default</span> ? <span class="hl str">&quot;lpr -P</span> <span class="hl ipl">$queue</span> <span class="hl str">-Z option=setting -Z switch&quot;</span> <span class="hl opt">:</span> <span class="hl str">&quot;lpr -Z option=setting -Z switch&quot;</span><span class="hl opt">)) .</span>
_<span class="hl opt">(</span><span class="hl str">&quot;To get a list of the options available for the current printer click on the</span> <span class="hl esc">\&quot;</span><span class="hl str">Print option list</span><span class="hl esc">\&quot;</span> <span class="hl str">button.&quot;</span> <span class="hl opt">.</span> <span class="hl kwb">$scanning</span><span class="hl opt">) :</span> <span class="hl kwb">$scanning</span><span class="hl opt">);</span>
    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$spooler</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;lpd&quot;</span><span class="hl opt">) {</span>
	<span class="hl kwb">$dialogtext</span> <span class="hl opt">=</span>
_<span class="hl opt">(</span><span class="hl str">&quot;To print a file from the command line (terminal window) use the command</span> <span class="hl esc">\&quot;</span><span class="hl str"></span><span class="hl ipl">%s</span> <span class="hl str">&lt;file&gt;</span><span class="hl esc">\&quot;</span><span class="hl str">.</span>
<span class="hl str">&quot;</span><span class="hl opt">, (</span><span class="hl kwb">$queue</span> <span class="hl kwc">ne</span> <span class="hl kwb">$default</span> ? <span class="hl str">&quot;lpr -P</span> <span class="hl ipl">$queue</span><span class="hl str">&quot;</span> <span class="hl opt">:</span> <span class="hl str">&quot;lpr&quot;</span><span class="hl opt">)) .</span>
_<span class="hl opt">(</span><span class="hl str">&quot;This command you can also use in the</span> <span class="hl esc">\&quot;</span><span class="hl str">Printing command</span><span class="hl esc">\&quot;</span> <span class="hl str">field of the printing dialogs of many applications. But here do not supply the file name because the file to print is provided by the application.</span>
<span class="hl str">&quot;</span><span class="hl opt">) .</span>
<span class="hl opt">(!</span><span class="hl kwb">$raw</span> ?
_<span class="hl opt">(</span><span class="hl str">&quot;</span>
<span class="hl str">The</span> <span class="hl esc">\&quot;</span><span class="hl str"></span><span class="hl ipl">%s\</span><span class="hl str">&quot;</span> command also allows to modify the option settings <span class="hl kwa">for</span> a particular printing job<span class="hl opt">.</span> Simply add the desired settings to the command line<span class="hl opt">,</span> e<span class="hl opt">.</span> g<span class="hl opt">.</span> <span class="hl esc">\&quot;</span><span class="hl kwb">%s</span> <span class="hl opt">&lt;</span>file<span class="hl opt">&gt;</span><span class="hl esc">\&quot;</span><span class="hl opt">.</span> <span class="hl str">&quot;, &quot;</span>lpr<span class="hl str">&quot;, (</span><span class="hl ipl">$queue</span> <span class="hl str">ne</span> <span class="hl ipl">$default</span> <span class="hl str">? &quot;</span>lpr <span class="hl opt">-</span>P <span class="hl kwb">$queue</span> <span class="hl opt">-</span>o option<span class="hl opt">=</span>setting <span class="hl opt">-</span>o switch<span class="hl str">&quot; : &quot;</span>lpr <span class="hl opt">-</span>o option<span class="hl opt">=</span>setting <span class="hl opt">-</span>o switch<span class="hl str">&quot;)) .</span>
<span class="hl str">_(&quot;</span>To get a list of the options available <span class="hl kwa">for</span> the current printer click on the <span class="hl esc">\&quot;</span>Print option list<span class="hl esc">\&quot;</span> button<span class="hl opt">.</span><span class="hl str">&quot; .</span> <span class="hl ipl">$scanning</span><span class="hl str">) :</span> <span class="hl ipl">$scanning</span><span class="hl str">);</span>
<span class="hl str">    } elsif (</span><span class="hl ipl">$spooler</span> <span class="hl str">eq &quot;</span>pdq<span class="hl str">&quot;) {</span>
<span class="hl str"></span>	<span class="hl ipl">$dialogtext</span> <span class="hl str">=</span>
<span class="hl str">_(&quot;</span>To <span class="hl kwc">print</span> a file from the command line <span class="hl opt">(</span>terminal window<span class="hl opt">)</span> <span class="hl kwa">use</span> the command <span class="hl esc">\&quot;</span><span class="hl kwb">%s</span> <span class="hl opt">&lt;</span>file<span class="hl opt">&gt;</span><span class="hl esc">\&quot;</span> <span class="hl kwc">or</span> <span class="hl esc">\&quot;</span><span class="hl kwb">%s</span> <span class="hl opt">&lt;</span>file<span class="hl opt">&gt;</span><span class="hl esc">\&quot;</span><span class="hl opt">.</span>
<span class="hl str">&quot;, (</span><span class="hl ipl">$queue</span> <span class="hl str">ne</span> <span class="hl ipl">$default</span> <span class="hl str">? &quot;</span>pdq <span class="hl opt">-</span>P <span class="hl kwb">$queue</span><span class="hl str">&quot; : &quot;</span>pdq<span class="hl str">&quot;), (</span><span class="hl ipl">$queue</span> <span class="hl str">ne</span> <span class="hl ipl">$default</span> <span class="hl str">? &quot;</span>lpr <span class="hl opt">-</span>P <span class="hl kwb">$queue</span><span class="hl str">&quot; : &quot;</span>lpr<span class="hl str">&quot;)) .</span>
<span class="hl str">_(&quot;</span>This command you can also <span class="hl kwa">use in</span> the <span class="hl esc">\&quot;</span>Printing command<span class="hl esc">\&quot;</span> field of the printing dialogs of many applications<span class="hl opt">.</span> But here <span class="hl kwa">do</span> <span class="hl kwc">not</span> supply the file name because the file to <span class="hl kwc">print</span> <span class="hl kwa">is</span> provided by the application<span class="hl opt">.</span>
<span class="hl str">&quot;) .</span>
<span class="hl str">_(&quot;</span>You can also <span class="hl kwa">use</span> the graphical interface <span class="hl esc">\&quot;</span>xpdq<span class="hl esc">\&quot;</span> <span class="hl kwa">for</span> setting options <span class="hl kwc">and</span> handling printing jobs<span class="hl opt">.</span>
If you are using KDE as desktop environment you have a <span class="hl esc">\&quot;</span>panic button<span class="hl esc">\&quot;</span><span class="hl opt">,</span> an icon on the desktop<span class="hl opt">,</span> labeled with <span class="hl esc">\&quot;</span>STOP Printer<span class="hl opt">!</span><span class="hl esc">\&quot;</span><span class="hl opt">,</span> which stops all <span class="hl kwc">print</span> jobs immediately <span class="hl kwa">when</span> you click it<span class="hl opt">.</span> This <span class="hl kwa">is for</span> example useful <span class="hl kwa">for</span> paper jams<span class="hl opt">.</span>
<span class="hl str">&quot;) .</span>
<span class="hl str">(!</span><span class="hl ipl">$raw</span> <span class="hl str">?</span>
<span class="hl str">_(&quot;</span>
The <span class="hl esc">\&quot;</span><span class="hl kwb">%s\</span><span class="hl str">&quot; and</span> <span class="hl esc">\&quot;</span><span class="hl str"></span><span class="hl ipl">%s\</span><span class="hl str">&quot;</span> commands also allow to modify the option settings <span class="hl kwa">for</span> a particular printing job<span class="hl opt">.</span> Simply add the desired settings to the command line<span class="hl opt">,</span> e<span class="hl opt">.</span> g<span class="hl opt">.</span> <span class="hl esc">\&quot;</span><span class="hl kwb">%s</span> <span class="hl opt">&lt;</span>file<span class="hl opt">&gt;</span><span class="hl esc">\&quot;</span><span class="hl opt">.</span>
<span class="hl str">&quot;, &quot;</span>pdq<span class="hl str">&quot;, &quot;</span>lpr<span class="hl str">&quot;, (</span><span class="hl ipl">$queue</span> <span class="hl str">ne</span> <span class="hl ipl">$default</span> <span class="hl str">? &quot;</span>pdq <span class="hl opt">-</span>P <span class="hl kwb">$queue</span> <span class="hl opt">-</span>aoption<span class="hl opt">=</span>setting <span class="hl opt">-</span>oswitch<span class="hl str">&quot; : &quot;</span>pdq <span class="hl opt">-</span>aoption<span class="hl opt">=</span>setting <span class="hl opt">-</span>oswitch<span class="hl str">&quot;)) .</span>
<span class="hl str">_(&quot;</span>To know about the options available <span class="hl kwa">for</span> the current printer <span class="hl kwc">read</span> either the list shown below <span class="hl kwc">or</span> click on the <span class="hl esc">\&quot;</span>Print option list<span class="hl esc">\&quot;</span> button<span class="hl opt">.</span><span class="hl kwb">%s</span>

<span class="hl str">&quot;,</span> <span class="hl ipl">$scanning</span><span class="hl str">) . printer::pdqhelp_output(</span><span class="hl ipl">$printer</span><span class="hl str">) :</span> <span class="hl ipl">$scanning</span><span class="hl str">);</span>
<span class="hl str">    }</span>
<span class="hl str">    if (!</span><span class="hl ipl">$raw</span> <span class="hl str">&amp;&amp; !</span><span class="hl ipl">$cupsremote</span><span class="hl str">) {</span>
<span class="hl str">        my</span> <span class="hl ipl">$choice</span><span class="hl str">;</span>
<span class="hl str">        while (</span><span class="hl ipl">$choice</span> <span class="hl str">ne _(&quot;</span>Close<span class="hl str">&quot;)) {</span>
<span class="hl str"></span>	    <span class="hl ipl">$choice</span> <span class="hl str">=</span> <span class="hl ipl">$in</span><span class="hl str">-&gt;ask_from_list_</span>
<span class="hl str">	        ((</span><span class="hl ipl">$scanning</span> <span class="hl str">?</span>
<span class="hl str">		  _(&quot;</span>Printing<span class="hl opt">/</span>Scanning on <span class="hl esc">\&quot;</span><span class="hl kwb">%s\</span><span class="hl str">&quot;&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$queue</span><span class="hl opt">) :</span>
		  _<span class="hl opt">(</span><span class="hl str">&quot;Printing on the printer</span> <span class="hl esc">\&quot;</span><span class="hl str"></span><span class="hl ipl">%s\</span><span class="hl str">&quot;</span><span class="hl str">&quot;,</span> <span class="hl ipl">$queue</span><span class="hl str">)),</span>
<span class="hl str"></span>		 <span class="hl ipl">$dialogtext,</span>
<span class="hl str">		 [ _(&quot;</span>Print option list<span class="hl str">&quot;), _(&quot;</span>Close<span class="hl str">&quot;) ],</span>
<span class="hl str">		 _(&quot;</span>Close<span class="hl str">&quot;));</span>
<span class="hl str">	    if (</span><span class="hl ipl">$choice</span> <span class="hl str">ne _(&quot;</span>Close<span class="hl str">&quot;)) {</span>
<span class="hl str">		my</span> <span class="hl ipl">$w</span> <span class="hl str">=</span> <span class="hl ipl">$in</span><span class="hl str">-&gt;wait_message(&apos;&apos;, _(&quot;</span>Printing test page<span class="hl opt">(</span>s<span class="hl opt">)...</span><span class="hl str">&quot;));</span>
<span class="hl str">	        printer::print_optionlist(</span><span class="hl ipl">$printer</span><span class="hl str">);</span>
<span class="hl str">	    }</span>
<span class="hl str">	}</span>
<span class="hl str">    } else {</span>
<span class="hl str"></span>	<span class="hl ipl">$in</span><span class="hl str">-&gt;ask_warn((</span><span class="hl ipl">$scanning</span> <span class="hl str">?</span>
<span class="hl str">		       _(&quot;</span>Printing<span class="hl opt">/</span>Scanning on <span class="hl esc">\&quot;</span><span class="hl kwb">%s\</span><span class="hl str">&quot;&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$queue</span><span class="hl opt">) :</span>
		       _<span class="hl opt">(</span><span class="hl str">&quot;Printing on the printer</span> <span class="hl esc">\&quot;</span><span class="hl str"></span><span class="hl ipl">%s\</span><span class="hl str">&quot;</span><span class="hl str">&quot;,</span> <span class="hl ipl">$queue</span><span class="hl str">)), </span>
<span class="hl str"></span>		      <span class="hl ipl">$dialogtext</span><span class="hl str">);</span>
<span class="hl str">    }</span>
<span class="hl str">}</span>
<span class="hl str"></span>
<span class="hl str">sub scanner_help {</span>
<span class="hl str">    my (</span><span class="hl ipl">$makemodel,</span> <span class="hl str"></span><span class="hl ipl">$deviceuri</span><span class="hl str">) =</span> <span class="hl ipl">&#64;_</span><span class="hl str">;</span>
<span class="hl str">    if (</span><span class="hl ipl">$deviceuri</span> <span class="hl str">=~ m!^ptal:/(.*)$!) {</span>
<span class="hl str">	my</span> <span class="hl ipl">$ptaldevice</span> <span class="hl str">=</span> <span class="hl ipl">$1</span><span class="hl str">;</span>
<span class="hl str">	if ((</span><span class="hl ipl">$makemodel</span> <span class="hl str">=~ /HP\s+OfficeJet\s+[KVRGP]/i) ||</span>
<span class="hl str">	    (</span><span class="hl ipl">$makemodel</span> <span class="hl str">=~ /HP\s+PSC\s+[579]/i)) {</span>
<span class="hl str">	    # SANE-driven models</span>
<span class="hl str">	    return _(&quot;</span>Your HP multi-function device was configured automatically to be able to scan<span class="hl opt">.</span> Now you can scan with <span class="hl esc">\&quot;</span>scanimage<span class="hl esc">\&quot;</span> <span class="hl opt">(</span><span class="hl esc">\&quot;</span>scanimage <span class="hl opt">-</span>d hp<span class="hl opt">:</span><span class="hl kwb">%s\</span><span class="hl str">&quot; to specify the scanner when you have more than one) from the command line or with the graphical interfaces</span> <span class="hl esc">\&quot;</span><span class="hl str">xscanimage</span><span class="hl esc">\&quot;</span> <span class="hl str">or</span> <span class="hl esc">\&quot;</span><span class="hl str">xsane</span><span class="hl esc">\&quot;</span><span class="hl str">. If you are using the GIMP, you can also scan by choosing the appropriate point in the</span> <span class="hl esc">\&quot;</span><span class="hl str">File</span><span class="hl esc">\&quot;</span><span class="hl str">/</span><span class="hl esc">\&quot;</span><span class="hl str">Acquire</span><span class="hl esc">\&quot;</span> <span class="hl str">menu. Call also</span> <span class="hl esc">\&quot;</span><span class="hl str">man scanimage</span><span class="hl esc">\&quot;</span> <span class="hl str">and</span> <span class="hl esc">\&quot;</span><span class="hl str">man sane-hp</span><span class="hl esc">\&quot;</span> <span class="hl str">on the command line to get more information.</span>
<span class="hl str"></span>
<span class="hl str">Do not use</span> <span class="hl esc">\&quot;</span><span class="hl str">scannerdrake</span><span class="hl esc">\&quot;</span> <span class="hl str">for this device!&quot;</span><span class="hl opt">,</span>
		     <span class="hl kwb">$ptaldevice</span><span class="hl opt">);</span>
	<span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$makemodel</span> <span class="hl opt">!~</span> <span class="hl kwd">/HP\s+PhotoSmart/i</span><span class="hl opt">) {</span>
	    <span class="hl slc"># &quot;ptal-hp&quot;-driven models</span>
	    <span class="hl kwa">return</span> _<span class="hl opt">(</span><span class="hl str">&quot;Your HP multi-function device was configured automatically to be able to scan. Now you can scan from the command line with</span> <span class="hl esc">\&quot;</span><span class="hl str">ptal-hp</span> <span class="hl ipl">%s</span> <span class="hl str">scan ...</span><span class="hl esc">\&quot;</span><span class="hl str">. Scanning via a graphical interface or from the GIMP is not supported yet for your device. More information you will find in the</span> <span class="hl esc">\&quot;</span><span class="hl str">/usr/share/doc/hpoj-0.8/ptal-hp-scan.html</span><span class="hl esc">\&quot;</span> <span class="hl str">file on your system. If you have an HP LaserJet 1100 or 1200 you can only scan when you have the scanner option installed.</span>
<span class="hl str"></span>
<span class="hl str">Do not use</span> <span class="hl esc">\&quot;</span><span class="hl str">scannerdrake</span><span class="hl esc">\&quot;</span> <span class="hl str">for this device!&quot;</span><span class="hl opt">,</span>
		     <span class="hl kwb">$ptaldevice</span><span class="hl opt">);</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl kwa">return</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> copy_queues_from <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in, $oldspooler</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_help</span><span class="hl opt">(</span><span class="hl str">&apos;copyQueues&apos;</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl opt">$::</span>isInstall<span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$newspooler</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">};</span>
    <span class="hl kwc">my</span> <span class="hl kwb">&#64;oldqueues</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">&#64;queueentries</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">&#64;queuesselected</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$newspoolerstr</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$oldspoolerstr</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$noninteractive</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
    <span class="hl opt">{</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$w</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> _<span class="hl opt">(</span><span class="hl str">&quot;Reading printer data ...&quot;</span><span class="hl opt">));</span>
	<span class="hl kwb">&#64;oldqueues</span> <span class="hl opt">=</span> printer<span class="hl opt">::</span>get_copiable_queues<span class="hl opt">(</span><span class="hl kwb">$oldspooler, $newspooler</span><span class="hl opt">);</span>
	<span class="hl kwb">&#64;oldqueues</span> <span class="hl opt">=</span> <span class="hl kwc">sort</span><span class="hl opt">(</span><span class="hl kwb">&#64;oldqueues</span><span class="hl opt">);</span>
	<span class="hl kwb">$newspoolerstr</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">::</span>shortspooler_inv<span class="hl opt">{</span><span class="hl kwb">$newspooler</span><span class="hl opt">};</span>
	<span class="hl kwb">$oldspoolerstr</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">::</span>shortspooler_inv<span class="hl opt">{</span><span class="hl kwb">$oldspooler</span><span class="hl opt">};</span>
	<span class="hl kwa">for</span> <span class="hl opt">(</span><span class="hl kwb">&#64;oldqueues</span><span class="hl opt">) {</span>
	    <span class="hl kwc">push</span> <span class="hl opt">(</span><span class="hl kwb">&#64;queuesselected,</span> <span class="hl num">1</span><span class="hl opt">);</span>
	    <span class="hl kwc">push</span> <span class="hl opt">(</span><span class="hl kwb">&#64;queueentries,</span> <span class="hl opt">{</span> text <span class="hl opt">=&gt;</span> <span class="hl kwb">$_,</span> type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;bool&apos;</span><span class="hl opt">,</span> 
				   val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$queuesselected</span><span class="hl opt">[</span><span class="hl kwb">$#queuesselected</span><span class="hl opt">] });</span>
	<span class="hl opt">}</span>
	<span class="hl slc"># LPRng and LPD use the same config files, therefore one sees the </span>
	<span class="hl slc"># queues of LPD when one uses LPRng and vice versa, but these queues</span>
	<span class="hl slc"># do not work. So automatically transfer all queues when switching</span>
	<span class="hl slc"># between LPD and LPRng.</span>
	<span class="hl kwa">if</span> <span class="hl opt">((</span><span class="hl kwb">$oldspooler</span> <span class="hl opt">=~</span> <span class="hl kwd">/^lp/</span><span class="hl opt">) &amp;&amp; (</span><span class="hl kwb">$newspooler</span> <span class="hl opt">=~</span> <span class="hl kwd">/^lp/</span><span class="hl opt">)) {</span>
	    <span class="hl kwb">$noninteractive</span> <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$noninteractive</span> <span class="hl opt">||</span>
	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_</span>
	<span class="hl opt">({</span> title <span class="hl opt">=&gt;</span> _<span class="hl opt">(</span><span class="hl str">&quot;Transfer printer configuration&quot;</span><span class="hl opt">),</span>
	   messages <span class="hl opt">=&gt;</span> _<span class="hl opt">(</span><span class="hl str">&quot;You can copy the printer configuration which you have done for the spooler</span> <span class="hl ipl">%s</span> <span class="hl str">to</span> <span class="hl ipl">%s,</span> <span class="hl str">your current spooler. All the configuration data (printer name, description, location, connection type, and default option settings) is overtaken, but jobs will not be transferred.</span>
<span class="hl str">Not all queues can be transferred due to the following reasons:</span>
<span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$oldspoolerstr, $newspoolerstr</span><span class="hl opt">) .</span>
<span class="hl opt">(</span><span class="hl kwb">$newspooler</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;cups&quot;</span> ? _<span class="hl opt">(</span><span class="hl str">&quot;CUPS does not support printers on Novell servers or printers sending the data into a free-formed command.</span>
<span class="hl str">&quot;</span><span class="hl opt">) :</span>
 <span class="hl opt">(</span><span class="hl kwb">$newspooler</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;pdq&quot;</span> ? _<span class="hl opt">(</span><span class="hl str">&quot;PDQ only supports local printers, remote LPD printers, and Socket/TCP printers.</span>
<span class="hl str">&quot;</span><span class="hl opt">) :</span>
  _<span class="hl opt">(</span><span class="hl str">&quot;LPD and LPRng do not support IPP printers.</span>
<span class="hl str">&quot;</span><span class="hl opt">))) .</span>
_<span class="hl opt">(</span><span class="hl str">&quot;In addition, queues not created with this program or</span> <span class="hl esc">\&quot;</span><span class="hl str">foomatic-configure</span><span class="hl esc">\&quot;</span> <span class="hl str">cannot be transferred.&quot;</span><span class="hl opt">) .</span>
<span class="hl opt">(</span><span class="hl kwb">$oldspooler</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;cups&quot;</span> ? _<span class="hl opt">(</span><span class="hl str">&quot;</span>
<span class="hl str">Also printers configured with the PPD files provided by their manufacturers or with native CUPS drivers cannot be transferred.&quot;</span><span class="hl opt">) : ()) .</span> _<span class="hl opt">(</span><span class="hl str">&quot;</span>
<span class="hl str">Mark the printers which you want to transfer and click </span>
<span class="hl str"></span><span class="hl esc">\&quot;</span><span class="hl str">Transfer</span><span class="hl esc">\&quot;</span><span class="hl str">.&quot;</span><span class="hl opt">),</span>
	   cancel <span class="hl opt">=&gt;</span> _<span class="hl opt">(</span><span class="hl str">&quot;Do not transfer printers&quot;</span><span class="hl opt">),</span>
           ok <span class="hl opt">=&gt;</span> _<span class="hl opt">(</span><span class="hl str">&quot;Transfer&quot;</span><span class="hl opt">)</span>
	 <span class="hl opt">},</span>
         \<span class="hl kwb">&#64;queueentries</span>
      <span class="hl opt">)) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$queuecopied</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
	<span class="hl kwa">for</span> <span class="hl opt">(</span><span class="hl kwb">&#64;oldqueues</span><span class="hl opt">) {</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">shift</span><span class="hl opt">(</span><span class="hl kwb">&#64;queuesselected</span><span class="hl opt">)) {</span>
                <span class="hl kwc">my</span> <span class="hl kwb">$oldqueue</span> <span class="hl opt">=</span> <span class="hl kwb">$_</span><span class="hl opt">;</span>
                <span class="hl kwc">my</span> <span class="hl kwb">$newqueue</span> <span class="hl opt">=</span> <span class="hl kwb">$_</span><span class="hl opt">;</span>
                <span class="hl kwa">if</span> <span class="hl opt">((!</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$newqueue</span><span class="hl opt">}) ||</span>
		    <span class="hl opt">(</span><span class="hl kwb">$noninteractive</span><span class="hl opt">) ||</span>
		    <span class="hl opt">(</span><span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_</span>
	             <span class="hl opt">({</span> title <span class="hl opt">=&gt;</span> _<span class="hl opt">(</span><span class="hl str">&quot;Transfer printer configuration&quot;</span><span class="hl opt">),</span>
	                messages <span class="hl opt">=&gt;</span> _<span class="hl opt">(</span><span class="hl str">&quot;A printer named</span> <span class="hl esc">\&quot;</span><span class="hl str"></span><span class="hl ipl">%s\</span><span class="hl str">&quot;</span> already <span class="hl kwc">exists</span> under <span class="hl kwb">%s</span><span class="hl opt">.</span> 
Click <span class="hl esc">\&quot;</span>Transfer<span class="hl esc">\&quot;</span> to overwrite it<span class="hl opt">.</span>
You can also type a new name <span class="hl kwc">or</span> skip this printer<span class="hl opt">.</span><span class="hl str">&quot;, </span>
<span class="hl str"></span>				      <span class="hl ipl">$newqueue,</span> <span class="hl str"></span><span class="hl ipl">$newspoolerstr</span><span class="hl str">),</span>
<span class="hl str">                        ok =&gt; _(&quot;</span>Transfer<span class="hl str">&quot;),</span>
<span class="hl str">                        cancel =&gt; _(&quot;</span>Skip<span class="hl str">&quot;),</span>
<span class="hl str">		        callbacks =&gt; { complete =&gt; sub {</span>
<span class="hl str">	                    unless (</span><span class="hl ipl">$newqueue</span> <span class="hl str">=~ /^\w+</span><span class="hl ipl">$/</span><span class="hl str">) {</span>
<span class="hl str"></span>				<span class="hl ipl">$in</span><span class="hl str">-&gt;ask_warn(&apos;&apos;, _(&quot;</span>Name of printer should contain only letters<span class="hl opt">,</span> numbers <span class="hl kwc">and</span> the underscore<span class="hl str">&quot;));</span>
<span class="hl str">				return (1,0);</span>
<span class="hl str">			    }</span>
<span class="hl str">			    if ((</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}{</span><span class="hl ipl">$newqueue</span><span class="hl str">})</span>
<span class="hl str">				&amp;&amp; (</span><span class="hl ipl">$newqueue</span> <span class="hl str">ne</span> <span class="hl ipl">$oldqueue</span><span class="hl str">) &amp;&amp; </span>
<span class="hl str">				(!</span><span class="hl ipl">$in</span><span class="hl str">-&gt;ask_yesorno(&apos;&apos;, _(&quot;</span>The printer <span class="hl esc">\&quot;</span><span class="hl kwb">%s\</span><span class="hl str">&quot; already exists,</span><span class="hl esc">\n</span><span class="hl str">do you really want to overwrite its configuration?&quot;</span><span class="hl opt">,</span>
							 <span class="hl kwb">$newqueue</span><span class="hl opt">),</span>
						   <span class="hl num">0</span><span class="hl opt">))) {</span>
				<span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">,</span><span class="hl num">0</span><span class="hl opt">);</span> <span class="hl slc"># Let the user correct the name</span>
			    <span class="hl opt">}</span>
			    <span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
			<span class="hl opt">}}</span>
		    <span class="hl opt">},</span>
		      <span class="hl opt">[{</span>label <span class="hl opt">=&gt;</span> _<span class="hl opt">(</span><span class="hl str">&quot;New printer name&quot;</span><span class="hl opt">),</span>val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$newqueue</span><span class="hl opt">}]))) {</span>
		    <span class="hl opt">{</span>
			<span class="hl kwc">my</span> <span class="hl kwb">$w</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> 
			   _<span class="hl opt">(</span><span class="hl str">&quot;Transferring</span> <span class="hl ipl">%s</span> <span class="hl str">...&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$oldqueue</span><span class="hl opt">));</span>
		        printer<span class="hl opt">::</span>copy_foomatic_queue<span class="hl opt">(</span><span class="hl kwb">$printer, $oldqueue,</span>
						   <span class="hl kwb">$oldspooler, $newqueue</span><span class="hl opt">)</span> <span class="hl kwc">and</span>
							 <span class="hl kwb">$queuecopied</span> <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
		    <span class="hl opt">}</span>
		    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$oldqueue</span> <span class="hl kwc">eq</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DEFAULT<span class="hl opt">}) {</span>
			<span class="hl slc"># Make the former default printer the new default</span>
			<span class="hl slc"># printer if the user does not reject</span>
			<span class="hl kwa">if</span> <span class="hl opt">((</span><span class="hl kwb">$noninteractive</span><span class="hl opt">) ||</span>
			    <span class="hl opt">(</span><span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_yesorno</span>
			     <span class="hl opt">(</span>_<span class="hl opt">(</span><span class="hl str">&quot;Transfer printer configuration&quot;</span><span class="hl opt">),</span>
			      _<span class="hl opt">(</span><span class="hl str">&quot;You have transferred your former default printer (</span><span class="hl esc">\&quot;</span><span class="hl str"></span><span class="hl ipl">%s\</span><span class="hl str">&quot;</span><span class="hl opt">),</span> Should it be also the <span class="hl kwa">default</span> printer under the new printing <span class="hl kwc">system</span> <span class="hl kwb">%s?</span><span class="hl str">&quot;,</span> <span class="hl ipl">$oldqueue,</span> <span class="hl str"></span><span class="hl ipl">$newspoolerstr</span><span class="hl str">), 1))) {</span>
<span class="hl str"></span>			    <span class="hl ipl">$printer</span><span class="hl str">-&gt;{DEFAULT} =</span> <span class="hl ipl">$newqueue</span><span class="hl str">;</span>
<span class="hl str">			    printer::set_default_printer(</span><span class="hl ipl">$printer</span><span class="hl str">);</span>
<span class="hl str">			}</span>
<span class="hl str">		    }</span>
<span class="hl str">		}</span>
<span class="hl str">            }</span>
<span class="hl str">	}</span>
<span class="hl str">        if (</span><span class="hl ipl">$queuecopied</span><span class="hl str">) {</span>
<span class="hl str">	    my</span> <span class="hl ipl">$w</span> <span class="hl str">=</span> <span class="hl ipl">$in</span><span class="hl str">-&gt;wait_message(&apos;&apos;, _(&quot;</span>Refreshing printer data <span class="hl opt">...</span><span class="hl str">&quot;));</span>
<span class="hl str">	    printer::read_configured_queues(</span><span class="hl ipl">$printer</span><span class="hl str">);</span>
<span class="hl str">        }</span>
<span class="hl str">    }</span>
<span class="hl str">}</span>
<span class="hl str"></span>
<span class="hl str">sub start_network {</span>
<span class="hl str">    my</span> <span class="hl ipl">$in</span> <span class="hl str">=</span> <span class="hl ipl">$_</span><span class="hl str">[0];</span>
<span class="hl str">    my</span> <span class="hl ipl">$w</span> <span class="hl str">=</span> <span class="hl ipl">$in</span><span class="hl str">-&gt;wait_message(_(&quot;</span>Configuration of a remote printer<span class="hl str">&quot;), </span>
<span class="hl str">			      _(&quot;</span>Starting network <span class="hl opt">...</span><span class="hl str">&quot;));</span>
<span class="hl str">    return printer::start_service(&quot;</span>network<span class="hl str">&quot;);</span>
<span class="hl str">}</span>
<span class="hl str"></span>
<span class="hl str">sub check_network {</span>
<span class="hl str"></span>
<span class="hl str">    # This routine is called whenever the user tries to configure a remote</span>
<span class="hl str">    # printer. It checks the state of the network functionality to assure</span>
<span class="hl str">    # that the network is up and running so that the remote printer is</span>
<span class="hl str">    # reachable.</span>
<span class="hl str"></span>
<span class="hl str">    my (</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$in</span><span class="hl str">) =</span> <span class="hl ipl">&#64;_</span><span class="hl str">;</span>
<span class="hl str"></span>
<span class="hl str">    # Any additional dialogs caused by this subroutine should appear as</span>
<span class="hl str">    # extra windows and not embedded in the &quot;</span>Add printer<span class="hl str">&quot; wizard.</span>
<span class="hl str">    local $::isWizard = 0;</span>
<span class="hl str"></span>
<span class="hl str"></span>    <span class="hl ipl">$in</span><span class="hl str">-&gt;set_help(&apos;checkNetwork&apos;) if $::isInstall;</span>
<span class="hl str"></span>
<span class="hl str">    # First check: Does /etc/sysconfig/network-scripts/draknet_conf exist</span>
<span class="hl str">    # (otherwise the network is not configured yet and draknet has to be</span>
<span class="hl str">    # started)</span>
<span class="hl str"></span>
<span class="hl str">    if (!printer::files_exist(&quot;</span><span class="hl kwd">/etc/s</span>ysconfig<span class="hl kwd">/network-scripts/d</span>raknet_conf<span class="hl str">&quot;)) {</span>
<span class="hl str">	my</span> <span class="hl ipl">$go_on</span> <span class="hl str">= 0;</span>
<span class="hl str">	while (!</span><span class="hl ipl">$go_on</span><span class="hl str">) {</span>
<span class="hl str">	    my</span> <span class="hl ipl">$choice</span> <span class="hl str">= _(&quot;</span>Configure the network now<span class="hl str">&quot;);</span>
<span class="hl str">	    if (</span><span class="hl ipl">$in</span><span class="hl str">-&gt;ask_from(_(&quot;</span>Network functionality <span class="hl kwc">not</span> configured<span class="hl str">&quot;),</span>
<span class="hl str">			      _(&quot;</span>You are going to configure a remote printer<span class="hl opt">.</span> This needs working network access<span class="hl opt">,</span> but your network <span class="hl kwa">is</span> <span class="hl kwc">not</span> configured yet<span class="hl opt">.</span> If you go on without network configuration<span class="hl opt">,</span> you will <span class="hl kwc">not</span> be able to <span class="hl kwa">use</span> the printer which you are configuring now<span class="hl opt">.</span> How <span class="hl kwa">do</span> you want to proceed?<span class="hl str">&quot;),</span>
<span class="hl str">			      [ { val =&gt; \</span><span class="hl ipl">$choice,</span> <span class="hl str">type =&gt; &apos;list&apos;,</span>
<span class="hl str">				  list =&gt; [ _(&quot;</span>Configure the network now<span class="hl str">&quot;),</span>
<span class="hl str">					    _(&quot;</span>Go on without configuring the network<span class="hl str">&quot;) ]} ] )) {</span>
<span class="hl str">		if (</span><span class="hl ipl">$choice</span> <span class="hl str">eq _(&quot;</span>Configure the network now<span class="hl str">&quot;)){</span>
<span class="hl str">		    if ($::isInstall) {</span>
<span class="hl str">			require network::netconnect;</span>
<span class="hl str">		        network::netconnect::main</span>
<span class="hl str">			    (</span><span class="hl ipl">$in</span><span class="hl str">-&gt;{prefix},</span> <span class="hl ipl">$in</span><span class="hl str">-&gt;{netcnx} ||= {}, </span>
<span class="hl str"></span>			     <span class="hl ipl">$in</span><span class="hl str">-&gt;{netc},</span> <span class="hl ipl">$in</span><span class="hl str">-&gt;{mouse},</span> <span class="hl ipl">$in,</span> 
<span class="hl str"></span>			     <span class="hl ipl">$in</span><span class="hl str">-&gt;{intf}, 0,</span>
<span class="hl str"></span>			     <span class="hl ipl">$in</span><span class="hl str">-&gt;{lang} eq &quot;</span>fr_FR<span class="hl str">&quot; &amp;&amp; </span>
<span class="hl str"></span>			     <span class="hl ipl">$in</span><span class="hl str">-&gt;{keyboard} eq &quot;</span>fr<span class="hl str">&quot;, 0);</span>
<span class="hl str">		    } else {</span>
<span class="hl str">			system(&quot;</span><span class="hl kwd">/usr/s</span>bin<span class="hl opt">/</span>draknet<span class="hl str">&quot;);</span>
<span class="hl str">		    }</span>
<span class="hl str">		    if (printer::files_exist(&quot;</span><span class="hl kwd">/etc/s</span>ysconfig<span class="hl kwd">/network-scripts/d</span>raknet_conf<span class="hl str">&quot;)) {</span>
<span class="hl str"></span>			<span class="hl ipl">$go_on</span> <span class="hl str">= 1;</span>
<span class="hl str">		    }</span>
<span class="hl str">		} else {</span>
<span class="hl str">		    return 1;</span>
<span class="hl str">		}</span>
<span class="hl str">	    } else {</span>
<span class="hl str">		return 0;</span>
<span class="hl str">	    }</span>
<span class="hl str">	}</span>
<span class="hl str">    }</span>
<span class="hl str"></span>
<span class="hl str">    # Second check: Is the network running?</span>
<span class="hl str"></span>
<span class="hl str">    if (printer::network_running()) {return 1;}</span>
<span class="hl str"></span>
<span class="hl str">    # The network is configured now, start it.</span>
<span class="hl str">    if (!start_network(</span><span class="hl ipl">$in</span><span class="hl str">)) {</span>
<span class="hl str"></span>	<span class="hl ipl">$in</span><span class="hl str">-&gt;ask_warn(_(&quot;</span>Configuration of a remote printer<span class="hl str">&quot;), </span>
<span class="hl str">($::isInstall ?</span>
<span class="hl str">_(&quot;</span>The network configuration done during the installation cannot be started now<span class="hl opt">.</span> Please check whether the network gets accessable after booting your <span class="hl kwc">system and</span> correct the configuration using the Mandrake Control Center<span class="hl opt">,</span> section <span class="hl esc">\&quot;</span>Network <span class="hl opt">&amp;</span> Internet<span class="hl esc">\&quot;</span><span class="hl kwd">/\&quot;Connection\&quot;, and afterwards set up the printer, also using the Mandrake Control Center, section \&quot;Hardware\&quot;/</span><span class="hl esc">\&quot;</span>Printer<span class="hl esc">\&quot;</span><span class="hl str">&quot;) :</span>
<span class="hl str">_(&quot;</span>The network access was <span class="hl kwc">not</span> running <span class="hl kwc">and</span> could <span class="hl kwc">not</span> be started<span class="hl opt">.</span> Please check your configuration <span class="hl kwc">and</span> your hardware<span class="hl opt">.</span> Then <span class="hl kwc">try</span> to configure your remote printer again<span class="hl opt">.</span><span class="hl str">&quot;)));</span>
<span class="hl str">	return 0;</span>
<span class="hl str">    }</span>
<span class="hl str"></span>
<span class="hl str">    # Give a SIGHUP to the daemon and in case of CUPS do also the</span>
<span class="hl str">    # automatic configuration of broadcasting/access permissions</span>
<span class="hl str">    # The daemon is not really restarted but only SIGHUPped to not</span>
<span class="hl str">    # interrupt print jobs.</span>
<span class="hl str"></span>
<span class="hl str">    my</span> <span class="hl ipl">$w</span> <span class="hl str">=</span> <span class="hl ipl">$in</span><span class="hl str">-&gt;wait_message(_(&quot;</span>Configuration of a remote printer<span class="hl str">&quot;), </span>
<span class="hl str">			      _(&quot;</span>Restarting printing <span class="hl kwc">system</span> <span class="hl opt">...</span><span class="hl str">&quot;));</span>
<span class="hl str"></span>
<span class="hl str">    return printer::SIGHUP_daemon(</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{SPOOLER});</span>
<span class="hl str"></span>
<span class="hl str">}</span>
<span class="hl str"></span>
<span class="hl str">sub security_check {</span>
<span class="hl str">    # Check the security mode and when in &quot;</span>high<span class="hl str">&quot; or &quot;</span>paranoid<span class="hl str">&quot; mode ask the</span>
<span class="hl str">    # user whether he really wants to configure printing.</span>
<span class="hl str">    my (</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$in,</span> <span class="hl str"></span><span class="hl ipl">$spooler</span><span class="hl str">) =</span> <span class="hl ipl">&#64;_</span><span class="hl str">;</span>
<span class="hl str"></span>
<span class="hl str">    # Any additional dialogs caused by this subroutine should appear as</span>
<span class="hl str">    # extra windows and not embedded in the &quot;</span>Add printer<span class="hl str">&quot; wizard.</span>
<span class="hl str">    local $::isWizard = 0;</span>
<span class="hl str"></span>
<span class="hl str"></span>    <span class="hl ipl">$in</span><span class="hl str">-&gt;set_help(&apos;securityCheck&apos;) if $::isInstall;</span>
<span class="hl str"></span>
<span class="hl str">    # Get security level</span>
<span class="hl str">    my</span> <span class="hl ipl">$security</span> <span class="hl str">= undef;</span>
<span class="hl str">    if ($::isInstall) {</span>
<span class="hl str"></span>	<span class="hl ipl">$security</span> <span class="hl str">=</span> <span class="hl ipl">$in</span><span class="hl str">-&gt;{&apos;security&apos;};</span>
<span class="hl str">    } else {</span>
<span class="hl str"></span>	<span class="hl ipl">$security</span> <span class="hl str">= printer::get_security_level();</span>
<span class="hl str">    }</span>
<span class="hl str"></span>
<span class="hl str">    # Exit silently if the spooler is PDQ</span>
<span class="hl str">    if (</span><span class="hl ipl">$spooler</span> <span class="hl str">eq &quot;</span>pdq<span class="hl str">&quot;) {return 1;}</span>
<span class="hl str"></span>
<span class="hl str">    # Exit silently in medium or lower security levels</span>
<span class="hl str">    if ((!</span><span class="hl ipl">$security</span><span class="hl str">) || (</span><span class="hl ipl">$security</span> <span class="hl str">&lt; 4)) {return 1;}</span>
<span class="hl str">    </span>
<span class="hl str">    # Exit silently if the current spooler is already activated for the current</span>
<span class="hl str">    # security level</span>
<span class="hl str">    if (printer::spooler_in_security_level(</span><span class="hl ipl">$spooler,</span> <span class="hl str"></span><span class="hl ipl">$security</span><span class="hl str">)) {return 1;}</span>
<span class="hl str"></span>
<span class="hl str">    # Tell user in which security mode he is and ask him whether he really</span>
<span class="hl str">    # wants to activate the spooler in the given security mode. Stop the</span>
<span class="hl str">    # operation of installing the spooler if he disagrees.</span>
<span class="hl str">    my</span> <span class="hl ipl">$securitystr</span> <span class="hl str">= (</span><span class="hl ipl">$security</span> <span class="hl str">== 4 ? _(&quot;</span>high<span class="hl str">&quot;) : _(&quot;</span>paranoid<span class="hl str">&quot;));</span>
<span class="hl str">    if (</span><span class="hl ipl">$in</span><span class="hl str">-&gt;ask_yesorno(_(&quot;</span>Installing a printing <span class="hl kwc">system</span> <span class="hl kwa">in</span> the <span class="hl kwb">%s</span> security level<span class="hl str">&quot;,</span> <span class="hl ipl">$securitystr</span><span class="hl str">),</span>
<span class="hl str">			 _(&quot;</span>You are about to install the printing <span class="hl kwc">system</span> <span class="hl kwb">%s</span> on a <span class="hl kwc">system</span> running <span class="hl kwa">in</span> the <span class="hl kwb">%s</span> security level<span class="hl opt">.</span>

This printing <span class="hl kwc">system</span> runs a daemon <span class="hl opt">(</span>background process<span class="hl opt">)</span> which waits <span class="hl kwa">for</span> <span class="hl kwc">print</span> jobs <span class="hl kwc">and</span> handles them<span class="hl opt">.</span> This daemon <span class="hl kwa">is</span> also accessable by remote machines through the network <span class="hl kwc">and</span> so it <span class="hl kwa">is</span> a possible point <span class="hl kwa">for</span> attacks<span class="hl opt">.</span> Therefore only a few selected daemons are started by <span class="hl kwa">default in</span> this security level<span class="hl opt">.</span>

Do you really want to configure printing on this machine?<span class="hl str">&quot;,</span>
<span class="hl str"></span>			   <span class="hl ipl">$printer</span><span class="hl str">::shortspooler_inv{</span><span class="hl ipl">$spooler</span><span class="hl str">},</span>
<span class="hl str"></span>			   <span class="hl ipl">$securitystr</span><span class="hl str">))) {</span>
<span class="hl str">        printer::add_spooler_to_security_level(</span><span class="hl ipl">$spooler,</span> <span class="hl str"></span><span class="hl ipl">$security</span><span class="hl str">);</span>
<span class="hl str">	my</span> <span class="hl ipl">$service</span><span class="hl str">;</span>
<span class="hl str">	if ((</span><span class="hl ipl">$spooler</span> <span class="hl str">eq &quot;</span>lpr<span class="hl str">&quot;) || (</span><span class="hl ipl">$spooler</span> <span class="hl str">eq &quot;</span>lprng<span class="hl str">&quot;)) {</span>
<span class="hl str"></span>	    <span class="hl ipl">$service</span> <span class="hl str">= &quot;</span>lpd<span class="hl str">&quot;;</span>
<span class="hl str">	} else {</span>
<span class="hl str"></span>	    <span class="hl ipl">$service</span> <span class="hl str">=</span> <span class="hl ipl">$spooler</span><span class="hl str">;</span>
<span class="hl str">	}</span>
<span class="hl str">        printer::start_service_on_boot(</span><span class="hl ipl">$service</span><span class="hl str">);</span>
<span class="hl str">	return 1;</span>
<span class="hl str">    } else {</span>
<span class="hl str">	return 0;</span>
<span class="hl str">    }</span>
<span class="hl str">}</span>
<span class="hl str"></span>
<span class="hl str">sub start_spooler_on_boot {</span>
<span class="hl str">    # Checks whether the spooler will be started at boot time and if not,</span>
<span class="hl str">    # ask the user whether he wants to start the spooler at boot time.</span>
<span class="hl str">    my (</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$in,</span> <span class="hl str"></span><span class="hl ipl">$service</span><span class="hl str">) =</span> <span class="hl ipl">&#64;_</span><span class="hl str">;</span>
<span class="hl str"></span>
<span class="hl str">    # Any additional dialogs caused by this subroutine should appear as</span>
<span class="hl str">    # extra windows and not embedded in the &quot;</span>Add printer<span class="hl str">&quot; wizard.</span>
<span class="hl str">    local $::isWizard = 0;</span>
<span class="hl str"></span>
<span class="hl str"></span>    <span class="hl ipl">$in</span><span class="hl str">-&gt;set_help(&apos;startSpoolerOnBoot&apos;) if $::isInstall;</span>
<span class="hl str">    if (!printer::service_starts_on_boot(</span><span class="hl ipl">$service</span><span class="hl str">)) {</span>
<span class="hl str">	if (</span><span class="hl ipl">$in</span><span class="hl str">-&gt;ask_yesorno(_(&quot;</span>Starting the printing <span class="hl kwc">system</span> at boot <span class="hl kwc">time</span><span class="hl str">&quot;),</span>
<span class="hl str">			     _(&quot;</span>The printing <span class="hl kwc">system</span> <span class="hl opt">(</span><span class="hl kwb">%s</span><span class="hl opt">)</span> will <span class="hl kwc">not</span> be started automatically <span class="hl kwa">when</span> the machine <span class="hl kwa">is</span> booted<span class="hl opt">.</span>

It <span class="hl kwa">is</span> possible that the automatic starting was turned off by changing to a higher security level<span class="hl opt">,</span> because the printing <span class="hl kwc">system</span> <span class="hl kwa">is</span> a potential point <span class="hl kwa">for</span> attacks<span class="hl opt">.</span>

Do you want to have the automatic starting of the printing <span class="hl kwc">system</span> turned on again?<span class="hl str">&quot;,</span>
<span class="hl str"></span>		       <span class="hl ipl">$printer</span><span class="hl str">::shortspooler_inv{</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{SPOOLER}}))) {</span>
<span class="hl str">	    printer::start_service_on_boot(</span><span class="hl ipl">$service</span><span class="hl str">);</span>
<span class="hl str">	}</span>
<span class="hl str">    }</span>
<span class="hl str">    1;</span>
<span class="hl str">}</span>
<span class="hl str"></span>
<span class="hl str">sub install_spooler {</span>
<span class="hl str">    # installs the default spooler and start its daemon</span>
<span class="hl str">    my (</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$in</span><span class="hl str">) =</span> <span class="hl ipl">&#64;_</span><span class="hl str">;</span>
<span class="hl str">    if (!$::testing) {</span>
<span class="hl str">	# If the user refuses to install the spooler in high or paranoid</span>
<span class="hl str">	# security level, exit.</span>
<span class="hl str">	if (!security_check(</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$in,</span> <span class="hl str"></span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{SPOOLER})) {</span>
<span class="hl str">	    return 0;</span>
<span class="hl str">	}</span>
<span class="hl str">	if (</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{SPOOLER} eq &quot;</span>cups<span class="hl str">&quot;) {</span>
<span class="hl str">	    {</span>
<span class="hl str">		my</span> <span class="hl ipl">$w</span> <span class="hl str">=</span> <span class="hl ipl">$in</span><span class="hl str">-&gt;wait_message(&apos;&apos;, _(&quot;</span>Checking installed software<span class="hl opt">...</span><span class="hl str">&quot;));</span>
<span class="hl str">		if ((!$::testing) &amp;&amp;</span>
<span class="hl str">		    (!printer::files_exist((qw(/usr/lib/cups/cgi-bin/printers.cgi</span>
<span class="hl str">					       /sbin/ifconfig</span>
<span class="hl str">					       /usr/bin/xpp)</span><span class="hl opt">,</span>
					    <span class="hl opt">($::</span>expert ? 
					     <span class="hl str">&quot;/usr/share/cups/model/postscript.ppd.gz&quot;</span> <span class="hl opt">: ())</span>
					    <span class="hl opt">)))) {</span>
		    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">do_pkgs</span><span class="hl opt">-&gt;</span><span class="hl kwd">install</span><span class="hl opt">((</span><span class="hl str">&apos;cups&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;net-tools&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;xpp&apos;</span><span class="hl opt">,</span>
					   <span class="hl opt">($::</span>expert ? <span class="hl str">&apos;cups-drivers&apos;</span> <span class="hl opt">: ())));</span>
		<span class="hl opt">}</span>
		<span class="hl slc"># Start daemon</span>
	        printer<span class="hl opt">::</span>start_service<span class="hl opt">(</span><span class="hl str">&quot;cups&quot;</span><span class="hl opt">);</span>
		<span class="hl slc"># Set the CUPS tools as defaults for &quot;lpr&quot;, &quot;lpq&quot;, &quot;lprm&quot;, ...</span>
	        printer<span class="hl opt">::</span>set_alternative<span class="hl opt">(</span><span class="hl str">&quot;lpr&quot;</span><span class="hl opt">,</span><span class="hl str">&quot;/usr/bin/lpr-cups&quot;</span><span class="hl opt">);</span>
	        printer<span class="hl opt">::</span>set_alternative<span class="hl opt">(</span><span class="hl str">&quot;lpq&quot;</span><span class="hl opt">,</span><span class="hl str">&quot;/usr/bin/lpq-cups&quot;</span><span class="hl opt">);</span>
	        printer<span class="hl opt">::</span>set_alternative<span class="hl opt">(</span><span class="hl str">&quot;lprm&quot;</span><span class="hl opt">,</span><span class="hl str">&quot;/usr/bin/lprm-cups&quot;</span><span class="hl opt">);</span>
	        printer<span class="hl opt">::</span>set_alternative<span class="hl opt">(</span><span class="hl str">&quot;lp&quot;</span><span class="hl opt">,</span><span class="hl str">&quot;/usr/bin/lp-cups&quot;</span><span class="hl opt">);</span>
	        printer<span class="hl opt">::</span>set_alternative<span class="hl opt">(</span><span class="hl str">&quot;cancel&quot;</span><span class="hl opt">,</span><span class="hl str">&quot;/usr/bin/cancel-cups&quot;</span><span class="hl opt">);</span>
	        printer<span class="hl opt">::</span>set_alternative<span class="hl opt">(</span><span class="hl str">&quot;lpstat&quot;</span><span class="hl opt">,</span><span class="hl str">&quot;/usr/bin/lpstat-cups&quot;</span><span class="hl opt">);</span>
	        printer<span class="hl opt">::</span>set_alternative<span class="hl opt">(</span><span class="hl str">&quot;lpc&quot;</span><span class="hl opt">,</span><span class="hl str">&quot;/usr/sbin/lpc-cups&quot;</span><span class="hl opt">);</span>
		<span class="hl slc"># Remove PDQ panic buttons from the user&apos;s KDE Desktops</span>
	        printer<span class="hl opt">::</span>pdq_panic_button<span class="hl opt">(</span><span class="hl str">&quot;remove&quot;</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span>
	    <span class="hl slc"># Should it be started at boot time?</span>
	    start_spooler_on_boot<span class="hl opt">(</span><span class="hl kwb">$printer, $in,</span> <span class="hl str">&quot;cups&quot;</span><span class="hl opt">);</span>
	<span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;lpd&quot;</span><span class="hl opt">) {</span>
	    <span class="hl opt">{</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$w</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> _<span class="hl opt">(</span><span class="hl str">&quot;Checking installed software...&quot;</span><span class="hl opt">));</span>
		<span class="hl slc"># &quot;lpr&quot; conflicts with &quot;LPRng&quot;, remove &quot;LPRng&quot;</span>
		<span class="hl kwa">if</span> <span class="hl opt">((!$::</span>testing<span class="hl opt">) &amp;&amp;</span>
		    <span class="hl opt">(</span>printer<span class="hl opt">::</span>files_exist<span class="hl opt">((</span><span class="hl str">qw(/usr/lib/filters/lpf)</span><span class="hl opt">)))) {</span>
		    <span class="hl kwc">my</span> <span class="hl kwb">$w</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> _<span class="hl opt">(</span><span class="hl str">&quot;Removing LPRng...&quot;</span><span class="hl opt">));</span>
		    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">do_pkgs</span><span class="hl opt">-&gt;</span><span class="hl kwd">remove_nodeps</span><span class="hl opt">(</span><span class="hl str">&apos;LPRng&apos;</span><span class="hl opt">);</span>
		<span class="hl opt">}</span>
		<span class="hl kwa">if</span> <span class="hl opt">((!$::</span>testing<span class="hl opt">) &amp;&amp;</span>
		    <span class="hl opt">(!</span>printer<span class="hl opt">::</span>files_exist<span class="hl opt">((</span><span class="hl str">qw(/usr/sbin/lpf</span>
<span class="hl str">					       /usr/sbin/lpd</span>
<span class="hl str">					       /sbin/ifconfig</span>
<span class="hl str">					       /usr/bin/gpr</span>
<span class="hl str">					       /usr/bin/a2ps</span>
<span class="hl str">					       /usr/bin/convert)</span><span class="hl opt">)))) {</span>
		    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">do_pkgs</span><span class="hl opt">-&gt;</span><span class="hl kwd">install</span><span class="hl opt">((</span><span class="hl str">&apos;lpr&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;net-tools&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;gpr&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;a2ps&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;ImageMagick&apos;</span><span class="hl opt">));</span>
		<span class="hl opt">}</span>
		<span class="hl slc"># Start daemon</span>
	        printer<span class="hl opt">::</span>restart_service<span class="hl opt">(</span><span class="hl str">&quot;lpd&quot;</span><span class="hl opt">);</span>
		<span class="hl slc"># Set the LPD tools as defaults for &quot;lpr&quot;, &quot;lpq&quot;, &quot;lprm&quot;, ...</span>
	        printer<span class="hl opt">::</span>set_alternative<span class="hl opt">(</span><span class="hl str">&quot;lpr&quot;</span><span class="hl opt">,</span><span class="hl str">&quot;/usr/bin/lpr-lpd&quot;</span><span class="hl opt">);</span>
	        printer<span class="hl opt">::</span>set_alternative<span class="hl opt">(</span><span class="hl str">&quot;lpq&quot;</span><span class="hl opt">,</span><span class="hl str">&quot;/usr/bin/lpq-lpd&quot;</span><span class="hl opt">);</span>
	        printer<span class="hl opt">::</span>set_alternative<span class="hl opt">(</span><span class="hl str">&quot;lprm&quot;</span><span class="hl opt">,</span><span class="hl str">&quot;/usr/bin/lprm-lpd&quot;</span><span class="hl opt">);