msgid ""
msgstr ""
"Content-Type: text/plain; charset=UTF-8\n"

# DO NOT BOTHER TO MODIFY HERE, SEE:
# cvs.mandrakesoft.com:/cooker/doc/manualB/modules/es/drakx-chapter.xml
msgid ""
"At this point, you need to decide where you want to install the Mandrake\n"
"Linux operating system on your hard drive. If your hard drive is empty or\n"
"if an existing operating system is using all the available space you will\n"
"have to partition the drive. Basically, partitioning a hard drive consists\n"
"of logically dividing it to create the space needed to install your new\n"
"Mandrake Linux system.\n"
"\n"
"Because the process of partitioning a hard drive is usually irreversible\n"
"and can lead to lost data if there is an existing operating system already\n"
"installed on the drive, partitioning can be intimidating and stressful if\n"
"you are an inexperienced user. Fortunately, DrakX includes a wizard which\n"
"simplifies this process. Before continuing with this step, read through the\n"
"rest of this section and above all, take your time.\n"
"\n"
"Depending on your hard drive configuration, several options are available:\n"
"\n"
" * \"%s\": this option will perform an automatic partitioning of your blank\n"
"drive(s). If you use this option there will be no further prompts.\n"
"\n"
" * \"%s\": the wizard has detected one or more existing Linux partitions on\n"
"your hard drive. If you want to use them, choose this option. You will then\n"
"be asked to choose the mount points associated with each of the partitions.\n"
"The legacy mount points are selected by default, and for the most part it's\n"
"a good idea to keep them.\n"
"\n"
" * \"%s\": if Microsoft Windows is installed on your hard drive and takes\n"
"all the space available on it, you will have to create free space for\n"
"Linux. To do so, you can delete your Microsoft Windows partition and data\n"
"(see ``Erase entire disk'' solution) or resize your Microsoft Windows FAT\n"
"partition. Resizing can be performed without the loss of any data, provided\n"
"you have previously defragmented the Windows partition and that it uses the\n"
"FAT format. Backing up your data is strongly recommended.. Using this\n"
"option is recommended if you want to use both Mandrake Linux and Microsoft\n"
"Windows on the same computer.\n"
"\n"
"   Before choosing this option, please understand that after this\n"
"procedure, the size of your Microsoft Windows partition will be smaller\n"
"then when you started. You will have less free space under Microsoft\n"
"Windows to store your data or to install new software.\n"
"\n"
" * \"%s\": if you want to delete all data and all partitions present on\n"
"your hard drive and replace them with your new Mandrake Linux system,\n"
"choose this option. Be careful, because you will not be able to undo your\n"
"choice after you confirm.\n"
"\n"
"   !! If you choose this option, all data on your disk will be deleted. !!\n"
"\n"
" * \"%s\": this will simply erase everything on the drive and begin fresh,\n"
"partitioning everything from scratch. All data on your disk will be lost.\n"
"\n"
"   !! If you choose this option, all data on your disk will be lost. !!\n"
"\n"
" * \"%s\": choose this option if you want to manually partition your hard\n"
"drive. Be careful -- it is a powerful but dangerous choice and you can very\n"
"easily lose all your data. That's why this option is really only\n"
"recommended if you have done something like this before and have some\n"
"experience. For more instructions on how to use the DiskDrake utility,\n"
"refer to the ``Managing Your Partitions '' section in the ``Starter\n"
"Guide''."
msgstr ""
"Ahora necesita elegir el lugar de su disco rígido donde se instalará su\n"
"sistema operativo Mandrake Linux. Si su disco rígido está vacío o si un\n"
"sistema operativo existente está utilizando todo el espacio disponible,\n"
"necesitará particionar el disco. Básicamente, particionar un disco rígido\n"
"consiste en dividirlo lógicamente para crear espacio para instalar su\n"
"sistema Mandrake Linux nuevo.\n"
"\n"
"Debido a que el proceso de particionado de un disco rígido por lo general\n"
"es irreversible y puede llevar a pérdida de datos si ya hay un sistema\n"
"operativo instalado en el disco, el particionado puede ser intimidante y\n"
"estresante si Usted es un usuario inexperto. Por fortuna, DrakX incluye un\n"
"asistente que simplifica este proceso. Antes de continuar con este paso,\n"
"por favor lea el resto de esta sección y, por sobre todo, tómese su tiempo.\n"
"\n"
"Dependiendo de la configuración de su disco rígido, están disponibles\n"
"varias opciones:\n"
"\n"
" * \"%s\": esta opción simplemente llevará a un particionado automático de\n"
"su(s) disco(s) vacío(s). Si elige esta opción, no se le pedirán más\n"
"detalles ni se le formularán más preguntas.\n"
"\n"
" * \"%s\": el asistente ha detectado una o más particiones Linux existentes\n"
"en su disco rígido. Si desea utilizarlas, elija esta opción. Entonces se le\n"
"pedirá que elija los puntos de montaje asociados a cada una de las\n"
"particiones. Los puntos de montaje legados se seleccionan automáticamente,\n"
"y por lo general debería mantenerlos.\n"
"\n"
" * \"%s\": si Microsoft Windows está instalado en su disco rígido y ocupa\n"
"todo el espacio disponible en el mismo, Usted tiene que liberar espacio\n"
"para los datos de Linux. Para hacerlo, puede borrar su partición y datos\n"
"Microsoft Windows (vea la solución \"Borrar el disco completo\") o cambiar\n"
"el tamaño de su partición Microsoft Windows FAT. El cambio de tamaño se\n"
"puede realizar sin la pérdida de datos, siempre y cuando Usted haya\n"
"desfragmentado con anterioridad la partición Windows y que la misma utiliza\n"
"el formato FAT. Es altamente recomendable hacer una copia de respaldo de\n"
"sus datos. Se recomienda usar esta solución si desea utilizar tanto\n"
"Mandrake Linux como Microsoft Windows en la misma computadora.\n"
"\n"
"   Antes de elegir esta opción, por favor comprenda que después de este\n"
"procedimiento el tamaño de su partición Microsoft Windows será más pequeño\n"
"que cuando comenzó. Tendrá menos espacio bajo Microsoft Windows para\n"
"almacenar sus datos o instalar software nuevo.\n"
"\n"
" * \"%s\": si desea borrar todos los datos y todas las particiones\n"
"presentes en su disco rígido y reemplazarlos con su nuevo sistema Mandrake\n"
"Linux, elija esta opción. Tenga cuidado con esta solución ya que no podrá\n"
"revertir su elección después de confirmarla.\n"
"\n"
"   !! Si elige esta opción, se perderán todos los datos en su disco. !!\n"
"\n"
" * \"%s\": esto simplemente borrará todo en el disco y comenzará\n"
"particionando todo desde cero. Se perderán todos los datos en su disco.\n"
"\n"
"   !! Si elige esta opción, se perderán todos los datos en su disco. !!\n"
"\n"
" * \"%s\": elija esta opción si desea particionar manualmente su disco\n"
"rígido. Tenga cuidado - esta es una elección potente pero peligrosa y puede\n"
"perder todos sus datos con facilidad. Esa es la razón por la cual esta\n"
"opción realmente sólo se recomienda si ha hecho algo como esto antes y\n"
"tiene algo de experiencia. Para más instrucciones acerca de la utilización\n"
"del utilitario DiskDrake, consulte la sección \"Administrar sus\n"
"particiones\" de la \"Guía de Comienzo\"."

# DO NOT BOTHER TO MODIFY HERE, SEE:
# cvs.mandrakesoft.com:/cooker/doc/manualB/modules/es/drakx-chapter.xml
msgid ""
"Resolution\n"
"\n"
"   Here you can choose the resolutions and color depths available for your\n"
"hardware. Choose the one that best suits your needs (you will be able to\n"
"change that after installation though). A sample of the chosen\n"
"configuration is shown in the monitor."
msgstr ""
"Resolución\n"
"\n"
"   Aquí puede elegir las resoluciones y profundidades de color entre\n"
"aquellas disponibles para su hardware. Elija la que mejor se ajuste a sus\n"
"necesidades (tenga presente que eso se puede cambiar luego de la\n"
"instalación) En el monitor se muestra un ejemplo de la configuración\n"
"elegida."

# DO NOT BOTHER TO MODIFY HERE, SEE:
# cvs.mandrakesoft.com:/cooker/doc/manualB/modules/es/drakx-chapter.xml
msgid ""
"GNU/Linux is a multi-user system, meaning each user may have their own\n"
"preferences, their own files and so on. You can read the ``Starter Guide''\n"
"to learn more about multi-user systems. But unlike \"root\", who is the\n"
"system administrator, the users you add at this point will not be\n"
"authorized to change anything except their own files and their own\n"
"configurations, protecting the system from unintentional or malicious\n"
"changes that impact on the system as a whole. You will have to create at\n"
"least one regular user for yourself -- this is the account which you should\n"
"use for routine, day-to-day use. Although it is very easy to log in as\n"
"\"root\" to do anything and everything, it may also be very dangerous! A\n"
"very simple mistake could mean that your system will not work any more. If\n"
"you make a serious mistake as a regular user, the worst that will happen is\n"
"that you will lose some information, but not affect the entire system.\n"
"\n"
"The first field asks you for a real name. Of course, this is not mandatory\n"
"-- you can actually enter whatever you like. DrakX will use the first word\n"
"you typed in this field and copy it to the \"%s\" field, which is the name\n"
"this user will enter to log onto the system. If you like, you may override\n"
"the default and change the username. The next step is to enter a password.\n"
"From a security point of view, a non-privileged (regular) user password is\n"
"not as crucial as the \"root\" password, but that is no reason to neglect\n"
"it by making it blank or too simple: after all, your files could be the\n"
"ones at risk.\n"
"\n"
"Once you click on \"%s\", you can add other users. Add a user for each one\n"
"of your friends: your father or your sister, for example. Click \"%s\" when\n"
"you have finished adding users.\n"
"\n"
"Clicking the \"%s\" button allows you to change the default \"shell\" for\n"
"that user (bash by default).\n"
"\n"
"When you have finished adding users, you will be asked to choose a user\n"
"that can automatically log into the system when the computer boots up. If\n"
"you are interested in that feature (and do not care much about local\n"
"security), choose the desired user and window manager, then click \"%s\".\n"
"If you are not interested in this feature, uncheck the \"%s\" box."
msgstr ""
"GNU/Linux es un sistema multiusuario, y esto significa que cada usuario\n"
"puede tener sus preferencias propias, sus archivos propios, y así\n"
"sucesivamente. Puede leer la \"Guía de Comienzo\" para aprender más. Pero,\n"
"a diferencia de \"root\", que es el administrador del sistema, los usuarios\n"
"que agregue en este punto no estarán autorizados a cambiar nada excepto su\n"
"configuración y sus archivos propios, protegiendo al sistema contra cambios\n"
"no intencionales o maliciosos que pueden impactar al sistema como un todo.\n"
"Tendrá que crear al menos un usuario no privilegiado para Usted mismo - esa\n"
"cuenta es la que debería utilizar para el uso rutinario diario. Aunque es\n"
"muy práctico ingresar como \"root\" para hacer cualquier cosa y de todo,\n"
"¡también puede ser muy peligroso! Un error podría significar que su sistema\n"
"deje de funcionar. Si comete un error serio como usuario no privilegiado,\n"
"sólo puede llegar a perder algo de información, pero no afectar a todo el\n"
"sistema.\n"
"\n"
"El primer campo le pide un nombre real. Por supuesto, esto no es\n"
"obligatorio - en realidad, puede ingresar lo que desee. DrakX usará la\n"
"primer palabra que ingresó y la copiará al campo \"%s\", que es el nombre\n"
"que este usuario en particular usará para ingresar al sistema. Si lo desea,\n"
"puede omitir lo predeterminado y cambiar el nombre de usuario. El próximo\n"
"paso es ingresar una contraseña. La contraseña de un usuario no\n"
"privilegiado (regular) no es tan crucial como la de \"root\" desde el punto\n"
"de vista de la seguridad, pero esto no es razón alguna para obviarla o\n"
"hacerla muy simple: después de todo, son sus archivos los que podrían estar\n"
"en peligro.\n"
"\n"
"Una vez que hace clic sobre \"%s\", puede agregar otros usuarios. Agregue\n"
"un usuario para cada uno de sus amigos: por ejemplo su padre o su hermana.\n"
"Haga clic sobre \"%s\" cuando haya terminado de agregar todos los usuarios\n"
"que desee.\n"
"\n"
"Hacer clic sobre el botón \"%s\" le permite cambiar el \"shell\"\n"
"predeterminado para ese usuario (bash, por defecto)\n"
"\n"
"Cuando haya finalizado de añadir todos los usuarios se le propone elegir un\n"
"usuario para conectarse automáticamente en el sistema cuando arranca la\n"
"computadora. Si está interesado en esta característica (y no le importa\n"
"mucho la seguridad local), elija el usuario y administrador de ventanas\n"
"deseado. Si no está interesado en esta característica, quite la marca de la\n"
"casilla \"%s\". Haga clic sobre \"%s\" una vez que seleccionó su\n"
"preferencia."

# DO NOT BOTHER TO MODIFY HERE, SEE:
# cvs.mandrakesoft.com:/cooker/doc/manualB/modules/es/drakx-chapter.xml
msgid ""
"Yaboot is a bootloader for NewWorld Macintosh hardware and can be used to\n"
"boot GNU/Linux, MacOS or MacOSX. Normally, MacOS and MacOSX are correctly\n"
"detected and installed in the bootloader menu. If this is not the case, you\n"
"can add an entry by hand in this screen. Be careful to choose the correct\n"
"parameters.\n"
"\n"
"Yaboot's main options are:\n"
"\n"
" * Init Message: a simple text message displayed before the boot prompt.\n"
"\n"
" * Boot Device: indicates where you want to place the information required\n"
"to boot to GNU/Linux. Generally, you set up a bootstrap partition earlier\n"
"to hold this information.\n"
"\n"
" * Open Firmware Delay: unlike LILO, there are two delays available with\n"
"yaboot. The first delay is measured in seconds and at this point, you can\n"
"choose between CD, OF boot, MacOS or Linux;\n"
"\n"
" * Kernel Boot Timeout: this timeout is similar to the LILO boot delay.\n"
"After selecting Linux, you will have this delay in 0.1 second increments\n"
"before your default kernel description is selected;\n"
"\n"
" * Enable CD Boot?: checking this option allows you to choose ``C'' for CD\n"
"at the first boot prompt.\n"
"\n"
" * Enable OF Boot?: checking this option allows you to choose ``N'' for\n"
"Open Firmware at the first boot prompt.\n"
"\n"
" * Default OS: you can select which OS will boot by default when the Open\n"
"Firmware Delay expires."
msgstr ""
"Yaboot es un cargador de arranque para el hardware NewWorld MacIntosh. El\n"
"mismo puede arrancar o GNU/Linux, o MacOS o MacOSX si se encuentran en su\n"
"computadora. Normalmente, estos sistemas operativos se detectan e instalan\n"
"correctamente. Si este no es el caso, puede agregar una entrada a mano en\n"
"esta pantalla. Tenga cuidado de elegir los parámetros correctos.\n"
"\n"
"Las opciones principales de Yaboot son:\n"
"\n"
" * Mensaje de Init: un mensaje de texto simple que se muestra antes del\n"
"prompt de arranque.\n"
"\n"
" * Dispositivo de arranque: indica donde desea colocar la información\n"
"necesaria para arrancar en GNU/Linux. Generalmente, se configura una\n"
"partición bootstrap con anterioridad para contener esta información.\n"
"\n"
" * Demora de Open Firmware: a diferencia de LILO, hay dos demoras\n"
"disponibles con Yaboot. La primera se mide en segundos y aquí puede elegir\n"
"entre CD, arranque OF, MacOS o Linux.\n"
"\n"
" * Demora de arranque del núcleo: esta demora es similar a la demora de\n"
"arranque de LILO. Luego de seleccionar Linux, tendrá esta demora en décimas\n"
"de segundo antes que se seleccione su descripción del núcleo\n"
"predeterminada.\n"
"\n"
" * ¿Habilitar arranque desde el CD?: marcando esta opción Usted puede\n"
"elegir \"C\" para el CD en el primer prompt de arranque.\n"
"\n"
" * ¿Habilitar arranque OF?: marcando esta opción Usted puede elegir \"N\"\n"
"para Open Firmware en el primer prompt de arranque.\n"
"\n"
" * SO predeterminado: puede seleccionar qué sistema operativo arrancará por\n"
"defecto cuando expira la demora de Open Firmware."

# DO NOT BOTHER TO MODIFY HERE, SEE:
# cvs.mandrakesoft.com:/cooker/doc/manualB/modules/es/drakx-chapter.xml
msgid ""
"This step is activated only if an old GNU/Linux partition has been found on\n"
"your machine.\n"
"\n"
"DrakX now needs to know if you want to perform a new install or an upgrade\n"
"of an existing Mandrake Linux system:\n"
"\n"
" * \"%s\": For the most part, this completely wipes out the old system. If\n"
"you wish to change how your hard drives are partitioned, or change the file\n"
"system, you should use this option. However, depending on your partitioning\n"
"scheme, you can prevent some of your existing data from being over-written.\n"
"\n"
" * \"%s\": this installation class allows you to update the packages\n"
"currently installed on your Mandrake Linux system. Your current\n"
"partitioning scheme and user data is not altered. Most of other\n"
"configuration steps remain available, similar to a standard installation.\n"
"\n"
"Using the ``Upgrade'' option should work fine on Mandrake Linux systems\n"
"running version \"8.1\" or later. Performing an Upgrade on versions prior\n"
"to Mandrake Linux version \"8.1\" is not recommended."
msgstr ""
"Este paso se activa sólo si se encontró una partición GNU/Linux antigua en\n"
"su sistema.\n"
"\n"
"DrakX ahora necesita saber si desea realizar una instalación nueva o una\n"
"actualización de un sistema Mandrake Linux existente:\n"
"\n"
" * \"%s\": Esta opción borrará prácticamente por completo el sistema\n"
"anterior. Si desea cambiar la forma en que se particionan sus discos, o\n"
"cambiar el sistema de archivos, debería utilizar esta opción. Sin embargo,\n"
"dependiendo de su esquema de particionado, puede evitar que se\n"
"sobre-escriban algunos datos existentes.\n"
"\n"
" * \"%s\": Esta clase de instalación le permite actualizar los paquetes que\n"
"en este momento están instalados en su sistema Mandrake Linux. No se\n"
"alteran las particiones corrientes de sus discos ni los datos de los\n"
"usuarios. La mayoría de los otros pasos de configuración permanecen\n"
"disponibles, de manera similar a lo que ocurre con una instalación\n"
"estándar.\n"
"\n"
"El uso de la opción \"Actualizar\" debería funcionar sin problemas para los\n"
"sistemas Mandrake Linux que corren la versión \"8.1\" o una posterior. No\n"
"se recomienda realizar una actualización sobre versiones anteriores a\n"
"Mandrake Linux versión \"8.1\"."

# DO NOT BOTHER TO MODIFY HERE, SEE:
# cvs.mandrakesoft.com:/cooker/doc/manualB/modules/es/drakx-chapter.xml
msgid ""
"At the time you are installing Mandrake Linux, it is likely that some\n"
"packages have been updated since the initial release. Bugs may have been\n"
"fixed, security issues resolved. To allow you to benefit from these\n"
"updates, you are now able to download them from the Internet. Check \"%s\"\n"
"if you have a working Internet connection, or \"%s\" if you prefer to\n"
"install updated packages later.\n"
"\n"
"Choosing \"%s\" will display a list of places from which updates can be\n"
"retrieved. You should choose one nearer to you. A package-selection tree\n"
"will appear: review the selection, and press \"%s\" to retrieve and install\n"
"the selected package(s), or \"%s\" to abort."
msgstr ""
"Es probable que cuando instale Mandrake Linux algunos paquetes se hayan\n"
"actualizado desde la publicación inicial. Se pueden haber corregido algunos\n"
"errores y solucionado problemas de seguridad. Para permitir que Usted se\n"
"beneficie de estas actualizaciones, ahora se le propone transferirlas desde\n"
"la Internet. Marque \"%s\" si tiene funcionando una conexión con la\n"
"Internet, o \"%s\" si prefiere instalar los paquetes actualizados más\n"
"tarde.\n"
"\n"
"Si elige \"%s\" se mostrará una lista de lugares desde los que se pueden\n"
"obtener las actualizaciones. Elija el más cercano a Usted. Luego aparece un\n"
"árbol de selección de paquetes: revise la selección y presione \"%s\" para\n"
"transferir e instalar los paquetes seleccionados, o \"%s\" para abortar."

# DO NOT BOTHER TO MODIFY HERE, SEE:
# cvs.mandrakesoft.com:/cooker/doc/manualB/modules/es/drakx-chapter.xml
msgid ""
"This dialog allows you to fine tune your bootloader:\n"
"\n"
" * \"%s\": there are three choices for your bootloader:\n"
"\n"
"    * \"%s\": if you prefer grub (text menu).\n"
"\n"
"    * \"%s\": if you prefer LILO with its text menu interface.\n"
"\n"
"    * \"%s\": if you prefer LILO with its graphical interface.\n"
"\n"
" * \"%s\": in most cases, you will not change the default (\"%s\"), but if\n"
"you prefer, the bootloader can be installed on the second hard drive\n"
"(\"%s\"), or even on a floppy disk (\"%s\");\n"
"\n"
" * \"%s\": after a boot or a reboot of the computer, this is the delay\n"
"given to the user at the console to select a boot entry other than the\n"
"default.\n"
"\n"
"!! Beware that if you choose not to install a bootloader (by selecting\n"
"\"%s\"), you must ensure that you have a way to boot your Mandrake Linux\n"
"system! Be sure you know what you are doing before changing any of the\n"
"options. !!\n"
"\n"
"Clicking the \"%s\" button in this dialog will offer advanced options which\n"
"are normally reserved for the expert user."
msgstr ""
"Este diálogo le permite un ajuste fino de su cargador de arranque:\n"
"\n"
" * \"%s\": hay tres opciones para su cargador de arranque:\n"
"\n"
"    * \"%s\": si prefiere a grub (menú de texto).\n"
"\n"
"    * \"%s\": si prefiere a LILO con su interfaz de texto.\n"
"\n"
"    * \"%s\": si prefiere a LILO con su interfaz gráfica.\n"
"\n"
" * \"%s\": en la mayoría de los casos, no cambiará lo predeterminado\n"
"(\"%s\"), pero si lo prefiere el cargador de arranque se puede instalar en\n"
"el segundo disco rígido (\"%s\") o incluso en un disquete (\"%s\")\n"
"\n"
" * \"%s\": luego de arrancar o volver a arrancar la computadora, esta es la\n"
"demora que se garantiza al usuario para elegir, en el menú del cargador de\n"
"arranque, una entrada distinta a la predeterminada.\n"
"\n"
"!! Tenga presente que si no elige instalar un cargador de arranque\n"
"(seleccionando \"%s\"), ¡debe asegurarse que tiene una forma de arrancar a\n"
"su sistema Mandrake Linux! También debe asegurarse que sabe lo que hace\n"
"antes de cambiar cualquier opción. !!\n"
"\n"
"Haciendo clic sobre el botón \"%s\" en este diálogo se le ofrecerán\n"
"opciones avanzadas que están reservadas para el usuario experto."

# DO NOT BOTHER TO MODIFY HERE, SEE:
# cvs.mandrakesoft.com:/cooker/doc/manualB/modules/es/drakx-chapter.xml
msgid ""
"More than one Microsoft partition has been detected on your hard drive.\n"
"Please choose which one you want to resize in order to install your new\n"
"Mandrake Linux operating system.\n"
"\n"
"Each partition is listed as follows: \"Linux name\", \"Windows name\"\n"
"\"Capacity\".\n"
"\n"
"\"Linux name\" is structured: \"hard drive type\", \"hard drive number\",\n"
"\"partition number\" (for example, \"hda1\").\n"
"\n"
"\"Hard drive type\" is \"hd\" if your hard dive is an IDE hard drive and\n"
"\"sd\" if it is a SCSI hard drive.\n"
"\n"
"\"Hard drive number\" is always a letter after \"hd\" or \"sd\". With IDE\n"
"hard drives:\n"
"\n"
" * \"a\" means \"master hard drive on the primary IDE controller\";\n"
"\n"
" * \"b\" means \"slave hard drive on the primary IDE controller\";\n"
"\n"
" * \"c\" means \"master hard drive on the secondary IDE controller\";\n"
"\n"
" * \"d\" means \"slave hard drive on the secondary IDE controller\".\n"
"\n"
"With SCSI hard drives, an \"a\" means \"lowest SCSI ID\", a \"b\" means\n"
"\"second lowest SCSI ID\", etc.\n"
"\n"
"\"Windows name\" is the letter of your hard drive under Windows (the first\n"
"disk or partition is called \"C:\")."
msgstr ""
"Se ha detectado más de una partición Microsoft Windows en su disco rígido.\n"
"Por favor, elija aquella a la cual desea cambiar el tamaño para poder\n"
"instalar su sistema operativo Mandrake Linux nuevo.\n"
"\n"
"Cada partición se lista como sigue: \"Nombre Linux\", \"Nombre Windows\",\n"
"\"Capacidad\".\n"
"\n"
"\"Nombre Linux\" está estructurado: \"tipo de disco rígido\", \"número de\n"
"disco rígido\", \"número de partición\" (por ejemplo, \"hda1\").\n"
"\n"
"\"Tipo de disco rígido\" es \"hd\" si su disco es un disco IDE y \"sd\" si\n"
"el mismo es un disco SCSI.\n"
"\n"
"\"Número de disco rígido\" siempre es una letra que sigue a \"hd\" o a\n"
"\"sd\". Para los discos IDE:\n"
"\n"
" * \"a\" significa \"disco rígido maestro en la controladora IDE\n"
"primaria\",\n"
"\n"
" * \"b\" significa \"disco rígido esclavo en la controladora IDE\n"
"primaria\",\n"
"\n"
" * \"c\" significa \"disco rígido maestro en la controladora IDE\n"
"secundaria\",\n"
"\n"
" * \"d\" significa \"disco rígido esclavo en la controladora IDE\n"
"secundaria\".\n"
"\n"
"Para los discos SCSI, una \"a\" significa \"SCSI ID menor\", una \"b\"\n"
"significa \"segunda SCSI ID menor\", etc.\n"
"\n"
"\"Nombre Windows\" es la letra de su unidad de disco bajo Windows (el\n"
"primer disco o partición se denomina \"C:\")."

# DO NOT BOTHER TO MODIFY HERE, SEE:
# cvs.mandrakesoft.com:/cooker/doc/manualB/modules/es/drakx-chapter.xml
msgid ""
"X (for X Window System) is the heart of the GNU/Linux graphical interface\n"
"on which all the graphical environments (KDE, GNOME, AfterStep,\n"
"WindowMaker, etc.) bundled with Mandrake Linux rely upon.\n"
"\n"
"You will be presented with a list of different parameters to change to get\n"
"an optimal graphical display: Graphic Card\n"
"\n"
"   The installer will normally automatically detect and configure the\n"
"graphic card installed on your machine. If it is not the case, you can\n"
"choose from this list the card you actually have installed.\n"
"\n"
"   In the case that different servers are available for your card, with or\n"
"without 3D acceleration, you are then asked to choose the server that best\n"
"suits your needs.\n"
"\n"
"\n"
"\n"
"Monitor\n"
"\n"
"   The installer will normally automatically detect and configure the\n"
"monitor connected to your machine. If it is correct, you can choose from\n"
"this list the monitor you actually have connected to your computer.\n"
"\n"
"\n"
"\n"
"Resolution\n"
"\n"
"   Here you can choose the resolutions and color depths available for your\n"
"hardware. Choose the one that best suits your needs (you will be able to\n"
"change that after installation though). A sample of the chosen\n"
"configuration is shown in the monitor.\n"
"\n"
"\n"
"\n"
"Test\n"
"\n"
"   the system will try to open a graphical screen at the desired\n"
"resolution. If you can see the message during the test and answer \"%s\",\n"
"then DrakX will proceed to the next step. If you cannot see the message, it\n"
"means that some part of the autodetected configuration was incorrect and\n"
"the test will automatically end after 12 seconds, bringing you back to the\n"
"menu. Change settings until you get a correct graphical display.\n"
"\n"
"\n"
"\n"
"Options\n"
"\n"
"   Here you can choose whether you want to have your machine automatically\n"
"switch to a graphical interface at boot. Obviously, you want to check\n"
"\"%s\" if your machine is to act as a server, or if you were not successful\n"
"in getting the display configured."
msgstr ""
"X (por \"X Window System\") es el corazón de la interfaz gráfica de\n"
"GNU/Linux en el que se apoyan todos los entornos gráficos (KDE, GNOME,\n"
"AfterStep, WindowMaker, etc.) que se incluyen con Mandrake Linux.\n"
"\n"
"Se le presentará la lista de parámetros diferentes a cambiar para obtener\n"
"una presentación gráfica óptima: Tarjeta gráfica\n"
"\n"
"   Normalmente el instalador puede detectar y configurar automáticamente la\n"
"tarjeta gráfica instalada en su máquina. Si este no es el caso, en esta\n"
"lista puede elegir la tarjeta que realmente posee.\n"
"\n"
"   En caso que estén disponibles diferentes servidores para su tarjeta, con\n"
"o sin aceleración de 3D, entonces se le propone elegir el servidor que\n"
"mejor satisface sus necesidades.\n"
"\n"
"\n"
"\n"
"Monitor\n"
"\n"
"   Normalmente el instalador puede detectar y configurar automáticamente el\n"
"monitor conectado a su máquina. Si este no es el caso, en esta lista puede\n"
"elegir el monitor que realmente posee.\n"
"\n"
"\n"
"\n"
"Resolución\n"
"\n"
"   Aquí puede elegir las resoluciones y profundidades de color entre\n"
"aquellas disponibles para su hardware. Elija la que mejor se ajuste a sus\n"
"necesidades (tenga presente que eso se puede cambiar luego de la\n"
"instalación) En el monitor se muestra un ejemplo de la configuración\n"
"elegida.\n"
"\n"
"\n"
"\n"
"Probar\n"
"\n"
"   El sistema intentará abrir una pantalla gráfica con la resolución\n"
"deseada. Si puede ver el mensaje durante la prueba, y responde \"%s\",\n"
"entonces DrakX continuará con el paso siguiente. Si no puede ver el\n"
"mensaje, significa que alguna parte de la configuración detectada\n"
"automáticamente no era la correcta y la prueba terminará automáticamente\n"
"luego de 12 segundos, restaurando el menú. Cambie los ajustes hasta obtener\n"
"una pantalla correcta.\n"
"\n"
"\n"
"\n"
"Opciones\n"
"\n"
"   Aquí puede elegir si desea que su máquina cambie automáticamente a la\n"
"interfaz gráfica al arrancar. Obviamente, querrá marcar \"%s\" si su\n"
"sistema actuará como servidor, o si no tuvo éxito en la configuración de su\n"
"pantalla."

# DO NOT BOTHER TO MODIFY HERE, SEE:
# cvs.mandrakesoft.com:/cooker/doc/manualB/modules/es/drakx-chapter.xml
msgid ""
"Now, it's time to select a printing system for your computer. Other OSs may\n"
"offer you one, but Mandrake Linux offers two. Each of the printing system\n"
"is best suited to particular types of configuration.\n"
"\n"
" * \"%s\" -- which is an acronym for ``print, don't queue'', is the choice\n"
"if you have a direct connection to your printer, you want to be able to\n"
"panic out of printer jams, and you do not have networked printers. (\"%s\"\n"
"will handle only very simple network cases and is somewhat slow when used\n"
"with networks.) It's recommended that you use \"pdq\" if this is your first\n"
"experience with GNU/Linux.\n"
"\n"
" * \"%s\" - `` Common Unix Printing System'', is an excellent choice for\n"
"printing to your local printer or to one halfway around the planet. It is\n"
"simple to configure and can act as a server or a client for the ancient\n"
"\"lpd \" printing system, so it compatible with older operating systems\n"
"which may still need print services. While quite powerful, the basic setup\n"
"is almost as easy as \"pdq\". If you need to emulate a \"lpd\" server, make\n"
"sure you turn on the \"cups-lpd \" daemon. \"%s\" includes graphical\n"
"front-ends for printing or choosing printer options and for managing the\n"
"printer.\n"
"\n"
"If you make a choice now, and later find that you don't like your printing\n"
"system you may change it by running PrinterDrake from the Mandrake Control\n"
"Center and clicking the expert button."
msgstr ""
"Ahora es el momento de seleccionar un sistema de impresión para su\n"
"computadora. Otros sistemas operativos pueden ofrecerle uno, pero Mandrake\n"
"Linux le ofrece dos. Cada uno de los sistemas de impresión es mejor para un\n"
"tipo de configuración particular.\n"
"\n"
" * \"%s\" - \"print, don't queue\" (imprimir sin poner en cola) es la\n"
"elección si Usted tiene una conexión directa a su impresora y desea evitar\n"
"el pánico de los papeles trabados, y no tiene impresora en red alguna\n"
"(\"%s\" manejará sólo casos de red muy simples y es algo lento cuando se\n"
"utiliza con las redes) Se recomienda utilizar \"pdq\" si esta es su primer\n"
"experiencia con GNU/Linux.\n"
"\n"
" * \"%s\" - \"Common Unix Printing System\" (Sistema de Impresión Común de\n"
"Unix) es una elección excelente para imprimir en su impresora local o en\n"
"una en la otra punta del planeta. Es simple de configurar y puede actuar\n"
"como servidor o cliente para el sistema de impresión antiguo \"lpd\", por\n"
"lo que es compatible con sistemas operativos más antiguos que todavía\n"
"pueden necesitar servicios de impresión. Si bien es bastante potente, la\n"
"configuración básica es tan simple como la de \"pdq\". Si necesita que\n"
"emule a un servidor \"lpd\", debe activar el demonio \"cups-lpd\". \"%s\"\n"
"incluye interfaces gráficas para imprimir o elegir las opciones de la\n"
"impresora y para administrar la impresora.\n"
"\n"
"Si hace una elección ahora y más tarde encuentra que a Usted no le gusta su\n"
"sistema de impresión, puede cambiarlo ejecutando PrinterDrake desde el\n"
"Centro de Control de Mandrake y haciendo clic sobre el botón para expertos."

# DO NOT BOTHER TO MODIFY HERE, SEE:
# cvs.mandrakesoft.com:/cooker/doc/manualB/modules/es/drakx-chapter.xml
msgid ""
"It is now time to specify which programs you wish to install on your\n"
"system. There are thousands of packages available for Mandrake Linux, and\n"
"to make it simpler to manage the packages have been placed into groups of\n"
"similar applications.\n"
"\n"
"Packages are sorted into groups corresponding to a particular use of your\n"
"machine. Mandrake Linux has four predefined installations available. You\n"
"can think of these installation classes as containers for various packages.\n"
"You can mix and match applications from the various groups, so a\n"
"``Workstation'' installation can still have applications from the\n"
"``Development'' group installed.\n"
"\n"
" * \"%s\": if you plan to use your machine as a workstation, select one or\n"
"more of the applications that are in the workstation group.\n"
"\n"
" * \"%s\": if plan on using your machine for programming, choose the\n"
"appropriate packages from that group.\n"
"\n"
" * \"%s\": if your machine is intended to be a server, select which of the\n"
"more common services you wish to install on your machine.\n"
"\n"
" * \"%s\": this is where you will choose your preferred graphical\n"
"environment. At least one must be selected if you want to have a graphical\n"
"interface available.\n"
"\n"
"Moving the mouse cursor over a group name will display a short explanatory\n"
"text about that group. If you unselect all groups when performing a regular\n"
"installation (as opposed to an upgrade), a dialog will pop up proposing\n"
"different options for a minimal installation:\n"
"\n"
" * \"%s\": install the minimum number of packages possible to have a\n"
"working graphical desktop.\n"
"\n"
" * \"%s\": installs the base system plus basic utilities and their\n"
"documentation. This installation is suitable for setting up a server.\n"
"\n"
" * \"%s\": will install the absolute minimum number of packages necessary\n"
"to get a working Linux system. With this installation you will only have a\n"
"command line interface. The total size of this installation is about 65\n"
"megabytes.\n"
"\n"
"You can check the \"%s\" box, which is useful if you are familiar with the\n"
"packages being offered or if you want to have total control over what will\n"
"be installed.\n"
"\n"
"If you started the installation in \"%s\" mode, you can unselect all groups\n"
"to avoid installing any new package. This is useful for repairing or\n"
"updating an existing system."
msgstr ""
"Ahora es el momento de especificar los programas que desea instalar en su\n"
"sistema. Hay miles de paquetes disponibles para Mandrake Linux, y para\n"
"hacer más simple el manejo de los paquetes, los mismos se han puesto en\n"
"grupos de aplicaciones similares.\n"
"\n"
"Los paquetes se ordenan en grupos que corresponden a un uso particular de\n"
"su máquina. Mandrake Linux tiene cuatro instalaciones predefinidas\n"
"disponibles. Puede pensar en estas clases de instalación como contenedores\n"
"para los distintos paquetes. Puede mezclar y hacer coincidir aplicaciones\n"
"de varios grupos, por lo que una instalación de \"Estación de trabajo\"\n"
"puede tener instaladas aplicaciones del grupo \"Desarrollo\".\n"
"\n"
" * \"%s\": si planifica utilizar su máquina como una estación de trabajo,\n"
"seleccione una o más aplicaciones del grupo estación de trabajo.\n"
"\n"
" * \"%s\": si la máquina se utilizará para programación, elija los paquetes\n"
"apropiados de ese grupo.\n"
"\n"
" * \"%s\": si pretende usar la máquina como un servidor, seleccione cuáles\n"
"de los servicios más comunes desea instalar en su máquina.\n"
"\n"
" * \"%s\": aquí es donde seleccionará su entorno gráfico preferido. Si\n"
"desea tener una estación de trabajo gráfica, debe seleccionar al menos uno.\n"
"\n"
"Si mueve el cursor del ratón sobre el nombre de un grupo se mostrará un\n"
"pequeño texto explicativo acerca de ese grupo. Si deselecciona todos los\n"
"grupos cuando está realizando una instalación regular (es decir, no una\n"
"actualización), aparecerá un diálogo que propone opciones diferentes para\n"
"una instalación mínima:\n"
"\n"
" * \"%s\": instala la menor cantidad de paquetes posible para tener un\n"
"escritorio gráfico que funcione.\n"
"\n"
" * \"%s\": instala el sistema base más algunos utilitarios básicos y la\n"
"documentación de los mismos. Esta instalación es adecuada para configurar\n"
"un servidor.\n"
"\n"
" * \"%s\": instalará el mínimo necesario estricto para obtener un sistema\n"
"Linux que funciona. Con esta instalación sólo tendrá una interfaz de línea\n"
"de comandos. Esta instalación ocupa alrededor de 65 MB.\n"
"\n"
"Puede marcar la casilla \"%s\" que es útil si está familiarizado con los\n"
"paquetes que se ofrecen, o si desea tener un control total sobre lo que se\n"
"instalará.\n"
"\n"
"Si inició la instalación en el modo \"%s\" puede deseleccionar todos los\n"
"grupos para evitar instalar cualquier paquete nuevo. Esto es útil para\n"
"reparar o actualizar un sistema existente."

# DO NOT BOTHER TO MODIFY HERE, SEE:
# cvs.mandrakesoft.com:/cooker/doc/manualB/modules/es/drakx-chapter.xml
msgid ""
"The Mandrake Linux installation is distributed on several CD-ROMs. DrakX\n"
"knows if a selected package is located on another CD-ROM so it will eject\n"
"the current CD and ask you to insert the correct CD as required."
msgstr ""
"La instalación de Mandrake Linux se divide en varios CD-ROM. DrakX sabe si\n"
"un paquete seleccionado se encuentra en otro CD por lo que expulsará el CD\n"
"corriente y le pedirá que inserte el CD correcto cuando sea necesario."

# DO NOT BOTHER TO MODIFY HERE, SEE:
# cvs.mandrakesoft.com:/cooker/doc/manualB/modules/es/drakx-chapter.xml
msgid ""
"This is the most crucial decision point for the security of your GNU/Linux\n"
"system: you have to enter the \"root\" password. \"Root\" is the system\n"
"administrator and is the only user authorized to make updates, add users,\n"
"change the overall system configuration, and so on. In short, \"root\" can\n"
"do everything! That is why you must choose a password that is difficult to\n"
"guess - DrakX will tell you if the password that you chose too easy. As you\n"
"can see, you are not forced to enter a password, but we strongly advise you\n"
"against this. GNU/Linux is just as prone to operator error as any other\n"
"operating system. Since \"root\" can overcome all limitations and\n"
"unintentionally erase all data on partitions by carelessly accessing the\n"
"partitions themselves, it is important that it be difficult to become\n"
"\"root\".\n"
"\n"
"The password should be a mixture of alphanumeric characters and at least 8\n"
"characters long. Never write down the \"root\" password -- it makes it far\n"
"too easy to compromise a system.\n"
"\n"
"One caveat -- do not make the password too long or complicated because you\n"
"must be able to remember it!\n"
"\n"
"The password will not be displayed on screen as you type it in. To reduce\n"
"the chance of a blind typing error you will need to enter the password\n"
"twice. If you do happen to make the same typing error twice, this\n"
"``incorrect'' password will be the one you will have use the first time you\n"
"connect.\n"
"\n"
"If you wish access to this computer to be controlled by an authentication\n"
"server, click the \"%s\" button.\n"
"\n"
"If your network uses either LDAP, NIS, or PDC Windows Domain authentication\n"
"services, select the appropriate one for \"%s\". If you do not know which\n"
"one to use, you should ask your network administrator.\n"
"\n"
"If you happen to have problems with remembering passwords, if your computer\n"
"will never be connected to the internet or that you absolutely trust\n"
"everybody who uses your computer, you can choose to have \"%s\"."
msgstr ""
"Este es el punto de decisión más crucial para la seguridad de su sistema\n"
"GNU/Linux: tendrá que ingresar la contraseña de \"root\". El usuario\n"
"\"root\" es el administrador del sistema y es el único autorizado a hacer\n"
"actualizaciones, agregar usuarios, cambiar la configuración general del\n"
"sistema, etc. Resumiendo, ¡\"root\" puede hacer de todo! Es por esto que\n"
"deberá elegir una contraseña que sea difícil de adivinar - DrakX le dirá si\n"
"la que eligió es demasiado fácil. Como puede ver no es forzoso ingresar una\n"
"contraseña, pero le recomendamos encarecidamente que ingrese una. GNU/Linux\n"
"es tan propenso a errores del operador como cualquier otro sistema\n"
"operativo. Es importante que sea difícil convertirse en \"root\" debido a\n"
"que \"root\" puede sobrepasar todas las limitaciones y borrar, sin\n"
"intención, todos los datos que se encuentran en las particiones accediendo\n"
"a las mismas sin el cuidado suficiente.\n"
"\n"
"La contraseña debería ser una mezcla de caracteres alfanuméricos y tener al\n"
"menos una longitud de 8 caracteres. Nunca escriba la contraseña de \"root\"\n"
"- por ejemplo, en un papel - eso hace que sea muy fácil comprometer a un\n"
"sistema.\n"
"\n"
"Sin embargo, no debería hacer la contraseña muy larga o complicada ¡debido\n"
"a que Usted debe poder recordarla!\n"
"\n"
"La contraseña no se mostrará en la pantalla a medida que Usted la teclee.\n"
"Por lo tanto tendrá que teclear la contraseña dos veces para reducir la\n"
"posibilidad de un error de tecleo. Si ocurre que Usted comete dos veces el\n"
"mismo error de tecleo, tendrá que utilizar esta contraseña \"incorrecta\"\n"
"la primera vez que se conecte.\n"
"\n"
"Si desea que el acceso a esta computadora esté controlado por un servidor\n"
"de autenticación, haga clic sobre el botón \"%s\".\n"
"\n"
"Si su red usa los protocolos LDAP, NIS, o servicios de autenticación de PDC\n"
"Dominio de Windows, seleccione el botón apropiado como método de\n"
"autenticación. Si no sabe cual utilizar, debería preguntar al administrador\n"
"de su red.\n"
"\n"
"Si ocurre que tiene problemas para recordar contraseñas, puede elegir el\n"
"botón \"%s\", si es que su computadora nunca estará conectada a la Internet\n"
"o Usted confía absolutamente en cualquier persona que tenga acceso a la\n"
"misma."

# DO NOT BOTHER TO MODIFY HERE, SEE:
# cvs.mandrakesoft.com:/cooker/doc/manualB/modules/es/drakx-chapter.xml
msgid ""
"Click on \"%s\" if you want to delete all data and partitions present on\n"
"this hard drive. Be careful, after clicking on \"%s\", you will not be able\n"
"to recover any data and partitions present on this hard drive, including\n"
"any Windows data.\n"
"\n"
"Click on \"%s\" to stop this operation without losing any data and\n"
"partitions present on this hard drive."
msgstr ""
"Haga clic sobre \"%s\" si desea borrar todos los datos y particiones\n"
"presentes en esta unidad de disco. Tenga cuidado, luego de hacer clic sobre\n"
"\"%s\", no podrá recuperar los datos y las particiones presentes en esta\n"
"unidad de disco, incluyendo los datos de Windows.\n"
"\n"
"Haga clic sobre \"%s\" para detener esta operación sin perder los datos ni\n"
"las particiones presentes en esta unidad de disco."

# DO NOT BOTHER TO MODIFY HERE, SEE:
# cvs.mandrakesoft.com:/cooker/doc/manualB/modules/es/drakx-chapter.xml
msgid ""
"If you told the installer that you wanted to individually select packages,\n"
"it will present a tree containing all packages classified by groups and\n"
"subgroups. While browsing the tree, you can select entire groups,\n"
"subgroups, or individual packages.\n"
"\n"
"Whenever you select a package on the tree, a description appears on the\n"
"right to let you know the purpose of the package.\n"
"\n"
"!! If a server package has been selected, either because you specifically\n"
"chose the individual package or because it was part of a group of packages,\n"
"you will be asked to confirm that you really want those servers to be\n"
"installed. By default Mandrake Linux will automatically start any installed\n"
"services at boot time. Even if they are safe and have no known issues at\n"
"the time the distribution was shipped, it is entirely possible that that\n"
"security holes were discovered after this version of Mandrake Linux was\n"
"finalized. If you do not know what a particular service is supposed to do\n"
"or why it is being installed, then click \"%s\". Clicking \"%s\" will\n"
"install the listed services and they will be started automatically by\n"
"default during boot. !!\n"
"\n"
"The \"%s\" option is used to disable the warning dialog which appears\n"
"whenever the installer automatically selects a package to resolve a\n"
"dependency issue. Some packages have relationships between each other such\n"
"that installation of a package requires that some other program is also\n"
"rerquired to be installed. The installer can determine which packages are\n"
"required to satisfy a dependency to successfully complete the installation.\n"
"\n"
"The tiny floppy disk icon at the bottom of the list allows you to load a\n"
"package list created during a previous installation. This is useful if you\n"
"have a number of machines that you wish to configure identically. Clicking\n"
"on this icon will ask you to insert a floppy disk previously created at the\n"
"end of another installation. See the second tip of last step on how to\n"
"create such a floppy."
msgstr ""
"Si le dijo al instalador que deseaba seleccionar los paquetes individuales,\n"
"el mismo presentará un árbol que contiene todos los paquetes clasificados\n"
"por grupos y subgrupos. Mientras navega por el árbol puede seleccionar\n"
"grupos enteros, subgrupos, o paquetes individuales.\n"
"\n"
"Tan pronto como selecciona un paquete en el árbol, aparece una descripción\n"
"del mismo sobre la derecha que le permite conocer el propósito del paquete.\n"
"\n"
"Es muy probable que la gran mayoría de las descripciones de los paquetes\n"
"estén en inglés.\n"
"\n"
"!! Si ha sido seleccionado un paquete de servidor ya sea porque Usted\n"
"seleccionó específicamente el paquete individual o porque el mismo era\n"
"parte de un grupo de paquetes, se le pedirá que confirme que realmente\n"
"desea que se instalen esos servidores. Bajo Mandrake Linux, cualquier\n"
"servidor instalado se inicia de manera predeterminada al momento del\n"
"arranque. Aunque estos son seguros y no tienen problemas conocidos al\n"
"momento en que se publicó la distribución, es posible que se descubran\n"
"vulnerabilidades en la seguridad luego que se terminó con esta versión de\n"
"Mandrake Linux. En particular, si no sabe que es lo que se supone que hace\n"
"un servicio o la razón por la cual se está instalando, entonces haga clic\n"
"sobre \"%s\". Si hace clic sobre \"%s\" se instalarán todos los servicios\n"
"listados y de manera predeterminada los mismos arrancarán automáticamente.\n"
"!!\n"
"\n"
"La opción \"%s\" simplemente deshabilita el diálogo de advertencia que\n"
"aparece cuando el instalador selecciona automáticamente un paquete para\n"
"resolver un problema de dependencias. Algunos paquetes tienen relaciones\n"
"entre ellos tales que la instalación de un paquete necesita que algún otro\n"
"programa ya esté instalado. El instalador puede determinar qué paquetes se\n"
"necesitan para satisfacer una dependencia para completar la instalación de\n"
"manera satisfactoria.\n"
"\n"
"El pequeño icono del disquete al final de la lista le permite cargar la\n"
"lista de paquetes elegida durante una instalación previa. Esto es útil si\n"
"Usted tiene una cantidad de máquinas que desea configurar de manera\n"
"idéntica. Haga clic sobre este icono y se le pedirá que inserte un disquete\n"
"creado con anterioridad al final de otra instalación. Vea el segundo\n"
"consejo del último paso para información sobre como crear dicho disquete."

# DO NOT BOTHER TO MODIFY HERE, SEE:
# cvs.mandrakesoft.com:/cooker/doc/manualB/modules/es/drakx-chapter.xml
msgid ""
"LILO and grub are GNU/Linux bootloaders. Normally, this stage is totally\n"
"automated. DrakX will analyze the disk boot sector and act according to\n"
"what it finds there:\n"
"\n"
" * if a Windows boot sector is found, it will replace it with a grub/LILO\n"
"boot sector. This way you will be able to load either GNU/Linux or another\n"
"OS.\n"
"\n"
" * if a grub or LILO boot sector is found, it will replace it with a new\n"
"one.\n"
"\n"
"If it cannot make a determination, DrakX will ask you where to place the\n"
"bootloader."
msgstr ""
"LILO y grub son cargadores de arranque para GNU/Linux. Normalmente esta\n"
"etapa está completamente automatizada. DrakX analizará el sector de\n"
"arranque del disco y actuará en función de lo que encuentre allí:\n"
"\n"
" * si encuentra un sector de arranque de Windows, lo reemplazará con un\n"
"sector de arranque de grub/LILO de forma tal que Usted pueda cargar\n"
"GNU/Linux u otro sistema operativo;\n"
"\n"
" * si encuentra un sector de arranque de grub o LILO, lo reemplazará con\n"
"uno nuevo;\n"
"\n"
"Si no puede realizar una determinación, DrakX le preguntará dónde colocar\n"
"el cargador de arranque."

# DO NOT BOTHER TO MODIFY HERE, SEE:
# cvs.mandrakesoft.com:/cooker/doc/manualB/modules/es/drakx-chapter.xml
msgid ""
"DrakX will first detect any IDE devices present in your computer. It will\n"
"also scan for one or more PCI SCSI cards on your system. If a SCSI card is\n"
"found, DrakX will automatically install the appropriate driver.\n"
"\n"
"Because hardware detection is not foolproof, DrakX may fail in detecting\n"
"your hard drives. If so, you'll have to specify your hardware by hand.\n"
"\n"
"If you had to manually specify your PCI SCSI adapter, DrakX will ask if you\n"
"want to configure options for it. You should allow DrakX to probe the\n"
"hardware for the card-specific options which are needed to initialize the\n"
"adapter. Most of the time, DrakX will get through this step without any\n"
"issues.\n"
"\n"
"If DrakX is not able to probe for the options to automatically determine\n"
"which parameters need to be passed to the hardware, you'll need to manually\n"
"configure the driver."
msgstr ""
"DrakX primero detectará cualquier dispositivo IDE presente en su\n"
"computadora. También buscará una o más tarjetas SCSI PCI en su sistema. Si\n"
"se encuentra una tarjeta SCSI, DrakX instalará el controlador apropiado\n"
"automáticamente.\n"
"\n"
"Debido a que la detección de hardware a veces puede no detectar alguna\n"
"pieza de hardware, DrakX puede no detectar sus discos rígidos. De ser así,\n"
"tendrá que especificar su hardware a mano.\n"
"\n"
"Si tiene que seleccionar su adaptador SCSI PCI manualmente, DrakX le\n"
"preguntará si desea especificar opciones para el mismo. Debería permitir\n"
"que DrakX sondee el hardware buscando las opciones específicas necesarias\n"
"para inicializar el adaptador. La mayoría de las veces, DrakX pasará esta\n"
"etapa sin problema alguno.\n"
"\n"
"Si DrakX no puede sondear las opciones para determinar automáticamente qué\n"
"parámetros deben pasarse, necesitará configurar manualmente el controlador."

# DO NOT BOTHER TO MODIFY HERE, SEE:
# cvs.mandrakesoft.com:/cooker/doc/manualB/modules/es/drakx-chapter.xml
msgid ""
"You can add additional entries in yaboot for other operating systems,\n"
"alternate kernels, or for an emergency boot image.\n"
"\n"
"For other OSs, the entry consists only of a label and the \"root\"\n"
"partition.\n"
"\n"
"For Linux, there are a few possible options:\n"
"\n"
" * Label: this is the name you will have to type at the yaboot prompt to\n"
"select this boot option.\n"
"\n"
" * Image: this is the name of the kernel to boot. Typically, vmlinux or a\n"
"variation of vmlinux with an extension.\n"
"\n"
" * Root: the \"root\" device or ``/'' for your Linux installation.\n"
"\n"
" * Append: on Apple hardware, the kernel append option is often used to\n"
"assist in initializing video hardware, or to enable keyboard mouse button\n"
"emulation for the missing 2nd and 3rd mouse buttons on a stock Apple mouse.\n"
"The following are some examples:\n"
"\n"
"         video=aty128fb:vmode:17,cmode:32,mclk:71 adb_buttons=103,111\n"
"hda=autotune\n"
"\n"
"         video=atyfb:vmode:12,cmode:24 adb_buttons=103,111\n"
"\n"
" * Initrd: this option can be used either to load initial modules before\n"
"the boot device is available, or to load a ramdisk image for an emergency\n"
"boot situation.\n"
"\n"
" * Initrd-size: the default ramdisk size is generally 4096 Kbytes. If you\n"
"need to allocate a large ramdisk, this option can be used to specify a\n"
"ramdisk larger than the default.\n"
"\n"
" * Read-write: normally the \"root\" partition is initially mounted as\n"
"read-only, to allow a file system check before the system becomes ``live''.\n"
"You can override the default with this option.\n"
"\n"
" * NoVideo: should the Apple video hardware prove to be exceptionally\n"
"problematic, you can select this option to boot in ``novideo'' mode, with\n"
"native frame buffer support.\n"
"\n"
" * Default: selects this entry as being the default Linux selection,\n"
"selectable by pressing ENTER at the yaboot prompt. This entry will also be\n"
"highlighted with a ``*'' if you press [Tab] to see the boot selections."
msgstr ""
"Puede agregar entradas adicionales para Yaboot, ya sea para otros sistemas\n"
"operativos, núcleos alternativos, o para una imagen de arranque de\n"
"emergencia.\n"
"\n"
"Para otros sistemas operativos, la entrada consiste sólo de una etiqueta y\n"
"la partición raíz.\n"
"\n"
"Para Linux, hay algunas opciones posibles:\n"
"\n"
" * Etiqueta: esta es simplemente el nombre que deberá teclear en el prompt\n"
"de yaboot para seleccionar esta opción de arranque.\n"
"\n"
" * Imagen: esta debería ser el nombre del núcleo a arrancar. Típicamente,\n"
"vmlinux o una variación de vmlinux con una extensión.\n"
"\n"
" * Raíz: el dispositivo \"root\" o \"/\" para su instalación Linux.\n"
"\n"
" * Añadir: la opción de añadir al núcleo se usa bastante sobre el hardware\n"
"Apple para asistir en la inicialización del hardware de vídeo, o para\n"
"habilitar la emulación de los botones del ratón con el teclado para los\n"
"botones 2do y 3ro del ratón que por lo general no tienen los ratones\n"
"estándar de Apple. Algunos ejemplos son los siguientes:\n"
"\n"
"   	video=aty128fb:vmode:17,cmode:32,mclk:71 adb_buttons=103,111\n"
"hda=autotune\n"
"\n"
"   	video=atyfb:vmode:12,cmode:24 adb_buttons=103,111\n"
"\n"
" * Initrd: esta opción se puede usar o bien para cargar los módulos\n"
"iniciales, antes que esté disponible el dispositivo de arranque, o bien\n"
"cargar una imagen de ramdisk para una situación de arranque de emergencia.\n"
"\n"
" * Tamaño de Initrd: generalmente el tamaño por defecto del ramdisk es 4096\n"
"bytes. Puede usar esta opción si necesita asignar un ramdisk mayor.\n"
"\n"
" * Lectura-Escritura: normalmente la partición \"root\" se levanta en modo\n"
"de sólo lectura, para permitir una verificación del sistema de archivos\n"
"antes que el sistema se levante por completo. Aquí puede cambiar esta\n"
"opción.\n"
"\n"
" * NoVideo: en caso que el hardware de vídeo de Apple sea excepcionalmente\n"
"problemático, puede seleccionar esta opción para arrancar en el modo\n"
"\"novideo\", con soporte nativo para el frame-buffer.\n"
"\n"
" * Predeterminada: selecciona a esta entrada como la opción Linux por\n"
"defecto, que se puede elegir simplemente presionando [Intro] en el prompt\n"
"de Yaboot. Esta entrada también se marcará con un \"*\", si presiona [Tab]\n"
"para ver las selecciones del arranque."

# DO NOT BOTHER TO MODIFY HERE, SEE:
# cvs.mandrakesoft.com:/cooker/doc/manualB/modules/es/drakx-chapter.xml
msgid ""
"Your choice of preferred language will affect the language of the\n"
"documentation, the installer and the system in general. Select first the\n"
"region you are located in, and then the language you speak.\n"
"\n"
"Clicking on the \"%s\" button will allow you to select other languages to\n"
"be installed on your workstation, thereby installing the language-specific\n"
"files for system documentation and applications. For example, if you will\n"
"host users from Spain on your machine, select English as the default\n"
"language in the tree view and \"%s\" in the Advanced section.\n"
"\n"
"Note that you're not limited to choosing a single additional language. You\n"
"may choose several ones, or even install them all by selecting the \"%s\"\n"
"box. Selecting support for a language means translations, fonts, spell\n"
"checkers, etc. for that language will be installed. Additionally, the\n"
"\"%s\" checkbox allows you to force the system to use unicode (UTF-8). Note\n"
"however that this is an experimental feature. If you select different\n"
"languages requiring different encoding the unicode support will be\n"
"installed anyway.\n"
"\n"
"To switch between the various languages installed on the system, you can\n"
"launch the \"/usr/sbin/localedrake\" command as \"root\" to change the\n"
"language used by the entire system. Running the command as a regular user\n"
"will only change the language settings for that particular user."
msgstr ""
"El primer paso es elegir el idioma de instalación. En el ejemplo se elige\n"
"\"%s\" como región y \"%s\" como idioma.\n"
"\n"
"Su elección de idioma preferido afectará al idioma de la documentación, el\n"
"instalador y el sistema en general. Seleccione primero la región en la que\n"
"se encuentra, y luego el idioma que habla.\n"
"\n"
"Al hacer clic sobre el botón \"%s\" podrá seleccionar otros idiomas para\n"
"instalar en su estación de trabajo, instalando así los archivos específicos\n"
"para esos idiomas para la documentación y las aplicaciones. Por ejemplo, si\n"
"albergará a gente de Francia en su máquina, seleccione Español como idioma\n"
"principal en la vista de árbol y \"%s\" en la sección avanzada.\n"
"\n"
"Note que no está limitado a elegir un único idioma adicional. Puede elegir\n"
"varios, o incluso instalarlos a todos eligiendo la casilla \"%s\".\n"
"Seleccionar el soporte para un idioma significa que se instalarán las\n"
"traducciones, tipografías, correctores ortográficos, etc. para dicho\n"
"idioma. Adicionalmente, la casilla \"%s\" permite que fuerce al sistema a\n"
"utilizar Unicode (UTF-8) Sin embargo, note que esta es una característica\n"
"experimental. Si selecciona diferentes idiomas que necesitan codificaciones\n"
"diferentes, de cualquier manera se instalará el soporte para Unicode.\n"
"\n"
"Para cambiar de un idioma a otro, Usted puede ejecutar el comando\n"
"\"localedrake\". Si lo hace como \"root\" cambiará el idioma todo el\n"
"sistema, si lo hace como usuario no privilegiado cambiará sólo el idioma\n"
"predeterminado de ese usuario."

# DO NOT BOTHER TO MODIFY HERE, SEE:
# cvs.mandrakesoft.com:/cooker/doc/manualB/modules/es/drakx-chapter.xml
msgid ""
"\"%s\": if a sound card is detected on your system, it is displayed here.\n"
"If you notice the sound card displayed is not the one that is actually\n"
"present on your system, you can click on the button and choose another\n"
"driver."
msgstr ""
"\"%s\": si se detecta una tarjeta de sonido en su sistema, la misma se\n"
"muestra aquí. Si nota que la tarjeta de sonido mostrada no es la que está\n"
"realmente instalada en su sistema, puede hacer clic sobre el botón y elegir\n"
"otro controlador."

# DO NOT BOTHER TO MODIFY HERE, SEE:
# cvs.mandrakesoft.com:/cooker/doc/manualB/modules/es/drakx-chapter.xml
msgid ""
"After you have configured the general bootloader parameters, the list of\n"
"boot options that will be available at boot time will be displayed.\n"
"\n"
"If there are other operating systems installed on your machine they will\n"
"automatically be added to the boot menu. You can fine-tune the existing\n"
"options by clicking \"%s\" to create a new entry; selecting an entry and\n"
"clicking \"%s\" or \"%s\" to modify or remove it. \"%s\" validates your\n"
"changes.\n"
"\n"
"You may also not want to give access to these other operating systems to\n"
"anyone who goes to the console and reboots the machine. You can delete the\n"
"corresponding entries for the operating systems to remove them from the\n"
"bootloader menu, but you will need a boot disk in order to boot those other\n"
"operating systems!"
msgstr ""
"Luego que haya configurado los parámetros generales del cargador de\n"
"arranque se mostrará la lista de opciones de arranque que estarán\n"
"disponibles al momento de arrancar.\n"
"\n"
"Si hay otros sistemas operativos instalados en su máquina los mismos se\n"
"agregarán automáticamente al menú de arranque. Aquí puede elegir ajustar\n"
"las opciones existentes haciendo clic sobre \"%s\" para crear una nueva\n"
"entrada; seleccionando una entrada y haciendo clic sobre \"%s\" o \"%s\"\n"
"para modificarla o quitarla. \"%s\" valida sus cambios.\n"
"\n"
"También puede ser que no desee dar acceso a los otros sistemas operativos a\n"
"cualquiera que vaya a la consola y reinicie la máquina. Puede borrar las\n"
"entradas correspondientes para los sistemas operativos para quitarlas del\n"
"menú, pero ¡necesitará un disquete de arranque para poder arrancar esos\n"
"otros sistemas operativos!"

# DO NOT BOTHER TO MODIFY HERE, SEE:
# cvs.mandrakesoft.com:/cooker/doc/manualB/modules/es/drakx-chapter.xml
msgid ""
"Choose the hard drive you want to erase in order to install your new\n"
"Mandrake Linux partition. Be careful, all data present on this partition\n"
"will be lost and will not be recoverable!"
msgstr ""
"Elija la unidad de disco que desea borrar para instalar su partición\n"
"Mandrake Linux nueva. Tenga cuidado, ¡se perderán todos los datos de la\n"
"misma y no se podrán recuperar!."

# DO NOT BOTHER TO MODIFY HERE, SEE:
# cvs.mandrakesoft.com:/cooker/doc/manualB/modules/es/drakx-chapter.xml
msgid ""
"\"%s\": clicking on the \"%s\" button will open the printer configuration\n"
"wizard. Consult the corresponding chapter of the ``Starter Guide'' for more\n"
"information on how to setup a new printer. The interface presented there is\n"
"similar to the one used during installation."
msgstr ""
"\"%s\": al hacer clic sobre el botón \"%s\" se abrirá el asistente de\n"
"configuración de la impresora. Consulte el capítulo correspondiente de la\n"
"\"Guía de Comienzo\" para más información sobre cómo configurar una\n"
"impresora nueva. La interfaz presentada allí es similar a la utilizada\n"
"durante la instalación."

# DO NOT BOTHER TO MODIFY HERE, SEE:
# cvs.mandrakesoft.com:/cooker/doc/manualB/modules/es/drakx-chapter.xml
msgid ""
"Options\n"
"\n"
"   Here you can choose whether you want to have your machine automatically\n"
"switch to a graphical interface at boot. Obviously, you want to check\n"
"\"%s\" if your machine is to act as a server, or if you were not successful\n"
"in getting the display configured."
msgstr ""
"Opciones\n"
"\n"
"   Aquí puede elegir si desea que su máquina cambie automáticamente a la\n"
"interfaz gráfica al arrancar. Obviamente, querrá marcar \"%s\" si su\n"
"sistema actuará como servidor, o si no tuvo éxito en la configuración de su\n"
"pantalla."

# DO NOT BOTHER TO MODIFY HERE, SEE:
# cvs.mandrakesoft.com:/cooker/doc/manualB/modules/es/drakx-chapter.xml
msgid ""
"Please select the correct port. For example, the \"COM1\" port under\n"
"Windows is named \"ttyS0\" under GNU/Linux."
msgstr ""
"Por favor seleccione el puerto correcto. Por ejemplo, el puerto \"COM1\"\n"
"bajo Windows se denomina \"ttyS0\" bajo GNU/Linux."

# DO NOT BOTHER TO MODIFY HERE, SEE:
# cvs.mandrakesoft.com:/cooker/doc/manualB/modules/es/drakx-chapter.xml
msgid ""
"At this point, DrakX will allow you to choose the security level desired\n"
"for the machine. As a rule of thumb, the security level should be set\n"
"higher if the machine will contain crucial data, or if it will be a machine\n"
"directly exposed to the Internet. The trade-off of a higher security level\n"
"is generally obtained at the expense of ease of use.\n"
"\n"
"If you do not know what to choose, stay with the default option."
msgstr ""
"En este punto, DrakX le permitirá elegir el nivel de seguridad deseado para\n"
"la máquina. Como regla general, el nivel de seguridad debería ser mayor\n"
"cuanto más cruciales sean los datos que tenga almacenados, o si la máquina\n"
"estará directamente expuesta a la Internet. No obstante, un nivel de\n"
"seguridad más alto generalmente se obtiene a expensas de la facilidad de\n"
"uso.\n"
"\n"
"Si no sabe cual elegir, no cambie la opción predeterminada."

# DO NOT BOTHER TO MODIFY HERE, SEE:
# cvs.mandrakesoft.com:/cooker/doc/manualB/modules/es/drakx-chapter.xml
msgid ""
"As a review, DrakX will present a summary of information it has about your\n"
"system. Depending on your installed hardware, you may have some or all of\n"
"the following entries. Each entry is made up of the configuration item to\n"
"be configured, followed by a quick summary of the current configuration.\n"
"Click on the corresponding \"%s\" button to change that.\n"
"\n"
" * \"%s\": check the current keyboard map configuration and change that if\n"
"necessary.\n"
"\n"
" * \"%s\": check the current country selection. If you are not in this\n"
"country, click on the \"%s\" button and choose another one. If your country\n"
"is not in the first list shown, click the \"%s\" button to get the complete\n"
"country list.\n"
"\n"
" * \"%s\": By default, DrakX deduces your time zone based on the country\n"
"you have chosen. You can click on the \"%s\" button here if this is not\n"
"correct.\n"
"\n"
" * \"%s\": check the current mouse configuration and click on the button to\n"
"change it if necessary.\n"
"\n"
" * \"%s\": clicking on the \"%s\" button will open the printer\n"
"configuration wizard. Consult the corresponding chapter of the ``Starter\n"
"Guide'' for more information on how to setup a new printer. The interface\n"
"presented there is similar to the one used during installation.\n"
"\n"
" * \"%s\": if a sound card is detected on your system, it is displayed\n"
"here. If you notice the sound card displayed is not the one that is\n"
"actually present on your system, you can click on the button and choose\n"
"another driver.\n"
"\n"
" * \"%s\": by default, DrakX configures your graphical interface in\n"
"\"800x600\" or \"1024x768\" resolution. If that does not suit you, click on\n"
"\"%s\" to reconfigure your graphical interface.\n"
"\n"
" * \"%s\": if a TV card is detected on your system, it is displayed here.\n"
"If you have a TV card and it is not detected, click on \"%s\" to try to\n"
"configure it manually.\n"
"\n"
" * \"%s\": if an ISDN card is detected on your system, it will be displayed\n"
"here. You can click on \"%s\" to change the parameters associated with the\n"
"card.\n"
"\n"
" * \"%s\": If you want to configure your Internet or local network access\n"
"now.\n"
"\n"
" * \"%s\": this entry allows you to redefine the security level as set in a\n"
"previous step ().\n"
"\n"
" * \"%s\": if you plan to connect your machine to the Internet, it's a good\n"
"idea to protect yourself from intrusions by setting up a firewall. Consult\n"
"the corresponding section of the ``Starter Guide'' for details about\n"
"firewall settings.\n"
"\n"
" * \"%s\": if you wish to change your bootloader configuration, click that\n"
"button. This should be reserved to advanced users.\n"
"\n"
" * \"%s\": here you'll be able to fine control which services will be run\n"
"on your machine. If you plan to use this machine as a server it's a good\n"
"idea to review this setup."
msgstr ""
"A manera de revisión, DrakX presentará un resumen de las distintas\n"
"informaciones que tiene acerca de su sistema. Dependiendo del hardware\n"
"instalado puede tener algunas o todas las entradas siguientes. Cada entrada\n"
"está compuesta del elemento de configuración a configurar, seguido de un\n"
"pequeño resumen de la configuración corriente. Haga clic sobre el botón\n"
"\"%s\" correspondiente para cambiar eso.\n"
"\n"
" * \"%s\": verifique la configuración de la disposición corriente del\n"
"teclado y cámbiela si es necesario.\n"
"\n"
" * \"%s\": verifique la selección corriente del país. Si Usted no se\n"
"encuentra en este país haga clic sobre el botón \"%s\" y elija otro. Si su\n"
"país no se muestra en la primer lista haga clic sobre el botón \"%s\" para\n"
"obtener la lista completa de países.\n"
"\n"
" * \"%s\": De manera predeterminada DrakX deduce su huso horario basándose\n"
"en el país que ha elegido. Puede hacer clic sobre el botón \"%s\" si esto\n"
"no es correcto.\n"
"\n"
" * \"%s\": verifique la configuración del ratón y haga clic sobre el botón\n"
"para cambiarla, si es necesario.\n"
"\n"
" * \"%s\": al hacer clic sobre el botón \"%s\" se abrirá el asistente de\n"
"configuración de la impresora. Consulte el capítulo correspondiente de la\n"
"\"Guía de Comienzo\" para más información sobre cómo configurar una\n"
"impresora nueva. La interfaz presentada allí es similar a la utilizada\n"
"durante la instalación.\n"
"\n"
" * \"%s\": si se detecta una tarjeta de sonido en su sistema, la misma se\n"
"muestra aquí. Si nota que la tarjeta de sonido mostrada no es la que está\n"
"realmente instalada en su sistema, puede hacer clic sobre el botón y elegir\n"
"otro controlador.\n"
"\n"
" * \"%s\": de manera predeterminada DrakX configura su interfaz gráfica en\n"
"\"800x600\" o \"1024x768\" de resolución. Si eso no le satisface, haga clic\n"
"sobre \"%s\" para volver a configurar su interfaz gráfica.\n"
"\n"
" * \"%s\": si se detecta una tarjeta de TV en su sistema, la misma se\n"
"muestra aquí. Si tiene una tarjeta de TV y la misma no se detecta, haga\n"
"clic sobre \"%s\" para intentar configurarla a mano.\n"
"\n"
" * \"%s\": si se detecta una tarjeta RDSI en su sistema, la misma se\n"
"muestra aquí. Puede hacer clic sobre \"%s\" para cambiar los parámetros\n"
"asociados a la misma.\n"
"\n"
" * \"%s\": haga clic sobre \"%s\" si desea configurar ahora el acceso a la\n"
"Internet o a su red local.\n"
"\n"
" * \"%s\": esta entrada le ofrece volver a definir el nivel de seguridad\n"
"como se ajustó en un paso previo ()\n"
"\n"
" * \"%s\": si planifica conectar su máquina a la Internet, es una buena\n"
"idea protegerse de las intrusiones configurando un cortafuegos. Consulte la\n"
"sección correspondiente de la \"Guía de Comienzo\" para detalles acerca de\n"
"los ajustes del cortafuegos.\n"
"\n"
" * \"%s\": si desea cambiar la configuración de su cargador de arranque,\n"
"haga clic sobre ese botón. Esto debería estar reservado para usuarios\n"
"avanzados.\n"
"\n"
" * \"%s\": aquí podrá tener un control fino sobre qué servicios correrán en\n"
"su máquina. Si planifica utilizar esta máquina como servidor es una buena\n"
"idea revisar estos ajustes."

# DO NOT BOTHER TO MODIFY HERE, SEE:
# cvs.mandrakesoft.com:/cooker/doc/manualB/modules/es/drakx-chapter.xml
msgid ""
"In the case that different servers are available for your card, with or\n"
"without 3D acceleration, you are then asked to choose the server that best\n"
"suits your needs."
msgstr ""
"En caso que estén disponibles diferentes servidores para su tarjeta, con o\n"
"sin aceleración de 3D, entonces se le propone elegir el servidor que mejor\n"
"satisface sus necesidades."

# DO NOT BOTHER TO MODIFY HERE, SEE:
# cvs.mandrakesoft.com:/cooker/doc/manualB/modules/es/drakx-chapter.xml
msgid ""
"Usually, DrakX has no problems detecting the number of buttons on your\n"
"mouse. If it does, it assumes you have a two-button mouse and will\n"
"configure it for third-button emulation. The third-button mouse button of a\n"
"two-button mouse can be ``pressed'' by simultaneously clicking the left and\n"
"right mouse buttons. DrakX will automatically know whether your mouse uses\n"
"a PS/2, serial or USB interface.\n"
"\n"
"If for some reason you wish to specify a different type of mouse, select it\n"
"from the list provided.\n"
"\n"
"If you choose a mouse other than the default, a test screen will be\n"
"displayed. Use the buttons and wheel to verify that the settings are\n"
"correct and that the mouse is working correctly. If the mouse is not\n"
"working well, press the space bar or [Return] key to cancel the test and to\n"
"go back to the list of choices.\n"
"\n"
"Wheel mice are occasionally not detected automatically, so you will need to\n"
"select your mouse from a list. Be sure to select the one corresponding to\n"
"the port that your mouse is attached to. After selecting a mouse and\n"
"pressing the \"%s\" button, a mouse image is displayed on-screen. Scroll\n"
"the mouse wheel to ensure that it is activated correctly. Once you see the\n"
"on-screen scroll wheel moving as you scroll your mouse wheel, test the\n"
"buttons and check that the mouse pointer moves on-screen as you move your\n"
"mouse."
msgstr ""
"Por lo general, DrakX no tiene problemas en detectar la cantidad de botones\n"
"que tiene su ratón. En caso contrario, asume que Usted tiene un ratón de\n"
"dos botones y lo configurará para que emule el tercer botón. El tercer\n"
"botón del ratón de un ratón de dos botones se puede \"presionar\" haciendo\n"
"clic simultáneamente sobre el botón izquierdo y el derecho. DrakX sabrá\n"
"automáticamente si su ratón utiliza una interfaz PS/2, serie o USB.\n"
"\n"
"Si, por alguna razón, desea especificar un tipo de ratón diferente,\n"
"selecciónelo de la lista que se proporciona.\n"
"\n"
"Si elige un ratón distinto al predeterminado, se le presentará una pantalla\n"
"de prueba. Use los botones y la rueda para verificar que la configuración\n"
"es correcta y que el ratón está funcionando correctamente. Si el ratón no\n"
"está funcionando bien, presione la barra espaciadora o [Intro] para\n"
"cancelar la prueba y volver a la lista de opciones.\n"
"\n"
"Los ratones con rueda a veces no se detectan automáticamente por lo que\n"
"deberá seleccionar su ratón de una lista. Debe asegurarse de seleccionar el\n"
"correspondiente al puerto en el cual está conectado su ratón. Después de\n"
"seleccionar un ratón y presionar el botón \"%s\", se muestra una imagen de\n"
"un ratón en la pantalla. Mueva la rueda de su ratón para asegurarse que\n"
"está activa correctamente. Una vez que ve que se mueve la rueda en la\n"
"pantalla a medida que mueve la rueda de su ratón, pruebe los botones y\n"
"verifique que el puntero del ratón se mueve en la pantalla a medida que\n"
"mueve su ratón."

# DO NOT BOTHER TO MODIFY HERE, SEE:
# cvs.mandrakesoft.com:/cooker/doc/manualB/modules/es/drakx-chapter.xml
msgid ""
"You will now set up your Internet/network connection. If you wish to\n"
"connect your computer to the Internet or to a local network, click \"%s\".\n"
"Mandrake Linux will attempt to autodetect network devices and modems. If\n"
"this detection fails, uncheck the \"%s\" box. You may also choose not to\n"
"configure the network, or to do it later, in which case clicking the \"%s\"\n"
"button will take you to the next step.\n"
"\n"
"When configuring your network, the available connections options are:\n"
"traditional modem, ISDN modem, ADSL connection, cable modem, and finally a\n"
"simple LAN connection (Ethernet).\n"
"\n"
"We will not detail each configuration option - just make sure that you have\n"
"all the parameters, such as IP address, default gateway, DNS servers, etc.\n"
"from your Internet Service Provider or system administrator.\n"
"\n"
"You can consult the ``Starter Guide'' chapter about Internet connections\n"
"for details about the configuration, or simply wait until your system is\n"
"installed and use the program described there to configure your connection."
msgstr ""
"Ahora se le propone configurar su conexión de red/Internet. Haga clic sobre\n"
"\"%s\" si desea conectar su computadora a la Internet o a una red de área\n"
"local. Mandrake Linux intentará detectar automáticamente los dispositivos\n"
"de red y módems. Si esta detección falla, quite la marca de la casilla\n"
"\"%s\". También puede elegir no configurar la red, o hacerlo más tarde, en\n"
"cuyo caso hacer clic sobre el botón \"%s\" lo llevará al paso siguiente.\n"
"\n"
"Cuando configura su red los tipos de conexión disponibles son: módem\n"
"tradicional, módem RDSI (ISDN), conexión ADSL, cable módem, y finalmente\n"
"una simple conexión LAN (Ethernet).\n"
"\n"
"Aquí no entraremos en detalle en cada opción de configuración - simplemente\n"
"debe asegurarse que su Proveedor de Servicios de Internet o su\n"
"administrador del sistema le proporcionaron todos los parámetros de\n"
"configuración, tales como la dirección IP, la pasarela predeterminada, los\n"
"servidores DNS, etc.\n"
"\n"
"Puede consultar el capítulo de \"Guía de Comienzo\" sobre las conexiones a\n"
"la Internet para detalles acerca de la configuración, o simplemente esperar\n"
"hasta que su sistema esté instalado y usar el programa que se describe allí\n"
"para configurar su conexión."

# DO NOT BOTHER TO MODIFY HERE, SEE:
# cvs.mandrakesoft.com:/cooker/doc/manualB/modules/es/drakx-chapter.xml
msgid ""
"Before continuing, you should carefully read the terms of the license. It\n"
"covers the entire Mandrake Linux distribution. If you do agree with all the\n"
"terms in it, check the \"%s\" box. If not, simply turn off your computer."
msgstr ""
"Antes de continuar, debería leer cuidadosamente los términos de la\n"
"licencia. La misma cubre a toda la distribución Mandrake Linux. Si está de\n"
"acuerdo con todos los términos en la misma, marque la casilla \"%s\". Si\n"
"no, simplemente apague su computadora."

# DO NOT BOTHER TO MODIFY HERE, SEE:
# cvs.mandrakesoft.com:/cooker/doc/manualB/modules/es/drakx-chapter.xml
msgid ""
"Graphic Card\n"
"\n"
"   The installer will normally automatically detect and configure the\n"
"graphic card installed on your machine. If it is not the case, you can\n"
"choose from this list the card you actually have installed.\n"
"\n"
"   In the case that different servers are available for your card, with or\n"
"without 3D acceleration, you are then asked to choose the server that best\n"
"suits your needs."
msgstr ""
"Tarjeta gráfica\n"
"\n"
"   Normalmente el instalador puede detectar y configurar automáticamente la\n"
"tarjeta gráfica instalada en su máquina. Si este no es el caso, en esta\n"
"lista puede elegir la tarjeta que realmente posee.\n"
"\n"
"   En caso que estén disponibles diferentes servidores para su tarjeta, con\n"
"o sin aceleración de 3D, entonces se le propone elegir el servidor que\n"
"mejor satisface sus necesidades."

# DO NOT BOTHER TO MODIFY HERE, SEE:
# cvs.mandrakesoft.com:/cooker/doc/manualB/modules/es/drakx-chapter.xml
msgid ""
"This dialog is used to choose which services you wish to start at boot\n"
"time.\n"
"\n"
"DrakX will list all the services available on the current installation.\n"
"Review each one carefully and uncheck those which are not needed at boot\n"
"time.\n"
"\n"
"A short explanatory text will be displayed about a service when it is\n"
"selected. However, if you are not sure whether a service is useful or not,\n"
"it is safer to leave the default behavior.\n"
"\n"
"!! At this stage, be very careful if you intend to use your machine as a\n"
"server: you will probably not want to start any services that you do not\n"
"need. Please remember that several services can be dangerous if they are\n"
"enabled on a server. In general, select only the services you really need.\n"
"!!"
msgstr ""
"Este diálogo se usa para elegir los servicios que desea iniciar durante el\n"
"arranque.\n"
"\n"
"DrakX listará todos los servicios disponibles con la instalación corriente.\n"
"Debe revisarlos con cuidado y quitar la marca de aquellos que no siempre\n"
"son necesarios al arrancar.\n"
"\n"
"Cuando se selecciona un servicio obtendrá un pequeño texto explicativo\n"
"acerca del mismo. Sin embargo, si no está seguro si un servicio es útil o\n"
"no, es más seguro dejar el comportamiento predeterminado.\n"
"\n"
"!! Tenga mucho cuidado en esta etapa si pretende usar su máquina como un\n"
"servidor: probablemente no deseará arrancar servicios que no necesita. Por\n"
"favor recuerde que varios servicios pueden ser peligrosos si se habilitan\n"
"en un servidor. En general, seleccione sólo aquellos servicios que\n"
"realmente necesita. !!"

# DO NOT BOTHER TO MODIFY HERE, SEE:
# cvs.mandrakesoft.com:/cooker/doc/manualB/modules/es/drakx-chapter.xml
msgid ""
"Monitor\n"
"\n"
"   The installer will normally automatically detect and configure the\n"
"monitor connected to your machine. If it is correct, you can choose from\n"
"this list the monitor you actually have connected to your computer."
msgstr ""
"Monitor\n"
"\n"
"   Normalmente el instalador puede detectar y configurar automáticamente el\n"
"monitor conectado a su máquina. Si este no es el caso, en esta lista puede\n"
"elegir el monitor que realmente posee."

# DO NOT BOTHER TO MODIFY HERE, SEE:
# cvs.mandrakesoft.com:/cooker/doc/manualB/modules/es/drakx-chapter.xml
msgid ""
"GNU/Linux manages time in GMT (Greenwich Mean Time) and translates it to\n"
"local time according to the time zone you selected. If the clock on your\n"
"motherboard is set to local time, you may deactivate this by unselecting\n"
"\"%s\", which will let GNU/Linux know that the system clock and the\n"
"hardware clock are in the same timezone. This is useful when the machine\n"
"also hosts another operating system like Windows.\n"
"\n"
"The \"%s\" option will automatically regulate the clock by connecting to a\n"
"remote time server on the Internet. For this feature to work, you must have\n"
"a working Internet connection. It is best to choose a time server located\n"
"near you. This option actually installs a time server that can used by\n"
"other machines on your local network as well."
msgstr ""
"GNU/Linux administra la hora en GMT (\"Greenwich Mean Time\", Hora del\n"
"Meridiano de Greenwich) y la traduce a la hora local de acuerdo al huso\n"
"horario que Usted seleccionó. Sin embargo, es posible desactivar esto\n"
"quitando la marca de la casilla \"%s\", lo que hará que GNU/Linux sepa que\n"
"el reloj del sistema y el reloj de hardware están en el mismo huso horario.\n"
"Esto es útil cuando la máquina también alberga otro sistema operativo como\n"
"Windows.\n"
"\n"
"La opción \"%s\" regulará automáticamente el reloj conectándose a un\n"
"servidor remoto de la hora en la Internet. Para que esta característica\n"
"funcione debe tener una conexión con la Internet funcionando. En realidad,\n"
"esta opción instala un servidor de la hora que puede ser utilizado por\n"
"otras máquinas en su red local."

# DO NOT BOTHER TO MODIFY HERE, SEE:
# cvs.mandrakesoft.com:/cooker/doc/manualB/modules/es/drakx-chapter.xml
msgid ""
"Listed here are the existing Linux partitions detected on your hard drive.\n"
"You can keep the choices made by the wizard, since they are good for most\n"
"common installations. If you make any changes, you must at least define a\n"
"root partition (\"/\"). Do not choose too small a partition or you will not\n"
"be able to install enough software. If you want to store your data on a\n"
"separate partition, you will also need to create a \"/home\" partition\n"
"(only possible if you have more than one Linux partition available).\n"
"\n"
"Each partition is listed as follows: \"Name\", \"Capacity\".\n"
"\n"
"\"Name\" is structured: \"hard drive type\", \"hard drive number\",\n"
"\"partition number\" (for example, \"hda1\").\n"
"\n"
"\"Hard drive type\" is \"hd\" if your hard drive is an IDE hard drive and\n"
"\"sd\" if it is a SCSI hard drive.\n"
"\n"
"\"Hard drive number\" is always a letter after \"hd\" or \"sd\". For IDE\n"
"hard drives:\n"
"\n"
" * \"a\" means \"master hard drive on the primary IDE controller\";\n"
"\n"
" * \"b\" means \"slave hard drive on the primary IDE controller\";\n"
"\n"
" * \"c\" means \"master hard drive on the secondary IDE controller\";\n"
"\n"
" * \"d\" means \"slave hard drive on the secondary IDE controller\".\n"
"\n"
"With SCSI hard drives, an \"a\" means \"lowest SCSI ID\", a \"b\" means\n"
"\"second lowest SCSI ID\", etc."
msgstr ""
"Aquí se listan las particiones Linux existentes que se detectaron en su\n"
"disco rígido. Puede mantener las elecciones hechas por el asistente, ya que\n"
"las mismas son buenas para las instalaciones más comunes. Si hace cambios,\n"
"al menos debe definir una partición raíz (\"/\"). No elija una partición\n"
"muy pequeña o no podrá instalar software suficiente. Si desea almacenar sus\n"
"datos en una partición separada, también puede necesitar crear una\n"
"partición para \"/home\" (sólo es posible si tiene más de una partición\n"
"Linux disponible)\n"
"\n"
"Cada partición se lista como sigue: \"Nombre\", \"Capacidad\".\n"
"\n"
"\"Nombre\" está estructurado: \"tipo de disco rígido\", \"número de disco\n"
"rígido\", \"número de partición\" (por ejemplo, \"hda1\").\n"
"\n"
"\"Tipo de disco rígido\" es \"hd\" si su disco es un disco IDE y \"sd\" si\n"
"el mismo es un disco SCSI.\n"
"\n"
"\"Número de disco rígido\" siempre es una letra que sigue a \"hd\" o a\n"
"\"sd\". Para los discos IDE:\n"
"\n"
" * \"a\" significa \"disco rígido maestro en la controladora IDE\n"
"primaria\",\n"
"\n"
" * \"b\" significa \"disco rígido esclavo en la controladora IDE\n"
"primaria\",\n"
"\n"
" * \"c\" significa \"disco rígido maestro en la controladora IDE\n"
"secundaria\",\n"
"\n"
" * \"d\" significa \"disco rígido esclavo en la controladora IDE\n"
"secundaria\".\n"
"\n"
"Para los discos SCSI, una \"a\" significa \"SCSI ID menor\", una \"b\"\n"
"significa \"segunda SCSI ID menor\", etc."

# DO NOT BOTHER TO MODIFY HERE, SEE:
# cvs.mandrakesoft.com:/cooker/doc/manualB/modules/es/drakx-chapter.xml
msgid ""
"\"%s\": check the current country selection. If you are not in this\n"
"country, click on the \"%s\" button and choose another one. If your country\n"
"is not in the first list shown, click the \"%s\" button to get the complete\n"
"country list."
msgstr ""
"\"%s\": verifique la selección corriente del país. Si Usted no se encuentra\n"
"en este país haga clic sobre el botón \"%s\" y elija otro. Si su país no se\n"
"muestra en la primer lista haga clic sobre el botón \"%s\" para obtener la\n"
"lista completa de países."

# DO NOT BOTHER TO MODIFY HERE, SEE:
# cvs.mandrakesoft.com:/cooker/doc/manualB/modules/es/drakx-chapter.xml
msgid ""
"Any partitions that have been newly defined must be formatted for use\n"
"(formatting means creating a file system).\n"
"\n"
"At this time, you may wish to reformat some already existing partitions to\n"
"erase any data they contain. If you wish to do that, please select those\n"
"partitions as well.\n"
"\n"
"Please note that it is not necessary to reformat all pre-existing\n"
"partitions. You must reformat the partitions containing the operating\n"
"system (such as \"/\", \"/usr\" or \"/var\") but you do not have to\n"
"reformat partitions containing data that you wish to keep (typically\n"
"\"/home\").\n"
"\n"
"Please be careful when selecting partitions. After formatting, all data on\n"
"the selected partitions will be deleted and you will not be able to recover\n"
"it.\n"
"\n"
"Click on \"%s\" when you are ready to format partitions.\n"
"\n"
"Click on \"%s\" if you want to choose another partition for your new\n"
"Mandrake Linux operating system installation.\n"
"\n"
"Click on \"%s\" if you wish to select partitions that will be checked for\n"
"bad blocks on the disk."
msgstr ""
"Se debe formatear cualquier partición nueva que ha sido definida para que\n"
"se pueda utilizar (formatear significa crear un sistema de archivos)\n"
"\n"
"Puede desear volver a formatear algunas particiones ya existentes para\n"
"borrar cualquier dato que pudieran contener. Si así lo desea, por favor\n"
"seleccione también dichas particiones.\n"
"\n"
"Por favor note que no es necesario volver a formatear todas las particiones\n"
"pre-existentes. Debe volver a formatear las particiones que contienen el\n"
"sistema operativo (tales como \"/\", \"/usr\" o \"/var\") pero no tiene que\n"
"volver a formatear particiones que contienen datos que desea preservar\n"
"(típicamente \"/home\")\n"
"\n"
"Por favor, tenga sumo cuidado cuando selecciona las particiones. Después de\n"
"formatear se borrarán todos los datos en las particiones seleccionadas y no\n"
"podrá recuperarlos en absoluto.\n"
"\n"
"Haga clic sobre \"%s\" cuando esté listo para formatear las particiones.\n"
"\n"
"Haga clic sobre \"%s\" si desea elegir otra partición para la instalación\n"
"de su sistema operativo Mandrake Linux nuevo.\n"
"\n"
"Haga clic sobre \"%s\" si desea seleccionar las particiones en las que se\n"
"buscarán bloques defectuosos en el disco."

# DO NOT BOTHER TO MODIFY HERE, SEE:
# cvs.mandrakesoft.com:/cooker/doc/manualB/modules/es/drakx-chapter.xml
msgid ""
"Depending on the default language you chose in Section , DrakX will\n"
"automatically select a particular type of keyboard configuration. However,\n"
"you may not have a keyboard that corresponds exactly to your language: for\n"
"example, if you are an English speaking Swiss person, you may have a Swiss\n"
"keyboard. Or if you speak English but are located in Quebec, you may find\n"
"yourself in the same situation where your native language and keyboard do\n"
"not match. In either case, this installation step will allow you to select\n"
"an appropriate keyboard from a list.\n"
"\n"
"Click on the \"%s\" button to be presented with the complete list of\n"
"supported keyboards.\n"
"\n"
"If you choose a keyboard layout based on a non-Latin alphabet, the next\n"
"dialog will allow you to choose the key binding that will switch the\n"
"keyboard between the Latin and non-Latin layouts."
msgstr ""
"Dependiendo del idioma predeterminado que eligió en , DrakX selecciona\n"
"automáticamente un tipo particular de configuración del teclado. Sin\n"
"embargo, podría no tener un teclado que se corresponde exactamente con su\n"
"idioma: por ejemplo, si Usted es un argentino que habla inglés, todavía\n"
"podría desear que su teclado sea un teclado inglés. O si habla castellano\n"
"pero está en Inglaterra puede estar en la misma situación en la cual su\n"
"idioma nativo y su teclado no coinciden. En cualquier caso, este paso de\n"
"instalación le permitirá elegir un teclado apropiado de una lista.\n"
"\n"
"Haga clic sobre el botón \"%s\" para que se le presente la lista completa\n"
"de los teclados soportados.\n"
"\n"
"Si eligió una distribución de teclado basada en un alfabeto no latino, el\n"
"próximo diálogo le permitirá elegir la combinación de teclas que cambiará\n"
"la distribución del teclado entre la latina y la no latina."

# DO NOT BOTHER TO MODIFY HERE, SEE:
# cvs.mandrakesoft.com:/cooker/doc/manualB/modules/es/drakx-chapter.xml
msgid ""
"There you are. Installation is now complete and your GNU/Linux system is\n"
"ready to use. Just click \"%s\" to reboot the system. The first thing you\n"
"should see after your computer has finished doing its hardware tests is the\n"
"bootloader menu, giving you the choice of which operating system to start.\n"
"\n"
"The \"%s\" button shows two more buttons to:\n"
"\n"
" * \"%s\": to create an installation floppy disk that will automatically\n"
"perform a whole installation without the help of an operator, similar to\n"
"the installation you just configured.\n"
"\n"
"   Note that two different options are available after clicking the button:\n"
"\n"
"    * \"%s\". This is a partially automated installation. The partitioning\n"
"step is the only interactive procedure.\n"
"\n"
"    * \"%s\". Fully automated installation: the hard disk is completely\n"
"rewritten, all data is lost.\n"
"\n"
"   This feature is very handy when installing a number of similar machines.\n"
"See the Auto install section on our web site for more information.\n"
"\n"
" * \"%s\"(*): saves a list of the packages selected in this installation.\n"
"To use this selection with another installation, insert the floppy and\n"
"start the installation. At the prompt, press the [F1] key and type >>linux\n"
"defcfg=\"floppy\" <<.\n"
"\n"
"(*) You need a FAT-formatted floppy (to create one under GNU/Linux, type\n"
"\"mformat a:\")"
msgstr ""
"Ya está. Ahora la instalación está completa y su sistema GNU/Linux está\n"
"listo para ser utilizado. Simplemente haga clic sobre \"%s\" para volver a\n"
"arrancar el sistema. Lo primero que debería ver tan pronto como su máquina\n"
"haya finalizado sus pruebas de hardware, es el menú del cargador de\n"
"arranque dándole la opción de elegir que sistema operativo arrancar.\n"
"\n"
"El botón \"%s\" le muestra dos botones más para:\n"
"\n"
" * \"%s\": para crear un disquete de instalación que realizará una\n"
"instalación completa automáticamente, sin la asistencia de un operador,\n"
"similar a la instalación que ha configurado recién.\n"
"\n"
"   Note que hay dos opciones diferentes disponibles después de hacer clic\n"
"sobre el botón:\n"
"\n"
"    * \"%s\" . Esta es una instalación parcialmente automatizada. La etapa\n"
"de particionado es el único procedimiento interactivo.\n"
"\n"
"    * \"%s\" . Instalación completamente automatizada: el disco rígido se\n"
"sobreescribe por completo, y se pierden todos los datos.\n"
"\n"
"   Esta característica es muy útil cuando se instala una cantidad grande de\n"
"máquinas similares. Consulte la sección Auto install (en inglés) en nuestro\n"
"sitio web para más información.\n"
"\n"
" * \"%s\"(*): guarda una lista de los paquetes seleccionados en esta\n"
"instalación. Para usar esta selección con otra instalación, inserte el\n"
"disquete en la disquetera y comience la instalación. En el prompt, presione\n"
"la tecla [F1], y a continuación ingrese >>linux defcfg=\"floppy\"<<.\n"
"\n"
"(*) Necesita un disquete formateado con FAT (para crear uno bajo GNU/Linux\n"
"teclee \"mformat a:\")"

# DO NOT BOTHER TO MODIFY HERE, SEE:
# cvs.mandrakesoft.com:/cooker/doc/manualB/modules/es/drakx-chapter.xml
msgid ""
"At this point, you need to choose which partition(s) will be used for the\n"
"installation of your Mandrake Linux system. If partitions have already been\n"
"defined, either from a previous installation of GNU/Linux or by another\n"
"partitioning tool, you can use existing partitions. Otherwise, hard drive\n"
"partitions must be defined.\n"
"\n"
"To create partitions, you must first select a hard drive. You can select\n"
"the disk for partitioning by clicking on ``hda'' for the first IDE drive,\n"
"``hdb'' for the second, ``sda'' for the first SCSI drive and so on.\n"
"\n"
"To partition the selected hard drive, you can use these options:\n"
"\n"
" * \"%s\": this option deletes all partitions on the selected hard drive\n"
"\n"
" * \"%s\": this option enables you to automatically create ext3 and swap\n"
"partitions in the free space of your hard drive\n"
"\n"
"\"%s\": gives access to additional features:\n"
"\n"
" * \"%s\": saves the partition table to a floppy. Useful for later\n"
"partition-table recovery if necessary. It is strongly recommended that you\n"
"perform this step.\n"
"\n"
" * \"%s\": allows you to restore a previously saved partition table from a\n"
"floppy disk.\n"
"\n"
" * \"%s\": if your partition table is damaged, you can try to recover it\n"
"using this option. Please be careful and remember that it doesn't always\n"
"work.\n"
"\n"
" * \"%s\": discards all changes and reloads the partition table that was\n"
"originally on the hard drive.\n"
"\n"
" * \"%s\": unchecking this option will force users to manually mount and\n"
"unmount removable media such as floppies and CD-ROMs.\n"
"\n"
" * \"%s\": use this option if you wish to use a wizard to partition your\n"
"hard drive. This is recommended if you do not have a good understanding of\n"
"partitioning.\n"
"\n"
" * \"%s\": use this option to cancel your changes.\n"
"\n"
" * \"%s\": allows additional actions on partitions (type, options, format)\n"
"and gives more information about the hard drive.\n"
"\n"
" * \"%s\": when you are finished partitioning your hard drive, this will\n"
"save your changes back to disk.\n"
"\n"
"When defining the size of a partition, you can finely set the partition\n"
"size by using the Arrow keys of your keyboard.\n"
"\n"
"Note: you can reach any option using the keyboard. Navigate through the\n"
"partitions using [Tab] and the [Up/Down] arrows.\n"
"\n"
"When a partition is selected, you can use:\n"
"\n"
" * Ctrl-c to create a new partition (when an empty partition is selected)\n"
"\n"
" * Ctrl-d to delete a partition\n"
"\n"
" * Ctrl-m to set the mount point\n"
"\n"
"To get information about the different file system types available, please\n"
"read the ext2FS chapter from the ``Reference Manual''.\n"
"\n"
"If you are installing on a PPC machine, you will want to create a small HFS\n"
"``bootstrap'' partition of at least 1MB which will be used by the yaboot\n"
"bootloader. If you opt to make the partition a bit larger, say 50MB, you\n"
"may find it a useful place to store a spare kernel and ramdisk images for\n"
"emergency boot situations."
msgstr ""
"Ahora necesita elegir qué particiones se utilizarán para la instalación de\n"
"su sistema Mandrake Linux. Si las particiones ya han sido definidas, ya sea\n"
"por una instalación previa de GNU/Linux o con otra herramienta de\n"
"particionado, puede utilizarlas. De lo contrario, se deben definir\n"
"particiones en el disco rígido.\n"
"\n"
"Para crear particiones, primero debe seleccionar un disco rígido. Puede\n"
"seleccionar el disco a particionar haciendo clic sobre \"hda\" para el\n"
"primer disco IDE, \"hdb\" para el segundo, \"sda\" para el primer disco\n"
"SCSI y así sucesivamente.\n"
"\n"
"Para particionar el disco rígido seleccionado, puede utilizar estas\n"
"opciones:\n"
"\n"
" * \"%s\": esta opción borra todas las particiones sobre el disco\n"
"seleccionado.\n"
"\n"
" * \"%s\": esta opción le permite crear particiones ext3 y swap\n"
"automáticamente en el espacio libre de su disco rígido.\n"
"\n"
" * \"%s\": le da acceso a características adicionales:\n"
"\n"
"    * \"%s\": guarda la tabla de particiones en un disquete. Útil para\n"
"recuperar la tabla de particiones más adelante en caso que sea necesario.\n"
"Es altamente recomendable realizar este paso.\n"
"\n"
"    * \"%s\": esta opción le permitirá restaurar una tabla de particiones\n"
"guardada previamente en un disquete.\n"
"\n"
"    * \"%s\": si su tabla de particiones está dañada puede intentar\n"
"recuperarla utilizando esta opción. Por favor, tenga cuidado y recuerde que\n"
"puede fallar.\n"
"\n"
"    * \"%s\": descarta todos los cambios y carga su tabla de particiones\n"
"inicial.\n"
"\n"
"    * \"%s\": si desmarca esta opción los usuarios estarán forzados a\n"
"montar y desmontar manualmente los soportes removibles como los disquetes y\n"
"los CD-ROM.\n"
"\n"
" * \"%s\": use esta opción si desea utilizar un asistente para particionar\n"
"su disco rígido. Se recomienda esto si no tiene un buen conocimiento del\n"
"particionado.\n"
"\n"
" * \"%s\": use esta opción para cancelar sus cambios.\n"
"\n"
" * \"%s\": permite realizar acciones adicionales sobre las particiones\n"
"(tipo, opciones, formatear) y brinda más información.\n"
"\n"
" * \"%s\": cuando ha terminado de particionar su disco rígido, esto\n"
"guardará sus cambios en el disco.\n"
"\n"
"Cuando se define el tamaño de una partición, puede realizar un ajuste fino\n"
"del tamaño utilizando las teclas de las flechas de su teclado.\n"
"\n"
"Nota: todas las opciones son accesibles por medio del teclado. Navegue a\n"
"través de las particiones usando [Tab] y las flechas [Arriba/Abajo].\n"
"\n"
"Cuando se selecciona una partición, puede utilizar:\n"
"\n"
" * [Ctrl][C] para crear una partición nueva (cuando está seleccionada una\n"
"partición vacía);\n"
"\n"
" * [Ctrl][D] para borrar una partición;\n"
"\n"
" * [Ctrl][M] para configurar el punto de montaje.\n"
"\n"
"Para obtener información sobre los distintos tipos de sistemas de archivos\n"
"disponibles, por favor lea el capítulo acerca de ext2FS del \"Manual de\n"
"Referencia\".\n"
"\n"
"Si está instalando en una máquina PPC, querrá crear una pequeña partición\n"
"HFS de \"bootstrap\" de al menos 1 MB que será utilizada por el cargador de\n"
"arranque yaboot. Si opta por hacer la partición un poco más grande, digamos\n"
"50 MB, puede ver que es un lugar útil para almacenar un núcleo y ramdisk\n"
"alternativos para arrancar en situaciones de emergencia."

675'>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>
<a id='n2825' href='#n2825'>2825</a>
<a id='n2826' href='#n2826'>2826</a>
<a id='n2827' href='#n2827'>2827</a>
<a id='n2828' href='#n2828'>2828</a>
<a id='n2829' href='#n2829'>2829</a>
<a id='n2830' href='#n2830'>2830</a>
<a id='n2831' href='#n2831'>2831</a>
<a id='n2832' href='#n2832'>2832</a>
<a id='n2833' href='#n2833'>2833</a>
<a id='n2834' href='#n2834'>2834</a>
<a id='n2835' href='#n2835'>2835</a>
<a id='n2836' href='#n2836'>2836</a>
<a id='n2837' href='#n2837'>2837</a>
<a id='n2838' href='#n2838'>2838</a>
<a id='n2839' href='#n2839'>2839</a>
<a id='n2840' href='#n2840'>2840</a>
<a id='n2841' href='#n2841'>2841</a>
<a id='n2842' href='#n2842'>2842</a>
<a id='n2843' href='#n2843'>2843</a>
<a id='n2844' href='#n2844'>2844</a>
<a id='n2845' href='#n2845'>2845</a>
<a id='n2846' href='#n2846'>2846</a>
<a id='n2847' href='#n2847'>2847</a>
<a id='n2848' href='#n2848'>2848</a>
<a id='n2849' href='#n2849'>2849</a>
<a id='n2850' href='#n2850'>2850</a>
<a id='n2851' href='#n2851'>2851</a>
<a id='n2852' href='#n2852'>2852</a>
<a id='n2853' href='#n2853'>2853</a>
<a id='n2854' href='#n2854'>2854</a>
<a id='n2855' href='#n2855'>2855</a>
<a id='n2856' href='#n2856'>2856</a>
<a id='n2857' href='#n2857'>2857</a>
<a id='n2858' href='#n2858'>2858</a>
<a id='n2859' href='#n2859'>2859</a>
<a id='n2860' href='#n2860'>2860</a>
<a id='n2861' href='#n2861'>2861</a>
<a id='n2862' href='#n2862'>2862</a>
<a id='n2863' href='#n2863'>2863</a>
<a id='n2864' href='#n2864'>2864</a>
<a id='n2865' href='#n2865'>2865</a>
<a id='n2866' href='#n2866'>2866</a>
<a id='n2867' href='#n2867'>2867</a>
<a id='n2868' href='#n2868'>2868</a>
<a id='n2869' href='#n2869'>2869</a>
<a id='n2870' href='#n2870'>2870</a>
<a id='n2871' href='#n2871'>2871</a>
<a id='n2872' href='#n2872'>2872</a>
<a id='n2873' href='#n2873'>2873</a>
<a id='n2874' href='#n2874'>2874</a>
<a id='n2875' href='#n2875'>2875</a>
<a id='n2876' href='#n2876'>2876</a>
<a id='n2877' href='#n2877'>2877</a>
<a id='n2878' href='#n2878'>2878</a>
<a id='n2879' href='#n2879'>2879</a>
<a id='n2880' href='#n2880'>2880</a>
<a id='n2881' href='#n2881'>2881</a>
<a id='n2882' href='#n2882'>2882</a>
<a id='n2883' href='#n2883'>2883</a>
<a id='n2884' href='#n2884'>2884</a>
<a id='n2885' href='#n2885'>2885</a>
<a id='n2886' href='#n2886'>2886</a>
<a id='n2887' href='#n2887'>2887</a>
<a id='n2888' href='#n2888'>2888</a>
<a id='n2889' href='#n2889'>2889</a>
<a id='n2890' href='#n2890'>2890</a>
<a id='n2891' href='#n2891'>2891</a>
<a id='n2892' href='#n2892'>2892</a>
<a id='n2893' href='#n2893'>2893</a>
<a id='n2894' href='#n2894'>2894</a>
<a id='n2895' href='#n2895'>2895</a>
<a id='n2896' href='#n2896'>2896</a>
<a id='n2897' href='#n2897'>2897</a>
<a id='n2898' href='#n2898'>2898</a>
<a id='n2899' href='#n2899'>2899</a>
<a id='n2900' href='#n2900'>2900</a>
<a id='n2901' href='#n2901'>2901</a>
<a id='n2902' href='#n2902'>2902</a>
<a id='n2903' href='#n2903'>2903</a>
<a id='n2904' href='#n2904'>2904</a>
<a id='n2905' href='#n2905'>2905</a>
<a id='n2906' href='#n2906'>2906</a>
<a id='n2907' href='#n2907'>2907</a>
<a id='n2908' href='#n2908'>2908</a>
<a id='n2909' href='#n2909'>2909</a>
<a id='n2910' href='#n2910'>2910</a>
<a id='n2911' href='#n2911'>2911</a>
<a id='n2912' href='#n2912'>2912</a>
<a id='n2913' href='#n2913'>2913</a>
<a id='n2914' href='#n2914'>2914</a>
<a id='n2915' href='#n2915'>2915</a>
<a id='n2916' href='#n2916'>2916</a>
<a id='n2917' href='#n2917'>2917</a>
<a id='n2918' href='#n2918'>2918</a>
<a id='n2919' href='#n2919'>2919</a>
<a id='n2920' href='#n2920'>2920</a>
<a id='n2921' href='#n2921'>2921</a>
<a id='n2922' href='#n2922'>2922</a>
<a id='n2923' href='#n2923'>2923</a>
<a id='n2924' href='#n2924'>2924</a>
<a id='n2925' href='#n2925'>2925</a>
<a id='n2926' href='#n2926'>2926</a>
<a id='n2927' href='#n2927'>2927</a>
<a id='n2928' href='#n2928'>2928</a>
<a id='n2929' href='#n2929'>2929</a>
<a id='n2930' href='#n2930'>2930</a>
<a id='n2931' href='#n2931'>2931</a>
<a id='n2932' href='#n2932'>2932</a>
<a id='n2933' href='#n2933'>2933</a>
<a id='n2934' href='#n2934'>2934</a>
<a id='n2935' href='#n2935'>2935</a>
<a id='n2936' href='#n2936'>2936</a>
<a id='n2937' href='#n2937'>2937</a>
<a id='n2938' href='#n2938'>2938</a>
<a id='n2939' href='#n2939'>2939</a>
<a id='n2940' href='#n2940'>2940</a>
<a id='n2941' href='#n2941'>2941</a>
<a id='n2942' href='#n2942'>2942</a>
<a id='n2943' href='#n2943'>2943</a>
<a id='n2944' href='#n2944'>2944</a>
<a id='n2945' href='#n2945'>2945</a>
<a id='n2946' href='#n2946'>2946</a>
<a id='n2947' href='#n2947'>2947</a>
<a id='n2948' href='#n2948'>2948</a>
<a id='n2949' href='#n2949'>2949</a>
<a id='n2950' href='#n2950'>2950</a>
<a id='n2951' href='#n2951'>2951</a>
<a id='n2952' href='#n2952'>2952</a>
<a id='n2953' href='#n2953'>2953</a>
<a id='n2954' href='#n2954'>2954</a>
<a id='n2955' href='#n2955'>2955</a>
<a id='n2956' href='#n2956'>2956</a>
<a id='n2957' href='#n2957'>2957</a>
<a id='n2958' href='#n2958'>2958</a>
<a id='n2959' href='#n2959'>2959</a>
<a id='n2960' href='#n2960'>2960</a>
<a id='n2961' href='#n2961'>2961</a>
<a id='n2962' href='#n2962'>2962</a>
<a id='n2963' href='#n2963'>2963</a>
<a id='n2964' href='#n2964'>2964</a>
<a id='n2965' href='#n2965'>2965</a>
<a id='n2966' href='#n2966'>2966</a>
<a id='n2967' href='#n2967'>2967</a>
<a id='n2968' href='#n2968'>2968</a>
<a id='n2969' href='#n2969'>2969</a>
<a id='n2970' href='#n2970'>2970</a>
<a id='n2971' href='#n2971'>2971</a>
<a id='n2972' href='#n2972'>2972</a>
<a id='n2973' href='#n2973'>2973</a>
<a id='n2974' href='#n2974'>2974</a>
<a id='n2975' href='#n2975'>2975</a>
<a id='n2976' href='#n2976'>2976</a>
<a id='n2977' href='#n2977'>2977</a>
<a id='n2978' href='#n2978'>2978</a>
<a id='n2979' href='#n2979'>2979</a>
<a id='n2980' href='#n2980'>2980</a>
<a id='n2981' href='#n2981'>2981</a>
<a id='n2982' href='#n2982'>2982</a>
<a id='n2983' href='#n2983'>2983</a>
<a id='n2984' href='#n2984'>2984</a>
<a id='n2985' href='#n2985'>2985</a>
<a id='n2986' href='#n2986'>2986</a>
<a id='n2987' href='#n2987'>2987</a>
<a id='n2988' href='#n2988'>2988</a>
<a id='n2989' href='#n2989'>2989</a>
<a id='n2990' href='#n2990'>2990</a>
<a id='n2991' href='#n2991'>2991</a>
<a id='n2992' href='#n2992'>2992</a>
<a id='n2993' href='#n2993'>2993</a>
<a id='n2994' href='#n2994'>2994</a>
<a id='n2995' href='#n2995'>2995</a>
<a id='n2996' href='#n2996'>2996</a>
<a id='n2997' href='#n2997'>2997</a>
<a id='n2998' href='#n2998'>2998</a>
<a id='n2999' href='#n2999'>2999</a>
<a id='n3000' href='#n3000'>3000</a>
<a id='n3001' href='#n3001'>3001</a>
<a id='n3002' href='#n3002'>3002</a>
<a id='n3003' href='#n3003'>3003</a>
<a id='n3004' href='#n3004'>3004</a>
<a id='n3005' href='#n3005'>3005</a>
<a id='n3006' href='#n3006'>3006</a>
<a id='n3007' href='#n3007'>3007</a>
<a id='n3008' href='#n3008'>3008</a>
<a id='n3009' href='#n3009'>3009</a>
<a id='n3010' href='#n3010'>3010</a>
<a id='n3011' href='#n3011'>3011</a>
<a id='n3012' href='#n3012'>3012</a>
<a id='n3013' href='#n3013'>3013</a>
<a id='n3014' href='#n3014'>3014</a>
<a id='n3015' href='#n3015'>3015</a>
<a id='n3016' href='#n3016'>3016</a>
<a id='n3017' href='#n3017'>3017</a>
<a id='n3018' href='#n3018'>3018</a>
<a id='n3019' href='#n3019'>3019</a>
<a id='n3020' href='#n3020'>3020</a>
<a id='n3021' href='#n3021'>3021</a>
<a id='n3022' href='#n3022'>3022</a>
<a id='n3023' href='#n3023'>3023</a>
<a id='n3024' href='#n3024'>3024</a>
<a id='n3025' href='#n3025'>3025</a>
<a id='n3026' href='#n3026'>3026</a>
<a id='n3027' href='#n3027'>3027</a>
<a id='n3028' href='#n3028'>3028</a>
<a id='n3029' href='#n3029'>3029</a>
<a id='n3030' href='#n3030'>3030</a>
<a id='n3031' href='#n3031'>3031</a>
<a id='n3032' href='#n3032'>3032</a>
<a id='n3033' href='#n3033'>3033</a>
<a id='n3034' href='#n3034'>3034</a>
<a id='n3035' href='#n3035'>3035</a>
<a id='n3036' href='#n3036'>3036</a>
<a id='n3037' href='#n3037'>3037</a>
<a id='n3038' href='#n3038'>3038</a>
<a id='n3039' href='#n3039'>3039</a>
<a id='n3040' href='#n3040'>3040</a>
<a id='n3041' href='#n3041'>3041</a>
<a id='n3042' href='#n3042'>3042</a>
<a id='n3043' href='#n3043'>3043</a>
<a id='n3044' href='#n3044'>3044</a>
<a id='n3045' href='#n3045'>3045</a>
<a id='n3046' href='#n3046'>3046</a>
<a id='n3047' href='#n3047'>3047</a>
<a id='n3048' href='#n3048'>3048</a>
<a id='n3049' href='#n3049'>3049</a>
<a id='n3050' href='#n3050'>3050</a>
<a id='n3051' href='#n3051'>3051</a>
<a id='n3052' href='#n3052'>3052</a>
<a id='n3053' href='#n3053'>3053</a>
<a id='n3054' href='#n3054'>3054</a>
<a id='n3055' href='#n3055'>3055</a>
<a id='n3056' href='#n3056'>3056</a>
<a id='n3057' href='#n3057'>3057</a>
<a id='n3058' href='#n3058'>3058</a>
<a id='n3059' href='#n3059'>3059</a>
<a id='n3060' href='#n3060'>3060</a>
<a id='n3061' href='#n3061'>3061</a>
<a id='n3062' href='#n3062'>3062</a>
<a id='n3063' href='#n3063'>3063</a>
<a id='n3064' href='#n3064'>3064</a>
<a id='n3065' href='#n3065'>3065</a>
<a id='n3066' href='#n3066'>3066</a>
<a id='n3067' href='#n3067'>3067</a>
<a id='n3068' href='#n3068'>3068</a>
<a id='n3069' href='#n3069'>3069</a>
<a id='n3070' href='#n3070'>3070</a>
<a id='n3071' href='#n3071'>3071</a>
<a id='n3072' href='#n3072'>3072</a>
<a id='n3073' href='#n3073'>3073</a>
<a id='n3074' href='#n3074'>3074</a>
<a id='n3075' href='#n3075'>3075</a>
<a id='n3076' href='#n3076'>3076</a>
<a id='n3077' href='#n3077'>3077</a>
<a id='n3078' href='#n3078'>3078</a>
<a id='n3079' href='#n3079'>3079</a>
<a id='n3080' href='#n3080'>3080</a>
<a id='n3081' href='#n3081'>3081</a>
<a id='n3082' href='#n3082'>3082</a>
<a id='n3083' href='#n3083'>3083</a>
<a id='n3084' href='#n3084'>3084</a>
<a id='n3085' href='#n3085'>3085</a>
<a id='n3086' href='#n3086'>3086</a>
<a id='n3087' href='#n3087'>3087</a>
<a id='n3088' href='#n3088'>3088</a>
<a id='n3089' href='#n3089'>3089</a>
<a id='n3090' href='#n3090'>3090</a>
<a id='n3091' href='#n3091'>3091</a>
<a id='n3092' href='#n3092'>3092</a>
<a id='n3093' href='#n3093'>3093</a>
<a id='n3094' href='#n3094'>3094</a>
<a id='n3095' href='#n3095'>3095</a>
<a id='n3096' href='#n3096'>3096</a>
<a id='n3097' href='#n3097'>3097</a>
<a id='n3098' href='#n3098'>3098</a>
<a id='n3099' href='#n3099'>3099</a>
<a id='n3100' href='#n3100'>3100</a>
<a id='n3101' href='#n3101'>3101</a>
<a id='n3102' href='#n3102'>3102</a>
<a id='n3103' href='#n3103'>3103</a>
<a id='n3104' href='#n3104'>3104</a>
<a id='n3105' href='#n3105'>3105</a>
<a id='n3106' href='#n3106'>3106</a>
<a id='n3107' href='#n3107'>3107</a>
<a id='n3108' href='#n3108'>3108</a>
<a id='n3109' href='#n3109'>3109</a>
<a id='n3110' href='#n3110'>3110</a>
<a id='n3111' href='#n3111'>3111</a>
<a id='n3112' href='#n3112'>3112</a>
<a id='n3113' href='#n3113'>3113</a>
<a id='n3114' href='#n3114'>3114</a>
<a id='n3115' href='#n3115'>3115</a>
<a id='n3116' href='#n3116'>3116</a>
<a id='n3117' href='#n3117'>3117</a>
<a id='n3118' href='#n3118'>3118</a>
<a id='n3119' href='#n3119'>3119</a>
<a id='n3120' href='#n3120'>3120</a>
<a id='n3121' href='#n3121'>3121</a>
<a id='n3122' href='#n3122'>3122</a>
<a id='n3123' href='#n3123'>3123</a>
<a id='n3124' href='#n3124'>3124</a>
<a id='n3125' href='#n3125'>3125</a>
<a id='n3126' href='#n3126'>3126</a>
<a id='n3127' href='#n3127'>3127</a>
<a id='n3128' href='#n3128'>3128</a>
<a id='n3129' href='#n3129'>3129</a>
<a id='n3130' href='#n3130'>3130</a>
<a id='n3131' href='#n3131'>3131</a>
<a id='n3132' href='#n3132'>3132</a>
<a id='n3133' href='#n3133'>3133</a>
<a id='n3134' href='#n3134'>3134</a>
<a id='n3135' href='#n3135'>3135</a>
<a id='n3136' href='#n3136'>3136</a>
<a id='n3137' href='#n3137'>3137</a>
<a id='n3138' href='#n3138'>3138</a>
<a id='n3139' href='#n3139'>3139</a>
<a id='n3140' href='#n3140'>3140</a>
<a id='n3141' href='#n3141'>3141</a>
<a id='n3142' href='#n3142'>3142</a>
<a id='n3143' href='#n3143'>3143</a>
<a id='n3144' href='#n3144'>3144</a>
<a id='n3145' href='#n3145'>3145</a>
<a id='n3146' href='#n3146'>3146</a>
<a id='n3147' href='#n3147'>3147</a>
<a id='n3148' href='#n3148'>3148</a>
<a id='n3149' href='#n3149'>3149</a>
<a id='n3150' href='#n3150'>3150</a>
<a id='n3151' href='#n3151'>3151</a>
<a id='n3152' href='#n3152'>3152</a>
<a id='n3153' href='#n3153'>3153</a>
<a id='n3154' href='#n3154'>3154</a>
<a id='n3155' href='#n3155'>3155</a>
<a id='n3156' href='#n3156'>3156</a>
<a id='n3157' href='#n3157'>3157</a>
<a id='n3158' href='#n3158'>3158</a>
<a id='n3159' href='#n3159'>3159</a>
<a id='n3160' href='#n3160'>3160</a>
<a id='n3161' href='#n3161'>3161</a>
<a id='n3162' href='#n3162'>3162</a>
<a id='n3163' href='#n3163'>3163</a>
<a id='n3164' href='#n3164'>3164</a>
<a id='n3165' href='#n3165'>3165</a>
<a id='n3166' href='#n3166'>3166</a>
<a id='n3167' href='#n3167'>3167</a>
<a id='n3168' href='#n3168'>3168</a>
<a id='n3169' href='#n3169'>3169</a>
<a id='n3170' href='#n3170'>3170</a>
<a id='n3171' href='#n3171'>3171</a>
<a id='n3172' href='#n3172'>3172</a>
<a id='n3173' href='#n3173'>3173</a>
<a id='n3174' href='#n3174'>3174</a>
<a id='n3175' href='#n3175'>3175</a>
<a id='n3176' href='#n3176'>3176</a>
<a id='n3177' href='#n3177'>3177</a>
<a id='n3178' href='#n3178'>3178</a>
<a id='n3179' href='#n3179'>3179</a>
<a id='n3180' href='#n3180'>3180</a>
<a id='n3181' href='#n3181'>3181</a>
<a id='n3182' href='#n3182'>3182</a>
<a id='n3183' href='#n3183'>3183</a>
<a id='n3184' href='#n3184'>3184</a>
<a id='n3185' href='#n3185'>3185</a>
<a id='n3186' href='#n3186'>3186</a>
<a id='n3187' href='#n3187'>3187</a>
<a id='n3188' href='#n3188'>3188</a>
<a id='n3189' href='#n3189'>3189</a>
<a id='n3190' href='#n3190'>3190</a>
<a id='n3191' href='#n3191'>3191</a>
<a id='n3192' href='#n3192'>3192</a>
<a id='n3193' href='#n3193'>3193</a>
<a id='n3194' href='#n3194'>3194</a>
<a id='n3195' href='#n3195'>3195</a>
<a id='n3196' href='#n3196'>3196</a>
<a id='n3197' href='#n3197'>3197</a>
<a id='n3198' href='#n3198'>3198</a>
<a id='n3199' href='#n3199'>3199</a>
<a id='n3200' href='#n3200'>3200</a>
<a id='n3201' href='#n3201'>3201</a>
<a id='n3202' href='#n3202'>3202</a>
<a id='n3203' href='#n3203'>3203</a>
<a id='n3204' href='#n3204'>3204</a>
<a id='n3205' href='#n3205'>3205</a>
<a id='n3206' href='#n3206'>3206</a>
<a id='n3207' href='#n3207'>3207</a>
<a id='n3208' href='#n3208'>3208</a>
<a id='n3209' href='#n3209'>3209</a>
<a id='n3210' href='#n3210'>3210</a>
<a id='n3211' href='#n3211'>3211</a>
<a id='n3212' href='#n3212'>3212</a>
<a id='n3213' href='#n3213'>3213</a>
<a id='n3214' href='#n3214'>3214</a>
<a id='n3215' href='#n3215'>3215</a>
<a id='n3216' href='#n3216'>3216</a>
<a id='n3217' href='#n3217'>3217</a>
<a id='n3218' href='#n3218'>3218</a>
<a id='n3219' href='#n3219'>3219</a>
<a id='n3220' href='#n3220'>3220</a>
<a id='n3221' href='#n3221'>3221</a>
<a id='n3222' href='#n3222'>3222</a>
<a id='n3223' href='#n3223'>3223</a>
<a id='n3224' href='#n3224'>3224</a>
<a id='n3225' href='#n3225'>3225</a>
<a id='n3226' href='#n3226'>3226</a>
<a id='n3227' href='#n3227'>3227</a>
<a id='n3228' href='#n3228'>3228</a>
<a id='n3229' href='#n3229'>3229</a>
<a id='n3230' href='#n3230'>3230</a>
<a id='n3231' href='#n3231'>3231</a>
<a id='n3232' href='#n3232'>3232</a>
<a id='n3233' href='#n3233'>3233</a>
<a id='n3234' href='#n3234'>3234</a>
<a id='n3235' href='#n3235'>3235</a>
<a id='n3236' href='#n3236'>3236</a>
<a id='n3237' href='#n3237'>3237</a>
<a id='n3238' href='#n3238'>3238</a>
<a id='n3239' href='#n3239'>3239</a>
<a id='n3240' href='#n3240'>3240</a>
<a id='n3241' href='#n3241'>3241</a>
<a id='n3242' href='#n3242'>3242</a>
<a id='n3243' href='#n3243'>3243</a>
<a id='n3244' href='#n3244'>3244</a>
<a id='n3245' href='#n3245'>3245</a>
<a id='n3246' href='#n3246'>3246</a>
<a id='n3247' href='#n3247'>3247</a>
<a id='n3248' href='#n3248'>3248</a>
<a id='n3249' href='#n3249'>3249</a>
<a id='n3250' href='#n3250'>3250</a>
<a id='n3251' href='#n3251'>3251</a>
<a id='n3252' href='#n3252'>3252</a>
<a id='n3253' href='#n3253'>3253</a>
<a id='n3254' href='#n3254'>3254</a>
<a id='n3255' href='#n3255'>3255</a>
<a id='n3256' href='#n3256'>3256</a>
<a id='n3257' href='#n3257'>3257</a>
<a id='n3258' href='#n3258'>3258</a>
<a id='n3259' href='#n3259'>3259</a>
<a id='n3260' href='#n3260'>3260</a>
<a id='n3261' href='#n3261'>3261</a>
<a id='n3262' href='#n3262'>3262</a>
<a id='n3263' href='#n3263'>3263</a>
<a id='n3264' href='#n3264'>3264</a>
<a id='n3265' href='#n3265'>3265</a>
<a id='n3266' href='#n3266'>3266</a>
<a id='n3267' href='#n3267'>3267</a>
<a id='n3268' href='#n3268'>3268</a>
<a id='n3269' href='#n3269'>3269</a>
<a id='n3270' href='#n3270'>3270</a>
<a id='n3271' href='#n3271'>3271</a>
<a id='n3272' href='#n3272'>3272</a>
<a id='n3273' href='#n3273'>3273</a>
<a id='n3274' href='#n3274'>3274</a>
<a id='n3275' href='#n3275'>3275</a>
<a id='n3276' href='#n3276'>3276</a>
<a id='n3277' href='#n3277'>3277</a>
<a id='n3278' href='#n3278'>3278</a>
<a id='n3279' href='#n3279'>3279</a>
<a id='n3280' href='#n3280'>3280</a>
<a id='n3281' href='#n3281'>3281</a>
<a id='n3282' href='#n3282'>3282</a>
<a id='n3283' href='#n3283'>3283</a>
<a id='n3284' href='#n3284'>3284</a>
<a id='n3285' href='#n3285'>3285</a>
<a id='n3286' href='#n3286'>3286</a>
<a id='n3287' href='#n3287'>3287</a>
<a id='n3288' href='#n3288'>3288</a>
<a id='n3289' href='#n3289'>3289</a>
<a id='n3290' href='#n3290'>3290</a>
<a id='n3291' href='#n3291'>3291</a>
<a id='n3292' href='#n3292'>3292</a>
<a id='n3293' href='#n3293'>3293</a>
<a id='n3294' href='#n3294'>3294</a>
<a id='n3295' href='#n3295'>3295</a>
<a id='n3296' href='#n3296'>3296</a>
<a id='n3297' href='#n3297'>3297</a>
<a id='n3298' href='#n3298'>3298</a>
<a id='n3299' href='#n3299'>3299</a>
<a id='n3300' href='#n3300'>3300</a>
<a id='n3301' href='#n3301'>3301</a>
<a id='n3302' href='#n3302'>3302</a>
<a id='n3303' href='#n3303'>3303</a>
<a id='n3304' href='#n3304'>3304</a>
<a id='n3305' href='#n3305'>3305</a>
<a id='n3306' href='#n3306'>3306</a>
<a id='n3307' href='#n3307'>3307</a>
<a id='n3308' href='#n3308'>3308</a>
<a id='n3309' href='#n3309'>3309</a>
<a id='n3310' href='#n3310'>3310</a>
<a id='n3311' href='#n3311'>3311</a>
<a id='n3312' href='#n3312'>3312</a>
<a id='n3313' href='#n3313'>3313</a>
<a id='n3314' href='#n3314'>3314</a>
<a id='n3315' href='#n3315'>3315</a>
<a id='n3316' href='#n3316'>3316</a>
<a id='n3317' href='#n3317'>3317</a>
<a id='n3318' href='#n3318'>3318</a>
<a id='n3319' href='#n3319'>3319</a>
<a id='n3320' href='#n3320'>3320</a>
<a id='n3321' href='#n3321'>3321</a>
<a id='n3322' href='#n3322'>3322</a>
<a id='n3323' href='#n3323'>3323</a>
<a id='n3324' href='#n3324'>3324</a>
<a id='n3325' href='#n3325'>3325</a>
<a id='n3326' href='#n3326'>3326</a>
<a id='n3327' href='#n3327'>3327</a>
<a id='n3328' href='#n3328'>3328</a>
<a id='n3329' href='#n3329'>3329</a>
<a id='n3330' href='#n3330'>3330</a>
<a id='n3331' href='#n3331'>3331</a>
<a id='n3332' href='#n3332'>3332</a>
<a id='n3333' href='#n3333'>3333</a>
<a id='n3334' href='#n3334'>3334</a>
<a id='n3335' href='#n3335'>3335</a>
<a id='n3336' href='#n3336'>3336</a>
<a id='n3337' href='#n3337'>3337</a>
<a id='n3338' href='#n3338'>3338</a>
<a id='n3339' href='#n3339'>3339</a>
<a id='n3340' href='#n3340'>3340</a>
<a id='n3341' href='#n3341'>3341</a>
<a id='n3342' href='#n3342'>3342</a>
<a id='n3343' href='#n3343'>3343</a>
<a id='n3344' href='#n3344'>3344</a>
<a id='n3345' href='#n3345'>3345</a>
<a id='n3346' href='#n3346'>3346</a>
<a id='n3347' href='#n3347'>3347</a>
<a id='n3348' href='#n3348'>3348</a>
<a id='n3349' href='#n3349'>3349</a>
<a id='n3350' href='#n3350'>3350</a>
<a id='n3351' href='#n3351'>3351</a>
<a id='n3352' href='#n3352'>3352</a>
<a id='n3353' href='#n3353'>3353</a>
<a id='n3354' href='#n3354'>3354</a>
<a id='n3355' href='#n3355'>3355</a>
<a id='n3356' href='#n3356'>3356</a>
<a id='n3357' href='#n3357'>3357</a>
<a id='n3358' href='#n3358'>3358</a>
<a id='n3359' href='#n3359'>3359</a>
<a id='n3360' href='#n3360'>3360</a>
<a id='n3361' href='#n3361'>3361</a>
<a id='n3362' href='#n3362'>3362</a>
<a id='n3363' href='#n3363'>3363</a>
<a id='n3364' href='#n3364'>3364</a>
<a id='n3365' href='#n3365'>3365</a>
<a id='n3366' href='#n3366'>3366</a>
<a id='n3367' href='#n3367'>3367</a>
<a id='n3368' href='#n3368'>3368</a>
<a id='n3369' href='#n3369'>3369</a>
<a id='n3370' href='#n3370'>3370</a>
<a id='n3371' href='#n3371'>3371</a>
<a id='n3372' href='#n3372'>3372</a>
<a id='n3373' href='#n3373'>3373</a>
<a id='n3374' href='#n3374'>3374</a>
<a id='n3375' href='#n3375'>3375</a>
<a id='n3376' href='#n3376'>3376</a>
<a id='n3377' href='#n3377'>3377</a>
<a id='n3378' href='#n3378'>3378</a>
<a id='n3379' href='#n3379'>3379</a>
<a id='n3380' href='#n3380'>3380</a>
<a id='n3381' href='#n3381'>3381</a>
<a id='n3382' href='#n3382'>3382</a>
<a id='n3383' href='#n3383'>3383</a>
<a id='n3384' href='#n3384'>3384</a>
<a id='n3385' href='#n3385'>3385</a>
<a id='n3386' href='#n3386'>3386</a>
<a id='n3387' href='#n3387'>3387</a>
<a id='n3388' href='#n3388'>3388</a>
<a id='n3389' href='#n3389'>3389</a>
<a id='n3390' href='#n3390'>3390</a>
<a id='n3391' href='#n3391'>3391</a>
<a id='n3392' href='#n3392'>3392</a>
<a id='n3393' href='#n3393'>3393</a>
<a id='n3394' href='#n3394'>3394</a>
<a id='n3395' href='#n3395'>3395</a>
<a id='n3396' href='#n3396'>3396</a>
<a id='n3397' href='#n3397'>3397</a>
<a id='n3398' href='#n3398'>3398</a>
<a id='n3399' href='#n3399'>3399</a>
<a id='n3400' href='#n3400'>3400</a>
<a id='n3401' href='#n3401'>3401</a>
<a id='n3402' href='#n3402'>3402</a>
<a id='n3403' href='#n3403'>3403</a>
<a id='n3404' href='#n3404'>3404</a>
<a id='n3405' href='#n3405'>3405</a>
<a id='n3406' href='#n3406'>3406</a>
<a id='n3407' href='#n3407'>3407</a>
<a id='n3408' href='#n3408'>3408</a>
<a id='n3409' href='#n3409'>3409</a>
<a id='n3410' href='#n3410'>3410</a>
<a id='n3411' href='#n3411'>3411</a>
<a id='n3412' href='#n3412'>3412</a>
<a id='n3413' href='#n3413'>3413</a>
<a id='n3414' href='#n3414'>3414</a>
<a id='n3415' href='#n3415'>3415</a>
<a id='n3416' href='#n3416'>3416</a>
<a id='n3417' href='#n3417'>3417</a>
<a id='n3418' href='#n3418'>3418</a>
<a id='n3419' href='#n3419'>3419</a>
<a id='n3420' href='#n3420'>3420</a>
<a id='n3421' href='#n3421'>3421</a>
<a id='n3422' href='#n3422'>3422</a>
<a id='n3423' href='#n3423'>3423</a>
<a id='n3424' href='#n3424'>3424</a>
<a id='n3425' href='#n3425'>3425</a>
<a id='n3426' href='#n3426'>3426</a>
<a id='n3427' href='#n3427'>3427</a>
<a id='n3428' href='#n3428'>3428</a>
<a id='n3429' href='#n3429'>3429</a>
<a id='n3430' href='#n3430'>3430</a>
<a id='n3431' href='#n3431'>3431</a>
<a id='n3432' href='#n3432'>3432</a>
<a id='n3433' href='#n3433'>3433</a>
<a id='n3434' href='#n3434'>3434</a>
<a id='n3435' href='#n3435'>3435</a>
<a id='n3436' href='#n3436'>3436</a>
<a id='n3437' href='#n3437'>3437</a>
<a id='n3438' href='#n3438'>3438</a>
<a id='n3439' href='#n3439'>3439</a>
<a id='n3440' href='#n3440'>3440</a>
<a id='n3441' href='#n3441'>3441</a>
<a id='n3442' href='#n3442'>3442</a>
<a id='n3443' href='#n3443'>3443</a>
<a id='n3444' href='#n3444'>3444</a>
<a id='n3445' href='#n3445'>3445</a>
<a id='n3446' href='#n3446'>3446</a>
<a id='n3447' href='#n3447'>3447</a>
<a id='n3448' href='#n3448'>3448</a>
<a id='n3449' href='#n3449'>3449</a>
<a id='n3450' href='#n3450'>3450</a>
<a id='n3451' href='#n3451'>3451</a>
<a id='n3452' href='#n3452'>3452</a>
<a id='n3453' href='#n3453'>3453</a>
<a id='n3454' href='#n3454'>3454</a>
<a id='n3455' href='#n3455'>3455</a>
<a id='n3456' href='#n3456'>3456</a>
<a id='n3457' href='#n3457'>3457</a>
<a id='n3458' href='#n3458'>3458</a>
<a id='n3459' href='#n3459'>3459</a>
<a id='n3460' href='#n3460'>3460</a>
<a id='n3461' href='#n3461'>3461</a>
<a id='n3462' href='#n3462'>3462</a>
<a id='n3463' href='#n3463'>3463</a>
<a id='n3464' href='#n3464'>3464</a>
<a id='n3465' href='#n3465'>3465</a>
<a id='n3466' href='#n3466'>3466</a>
<a id='n3467' href='#n3467'>3467</a>
<a id='n3468' href='#n3468'>3468</a>
<a id='n3469' href='#n3469'>3469</a>
<a id='n3470' href='#n3470'>3470</a>
<a id='n3471' href='#n3471'>3471</a>
<a id='n3472' href='#n3472'>3472</a>
<a id='n3473' href='#n3473'>3473</a>
<a id='n3474' href='#n3474'>3474</a>
<a id='n3475' href='#n3475'>3475</a>
<a id='n3476' href='#n3476'>3476</a>
<a id='n3477' href='#n3477'>3477</a>
<a id='n3478' href='#n3478'>3478</a>
<a id='n3479' href='#n3479'>3479</a>
<a id='n3480' href='#n3480'>3480</a>
<a id='n3481' href='#n3481'>3481</a>
<a id='n3482' href='#n3482'>3482</a>
<a id='n3483' href='#n3483'>3483</a>
<a id='n3484' href='#n3484'>3484</a>
<a id='n3485' href='#n3485'>3485</a>
<a id='n3486' href='#n3486'>3486</a>
<a id='n3487' href='#n3487'>3487</a>
<a id='n3488' href='#n3488'>3488</a>
<a id='n3489' href='#n3489'>3489</a>
<a id='n3490' href='#n3490'>3490</a>
<a id='n3491' href='#n3491'>3491</a>
<a id='n3492' href='#n3492'>3492</a>
<a id='n3493' href='#n3493'>3493</a>
<a id='n3494' href='#n3494'>3494</a>
<a id='n3495' href='#n3495'>3495</a>
<a id='n3496' href='#n3496'>3496</a>
<a id='n3497' href='#n3497'>3497</a>
<a id='n3498' href='#n3498'>3498</a>
<a id='n3499' href='#n3499'>3499</a>
<a id='n3500' href='#n3500'>3500</a>
<a id='n3501' href='#n3501'>3501</a>
<a id='n3502' href='#n3502'>3502</a>
<a id='n3503' href='#n3503'>3503</a>
<a id='n3504' href='#n3504'>3504</a>
<a id='n3505' href='#n3505'>3505</a>
<a id='n3506' href='#n3506'>3506</a>
<a id='n3507' href='#n3507'>3507</a>
<a id='n3508' href='#n3508'>3508</a>
<a id='n3509' href='#n3509'>3509</a>
<a id='n3510' href='#n3510'>3510</a>
<a id='n3511' href='#n3511'>3511</a>
<a id='n3512' href='#n3512'>3512</a>
<a id='n3513' href='#n3513'>3513</a>
<a id='n3514' href='#n3514'>3514</a>
<a id='n3515' href='#n3515'>3515</a>
<a id='n3516' href='#n3516'>3516</a>
<a id='n3517' href='#n3517'>3517</a>
<a id='n3518' href='#n3518'>3518</a>
<a id='n3519' href='#n3519'>3519</a>
<a id='n3520' href='#n3520'>3520</a>
<a id='n3521' href='#n3521'>3521</a>
<a id='n3522' href='#n3522'>3522</a>
<a id='n3523' href='#n3523'>3523</a>
<a id='n3524' href='#n3524'>3524</a>
<a id='n3525' href='#n3525'>3525</a>
<a id='n3526' href='#n3526'>3526</a>
<a id='n3527' href='#n3527'>3527</a>
<a id='n3528' href='#n3528'>3528</a>
<a id='n3529' href='#n3529'>3529</a>
<a id='n3530' href='#n3530'>3530</a>
<a id='n3531' href='#n3531'>3531</a>
<a id='n3532' href='#n3532'>3532</a>
<a id='n3533' href='#n3533'>3533</a>
<a id='n3534' href='#n3534'>3534</a>
<a id='n3535' href='#n3535'>3535</a>
<a id='n3536' href='#n3536'>3536</a>
<a id='n3537' href='#n3537'>3537</a>
<a id='n3538' href='#n3538'>3538</a>
<a id='n3539' href='#n3539'>3539</a>
<a id='n3540' href='#n3540'>3540</a>
<a id='n3541' href='#n3541'>3541</a>
<a id='n3542' href='#n3542'>3542</a>
<a id='n3543' href='#n3543'>3543</a>
<a id='n3544' href='#n3544'>3544</a>
<a id='n3545' href='#n3545'>3545</a>
<a id='n3546' href='#n3546'>3546</a>
<a id='n3547' href='#n3547'>3547</a>
<a id='n3548' href='#n3548'>3548</a>
<a id='n3549' href='#n3549'>3549</a>
<a id='n3550' href='#n3550'>3550</a>
<a id='n3551' href='#n3551'>3551</a>
<a id='n3552' href='#n3552'>3552</a>
<a id='n3553' href='#n3553'>3553</a>
<a id='n3554' href='#n3554'>3554</a>
<a id='n3555' href='#n3555'>3555</a>
<a id='n3556' href='#n3556'>3556</a>
<a id='n3557' href='#n3557'>3557</a>
<a id='n3558' href='#n3558'>3558</a>
<a id='n3559' href='#n3559'>3559</a>
<a id='n3560' href='#n3560'>3560</a>
<a id='n3561' href='#n3561'>3561</a>
<a id='n3562' href='#n3562'>3562</a>
<a id='n3563' href='#n3563'>3563</a>
<a id='n3564' href='#n3564'>3564</a>
<a id='n3565' href='#n3565'>3565</a>
<a id='n3566' href='#n3566'>3566</a>
<a id='n3567' href='#n3567'>3567</a>
<a id='n3568' href='#n3568'>3568</a>
<a id='n3569' href='#n3569'>3569</a>
<a id='n3570' href='#n3570'>3570</a>
<a id='n3571' href='#n3571'>3571</a>
<a id='n3572' href='#n3572'>3572</a>
<a id='n3573' href='#n3573'>3573</a>
<a id='n3574' href='#n3574'>3574</a>
<a id='n3575' href='#n3575'>3575</a>
<a id='n3576' href='#n3576'>3576</a>
<a id='n3577' href='#n3577'>3577</a>
<a id='n3578' href='#n3578'>3578</a>
<a id='n3579' href='#n3579'>3579</a>
<a id='n3580' href='#n3580'>3580</a>
<a id='n3581' href='#n3581'>3581</a>
<a id='n3582' href='#n3582'>3582</a>
<a id='n3583' href='#n3583'>3583</a>
<a id='n3584' href='#n3584'>3584</a>
<a id='n3585' href='#n3585'>3585</a>
<a id='n3586' href='#n3586'>3586</a>
<a id='n3587' href='#n3587'>3587</a>
<a id='n3588' href='#n3588'>3588</a>
<a id='n3589' href='#n3589'>3589</a>
<a id='n3590' href='#n3590'>3590</a>
<a id='n3591' href='#n3591'>3591</a>
<a id='n3592' href='#n3592'>3592</a>
<a id='n3593' href='#n3593'>3593</a>
<a id='n3594' href='#n3594'>3594</a>
<a id='n3595' href='#n3595'>3595</a>
<a id='n3596' href='#n3596'>3596</a>
<a id='n3597' href='#n3597'>3597</a>
<a id='n3598' href='#n3598'>3598</a>
<a id='n3599' href='#n3599'>3599</a>
<a id='n3600' href='#n3600'>3600</a>
<a id='n3601' href='#n3601'>3601</a>
<a id='n3602' href='#n3602'>3602</a>
<a id='n3603' href='#n3603'>3603</a>
<a id='n3604' href='#n3604'>3604</a>
<a id='n3605' href='#n3605'>3605</a>
<a id='n3606' href='#n3606'>3606</a>
<a id='n3607' href='#n3607'>3607</a>
<a id='n3608' href='#n3608'>3608</a>
<a id='n3609' href='#n3609'>3609</a>
<a id='n3610' href='#n3610'>3610</a>
<a id='n3611' href='#n3611'>3611</a>
<a id='n3612' href='#n3612'>3612</a>
<a id='n3613' href='#n3613'>3613</a>
<a id='n3614' href='#n3614'>3614</a>
<a id='n3615' href='#n3615'>3615</a>
<a id='n3616' href='#n3616'>3616</a>
<a id='n3617' href='#n3617'>3617</a>
<a id='n3618' href='#n3618'>3618</a>
<a id='n3619' href='#n3619'>3619</a>
<a id='n3620' href='#n3620'>3620</a>
<a id='n3621' href='#n3621'>3621</a>
<a id='n3622' href='#n3622'>3622</a>
<a id='n3623' href='#n3623'>3623</a>
<a id='n3624' href='#n3624'>3624</a>
<a id='n3625' href='#n3625'>3625</a>
<a id='n3626' href='#n3626'>3626</a>
<a id='n3627' href='#n3627'>3627</a>
<a id='n3628' href='#n3628'>3628</a>
<a id='n3629' href='#n3629'>3629</a>
<a id='n3630' href='#n3630'>3630</a>
<a id='n3631' href='#n3631'>3631</a>
<a id='n3632' href='#n3632'>3632</a>
<a id='n3633' href='#n3633'>3633</a>
<a id='n3634' href='#n3634'>3634</a>
<a id='n3635' href='#n3635'>3635</a>
<a id='n3636' href='#n3636'>3636</a>
<a id='n3637' href='#n3637'>3637</a>
<a id='n3638' href='#n3638'>3638</a>
<a id='n3639' href='#n3639'>3639</a>
<a id='n3640' href='#n3640'>3640</a>
<a id='n3641' href='#n3641'>3641</a>
<a id='n3642' href='#n3642'>3642</a>
<a id='n3643' href='#n3643'>3643</a>
<a id='n3644' href='#n3644'>3644</a>
<a id='n3645' href='#n3645'>3645</a>
<a id='n3646' href='#n3646'>3646</a>
<a id='n3647' href='#n3647'>3647</a>
<a id='n3648' href='#n3648'>3648</a>
<a id='n3649' href='#n3649'>3649</a>
<a id='n3650' href='#n3650'>3650</a>
<a id='n3651' href='#n3651'>3651</a>
<a id='n3652' href='#n3652'>3652</a>
<a id='n3653' href='#n3653'>3653</a>
<a id='n3654' href='#n3654'>3654</a>
<a id='n3655' href='#n3655'>3655</a>
<a id='n3656' href='#n3656'>3656</a>
<a id='n3657' href='#n3657'>3657</a>
<a id='n3658' href='#n3658'>3658</a>
<a id='n3659' href='#n3659'>3659</a>
<a id='n3660' href='#n3660'>3660</a>
<a id='n3661' href='#n3661'>3661</a>
<a id='n3662' href='#n3662'>3662</a>
<a id='n3663' href='#n3663'>3663</a>
<a id='n3664' href='#n3664'>3664</a>
<a id='n3665' href='#n3665'>3665</a>
<a id='n3666' href='#n3666'>3666</a>
<a id='n3667' href='#n3667'>3667</a>
<a id='n3668' href='#n3668'>3668</a>
<a id='n3669' href='#n3669'>3669</a>
<a id='n3670' href='#n3670'>3670</a>
<a id='n3671' href='#n3671'>3671</a>
<a id='n3672' href='#n3672'>3672</a>
<a id='n3673' href='#n3673'>3673</a>
<a id='n3674' href='#n3674'>3674</a>
<a id='n3675' href='#n3675'>3675</a>
<a id='n3676' href='#n3676'>3676</a>
<a id='n3677' href='#n3677'>3677</a>
<a id='n3678' href='#n3678'>3678</a>
<a id='n3679' href='#n3679'>3679</a>
<a id='n3680' href='#n3680'>3680</a>
<a id='n3681' href='#n3681'>3681</a>
<a id='n3682' href='#n3682'>3682</a>
<a id='n3683' href='#n3683'>3683</a>
<a id='n3684' href='#n3684'>3684</a>
<a id='n3685' href='#n3685'>3685</a>
<a id='n3686' href='#n3686'>3686</a>
<a id='n3687' href='#n3687'>3687</a>
<a id='n3688' href='#n3688'>3688</a>
<a id='n3689' href='#n3689'>3689</a>
<a id='n3690' href='#n3690'>3690</a>
<a id='n3691' href='#n3691'>3691</a>
<a id='n3692' href='#n3692'>3692</a>
<a id='n3693' href='#n3693'>3693</a>
<a id='n3694' href='#n3694'>3694</a>
<a id='n3695' href='#n3695'>3695</a>
<a id='n3696' href='#n3696'>3696</a>
<a id='n3697' href='#n3697'>3697</a>
<a id='n3698' href='#n3698'>3698</a>
<a id='n3699' href='#n3699'>3699</a>
<a id='n3700' href='#n3700'>3700</a>
<a id='n3701' href='#n3701'>3701</a>
<a id='n3702' href='#n3702'>3702</a>
<a id='n3703' href='#n3703'>3703</a>
<a id='n3704' href='#n3704'>3704</a>
<a id='n3705' href='#n3705'>3705</a>
<a id='n3706' href='#n3706'>3706</a>
<a id='n3707' href='#n3707'>3707</a>
<a id='n3708' href='#n3708'>3708</a>
<a id='n3709' href='#n3709'>3709</a>
<a id='n3710' href='#n3710'>3710</a>
<a id='n3711' href='#n3711'>3711</a>
<a id='n3712' href='#n3712'>3712</a>
<a id='n3713' href='#n3713'>3713</a>
<a id='n3714' href='#n3714'>3714</a>
<a id='n3715' href='#n3715'>3715</a>
<a id='n3716' href='#n3716'>3716</a>
<a id='n3717' href='#n3717'>3717</a>
<a id='n3718' href='#n3718'>3718</a>
<a id='n3719' href='#n3719'>3719</a>
<a id='n3720' href='#n3720'>3720</a>
<a id='n3721' href='#n3721'>3721</a>
<a id='n3722' href='#n3722'>3722</a>
<a id='n3723' href='#n3723'>3723</a>
<a id='n3724' href='#n3724'>3724</a>
<a id='n3725' href='#n3725'>3725</a>
<a id='n3726' href='#n3726'>3726</a>
<a id='n3727' href='#n3727'>3727</a>
<a id='n3728' href='#n3728'>3728</a>
<a id='n3729' href='#n3729'>3729</a>
<a id='n3730' href='#n3730'>3730</a>
<a id='n3731' href='#n3731'>3731</a>
<a id='n3732' href='#n3732'>3732</a>
<a id='n3733' href='#n3733'>3733</a>
<a id='n3734' href='#n3734'>3734</a>
<a id='n3735' href='#n3735'>3735</a>
<a id='n3736' href='#n3736'>3736</a>
<a id='n3737' href='#n3737'>3737</a>
<a id='n3738' href='#n3738'>3738</a>
<a id='n3739' href='#n3739'>3739</a>
<a id='n3740' href='#n3740'>3740</a>
<a id='n3741' href='#n3741'>3741</a>
<a id='n3742' href='#n3742'>3742</a>
<a id='n3743' href='#n3743'>3743</a>
<a id='n3744' href='#n3744'>3744</a>
<a id='n3745' href='#n3745'>3745</a>
<a id='n3746' href='#n3746'>3746</a>
<a id='n3747' href='#n3747'>3747</a>
<a id='n3748' href='#n3748'>3748</a>
<a id='n3749' href='#n3749'>3749</a>
<a id='n3750' href='#n3750'>3750</a>
<a id='n3751' href='#n3751'>3751</a>
<a id='n3752' href='#n3752'>3752</a>
<a id='n3753' href='#n3753'>3753</a>
<a id='n3754' href='#n3754'>3754</a>
<a id='n3755' href='#n3755'>3755</a>
<a id='n3756' href='#n3756'>3756</a>
<a id='n3757' href='#n3757'>3757</a>
<a id='n3758' href='#n3758'>3758</a>
<a id='n3759' href='#n3759'>3759</a>
<a id='n3760' href='#n3760'>3760</a>
<a id='n3761' href='#n3761'>3761</a>
<a id='n3762' href='#n3762'>3762</a>
<a id='n3763' href='#n3763'>3763</a>
<a id='n3764' href='#n3764'>3764</a>
<a id='n3765' href='#n3765'>3765</a>
<a id='n3766' href='#n3766'>3766</a>
<a id='n3767' href='#n3767'>3767</a>
<a id='n3768' href='#n3768'>3768</a>
<a id='n3769' href='#n3769'>3769</a>
<a id='n3770' href='#n3770'>3770</a>
<a id='n3771' href='#n3771'>3771</a>
<a id='n3772' href='#n3772'>3772</a>
<a id='n3773' href='#n3773'>3773</a>
<a id='n3774' href='#n3774'>3774</a>
<a id='n3775' href='#n3775'>3775</a>
<a id='n3776' href='#n3776'>3776</a>
<a id='n3777' href='#n3777'>3777</a>
<a id='n3778' href='#n3778'>3778</a>
<a id='n3779' href='#n3779'>3779</a>
<a id='n3780' href='#n3780'>3780</a>
<a id='n3781' href='#n3781'>3781</a>
<a id='n3782' href='#n3782'>3782</a>
<a id='n3783' href='#n3783'>3783</a>
<a id='n3784' href='#n3784'>3784</a>
<a id='n3785' href='#n3785'>3785</a>
<a id='n3786' href='#n3786'>3786</a>
<a id='n3787' href='#n3787'>3787</a>
<a id='n3788' href='#n3788'>3788</a>
<a id='n3789' href='#n3789'>3789</a>
<a id='n3790' href='#n3790'>3790</a>
<a id='n3791' href='#n3791'>3791</a>
<a id='n3792' href='#n3792'>3792</a>
<a id='n3793' href='#n3793'>3793</a>
<a id='n3794' href='#n3794'>3794</a>
<a id='n3795' href='#n3795'>3795</a>
<a id='n3796' href='#n3796'>3796</a>
<a id='n3797' href='#n3797'>3797</a>
<a id='n3798' href='#n3798'>3798</a>
<a id='n3799' href='#n3799'>3799</a>
<a id='n3800' href='#n3800'>3800</a>
<a id='n3801' href='#n3801'>3801</a>
<a id='n3802' href='#n3802'>3802</a>
<a id='n3803' href='#n3803'>3803</a>
<a id='n3804' href='#n3804'>3804</a>
<a id='n3805' href='#n3805'>3805</a>
<a id='n3806' href='#n3806'>3806</a>
<a id='n3807' href='#n3807'>3807</a>
<a id='n3808' href='#n3808'>3808</a>
<a id='n3809' href='#n3809'>3809</a>
<a id='n3810' href='#n3810'>3810</a>
<a id='n3811' href='#n3811'>3811</a>
<a id='n3812' href='#n3812'>3812</a>
<a id='n3813' href='#n3813'>3813</a>
<a id='n3814' href='#n3814'>3814</a>
<a id='n3815' href='#n3815'>3815</a>
<a id='n3816' href='#n3816'>3816</a>
<a id='n3817' href='#n3817'>3817</a>
<a id='n3818' href='#n3818'>3818</a>
<a id='n3819' href='#n3819'>3819</a>
<a id='n3820' href='#n3820'>3820</a>
<a id='n3821' href='#n3821'>3821</a>
<a id='n3822' href='#n3822'>3822</a>
<a id='n3823' href='#n3823'>3823</a>
<a id='n3824' href='#n3824'>3824</a>
<a id='n3825' href='#n3825'>3825</a>
<a id='n3826' href='#n3826'>3826</a>
<a id='n3827' href='#n3827'>3827</a>
<a id='n3828' href='#n3828'>3828</a>
<a id='n3829' href='#n3829'>3829</a>
<a id='n3830' href='#n3830'>3830</a>
<a id='n3831' href='#n3831'>3831</a>
<a id='n3832' href='#n3832'>3832</a>
<a id='n3833' href='#n3833'>3833</a>
<a id='n3834' href='#n3834'>3834</a>
<a id='n3835' href='#n3835'>3835</a>
<a id='n3836' href='#n3836'>3836</a>
<a id='n3837' href='#n3837'>3837</a>
<a id='n3838' href='#n3838'>3838</a>
<a id='n3839' href='#n3839'>3839</a>
<a id='n3840' href='#n3840'>3840</a>
<a id='n3841' href='#n3841'>3841</a>
<a id='n3842' href='#n3842'>3842</a>
<a id='n3843' href='#n3843'>3843</a>
<a id='n3844' href='#n3844'>3844</a>
<a id='n3845' href='#n3845'>3845</a>
<a id='n3846' href='#n3846'>3846</a>
<a id='n3847' href='#n3847'>3847</a>
<a id='n3848' href='#n3848'>3848</a>
<a id='n3849' href='#n3849'>3849</a>
<a id='n3850' href='#n3850'>3850</a>
<a id='n3851' href='#n3851'>3851</a>
<a id='n3852' href='#n3852'>3852</a>
<a id='n3853' href='#n3853'>3853</a>
<a id='n3854' href='#n3854'>3854</a>
<a id='n3855' href='#n3855'>3855</a>
<a id='n3856' href='#n3856'>3856</a>
<a id='n3857' href='#n3857'>3857</a>
<a id='n3858' href='#n3858'>3858</a>
<a id='n3859' href='#n3859'>3859</a>
<a id='n3860' href='#n3860'>3860</a>
<a id='n3861' href='#n3861'>3861</a>
<a id='n3862' href='#n3862'>3862</a>
<a id='n3863' href='#n3863'>3863</a>
<a id='n3864' href='#n3864'>3864</a>
<a id='n3865' href='#n3865'>3865</a>
<a id='n3866' href='#n3866'>3866</a>
<a id='n3867' href='#n3867'>3867</a>
<a id='n3868' href='#n3868'>3868</a>
<a id='n3869' href='#n3869'>3869</a>
<a id='n3870' href='#n3870'>3870</a>
<a id='n3871' href='#n3871'>3871</a>
<a id='n3872' href='#n3872'>3872</a>
<a id='n3873' href='#n3873'>3873</a>
<a id='n3874' href='#n3874'>3874</a>
<a id='n3875' href='#n3875'>3875</a>
<a id='n3876' href='#n3876'>3876</a>
<a id='n3877' href='#n3877'>3877</a>
<a id='n3878' href='#n3878'>3878</a>
<a id='n3879' href='#n3879'>3879</a>
<a id='n3880' href='#n3880'>3880</a>
<a id='n3881' href='#n3881'>3881</a>
<a id='n3882' href='#n3882'>3882</a>
<a id='n3883' href='#n3883'>3883</a>
<a id='n3884' href='#n3884'>3884</a>
<a id='n3885' href='#n3885'>3885</a>
<a id='n3886' href='#n3886'>3886</a>
<a id='n3887' href='#n3887'>3887</a>
<a id='n3888' href='#n3888'>3888</a>
<a id='n3889' href='#n3889'>3889</a>
<a id='n3890' href='#n3890'>3890</a>
<a id='n3891' href='#n3891'>3891</a>
<a id='n3892' href='#n3892'>3892</a>
<a id='n3893' href='#n3893'>3893</a>
<a id='n3894' href='#n3894'>3894</a>
<a id='n3895' href='#n3895'>3895</a>
<a id='n3896' href='#n3896'>3896</a>
<a id='n3897' href='#n3897'>3897</a>
<a id='n3898' href='#n3898'>3898</a>
<a id='n3899' href='#n3899'>3899</a>
<a id='n3900' href='#n3900'>3900</a>
<a id='n3901' href='#n3901'>3901</a>
<a id='n3902' href='#n3902'>3902</a>
<a id='n3903' href='#n3903'>3903</a>
<a id='n3904' href='#n3904'>3904</a>
<a id='n3905' href='#n3905'>3905</a>
<a id='n3906' href='#n3906'>3906</a>
<a id='n3907' href='#n3907'>3907</a>
<a id='n3908' href='#n3908'>3908</a>
<a id='n3909' href='#n3909'>3909</a>
<a id='n3910' href='#n3910'>3910</a>
<a id='n3911' href='#n3911'>3911</a>
<a id='n3912' href='#n3912'>3912</a>
<a id='n3913' href='#n3913'>3913</a>
<a id='n3914' href='#n3914'>3914</a>
<a id='n3915' href='#n3915'>3915</a>
<a id='n3916' href='#n3916'>3916</a>
<a id='n3917' href='#n3917'>3917</a>
<a id='n3918' href='#n3918'>3918</a>
<a id='n3919' href='#n3919'>3919</a>
<a id='n3920' href='#n3920'>3920</a>
<a id='n3921' href='#n3921'>3921</a>
<a id='n3922' href='#n3922'>3922</a>
<a id='n3923' href='#n3923'>3923</a>
<a id='n3924' href='#n3924'>3924</a>
<a id='n3925' href='#n3925'>3925</a>
<a id='n3926' href='#n3926'>3926</a>
<a id='n3927' href='#n3927'>3927</a>
<a id='n3928' href='#n3928'>3928</a>
<a id='n3929' href='#n3929'>3929</a>
<a id='n3930' href='#n3930'>3930</a>
<a id='n3931' href='#n3931'>3931</a>
<a id='n3932' href='#n3932'>3932</a>
<a id='n3933' href='#n3933'>3933</a>
<a id='n3934' href='#n3934'>3934</a>
<a id='n3935' href='#n3935'>3935</a>
<a id='n3936' href='#n3936'>3936</a>
<a id='n3937' href='#n3937'>3937</a>
<a id='n3938' href='#n3938'>3938</a>
<a id='n3939' href='#n3939'>3939</a>
<a id='n3940' href='#n3940'>3940</a>
<a id='n3941' href='#n3941'>3941</a>
<a id='n3942' href='#n3942'>3942</a>
<a id='n3943' href='#n3943'>3943</a>
<a id='n3944' href='#n3944'>3944</a>
<a id='n3945' href='#n3945'>3945</a>
<a id='n3946' href='#n3946'>3946</a>
<a id='n3947' href='#n3947'>3947</a>
<a id='n3948' href='#n3948'>3948</a>
<a id='n3949' href='#n3949'>3949</a>
<a id='n3950' href='#n3950'>3950</a>
<a id='n3951' href='#n3951'>3951</a>
<a id='n3952' href='#n3952'>3952</a>
<a id='n3953' href='#n3953'>3953</a>
<a id='n3954' href='#n3954'>3954</a>
<a id='n3955' href='#n3955'>3955</a>
<a id='n3956' href='#n3956'>3956</a>
<a id='n3957' href='#n3957'>3957</a>
<a id='n3958' href='#n3958'>3958</a>
<a id='n3959' href='#n3959'>3959</a>
<a id='n3960' href='#n3960'>3960</a>
<a id='n3961' href='#n3961'>3961</a>
<a id='n3962' href='#n3962'>3962</a>
<a id='n3963' href='#n3963'>3963</a>
<a id='n3964' href='#n3964'>3964</a>
<a id='n3965' href='#n3965'>3965</a>
<a id='n3966' href='#n3966'>3966</a>
<a id='n3967' href='#n3967'>3967</a>
<a id='n3968' href='#n3968'>3968</a>
<a id='n3969' href='#n3969'>3969</a>
<a id='n3970' href='#n3970'>3970</a>
<a id='n3971' href='#n3971'>3971</a>
<a id='n3972' href='#n3972'>3972</a>
<a id='n3973' href='#n3973'>3973</a>
<a id='n3974' href='#n3974'>3974</a>
<a id='n3975' href='#n3975'>3975</a>
<a id='n3976' href='#n3976'>3976</a>
<a id='n3977' href='#n3977'>3977</a>
<a id='n3978' href='#n3978'>3978</a>
<a id='n3979' href='#n3979'>3979</a>
<a id='n3980' href='#n3980'>3980</a>
<a id='n3981' href='#n3981'>3981</a>
<a id='n3982' href='#n3982'>3982</a>
<a id='n3983' href='#n3983'>3983</a>
<a id='n3984' href='#n3984'>3984</a>
<a id='n3985' href='#n3985'>3985</a>
<a id='n3986' href='#n3986'>3986</a>
<a id='n3987' href='#n3987'>3987</a>
<a id='n3988' href='#n3988'>3988</a>
<a id='n3989' href='#n3989'>3989</a>
<a id='n3990' href='#n3990'>3990</a>
<a id='n3991' href='#n3991'>3991</a>
<a id='n3992' href='#n3992'>3992</a>
<a id='n3993' href='#n3993'>3993</a>
<a id='n3994' href='#n3994'>3994</a>
<a id='n3995' href='#n3995'>3995</a>
<a id='n3996' href='#n3996'>3996</a>
<a id='n3997' href='#n3997'>3997</a>
<a id='n3998' href='#n3998'>3998</a>
<a id='n3999' href='#n3999'>3999</a>
<a id='n4000' href='#n4000'>4000</a>
<a id='n4001' href='#n4001'>4001</a>
<a id='n4002' href='#n4002'>4002</a>
<a id='n4003' href='#n4003'>4003</a>
<a id='n4004' href='#n4004'>4004</a>
<a id='n4005' href='#n4005'>4005</a>
<a id='n4006' href='#n4006'>4006</a>
<a id='n4007' href='#n4007'>4007</a>
<a id='n4008' href='#n4008'>4008</a>
<a id='n4009' href='#n4009'>4009</a>
<a id='n4010' href='#n4010'>4010</a>
<a id='n4011' href='#n4011'>4011</a>
<a id='n4012' href='#n4012'>4012</a>
<a id='n4013' href='#n4013'>4013</a>
<a id='n4014' href='#n4014'>4014</a>
<a id='n4015' href='#n4015'>4015</a>
<a id='n4016' href='#n4016'>4016</a>
<a id='n4017' href='#n4017'>4017</a>
<a id='n4018' href='#n4018'>4018</a>
<a id='n4019' href='#n4019'>4019</a>
<a id='n4020' href='#n4020'>4020</a>
<a id='n4021' href='#n4021'>4021</a>
<a id='n4022' href='#n4022'>4022</a>
<a id='n4023' href='#n4023'>4023</a>
<a id='n4024' href='#n4024'>4024</a>
<a id='n4025' href='#n4025'>4025</a>
<a id='n4026' href='#n4026'>4026</a>
<a id='n4027' href='#n4027'>4027</a>
<a id='n4028' href='#n4028'>4028</a>
<a id='n4029' href='#n4029'>4029</a>
<a id='n4030' href='#n4030'>4030</a>
<a id='n4031' href='#n4031'>4031</a>
<a id='n4032' href='#n4032'>4032</a>
<a id='n4033' href='#n4033'>4033</a>
<a id='n4034' href='#n4034'>4034</a>
<a id='n4035' href='#n4035'>4035</a>
<a id='n4036' href='#n4036'>4036</a>
<a id='n4037' href='#n4037'>4037</a>
<a id='n4038' href='#n4038'>4038</a>
<a id='n4039' href='#n4039'>4039</a>
<a id='n4040' href='#n4040'>4040</a>
<a id='n4041' href='#n4041'>4041</a>
<a id='n4042' href='#n4042'>4042</a>
<a id='n4043' href='#n4043'>4043</a>
<a id='n4044' href='#n4044'>4044</a>
<a id='n4045' href='#n4045'>4045</a>
<a id='n4046' href='#n4046'>4046</a>
<a id='n4047' href='#n4047'>4047</a>
<a id='n4048' href='#n4048'>4048</a>
<a id='n4049' href='#n4049'>4049</a>
<a id='n4050' href='#n4050'>4050</a>
<a id='n4051' href='#n4051'>4051</a>
<a id='n4052' href='#n4052'>4052</a>
<a id='n4053' href='#n4053'>4053</a>
<a id='n4054' href='#n4054'>4054</a>
<a id='n4055' href='#n4055'>4055</a>
<a id='n4056' href='#n4056'>4056</a>
<a id='n4057' href='#n4057'>4057</a>
<a id='n4058' href='#n4058'>4058</a>
<a id='n4059' href='#n4059'>4059</a>
<a id='n4060' href='#n4060'>4060</a>
<a id='n4061' href='#n4061'>4061</a>
<a id='n4062' href='#n4062'>4062</a>
<a id='n4063' href='#n4063'>4063</a>
<a id='n4064' href='#n4064'>4064</a>
<a id='n4065' href='#n4065'>4065</a>
<a id='n4066' href='#n4066'>4066</a>
<a id='n4067' href='#n4067'>4067</a>
<a id='n4068' href='#n4068'>4068</a>
<a id='n4069' href='#n4069'>4069</a>
<a id='n4070' href='#n4070'>4070</a>
<a id='n4071' href='#n4071'>4071</a>
<a id='n4072' href='#n4072'>4072</a>
<a id='n4073' href='#n4073'>4073</a>
<a id='n4074' href='#n4074'>4074</a>
<a id='n4075' href='#n4075'>4075</a>
<a id='n4076' href='#n4076'>4076</a>
<a id='n4077' href='#n4077'>4077</a>
<a id='n4078' href='#n4078'>4078</a>
<a id='n4079' href='#n4079'>4079</a>
<a id='n4080' href='#n4080'>4080</a>
<a id='n4081' href='#n4081'>4081</a>
<a id='n4082' href='#n4082'>4082</a>
<a id='n4083' href='#n4083'>4083</a>
<a id='n4084' href='#n4084'>4084</a>
<a id='n4085' href='#n4085'>4085</a>
<a id='n4086' href='#n4086'>4086</a>
<a id='n4087' href='#n4087'>4087</a>
<a id='n4088' href='#n4088'>4088</a>
<a id='n4089' href='#n4089'>4089</a>
<a id='n4090' href='#n4090'>4090</a>
<a id='n4091' href='#n4091'>4091</a>
<a id='n4092' href='#n4092'>4092</a>
<a id='n4093' href='#n4093'>4093</a>
<a id='n4094' href='#n4094'>4094</a>
<a id='n4095' href='#n4095'>4095</a>
<a id='n4096' href='#n4096'>4096</a>
<a id='n4097' href='#n4097'>4097</a>
<a id='n4098' href='#n4098'>4098</a>
<a id='n4099' href='#n4099'>4099</a>
<a id='n4100' href='#n4100'>4100</a>
<a id='n4101' href='#n4101'>4101</a>
<a id='n4102' href='#n4102'>4102</a>
<a id='n4103' href='#n4103'>4103</a>
<a id='n4104' href='#n4104'>4104</a>
<a id='n4105' href='#n4105'>4105</a>
<a id='n4106' href='#n4106'>4106</a>
<a id='n4107' href='#n4107'>4107</a>
<a id='n4108' href='#n4108'>4108</a>
<a id='n4109' href='#n4109'>4109</a>
<a id='n4110' href='#n4110'>4110</a>
<a id='n4111' href='#n4111'>4111</a>
<a id='n4112' href='#n4112'>4112</a>
<a id='n4113' href='#n4113'>4113</a>
<a id='n4114' href='#n4114'>4114</a>
<a id='n4115' href='#n4115'>4115</a>
<a id='n4116' href='#n4116'>4116</a>
<a id='n4117' href='#n4117'>4117</a>
<a id='n4118' href='#n4118'>4118</a>
<a id='n4119' href='#n4119'>4119</a>
<a id='n4120' href='#n4120'>4120</a>
<a id='n4121' href='#n4121'>4121</a>
<a id='n4122' href='#n4122'>4122</a>
<a id='n4123' href='#n4123'>4123</a>
<a id='n4124' href='#n4124'>4124</a>
<a id='n4125' href='#n4125'>4125</a>
<a id='n4126' href='#n4126'>4126</a>
<a id='n4127' href='#n4127'>4127</a>
<a id='n4128' href='#n4128'>4128</a>
<a id='n4129' href='#n4129'>4129</a>
<a id='n4130' href='#n4130'>4130</a>
<a id='n4131' href='#n4131'>4131</a>
<a id='n4132' href='#n4132'>4132</a>
<a id='n4133' href='#n4133'>4133</a>
<a id='n4134' href='#n4134'>4134</a>
<a id='n4135' href='#n4135'>4135</a>
<a id='n4136' href='#n4136'>4136</a>
<a id='n4137' href='#n4137'>4137</a>
<a id='n4138' href='#n4138'>4138</a>
<a id='n4139' href='#n4139'>4139</a>
<a id='n4140' href='#n4140'>4140</a>
<a id='n4141' href='#n4141'>4141</a>
<a id='n4142' href='#n4142'>4142</a>
<a id='n4143' href='#n4143'>4143</a>
<a id='n4144' href='#n4144'>4144</a>
<a id='n4145' href='#n4145'>4145</a>
<a id='n4146' href='#n4146'>4146</a>
<a id='n4147' href='#n4147'>4147</a>
<a id='n4148' href='#n4148'>4148</a>
<a id='n4149' href='#n4149'>4149</a>
<a id='n4150' href='#n4150'>4150</a>
<a id='n4151' href='#n4151'>4151</a>
<a id='n4152' href='#n4152'>4152</a>
<a id='n4153' href='#n4153'>4153</a>
<a id='n4154' href='#n4154'>4154</a>
<a id='n4155' href='#n4155'>4155</a>
<a id='n4156' href='#n4156'>4156</a>
<a id='n4157' href='#n4157'>4157</a>
<a id='n4158' href='#n4158'>4158</a>
<a id='n4159' href='#n4159'>4159</a>
<a id='n4160' href='#n4160'>4160</a>
<a id='n4161' href='#n4161'>4161</a>
<a id='n4162' href='#n4162'>4162</a>
<a id='n4163' href='#n4163'>4163</a>
<a id='n4164' href='#n4164'>4164</a>
<a id='n4165' href='#n4165'>4165</a>
<a id='n4166' href='#n4166'>4166</a>
<a id='n4167' href='#n4167'>4167</a>
<a id='n4168' href='#n4168'>4168</a>
<a id='n4169' href='#n4169'>4169</a>
<a id='n4170' href='#n4170'>4170</a>
<a id='n4171' href='#n4171'>4171</a>
<a id='n4172' href='#n4172'>4172</a>
<a id='n4173' href='#n4173'>4173</a>
<a id='n4174' href='#n4174'>4174</a>
<a id='n4175' href='#n4175'>4175</a>
<a id='n4176' href='#n4176'>4176</a>
<a id='n4177' href='#n4177'>4177</a>
<a id='n4178' href='#n4178'>4178</a>
<a id='n4179' href='#n4179'>4179</a>
<a id='n4180' href='#n4180'>4180</a>
<a id='n4181' href='#n4181'>4181</a>
<a id='n4182' href='#n4182'>4182</a>
<a id='n4183' href='#n4183'>4183</a>
<a id='n4184' href='#n4184'>4184</a>
<a id='n4185' href='#n4185'>4185</a>
<a id='n4186' href='#n4186'>4186</a>
<a id='n4187' href='#n4187'>4187</a>
<a id='n4188' href='#n4188'>4188</a>
<a id='n4189' href='#n4189'>4189</a>
<a id='n4190' href='#n4190'>4190</a>
<a id='n4191' href='#n4191'>4191</a>
<a id='n4192' href='#n4192'>4192</a>
<a id='n4193' href='#n4193'>4193</a>
<a id='n4194' href='#n4194'>4194</a>
<a id='n4195' href='#n4195'>4195</a>
<a id='n4196' href='#n4196'>4196</a>
<a id='n4197' href='#n4197'>4197</a>
<a id='n4198' href='#n4198'>4198</a>
<a id='n4199' href='#n4199'>4199</a>
<a id='n4200' href='#n4200'>4200</a>
<a id='n4201' href='#n4201'>4201</a>
<a id='n4202' href='#n4202'>4202</a>
<a id='n4203' href='#n4203'>4203</a>
<a id='n4204' href='#n4204'>4204</a>
<a id='n4205' href='#n4205'>4205</a>
<a id='n4206' href='#n4206'>4206</a>
<a id='n4207' href='#n4207'>4207</a>
<a id='n4208' href='#n4208'>4208</a>
<a id='n4209' href='#n4209'>4209</a>
<a id='n4210' href='#n4210'>4210</a>
<a id='n4211' href='#n4211'>4211</a>
<a id='n4212' href='#n4212'>4212</a>
<a id='n4213' href='#n4213'>4213</a>
<a id='n4214' href='#n4214'>4214</a>
<a id='n4215' href='#n4215'>4215</a>
<a id='n4216' href='#n4216'>4216</a>
<a id='n4217' href='#n4217'>4217</a>
<a id='n4218' href='#n4218'>4218</a>
<a id='n4219' href='#n4219'>4219</a>
<a id='n4220' href='#n4220'>4220</a>
<a id='n4221' href='#n4221'>4221</a>
<a id='n4222' href='#n4222'>4222</a>
<a id='n4223' href='#n4223'>4223</a>
<a id='n4224' href='#n4224'>4224</a>
<a id='n4225' href='#n4225'>4225</a>
<a id='n4226' href='#n4226'>4226</a>
<a id='n4227' href='#n4227'>4227</a>
<a id='n4228' href='#n4228'>4228</a>
<a id='n4229' href='#n4229'>4229</a>
<a id='n4230' href='#n4230'>4230</a>
<a id='n4231' href='#n4231'>4231</a>
<a id='n4232' href='#n4232'>4232</a>
<a id='n4233' href='#n4233'>4233</a>
<a id='n4234' href='#n4234'>4234</a>
<a id='n4235' href='#n4235'>4235</a>
<a id='n4236' href='#n4236'>4236</a>
<a id='n4237' href='#n4237'>4237</a>
<a id='n4238' href='#n4238'>4238</a>
<a id='n4239' href='#n4239'>4239</a>
<a id='n4240' href='#n4240'>4240</a>
<a id='n4241' href='#n4241'>4241</a>
<a id='n4242' href='#n4242'>4242</a>
<a id='n4243' href='#n4243'>4243</a>
<a id='n4244' href='#n4244'>4244</a>
<a id='n4245' href='#n4245'>4245</a>
<a id='n4246' href='#n4246'>4246</a>
<a id='n4247' href='#n4247'>4247</a>
<a id='n4248' href='#n4248'>4248</a>
<a id='n4249' href='#n4249'>4249</a>
<a id='n4250' href='#n4250'>4250</a>
<a id='n4251' href='#n4251'>4251</a>
<a id='n4252' href='#n4252'>4252</a>
<a id='n4253' href='#n4253'>4253</a>
<a id='n4254' href='#n4254'>4254</a>
<a id='n4255' href='#n4255'>4255</a>
<a id='n4256' href='#n4256'>4256</a>
<a id='n4257' href='#n4257'>4257</a>
<a id='n4258' href='#n4258'>4258</a>
<a id='n4259' href='#n4259'>4259</a>
<a id='n4260' href='#n4260'>4260</a>
<a id='n4261' href='#n4261'>4261</a>
<a id='n4262' href='#n4262'>4262</a>
<a id='n4263' href='#n4263'>4263</a>
<a id='n4264' href='#n4264'>4264</a>
<a id='n4265' href='#n4265'>4265</a>
<a id='n4266' href='#n4266'>4266</a>
<a id='n4267' href='#n4267'>4267</a>
<a id='n4268' href='#n4268'>4268</a>
<a id='n4269' href='#n4269'>4269</a>
<a id='n4270' href='#n4270'>4270</a>
<a id='n4271' href='#n4271'>4271</a>
</pre></td>
<td class='lines'><pre><code><span class="hl kwa">package</span> printer<span class="hl opt">::</span>printerdrake<span class="hl opt">;</span>
<span class="hl slc"># $Id$</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> 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> interactive<span class="hl opt">;</span>
<span class="hl kwa">use</span> printer<span class="hl opt">::</span>main<span class="hl opt">;</span>
<span class="hl kwa">use</span> printer<span class="hl opt">::</span>services<span class="hl opt">;</span>
<span class="hl kwa">use</span> printer<span class="hl opt">::</span>detect<span class="hl opt">;</span>
<span class="hl kwa">use</span> printer<span class="hl opt">::</span><span class="hl kwa">default</span><span class="hl opt">;</span>
<span class="hl kwa">use</span> printer<span class="hl opt">::</span>data<span class="hl opt">;</span>

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

<span class="hl kwc">my</span> <span class="hl kwb">$hp1000fwtext</span> <span class="hl opt">=</span> N<span class="hl opt">(</span><span class="hl str">&quot;The HP LaserJet 1000 needs its firmware to be uploaded after being turned on. Download the Windows driver package from the HP web site (the firmware on the printer&apos;s CD does not work) and extract the firmware file from it by uncompresing the self-extracting &apos;.exe&apos; file with the &apos;unzip&apos; utility and searching for the &apos;sihp1000.img&apos; file. Copy this file into the &apos;/etc/printer&apos; directory. There it will be found by the automatic uploader script and uploaded whenever the printer is connected and turned on.</span>
<span class="hl str">&quot;</span><span class="hl opt">);</span>

<span class="hl kwa">sub</span> config_cups <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</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, $upNetwork,</span> <span class="hl num">0</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">#$in-&gt;set_help(&apos;configureRemoteCUPSServer&apos;) if $::isInstall;</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 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 slc"># Read CUPS config file</span>
    <span class="hl opt">&#64;{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>cupsconfig<span class="hl opt">}{</span>cupsd_conf<span class="hl opt">}} =</span>
	printer<span class="hl opt">::</span>main<span class="hl opt">::</span>read_cupsd_conf<span class="hl opt">();</span>
    printer<span class="hl opt">::</span>main<span class="hl opt">::</span>read_cups_config<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
    <span class="hl slc"># Read state of japanese text printing mode</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$jap_textmode</span> <span class="hl opt">=</span> printer<span class="hl opt">::</span>main<span class="hl opt">::</span>get_jap_textmode<span class="hl opt">();</span>
    <span class="hl slc"># Read state for auto-correction of cupsd.conf</span>
    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>cupsconfig<span class="hl opt">}{</span>autocorrection<span class="hl opt">} =</span>
	printer<span class="hl opt">::</span>main<span class="hl opt">::</span>get_cups_autoconf<span class="hl opt">();</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$oldautocorr</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>cupsconfig<span class="hl opt">}{</span>autocorrection<span class="hl opt">};</span>
    <span class="hl slc"># Human-readable strings for hosts onto which the local printers</span>
    <span class="hl slc"># are shared</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$maindone</span><span class="hl opt">;</span>
    <span class="hl kwa">while</span> <span class="hl opt">(!</span><span class="hl kwb">$maindone</span><span class="hl opt">) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$sharehosts</span> <span class="hl opt">=</span> printer<span class="hl opt">::</span>main<span class="hl opt">::</span>makesharehostlist<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$browsepoll</span> <span class="hl opt">=</span> printer<span class="hl opt">::</span>main<span class="hl opt">::</span>makebrowsepolllist<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$buttonclicked</span><span class="hl opt">;</span>
	<span class="hl slc">#- Show dialog</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> N<span class="hl opt">(</span><span class="hl str">&quot;CUPS printer configuration&quot;</span><span class="hl opt">),</span>
		 messages <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Here you can choose whether the printers connected to this machine should be accessable by remote machines and by which remote machines.&quot;</span><span class="hl opt">) .</span>
		     N<span class="hl opt">(</span><span class="hl str">&quot;You can also decide here whether printers on remote machines should be automatically made available on this machine.&quot;</span><span class="hl opt">),</span>
	     <span class="hl opt">},</span>
	     <span class="hl opt">[</span>
	      <span class="hl opt">{</span> text <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;The printers on this machine are available to other computers&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">$printer</span><span class="hl opt">-&gt;{</span>cupsconfig<span class="hl opt">}{</span>localprintersshared<span class="hl opt">} },</span>
	      <span class="hl opt">{</span> text <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Automatically find available printers on remote machines&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">$printer</span><span class="hl opt">-&gt;{</span>cupsconfig<span class="hl opt">}{</span>remotebroadcastsaccepted<span class="hl opt">} },</span>
	      <span class="hl opt">{</span> val <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Printer sharing on hosts/networks: &quot;</span><span class="hl opt">) .</span>
		    <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>cupsconfig<span class="hl opt">}{</span>customsharingsetup<span class="hl opt">}</span> ?
		     N<span class="hl opt">(</span><span class="hl str">&quot;Custom configuration&quot;</span><span class="hl opt">) :</span>
		     <span class="hl opt">(</span><span class="hl kwb">$#</span><span class="hl opt">{</span><span class="hl kwb">$sharehosts</span><span class="hl opt">-&gt;{</span>list<span class="hl opt">}} &gt;=</span> <span class="hl num">0</span> ?
		      <span class="hl opt">(</span><span class="hl kwb">$#</span><span class="hl opt">{</span><span class="hl kwb">$sharehosts</span><span class="hl opt">-&gt;{</span>list<span class="hl opt">}} &gt;</span> <span class="hl num">1</span> ?
		       <span class="hl kwc">join</span><span class="hl opt">(</span><span class="hl str">&quot;, &quot;</span><span class="hl opt">, &#64;{</span><span class="hl kwb">$sharehosts</span><span class="hl opt">-&gt;{</span>list<span class="hl opt">}}[</span><span class="hl num">0</span><span class="hl opt">,</span><span class="hl num">1</span><span class="hl opt">]) .</span> <span class="hl str">&quot; ...&quot;</span> <span class="hl opt">:</span>
		       <span class="hl kwc">join</span><span class="hl opt">(</span><span class="hl str">&quot;, &quot;</span><span class="hl opt">, &#64;{</span><span class="hl kwb">$sharehosts</span><span class="hl opt">-&gt;{</span>list<span class="hl opt">}})) :</span>
		      N<span class="hl opt">(</span><span class="hl str">&quot;No remote machines&quot;</span><span class="hl opt">))),</span> 
		type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;button&apos;</span><span class="hl opt">,</span>
		clicked_may_quit <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
		    <span class="hl kwb">$buttonclicked</span> <span class="hl opt">=</span> <span class="hl str">&quot;sharehosts&quot;</span><span class="hl opt">;</span>
		    <span class="hl num">1</span><span class="hl opt">;</span>
		<span class="hl opt">},</span>
		disabled <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
		    <span class="hl opt">(!</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>cupsconfig<span class="hl opt">}{</span>localprintersshared<span class="hl opt">} &amp;&amp;</span>
		     <span class="hl opt">!</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>cupsconfig<span class="hl opt">}{</span>remotebroadcastsaccepted<span class="hl opt">});</span>
		<span class="hl opt">} },</span>
	      <span class="hl opt">{</span> val <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Additional CUPS servers: &quot;</span><span class="hl opt">) .</span>
		     <span class="hl opt">(</span><span class="hl kwb">$#</span><span class="hl opt">{</span><span class="hl kwb">$browsepoll</span><span class="hl opt">-&gt;{</span>list<span class="hl opt">}} &gt;=</span> <span class="hl num">0</span> ?
		      <span class="hl opt">(</span><span class="hl kwb">$#</span><span class="hl opt">{</span><span class="hl kwb">$browsepoll</span><span class="hl opt">-&gt;{</span>list<span class="hl opt">}} &gt;</span> <span class="hl num">1</span> ?
		       <span class="hl kwc">join</span><span class="hl opt">(</span><span class="hl str">&quot;, &quot;</span><span class="hl opt">, &#64;{</span><span class="hl kwb">$browsepoll</span><span class="hl opt">-&gt;{</span>list<span class="hl opt">}}[</span><span class="hl num">0</span><span class="hl opt">,</span><span class="hl num">1</span><span class="hl opt">]) .</span> <span class="hl str">&quot; ...&quot;</span> <span class="hl opt">:</span>
		       <span class="hl kwc">join</span><span class="hl opt">(</span><span class="hl str">&quot;, &quot;</span><span class="hl opt">, &#64;{</span><span class="hl kwb">$browsepoll</span><span class="hl opt">-&gt;{</span>list<span class="hl opt">}})) :</span>
		      N<span class="hl opt">(</span><span class="hl str">&quot;None&quot;</span><span class="hl opt">)),</span> 
		type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;button&apos;</span><span class="hl opt">,</span>
		help <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;To get access to printers on remote CUPS servers in your local network you only need to turn on the</span> <span class="hl esc">\&quot;</span><span class="hl str">Automatically find available printers on remote machines</span><span class="hl esc">\&quot;</span> <span class="hl str">option; the CUPS servers inform your machine automatically about their printers. All printers currently known to your machine are listed in the</span> <span class="hl esc">\&quot;</span><span class="hl str">Remote printers</span><span class="hl esc">\&quot;</span> <span class="hl str">section in the main window of Printerdrake. If your CUPS server(s) is/are not in your local network, you have to enter the IP address(es) and optionally the port number(s) here to get the printer information from the server(s).&quot;</span><span class="hl opt">),</span>
		clicked_may_quit <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
		    <span class="hl kwb">$buttonclicked</span> <span class="hl opt">=</span> <span class="hl str">&quot;browsepoll&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 opt">{</span> text <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Japanese text printing mode&quot;</span><span class="hl opt">),</span>
		help <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Turning on this allows to print plain text files in japanese language. Only use this function if you really want to print text in japanese, if it is activated you cannot print accentuated characters in latin fonts any more and you will not be able to adjust the margins, the character size, etc. This setting only affects printers defined on this machine. If you want to print japanese text on a printer set up on a remote machine, you have to activate this function on that remote machine.&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">$jap_textmode</span> <span class="hl opt">},</span>
	      if_<span class="hl opt">($::</span>expert<span class="hl opt">,</span>
		  <span class="hl opt">{</span> text <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Automatic correction of 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>
		    help <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;When this option is turned on, on every startup of CUPS it is automatically made sure that</span>
<span class="hl str"></span>
<span class="hl str">- if LPD/LPRng is installed, /etc/printcap will not be overwritten by CUPS</span>
<span class="hl str"></span>
<span class="hl str">- if /etc/cups/cupsd.conf is missing, it will be created</span>
<span class="hl str"></span>
<span class="hl str">- when printer information is broadcasted, it does not contain</span> <span class="hl esc">\&quot;</span><span class="hl str">localhost</span><span class="hl esc">\&quot;</span> <span class="hl str">as the server name.</span>
<span class="hl str"></span>
<span class="hl str">If some of these measures lead to problems for you, turn this option off, but then you have to take care of these points.&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>cupsconfig<span class="hl opt">}{</span>autocorrection<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">$buttonclicked</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;sharehosts&quot;</span><span class="hl opt">) {</span>
		<span class="hl slc"># Show dialog to add hosts to share printers to</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$subdone</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">$choice</span><span class="hl opt">;</span>
		<span class="hl kwa">while</span> <span class="hl opt">(!</span><span class="hl kwb">$subdone</span><span class="hl opt">) {</span>
		    <span class="hl slc"># Entry should be edited when double-clicked</span>
		    <span class="hl kwb">$buttonclicked</span> <span class="hl opt">=</span> <span class="hl str">&quot;edit&quot;</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> N<span class="hl opt">(</span><span class="hl str">&quot;Sharing of local printers&quot;</span><span class="hl opt">),</span>
			   messages <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;These are the machines and networks on which the locally connected printer(s) should be available:&quot;</span><span class="hl opt">),</span>
			   ok <span class="hl opt">=&gt;</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">,</span>
			   cancel <span class="hl opt">=&gt;</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">,</span>
		         <span class="hl opt">},</span>
			 <span class="hl slc"># List the hosts</span>
			 <span class="hl opt">[ {</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$choice,</span> format <span class="hl opt">=&gt;</span> \<span class="hl opt">&amp;</span>translate<span class="hl opt">,</span>
			     <span class="hl kwc">sort</span> <span class="hl opt">=&gt;</span> <span class="hl num">0</span><span class="hl opt">,</span> separator <span class="hl opt">=&gt;</span> <span class="hl str">&quot;####&quot;</span><span class="hl opt">,</span>
			     tree_expanded <span class="hl opt">=&gt;</span> <span class="hl num">1</span><span class="hl opt">,</span>
			     quit_if_double_click <span class="hl opt">=&gt;</span> <span class="hl num">1</span><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>
			     list <span class="hl opt">=&gt;</span> <span class="hl kwb">$sharehosts</span><span class="hl opt">-&gt;{</span>list<span class="hl opt">} },</span>
			   <span class="hl opt">{</span> val <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Add host/network&quot;</span><span class="hl opt">),</span> 
			     type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;button&apos;</span><span class="hl opt">,</span>
			     clicked_may_quit <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
				 <span class="hl kwb">$buttonclicked</span> <span class="hl opt">=</span> <span class="hl str">&quot;add&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 opt">{</span> val <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Edit selected host/network&quot;</span><span class="hl opt">),</span> 
			     type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;button&apos;</span><span class="hl opt">,</span>
			     clicked_may_quit <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
				 <span class="hl kwb">$buttonclicked</span> <span class="hl opt">=</span> <span class="hl str">&quot;edit&quot;</span><span class="hl opt">;</span>
				 <span class="hl num">1</span><span class="hl opt">;</span> 
			     <span class="hl opt">},</span>
			     disabled <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
				 <span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl kwb">$#</span><span class="hl opt">{</span><span class="hl kwb">$sharehosts</span><span class="hl opt">-&gt;{</span>list<span class="hl opt">}} &lt;</span> <span class="hl num">0</span><span class="hl opt">);</span>
			     <span class="hl opt">} },</span>
			   <span class="hl opt">{</span> val <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Remove selected host/network&quot;</span><span class="hl opt">),</span> 
			     type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;button&apos;</span><span class="hl opt">,</span>
			     clicked_may_quit <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
				 <span class="hl kwb">$buttonclicked</span> <span class="hl opt">=</span> <span class="hl str">&quot;remove&quot;</span><span class="hl opt">;</span>
				 <span class="hl num">1</span><span class="hl opt">;</span> 
			     <span class="hl opt">},</span>
			     disabled <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
				 <span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl kwb">$#</span><span class="hl opt">{</span><span class="hl kwb">$sharehosts</span><span class="hl opt">-&gt;{</span>list<span class="hl opt">}} &lt;</span> <span class="hl num">0</span><span class="hl opt">);</span>
			     <span class="hl opt">} },</span>
			   <span class="hl opt">{</span> val <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Done&quot;</span><span class="hl opt">),</span> 
			     type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;button&apos;</span><span class="hl opt">,</span>
			     clicked_may_quit <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
				 <span class="hl kwb">$buttonclicked</span> <span class="hl opt">=</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
				 <span class="hl kwb">$subdone</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 opt">]</span>
			 <span class="hl opt">);</span>
		    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$buttonclicked</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;add&quot;</span> <span class="hl opt">||</span>
			<span class="hl kwb">$buttonclicked</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;edit&quot;</span><span class="hl opt">) {</span>
			<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$hostchoice, $ip</span><span class="hl opt">);</span>
			<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$buttonclicked</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;add&quot;</span><span class="hl opt">) {</span>
			    <span class="hl slc"># Use first entry as default for a new entry</span>
			    <span class="hl kwb">$hostchoice</span> <span class="hl opt">=</span> N<span class="hl opt">(</span><span class="hl str">&quot;Local network(s)&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 kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$sharehosts</span><span class="hl opt">-&gt;{</span>invhash<span class="hl opt">}{</span><span class="hl kwb">$choice</span><span class="hl opt">} =~</span> <span class="hl kwd">/^\&#64;/</span><span class="hl opt">) {</span>
				<span class="hl slc"># Entry to edit is not an IP address</span>
				<span class="hl kwb">$hostchoice</span> <span class="hl opt">=</span> <span class="hl kwb">$choice</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"># Entry is an IP address</span>
				<span class="hl kwb">$hostchoice</span> <span class="hl opt">=</span> 
				    N<span class="hl opt">(</span><span class="hl str">&quot;IP address of host/network:&quot;</span><span class="hl opt">);</span>
				<span class="hl kwb">$ip</span> <span class="hl opt">=</span> <span class="hl kwb">$sharehosts</span><span class="hl opt">-&gt;{</span>invhash<span class="hl opt">}{</span><span class="hl kwb">$choice</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;menu</span> <span class="hl opt">=</span> N<span class="hl opt">(</span><span class="hl str">&quot;Local network(s)&quot;</span><span class="hl opt">);</span>
			<span class="hl kwc">my</span> <span class="hl kwb">&#64;interfaces</span> <span class="hl opt">=</span> 
			    printer<span class="hl opt">::</span>detect<span class="hl opt">::</span>getNetworkInterfaces<span class="hl opt">();</span>
		        <span class="hl kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$interface</span> <span class="hl opt">(</span><span class="hl kwb">&#64;interfaces</span><span class="hl opt">) {</span>
			    <span class="hl kwc">push</span> <span class="hl kwb">&#64;menu,</span> N<span class="hl opt">(</span><span class="hl str">&quot;Interface</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">$interface</span><span class="hl str">);</span>
<span class="hl str">			}</span>
<span class="hl str">			push</span> <span class="hl ipl">&#64;menu,</span> <span class="hl str">N(&quot;</span>IP address of host<span class="hl opt">/</span>network<span class="hl opt">:</span><span class="hl str">&quot;);</span>
<span class="hl str">			# Show the dialog</span>
<span class="hl str">			my</span> <span class="hl ipl">$address</span><span class="hl str">;</span>
<span class="hl str">			my</span> <span class="hl ipl">$oldaddress</span> <span class="hl str">= </span>
<span class="hl str">			    (</span><span class="hl ipl">$buttonclicked</span> <span class="hl str">eq &quot;</span>edit<span class="hl str">&quot; ?</span>
<span class="hl str"></span>			     <span class="hl ipl">$sharehosts</span><span class="hl str">-&gt;{invhash}{</span><span class="hl ipl">$choice</span><span class="hl str">} : &quot;</span><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_</span>
<span class="hl str">			    (</span>
<span class="hl str">			     { title =&gt; N(&quot;</span>Sharing of <span class="hl kwc">local</span> printers<span class="hl str">&quot;),</span>
<span class="hl str">			       messages =&gt; N(&quot;</span>Choose the network <span class="hl kwc">or</span> host on which the <span class="hl kwc">local</span> printers should be made available<span class="hl opt">:</span><span class="hl str">&quot;),</span>
<span class="hl str">			       callbacks =&gt; {</span>
<span class="hl str">				   complete =&gt; sub {</span>
<span class="hl str">				       if (</span><span class="hl ipl">$hostchoice</span> <span class="hl str">eq </span>
<span class="hl str">					    N(&quot;</span>IP address of host<span class="hl opt">/</span>network<span class="hl opt">:</span><span class="hl str">&quot;) &amp;&amp;</span>
<span class="hl str"></span>					   <span class="hl ipl">$ip</span> <span class="hl str">=~ /^\s*</span><span class="hl ipl">$/</span><span class="hl str">) {</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;, N(&quot;</span>Host<span class="hl opt">/</span>network IP address missing<span class="hl opt">.</span><span class="hl str">&quot;));</span>
<span class="hl str">					   return (1,1);</span>
<span class="hl str">				       }</span>
<span class="hl str">				       if (</span><span class="hl ipl">$hostchoice</span> <span class="hl str">eq </span>
<span class="hl str">					    N(&quot;</span>IP address of host<span class="hl opt">/</span>network<span class="hl opt">:</span><span class="hl str">&quot;) &amp;&amp;</span>
<span class="hl str">					   !printer::main::is_network_ip(</span><span class="hl ipl">$ip</span><span class="hl str">)) {</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;, </span>
<span class="hl str">N(&quot;</span>The entered host<span class="hl opt">/</span>network IP <span class="hl kwa">is</span> <span class="hl kwc">not</span> correct<span class="hl opt">.</span><span class="hl esc">\n</span><span class="hl str">&quot;) .</span>
<span class="hl str">N(&quot;</span>Examples <span class="hl kwa">for</span> correct IPs<span class="hl opt">:</span><span class="hl esc">\n</span><span class="hl str">&quot;) .</span>
<span class="hl str">  &quot;</span><span class="hl num">192.168.100.194</span><span class="hl esc">\n</span><span class="hl str">&quot; .</span>
<span class="hl str">  &quot;</span><span class="hl num">10.0.0</span><span class="hl opt">.*</span><span class="hl esc">\n</span><span class="hl str">&quot; .</span>
<span class="hl str">  &quot;</span><span class="hl num">10.1</span><span class="hl opt">.*</span><span class="hl esc">\n</span><span class="hl str">&quot; .</span>
<span class="hl str">  &quot;</span><span class="hl num">192.168.100.0</span><span class="hl opt">/</span><span class="hl num">24</span><span class="hl esc">\n</span><span class="hl str">&quot; .</span>
<span class="hl str">  &quot;</span><span class="hl num">192.168.100.0</span><span class="hl opt">/</span><span class="hl num">255.255.255.0</span><span class="hl esc">\n</span><span class="hl str">&quot;</span>
<span class="hl str">);</span>
<span class="hl str">					   return (1,1);</span>
<span class="hl str">				       }</span>
<span class="hl str">				       if (</span><span class="hl ipl">$hostchoice</span> <span class="hl str">eq</span> <span class="hl ipl">$menu</span><span class="hl str">[0]) {</span>
<span class="hl str"></span>					   <span class="hl ipl">$address</span> <span class="hl str">= &quot;</span>\<span class="hl kwb">&#64;LOCAL</span><span class="hl str">&quot;;</span>
<span class="hl str">				       } elsif (</span><span class="hl ipl">$hostchoice</span> <span class="hl str">eq</span> <span class="hl ipl">$menu</span><span class="hl str">[-1]) {</span>
<span class="hl str"></span>					   <span class="hl ipl">$address</span> <span class="hl str">=</span> <span class="hl ipl">$ip</span><span class="hl str">;</span>
<span class="hl str">				       } else {</span>
<span class="hl str">					   (</span><span class="hl ipl">$address</span><span class="hl str">) =</span>
<span class="hl str">					       grep {</span> <span class="hl ipl">$hostchoice</span> <span class="hl str">=~ /</span><span class="hl ipl">$_/</span> <span class="hl str">} </span>
<span class="hl str"></span>					       <span class="hl ipl">&#64;interfaces</span><span class="hl str">;</span>
<span class="hl str"></span>					   <span class="hl ipl">$address</span> <span class="hl str">= &quot;</span>\<span class="hl kwb">&#64;IF</span><span class="hl opt">(</span><span class="hl kwb">$address</span><span class="hl opt">)</span><span class="hl str">&quot;;</span>
<span class="hl str">				       }</span>
<span class="hl str">				       # Check whether item is duplicate</span>
<span class="hl str">				       if (</span><span class="hl ipl">$address</span> <span class="hl str">ne</span> <span class="hl ipl">$oldaddress</span> <span class="hl str">&amp;&amp;</span>
<span class="hl str">					   member(</span><span class="hl ipl">$address,</span>
<span class="hl str">						  &#64;{</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{cupsconfig}{clientnetworks}})) {</span>
<span class="hl str"></span>					   <span class="hl ipl">$in</span><span class="hl str">-&gt;ask_warn(&apos;&apos;, </span>
<span class="hl str">							 N(&quot;</span>This host<span class="hl opt">/</span>network <span class="hl kwa">is</span> already <span class="hl kwa">in</span> the list<span class="hl opt">,</span> it cannot be added again<span class="hl opt">.</span><span class="hl esc">\n</span><span class="hl str">&quot;));</span>
<span class="hl str">					   if (</span><span class="hl ipl">$hostchoice</span> <span class="hl str">eq </span>
<span class="hl str">					       N(&quot;</span>IP address of host<span class="hl opt">/</span>network<span class="hl opt">:</span><span class="hl str">&quot;)) {</span>
<span class="hl str">					       return (1,1);</span>
<span class="hl str">					   } else {</span>
<span class="hl str">					       return (1,0);</span>
<span class="hl str">					   }</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">			   },</span>
<span class="hl str">			     # List the host types</span>
<span class="hl str">			     [ { val =&gt; \</span><span class="hl ipl">$hostchoice,</span> <span class="hl str">format =&gt; \&amp;translate,</span>
<span class="hl str">				 type =&gt; &apos;list&apos;,</span>
<span class="hl str">				 sort =&gt; 0,</span>
<span class="hl str">				 list =&gt; \</span><span class="hl ipl">&#64;menu</span> <span class="hl str">},</span>
<span class="hl str">			       { val =&gt; \</span><span class="hl ipl">$ip,</span> 
<span class="hl str">				 disabled =&gt; sub {</span>
<span class="hl str"></span>				     <span class="hl ipl">$hostchoice</span> <span class="hl str">ne </span>
<span class="hl str">					 N(&quot;</span>IP address of host<span class="hl opt">/</span>network<span class="hl opt">:</span><span class="hl str">&quot;);</span>
<span class="hl str">			         } },</span>
<span class="hl str">			       ],</span>
<span class="hl str">			     )) {</span>
<span class="hl str">			    # OK was clicked, insert new item into the list</span>
<span class="hl str">			    if (</span><span class="hl ipl">$buttonclicked</span> <span class="hl str">eq &quot;</span>add<span class="hl str">&quot;) {</span>
<span class="hl str">				push(&#64;{</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{cupsconfig}{clientnetworks}},</span>
<span class="hl str"></span>				     <span class="hl ipl">$address</span><span class="hl str">);</span>
<span class="hl str">			    } else {</span>
<span class="hl str">				&#64;{</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{cupsconfig}{clientnetworks}} =</span>
<span class="hl str">				    map { (</span><span class="hl ipl">$_</span> <span class="hl str">eq</span>
<span class="hl str"></span>					  <span class="hl ipl">$sharehosts</span><span class="hl str">-&gt;{invhash}{</span><span class="hl ipl">$choice</span><span class="hl str">} ?</span>
<span class="hl str"></span>					  <span class="hl ipl">$address</span> <span class="hl str">:</span> <span class="hl ipl">$_</span><span class="hl str">) }</span>
<span class="hl str">				        &#64;{</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{cupsconfig}{clientnetworks}};</span>
<span class="hl str">			    }</span>
<span class="hl str">			    # Refresh list of hosts</span>
<span class="hl str"></span>			    <span class="hl ipl">$sharehosts</span> <span class="hl str">= </span>
<span class="hl str">			    printer::main::makesharehostlist(</span><span class="hl ipl">$printer</span><span class="hl str">);</span>
<span class="hl str">			    # We have modified the configuration now</span>
<span class="hl str"></span>			    <span class="hl ipl">$printer</span><span class="hl str">-&gt;{cupsconfig}{customsharingsetup} = 0;</span>
<span class="hl str">			    # Position the list cursor on the new/modified</span>
<span class="hl str">			    # item</span>
<span class="hl str"></span>			    <span class="hl ipl">$choice</span> <span class="hl str">=</span> <span class="hl ipl">$sharehosts</span><span class="hl str">-&gt;{hash}{</span><span class="hl ipl">$address</span><span class="hl str">};</span>
<span class="hl str">			}</span>
<span class="hl str">		    } elsif (</span><span class="hl ipl">$buttonclicked</span> <span class="hl str">eq &quot;</span>remove<span class="hl str">&quot;) {</span>
<span class="hl str">			&#64;{</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{cupsconfig}{clientnetworks}} =</span>
<span class="hl str">			    grep {</span> <span class="hl ipl">$_</span> <span class="hl str">ne</span> <span class="hl ipl">$sharehosts</span><span class="hl str">-&gt;{invhash}{</span><span class="hl ipl">$choice</span><span class="hl str">} }</span>
<span class="hl str">			    &#64;{</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{cupsconfig}{clientnetworks}};</span>
<span class="hl str">			# Refresh list of hosts</span>
<span class="hl str"></span>			<span class="hl ipl">$sharehosts</span> <span class="hl str">= </span>
<span class="hl str">			    printer::main::makesharehostlist(</span><span class="hl ipl">$printer</span><span class="hl str">);</span>
<span class="hl str">			# We have modified the configuration now</span>
<span class="hl str"></span>			<span class="hl ipl">$printer</span><span class="hl str">-&gt;{cupsconfig}{customsharingsetup} = 0;</span>
<span class="hl str">		    }</span>
<span class="hl str">		}</span>
<span class="hl str">		# If we have no entry in the list, we do not</span>
<span class="hl str">		# share the local printers, mark this</span>
<span class="hl str">		if (</span><span class="hl ipl">$#</span><span class="hl str">{</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{cupsconfig}{clientnetworks}} &lt; 0) {</span>
<span class="hl str"></span>		    <span class="hl ipl">$printer</span><span class="hl str">-&gt;{cupsconfig}{localprintersshared} = 0;</span>
<span class="hl str"></span>		    <span class="hl ipl">$printer</span><span class="hl str">-&gt;{cupsconfig}{remotebroadcastsaccepted} = 0;</span>
<span class="hl str">		}</span>
<span class="hl str">	    } elsif (</span><span class="hl ipl">$buttonclicked</span> <span class="hl str">eq &quot;</span>browsepoll<span class="hl str">&quot;) {</span>
<span class="hl str">		# Show dialog to add hosts to &quot;</span>BrowsePoll<span class="hl str">&quot; from</span>
<span class="hl str">		my</span> <span class="hl ipl">$subdone</span> <span class="hl str">= 0;</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">$subdone</span><span class="hl str">) {</span>
<span class="hl str">		    # Entry should be edited when double-clicked</span>
<span class="hl str"></span>		    <span class="hl ipl">$buttonclicked</span> <span class="hl str">= &quot;</span>edit<span class="hl str">&quot;;</span>
<span class="hl str"></span>		    <span class="hl ipl">$in</span><span class="hl str">-&gt;ask_from_</span>
<span class="hl str">			(</span>
<span class="hl str">			 { title =&gt; N(&quot;</span>Accessing printers on remote CUPS servers<span class="hl str">&quot;),</span>
<span class="hl str">			   messages =&gt; N(&quot;</span>Add here the CUPS servers whose printers you want to <span class="hl kwa">use</span><span class="hl opt">.</span> You only need to <span class="hl kwa">do</span> this <span class="hl kwa">if</span> the servers <span class="hl kwa">do</span> <span class="hl kwc">not</span> broadcast their printer information into the <span class="hl kwc">local</span> network<span class="hl opt">.</span><span class="hl str">&quot;),</span>
<span class="hl str">			   ok =&gt; &quot;</span><span class="hl str">&quot;,</span>
<span class="hl str">			   cancel =&gt; &quot;</span><span class="hl str">&quot;,</span>
<span class="hl str">		         },</span>
<span class="hl str">			 # List the hosts</span>
<span class="hl str">			 [ { val =&gt; \</span><span class="hl ipl">$choice,</span> <span class="hl str">format =&gt; \&amp;translate,</span>
<span class="hl str">			     sort =&gt; 0, separator =&gt; &quot;</span><span class="hl slc">####&quot;,</span>
			     tree_expanded <span class="hl opt">=&gt;</span> <span class="hl num">1</span><span class="hl opt">,</span>
			     quit_if_double_click <span class="hl opt">=&gt;</span> <span class="hl num">1</span><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>
			     list <span class="hl opt">=&gt;</span> <span class="hl kwb">$browsepoll</span><span class="hl opt">-&gt;{</span>list<span class="hl opt">} },</span>
			   <span class="hl opt">{</span> val <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Add server&quot;</span><span class="hl opt">),</span> 
			     type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;button&apos;</span><span class="hl opt">,</span>
			     clicked_may_quit <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
				 <span class="hl kwb">$buttonclicked</span> <span class="hl opt">=</span> <span class="hl str">&quot;add&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 opt">{</span> val <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Edit selected server&quot;</span><span class="hl opt">),</span> 
			     type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;button&apos;</span><span class="hl opt">,</span>
			     clicked_may_quit <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
				 <span class="hl kwb">$buttonclicked</span> <span class="hl opt">=</span> <span class="hl str">&quot;edit&quot;</span><span class="hl opt">;</span>
				 <span class="hl num">1</span><span class="hl opt">;</span> 
			     <span class="hl opt">},</span>
			     disabled <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
				 <span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl kwb">$#</span><span class="hl opt">{</span><span class="hl kwb">$browsepoll</span><span class="hl opt">-&gt;{</span>list<span class="hl opt">}} &lt;</span> <span class="hl num">0</span><span class="hl opt">);</span>
			     <span class="hl opt">} },</span>
			   <span class="hl opt">{</span> val <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Remove selected server&quot;</span><span class="hl opt">),</span> 
			     type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;button&apos;</span><span class="hl opt">,</span>
			     clicked_may_quit <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
				 <span class="hl kwb">$buttonclicked</span> <span class="hl opt">=</span> <span class="hl str">&quot;remove&quot;</span><span class="hl opt">;</span>
				 <span class="hl num">1</span><span class="hl opt">;</span> 
			     <span class="hl opt">},</span>
			     disabled <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
				 <span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl kwb">$#</span><span class="hl opt">{</span><span class="hl kwb">$browsepoll</span><span class="hl opt">-&gt;{</span>list<span class="hl opt">}} &lt;</span> <span class="hl num">0</span><span class="hl opt">);</span>
			     <span class="hl opt">} },</span>
			   <span class="hl opt">{</span> val <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Done&quot;</span><span class="hl opt">),</span> 
			     type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;button&apos;</span><span class="hl opt">,</span>
			     clicked_may_quit <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
				 <span class="hl kwb">$buttonclicked</span> <span class="hl opt">=</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
				 <span class="hl kwb">$subdone</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 opt">]</span>
			 <span class="hl opt">);</span>
		    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$buttonclicked</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;add&quot;</span> <span class="hl opt">||</span>
			<span class="hl kwb">$buttonclicked</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;edit&quot;</span><span class="hl opt">) {</span>
			<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$ip, $port</span><span class="hl opt">);</span>
			<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$buttonclicked</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;add&quot;</span><span class="hl opt">) {</span>
			    <span class="hl slc"># Use default port</span>
			    <span class="hl kwb">$port</span> <span class="hl opt">=</span> <span class="hl str">&apos;631&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 kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$browsepoll</span><span class="hl opt">-&gt;{</span>invhash<span class="hl opt">}{</span><span class="hl kwb">$choice</span><span class="hl opt">} =~</span>
				<span class="hl kwd">/^([^:]+):([^:]+)$/</span><span class="hl opt">) {</span>
				<span class="hl slc"># Entry to edit has IP and port</span>
				<span class="hl kwb">$ip</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
				<span class="hl kwb">$port</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 slc"># Entry is only an IP, no port, so take</span>
				<span class="hl slc"># the default port 631</span>
				<span class="hl kwb">$ip</span> <span class="hl opt">=</span> <span class="hl kwb">$browsepoll</span><span class="hl opt">-&gt;{</span>invhash<span class="hl opt">}{</span><span class="hl kwb">$choice</span><span class="hl opt">};</span>
				<span class="hl kwb">$port</span> <span class="hl opt">=</span> <span class="hl str">&apos;631&apos;</span><span class="hl opt">;</span>
			    <span class="hl opt">}</span>
			<span class="hl opt">}</span>
			<span class="hl slc"># Show the dialog</span>
			<span class="hl kwc">my</span> <span class="hl kwb">$address</span><span class="hl opt">;</span>
			<span class="hl kwc">my</span> <span class="hl kwb">$oldaddress</span> <span class="hl opt">=</span> 
			    <span class="hl opt">(</span><span class="hl kwb">$buttonclicked</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;edit&quot;</span> ?
			     <span class="hl kwb">$browsepoll</span><span class="hl opt">-&gt;{</span>invhash<span class="hl opt">}{</span><span class="hl kwb">$choice</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">$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> N<span class="hl opt">(</span><span class="hl str">&quot;Accessing printers on remote CUPS servers&quot;</span><span class="hl opt">),</span>
			       messages <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Enter IP address and port of the host whose printers you want to use.&quot;</span><span class="hl opt">) .</span> <span class="hl str">&apos; &apos;</span> <span class="hl opt">.</span>
				   N<span class="hl opt">(</span><span class="hl str">&quot;If no port is given, 631 will be taken as default.&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">if</span> <span class="hl opt">(</span><span class="hl kwb">$ip</span> <span class="hl opt">=~</span> <span class="hl kwd">/^\s*$/</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> N<span class="hl opt">(</span><span class="hl str">&quot;Server IP 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">if</span> <span class="hl opt">(</span><span class="hl kwb">$ip</span> <span class="hl opt">!~</span> 
					   <span class="hl kwd">/^\s*(\d+\.\d+\.\d+\.\d+)\s*$/</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> 
N<span class="hl opt">(</span><span class="hl str">&quot;The entered IP is not correct.</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">) .</span>
N<span class="hl opt">(</span><span class="hl str">&quot;Examples for correct IPs:</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">) .</span>
  <span class="hl str">&quot;192.168.100.194</span><span class="hl esc">\n</span><span class="hl str">&quot;</span> <span class="hl opt">.</span>
  <span class="hl str">&quot;10.0.0.2</span><span class="hl esc">\n</span><span class="hl str">&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">else</span> <span class="hl opt">{</span>
					   <span class="hl kwb">$ip</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">$port</span> <span class="hl opt">!~</span> <span class="hl kwd">/\S/</span><span class="hl opt">) {</span>
					   <span class="hl kwb">$port</span> <span class="hl opt">=</span> <span class="hl str">&apos;631&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">$port</span> <span class="hl opt">!~</span> <span class="hl kwd">/^\s*(\d+)\s*$/</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> N<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">else</span> <span class="hl opt">{</span>
					   <span class="hl kwb">$port</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 kwb">$address</span> <span class="hl opt">=</span> <span class="hl str">&quot;</span><span class="hl ipl">$ip</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 slc"># Check whether item is duplicate</span>
				       <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$address</span> <span class="hl kwc">ne</span> <span class="hl kwb">$oldaddress</span> <span class="hl opt">&amp;&amp;</span>
					   member<span class="hl opt">(</span><span class="hl kwb">$address,</span>
						  <span class="hl opt">&#64;{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>cupsconfig<span class="hl opt">}{</span>BrowsePoll<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> 
							 N<span class="hl opt">(</span><span class="hl str">&quot;This server is already in the list, it cannot be added again.</span><span class="hl esc">\n</span><span class="hl str">&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 opt">},</span>
			     <span class="hl slc"># Ask for IP and port</span>
			     <span class="hl opt">[ {</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$ip,</span> 
				 label <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;IP address&quot;</span><span class="hl opt">) },</span>
			       <span class="hl opt">{</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$port,</span> 
				 label <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Port&quot;</span><span class="hl opt">) },</span>
			       <span class="hl opt">],</span>
			     <span class="hl opt">)) {</span>
			    <span class="hl slc"># OK was clicked, insert new item into the list</span>
			    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$buttonclicked</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;add&quot;</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>cupsconfig<span class="hl opt">}{</span>BrowsePoll<span class="hl opt">}},</span>
				     <span class="hl kwb">$address</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 opt">&#64;{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>cupsconfig<span class="hl opt">}{</span>BrowsePoll<span class="hl opt">}} =</span>
				    <span class="hl kwc">map</span> <span class="hl opt">{ (</span><span class="hl kwb">$_</span> <span class="hl kwc">eq</span>
					  <span class="hl kwb">$browsepoll</span><span class="hl opt">-&gt;{</span>invhash<span class="hl opt">}{</span><span class="hl kwb">$choice</span><span class="hl opt">}</span> ?
					  <span class="hl kwb">$address</span> <span class="hl opt">:</span> <span class="hl kwb">$_</span><span class="hl opt">) }</span>
				        <span class="hl opt">&#64;{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>cupsconfig<span class="hl opt">}{</span>BrowsePoll<span class="hl opt">}};</span>
			    <span class="hl opt">}</span>
			    <span class="hl slc"># Refresh list of hosts</span>
			    <span class="hl kwb">$browsepoll</span> <span class="hl opt">=</span> 
			    printer<span class="hl opt">::</span>main<span class="hl opt">::</span>makebrowsepolllist<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
			    <span class="hl slc"># Position the list cursor on the new/modified</span>
			    <span class="hl slc"># item</span>
			    <span class="hl kwb">$choice</span> <span class="hl opt">=</span> <span class="hl kwb">$browsepoll</span><span class="hl opt">-&gt;{</span>hash<span class="hl opt">}{</span><span class="hl kwb">$address</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">$buttonclicked</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;remove&quot;</span><span class="hl opt">) {</span>
			<span class="hl opt">&#64;{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>cupsconfig<span class="hl opt">}{</span>BrowsePoll<span class="hl opt">}} =</span>
			    <span class="hl kwc">grep</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span> <span class="hl kwc">ne</span> <span class="hl kwb">$browsepoll</span><span class="hl opt">-&gt;{</span>invhash<span class="hl opt">}{</span><span class="hl kwb">$choice</span><span class="hl opt">} }</span>
			    <span class="hl opt">&#64;{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>cupsconfig<span class="hl opt">}{</span>BrowsePoll<span class="hl opt">}};</span>
			<span class="hl slc"># Refresh list of hosts</span>
			<span class="hl kwb">$browsepoll</span> <span class="hl opt">=</span> 
			    printer<span class="hl opt">::</span>main<span class="hl opt">::</span>makebrowsepolllist<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 opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		<span class="hl slc"># We have clicked &quot;OK&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 kwb">$maindone</span> <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
		<span class="hl slc"># Write state for auto-correction of cupsd.conf</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$oldautocorr</span> <span class="hl opt">!=</span> 
		    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>cupsconfig<span class="hl opt">}{</span>autocorrection<span class="hl opt">}) {</span>
		    printer<span class="hl opt">::</span>main<span class="hl opt">::</span>set_cups_autoconf
			<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>cupsconfig<span class="hl opt">}{</span>autocorrection<span class="hl opt">});</span>
		<span class="hl opt">}</span>
		<span class="hl slc"># Write state of japanese text printing mode</span>
		printer<span class="hl opt">::</span>main<span class="hl opt">::</span>set_jap_textmode<span class="hl opt">(</span><span class="hl kwb">$jap_textmode</span><span class="hl opt">);</span>
		<span class="hl slc"># Write cupsd.conf</span>
		printer<span class="hl opt">::</span>main<span class="hl opt">::</span>write_cups_config<span class="hl opt">(</span><span class="hl kwb">$printer</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>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span>
				      N<span class="hl opt">(</span><span class="hl str">&quot;Restarting CUPS...&quot;</span><span class="hl opt">));</span>
		printer<span class="hl opt">::</span>main<span class="hl opt">::</span>write_cupsd_conf
		    <span class="hl opt">(&#64;{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>cupsconfig<span class="hl opt">}{</span>cupsd_conf<span class="hl opt">}});</span>
		<span class="hl kwc">undef</span> <span class="hl kwb">$w</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"># Cancel clicked</span>
	    <span class="hl kwb">$maindone</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>
    printer<span class="hl opt">::</span>main<span class="hl opt">::</span>clean_cups_config<span class="hl opt">(</span><span class="hl kwb">$printer</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> 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">$printer</span><span class="hl opt">-&gt;{</span>str_type<span class="hl opt">} =</span> <span class="hl kwb">$printer_type_inv</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 kwc">my</span> <span class="hl kwb">$autodetect</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
    <span class="hl kwb">$autodetect</span> <span class="hl opt">=</span> <span class="hl num">1</span> <span class="hl kwa">if</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECT<span class="hl opt">};</span>
    <span class="hl kwc">my</span> <span class="hl kwb">&#64;printertypes</span> <span class="hl opt">=</span> printer<span class="hl opt">::</span>main<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">$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> N<span class="hl opt">(</span><span class="hl str">&quot;Select Printer Connection&quot;</span><span class="hl opt">),</span>
		     messages <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;How is the printer connected?&quot;</span><span class="hl opt">) .</span>
			 if_<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>
			  N<span class="hl opt">(</span><span class="hl str">&quot;</span>
<span class="hl str">Printers on remote CUPS servers do not need to be configured here; these printers will be automatically detected.&quot;</span><span class="hl opt">)),</span>
		     <span class="hl opt">},</span>
		   <span class="hl opt">[</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>str_type<span class="hl opt">},</span>
		      list <span class="hl opt">=&gt;</span> \<span class="hl kwb">&#64;printertypes,</span> 
		      not_edit <span class="hl opt">=&gt;</span> <span class="hl num">1</span><span class="hl opt">,</span> <span class="hl kwc">sort</span> <span class="hl opt">=&gt;</span> <span class="hl num">0</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> text <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Printer auto-detection (Local, TCP/Socket, and SMB 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 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>AUTODETECT<span class="hl opt">} =</span> <span class="hl kwb">$autodetect</span> ? <span class="hl num">1</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>TYPE<span class="hl opt">} =</span> <span class="hl kwb">$printer_type</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 num">1</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, $upNetwork</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_autoscan<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</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, $upNetwork</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, $upNetwork</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, $upNetwork</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, $upNetwork</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, $upNetwork</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> first_time_dialog <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwa">return</span> <span class="hl num">1</span> <span class="hl kwa">if</span> printer<span class="hl opt">::</span><span class="hl kwa">default</span><span class="hl opt">::</span>get_spooler<span class="hl opt">() || $::</span>isInstall<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>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span> N<span class="hl opt">(</span><span class="hl str">&quot;Checking your system...&quot;</span><span class="hl opt">));</span>

    <span class="hl slc"># Auto-detect local printers   </span>
    <span class="hl kwc">my</span> <span class="hl kwb">&#64;autodetected</span> <span class="hl opt">=</span> printer<span class="hl opt">::</span>detect<span class="hl opt">::</span>local_detect<span class="hl opt">();</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$msg</span> <span class="hl opt">=</span> <span class="hl kwa">do</span> <span class="hl opt">{</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">&#64;autodetected</span><span class="hl opt">) {</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">&#64;printerlist</span> <span class="hl opt">=</span> 
	      <span class="hl kwc">map</span> <span class="hl opt">{</span>
		  <span class="hl kwc">my</span> <span class="hl kwb">$entry</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>
		  if_<span class="hl opt">(</span><span class="hl kwb">$entry,</span> <span class="hl str">&quot;  -</span>  <span class="hl ipl">$entry\n</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
	      <span class="hl opt">}</span> <span class="hl kwb">&#64;autodetected</span><span class="hl opt">;</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$unknown_printers</span> <span class="hl opt">=</span> <span class="hl kwb">&#64;autodetected</span> <span class="hl opt">-</span> <span class="hl kwb">&#64;printerlist</span><span class="hl opt">;</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">&#64;printerlist</span><span class="hl opt">) {</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$unknown_msg</span> <span class="hl opt">=</span> 
		  <span class="hl kwb">$unknown_printers</span> <span class="hl opt">==</span> <span class="hl num">1</span> ? 
		    <span class="hl str">&quot;</span><span class="hl esc">\n</span><span class="hl str">&quot;</span> <span class="hl opt">.</span> N<span class="hl opt">(</span><span class="hl str">&quot;and one unknown printer&quot;</span><span class="hl opt">) :</span>
		  <span class="hl kwb">$unknown_printers</span> <span class="hl opt">&gt;</span> <span class="hl num">1</span> ?
		    <span class="hl str">&quot;</span><span class="hl esc">\n</span><span class="hl str">&quot;</span> <span class="hl opt">.</span> N<span class="hl opt">(</span><span class="hl str">&quot;and</span> <span class="hl ipl">%d</span> <span class="hl str">unknown printers&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$unknown_printers</span><span class="hl opt">) :</span>
		    <span class="hl str">&apos;&apos;</span><span class="hl opt">;</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$main_msg</span> <span class="hl opt">=</span> 
		  <span class="hl kwb">&#64;printerlist</span> <span class="hl opt">&gt;</span> <span class="hl num">1</span> ?
		    N_<span class="hl opt">(</span><span class="hl str">&quot;The following printers</span><span class="hl esc">\n\n</span><span class="hl str"></span><span class="hl ipl">%s%s\nare</span> <span class="hl str">directly connected to your system&quot;</span><span class="hl opt">) :</span>
		  <span class="hl kwb">$unknown_printers</span> ?
		    N_<span class="hl opt">(</span><span class="hl str">&quot;The following printer</span><span class="hl esc">\n\n</span><span class="hl str"></span><span class="hl ipl">%s%s\nare</span> <span class="hl str">directly connected to your system&quot;</span><span class="hl opt">) :</span>
		    N_<span class="hl opt">(</span><span class="hl str">&quot;The following printer</span><span class="hl esc">\n\n</span><span class="hl str"></span><span class="hl ipl">%s%s\nis</span> <span class="hl str">directly connected to your system&quot;</span><span class="hl opt">);</span>
		<span class="hl kwc">sprintf</span><span class="hl opt">(</span><span class="hl kwb">$main_msg,</span> <span class="hl kwc">join</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> <span class="hl kwb">&#64;printerlist</span><span class="hl opt">),</span> <span class="hl kwb">$unknown_msg</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">$unknown_printers</span> <span class="hl opt">==</span> <span class="hl num">1</span> ?
		  N<span class="hl opt">(</span><span class="hl str">&quot;</span><span class="hl esc">\n</span><span class="hl str">There is one unknown printer directly connected to your system&quot;</span><span class="hl opt">) :</span>
		  N<span class="hl opt">(</span><span class="hl str">&quot;</span><span class="hl esc">\n</span><span class="hl str">There are</span> <span class="hl ipl">%d</span> <span class="hl str">unknown printers directly connected to your system&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$unknown_printers</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>
	    N<span class="hl opt">(</span><span class="hl str">&quot;There are no printers found which are directly connected to your machine&quot;</span><span class="hl opt">);</span>
	<span class="hl opt">}</span>
    <span class="hl opt">};</span>
    <span class="hl kwb">$msg</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot; (Make sure that all your printers are connected and turned on).</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">);</span>

    <span class="hl slc"># Do we have a local network?</span>

    <span class="hl slc"># If networking is configured, start it, but don&apos;t ask the user to</span>
    <span class="hl slc"># configure networking.</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$havelocalnetworks</span> <span class="hl opt">=</span> 
	 check_network<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork,</span> <span class="hl num">1</span><span class="hl opt">) &amp;&amp;</span> 
	  printer<span class="hl opt">::</span>detect<span class="hl opt">::</span>getIPsInLocalNetworks<span class="hl opt">() != ();</span>

    <span class="hl slc"># Finish building the dialog text</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$question</span> <span class="hl opt">= (</span><span class="hl kwb">$havelocalnetworks</span> ?
		    <span class="hl opt">(</span><span class="hl kwb">&#64;autodetected</span> ?
		     N<span class="hl opt">(</span><span class="hl str">&quot;Do you want to enable printing on the printers mentioned above or on printers in the local network?</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">) :</span>
		     N<span class="hl opt">(</span><span class="hl str">&quot;Do you want to enable printing on printers in the local network?</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 kwb">&#64;autodetected</span> ?
		     N<span class="hl opt">(</span><span class="hl str">&quot;Do you want to enable printing on the printers mentioned above?</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">) :</span>
		     N<span class="hl opt">(</span><span class="hl str">&quot;Are you sure that you want to set up printing on this machine?</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">)));</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$warning</span> <span class="hl opt">=</span> N<span class="hl opt">(</span><span class="hl str">&quot;NOTE: Depending on the printer model and the printing system up to</span> <span class="hl ipl">%d</span> <span class="hl str">MB of additional software will be installed.&quot;</span><span class="hl opt">,</span> <span class="hl num">80</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 str">&quot;</span><span class="hl ipl">$msg\n$question\n$warning</span><span class="hl str">&quot;</span><span class="hl opt">;</span>

    <span class="hl slc"># Close wait message</span>
    <span class="hl kwc">undef</span> <span class="hl kwb">$w</span><span class="hl opt">;</span>

    <span class="hl slc"># Show dialog</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>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span> <span class="hl kwb">$dialogtext,</span> <span class="hl num">0</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

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

    <span class="hl slc"># This procedure auto-detects local printers and checks whether</span>
    <span class="hl slc"># there is already a queue for them. If there is no queue for an</span>
    <span class="hl slc"># auto-detected printer, a queue gets set up non-interactively.</span>

    <span class="hl slc"># Experts can have weird things as self-made CUPS backends, so do not</span>
    <span class="hl slc"># automatically pollute the system with unwished queues in expert</span>
    <span class="hl slc"># mode</span>
    <span class="hl kwa">return</span> <span class="hl num">1</span> <span class="hl kwa">if</span> <span class="hl opt">$::</span>expert<span class="hl opt">;</span>
    
    <span class="hl slc"># Wait message</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>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span>
			       N<span class="hl opt">(</span><span class="hl str">&quot;Searching for new printers...&quot;</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>
    <span class="hl kwa">require</span> services<span class="hl opt">;</span>
    services<span class="hl opt">::</span>stop<span class="hl opt">(</span><span class="hl str">&quot;hpoj&quot;</span><span class="hl opt">);</span>

    <span class="hl slc"># Auto-detect local printers</span>
    <span class="hl kwc">my</span> <span class="hl kwb">&#64;autodetected</span> <span class="hl opt">=</span> printer<span class="hl opt">::</span>detect<span class="hl opt">::</span>local_detect<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>
    services<span class="hl opt">::</span>start<span class="hl opt">(</span><span class="hl str">&quot;hpoj&quot;</span><span class="hl opt">);</span>

    <span class="hl slc"># No printer found? So no need of new queues.</span>
    <span class="hl kwa">return</span> <span class="hl num">1</span> <span class="hl kwa">if</span> <span class="hl opt">!</span><span class="hl kwb">&#64;autodetected</span><span class="hl opt">;</span>

    <span class="hl slc"># Black-list all auto-detected printers for which there is already</span>
    <span class="hl slc"># a queue</span>
    <span class="hl kwc">my</span> <span class="hl kwb">&#64;blacklist</span><span class="hl opt">;</span>
    <span class="hl kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$queue</span> <span class="hl opt">(</span><span class="hl kwc">keys</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 slc"># Does the URI of this installed queue match one of the autodetected</span>
	<span class="hl slc"># printers?</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$uri</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>queuedata<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">};</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$p</span> <span class="hl opt">=</span> printer<span class="hl opt">::</span>main<span class="hl opt">::</span>autodetectionentry_for_uri
	    <span class="hl opt">(</span><span class="hl kwb">$uri, &#64;autodetected</span><span class="hl opt">);</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">defined</span><span class="hl opt">(</span><span class="hl kwb">$p</span><span class="hl opt">)) {</span>
	    <span class="hl slc"># Blacklist the port</span>
	    <span class="hl kwc">push</span><span class="hl opt">(</span><span class="hl kwb">&#64;blacklist, $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 slc"># Now install queues for all auto-detected printers which have no queue</span>
    <span class="hl slc"># yet</span>
    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>noninteractive<span class="hl opt">} =</span> <span class="hl num">1</span><span class="hl opt">;</span> <span class="hl slc"># Suppress all interactive steps</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$configapps</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
    <span class="hl kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$p</span> <span class="hl opt">(</span><span class="hl kwb">&#64;autodetected</span><span class="hl opt">) {</span>
	<span class="hl kwa">if</span> <span class="hl opt">(!</span>member<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 kwb">&#64;blacklist</span><span class="hl opt">)) {</span>
	    <span class="hl slc"># Initialize some variables for queue setup</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>NEW<span class="hl opt">} =</span> <span class="hl num">1</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 str">&quot;LOCAL&quot;</span><span class="hl opt">;</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">} = {</span> queue    <span class="hl opt">=&gt;</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">,</span>
					 foomatic <span class="hl opt">=&gt;</span> <span class="hl num">0</span><span class="hl opt">,</span>
					 desc     <span class="hl opt">=&gt;</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">,</span>
					 loc      <span class="hl opt">=&gt;</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">,</span>
					 make     <span class="hl opt">=&gt;</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">,</span>
					 model    <span class="hl opt">=&gt;</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">,</span>
					 printer  <span class="hl opt">=&gt;</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">,</span>
					 driver   <span class="hl opt">=&gt;</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">,</span>
					 <span class="hl kwc">connect</span>  <span class="hl opt">=&gt;</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">,</span>
					 spooler  <span class="hl opt">=&gt;</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"># Generate a queue name from manufacturer and model</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$queue</span><span class="hl opt">;</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$unknown</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>MANUFACTURER<span class="hl opt">} || !</span><span class="hl kwb">$p</span><span class="hl opt">-&gt;{</span>val<span class="hl opt">}{</span>MODEL<span class="hl opt">} ||</span>
		<span class="hl kwb">$p</span><span class="hl opt">-&gt;{</span>val<span class="hl opt">}{</span>MODEL<span class="hl opt">}</span> <span class="hl kwc">eq</span> N<span class="hl opt">(</span><span class="hl str">&quot;Unknown Model&quot;</span><span class="hl opt">)) {</span>
		<span class="hl kwb">$queue</span> <span class="hl opt">=</span> N<span class="hl opt">(</span><span class="hl str">&quot;Printer&quot;</span><span class="hl opt">);</span>
		<span class="hl kwb">$unknown</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">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 kwb">$p</span><span class="hl opt">-&gt;{</span>val<span class="hl opt">}{</span>MANUFACTURER<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>SKU<span class="hl opt">}) {</span>
		    <span class="hl kwb">$queue</span> <span class="hl opt">=</span> <span class="hl kwb">$make</span> <span class="hl opt">.</span> <span class="hl kwb">$p</span><span class="hl opt">-&gt;{</span>val<span class="hl opt">}{</span>SKU<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">$queue</span> <span class="hl opt">=</span> <span class="hl kwb">$make</span> <span class="hl opt">.</span> <span class="hl kwb">$p</span><span class="hl opt">-&gt;{</span>val<span class="hl opt">}{</span>MODEL<span class="hl opt">};</span>
		<span class="hl opt">}</span>
		<span class="hl kwb">$queue</span> <span class="hl opt">=~</span> <span class="hl kwd">s/series//gi</span><span class="hl opt">;</span>
		<span class="hl kwb">$queue</span> <span class="hl opt">=~</span> <span class="hl kwd">s/[\s\(\)\-,]//g</span><span class="hl opt">;</span>
		<span class="hl kwb">$queue</span> <span class="hl opt">=~</span> <span class="hl kwd">s/^$make$make/$make/</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	    <span class="hl slc"># Append a number if the queue name already exists</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 kwb">$queue</span> <span class="hl opt">=~</span> <span class="hl kwd">s/(\d)$/$1_/</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 num">1</span><span class="hl opt">;</span>
		<span class="hl kwa">while</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 str">&quot;</span><span class="hl ipl">$queue$i</span><span class="hl str">&quot;</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 kwb">$queue</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 kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>queue<span class="hl opt">} =</span> <span class="hl kwb">$queue</span><span class="hl opt">;</span>
	    <span class="hl kwc">undef</span> <span class="hl kwb">$w</span><span class="hl opt">;</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>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span>
				    <span class="hl opt">(</span><span class="hl kwb">$unknown</span> ?
				     N<span class="hl opt">(</span><span class="hl str">&quot;Configuring printer ...&quot;</span><span class="hl opt">) :</span>
				     N<span class="hl opt">(</span><span class="hl str">&quot;Configuring 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 str">&quot;,</span>
<span class="hl str"></span>				       <span class="hl ipl">$printer</span><span class="hl str">-&gt;{currentqueue}{queue})));</span>
<span class="hl str">	    # Do configuration of multi-function devices and look up</span>
<span class="hl str">	    # model name in the printer database</span>
<span class="hl str">	    setup_common(</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">$p</span><span class="hl str">-&gt;{val}{DESCRIPTION},</span> <span class="hl ipl">$p</span><span class="hl str">-&gt;{port},</span>
<span class="hl str">			 1,</span> <span class="hl ipl">&#64;autodetected</span><span class="hl str">) or next;</span>
<span class="hl str">	    # Set also OLD_QUEUE field so that the subroutines for the</span>
<span class="hl str">	    # configuration work correctly.</span>
<span class="hl str"></span>	    <span class="hl ipl">$printer</span><span class="hl str">-&gt;{OLD_QUEUE} =</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{QUEUE} =</span>
<span class="hl str"></span>		<span class="hl ipl">$printer</span><span class="hl str">-&gt;{currentqueue}{queue};</span>
<span class="hl str">	    # Do the steps of queue setup</span>
<span class="hl str">	    get_db_entry(</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 str">	    # Let the user choose the model manually if it could not be</span>
<span class="hl str">	    # auto-detected.</span>
<span class="hl str">	    if (!</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY}) {</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">		# Set model selection cursor onto the &quot;</span>Raw Printer<span class="hl str">&quot; entry.</span>
<span class="hl str"></span>		<span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY} = N(&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">		# Info about what was detected</span>
<span class="hl str">		my</span> <span class="hl ipl">$info</span> <span class="hl str">= N(&quot;</span><span class="hl opt">(</span><span class="hl str">&quot;) . if_(</span><span class="hl ipl">$p</span><span class="hl str">-&gt;{val}{DESCRIPTION},</span>
<span class="hl str"></span>					<span class="hl ipl">$p</span><span class="hl str">-&gt;{val}{DESCRIPTION} . N(&quot;</span> on <span class="hl str">&quot;)) .</span>
<span class="hl str"></span>					<span class="hl ipl">$p</span><span class="hl str">-&gt;{port} . N(&quot;</span><span class="hl opt">)</span><span class="hl str">&quot;);</span>
<span class="hl str">		# Remove wait message</span>
<span class="hl str">		undef</span> <span class="hl ipl">$w</span><span class="hl str">;</span>
<span class="hl str">		# Choose the printer/driver from the list</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">$in</span><span class="hl str">-&gt;ask_from_treelist(N(&quot;</span>Printer model selection<span class="hl str">&quot;),</span>
<span class="hl str">					   N(&quot;</span>Which printer model <span class="hl kwa">do</span> you have?<span class="hl str">&quot;) .</span>
<span class="hl str">					   N(&quot;</span>

Printerdrake could <span class="hl kwc">not</span> determine which model your printer <span class="hl kwb">%s</span> <span class="hl kwa">is</span><span class="hl opt">.</span> Please choose the correct model from the list<span class="hl opt">.</span><span class="hl str">&quot;,</span> <span class="hl ipl">$info</span><span class="hl str">) . &quot;</span> <span class="hl str">&quot; .</span>
<span class="hl str">					   N(&quot;</span>If your printer <span class="hl kwa">is</span> <span class="hl kwc">not</span> listed<span class="hl opt">,</span> choose a compatible <span class="hl opt">(</span>see printer manual<span class="hl opt">)</span> <span class="hl kwc">or</span> a similar one<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">::main::thedb ],</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY}) or next;</span>
<span class="hl str">		if (</span><span class="hl ipl">$unknown</span><span class="hl str">) {</span>
<span class="hl str">		    # Rename the queue according to the chosen model</span>
<span class="hl str"></span>		    <span class="hl ipl">$queue</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">$queue</span> <span class="hl str">=~ s/\|/ /g;</span>
<span class="hl str"></span>		    <span class="hl ipl">$printer</span><span class="hl str">-&gt;{currentqueue}{desc} =</span> <span class="hl ipl">$queue</span><span class="hl str">;</span>
<span class="hl str"></span>		    <span class="hl ipl">$queue</span> <span class="hl str">=~ s/series//gi;</span>
<span class="hl str"></span>		    <span class="hl ipl">$queue</span> <span class="hl str">=~ s/[\s\(\)\-,]//g;</span>
<span class="hl str">		    # Append a number if the queue name already exists</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"></span>			<span class="hl ipl">$queue</span> <span class="hl str">=~ s/(\d)$/$1_/;</span>
<span class="hl str">			my</span> <span class="hl ipl">$i</span> <span class="hl str">= 1;</span>
<span class="hl str">			while (</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}{&quot;</span><span class="hl kwb">$queue$i</span><span class="hl str">&quot;}) {</span>
<span class="hl str"></span>			    <span class="hl ipl">$i++</span><span class="hl str">;</span>
<span class="hl str">			}</span>
<span class="hl str"></span>			<span class="hl ipl">$queue</span> <span class="hl str">.=</span> <span class="hl ipl">$i</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;{currentqueue}{queue} =</span> <span class="hl ipl">$queue</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}{queue};</span>
<span class="hl str">		}</span>
<span class="hl str">		# Restore wait message</span>
<span class="hl str"></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(N(&quot;</span>Printerdrake<span class="hl str">&quot;),</span>
<span class="hl str">					N(&quot;</span>Configuring printer <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">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>queue<span class="hl opt">}));</span>
	    <span class="hl opt">}</span>
	    get_printer_info<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">next</span><span class="hl opt">;</span>
	    setup_options<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">next</span><span class="hl opt">;</span>
	    configure_queue<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><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">$configapps</span> <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
	    <span class="hl slc"># If there is no default printer set, let this one get the</span>
	    <span class="hl slc"># default</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 kwb">$printer</span><span class="hl opt">-&gt;{</span>DEFAULT<span class="hl opt">} =</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>QUEUE<span class="hl opt">};</span>
		printer<span class="hl opt">::</span><span class="hl kwa">default</span><span class="hl opt">::</span>set_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 slc"># Delete some variables</span>
	<span class="hl kwa">foreach</span> <span class="hl opt">(</span><span class="hl str">qw(OLD_QUEUE QUEUE TYPE str_type DBENTRY ARGS OLD_CHOICE)</span><span class="hl opt">) {</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</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">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">} = {};</span>
	<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>complete<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"># Configure the current printer queues in applications</span>
    <span class="hl kwc">undef</span> <span class="hl kwb">$w</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$configapps</span><span class="hl opt">) {</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>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span>
			      N<span class="hl opt">(</span><span class="hl str">&quot;Configuring applications...&quot;</span><span class="hl opt">));</span>
	printer<span class="hl opt">::</span>main<span class="hl opt">::</span>configureapplications<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
	<span class="hl kwc">undef</span> <span class="hl kwb">$w</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl kwc">undef</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>noninteractive<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, $upNetwork</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">$autodetectlocal</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">$autodetectnetwork</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">$autodetectsmb</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
    <span class="hl slc"># If networking is configured, start it, but don&apos;t ask the user to</span>
    <span class="hl slc"># configure networking.</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$havelocalnetworks</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">$havelocalnetworks</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
	<span class="hl kwc">undef</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECTNETWORK<span class="hl opt">};</span>
	<span class="hl kwc">undef</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECTSMB<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">$havelocalnetworks</span> <span class="hl opt">=</span> check_network<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork,</span> <span class="hl num">1</span><span class="hl opt">) &amp;&amp;</span>
			      printer<span class="hl opt">::</span>detect<span class="hl opt">::</span>getIPsInLocalNetworks<span class="hl opt">() != ();</span>
	<span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$havelocalnetworks</span><span class="hl opt">) {</span>
	    <span class="hl kwc">undef</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECTNETWORK<span class="hl opt">};</span>
	    <span class="hl kwc">undef</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECTSMB<span class="hl opt">};</span>
	<span class="hl opt">}</span>
	<span class="hl kwb">$autodetectlocal</span> <span class="hl opt">=</span> <span class="hl num">1</span> <span class="hl kwa">if</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECTLOCAL<span class="hl opt">};</span>
	<span class="hl kwb">$autodetectnetwork</span> <span class="hl opt">=</span> <span class="hl num">1</span> <span class="hl kwa">if</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECTNETWORK<span class="hl opt">};</span>
	<span class="hl kwb">$autodetectsmb</span> <span class="hl opt">=</span> <span class="hl num">1</span> <span class="hl kwa">if</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECTSMB<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 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 kwa">if</span> <span class="hl opt">($::</span>isWizard<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>
			 N<span class="hl opt">(</span><span class="hl str">&quot;Add a new printer&quot;</span><span class="hl opt">),</span>
			 N<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 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 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>
		     <span class="hl opt">{</span> title <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Add a new printer&quot;</span><span class="hl opt">),</span>
		       messages <span class="hl opt">=&gt; (</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">}</span> <span class="hl kwc">ne</span> <span class="hl str">&quot;pdq&quot;</span> ? 
				   <span class="hl opt">(</span><span class="hl kwb">$havelocalnetworks</span> ? N<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, connected directly to the network or to a remote Windows machine.</span>
<span class="hl str"></span>
<span class="hl str">Please plug in and turn on all printers connected to this machine so that it/they can be auto-detected. Also your network printer(s) and your Windows machines must be connected and turned on.</span>
<span class="hl str"></span>
<span class="hl str">Note that auto-detecting printers on the network takes longer than the auto-detection of only the printers connected to this machine. So turn off the auto-detection of network and/or Windows-hosted printers when you don&apos;t need it.</span>
<span class="hl str"></span>
<span class="hl str"> 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">if you do not want to set up your printer(s) now.&quot;</span><span class="hl opt">) :</span> N<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 and turn on all printers connected to this machine so that it/they can be auto-detected.</span>
<span class="hl str"></span>
<span class="hl str"> 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">if you do not want to set up your printer(s) now.&quot;</span><span class="hl opt">)) :</span> 
				   <span class="hl opt">(</span><span class="hl kwb">$havelocalnetworks</span> ? N<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 or connected directly to the network.</span>
<span class="hl str"></span>
<span class="hl str">If you have printer(s) connected to this machine, Please plug it/them in on this computer and turn it/them on so that it/they can be auto-detected. Also your network printer(s) must be connected and turned on.</span>
<span class="hl str"></span>
<span class="hl str">Note that auto-detecting printers on the network takes longer than the auto-detection of only the printers connected to this machine. So turn off the auto-detection of network printers when you don&apos;t need it.</span>
<span class="hl str"></span>
<span class="hl str"> 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">if you do not want to set up your printer(s) now.&quot;</span><span class="hl opt">) :</span> N<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">If you have printer(s) connected to this machine, Please plug it/them in on this computer and turn it/them on so that it/they can be auto-detected.</span>
<span class="hl str"></span>
<span class="hl str"> 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">if you do not want to set up your printer(s) now.&quot;</span><span class="hl opt">))) },</span>
		     <span class="hl opt">[</span>
		      <span class="hl opt">{</span> text <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Auto-detect printers connected to this machine&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">$autodetectlocal</span> <span class="hl opt">},</span>
		           if_<span class="hl opt">(</span><span class="hl kwb">$havelocalnetworks,</span>
		      <span class="hl opt">{</span> text <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Auto-detect printers connected directly to the local network&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">$autodetectnetwork</span> <span class="hl opt">},</span>
			   if_<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">ne</span> <span class="hl str">&quot;pdq&quot;</span><span class="hl opt">,</span>
		      <span class="hl opt">{</span> text <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Auto-detect printers connected to machines running Microsoft Windows&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">$autodetectsmb</span> <span class="hl opt">})),</span>
		      <span class="hl opt">]);</span>
		<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECTLOCAL<span class="hl opt">} =</span> <span class="hl kwb">$autodetectlocal</span> ? <span class="hl num">1</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>AUTODETECTNETWORK<span class="hl opt">} =</span> <span class="hl kwb">$autodetectnetwork</span> ? <span class="hl num">1</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>AUTODETECTSMB<span class="hl opt">} =</span> <span class="hl kwb">$autodetectsmb</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">}</span> <span class="hl kwc">ne</span> <span class="hl str">&quot;pdq&quot;</span> ? <span class="hl num">1</span> <span class="hl opt">:</span> <span class="hl kwc">undef</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 kwb">$&#64;</span> <span class="hl opt">=~</span> <span class="hl kwd">/wizcancel/</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>N<span class="hl opt">(</span><span class="hl str">&quot;Add a new printer&quot;</span><span class="hl opt">),</span>
			  N<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_autoscan <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</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">$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">$expert_or_modify</span> <span class="hl opt">= $::</span>expert <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 kwc">my</span> <span class="hl kwb">$do_auto_detect</span> <span class="hl opt">=</span> 
	<span class="hl opt">(</span><span class="hl kwb">$expert_or_modify</span> <span class="hl opt">&amp;&amp;</span>
	  <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECT<span class="hl opt">} ||</span>
	 <span class="hl opt">(!</span><span class="hl kwb">$expert_or_modify</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>AUTODETECTLOCAL<span class="hl opt">} ||</span>
	   <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECTNETWORK<span class="hl opt">} ||</span>
	   <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECTSMB<span class="hl opt">})));</span>

    <span class="hl slc"># If the user requested auto-detection of remote printers, check</span>
    <span class="hl slc"># whether the network functionality is configured and running</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECTNETWORK<span class="hl opt">} ||</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECTSMB<span class="hl opt">}) {</span>
	<span class="hl kwa">return</span> <span class="hl num">0</span> <span class="hl kwa">unless</span> check_network<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork,</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">&#64;autodetected</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 slc">#    $in-&gt;set_help(&apos;setupLocal&apos;) if $::isInstall;</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 kwa">if</span> <span class="hl opt">(!$::</span>testing <span class="hl opt">&amp;&amp;</span>
	    <span class="hl opt">!</span><span class="hl kwb">$expert_or_modify</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECTSMB<span class="hl opt">} &amp;&amp; !</span>files_exist<span class="hl opt">(</span><span class="hl str">&apos;/usr/bin/smbclient&apos;</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 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>N<span class="hl opt">(</span><span class="hl str">&quot;Printer auto-detection&quot;</span><span class="hl opt">),</span> N<span class="hl opt">(</span><span class="hl str">&quot;Detecting devices...&quot;</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>
	<span class="hl kwa">require</span> services<span class="hl opt">;</span>
	services<span class="hl opt">::</span>stop<span class="hl opt">(</span><span class="hl str">&quot;hpoj&quot;</span><span class="hl opt">);</span>
	<span class="hl kwb">&#64;autodetected</span> <span class="hl opt">= (</span>
	    <span class="hl kwb">$expert_or_modify</span> <span class="hl opt">||</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECTLOCAL<span class="hl opt">}</span> ? printer<span class="hl opt">::</span>detect<span class="hl opt">::</span>local_detect<span class="hl opt">() : (),</span>
	    <span class="hl opt">!</span><span class="hl kwb">$expert_or_modify</span> ? printer<span class="hl opt">::</span>detect<span class="hl opt">::</span>whatNetPrinter<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECTNETWORK<span class="hl opt">},</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECTSMB<span class="hl opt">}) : (),</span>
        <span class="hl opt">);</span>
	<span class="hl slc"># We have more than one printer, so we must ask the user for a queue</span>
	<span class="hl slc"># name in the fully automatic printer configuration.</span>
	<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>MORETHANONE<span class="hl opt">} =</span> <span class="hl kwb">$#autodetected</span> <span class="hl opt">&gt;</span> <span class="hl num">0</span><span class="hl opt">;</span>
	<span class="hl kwc">my</span> <span class="hl kwb">&#64;str</span><span class="hl opt">;</span>
	<span class="hl kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$p</span> <span class="hl opt">(</span><span class="hl kwb">&#64;autodetected</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> N<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> N<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">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!^socket://([^:]+):(\d+)$!</span><span class="hl opt">) {</span>
		    <span class="hl kwb">$menustr</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot;, network 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> port <span class="hl kwb">%s</span><span class="hl str">&quot;,</span> <span class="hl ipl">$1,</span> <span class="hl str"></span><span class="hl ipl">$2</span><span class="hl str">);</span>
<span class="hl str">		} elsif (</span><span class="hl ipl">$p</span><span class="hl str">-&gt;{port} =~ m!^smb://([^/:]+)/([^/:]+)$!) {</span>
<span class="hl str"></span>		    <span class="hl ipl">$menustr</span> <span class="hl str">.= N(&quot;</span><span class="hl opt">,</span> printer <span class="hl esc">\&quot;</span><span class="hl kwb">%s\</span><span class="hl str">&quot; on SMB/Windows server</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">$2,</span> <span class="hl str"></span><span class="hl ipl">$1</span><span class="hl str">);</span>
<span class="hl str">		}</span>
<span class="hl str"></span>		<span class="hl ipl">$menustr</span> <span class="hl str">.= &quot;</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 str">&quot; if $::expert;</span>
<span class="hl str"></span>		<span class="hl ipl">$menuentries</span><span class="hl str">-&gt;{</span><span class="hl ipl">$menustr</span><span class="hl str">} =</span> <span class="hl ipl">$p</span><span class="hl str">-&gt;{port};</span>
<span class="hl str">		push</span> <span class="hl ipl">&#64;str,</span> <span class="hl str">N(&quot;</span>Detected <span class="hl kwb">%s</span><span class="hl str">&quot;,</span> <span class="hl ipl">$menustr</span><span class="hl str">);</span>
<span class="hl str">	    } else {</span>
<span class="hl str">		my</span> <span class="hl ipl">$menustr</span><span class="hl str">;</span>
<span class="hl str">		if (</span><span class="hl ipl">$p</span><span class="hl str">-&gt;{port} =~ m!^/dev/lp(\d+)$!) {</span>
<span class="hl str"></span>		    <span class="hl ipl">$menustr</span> <span class="hl str">= N(&quot;</span>Printer on parallel port <span class="hl slc">#%s&quot;, $1);</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> N<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">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!^socket://([^:]+):(\d+)$!</span><span class="hl opt">) {</span>
		    <span class="hl kwb">$menustr</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot;Network 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> port <span class="hl kwb">%s</span><span class="hl str">&quot;,</span> <span class="hl ipl">$1,</span> <span class="hl str"></span><span class="hl ipl">$2</span><span class="hl str">);</span>
<span class="hl str">		} elsif (</span><span class="hl ipl">$p</span><span class="hl str">-&gt;{port} =~ m!^smb://([^/:]+)/([^/:]+)$!) {</span>
<span class="hl str"></span>		    <span class="hl ipl">$menustr</span> <span class="hl str">.= N(&quot;</span>Printer <span class="hl esc">\&quot;</span><span class="hl kwb">%s\</span><span class="hl str">&quot; on SMB/Windows server</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">$2,</span> <span class="hl str"></span><span class="hl ipl">$1</span><span class="hl str">);</span>
<span class="hl str">		}</span>
<span class="hl str"></span>		<span class="hl ipl">$menustr</span> <span class="hl str">.= &quot;</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 str">&quot; if $::expert;</span>
<span class="hl str"></span>		<span class="hl ipl">$menuentries</span><span class="hl str">-&gt;{</span><span class="hl ipl">$menustr</span><span class="hl str">} =</span> <span class="hl ipl">$p</span><span class="hl str">-&gt;{port};</span>
<span class="hl str">	    }</span>
<span class="hl str">	}</span>
<span class="hl str">	my</span> <span class="hl ipl">&#64;port</span><span class="hl str">;</span>
<span class="hl str">	if ($::expert) {</span>
<span class="hl str"></span>	    <span class="hl ipl">&#64;port</span> <span class="hl str">= printer::detect::whatPrinterPort();</span>
<span class="hl str">	  LOOP: foreach my</span> <span class="hl ipl">$q</span> <span class="hl str">(</span><span class="hl ipl">&#64;port</span><span class="hl str">) {</span>
<span class="hl str">		if (</span><span class="hl ipl">&#64;str</span><span class="hl str">) {</span>
<span class="hl str">		    foreach my</span> <span class="hl ipl">$p</span> <span class="hl str">(</span><span class="hl ipl">&#64;autodetected</span><span class="hl str">) {</span>
<span class="hl str">			last LOOP if</span> <span class="hl ipl">$p</span><span class="hl str">-&gt;{port} eq</span> <span class="hl ipl">$q</span><span class="hl str">;</span>
<span class="hl str">		    }</span>
<span class="hl str">		}</span>
<span class="hl str">		my</span> <span class="hl ipl">$menustr</span><span class="hl str">;</span>
<span class="hl str">		if (</span><span class="hl ipl">$q</span> <span class="hl str">=~ m!^/dev/lp(\d+)$!) {</span>
<span class="hl str"></span>		    <span class="hl ipl">$menustr</span> <span class="hl str">= N(&quot;</span>Printer on parallel port <span class="hl slc">#%s&quot;, $1);</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> N<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 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 kwa">if</span> <span class="hl opt">$::</span>expert<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>services<span class="hl opt">::</span>start<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 slc"># Always ask for queue name in recommended mode when no auto-</span>
	<span class="hl slc"># detection was done</span>
	<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>MORETHANONE<span class="hl opt">} =</span> <span class="hl kwb">$#autodetected</span> <span class="hl opt">&gt;</span> <span class="hl num">0</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> N<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 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 kwa">if</span> <span class="hl opt">$::</span>expert<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> N<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 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 kwa">if</span> <span class="hl opt">$::</span>expert<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 kwc">my</span> <span class="hl kwb">&#64;prefixes</span> <span class="hl opt">= (</span><span class="hl str">&quot;/dev/lp&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;/dev/usb/lp&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;/dev/&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;smb:&quot;</span><span class="hl opt">);</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$first</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">my</span> <span class="hl kwb">$second</span> <span class="hl opt">=</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 kwa">for</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 num">0</span><span class="hl opt">;</span> <span class="hl kwb">$i</span> <span class="hl opt">&lt;=</span> <span class="hl kwb">$#prefixes</span><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">$firstinlist</span> <span class="hl opt">=</span> <span class="hl kwb">$first</span> <span class="hl opt">=~</span> <span class="hl kwd">m!^$prefixes[$i]!</span><span class="hl opt">;</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$secondinlist</span> <span class="hl opt">=</span> <span class="hl kwb">$second</span> <span class="hl opt">=~</span> <span class="hl kwd">m!^$prefixes[$i]!</span><span class="hl opt">;</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$firstinlist</span> <span class="hl opt">&amp;&amp; !</span><span class="hl kwb">$secondinlist</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 kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$secondinlist</span> <span class="hl opt">&amp;&amp; !</span><span class="hl kwb">$firstinlist</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">return</span> <span class="hl kwb">$first</span> <span class="hl kwc">cmp</span> <span class="hl kwb">$second</span><span class="hl opt">;</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 kwc">my</span> <span class="hl kwb">$device</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 kwc">my</span> <span class="hl kwb">$p</span> <span class="hl opt">=</span> printer<span class="hl opt">::</span>main<span class="hl opt">::</span>autodetectionentry_for_uri
	    <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 kwc">connect</span><span class="hl opt">},</span> <span class="hl kwb">&#64;autodetected</span><span class="hl opt">);</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">defined</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">$p</span><span class="hl opt">-&gt;{</span>port<span class="hl opt">};</span>
	    <span class="hl kwb">$menuchoice</span> <span class="hl opt">= {</span> <span class="hl kwc">reverse</span> <span class="hl kwb">%$menuentries</span> <span class="hl opt">}-&gt;{</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">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 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 kwa">if</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 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 slc">#	$::expert or $in-&gt;set_help(&apos;configurePrinterDev&apos;) if $::isInstall;</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>
		     N<span class="hl opt">(</span><span class="hl str">&quot;Local Printer&quot;</span><span class="hl opt">),</span>
		     N<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">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">) {</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> N<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">return</span> <span class="hl num">0</span> <span class="hl kwa">if</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 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>N<span class="hl opt">(</span><span class="hl str">&quot;Printer auto-detection&quot;</span><span class="hl opt">),</span>
			      N<span class="hl opt">(</span><span class="hl str">&quot;No printer found!&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 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 kwb">$expert_or_modify</span> ?
			     N<span class="hl opt">(</span><span class="hl str">&quot;Local Printers&quot;</span><span class="hl opt">) :</span>
			     N<span class="hl opt">(</span><span class="hl str">&quot;Available printers&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>N<span class="hl opt">(</span><span class="hl str">&quot;The following printer was auto-detected. &quot;</span><span class="hl opt">) .</span>
				    <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>NEW<span class="hl opt">}</span> ?
				     N<span class="hl opt">(</span><span class="hl str">&quot;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>
				     N<span class="hl opt">(</span><span class="hl str">&quot;Alternatively, you can specify a device name/file name in the input line&quot;</span><span class="hl opt">))) :</span>
				   <span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Here is a list of all auto-detected printers. &quot;</span><span class="hl opt">) .</span>
				    <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>NEW<span class="hl opt">}</span> ?
				     N<span class="hl opt">(</span><span class="hl str">&quot;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>
				     N<span class="hl opt">(</span><span class="hl str">&quot;Please choose the printer to which the print jobs should go 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>N<span class="hl opt">(</span><span class="hl str">&quot;The following printer was auto-detected. &quot;</span><span class="hl opt">) .</span>
				    <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>NEW<span class="hl opt">}</span> ?
				     N<span class="hl opt">(</span><span class="hl str">&quot;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> 
				     N<span class="hl opt">(</span><span class="hl str">&quot;Currently, no alternative possibility is available&quot;</span><span class="hl opt">))) :</span>
				   <span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Here is a list of all auto-detected printers. &quot;</span><span class="hl opt">) .</span>
				    <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>NEW<span class="hl opt">}</span> ?
				     N<span class="hl opt">(</span><span class="hl str">&quot;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>
				     N<span class="hl opt">(</span><span class="hl str">&quot;Please choose the printer to which the print jobs should go.&quot;</span><span class="hl opt">))))) :</span>
				 <span class="hl opt">($::</span>expert ?
				  N<span class="hl opt">(</span><span class="hl str">&quot;Please choose the port that your printer is connected to or enter a device name/file name in the input line&quot;</span><span class="hl opt">) :</span>
				  N<span class="hl opt">(</span><span class="hl str">&quot;Please choose the port that your printer is connected to.&quot;</span><span class="hl opt">))) .</span>
				if_<span class="hl opt">($::</span>expert<span class="hl opt">,</span>
				    N<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> 
				  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> N<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>
		  if_<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>
		  if_<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">&amp;&amp;</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>NEW<span class="hl opt">},</span> 
		   <span class="hl opt">{</span> text <span class="hl opt">=&gt;</span> N<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">$device</span> <span class="hl kwc">ne</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">$menuchoice</span> <span class="hl opt">=</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</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 opt">}</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>MANUAL<span class="hl opt">} =</span> <span class="hl kwb">$manualconf</span> ? <span class="hl num">1</span> <span class="hl opt">:</span> <span class="hl kwc">undef</span><span class="hl opt">;</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>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 kwb">$device</span> <span class="hl opt">=~</span> <span class="hl kwd">/^socket:/</span> <span class="hl opt">&amp;&amp; !</span>files_exist<span class="hl opt">(</span><span class="hl str">&apos;/usr/bin/nc&apos;</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 slc"># Do configuration of multi-function devices and look up model name</span>
    <span class="hl slc"># in the printer database</span>
    setup_common<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $menuchoice, $device, $do_auto_detect,</span>
		  <span class="hl kwb">&#64;autodetected</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, $upNetwork</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, $upNetwork,</span> <span class="hl num">0</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">#    $in-&gt;set_help(&apos;setupLPD&apos;) if $::isInstall;</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 kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</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 kwc">connect</span><span class="hl opt">};</span>
	<span class="hl kwa">if</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 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>N<span class="hl opt">(</span><span class="hl str">&quot;Remote lpd Printer Options&quot;</span><span class="hl opt">),</span>
N<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> N<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> N<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">if</span> <span class="hl opt">(</span><span class="hl kwb">$remotehost</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> N<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">if</span> <span class="hl opt">(</span><span class="hl kwb">$remotequeue</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> N<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 kwc">connect</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>files_exist<span class="hl opt">(</span><span class="hl str">&apos;/usr/bin/rlpr&apos;</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 slc"># Auto-detect printer model (works if host is an ethernet-connected</span>
    <span class="hl slc"># printer)</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$modelinfo</span> <span class="hl opt">=</span> printer<span class="hl opt">::</span>detect<span class="hl opt">::</span>getSNMPModel<span class="hl opt">(</span><span class="hl kwb">$remotehost</span><span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$auto_hpoj</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">defined</span><span class="hl opt">(</span><span class="hl kwb">$modelinfo</span><span class="hl opt">) &amp;&amp;</span>
	<span class="hl kwb">$modelinfo</span><span class="hl opt">-&gt;{</span>MANUFACTURER<span class="hl opt">}</span> <span class="hl kwc">ne</span> <span class="hl str">&quot;&quot;</span> <span class="hl opt">&amp;&amp;</span>
	<span class="hl kwb">$modelinfo</span><span class="hl opt">-&gt;{</span>MODEL<span class="hl opt">}</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> N<span class="hl opt">(</span><span class="hl str">&quot;Detected model:</span> <span class="hl ipl">%s</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 kwb">$modelinfo</span><span class="hl opt">-&gt;{</span>MANUFACTURER<span class="hl opt">},</span> <span class="hl kwb">$modelinfo</span><span class="hl opt">-&gt;{</span>MODEL<span class="hl opt">}));</span>
        <span class="hl kwb">$auto_hpoj</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">else</span> <span class="hl opt">{</span>
	<span class="hl kwb">$auto_hpoj</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"># Do configuration of multi-function devices and look up model name</span>
    <span class="hl slc"># in the printer database</span>
    setup_common<span class="hl opt">(</span><span class="hl kwb">$printer, $in,</span>
		  <span class="hl str">&quot;</span><span class="hl ipl">$modelinfo</span><span class="hl str">-&gt;{MANUFACTURER}</span> <span class="hl ipl">$modelinfo</span><span class="hl str">-&gt;{MODEL}&quot;</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 kwc">connect</span><span class="hl opt">},</span> <span class="hl kwb">$auto_hpoj,</span>
                  <span class="hl opt">({</span>port <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 kwc">connect</span><span class="hl opt">},</span>
                    val <span class="hl opt">=&gt;</span> <span class="hl kwb">$modelinfo</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, $upNetwork</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, $upNetwork,</span> <span class="hl num">0</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">#    $in-&gt;set_help(&apos;setupSMB&apos;) if $::isInstall;</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 kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</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 kwc">connect</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 kwa">if</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 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 kwc">my</span> <span class="hl kwb">$autodetect</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">&#64;autodetected</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 kwc">my</span> <span class="hl kwb">&#64;menuentrieslist</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>AUTODETECT<span class="hl opt">}) {</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 kwa">if</span> <span class="hl opt">(!$::</span>testing <span class="hl opt">&amp;&amp; !</span>files_exist<span class="hl opt">(</span><span class="hl str">&apos;/usr/bin/smbclient&apos;</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 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>N<span class="hl opt">(</span><span class="hl str">&quot;Printer auto-detection&quot;</span><span class="hl opt">),</span> N<span class="hl opt">(</span><span class="hl str">&quot;Scanning network...&quot;</span><span class="hl opt">));</span>
	<span class="hl kwb">&#64;autodetected</span> <span class="hl opt">=</span> printer<span class="hl opt">::</span>detect<span class="hl opt">::</span>net_smb_detect<span class="hl opt">();</span>
     <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$server, $share</span><span class="hl opt">);</span>
	<span class="hl kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$p</span> <span class="hl opt">(</span><span class="hl kwb">&#64;autodetected</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!^smb://([^/:]+)/([^/:]+)$!</span><span class="hl opt">) {</span>
             <span class="hl kwb">$server</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
             <span class="hl kwb">$share</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">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 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 kwb">$menustr</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot;, 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> on server <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">$share, $server</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">$menustr</span> <span class="hl opt">=</span> N<span class="hl opt">(</span><span class="hl str">&quot;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> on server <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">$share, $server</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 kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$server</span> <span class="hl kwc">eq</span> <span class="hl kwb">$smbserver</span> <span class="hl opt">&amp;&amp;</span>
		<span class="hl kwb">$share</span> <span class="hl kwc">eq</span> <span class="hl kwb">$smbshare</span><span class="hl opt">) {</span>
		<span class="hl kwb">$menuchoice</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 opt">}</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 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">$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>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">} =~</span> <span class="hl kwd">m/^smb:/</span> <span class="hl opt">&amp;&amp;</span>
	    <span class="hl kwb">$menuchoice</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;&quot;</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">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>make<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">$printer</span><span class="hl str">-&gt;{currentqueue}{make}</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{currentqueue}{model}&quot;</span><span class="hl opt">;</span>
		<span class="hl kwb">$menustr</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot;, 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> on server <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">$smbshare, $smbserver</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">$menustr</span> <span class="hl opt">=</span> N<span class="hl opt">(</span><span class="hl str">&quot;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> on server <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">$smbshare, $smbserver</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;smb://</span><span class="hl ipl">$smbserver/$smbshare</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
	    <span class="hl kwc">unshift</span><span class="hl opt">(</span><span class="hl kwb">&#64;menuentrieslist, $menustr</span><span class="hl opt">);</span>
	    <span class="hl kwb">$menuchoice</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">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 kwb">$autodetect</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">elsif</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">) {</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 kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$menuentries</span><span class="hl opt">-&gt;{</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 kwd">m!^smb://([^/:]+)/([^/:]+)$!</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 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 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>
	 N<span class="hl opt">(</span><span class="hl str">&quot;SMB (Windows 9x/NT) Printer Options&quot;</span><span class="hl opt">),</span>
	 N<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><span class="hl kwb">$autodetect</span> ? N<span class="hl opt">(</span><span class="hl str">&quot; If the desired printer was auto-detected, simply choose it from the list and then add user name, password, and/or workgroup if needed.&quot;</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> label <span class="hl opt">=&gt;</span> N<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> N<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> N<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> N<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> N<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> N<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>
	  if_<span class="hl opt">(</span><span class="hl kwb">$autodetect,</span>
	   <span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Auto-detected&quot;</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> <span class="hl num">1</span><span class="hl opt">,</span> format <span class="hl opt">=&gt;</span> \<span class="hl opt">&amp;</span>translate<span class="hl opt">,</span> <span class="hl kwc">sort</span> <span class="hl opt">=&gt;</span> <span class="hl num">0</span><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;combo&apos;</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">if</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">) &amp;&amp;</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> N<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">if</span> <span class="hl opt">(</span><span class="hl kwb">$smbserver</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">$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> N<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">if</span> <span class="hl opt">(</span><span class="hl kwb">$smbshare</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> N<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">if</span> <span class="hl opt">(</span><span class="hl kwb">$smbpassword</span> <span class="hl kwc">ne</span> <span class="hl str">&quot;&quot;</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">$yes</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>
		      N<span class="hl opt">(</span><span class="hl str">&quot;SECURITY WARNING!&quot;</span><span class="hl opt">),</span>
		      N<span class="hl opt">(</span><span class="hl str">&quot;You are about to set up printing to a Windows account with password. Due to a fault in the architecture of the Samba client software the password is put in clear text into the command line of the Samba client used to transmit the print job to the Windows server. So it is possible for every user on this machine to display the password on the screen by issuing commands as</span> <span class="hl esc">\&quot;</span><span class="hl str">ps auxwww</span><span class="hl esc">\&quot;</span><span class="hl str">.</span>
<span class="hl str"></span>
<span class="hl str">We recommend to make use of one of the following alternatives (in all cases you have to make sure that only machines from your local network have access to your Windows server, for example by means of a firewall):</span>
<span class="hl str"></span>
<span class="hl str">Use a password-less account on your Windows server, as the</span> <span class="hl esc">\&quot;</span><span class="hl str">GUEST</span><span class="hl esc">\&quot;</span> <span class="hl str">account or a special account dedicated for printing. Do not remove the password protection from a personal account or the administrator account.</span>
<span class="hl str"></span>
<span class="hl str">Set up your Windows server to make the printer available under the LPD protocol. Then set up printing from this machine with 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> connection type <span class="hl kwa">in</span> Printerdrake<span class="hl opt">.</span>

<span class="hl str">&quot;, N(&quot;</span>Printer on remote lpd server<span class="hl str">&quot;)) .</span>
<span class="hl str">		      ($::expert ? </span>
<span class="hl str">		       N(&quot;</span>Set up your Windows server to make the printer available under the IPP protocol <span class="hl kwc">and</span> set up printing from this machine with the <span class="hl esc">\&quot;</span><span class="hl kwb">%s\</span><span class="hl str">&quot; connection type in Printerdrake.</span>
<span class="hl str"></span>
<span class="hl str">&quot;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;Enter a printer device URI&quot;</span><span class="hl opt">)) :</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">) .</span>
N<span class="hl opt">(</span><span class="hl str">&quot;Connect your printer to a Linux server and let your Windows machine(s) connect to it as a client.</span>
<span class="hl str"></span>
<span class="hl str">Do you really want to continue setting up this printer as you are doing now?&quot;</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 num">0</span> <span class="hl kwa">if</span> <span class="hl kwb">$yes</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>
	 changed <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</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">$autodetect</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 kwa">if</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 kwd">m!^smb://([^/:]+)/([^/:]+)$!</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 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 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 kwc">connect</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">&apos;&#64;&apos;</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>files_exist<span class="hl opt">(</span><span class="hl str">&apos;/usr/bin/smbclient&apos;</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>main<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, $upNetwork</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, $upNetwork,</span> <span class="hl num">0</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">#    $in-&gt;set_help(&apos;setupNCP&apos;) if $::isInstall;</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 kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</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 kwc">connect</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</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>N<span class="hl opt">(</span><span class="hl str">&quot;NetWare Printer Options&quot;</span><span class="hl opt">),</span>
N<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> N<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> N<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> N<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> N<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> N<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> N<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 kwc">connect</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">&apos;&#64;&apos;</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 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 kwa">if</span> <span class="hl opt">!$::</span>testing <span class="hl opt">&amp;&amp; !</span>files_exist<span class="hl opt">(</span><span class="hl str">&apos;/usr/bin/nprint&apos;</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, $upNetwork</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, $upNetwork,</span> <span class="hl num">0</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">#    $in-&gt;set_help(&apos;setupSocket&apos;) if $::isInstall;</span>

    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$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 kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">} =~</span>  <span class="hl kwd">m!^(socket:|ptal://?hpjd:)!</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 kwc">connect</span><span class="hl opt">};</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$uri</span> <span class="hl opt">=~</span> <span class="hl kwd">m!^ptal:!</span><span class="hl opt">) {</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$uri</span> <span class="hl opt">=~</span> <span class="hl kwd">m!^ptal://?hpjd:([^/:]+):([0-9]+)/?\s*$!</span><span class="hl opt">) {</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$ptalport</span> <span class="hl opt">=</span> <span class="hl kwb">$2</span> <span class="hl opt">-</span> <span class="hl num">9100</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">$1, $ptalport</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">$uri</span> <span class="hl opt">=~</span> <span class="hl kwd">m!^ptal://?hpjd:([^/:]+)\s*$!</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">$1,</span> <span class="hl num">9100</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 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 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 kwc">my</span> <span class="hl kwb">$autodetect</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">&#64;autodetected</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 kwc">my</span> <span class="hl kwb">&#64;menuentrieslist</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>AUTODETECT<span class="hl opt">}) {</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 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>N<span class="hl opt">(</span><span class="hl str">&quot;Printer auto-detection&quot;</span><span class="hl opt">),</span> N<span class="hl opt">(</span><span class="hl str">&quot;Scanning network...&quot;</span><span class="hl opt">));</span>
	<span class="hl kwb">&#64;autodetected</span> <span class="hl opt">=</span> printer<span class="hl opt">::</span>detect<span class="hl opt">::</span>net_detect<span class="hl opt">();</span>
     <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$host, $port</span><span class="hl opt">);</span>
	<span class="hl kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$p</span> <span class="hl opt">(</span><span class="hl kwb">&#64;autodetected</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!^socket://([^:]+):(\d+)$!</span><span class="hl opt">) {</span>
             <span class="hl kwb">$host</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
             <span class="hl kwb">$port</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">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 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 kwb">$menustr</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot;, host</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> port <span class="hl kwb">%s</span><span class="hl str">&quot;,</span>
<span class="hl str"></span>			      <span class="hl ipl">$host,</span> <span class="hl str"></span><span class="hl ipl">$port</span><span class="hl str">);</span>
<span class="hl str">	    } else {</span>
<span class="hl str"></span>		<span class="hl ipl">$menustr</span> <span class="hl str">= N(&quot;</span>Host <span class="hl esc">\&quot;</span><span class="hl kwb">%s\</span><span class="hl str">&quot;, port</span> <span class="hl ipl">%s</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$host, $port</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 kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$host</span> <span class="hl kwc">eq</span> <span class="hl kwb">$remotehost</span> <span class="hl opt">&amp;&amp;</span>
		<span class="hl kwb">$host</span> <span class="hl kwc">eq</span> <span class="hl kwb">$remotehost</span><span class="hl opt">) {</span>
		<span class="hl kwb">$menuchoice</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 opt">}</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 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">$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>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">} =~</span> <span class="hl kwd">m!^(socket:|ptal://?hpjd:)!</span> <span class="hl opt">&amp;&amp;</span>
	    <span class="hl kwb">$menuchoice</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;&quot;</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">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>make<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">$printer</span><span class="hl str">-&gt;{currentqueue}{make}</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{currentqueue}{model}&quot;</span><span class="hl opt">;</span>
		<span class="hl kwb">$menustr</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot;, host</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> port <span class="hl kwb">%s</span><span class="hl str">&quot;,</span>
<span class="hl str"></span>			      <span class="hl ipl">$remotehost,</span> <span class="hl str"></span><span class="hl ipl">$remoteport</span><span class="hl str">);</span>
<span class="hl str">	    } else {</span>
<span class="hl str"></span>		<span class="hl ipl">$menustr</span> <span class="hl str">= N(&quot;</span>Host <span class="hl esc">\&quot;</span><span class="hl kwb">%s\</span><span class="hl str">&quot;, port</span> <span class="hl ipl">%s</span><span class="hl str">&quot;</span><span class="hl opt">,</span>
			      <span class="hl kwb">$remotehost, $remoteport</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;socket://</span><span class="hl ipl">$remotehost</span><span class="hl str">:</span><span class="hl ipl">$remoteport</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
	    <span class="hl kwc">unshift</span><span class="hl opt">(</span><span class="hl kwb">&#64;menuentrieslist, $menustr</span><span class="hl opt">);</span>
	    <span class="hl kwb">$menuchoice</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">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 kwb">$autodetect</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">elsif</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">) {</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 kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$menuentries</span><span class="hl opt">-&gt;{</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 kwd">m!^socket://([^:]+):(\d+)$!</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">$remoteport</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 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 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> N<span class="hl opt">(</span><span class="hl str">&quot;TCP/Socket Printer Options&quot;</span><span class="hl opt">),</span>
	     messages <span class="hl opt">=&gt; (</span><span class="hl kwb">$autodetect</span> ?
			  N<span class="hl opt">(</span><span class="hl str">&quot;Choose one of the auto-detected printers from the list or enter the hostname or IP and the optional port number (default is 9100) in the input fields.&quot;</span><span class="hl opt">) :</span>
			  N<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 or IP of the printer and optionally the port number (default is 9100). 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>
		 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">$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> N<span class="hl opt">(</span><span class="hl str">&quot;Printer host name or IP 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> N<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>
		 changed <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</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">$autodetect</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 kwa">if</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 kwd">m!^socket://([^:]+):(\d+)$!</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">$remoteport</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 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>
	  <span class="hl opt">{</span> label <span class="hl opt">=&gt; (</span><span class="hl kwb">$autodetect</span> ? <span class="hl str">&quot;&quot;</span> <span class="hl opt">:</span> N<span class="hl opt">(</span><span class="hl str">&quot;Printer host name or IP&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 kwb">$autodetect</span> ? <span class="hl str">&quot;&quot;</span> <span class="hl opt">:</span> N<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>
	  if_<span class="hl opt">(</span><span class="hl kwb">$autodetect,</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> <span class="hl num">0</span><span class="hl opt">,</span> format <span class="hl opt">=&gt;</span> \<span class="hl opt">&amp;</span>translate<span class="hl opt">,</span> <span class="hl kwc">sort</span> <span class="hl opt">=&gt;</span> <span class="hl num">0</span><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>
	 <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 kwc">connect</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 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>files_exist<span class="hl opt">(</span><span class="hl str">&apos;/usr/bin/nc&apos;</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 slc"># Auto-detect printer model</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$modelinfo</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>AUTODETECT<span class="hl opt">}) {</span>
	<span class="hl kwb">$modelinfo</span> <span class="hl opt">=</span> printer<span class="hl opt">::</span>detect<span class="hl opt">::</span>getSNMPModel<span class="hl opt">(</span><span class="hl kwb">$remotehost</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$auto_hpoj</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">defined</span><span class="hl opt">(</span><span class="hl kwb">$modelinfo</span><span class="hl opt">) &amp;&amp;</span>
	<span class="hl kwb">$modelinfo</span><span class="hl opt">-&gt;{</span>MANUFACTURER<span class="hl opt">}</span> <span class="hl kwc">ne</span> <span class="hl str">&quot;&quot;</span> <span class="hl opt">&amp;&amp;</span>
	<span class="hl kwb">$modelinfo</span><span class="hl opt">-&gt;{</span>MODEL<span class="hl opt">}</span> <span class="hl kwc">ne</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">) {</span>
        <span class="hl kwb">$auto_hpoj</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">else</span> <span class="hl opt">{</span>
	<span class="hl kwb">$auto_hpoj</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"># Do configuration of multi-function devices and look up model name</span>
    <span class="hl slc"># in the printer database</span>
    setup_common<span class="hl opt">(</span><span class="hl kwb">$printer, $in,</span>
		  <span class="hl str">&quot;</span><span class="hl ipl">$modelinfo</span><span class="hl str">-&gt;{MANUFACTURER}</span> <span class="hl ipl">$modelinfo</span><span class="hl str">-&gt;{MODEL}&quot;</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 kwc">connect</span><span class="hl opt">},</span> <span class="hl kwb">$auto_hpoj,</span>
                  <span class="hl opt">({</span>port <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 kwc">connect</span><span class="hl opt">},</span>
                    val <span class="hl opt">=&gt;</span> <span class="hl kwb">$modelinfo</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, $upNetwork</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

<span class="hl slc">#    $in-&gt;set_help(&apos;setupURI&apos;) if $::isInstall;</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>N<span class="hl opt">(</span><span class="hl str">&quot;Printer Device URI&quot;</span><span class="hl opt">),</span>
N<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> N<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 kwc">connect</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 kwc">connect</span><span class="hl opt">},</span>
	  <span class="hl str">&quot;parallel:/&quot;</span><span class="hl opt">,</span>
	  <span class="hl str">&quot;usb:/&quot;</span><span class="hl opt">,</span>
	  <span class="hl str">&quot;serial:/&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;file:/&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 kwc">connect</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> N<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 kwc">connect</span><span class="hl opt">} !~</span> <span class="hl kwd">m!^(file|parallel|usb|serial|mtink|ptal://?mlc):/!</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, $upNetwork,</span> <span class="hl num">0</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"># 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">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 kwc">connect</span><span class="hl opt">} =~</span> <span class="hl kwd">/^lpd:/</span> <span class="hl opt">&amp;&amp;</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>files_exist<span class="hl opt">(</span><span class="hl str">&apos;/usr/bin/rlpr&apos;</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">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 kwc">connect</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>files_exist<span class="hl opt">(</span><span class="hl str">&apos;/usr/bin/smbclient&apos;</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">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 kwc">connect</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>files_exist<span class="hl opt">(</span><span class="hl str">&apos;/usr/bin/nprint&apos;</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">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 kwc">connect</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>files_exist<span class="hl opt">(</span><span class="hl str">&apos;/usr/bin/nc&apos;</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 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 kwc">connect</span><span class="hl opt">} =~</span> <span class="hl kwd">m!^socket://([^:/]+)!</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 kwc">connect</span><span class="hl opt">} =~</span> <span class="hl kwd">m!^lpd://([^:/]+)!</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 kwc">connect</span><span class="hl opt">} =~</span> <span class="hl kwd">m!^http://([^:/]+)!</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 kwc">connect</span><span class="hl opt">} =~</span> <span class="hl kwd">m!^ipp://([^:/]+)!</span><span class="hl opt">) {</span>
	
	<span class="hl slc"># Auto-detect printer model (works if host is an ethernet-connected</span>
	<span class="hl slc"># printer)</span>
	<span class="hl kwc">my</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 kwc">my</span> <span class="hl kwb">$modelinfo</span> <span class="hl opt">=</span> printer<span class="hl opt">::</span>detect<span class="hl opt">::</span>getSNMPModel<span class="hl opt">(</span><span class="hl kwb">$remotehost</span><span class="hl opt">);</span>
        <span class="hl kwc">my</span> <span class="hl kwb">$auto_hpoj</span><span class="hl opt">;</span>
        <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">defined</span><span class="hl opt">(</span><span class="hl kwb">$modelinfo</span><span class="hl opt">) &amp;&amp;</span>
            <span class="hl kwb">$modelinfo</span><span class="hl opt">-&gt;{</span>MANUFACTURER<span class="hl opt">}</span> <span class="hl kwc">ne</span> <span class="hl str">&quot;&quot;</span> <span class="hl opt">&amp;&amp;</span>
	    <span class="hl kwb">$modelinfo</span><span class="hl opt">-&gt;{</span>MODEL<span class="hl opt">}</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> N<span class="hl opt">(</span><span class="hl str">&quot;Detected model:</span> <span class="hl ipl">%s</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 kwb">$modelinfo</span><span class="hl opt">-&gt;{</span>MANUFACTURER<span class="hl opt">},</span>
				<span class="hl kwb">$modelinfo</span><span class="hl opt">-&gt;{</span>MODEL<span class="hl opt">}));</span>
            <span class="hl kwb">$auto_hpoj</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">else</span> <span class="hl opt">{</span>
	    <span class="hl kwb">$auto_hpoj</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"># Do configuration of multi-function devices and look up model name</span>
        <span class="hl slc"># in the printer database</span>
        setup_common<span class="hl opt">(</span><span class="hl kwb">$printer, $in,</span>
		      <span class="hl str">&quot;</span><span class="hl ipl">$modelinfo</span><span class="hl str">-&gt;{MANUFACTURER}</span> <span class="hl ipl">$modelinfo</span><span class="hl str">-&gt;{MODEL}&quot;</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 kwc">connect</span><span class="hl opt">},</span> <span class="hl kwb">$auto_hpoj,</span>
                      <span class="hl opt">({</span>port <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 kwc">connect</span><span class="hl opt">},</span>
                        val <span class="hl opt">=&gt;</span> <span class="hl kwb">$modelinfo</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 slc">#    $in-&gt;set_help(&apos;setupPostpipe&apos;) if $::isInstall;</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 kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</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 kwc">connect</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 kwa">if</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 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>N<span class="hl opt">(</span><span class="hl str">&quot;Pipe into command&quot;</span><span class="hl opt">),</span>
N<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> N<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> N<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 kwc">connect</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> setup_common <span class="hl opt">{</span>

    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in, $makemodel, $device, $do_auto_detect, &#64;autodetected</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</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 kwc">my</span> <span class="hl kwb">$w</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 opt">=~</span> <span class="hl kwd">m!^/dev/!</span> <span class="hl opt">||</span> <span class="hl kwb">$device</span> <span class="hl opt">=~</span> <span class="hl kwd">m!^socket://!</span><span class="hl opt">) {</span>
	<span class="hl slc"># Ask user whether he has a multi-function device when he didn&apos;t</span>
	<span class="hl slc"># do auto-detection or when auto-detection failed</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$searchunknown</span> <span class="hl opt">=</span> N<span class="hl opt">(</span><span class="hl str">&quot;Unknown model&quot;</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 kwb">$makemodel</span> <span class="hl kwc">eq</span> <span class="hl kwb">$searchunknown</span> <span class="hl opt">||</span>
	    <span class="hl kwb">$makemodel</span> <span class="hl opt">=~</span> <span class="hl kwd">/^\s*$/</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>noninteractive<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>N<span class="hl opt">(</span><span class="hl str">&quot;Add a new printer&quot;</span><span class="hl opt">),</span>
					   N<span class="hl opt">(</span><span class="hl str">&quot;Is your printer a multi-function device from HP or Sony (OfficeJet, PSC, LaserJet 1100/1200/1220/3200/3300 with scanner, DeskJet 450, Sony IJP-V100), an HP PhotoSmart or an HP LaserJet 2200?&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 opt">}</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$makemodel</span> <span class="hl opt">=~</span> <span class="hl kwd">/HP\s+(OfficeJet|PSC|PhotoSmart|LaserJet\s+(1200|1220|2200|3200|33.0)|(DeskJet|dj)\s*450)/i</span> <span class="hl opt">||</span>
	    <span class="hl kwb">$makemodel</span> <span class="hl opt">=~</span> <span class="hl kwd">/Sony\s+IJP[\s\-]+V[\s\-]+100/i</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>files_exist<span class="hl opt">(</span><span class="hl str">qw(/usr/sbin/ptal-mlcd</span>
<span class="hl str">					   /usr/sbin/ptal-init</span>
<span class="hl str">					   /usr/bin/xojpanel)</span><span class="hl opt">)) {</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>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span>
					   N<span class="hl opt">(</span><span class="hl str">&quot;Installing HPOJ package...&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>noninteractive<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 str">&apos;xojpanel&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">undef</span> <span class="hl kwb">$w</span><span class="hl opt">;</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>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span>
		 N<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 kwa">if</span> <span class="hl opt">!</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>noninteractive<span class="hl opt">};</span>
	    <span class="hl kwb">$ptaldevice</span> <span class="hl opt">=</span> printer<span class="hl opt">::</span>main<span class="hl opt">::</span>configure_hpoj
		<span class="hl opt">(</span><span class="hl kwb">$device, &#64;autodetected</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">$makemodel</span> <span class="hl opt">!~</span> <span class="hl kwd">/HP\s+PhotoSmart/i</span> <span class="hl opt">&amp;&amp;</span>
		    <span class="hl kwb">$makemodel</span> <span class="hl opt">!~</span> <span class="hl kwd">/HP\s+LaserJet\s+2200/i</span> <span class="hl opt">&amp;&amp;</span>
		    <span class="hl kwb">$makemodel</span> <span class="hl opt">!~</span> <span class="hl kwd">/HP\s+(DeskJet|dj)\s*450/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>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 str">						   /usr/lib/libsane-hpoj.so.1)</span><span class="hl opt">,</span>
						if_<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 kwc">undef</span> <span class="hl kwb">$w</span><span class="hl opt">;</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>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span>
			     N<span class="hl opt">(</span><span class="hl str">&quot;Installing SANE packages...&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>noninteractive<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> <span class="hl str">&apos;libsane-hpoj0&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 HPOJ SANE backend</span>
		    printer<span class="hl opt">::</span>main<span class="hl opt">::</span>config_sane<span class="hl opt">();</span>
		<span class="hl opt">}</span>
		<span class="hl slc"># Configure photo card access with mtools and MToolsFM</span>
		<span class="hl kwa">if</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 kwb">$makemodel</span> <span class="hl opt">=~</span> <span class="hl kwd">/HP\s+PSC\s*9[05]0/i</span> <span class="hl opt">||</span>
		     <span class="hl kwb">$makemodel</span> <span class="hl opt">=~</span> <span class="hl kwd">/HP\s+PSC\s*22\d\d/i</span> <span class="hl opt">||</span>
		     <span class="hl kwb">$makemodel</span> <span class="hl opt">=~</span> <span class="hl kwd">/HP\s+OfficeJet\s+D\s*1[45]5/i</span> <span class="hl opt">||</span>
		     <span class="hl kwb">$makemodel</span> <span class="hl opt">=~</span> <span class="hl kwd">/HP\s+OfficeJet\s+71[34]0/i</span> <span class="hl opt">||</span>
		     <span class="hl kwb">$makemodel</span> <span class="hl opt">=~</span> <span class="hl kwd">/HP\s+(DeskJet|dj)\s*450/i</span><span class="hl opt">) &amp;&amp;</span>
		    <span class="hl kwb">$makemodel</span> <span class="hl opt">!~</span> <span class="hl kwd">/HP\s+PhotoSmart\s+7150/i</span><span class="hl opt">) {</span>
		    <span class="hl slc"># Install mtools and MToolsFM</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>files_exist<span class="hl opt">(</span><span class="hl str">qw(/usr/bin/mdir</span>
<span class="hl str">						  /usr/bin/mcopy</span>
<span class="hl str">						  /usr/bin/MToolsFM</span>
<span class="hl str">						  )</span><span class="hl opt">)) {</span>
			<span class="hl kwc">undef</span> <span class="hl kwb">$w</span><span class="hl opt">;</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>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span>
			     N<span class="hl opt">(</span><span class="hl str">&quot;Installing mtools packages...&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>noninteractive<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;mtools&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;mtoolsfm&apos;</span><span class="hl opt">);</span>
		    <span class="hl opt">}</span>
		    <span class="hl slc"># Configure mtools/MToolsFM for photo card access</span>
		    printer<span class="hl opt">::</span>main<span class="hl opt">::</span>config_photocard<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>noninteractive<span class="hl opt">}) {</span>
		    <span class="hl kwc">my</span> <span class="hl kwb">$text</span> <span class="hl opt">=</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
		    <span class="hl slc"># Inform user about how to scan with his MF device</span>
		    <span class="hl kwb">$text</span> <span class="hl opt">=</span> scanner_help<span class="hl opt">(</span><span class="hl kwb">$makemodel,</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 kwc">undef</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">ask_warn</span>
			    <span class="hl opt">(</span>N<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"># Inform user about how to access photo cards with his </span>
		    <span class="hl slc"># MF device</span>
		    <span class="hl kwb">$text</span> <span class="hl opt">=</span> photocard_help<span class="hl opt">(</span><span class="hl kwb">$makemodel,</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 kwc">undef</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">ask_warn</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Photo memory card access 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 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 kwc">connect</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 kwc">connect</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 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>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span>
		 N<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 kwa">if</span> <span class="hl opt">!</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>noninteractive<span class="hl opt">} &amp;&amp; !</span><span class="hl kwc">defined</span><span class="hl opt">(</span><span class="hl kwb">$w</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 kwc">connect</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 kwc">connect</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 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 kwc">connect</span><span class="hl opt">} !~</span> <span class="hl kwd">/:/</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 kwc">connect</span><span class="hl opt">} =~</span> <span class="hl kwd">/usb/</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 kwc">connect</span><span class="hl opt">} =</span>
		<span class="hl str">&quot;usb:&quot;</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 kwc">connect</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 kwc">connect</span><span class="hl opt">} =~</span> <span class="hl kwd">/(serial|tty)/</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 kwc">connect</span><span class="hl opt">} =</span>
		<span class="hl str">&quot;serial:&quot;</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 kwc">connect</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 kwc">connect</span><span class="hl opt">} =~</span> 
		 <span class="hl kwd">/(printers|parallel|parport|lp\d)/</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 kwc">connect</span><span class="hl opt">} =</span>
		<span class="hl str">&quot;parallel:&quot;</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 kwc">connect</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">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">} =</span>
		<span class="hl str">&quot;file:&quot;</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 kwc">connect</span><span class="hl opt">};</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">&amp;&amp;</span>
	<span class="hl kwb">$device</span> <span class="hl opt">!~</span> <span class="hl kwd">/^lpd:/</span> <span class="hl opt">&amp;&amp;</span>
	<span class="hl kwb">$device</span> <span class="hl opt">!~</span> <span class="hl kwd">/^smb:/</span> <span class="hl opt">&amp;&amp;</span>
	<span class="hl kwb">$device</span> <span class="hl opt">!~</span> <span class="hl kwd">/^socket:/</span> <span class="hl opt">&amp;&amp;</span>
	<span class="hl kwb">$device</span> <span class="hl opt">!~</span> <span class="hl kwd">/^http:/</span> <span class="hl opt">&amp;&amp;</span>
	<span class="hl kwb">$device</span> <span class="hl opt">!~</span> <span class="hl kwd">/^ipp:/</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>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span>
	     N<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">$printer</span><span class="hl opt">-&gt;{</span>noninteractive<span class="hl opt">};</span>
	printer<span class="hl opt">::</span>main<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 kwb">$device</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>main<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>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span> N<span class="hl opt">(</span><span class="hl str">&quot;Reading printer database...&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>noninteractive<span class="hl opt">};</span>
        printer<span class="hl opt">::</span>main<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;autodetected</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 kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$automake, $automodel, $autodescr, $autocmdset, $autosku</span><span class="hl opt">) =</span>
	    <span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>val<span class="hl opt">}{</span>MANUFACTURER<span class="hl opt">},</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>val<span class="hl opt">}{</span>MODEL<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 kwb">$_</span><span class="hl opt">-&gt;{</span>val<span class="hl opt">}{</span><span class="hl str">&apos;COMMAND SET&apos;</span><span class="hl opt">},</span>
	     <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>val<span class="hl opt">}{</span>SKU<span class="hl opt">});</span>
	<span class="hl slc"># Clean some manufacturer&apos;s names</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$descrmake</span> <span class="hl opt">=</span> printer<span class="hl opt">::</span>main<span class="hl opt">::</span>clean_manufacturer_name<span class="hl opt">(</span><span class="hl kwb">$automake</span><span class="hl opt">);</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$automake</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$autosku</span><span class="hl opt">) {</span>
	    <span class="hl kwb">$descr</span> <span class="hl opt">=</span> <span class="hl str">&quot;</span><span class="hl ipl">$descrmake</span><span class="hl str">|</span><span class="hl ipl">$autosku</span><span class="hl str">&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">$automake</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$automodel</span><span class="hl opt">) {</span>
	    <span class="hl kwb">$descr</span> <span class="hl opt">=</span> <span class="hl str">&quot;</span><span class="hl ipl">$descrmake</span><span class="hl str">|</span><span class="hl ipl">$automodel</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">$descr</span> <span class="hl opt">=</span> <span class="hl kwb">$autodescr</span><span class="hl opt">;</span>
	    <span class="hl kwb">$descr</span> <span class="hl opt">=~</span> <span class="hl kwd">s/ /|/</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
	<span class="hl slc"># Remove manufacturer&apos;s name from the beginning of the</span>
	<span class="hl slc"># description (do not do this with manufacturer names which</span>
	<span class="hl slc"># contain odd characters)</span>
	<span class="hl kwb">$descr</span> <span class="hl opt">=~</span> <span class="hl kwd">s/^$descrmake\|\s*$descrmake\s*/$descrmake|/i</span>
	    <span class="hl kwa">if</span> <span class="hl kwb">$descrmake</span> <span class="hl opt">&amp;&amp;</span> 
           <span class="hl kwb">$descrmake</span> <span class="hl opt">!~</span> <span class="hl kwd">m![\\/\(\)\[\]\|\.\$\&#64;\%\*\?]!</span><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+[Ss]eries//i</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\)?$//i</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 slc"># Try to find an exact match, check both whether the detected</span>
	<span class="hl slc"># make|model is in the make|model of the database entry and vice versa</span>
	<span class="hl slc"># If there is more than one matching database entry, the longest match</span>
	<span class="hl slc"># counts.</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$matchlength</span> <span class="hl opt">= -</span><span class="hl num">100</span><span class="hl opt">;</span>
	<span class="hl kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$entry</span> <span class="hl opt">(</span><span class="hl kwc">keys</span> <span class="hl kwb">%printer</span><span class="hl opt">::</span>main<span class="hl opt">::</span>thedb<span class="hl opt">) {</span>
	    <span class="hl slc"># Try to match the device ID string of the auto-detection</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">::</span>main<span class="hl opt">::</span>thedb<span class="hl opt">{</span><span class="hl kwb">$entry</span><span class="hl opt">}{</span>make<span class="hl opt">} =~</span> <span class="hl kwd">/Generic/i</span><span class="hl opt">) {</span>
		<span class="hl slc"># Database entry for generic printer, check printer</span>
		<span class="hl slc"># languages (command set)</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$_cmd</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">::</span>main<span class="hl opt">::</span>thedb<span class="hl opt">{</span><span class="hl kwb">$entry</span><span class="hl opt">}{</span>devidcmd<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">::</span>main<span class="hl opt">::</span>thedb<span class="hl opt">{</span><span class="hl kwb">$entry</span><span class="hl opt">}{</span>model<span class="hl opt">} =~</span> 
		    <span class="hl kwd">m!PCL\s*5/5e!i</span><span class="hl opt">) {</span>
		    <span class="hl slc"># Generic PCL 5/5e Printer</span>
		    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$autocmdset</span> <span class="hl opt">=~</span>
			<span class="hl kwd">/(^|[:,])PCL\s*\-*\s*(5|)([,;]|$)/i</span><span class="hl opt">) {</span>
			<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$matchlength</span> <span class="hl opt">&lt; -</span><span class="hl num">50</span><span class="hl opt">) {</span>
			    <span class="hl kwb">$matchlength</span> <span class="hl opt">= -</span><span class="hl num">50</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">$entry</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 opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">::</span>main<span class="hl opt">::</span>thedb<span class="hl opt">{</span><span class="hl kwb">$entry</span><span class="hl opt">}{</span>model<span class="hl opt">} =~</span> 
		    <span class="hl kwd">m!PCL\s*(6|XL)!i</span><span class="hl opt">) {</span>
		    <span class="hl slc"># Generic PCL 6/XL Printer</span>
		    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$autocmdset</span> <span class="hl opt">=~</span>
			<span class="hl kwd">/(^|[:,])PCL\s*\-*\s*(6|XL)([,;]|$)/i</span><span class="hl opt">) {</span>
			<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$matchlength</span> <span class="hl opt">&lt; -</span><span class="hl num">40</span><span class="hl opt">) {</span>
			    <span class="hl kwb">$matchlength</span> <span class="hl opt">= -</span><span class="hl num">40</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">$entry</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 opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">::</span>main<span class="hl opt">::</span>thedb<span class="hl opt">{</span><span class="hl kwb">$entry</span><span class="hl opt">}{</span>model<span class="hl opt">} =~</span> 
		    <span class="hl kwd">m!(PostScript)!i</span><span class="hl opt">) {</span>
		    <span class="hl slc"># Generic PostScript Printer</span>
		    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$autocmdset</span> <span class="hl opt">=~</span>
			<span class="hl kwd">/(^|[:,])(PS|POSTSCRIPT)[^:;,]*([,;]|$)/i</span><span class="hl opt">) {</span>
			<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$matchlength</span> <span class="hl opt">&lt; -</span><span class="hl num">10</span><span class="hl opt">) {</span>
			    <span class="hl kwb">$matchlength</span> <span class="hl opt">= -</span><span class="hl num">10</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">$entry</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 opt">}</span>
	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		<span class="hl slc"># &quot;Real&quot; manufacturer, check manufacturer, model, and/or</span>
		<span class="hl slc"># description</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$matched</span> <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
		<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$mfg, $mdl, $des</span><span class="hl opt">);</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$mfg</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">::</span>main<span class="hl opt">::</span>thedb<span class="hl opt">{</span><span class="hl kwb">$entry</span><span class="hl opt">}{</span>devidmake<span class="hl opt">}) {</span>
		    <span class="hl kwb">$mfg</span> <span class="hl opt">=~</span> <span class="hl kwd">s/Hewlett[-\s_]Packard/HP/i</span><span class="hl opt">;</span>
		    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">uc</span><span class="hl opt">(</span><span class="hl kwb">$mfg</span><span class="hl opt">)</span> <span class="hl kwc">ne uc</span><span class="hl opt">(</span><span class="hl kwb">$automake</span><span class="hl opt">)) {</span>
			<span class="hl kwb">$matched</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 opt">}</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$mdl</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">::</span>main<span class="hl opt">::</span>thedb<span class="hl opt">{</span><span class="hl kwb">$entry</span><span class="hl opt">}{</span>devidmodel<span class="hl opt">}) {</span>
		    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$mdl</span> <span class="hl kwc">ne</span> <span class="hl kwb">$automodel</span><span class="hl opt">) {</span>
			<span class="hl kwb">$matched</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 opt">}</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$des</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">::</span>main<span class="hl opt">::</span>thedb<span class="hl opt">{</span><span class="hl kwb">$entry</span><span class="hl opt">}{</span>deviddesc<span class="hl opt">}) {</span>
		    <span class="hl kwb">$des</span> <span class="hl opt">=~</span> <span class="hl kwd">s/Hewlett[-\s_]Packard/HP/</span><span class="hl opt">;</span>
		    <span class="hl kwb">$des</span> <span class="hl opt">=~</span> <span class="hl kwd">s/HEWLETT[-\s_]PACKARD/HP/</span><span class="hl opt">;</span>    
		    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$des</span> <span class="hl kwc">ne</span> <span class="hl kwb">$autodescr</span><span class="hl opt">) {</span>
			<span class="hl kwb">$matched</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 opt">}</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$matched</span> <span class="hl opt">&amp;&amp; (</span><span class="hl kwb">$des</span> <span class="hl opt">||</span> <span class="hl kwb">$mfg</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$mdl</span><span class="hl opt">)) {</span>
		    <span class="hl slc"># Full match to known auto-detection data</span>
		    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DBENTRY<span class="hl opt">} =</span> <span class="hl kwb">$entry</span><span class="hl opt">;</span>
		    <span class="hl kwb">$matchlength</span> <span class="hl opt">=</span> <span class="hl num">1000</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"># Do not search human-readable make and model names if we had an</span>
	    <span class="hl slc"># exact match or a match to the auto-detection ID string </span>
	    <span class="hl kwa">next if</span> <span class="hl kwb">$matchlength</span> <span class="hl opt">&gt;=</span> <span class="hl num">100</span><span class="hl opt">;</span>
	    <span class="hl slc"># Try to match the (human-readable) make and model of the</span>
	    <span class="hl slc"># Foomatic database or of thr PPD file</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$dbmakemodel</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">$dbmakemodel</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span> <span class="hl kwa">if</span> <span class="hl kwb">$entry</span> <span class="hl opt">=~</span> <span class="hl kwd">m/^(.*)\|[^\|]*$/</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">$dbmakemodel</span> <span class="hl opt">=</span> <span class="hl kwb">$entry</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	    <span class="hl slc"># Don&apos;t try to match if the database entry does not provide</span>
	    <span class="hl slc"># make and model</span>
	    <span class="hl kwa">next unless</span> <span class="hl kwb">$dbmakemodel</span><span class="hl opt">;</span>
	    <span class="hl slc"># If make and model match exactly, we have found the correct</span>
	    <span class="hl slc"># entry and we can stop searching human-readable makes and</span>
	    <span class="hl slc"># models</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">lc</span><span class="hl opt">(</span><span class="hl kwb">$dbmakemodel</span><span class="hl opt">)</span> <span class="hl kwc">eq lc</span><span class="hl opt">(</span><span class="hl kwb">$descr</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">$entry</span><span class="hl opt">;</span>
		<span class="hl kwb">$matchlength</span> <span class="hl opt">=</span> <span class="hl num">100</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 slc"># Matching a part of the human-readable makes and models</span>
	    <span class="hl slc"># should only be done if the search term is not the name of</span>
	    <span class="hl slc"># an old model, otherwise the newest, not yet listed models</span>
	    <span class="hl slc"># match with the oldest model of the manufacturer (as the</span>
	    <span class="hl slc"># Epson Stylus Photo 900 with the original Epson Stylus Photo)</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">&#64;badsearchterms</span> <span class="hl opt">=</span> 
		<span class="hl opt">(</span><span class="hl str">&quot;HP|DeskJet&quot;</span><span class="hl opt">,</span>
		 <span class="hl str">&quot;HP|LaserJet&quot;</span><span class="hl opt">,</span>
		 <span class="hl str">&quot;HP|DesignJet&quot;</span><span class="hl opt">,</span>
		 <span class="hl str">&quot;HP|OfficeJet&quot;</span><span class="hl opt">,</span>
		 <span class="hl str">&quot;HP|PhotoSmart&quot;</span><span class="hl opt">,</span>
		 <span class="hl str">&quot;EPSON|Stylus&quot;</span><span class="hl opt">,</span>
		 <span class="hl str">&quot;EPSON|Stylus Color&quot;</span><span class="hl opt">,</span>
		 <span class="hl str">&quot;EPSON|Stylus Photo&quot;</span><span class="hl opt">,</span>
		 <span class="hl str">&quot;EPSON|Stylus Pro&quot;</span><span class="hl opt">,</span>
		 <span class="hl str">&quot;XEROX|WorkCentre&quot;</span><span class="hl opt">,</span>
		 <span class="hl str">&quot;XEROX|DocuPrint&quot;</span><span class="hl opt">);</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(!</span>member<span class="hl opt">(</span><span class="hl kwb">$descr, &#64;badsearchterms</span><span class="hl opt">)) {</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$searchterm</span> <span class="hl opt">=</span> <span class="hl kwb">$descr</span><span class="hl opt">;</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$lsearchterm</span> <span class="hl opt">=</span> <span class="hl kwc">length</span><span class="hl opt">(</span><span class="hl kwb">$searchterm</span><span class="hl opt">);</span>
		<span class="hl kwb">$searchterm</span> <span class="hl opt">=~</span> <span class="hl kwd">s!([\\/\(\)\[\]\|\.\$\&#64;\%\*\?])!\\$1!g</span><span class="hl opt">;</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$lsearchterm</span> <span class="hl opt">&gt;</span> <span class="hl kwb">$matchlength</span> <span class="hl opt">&amp;&amp;</span>
		    <span class="hl kwb">$dbmakemodel</span> <span class="hl opt">=~</span> <span class="hl kwd">m!$searchterm!i</span><span class="hl opt">) {</span>
		    <span class="hl kwb">$matchlength</span> <span class="hl opt">=</span> <span class="hl kwb">$lsearchterm</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">$entry</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>member<span class="hl opt">(</span><span class="hl kwb">$dbmakemodel, &#64;badsearchterms</span><span class="hl opt">)) {</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$searchterm</span> <span class="hl opt">=</span> <span class="hl kwb">$dbmakemodel</span><span class="hl opt">;</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$lsearchterm</span> <span class="hl opt">=</span> <span class="hl kwc">length</span><span class="hl opt">(</span><span class="hl kwb">$searchterm</span><span class="hl opt">);</span>
		<span class="hl kwb">$searchterm</span> <span class="hl opt">=~</span> <span class="hl kwd">s!([\\/\(\)\[\]\|\.\$\&#64;\%\*\?])!\\$1!g</span><span class="hl opt">;</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$lsearchterm</span> <span class="hl opt">&gt;</span> <span class="hl kwb">$matchlength</span> <span class="hl opt">&amp;&amp;</span>
		    <span class="hl kwb">$descr</span> <span class="hl opt">=~</span> <span class="hl kwd">m!$searchterm!i</span><span class="hl opt">) {</span>
		    <span class="hl kwb">$matchlength</span> <span class="hl opt">=</span> <span class="hl kwb">$lsearchterm</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">$entry</span><span class="hl opt">;</span>
		<span class="hl opt">}</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span>
	<span class="hl slc"># No matching printer found, try a best match as last mean (not</span>
	<span class="hl slc"># when generating queues non-interactively)</span>
	<span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>noninteractive<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>main<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 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 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 kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$guessedmake</span> <span class="hl opt">!~</span> <span class="hl kwd">/Generic/i</span> <span class="hl opt">&amp;&amp;</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 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 opt">}</span>

    <span class="hl slc">#- Pre-fill the &quot;Description&quot; field with the printer&apos;s model name</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>desc<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>desc<span class="hl opt">} =</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>desc<span class="hl opt">} =~</span> <span class="hl kwd">s/\|/ /g</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl slc">#- When we have chosen a printer here, the question whether the</span>
    <span class="hl slc">#- automatically chosen model from the database is correct, should</span>
    <span class="hl slc">#- have &quot;This model is correct&quot; as default answer</span>
    <span class="hl kwc">delete</span><span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>MANUALMODEL<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 slc">#    $in-&gt;set_help(&apos;setupPrinterName&apos;) if $::isInstall;</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>queue<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> N<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; : N(&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>queue<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> N<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>queue<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>queue<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> N<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}{queue}),</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">N(&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; N(&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}{queue} },</span>
<span class="hl str">	   { label =&gt; N(&quot;</span>Description<span class="hl str">&quot;), val =&gt; \</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{currentqueue}{desc} },</span>
<span class="hl str">	   { label =&gt; N(&quot;</span>Location<span class="hl str">&quot;), val =&gt; \</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{currentqueue}{loc} },</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}{queue};</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">::main::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(N(&quot;</span>Printerdrake<span class="hl str">&quot;),</span>
<span class="hl str">				   N(&quot;</span>Reading printer database<span class="hl opt">...</span><span class="hl str">&quot;))</span>
<span class="hl str">	    if</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{noninteractive};</span>
<span class="hl str">	printer::main::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(N(&quot;</span>Printerdrake<span class="hl str">&quot;),</span>
<span class="hl str">			       N(&quot;</span>Preparing printer database<span class="hl opt">...</span><span class="hl str">&quot;))</span>
<span class="hl str">	if !</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{noninteractive};</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">}{queuedata}{foomatic}) {</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">}{queuedata}{driver} 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>queuedata<span class="hl opt">}{</span>driver<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">}{queuedata}{make});</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">}{queuedata}{model};</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 (!member(</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY}, </span>
<span class="hl str">			    keys(</span><span class="hl ipl">%printer</span><span class="hl str">::main::thedb))) {</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;{configured}{</span><span class="hl ipl">$queue</span><span class="hl str">}{queuedata}{ppd}) {</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} =</span>
<span class="hl str">		printer::main::get_descr_from_ppd(</span><span class="hl ipl">$printer</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 str">	    if (!member(</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY}, </span>
<span class="hl str">			keys(</span><span class="hl ipl">%printer</span><span class="hl str">::main::thedb))) {</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"></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">	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 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">	    # Point the list cursor at least to manufacturer and model of </span>
<span class="hl str">	    # the 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">	    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">}{queuedata}{foomatic}) {</span>
<span class="hl str"></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">}{queuedata}{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;{configured}{</span><span class="hl ipl">$queue</span><span class="hl str">}{queuedata}{model};</span>
<span class="hl str">	    } elsif (</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}{</span><span class="hl ipl">$queue</span><span class="hl str">}{queuedata}{ppd}) {</span>
<span class="hl str">		my</span> <span class="hl ipl">$makemodel</span> <span class="hl str">=</span>
<span class="hl str">		    printer::main::get_descr_from_ppd(</span><span class="hl ipl">$printer</span><span class="hl str">);</span>
<span class="hl str">		if (</span><span class="hl ipl">$makemodel</span> <span class="hl str">=~ m!^([^\|]+)\|([^\|]+)(|\|.*)$!) {</span>
<span class="hl str"></span>              <span class="hl ipl">$make</span> <span class="hl str">=</span> <span class="hl ipl">$1</span><span class="hl str">;</span>
<span class="hl str"></span>              <span class="hl ipl">$model</span> <span class="hl str">=</span> <span class="hl ipl">$2</span><span class="hl str">;</span>
<span class="hl str">          }</span>
<span class="hl str">	    }</span>
<span class="hl str">	    foreach my</span> <span class="hl ipl">$key</span> <span class="hl str">(keys</span> <span class="hl ipl">%printer</span><span class="hl str">::main::thedb) {</span>
<span class="hl str">		if ($::expert &amp;&amp;</span>
<span class="hl str"></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;) {</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//i;</span>
<span class="hl str"></span>	    <span class="hl ipl">$model</span> <span class="hl str">=~ s/Series//i;</span>
<span class="hl str">	    foreach my</span> <span class="hl ipl">$key</span> <span class="hl str">(keys</span> <span class="hl ipl">%printer</span><span class="hl str">::main::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} = </span>
<span class="hl str">		bestMatchSentence(</span><span class="hl ipl">$matchstr,</span> <span class="hl str">keys</span> <span class="hl ipl">%printer</span><span class="hl str">::main::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">	    my</span> <span class="hl ipl">$guessedmake</span> <span class="hl str">= lc(</span><span class="hl ipl">$1</span><span class="hl str">) if</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY} =~ /^([^\|]+)\|/;</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">	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">	    # 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">	    foreach my</span> <span class="hl ipl">$key</span> <span class="hl str">(keys</span> <span class="hl ipl">%printer</span><span class="hl str">::main::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">    1;</span>
<span class="hl str">}</span>
<span class="hl str"></span>
<span class="hl str">sub is_model_correct {</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">    my</span> <span class="hl ipl">$dbentry</span> <span class="hl str">=</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY};</span>
<span class="hl str">    if (!</span><span class="hl ipl">$dbentry</span><span class="hl str">) {</span>
<span class="hl str">	# If printerdrake could not determine the model, omit this dialog and</span>
<span class="hl str">	# let the user choose manually.</span>
<span class="hl str"></span>	<span class="hl ipl">$printer</span><span class="hl str">-&gt;{MANUALMODEL} = 1;</span>
<span class="hl str">	return 1;</span>
<span class="hl str">    }</span>
<span class="hl str"></span>    <span class="hl ipl">$dbentry</span> <span class="hl str">=~ s/\|/ /g;</span>
<span class="hl str">    my</span> <span class="hl ipl">$res</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">	     N(&quot;</span>Your printer model<span class="hl str">&quot;),</span>
<span class="hl str">	     N(&quot;</span>Printerdrake <span class="hl kwa">has</span> compared the model name resulting from the printer auto-detection with the models listed <span class="hl kwa">in</span> its printer database to find the best match<span class="hl opt">.</span> This choice can be wrong<span class="hl opt">,</span> especially <span class="hl kwa">when</span> your printer <span class="hl kwa">is</span> <span class="hl kwc">not</span> listed at all <span class="hl kwa">in</span> the database<span class="hl opt">.</span> So check whether the choice <span class="hl kwa">is</span> correct <span class="hl kwc">and</span> click <span class="hl esc">\&quot;</span>The model <span class="hl kwa">is</span> correct<span class="hl esc">\&quot;</span> <span class="hl kwa">if</span> so <span class="hl kwc">and</span> <span class="hl kwa">if</span> <span class="hl kwc">not</span><span class="hl opt">,</span> click <span class="hl esc">\&quot;</span>Select model manually<span class="hl esc">\&quot;</span> so that you can choose your printer model manually on the <span class="hl kwa">next</span> screen<span class="hl opt">.</span>

For your printer Printerdrake <span class="hl kwa">has</span> found<span class="hl opt">:</span>

<span class="hl kwb">%s</span><span class="hl str">&quot;,</span> <span class="hl ipl">$dbentry</span><span class="hl str">),</span>
<span class="hl str">	     [N(&quot;</span>The model <span class="hl kwa">is</span> correct<span class="hl str">&quot;),</span>
<span class="hl str">	      N(&quot;</span>Select model manually<span class="hl str">&quot;)],</span>
<span class="hl str">	     (</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{MANUALMODEL} ? N(&quot;</span>Select model manually<span class="hl str">&quot;) : </span>
<span class="hl str">	      N(&quot;</span>The model <span class="hl kwa">is</span> correct<span class="hl str">&quot;)));</span>
<span class="hl str">    return 0 if !</span><span class="hl ipl">$res</span><span class="hl str">;</span>
<span class="hl str"></span>    <span class="hl ipl">$printer</span><span class="hl str">-&gt;{MANUALMODEL} =</span> <span class="hl ipl">$res</span> <span class="hl str">eq N(&quot;</span>Select model manually<span class="hl str">&quot;);</span>
<span class="hl str">    1;</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">::main::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(N(&quot;</span>Printerdrake<span class="hl str">&quot;),</span>
<span class="hl str">				  N(&quot;</span>Reading printer database<span class="hl opt">...</span><span class="hl str">&quot;));</span>
<span class="hl str">        printer::main::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 (!member(</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY}, keys(</span><span class="hl ipl">%printer</span><span class="hl str">::main::thedb))) {</span>
<span class="hl str"></span>	<span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY} = N(&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(N(&quot;</span>Printer model selection<span class="hl str">&quot;),</span>
<span class="hl str">							 N(&quot;</span>Which printer model <span class="hl kwa">do</span> you have?<span class="hl str">&quot;) .</span>
<span class="hl str">							 N(&quot;</span>

Please check whether Printerdrake did the auto-detection of your printer model correctly<span class="hl opt">.</span> Find the correct model <span class="hl kwa">in</span> the list <span class="hl kwa">when</span> a wrong model <span class="hl kwc">or</span> <span class="hl esc">\&quot;</span>Raw printer<span class="hl esc">\&quot;</span> <span class="hl kwa">is</span> highlighted<span class="hl opt">.</span><span class="hl str">&quot;) . &quot;</span> <span class="hl str">&quot; .</span>
<span class="hl str">N(&quot;</span>If your printer <span class="hl kwa">is</span> <span class="hl kwc">not</span> listed<span class="hl opt">,</span> choose a compatible <span class="hl opt">(</span>see printer manual<span class="hl opt">)</span> <span class="hl kwc">or</span> a similar one<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">::main::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">my</span> <span class="hl ipl">%lexmarkinkjet_options</span> <span class="hl str">= (</span>
<span class="hl str">                             &apos;parallel:/dev/lp0&apos; =&gt; &quot;</span> <span class="hl opt">-</span>o Port<span class="hl opt">=</span>ParPort1<span class="hl str">&quot;,</span>
<span class="hl str">                             &apos;parallel:/dev/lp1&apos; =&gt; &quot;</span> <span class="hl opt">-</span>o Port<span class="hl opt">=</span>ParPort2<span class="hl str">&quot;,</span>
<span class="hl str">                             &apos;parallel:/dev/lp2&apos; =&gt; &quot;</span> <span class="hl opt">-</span>o Port<span class="hl opt">=</span>ParPort3<span class="hl str">&quot;,</span>
<span class="hl str">                             &apos;usb:/dev/usb/lp0&apos; =&gt; &quot;</span> <span class="hl opt">-</span>o Port<span class="hl opt">=</span>USB1<span class="hl str">&quot;,</span>
<span class="hl str">                             &apos;usb:/dev/usb/lp1&apos; =&gt; &quot;</span> <span class="hl opt">-</span>o Port<span class="hl opt">=</span>USB2<span class="hl str">&quot;,</span>
<span class="hl str">                             &apos;usb:/dev/usb/lp2&apos; =&gt; &quot;</span> <span class="hl opt">-</span>o Port<span class="hl opt">=</span>USB3<span class="hl str">&quot;,</span>
<span class="hl str">                             &apos;file:/dev/lp0&apos; =&gt; &quot;</span> <span class="hl opt">-</span>o Port<span class="hl opt">=</span>ParPort1<span class="hl str">&quot;,</span>
<span class="hl str">                             &apos;file:/dev/lp1&apos; =&gt; &quot;</span> <span class="hl opt">-</span>o Port<span class="hl opt">=</span>ParPort2<span class="hl str">&quot;,</span>
<span class="hl str">                             &apos;file:/dev/lp2&apos; =&gt; &quot;</span> <span class="hl opt">-</span>o Port<span class="hl opt">=</span>ParPort3<span class="hl str">&quot;,</span>
<span class="hl str">                             &apos;file:/dev/usb/lp0&apos; =&gt; &quot;</span> <span class="hl opt">-</span>o Port<span class="hl opt">=</span>USB1<span class="hl str">&quot;,</span>
<span class="hl str">                             &apos;file:/dev/usb/lp1&apos; =&gt; &quot;</span> <span class="hl opt">-</span>o Port<span class="hl opt">=</span>USB2<span class="hl str">&quot;,</span>
<span class="hl str">                             &apos;file:/dev/usb/lp2&apos; =&gt; &quot;</span> <span class="hl opt">-</span>o Port<span class="hl opt">=</span>USB3<span class="hl str">&quot;,</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">    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}{driver} ne </span>
<span class="hl str"></span>	   <span class="hl ipl">$printer</span><span class="hl str">::main::thedb{</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY}}{driver}))) {</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>main<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>printer<span class="hl opt">} ||</span> <span class="hl slc"># We have a Foomatic queue</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 slc"># We have a 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>printer<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>foomatic<span class="hl opt">} =</span> <span class="hl num">1</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 kwc">undef</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 slc"># PPD queue?</span>
	    <span class="hl slc"># If we had a Foomatic queue before, unmark the flag and</span>
	    <span class="hl slc"># initialize 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>foomatic<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>printer<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>driver<span class="hl opt">} =</span> <span class="hl str">&quot;PPD&quot;</span><span class="hl opt">;</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 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>queuedata<span class="hl opt">}{</span>foomatic<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>queuedata<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">$newdriver</span><span class="hl opt">) {</span>
		<span class="hl slc"># 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>args<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>foomatic<span class="hl opt">}) {</span>
		<span class="hl slc"># The queue was already configured with Foomatic ...</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>main<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 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 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>main<span class="hl opt">::</span>read_ppd_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>LC_PAPER<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>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>LANGUAGE<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>LC_ALL<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 kwb">$pagesize</span> <span class="hl opt">=~</span> <span class="hl kwd">/^fr_CA/</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>driver<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 kwc">connect</span><span class="hl opt">} !~</span> 
		    <span class="hl kwd">m!^(parallel|file):/dev/lp0$!</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>N<span class="hl opt">(</span><span class="hl str">&quot;OKI winprinter configuration&quot;</span><span class="hl opt">),</span>
				  N<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 kwc">connect</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>
		services<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>services<span class="hl opt">::</span>start<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 kwc">my</span> <span class="hl kwb">$h</span> <span class="hl opt">= {</span>
		    cups <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <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>
		    pdq  <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <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 kwc">my</span> <span class="hl kwb">$s</span> <span class="hl opt">=</span> <span class="hl kwb">$h</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">}} ||=</span> 
		    <span class="hl kwa">sub</span> <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">&amp;</span><span class="hl kwb">$s</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>driver<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 kwc">my</span> <span class="hl kwb">$opt</span> <span class="hl opt">=</span>
		    <span class="hl kwb">$lexmarkinkjet_options</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 kwc">connect</span><span class="hl opt">}};</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$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 kwb">$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>N<span class="hl opt">(</span><span class="hl str">&quot;Lexmark inkjet configuration&quot;</span><span class="hl opt">),</span>
				  N<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 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 kwc">connect</span><span class="hl opt">} =~</span> 
		    <span class="hl kwd">/^\s*(file|parallel|usb):(\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>
                  set_permissions<span class="hl opt">(</span><span class="hl kwb">$2,</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>
                  set_permissions<span class="hl opt">(</span><span class="hl kwb">$2,</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>
                  set_permissions<span class="hl opt">(</span><span class="hl kwb">$2,</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 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 kwc">connect</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>model<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>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>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>N<span class="hl opt">(</span><span class="hl str">&quot;Lexmark inkjet configuration&quot;</span><span class="hl opt">),</span>
				  N<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/). 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">link. 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 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>printer<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;HP-LaserJet_1000&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>N<span class="hl opt">(</span><span class="hl str">&quot;Firmware-Upload for HP LaserJet 1000&quot;</span><span class="hl opt">),</span>
			      <span class="hl kwb">$hp1000fwtext</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>foomatic<span class="hl opt">}) {</span> <span class="hl slc"># Foomatic queue?</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>main<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 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 slc"># PPD queue?</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>main<span class="hl opt">::</span>read_ppd_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 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 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;HWResolution&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;stpImageType&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;EconoMode&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;FastRes&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;JCLFastRes&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;stpInkType&quot;</span><span class="hl opt">,</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;ColorModel&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;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 slc">#    $in-&gt;set_help(&apos;setupOptions&apos;) if $::isInstall;</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>printer<span class="hl opt">} ||</span> <span class="hl slc"># We have a Foomatic queue</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 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">$helptext</span> <span class="hl opt">=</span> N<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 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 kwc">my</span> <span class="hl kwb">&#64;oldgroup</span> <span class="hl opt">= (</span><span class="hl str">&quot;&quot;</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 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 kwa">default</span><span class="hl opt">};</span>
	    <span class="hl slc"># Should the option only show when the &quot;Advanced&quot; button was</span>
	    <span class="hl slc"># clicked?</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$advanced</span> <span class="hl opt">= ((</span><span class="hl kwc">defined</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>group<span class="hl opt">}) &amp;&amp;</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>group<span class="hl opt">} !~</span>
			      <span class="hl kwd">/^(|General|.*install.*)$/i</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><span class="hl kwb">$i</span><span class="hl opt">]{</span>group<span class="hl opt">}) &amp;&amp;</span>
			     <span class="hl opt">!</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>name<span class="hl opt">},</span>
				     <span class="hl kwb">&#64;simple_options</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"># Group header</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>group<span class="hl opt">}</span> <span class="hl kwc">ne</span> <span class="hl kwb">$oldgroup</span><span class="hl opt">[</span><span class="hl kwb">$advanced</span><span class="hl opt">]) {</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$_level</span> <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">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span>grouptrans<span class="hl opt">}};</span>
		<span class="hl kwb">$oldgroup</span><span class="hl opt">[</span><span class="hl kwb">$advanced</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>group<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>group<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> val <span class="hl opt">=&gt;</span> 
			   <span class="hl kwc">join</span><span class="hl opt">(</span><span class="hl str">&quot; / &quot;</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>grouptrans<span class="hl opt">}}),</span>
			   advanced <span class="hl opt">=&gt;</span> <span class="hl kwb">$advanced</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">$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>type<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 kwa">foreach</span> <span class="hl kwc">my</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>vals<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>comment<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>value<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>value<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>comment<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>comment<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>
		       <span class="hl kwc">sort</span> <span class="hl opt">=&gt;</span> <span class="hl num">0</span><span class="hl opt">,</span>
		       advanced <span class="hl opt">=&gt;</span> <span class="hl kwb">$advanced,</span>
		       help <span class="hl opt">=&gt;</span> <span class="hl kwb">$helptext</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>name<span class="hl opt">}</span> <span class="hl kwc">ne</span> <span class="hl str">&apos;PageRegion&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>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span>type<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>comment_true<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>name<span class="hl opt">} ||</span> <span class="hl str">&quot;Yes&quot;</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><span class="hl kwb">$i</span><span class="hl opt">]{</span>comment_false<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>name_false<span class="hl opt">} ||</span>
				     <span class="hl str">&quot;No&quot;</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">$numdefault</span> <span class="hl opt">=</span> 
		    <span class="hl opt">(</span><span class="hl kwb">$optshortdefault</span> <span class="hl opt">=~</span> <span class="hl kwd">m!^\s*(true|on|yes|1)\s*$!</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 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">$numdefault</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>comment<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>
		       <span class="hl kwc">sort</span> <span class="hl opt">=&gt;</span> <span class="hl num">0</span><span class="hl opt">,</span>
		       advanced <span class="hl opt">=&gt;</span> <span class="hl kwb">$advanced,</span>
		       help <span class="hl opt">=&gt;</span> <span class="hl kwb">$helptext</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>comment<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">]{min}... &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">]{max})&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]{min},</span>
			   <span class="hl slc">#max =&gt; $printer-&gt;{ARGS}[$i]{max},</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> <span class="hl kwb">$advanced,</span>
			   help <span class="hl opt">=&gt;</span> <span class="hl kwb">$helptext</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}{make}</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{currentqueue}{model}&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 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">$driver</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span> <span class="hl kwa">if</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 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>main<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;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 kwb">$1</span> <span class="hl kwa">if</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 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 slc"># Do not show the options setup dialog when installing a new printer</span>
	<span class="hl slc"># in recommended mode without &quot;Manual configuration&quot; turned on.</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>expert <span class="hl opt">||</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>MANUAL<span class="hl opt">}) &amp;&amp;</span>
	    <span class="hl opt">!</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>noninteractive<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>
		 N<span class="hl opt">(</span><span class="hl str">&quot;Printer default settings&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>type<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>type<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">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>type<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;int&apos;</span> <span class="hl opt">&amp;&amp;</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> N<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>comment<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">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>type<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;float&apos;</span> <span class="hl opt">&amp;&amp;</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> N<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>comment<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">if</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>min<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>max<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> N<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>comment<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 num">0</span><span class="hl opt">;</span>
		 <span class="hl opt">});</span>
	<span class="hl opt">}</span>
	<span class="hl slc"># Read out the user&apos;s choices and generate the appropriate command</span>
	<span class="hl slc"># line arguments</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>type<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 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">default</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 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>name<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>type<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">my</span> <span class="hl kwb">$v</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 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">default</span><span class="hl opt">} =</span> <span class="hl kwb">$v</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>name<span class="hl opt">} .</span> <span class="hl str">&quot;=&quot;</span> <span class="hl opt">.</span> <span class="hl kwb">$v</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 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">default</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 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>name<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 slc">#    $in-&gt;set_help(&apos;setupAsDefault&apos;) if $::isInstall;</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 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> N<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::default::set_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">$res2</span> <span class="hl str">= 0;</span>
<span class="hl str">    my</span> <span class="hl ipl">%options</span> <span class="hl str">= (alta4 =&gt; 0, altletter =&gt; 0, ascii =&gt; 0, photo =&gt; 0, standard =&gt; 1);</span>
<span class="hl str">    my</span> <span class="hl ipl">%old_options</span> <span class="hl str">= (alta4 =&gt; 0, altletter =&gt; 0, ascii =&gt; 0, photo =&gt; 0, standard =&gt; 1);</span>
<span class="hl str">    my</span> <span class="hl ipl">$oldres2</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; N(&quot;</span>Test pages<span class="hl str">&quot;),</span>
<span class="hl str">	   messages =&gt; N(&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">		       N(&quot;</span>Cancel<span class="hl str">&quot;) : ($::isWizard ? N(&quot;</span><span class="hl opt">&lt;-</span> Previous<span class="hl str">&quot;) : </span>
<span class="hl str">				      N(&quot;</span>No test pages<span class="hl str">&quot;))),</span>
<span class="hl str">	   ok =&gt; ($::isWizard ? N(&quot;</span>Next <span class="hl opt">-&gt;</span><span class="hl str">&quot;) : N(&quot;</span>Print<span class="hl str">&quot;)),</span>
<span class="hl str">	   callbacks =&gt; {</span>
<span class="hl str">	       changed =&gt; sub {</span>
<span class="hl str">		   if (</span><span class="hl ipl">$oldres2</span> <span class="hl str">ne</span> <span class="hl ipl">$res2</span><span class="hl str">) {</span>
<span class="hl str">		       if (</span><span class="hl ipl">$res2</span><span class="hl str">) {</span>
<span class="hl str">				 foreach my</span> <span class="hl ipl">$opt</span> <span class="hl str">(keys</span> <span class="hl ipl">%options</span><span class="hl str">) {</span>
<span class="hl str"></span>					<span class="hl ipl">$options</span><span class="hl str">{</span><span class="hl ipl">$opt</span><span class="hl str">} = 0;</span>
<span class="hl str"></span>					<span class="hl ipl">$old_options</span><span class="hl str">{</span><span class="hl ipl">$opt</span><span class="hl str">} = 0;</span>
<span class="hl str">				 }</span>
<span class="hl str">		       }</span>
<span class="hl str"></span>		       <span class="hl ipl">$oldres2</span> <span class="hl str">=</span> <span class="hl ipl">$res2</span><span class="hl str">;</span>
<span class="hl str">		   }</span>
<span class="hl str">		   foreach my</span> <span class="hl ipl">$opt</span> <span class="hl str">(keys</span> <span class="hl ipl">%options</span><span class="hl str">) {</span>
<span class="hl str">			  if (</span><span class="hl ipl">$old_options</span><span class="hl str">{</span><span class="hl ipl">$opt</span><span class="hl str">} ne</span> <span class="hl ipl">$options</span><span class="hl str">{</span><span class="hl ipl">$opt</span><span class="hl str">}) {</span>
<span class="hl str">				 if (</span><span class="hl ipl">$options</span><span class="hl str">{</span><span class="hl ipl">$opt</span><span class="hl str">}) {</span>
<span class="hl str"></span>					<span class="hl ipl">$res2</span> <span class="hl str">= 0;</span>
<span class="hl str"></span>					<span class="hl ipl">$oldres2</span> <span class="hl str">= 0;</span>
<span class="hl str">				 }</span>
<span class="hl str"></span>				 <span class="hl ipl">$old_options</span><span class="hl str">{standard} =</span> <span class="hl ipl">$options</span><span class="hl str">{standard};</span>
<span class="hl str">			  }</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">	 [</span>
<span class="hl str">	  { text =&gt; N(&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">$options</span><span class="hl str">{standard} },</span>
<span class="hl str">	  if_($::expert,</span>
<span class="hl str">	   { text =&gt; N(&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">$options</span><span class="hl str">{altletter} }),</span>
<span class="hl str">	  if_($::expert,</span>
<span class="hl str">	   { text =&gt; N(&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">$options</span><span class="hl str">{alta4} }), </span>
<span class="hl str">	  { text =&gt; N(&quot;</span>Photo test page<span class="hl str">&quot;), type =&gt; &apos;bool&apos;, val =&gt; \</span><span class="hl ipl">$options</span><span class="hl str">{photo} },</span>
<span class="hl str">	  #{ text =&gt; N(&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">$options</span><span class="hl str">{ascii} }</span>
<span class="hl str">	  if_($::isWizard,</span>
<span class="hl str">	   { text =&gt; N(&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">$options</span><span class="hl str">{standard} ||</span> <span class="hl ipl">$options</span><span class="hl str">{altletter} ||</span> <span class="hl ipl">$options</span><span class="hl str">{alta4} ||</span> <span class="hl ipl">$options</span><span class="hl str">{photo} ||</span> <span class="hl ipl">$options</span><span class="hl str">{ascii});</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(N(&quot;</span>Printerdrake<span class="hl str">&quot;),</span>
<span class="hl str">				      N(&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">$printer</span><span class="hl str">-&gt;{SPOOLER} ne &quot;</span>cups<span class="hl str">&quot; &amp;&amp;</span> <span class="hl ipl">$options</span><span class="hl str">{photo} &amp;&amp; !$::testing &amp;&amp;</span>
<span class="hl str">		!files_exist(&apos;/usr/bin/convert&apos;)) {</span>
<span class="hl str"></span>		<span class="hl ipl">$in</span><span class="hl str">-&gt;do_pkgs-&gt;install(&apos;ImageMagick&apos;);</span>
<span class="hl str">	    }</span>
<span class="hl str">	    # set up list of pages to print</span>
<span class="hl str"></span>	    <span class="hl ipl">$options</span><span class="hl str">{standard} and push</span> <span class="hl ipl">&#64;testpages,</span> <span class="hl str"></span><span class="hl ipl">$stdtestpage</span><span class="hl str">;</span>
<span class="hl str"></span>	    <span class="hl ipl">$options</span><span class="hl str">{altletter} and push</span> <span class="hl ipl">&#64;testpages,</span> <span class="hl str"></span><span class="hl ipl">$altlttestpage</span><span class="hl str">;</span>
<span class="hl str"></span>	    <span class="hl ipl">$options</span><span class="hl str">{alta4} and push</span> <span class="hl ipl">&#64;testpages,</span> <span class="hl str"></span><span class="hl ipl">$alta4testpage</span><span class="hl str">;</span>
<span class="hl str"></span>	    <span class="hl ipl">$options</span><span class="hl str">{photo} and push</span> <span class="hl ipl">&#64;testpages,</span> <span class="hl str"></span><span class="hl ipl">$phototestpage</span><span class="hl str">;</span>
<span class="hl str"></span>	    <span class="hl ipl">$options</span><span class="hl str">{ascii} and push</span> <span class="hl ipl">&#64;testpages,</span> <span class="hl str"></span><span class="hl ipl">$asciitestpage</span><span class="hl str">;</span>
<span class="hl str">	    # print the stuff</span>
<span class="hl str"></span>	    <span class="hl ipl">&#64;lpq_output</span> <span class="hl str">= printer::main::print_pages(</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">&#64;testpages</span><span class="hl str">);</span>
<span class="hl str">	}</span>
<span class="hl str">	my</span> <span class="hl ipl">$dialogtext</span><span class="hl str">;</span>
<span class="hl str">	if (</span><span class="hl ipl">&#64;lpq_output</span><span class="hl str">) {</span>
<span class="hl str"></span>	    <span class="hl ipl">$dialogtext</span> <span class="hl str">= N(&quot;</span>Test page<span class="hl opt">(</span>s<span class="hl opt">)</span> have been sent to the printer<span class="hl opt">.</span>
It may <span class="hl kwa">take</span> some <span class="hl kwc">time</span> before the printer starts<span class="hl opt">.</span>
Printing status<span class="hl opt">:</span><span class="hl esc">\n</span><span class="hl kwb">%s\n\n</span><span class="hl str">&quot;,</span> <span class="hl ipl">&#64;lpq_output</span><span class="hl str">);</span>
<span class="hl str">	} else {</span>
<span class="hl str"></span>	    <span class="hl ipl">$dialogtext</span> <span class="hl str">= N(&quot;</span>Test page<span class="hl opt">(</span>s<span class="hl opt">)</span> have been sent to the printer<span class="hl opt">.</span>
It may <span class="hl kwa">take</span> some <span class="hl kwc">time</span> before the printer starts<span class="hl opt">.</span><span class="hl esc">\n</span><span class="hl str">&quot;);</span>
<span class="hl str">	}</span>
<span class="hl str">	if (</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{NEW} == 0) {</span>
<span class="hl str"></span>	    <span class="hl ipl">$in</span><span class="hl str">-&gt;ask_warn(&apos;&apos;,</span><span class="hl ipl">$dialogtext</span><span class="hl str">);</span>
<span class="hl str">	    return 1;</span>
<span class="hl str">	} else {</span>
<span class="hl str"></span>	    <span class="hl ipl">$in</span><span class="hl str">-&gt;ask_yesorno(&apos;&apos;,</span> <span class="hl ipl">$dialogtext</span> <span class="hl str">. N(&quot;</span>Did it work properly?<span class="hl str">&quot;), 1) </span>
<span class="hl str">		and return 1;</span>
<span class="hl str">	}</span>
<span class="hl str">    } else {</span>
<span class="hl str">	return($::isWizard ?</span> <span class="hl ipl">$res1</span> <span class="hl str">: 1);</span>
<span class="hl str">    }</span>
<span class="hl str">    return 2;</span>
<span class="hl str">}</span>
<span class="hl str"></span>
<span class="hl str">sub printer_help {</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">    my</span> <span class="hl ipl">$spooler</span> <span class="hl str">=</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{SPOOLER};</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;{QUEUE};</span>
<span class="hl str">    my</span> <span class="hl ipl">$default</span> <span class="hl str">=</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{DEFAULT};</span>
<span class="hl str">    my</span> <span class="hl ipl">$raw</span> <span class="hl str">= 0;</span>
<span class="hl str">    my</span> <span class="hl ipl">$cupsremote</span> <span class="hl str">= 0;</span>
<span class="hl str">    my</span> <span class="hl ipl">$scanning</span> <span class="hl str">= &quot;</span><span class="hl str">&quot;;</span>
<span class="hl str">    my</span> <span class="hl ipl">$photocard</span> <span class="hl str">= &quot;</span><span class="hl str">&quot;;</span>
<span class="hl str">    my</span> <span class="hl ipl">$hp11000fw</span> <span class="hl str">= &quot;</span><span class="hl str">&quot;;</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">	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">}{queuedata}{model} eq &quot;</span>Unknown model<span class="hl str">&quot; ||</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">}{queuedata}{model} eq N(&quot;</span>Raw printer<span class="hl str">&quot;)) {</span>
<span class="hl str"></span>	    <span class="hl ipl">$raw</span> <span class="hl str">= 1;</span>
<span class="hl str">	}</span>
<span class="hl str">	# Information about scanning with HP&apos;s multi-function devices</span>
<span class="hl str"></span>	<span class="hl ipl">$scanning</span> <span class="hl str">= scanner_help(</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">}{queuedata}{make} . &quot;</span> <span class="hl str">&quot; .</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">}{queuedata}{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">}{queuedata}{connect});</span>
<span class="hl str">	if (</span><span class="hl ipl">$scanning</span><span class="hl str">) {</span>
<span class="hl str"></span>	    <span class="hl ipl">$scanning</span> <span class="hl str">= &quot;</span><span class="hl esc">\n\n</span><span class="hl kwb">$scanning\n\n</span><span class="hl str">&quot;;</span>
<span class="hl str">	}</span>
<span class="hl str">	# Information about photo card access with HP&apos;s multi-function devices</span>
<span class="hl str"></span>	<span class="hl ipl">$photocard</span> <span class="hl str">= photocard_help(</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">}{queuedata}{make} . &quot;</span> <span class="hl str">&quot; .</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">}{queuedata}{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">}{queuedata}{connect});</span>
<span class="hl str">	if (</span><span class="hl ipl">$photocard</span><span class="hl str">) {</span>
<span class="hl str"></span>	    <span class="hl ipl">$photocard</span> <span class="hl str">= &quot;</span><span class="hl esc">\n\n</span><span class="hl kwb">$photocard\n\n</span><span class="hl str">&quot;;</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">}{queuedata}{printer} eq</span>
<span class="hl str">	    &apos;HP-LaserJet_1000&apos;) {</span>
<span class="hl str"></span>	    <span class="hl ipl">$hp11000fw</span> <span class="hl str">= &quot;</span><span class="hl esc">\n\n</span><span class="hl kwb">$hp1000fwtext\n</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">$cupsremote</span> <span class="hl str">= 1;</span>
<span class="hl str">    }</span>
<span class="hl str"></span>
<span class="hl str">    my</span> <span class="hl ipl">$dialogtext</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>cups<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">N(&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> you can either <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> a graphical printing tool<span class="hl opt">:</span> <span class="hl esc">\&quot;</span>xpp <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>kprinter <span class="hl opt">&lt;</span>file<span class="hl opt">&gt;</span><span class="hl esc">\&quot;</span><span class="hl opt">.</span> The graphical tools allow you to choose the printer <span class="hl kwc">and</span> to modify the option settings easily<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">N(&quot;</span>These commands 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">N(&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">-o option=setting -o switch&quot;</span> <span class="hl opt">:</span> <span class="hl str">&quot;lpr -o option=setting -o switch&quot;</span><span class="hl opt">)) .</span>
<span class="hl opt">(!</span><span class="hl kwb">$cupsremote</span> ?
 N<span class="hl opt">(</span><span class="hl str">&quot;To know about the options available for the current printer read either the list shown below or 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.</span><span class="hl ipl">%s%s%s</span>
<span class="hl str"></span>
<span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$scanning, $photocard, $hp11000fw</span><span class="hl opt">) .</span> printer<span class="hl opt">::</span>main<span class="hl opt">::</span>help_output<span class="hl opt">(</span><span class="hl kwb">$printer,</span> <span class="hl str">&apos;cups&apos;</span><span class="hl opt">) :</span> 
 <span class="hl kwb">$scanning</span> <span class="hl opt">.</span> <span class="hl kwb">$photocard</span> <span class="hl opt">.</span> <span class="hl kwb">$hp11000fw</span> <span class="hl opt">.</span>
 N<span class="hl opt">(</span><span class="hl str">&quot;Here is a list of the available printing options for the current printer:</span>
<span class="hl str"></span>
<span class="hl str">&quot;</span><span class="hl opt">) .</span> printer<span class="hl opt">::</span>main<span class="hl opt">::</span>help_output<span class="hl opt">(</span><span class="hl kwb">$printer,</span> <span class="hl str">&apos;cups&apos;</span><span class="hl opt">)) :</span> <span class="hl kwb">$scanning</span> <span class="hl opt">.</span> <span class="hl kwb">$photocard</span> <span class="hl opt">.</span> <span class="hl kwb">$hp11000fw</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;lprng&quot;</span><span class="hl opt">) {</span>
	<span class="hl kwb">$dialogtext</span> <span class="hl opt">=</span>
N<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> 
N<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> ?
N<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>Z option<span class="hl opt">=</span>setting <span class="hl opt">-</span>Z switch<span class="hl str">&quot; : &quot;</span>lpr <span class="hl opt">-</span>Z option<span class="hl opt">=</span>setting <span class="hl opt">-</span>Z switch<span class="hl str">&quot;)) .</span>
<span class="hl str">N(&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">$photocard</span> <span class="hl str">.</span> <span class="hl ipl">$hp11000fw</span> <span class="hl str">:</span> <span class="hl ipl">$scanning</span> <span class="hl str">.</span> <span class="hl ipl">$photocard</span> <span class="hl str">.</span> <span class="hl ipl">$hp11000fw</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>lpd<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">N(&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">N(&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">N(&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">-o option=setting -o switch&quot;</span> <span class="hl opt">:</span> <span class="hl str">&quot;lpr -o option=setting -o switch&quot;</span><span class="hl opt">)) .</span>
N<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">$photocard</span> <span class="hl opt">.</span> <span class="hl kwb">$hp11000fw</span> <span class="hl opt">:</span> <span class="hl kwb">$scanning</span> <span class="hl opt">.</span> <span class="hl kwb">$photocard</span> <span class="hl opt">.</span> <span class="hl kwb">$hp11000fw</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;pdq&quot;</span><span class="hl opt">) {</span>
	<span class="hl kwb">$dialogtext</span> <span class="hl opt">=</span>
N<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">or</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;pdq -P</span> <span class="hl ipl">$queue</span><span class="hl str">&quot;</span> <span class="hl opt">:</span> <span class="hl str">&quot;pdq&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>
N<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>
N<span class="hl opt">(</span><span class="hl str">&quot;You can also use the graphical interface</span> <span class="hl esc">\&quot;</span><span class="hl str">xpdq</span><span class="hl esc">\&quot;</span> <span class="hl str">for setting options and handling printing jobs.</span>
<span class="hl str">If you are using KDE as desktop environment you have a</span> <span class="hl esc">\&quot;</span><span class="hl str">panic button</span><span class="hl esc">\&quot;</span><span class="hl str">, an icon on the desktop, labeled with</span> <span class="hl esc">\&quot;</span><span class="hl str">STOP Printer!</span><span class="hl esc">\&quot;</span><span class="hl str">, which stops all print jobs immediately when you click it. This is for example useful for paper jams.</span>
<span class="hl str">&quot;</span><span class="hl opt">) .</span>
<span class="hl opt">(!</span><span class="hl kwb">$raw</span> ?
N<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> <span class="hl kwc">and</span> <span class="hl esc">\&quot;</span><span class="hl kwb">%s\</span><span class="hl str">&quot; commands also allow 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">.</span>
<span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;pdq&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;pdq -P</span> <span class="hl ipl">$queue</span> <span class="hl str">-aoption=setting -oswitch&quot;</span> <span class="hl opt">:</span> <span class="hl str">&quot;pdq -aoption=setting -oswitch&quot;</span><span class="hl opt">)) .</span>
N<span class="hl opt">(</span><span class="hl str">&quot;To know about the options available for the current printer read either the list shown below or 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.</span><span class="hl ipl">%s%s%s</span>
<span class="hl str"></span>
<span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$scanning, $photocard, $hp11000fw</span><span class="hl opt">) .</span> printer<span class="hl opt">::</span>main<span class="hl opt">::</span>help_output<span class="hl opt">(</span><span class="hl kwb">$printer,</span> <span class="hl str">&apos;pdq&apos;</span><span class="hl opt">) :</span>
 <span class="hl kwb">$scanning</span> <span class="hl opt">.</span> <span class="hl kwb">$photocard</span> <span class="hl opt">.</span> <span class="hl kwb">$hp11000fw</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$windowtitle</span> <span class="hl opt">= (</span><span class="hl kwb">$scanning</span> ?
                       <span class="hl opt">(</span><span class="hl kwb">$photocard</span> ?
			N<span class="hl opt">(</span><span class="hl str">&quot;Printing/Scanning/Photo Cards on</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">			N(&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 kwb">$photocard</span> ?
			N<span class="hl opt">(</span><span class="hl str">&quot;Printing/Photo Card Access on</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">			N(&quot;</span>Printing on the printer <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 kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$raw</span> <span class="hl opt">&amp;&amp; !</span><span class="hl kwb">$cupsremote</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">while</span> <span class="hl opt">(</span><span class="hl kwb">$choice</span> <span class="hl kwc">ne</span> N<span class="hl opt">(</span><span class="hl str">&quot;Close&quot;</span><span class="hl opt">)) {</span>
	    <span class="hl kwb">$choice</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 kwb">$windowtitle, $dialogtext,</span>
		 <span class="hl opt">[</span> N<span class="hl opt">(</span><span class="hl str">&quot;Print option list&quot;</span><span class="hl opt">),</span> N<span class="hl opt">(</span><span class="hl str">&quot;Close&quot;</span><span class="hl opt">) ],</span>
		 N<span class="hl opt">(</span><span class="hl str">&quot;Close&quot;</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 kwc">ne</span> N<span class="hl opt">(</span><span class="hl str">&quot;Close&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>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span>
					  N<span class="hl opt">(</span><span class="hl str">&quot;Printing test page(s)...&quot;</span><span class="hl opt">));</span>
	        printer<span class="hl opt">::</span>main<span class="hl opt">::</span>print_optionlist<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 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 kwb">$windowtitle, $dialogtext</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> scanner_help <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$makemodel, $deviceuri</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">$deviceuri</span> <span class="hl opt">=~</span> <span class="hl kwd">m!^ptal://?(.*?)$!</span><span class="hl opt">) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$ptaldevice</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">$makemodel</span> <span class="hl opt">!~</span> <span class="hl kwd">/HP\s+PhotoSmart/i</span> <span class="hl opt">&amp;&amp;</span>
	    <span class="hl kwb">$makemodel</span> <span class="hl opt">!~</span> <span class="hl kwd">/HP\s+LaserJet\s+2200/i</span> <span class="hl opt">&amp;&amp;</span>
	    <span class="hl kwb">$makemodel</span> <span class="hl opt">!~</span> <span class="hl kwd">/HP\s+(DeskJet|dj)\s*450/i</span><span class="hl opt">) {</span>
	    <span class="hl slc"># Models with built-in scanner</span>
	    <span class="hl kwa">return</span> N<span class="hl opt">(</span><span class="hl str">&quot;Your multi-function device was configured automatically to be able to scan. Now you can scan with</span> <span class="hl esc">\&quot;</span><span class="hl str">scanimage</span><span class="hl esc">\&quot;</span> <span class="hl str">(</span><span class="hl esc">\&quot;</span><span class="hl str">scanimage -d hp:</span><span class="hl ipl">%s\</span><span class="hl str">&quot;</span> to specify the scanner <span class="hl kwa">when</span> you have more than one<span class="hl opt">)</span> from the command line <span class="hl kwc">or</span> with the graphical interfaces <span class="hl esc">\&quot;</span>xscanimage<span class="hl esc">\&quot;</span> <span class="hl kwc">or</span> <span class="hl esc">\&quot;</span>xsane<span class="hl esc">\&quot;</span><span class="hl opt">.</span> If you are using the GIMP<span class="hl opt">,</span> you can also scan by choosing the appropriate point <span class="hl kwa">in</span> the <span class="hl esc">\&quot;</span>File<span class="hl esc">\&quot;</span><span class="hl opt">/</span><span class="hl esc">\&quot;</span>Acquire<span class="hl esc">\&quot;</span> menu<span class="hl opt">.</span> Call also <span class="hl esc">\&quot;</span>man scanimage<span class="hl esc">\&quot;</span> on the command line to get more information<span class="hl opt">.</span>

Do <span class="hl kwc">not</span> <span class="hl kwa">use</span> <span class="hl esc">\&quot;</span>scannerdrake<span class="hl esc">\&quot;</span> <span class="hl kwa">for</span> this device<span class="hl opt">!</span><span class="hl str">&quot;,</span>
<span class="hl str"></span>		     <span class="hl ipl">$ptaldevice</span><span class="hl str">);</span>
<span class="hl str">	} else {</span>
<span class="hl str">	    # Scanner-less models</span>
<span class="hl str">	    return &quot;</span><span class="hl str">&quot;;</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 photocard_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+PhotoSmart/i ||</span>
<span class="hl str"></span>	     <span class="hl ipl">$makemodel</span> <span class="hl str">=~ /HP\s+PSC\s*9[05]0/i ||</span>
<span class="hl str"></span>	     <span class="hl ipl">$makemodel</span> <span class="hl str">=~ /HP\s+PSC\s*22\d\d/i ||</span>
<span class="hl str"></span>	     <span class="hl ipl">$makemodel</span> <span class="hl str">=~ /HP\s+OfficeJet\s+D\s*1[45]5/i ||</span>
<span class="hl str"></span>	     <span class="hl ipl">$makemodel</span> <span class="hl str">=~ /HP\s+OfficeJet\s+71[34]0/i ||</span>
<span class="hl str"></span>	     <span class="hl ipl">$makemodel</span> <span class="hl str">=~ /HP\s+(DeskJet|dj)\s*450/i) &amp;&amp;</span>
<span class="hl str"></span>	    <span class="hl ipl">$makemodel</span> <span class="hl str">!~ /HP\s+PhotoSmart\s+7150/i) {</span>
<span class="hl str">	    # Models with built-in photo card drives</span>
<span class="hl str">	    return N(&quot;</span>Your printer was configured automatically to give you access to the photo card drives from your PC<span class="hl opt">.</span> Now you can access your photo cards using the graphical program <span class="hl esc">\&quot;</span>MtoolsFM<span class="hl esc">\&quot;</span> <span class="hl opt">(</span>Menu<span class="hl opt">:</span> <span class="hl esc">\&quot;</span>Applications<span class="hl esc">\&quot;</span> <span class="hl opt">-&gt;</span> <span class="hl esc">\&quot;</span>File tools<span class="hl esc">\&quot;</span> <span class="hl opt">-&gt;</span> <span class="hl esc">\&quot;</span>MTools File Manager<span class="hl esc">\&quot;</span><span class="hl opt">)</span> <span class="hl kwc">or</span> the command line utilities <span class="hl esc">\&quot;</span>mtools<span class="hl esc">\&quot;</span> <span class="hl opt">(</span>enter <span class="hl esc">\&quot;</span>man mtools<span class="hl esc">\&quot;</span> on the command line <span class="hl kwa">for</span> more info<span class="hl opt">).</span> You find the card<span class="hl str">&apos;s file system under the drive letter</span> <span class="hl esc">\&quot;</span><span class="hl str">p:</span><span class="hl esc">\&quot;</span><span class="hl str">, or subsequent drive letters when you have more than one HP printer with photo card drives. In</span> <span class="hl esc">\&quot;</span><span class="hl str">MtoolsFM</span><span class="hl esc">\&quot;</span> <span class="hl str">you can switch between drive letters with the field at the upper-right corners of the file lists.&quot;,</span>
<span class="hl str"></span>		     <span class="hl ipl">$ptaldevice</span><span class="hl str">);</span>
<span class="hl str">	} else {</span>
<span class="hl str">	    # Photo-card-drive-less models</span>
<span class="hl str">	    return &quot;&quot;;</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 copy_queues_from {</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">$oldspooler</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">#</span>    <span class="hl ipl">$in</span><span class="hl str">-&gt;set_help(&apos;</span>copyQueues<span class="hl str">&apos;) if $::isInstall;</span>
<span class="hl str">    my</span> <span class="hl ipl">$newspooler</span> <span class="hl str">=</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{SPOOLER};</span>
<span class="hl str">    my</span> <span class="hl ipl">&#64;oldqueues</span><span class="hl str">;</span>
<span class="hl str">    my</span> <span class="hl ipl">&#64;queueentries</span><span class="hl str">;</span>
<span class="hl str">    my</span> <span class="hl ipl">&#64;queuesselected</span><span class="hl str">;</span>
<span class="hl str">    my</span> <span class="hl ipl">$newspoolerstr</span><span class="hl str">;</span>
<span class="hl str">    my</span> <span class="hl ipl">$oldspoolerstr</span><span class="hl str">;</span>
<span class="hl str">    my</span> <span class="hl ipl">$noninteractive</span> <span class="hl str">= 0;</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(N(&quot;Printerdrake&quot;),</span>
<span class="hl str">				  N(&quot;Reading printer data...&quot;));</span>
<span class="hl str"></span>	<span class="hl ipl">&#64;oldqueues</span> <span class="hl str">= printer::main::get_copiable_queues(</span><span class="hl ipl">$oldspooler,</span> <span class="hl str"></span><span class="hl ipl">$newspooler</span><span class="hl str">);</span>
<span class="hl str"></span>	<span class="hl ipl">&#64;oldqueues</span> <span class="hl str">= sort(</span><span class="hl ipl">&#64;oldqueues</span><span class="hl str">);</span>
<span class="hl str"></span>	<span class="hl ipl">$newspoolerstr</span> <span class="hl str">=</span> <span class="hl ipl">$printer</span><span class="hl str">::data::spoolers{</span><span class="hl ipl">$newspooler</span><span class="hl str">}{short_name};</span>
<span class="hl str"></span>	<span class="hl ipl">$oldspoolerstr</span> <span class="hl str">=</span> <span class="hl ipl">$printer</span><span class="hl str">::data::spoolers{</span><span class="hl ipl">$oldspooler</span><span class="hl str">}{short_name};</span>
<span class="hl str">	foreach (</span><span class="hl ipl">&#64;oldqueues</span><span class="hl str">) {</span>
<span class="hl str">	    push</span> <span class="hl ipl">&#64;queuesselected,</span> <span class="hl str">1;</span>
<span class="hl str">	    push</span> <span class="hl ipl">&#64;queueentries,</span> <span class="hl str">{ text =&gt;</span> <span class="hl ipl">$_,</span> <span class="hl str">type =&gt; &apos;</span>bool<span class="hl str">&apos;, </span>
<span class="hl str">				   val =&gt; \</span><span class="hl ipl">$queuesselected</span><span class="hl str">[-1] };</span>
<span class="hl str">	}</span>
<span class="hl str">	# LPRng and LPD use the same config files, therefore one sees the </span>
<span class="hl str">	# queues of LPD when one uses LPRng and vice versa, but these queues</span>
<span class="hl str">	# do not work. So automatically transfer all queues when switching</span>
<span class="hl str">	# between LPD and LPRng.</span>
<span class="hl str">	if (</span><span class="hl ipl">$oldspooler</span> <span class="hl str">=~ /^lp/ &amp;&amp;</span> <span class="hl ipl">$newspooler</span> <span class="hl str">=~ /^lp/) {</span>
<span class="hl str"></span>	    <span class="hl ipl">$noninteractive</span> <span class="hl str">= 1;</span>
<span class="hl str">	}</span>
<span class="hl str">    }</span>
<span class="hl str">    if (</span><span class="hl ipl">$noninteractive</span> <span class="hl str">||</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; N(&quot;Transfer printer configuration&quot;),</span>
<span class="hl str">	   messages =&gt; N(&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 ipl">$oldspoolerstr,</span> <span class="hl str"></span><span class="hl ipl">$newspoolerstr</span><span class="hl str">) .</span>
<span class="hl str">(</span><span class="hl ipl">$newspooler</span> <span class="hl str">eq &quot;cups&quot; ? N(&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 str"> (</span><span class="hl ipl">$newspooler</span> <span class="hl str">eq &quot;pdq&quot; ? N(&quot;PDQ only supports local printers, remote LPD printers, and Socket/TCP printers.</span>
<span class="hl str">&quot;) :</span>
<span class="hl str">  N(&quot;LPD and LPRng do not support IPP printers.</span>
<span class="hl str">&quot;))) .</span>
<span class="hl str">N(&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 str">if_(</span><span class="hl ipl">$oldspooler</span> <span class="hl str">eq &quot;cups&quot;, N(&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;)) . N(&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 str">	   cancel =&gt; N(&quot;Do not transfer printers&quot;),</span>
<span class="hl str">           ok =&gt; N(&quot;Transfer&quot;)</span>
<span class="hl str">	 },</span>
<span class="hl str">         \</span><span class="hl ipl">&#64;queueentries</span>
<span class="hl str">      )) {</span>
<span class="hl str">	my</span> <span class="hl ipl">$queuecopied</span> <span class="hl str">= 0;</span>
<span class="hl str">	foreach (</span><span class="hl ipl">&#64;oldqueues</span><span class="hl str">) {</span>
<span class="hl str">	    if (shift(</span><span class="hl ipl">&#64;queuesselected</span><span class="hl str">)) {</span>
<span class="hl str">                my</span> <span class="hl ipl">$oldqueue</span> <span class="hl str">=</span> <span class="hl ipl">$_</span><span class="hl str">;</span>
<span class="hl str">                my</span> <span class="hl ipl">$newqueue</span> <span class="hl str">=</span> <span class="hl ipl">$_</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 ipl">$noninteractive</span> <span class="hl str">||</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; N(&quot;Transfer printer configuration&quot;),</span>
<span class="hl str">	                messages =&gt; N(&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; already exists under</span> <span class="hl ipl">%s</span><span class="hl str">. </span>
<span class="hl str">Click</span> <span class="hl esc">\&quot;</span><span class="hl str">Transfer</span><span class="hl esc">\&quot;</span> <span class="hl str">to overwrite it.</span>
<span class="hl str">You can also type a new name or skip this printer.&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; N(&quot;Transfer&quot;),</span>
<span class="hl str">                        cancel =&gt; N(&quot;Skip&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;</span><span class="hl str">&apos;, N(&quot;Name of printer should contain only letters, numbers and the underscore&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;</span><span class="hl str">&apos;, N(&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; 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 str"></span>							 <span class="hl ipl">$newqueue</span><span class="hl str">),</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">		      [{label =&gt; N(&quot;New printer name&quot;),val =&gt; \</span><span class="hl ipl">$newqueue</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(N(&quot;Printerdrake&quot;), </span>
<span class="hl str">			   N(&quot;Transferring</span> <span class="hl ipl">%s</span><span class="hl str">...&quot;,</span> <span class="hl ipl">$oldqueue</span><span class="hl str">));</span>
<span class="hl str">		        printer::main::copy_foomatic_queue(</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$oldqueue,</span>
<span class="hl str"></span>						   <span class="hl ipl">$oldspooler,</span> <span class="hl str"></span><span class="hl ipl">$newqueue</span><span class="hl str">) and</span>
<span class="hl str"></span>							 <span class="hl ipl">$queuecopied</span> <span class="hl str">= 1;</span>
<span class="hl str">		    }</span>
<span class="hl str">		    if (</span><span class="hl ipl">$oldqueue</span> <span class="hl str">eq</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{DEFAULT}) {</span>
<span class="hl str">			# Make the former default printer the new default</span>
<span class="hl str">			# printer if the user does not reject</span>
<span class="hl str">			if (</span><span class="hl ipl">$noninteractive</span> <span class="hl str">||</span>
<span class="hl str"></span>			    <span class="hl ipl">$in</span><span class="hl str">-&gt;ask_yesorno(</span>
<span class="hl str">			      N(&quot;Transfer printer configuration&quot;),</span>
<span class="hl str">			      N(&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;), Should it be also the default printer under the new printing system</span> <span class="hl ipl">%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::default::set_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(N(&quot;Printerdrake&quot;),</span>
<span class="hl str">                                      N(&quot;Refreshing printer data...&quot;));</span>
<span class="hl str">	    printer::main::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">$upNetwork</span><span class="hl str">) =</span> <span class="hl ipl">&#64;_</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(N(&quot;Configuration of a remote printer&quot;), </span>
<span class="hl str">			      N(&quot;Starting network...&quot;));</span>
<span class="hl str">    if ($::isInstall) {</span>
<span class="hl str">	return (</span><span class="hl ipl">$upNetwork</span> <span class="hl str">and </span>
<span class="hl str">		do { my</span> <span class="hl ipl">$ret</span> <span class="hl str">= &amp;</span><span class="hl ipl">$upNetwork</span><span class="hl str">(); </span>
<span class="hl str">		     undef</span> <span class="hl ipl">$upNetwork</span><span class="hl str">; </span>
<span class="hl str">		     sleep(1);</span>
<span class="hl str"></span>		     <span class="hl ipl">$ret</span> <span class="hl str">});</span>
<span class="hl str">    } else { return printer::services::start(&quot;network&quot;) }</span>
<span class="hl str">}</span>
<span class="hl str"></span>
<span class="hl str">sub network_configured() {</span>
<span class="hl str">    # Do configured networks (/etc/sysconfig/network-scripts/ifcfg*) exist?</span>
<span class="hl str">    my</span> <span class="hl ipl">&#64;netscripts</span> <span class="hl str">=</span>
<span class="hl str">	cat_(&quot;ls -1 $::prefix/etc/sysconfig/network-scripts/ |&quot;);</span>
<span class="hl str">    my</span> <span class="hl ipl">$netconfigured</span> <span class="hl str">= 0;</span>
<span class="hl str">    (/ifcfg-/ and !/(ifcfg-lo|:|rpmsave|rpmorig|rpmnew)/ and</span>
<span class="hl str">      !/(~|\.bak)</span><span class="hl ipl">$/</span> <span class="hl str">and</span> <span class="hl ipl">$netconfigured</span> <span class="hl str">= 1) foreach</span> <span class="hl ipl">&#64;netscripts</span><span class="hl str">;</span>
<span class="hl str">    return</span> <span class="hl ipl">$netconfigured</span><span class="hl str">;</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">$upNetwork,</span> <span class="hl str"></span><span class="hl ipl">$dontconfigure</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;Add printer&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;</span>checkNetwork<span class="hl str">&apos;) if $::isInstall;</span>
<span class="hl str"></span>
<span class="hl str">    # First check: Do configured networks</span>
<span class="hl str">    # (/etc/sysconfig/network-scripts/ifcfg*) exist?</span>
<span class="hl str"></span>
<span class="hl str">    if (!</span><span class="hl ipl">$dontconfigure</span> <span class="hl str">&amp;&amp; !network_configured()) {</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">= N(&quot;Configure the network now&quot;);</span>
<span class="hl str">	    if (</span><span class="hl ipl">$in</span><span class="hl str">-&gt;ask_from(N(&quot;Network functionality not configured&quot;),</span>
<span class="hl str">			      N(&quot;You are going to configure a remote printer. This needs working network access, but your network is not configured yet. If you go on without network configuration, you will not be able to use the printer which you are configuring now. How do you want to proceed?&quot;),</span>
<span class="hl str">			      [ { val =&gt; \</span><span class="hl ipl">$choice,</span> <span class="hl str">type =&gt; &apos;</span>list<span class="hl str">&apos;,</span>
<span class="hl str">				  list =&gt; [ N(&quot;Configure the network now&quot;),</span>
<span class="hl str">					    N(&quot;Go on without configuring the network&quot;) ] } ])) {</span>
<span class="hl str">		if (</span><span class="hl ipl">$choice</span> <span class="hl str">eq N(&quot;Configure the network now&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"></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 str"></span>			     <span class="hl ipl">$in</span><span class="hl str">-&gt;{intf});</span>
<span class="hl str">#    my (</span><span class="hl ipl">$prefix,</span> <span class="hl str"></span><span class="hl ipl">$netcnx,</span> <span class="hl str"></span><span class="hl ipl">$in,</span> <span class="hl str"></span><span class="hl ipl">$o_netc,</span> <span class="hl str"></span><span class="hl ipl">$o_mouse,</span> <span class="hl str"></span><span class="hl ipl">$o_intf,</span> <span class="hl str"></span><span class="hl ipl">$o_first_time,</span> <span class="hl str"></span><span class="hl ipl">$o_noauto</span><span class="hl str">) =</span> <span class="hl ipl">&#64;_</span><span class="hl str">;</span>
<span class="hl str">		    } else {</span>
<span class="hl str">			system(&quot;/usr/sbin/drakconnect&quot;);</span>
<span class="hl str">		    }</span>
<span class="hl str"></span>		    <span class="hl ipl">$go_on</span> <span class="hl str">= network_configured();</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">    # Do not try to start the network if it is not configured</span>
<span class="hl str">    if (!network_configured()) { return 0 }</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::detect::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 ipl">$upNetwork</span><span class="hl str">) &amp;&amp; !</span><span class="hl ipl">$dontconfigure</span><span class="hl str">) {</span>
<span class="hl str"></span>	<span class="hl ipl">$in</span><span class="hl str">-&gt;ask_warn(N(&quot;Configuration of a remote printer&quot;), </span>
<span class="hl str">($::isInstall ?</span>
<span class="hl str">N(&quot;The network configuration done during the installation cannot be started now. Please check whether the network is accessable after booting your system and correct the configuration using the Mandrake Control Center, section</span> <span class="hl esc">\&quot;</span><span class="hl str">Network &amp; Internet</span><span class="hl esc">\&quot;</span><span class="hl str">/</span><span class="hl esc">\&quot;</span><span class="hl str">Connection</span><span class="hl esc">\&quot;</span><span class="hl str">, and afterwards set up the printer, also using the Mandrake Control Center, section</span> <span class="hl esc">\&quot;</span><span class="hl str">Hardware</span><span class="hl esc">\&quot;</span><span class="hl str">/</span><span class="hl esc">\&quot;</span><span class="hl str">Printer</span><span class="hl esc">\&quot;</span><span class="hl str">&quot;) :</span>
<span class="hl str">N(&quot;The network access was not running and could not be started. Please check your configuration and your hardware. Then try to configure your remote printer again.&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(N(&quot;Configuration of a remote printer&quot;), </span>
<span class="hl str">			      N(&quot;Restarting printing system...&quot;));</span>
<span class="hl str"></span>
<span class="hl str">    return printer::main::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;high&quot; or &quot;paranoid&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;Add printer&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;</span>securityCheck<span class="hl str">&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">;</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;{security};</span>
<span class="hl str">    } else {</span>
<span class="hl str">     require security::level;</span>
<span class="hl str"></span>	<span class="hl ipl">$security</span> <span class="hl str">= security::level::get();</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;pdq&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::main::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 ? N(&quot;high&quot;) : N(&quot;paranoid&quot;));</span>
<span class="hl str">    if (</span><span class="hl ipl">$in</span><span class="hl str">-&gt;ask_yesorno(N(&quot;Installing a printing system in the</span> <span class="hl ipl">%s</span> <span class="hl str">security level&quot;,</span> <span class="hl ipl">$securitystr</span><span class="hl str">),</span>
<span class="hl str">			 N(&quot;You are about to install the printing system</span> <span class="hl ipl">%s</span> <span class="hl str">on a system running in the</span> <span class="hl ipl">%s</span> <span class="hl str">security level.</span>
<span class="hl str"></span>
<span class="hl str">This printing system runs a daemon (background process) which waits for print jobs and handles them. This daemon is also accessable by remote machines through the network and so it is a possible point for attacks. Therefore only a few selected daemons are started by default in this security level.</span>
<span class="hl str"></span>
<span class="hl str">Do you really want to configure printing on this machine?&quot;,</span>
<span class="hl str"></span>			   <span class="hl ipl">$printer</span><span class="hl str">::data::spoolers{</span><span class="hl ipl">$spooler</span><span class="hl str">}{short_name},</span>
<span class="hl str"></span>			   <span class="hl ipl">$securitystr</span><span class="hl str">))) {</span>
<span class="hl str">        printer::main::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;lpr&quot; ||</span> <span class="hl ipl">$spooler</span> <span class="hl str">eq &quot;lprng&quot;) {</span>
<span class="hl str"></span>	    <span class="hl ipl">$service</span> <span class="hl str">= &quot;lpd&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">        services::start_service_on_boot(</span><span class="hl ipl">$service</span><span class="hl str">); #TV</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">    # PDQ has no daemon, so nothing needs to be started :</span>
<span class="hl str">    return unless</span> <span class="hl ipl">$service</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;Add printer&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;</span>startSpoolerOnBoot<span class="hl str">&apos;) if $::isInstall;</span>
<span class="hl str">    if (!services::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(N(&quot;Starting the printing system at boot time&quot;),</span>
<span class="hl str">			     N(&quot;The printing system (</span><span class="hl ipl">%s</span><span class="hl str">) will not be started automatically when the machine is booted.</span>
<span class="hl str"></span>
<span class="hl str">It is possible that the automatic starting was turned off by changing to a higher security level, because the printing system is a potential point for attacks.</span>
<span class="hl str"></span>
<span class="hl str">Do you want to have the automatic starting of the printing system turned on again?&quot;,</span>
<span class="hl str"></span>		       <span class="hl ipl">$printer</span><span class="hl str">::data::spoolers{</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{SPOOLER}}{short_name}))) {</span>
<span class="hl str">	    services::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">$upNetwork</span><span class="hl str">) =</span> <span class="hl ipl">&#64;_</span><span class="hl str">;</span>
<span class="hl str">    return 1 if $::testing;</span>
<span class="hl str">    my</span> <span class="hl ipl">$spooler</span> <span class="hl str">=</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{SPOOLER};</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">    return 0 unless 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">$spooler</span><span class="hl str">);</span>
<span class="hl str">    return 1 if</span> <span class="hl ipl">$spooler</span> <span class="hl str">!~ /^(cups|lpd|lprng|pqd)</span><span class="hl ipl">$/</span><span class="hl str">; # should not happen</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(N(&quot;Printerdrake&quot;), N(&quot;Checking installed software...&quot;));</span>
<span class="hl str"></span>
<span class="hl str">    # &quot;lpr&quot; conflicts with &quot;LPRng&quot;, remove either &quot;LPRng&quot; or remove &quot;lpr&quot;</span>
<span class="hl str">    my</span> <span class="hl ipl">$packages</span> <span class="hl str">=</span> <span class="hl ipl">$spoolers</span><span class="hl str">{</span><span class="hl ipl">$spooler</span><span class="hl str">}{packages2rm};</span>
<span class="hl str">    if (</span><span class="hl ipl">$packages</span> <span class="hl str">&amp;&amp; files_exist(</span><span class="hl ipl">$packages</span><span class="hl str">-&gt;[1])) {</span>
<span class="hl str">	undef</span> <span class="hl ipl">$w</span><span class="hl str">;</span>
<span class="hl str"></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(N(&quot;Printerdrake&quot;), N(&quot;Removing</span> <span class="hl ipl">%s</span> <span class="hl str">...&quot;),</span> <span class="hl ipl">$spoolers</span><span class="hl str">{</span><span class="hl ipl">$packages</span><span class="hl str">-&gt;[0]}{short_name});</span>
<span class="hl str"></span>        <span class="hl ipl">$in</span><span class="hl str">-&gt;do_pkgs-&gt;remove_nodeps(</span><span class="hl ipl">$packages</span><span class="hl str">-&gt;[0]);</span>
<span class="hl str">    }</span>
<span class="hl str"></span>
<span class="hl str"></span>    <span class="hl ipl">$packages</span> <span class="hl str">=</span> <span class="hl ipl">$spoolers</span><span class="hl str">{</span><span class="hl ipl">$spooler</span><span class="hl str">}{packages2add};</span>
<span class="hl str">    if (</span><span class="hl ipl">$packages</span> <span class="hl str">&amp;&amp; !files_exist(&#64;{</span><span class="hl ipl">$packages</span><span class="hl str">-&gt;[1]})) {</span>
<span class="hl str">	undef</span> <span class="hl ipl">$w</span><span class="hl str">;</span>
<span class="hl str"></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(N(&quot;Printerdrake&quot;), N(&quot;Installing</span> <span class="hl ipl">%s</span> <span class="hl str">...&quot;),</span> <span class="hl ipl">$spoolers</span><span class="hl str">{</span><span class="hl ipl">$spooler</span><span class="hl str">}{short_name});</span>
<span class="hl str"></span>        <span class="hl ipl">$in</span><span class="hl str">-&gt;do_pkgs-&gt;install(&#64;{</span><span class="hl ipl">$packages</span><span class="hl str">-&gt;[0]});</span>
<span class="hl str">    }</span>
<span class="hl str"></span>
<span class="hl str">    undef</span> <span class="hl ipl">$w</span><span class="hl str">;</span>
<span class="hl str">    </span>
<span class="hl str">    # Start the network (especially during installation), so the</span>
<span class="hl str">    # user can set up queues to remote printers.</span>
<span class="hl str"></span>
<span class="hl str"></span>    <span class="hl ipl">$upNetwork</span> <span class="hl str">and do {</span>
<span class="hl str">        &amp;</span><span class="hl ipl">$upNetwork</span><span class="hl str">(); </span>
<span class="hl str">        undef</span> <span class="hl ipl">$upNetwork</span><span class="hl str">; </span>
<span class="hl str">        sleep(1);</span>
<span class="hl str">    };</span>
<span class="hl str"></span>
<span class="hl str">    # Start daemon</span>
<span class="hl str">    if (</span><span class="hl ipl">$spooler</span> <span class="hl str">eq &quot;cups&quot;) {</span>
<span class="hl str">        # Start daemon</span>
<span class="hl str">        # Avoid unnecessary restarting of CUPS, this blocks the</span>
<span class="hl str">        # startup of printerdrake for several seconds.</span>
<span class="hl str">        printer::services::start_not_running_service(&quot;cups&quot;);</span>
<span class="hl str">    } elsif (</span><span class="hl ipl">$spoolers</span><span class="hl str">{</span><span class="hl ipl">$spooler</span><span class="hl str">}{service}) {</span>
<span class="hl str">        printer::services::restart(</span><span class="hl ipl">$spoolers</span><span class="hl str">{</span><span class="hl ipl">$spooler</span><span class="hl str">}{service});</span>
<span class="hl str">    }</span>
<span class="hl str">    </span>
<span class="hl str">    # Set the choosen spooler tools as defaults for &quot;lpr&quot;, &quot;lpq&quot;, &quot;lprm&quot;, ...</span>
<span class="hl str">    foreach (&#64;{</span><span class="hl ipl">$spoolers</span><span class="hl str">{</span><span class="hl ipl">$spooler</span><span class="hl str">}{alternatives}}) {</span>
<span class="hl str">        set_alternative(</span><span class="hl ipl">$_</span><span class="hl str">-&gt;[0],</span> <span class="hl ipl">$_</span><span class="hl str">-&gt;[1]);</span>
<span class="hl str">    }</span>
<span class="hl str"></span>
<span class="hl str">    # Remove/add PDQ panic buttons from the user&apos;</span>s KDE Desktops
    printer<span class="hl opt">::</span>main<span class="hl opt">::</span>pdq_panic_button<span class="hl opt">(</span><span class="hl kwb">$spooler</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;pdq&apos;</span> ? <span class="hl str">&quot;add&quot;</span> <span class="hl opt">:</span> <span class="hl str">&quot;remove&quot;</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, $spoolers</span><span class="hl opt">{</span><span class="hl kwb">$spooler</span><span class="hl opt">}{</span>boot_spooler<span class="hl opt">});</span>

    <span class="hl slc"># Give a SIGHUP to the devfsd daemon to correct the permissions</span>
    <span class="hl slc"># for the /dev/... files according to the spooler</span>
    printer<span class="hl opt">::</span>main<span class="hl opt">::</span>SIGHUP_daemon<span class="hl opt">(</span><span class="hl str">&quot;devfs&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> assure_default_printer_is_set <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 kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">defined</span><span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">}) &amp;&amp;</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">} &amp;&amp;</span>
	<span class="hl opt">(!</span><span class="hl kwc">defined</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">$printer</span><span class="hl opt">-&gt;{</span>DEFAULT<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>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span>
				   N<span class="hl opt">(</span><span class="hl str">&quot;Setting 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> printer<span class="hl opt">::</span><span class="hl kwa">default</span><span class="hl opt">::</span>get_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">$printer</span><span class="hl opt">-&gt;{</span>DEFAULT<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 default</span>
	    <span class="hl slc"># printer. To avoid this, make sure that the default printer</span>
	    <span class="hl slc"># is defined.</span>
	    printer<span class="hl opt">::</span><span class="hl kwa">default</span><span class="hl opt">::</span>set_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 kwa">else</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 str">&apos;&apos;</span> <span class="hl opt">}</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> setup_default_spooler <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</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 str">&apos;cups&apos;</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$oldspooler</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">$str_spooler</span> <span class="hl opt">=</span> 
	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_listf_raw</span><span class="hl opt">({</span> title <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Select Printer Spooler&quot;</span><span class="hl opt">),</span>
				  messages <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Which printing system (spooler) do you want to use?&quot;</span><span class="hl opt">),</span>
				  interactive_help_id <span class="hl opt">=&gt;</span> <span class="hl str">&apos;setupDefaultSpooler&apos;</span><span class="hl opt">,</span>
				<span class="hl opt">},</span>
				<span class="hl kwa">sub</span> <span class="hl opt">{</span> translate<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">]) },</span>
			    <span class="hl opt">[</span> printer<span class="hl opt">::</span>main<span class="hl opt">::</span>spooler<span class="hl opt">() ],</span>
			    <span class="hl kwb">$spoolers</span><span class="hl opt">{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">}}{</span>long_name<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 opt">;</span>
    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">} =</span> <span class="hl kwb">$spooler_inv</span><span class="hl opt">{</span><span class="hl kwb">$str_spooler</span><span class="hl opt">};</span>
    <span class="hl slc"># Install the spooler if not done yet</span>
    <span class="hl kwa">if</span> <span class="hl opt">(!</span>install_spooler<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</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 kwb">$oldspooler</span><span class="hl opt">;</span>
	<span class="hl kwa">return</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>SPOOLER<span class="hl opt">}</span> <span class="hl kwc">ne</span> <span class="hl kwb">$oldspooler</span><span class="hl opt">) {</span>
	<span class="hl slc"># Remove the local printers from Star Office/OpenOffice.org/GIMP</span>
	printer<span class="hl opt">::</span>main<span class="hl opt">::</span>removelocalprintersfromapplications<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
	<span class="hl slc"># Get the queues of this spooler</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>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span>
				      N<span class="hl opt">(</span><span class="hl str">&quot;Reading printer data...&quot;</span><span class="hl opt">));</span>
	    printer<span class="hl opt">::</span>main<span class="hl opt">::</span>read_configured_queues<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"># Copy queues from former spooler</span>
	copy_queues_from<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $oldspooler</span><span class="hl opt">);</span>
	<span class="hl slc"># Re-read the printer database (CUPS has additional drivers, PDQ</span>
	<span class="hl slc"># has no raw queue)</span>
	<span class="hl kwb">%printer</span><span class="hl opt">::</span>main<span class="hl opt">::</span>thedb <span class="hl opt">= ();</span>
	assure_default_printer_is_set<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">);</span>
	<span class="hl slc"># Configure the current printer queues in applications</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>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span>
			      N<span class="hl opt">(</span><span class="hl str">&quot;Configuring applications...&quot;</span><span class="hl opt">));</span>
	printer<span class="hl opt">::</span>main<span class="hl opt">::</span>configureapplications<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"># Save spooler choice</span>
    printer<span class="hl opt">::</span><span class="hl kwa">default</span><span class="hl opt">::</span>set_spooler<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
    <span class="hl kwa">return</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 kwa">sub</span> configure_queue <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">$_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>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span>
			       N<span class="hl opt">(</span><span class="hl str">&quot;Configuring 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 str">&quot;,</span>
<span class="hl str"></span>				 <span class="hl ipl">$printer</span><span class="hl str">-&gt;{currentqueue}{queue}))</span>
<span class="hl str">	if !</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{noninteractive};</span>
<span class="hl str"></span>    <span class="hl ipl">$printer</span><span class="hl str">-&gt;{complete} = 1;</span>
<span class="hl str">    my</span> <span class="hl ipl">$retval</span> <span class="hl str">= printer::main::configure_queue(</span><span class="hl ipl">$printer</span><span class="hl str">);</span>
<span class="hl str"></span>    <span class="hl ipl">$printer</span><span class="hl str">-&gt;{complete} = 0;</span>
<span class="hl str">    if (!</span><span class="hl ipl">$retval</span><span class="hl str">) {</span>
<span class="hl str">	local $::isWizard = 0;</span>
<span class="hl str"></span>	<span class="hl ipl">$in</span><span class="hl str">-&gt;ask_warn(N(&quot;</span>Printerdrake<span class="hl str">&quot;),</span>
<span class="hl str">		      N(&quot;</span>Failed to configure printer <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">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>queue<span class="hl opt">}));</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">return</span> <span class="hl kwb">$retval</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> install_foomatic <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>testing <span class="hl opt">&amp;&amp;</span>
	<span class="hl opt">!</span>files_exist<span class="hl opt">(</span><span class="hl str">qw(/usr/bin/foomatic-configure </span>
<span class="hl str">			/usr/lib/perl5/vendor_perl/5.8.0/Foomatic/DB.pm</span>
<span class="hl str">			/usr/bin/foomatic-rip</span>
<span class="hl str">			/usr/share/foomatic/db/source/driver/ljet4.xml)</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>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span>
				   N<span class="hl opt">(</span><span class="hl str">&quot;Installing Foomatic...&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;foomatic-db-engine&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;foomatic-filters&apos;</span><span class="hl opt">,</span>
			      <span class="hl str">&apos;foomatic-db&apos;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> wizard_close <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$in, $mode</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl slc"># Leave wizard mode with congratulations screen if $mode = 1</span>
    <span class="hl opt">$::</span>Wizard_no_previous <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl opt">$::</span>Wizard_no_cancel <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl opt">$::</span>Wizard_finished <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
    wizard_congratulations<span class="hl opt">(</span><span class="hl kwb">$in</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl kwb">$mode</span> <span class="hl opt">==</span> <span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl kwc">undef</span> <span class="hl opt">$::</span>isWizard<span class="hl opt">;</span>
    <span class="hl opt">$::</span>WizardWindow-<span class="hl opt">&gt;</span><span class="hl kwd">destroy</span> <span class="hl kwa">if</span> <span class="hl kwc">defined</span> <span class="hl opt">$::</span>WizardWindow<span class="hl opt">;</span>
    <span class="hl kwc">undef</span> <span class="hl opt">$::</span>WizardWindow<span class="hl opt">;</span>
<span class="hl opt">};</span>

<span class="hl slc">#- Program entry point for configuration of the printing system.</span>
<span class="hl kwa">sub</span> main <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in, $install_step, $upNetwork</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl slc"># $install_step is only made use of during the installation. It is</span>
    <span class="hl slc"># 0 when this function is called during the preparation of the &quot;Summary&quot;</span>
    <span class="hl slc"># screen and 1 when the user clicks on &quot;Configure&quot; on the &quot;Summary&quot; </span>
    <span class="hl slc"># screen</span>

    <span class="hl slc"># Initialization of Printerdrake and queue auto-installation:</span>
    <span class="hl slc"># During installation we do this step only once, when we prepare</span>
    <span class="hl slc"># the &quot;Summary&quot; screen in case of detected local printers or when</span>
    <span class="hl slc"># the &quot;Configure&quot; button in the &quot;Printer&quot; entry of the &quot;Summary&quot;</span>
    <span class="hl slc"># screen is clicked. If the button is clicked after an automatic</span>
    <span class="hl slc"># installation of local printers or if it is clicked for the</span>
    <span class="hl slc"># second time, these steps are not repeated.</span>
    <span class="hl kwa">if</span> <span class="hl opt">(!$::</span>isInstall <span class="hl opt">|| !$::</span>printerdrake_initialized<span class="hl opt">) {</span>
	init<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl slc"># Main loop: During installation we only enter it when the user has</span>
    <span class="hl slc"># clicked on the &quot;Configure&quot; button in the &quot;Summary&quot; step. We do not</span>
    <span class="hl slc"># call it during the preparation of the &quot;Summary&quot; screen.</span>
    <span class="hl kwa">if</span> <span class="hl opt">(!$::</span>isInstall <span class="hl opt">||</span> <span class="hl kwb">$install_step</span> <span class="hl opt">==</span> <span class="hl num">1</span><span class="hl opt">) {</span>
	<span class="hl slc"># Ask for a spooler when none is defined yet</span>
	<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">} ||=</span> 
	    setup_default_spooler<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</span><span class="hl opt">) ||</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
    
	<span class="hl slc"># Save the default spooler</span>
	printer<span class="hl opt">::</span><span class="hl kwa">default</span><span class="hl opt">::</span>set_spooler<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>

	mainwindow_interactive<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl slc"># In the installation we call the clean-up manually when we leave </span>
    <span class="hl slc"># the &quot;Summary&quot; step</span>
    <span class="hl kwa">if</span> <span class="hl opt">(!$::</span>isInstall<span class="hl opt">) {</span>
	final_cleanup<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">sub</span> init <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl slc"># Initialization of Printerdrake and queue auto-installation</span>

    <span class="hl slc"># Save the user mode, so that the same one is used on the next start</span>
    <span class="hl slc"># of Printerdrake</span>
    printer<span class="hl opt">::</span>main<span class="hl opt">::</span>set_usermode<span class="hl opt">($::</span>expert<span class="hl opt">);</span>
    
    <span class="hl slc"># printerdrake does not work without foomatic, and for more</span>
    <span class="hl slc"># convenience we install some more stuff</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>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span>
				   N<span class="hl opt">(</span><span class="hl str">&quot;Checking installed software...&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>files_exist<span class="hl opt">(</span><span class="hl str">qw(/usr/bin/foomatic-configure</span>
<span class="hl str">			    /usr/lib/perl5/vendor_perl/5.8.0/Foomatic/DB.pm</span>
<span class="hl str">			    /usr/bin/foomatic-rip</span>
<span class="hl str">			    /usr/share/foomatic/db/source/driver/ljet4.xml</span>
<span class="hl str">			    /usr/bin/escputil</span>
<span class="hl str">			    /usr/share/printer-testpages/testprint.ps</span>
<span class="hl str">			    /usr/bin/nmap</span>
<span class="hl str">			    /usr/bin/scli</span>
<span class="hl str">			    )</span><span class="hl opt">,</span>
			 if_<span class="hl opt">(</span>files_exist<span class="hl opt">(</span><span class="hl str">&quot;/usr/bin/gimp&quot;</span><span class="hl opt">),</span>
			     <span class="hl str">&quot;/usr/lib/gimp/1.2/plug-ins/print&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;foomatic-db-engine&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;foomatic-filters&apos;</span><span class="hl opt">,</span>
				  <span class="hl str">&apos;foomatic-db&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;printer-utils&apos;</span><span class="hl opt">,</span>
				  <span class="hl str">&apos;printer-testpages&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;nmap&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;scli&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;gimpprint&apos;</span><span class="hl opt">));</span>
	<span class="hl opt">}</span>
	
	<span class="hl slc"># only experts should be asked for the spooler</span>
	<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">} ||=</span> <span class="hl str">&apos;cups&apos;</span> <span class="hl kwa">if</span> <span class="hl opt">!$::</span>expert<span class="hl opt">;</span>
	
    <span class="hl opt">}</span>
    
    <span class="hl slc"># If we have chosen a spooler, install it and mark it as default </span>
    <span class="hl slc"># spooler</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 kwa">return</span> <span class="hl num">0</span> <span class="hl kwa">unless</span> install_spooler<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</span><span class="hl opt">);</span>
	printer<span class="hl opt">::</span><span class="hl kwa">default</span><span class="hl opt">::</span>set_spooler<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"># Get the default printer (Done before non-interactive queue setup,</span>
    <span class="hl slc"># so that former default is not lost)</span>
    assure_default_printer_is_set<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$nodefault</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 slc"># Non-interactive setup of newly detected printers (This is done</span>
    <span class="hl slc"># only when not in expert mode, so we always have a spooler defined</span>
    <span class="hl slc"># here)</span>
    configure_new_printers<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</span><span class="hl opt">);</span>
    
    <span class="hl slc"># Make sure that default printer is registered</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$nodefault</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DEFAULT<span class="hl opt">}) {</span>
	printer<span class="hl opt">::</span><span class="hl kwa">default</span><span class="hl opt">::</span>set_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"># Configure the current printer queues in applications</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>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span>
			  N<span class="hl opt">(</span><span class="hl str">&quot;Configuring applications...&quot;</span><span class="hl opt">));</span>
    printer<span class="hl opt">::</span>main<span class="hl opt">::</span>configureapplications<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
    <span class="hl kwc">undef</span> <span class="hl kwb">$w</span><span class="hl opt">;</span>
    
    <span class="hl slc"># Turn on printer autodetection by default</span>
    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECT<span class="hl opt">} =</span> <span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECTLOCAL<span class="hl opt">} =</span> <span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECTNETWORK<span class="hl opt">} =</span> <span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECTSMB<span class="hl opt">} =</span> <span class="hl num">1</span><span class="hl opt">;</span>
    
    <span class="hl slc"># Mark this part as done, it should not be done a second time.</span>
    <span class="hl kwa">if</span> <span class="hl opt">($::</span>isInstall<span class="hl opt">) {</span>
	<span class="hl opt">$::</span>printerdrake_initialized <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">1</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> mainwindow_interactive <span class="hl opt">{</span>

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

    <span class="hl slc"># Control variables for the main loop</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$menuchoice, $cursorpos</span><span class="hl opt">) = (</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;::&apos;</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 kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$queue, $newcursorpos</span><span class="hl opt">) = (</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> <span class="hl num">0</span><span class="hl opt">);</span>
	<span class="hl slc"># If networking is configured, start it, but don&apos;t ask the</span>
	<span class="hl slc"># user to configure networking. We want to know whether we</span>
	<span class="hl slc"># have a local network, to suppress some buttons in the</span>
	<span class="hl slc"># recommended mode</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$havelocalnetworks_or_expert</span> <span class="hl opt">=</span>
	    <span class="hl opt">$::</span>expert <span class="hl opt">||</span>
	    check_network<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork,</span> <span class="hl num">1</span><span class="hl opt">) &amp;&amp;</span> 
	    printer<span class="hl opt">::</span>detect<span class="hl opt">::</span>getIPsInLocalNetworks<span class="hl opt">() != ();</span>
<span class="hl slc">#	$in-&gt;set_help(&apos;mainMenu&apos;) if $::isInstall;</span>
	<span class="hl slc"># Initialize the cursor position</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$cursorpos</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">$printer</span><span class="hl opt">-&gt;{</span>DEFAULT<span class="hl opt">} &amp;&amp;</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DEFAULT<span class="hl opt">}</span> <span class="hl kwc">ne</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 kwc">defined</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>DEFAULT<span class="hl opt">}})) {</span>
		<span class="hl kwb">$cursorpos</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>DEFAULT<span class="hl opt">}}{</span>queuedata<span class="hl opt">}{</span>menuentry<span class="hl opt">} .</span> N<span class="hl opt">(</span><span class="hl str">&quot; (Default)&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;cups&quot;</span><span class="hl opt">) {</span>
		<span class="hl kwb">$cursorpos</span> <span class="hl opt">=</span> find <span class="hl opt">{</span> <span class="hl kwd">/!$printer-&gt;{DEFAULT}:[^!]*$/</span> <span class="hl opt">}</span> printer<span class="hl opt">::</span>cups<span class="hl opt">::</span>get_formatted_remote_queues<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 slc"># Generate the list of available printers</span>
	<span class="hl kwc">my</span> <span class="hl kwb">&#64;printerlist</span> <span class="hl opt">=</span> 
	    <span class="hl opt">(</span><span class="hl kwc">sort</span><span class="hl opt">(</span><span class="hl kwc">map</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">$_</span><span class="hl opt">}{</span>queuedata<span class="hl opt">}{</span>menuentry<span class="hl opt">}</span> 
			<span class="hl opt">. (</span><span class="hl kwb">$_</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> ?
			   N<span class="hl opt">(</span><span class="hl str">&quot; (Default)&quot;</span><span class="hl opt">) :</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">) }</span>
		  <span class="hl kwc">keys</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 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 kwc">sort</span><span class="hl opt">(</span>printer<span class="hl opt">::</span>cups<span class="hl opt">::</span>get_formatted_remote_queues<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">)) :</span>
	      <span class="hl opt">()));</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$noprinters</span> <span class="hl opt">=</span> <span class="hl kwb">$#printerlist</span> <span class="hl opt">&lt;</span> <span class="hl num">0</span><span class="hl opt">;</span>
	<span class="hl slc"># Position the cursor where it was before (in case</span>
	<span class="hl slc"># a button was pressed).</span>
	<span class="hl kwb">$menuchoice</span> <span class="hl opt">=</span> <span class="hl kwb">$cursorpos</span><span class="hl opt">;</span>
	<span class="hl slc"># Show the main dialog</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> N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span>
	    messages <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;The following printers are configured. Double-click on a printer to change its settings; to make it the default printer; or to view information about it.&quot;</span><span class="hl opt">),</span>
	    cancel <span class="hl opt">=&gt; (</span><span class="hl str">&quot;&quot;</span><span class="hl opt">),</span>
	    ok <span class="hl opt">=&gt; (</span><span class="hl str">&quot;&quot;</span><span class="hl opt">) },</span>
	    <span class="hl slc"># List the queues</span>
	    <span class="hl opt">[</span> if_<span class="hl opt">(!</span><span class="hl kwb">$noprinters,</span>
		  <span class="hl opt">{</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$menuchoice,</span> format <span class="hl opt">=&gt;</span> \<span class="hl opt">&amp;</span>translate<span class="hl opt">,</span>
		    <span class="hl kwc">sort</span> <span class="hl opt">=&gt;</span> <span class="hl num">0</span><span class="hl opt">,</span> separator <span class="hl opt">=&gt;</span> <span class="hl str">&quot;!&quot;</span><span class="hl opt">,</span> tree_expanded <span class="hl opt">=&gt;</span> <span class="hl num">1</span><span class="hl opt">,</span>
		    quit_if_double_click <span class="hl opt">=&gt;</span> <span class="hl num">1</span><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>
		    list <span class="hl opt">=&gt;</span> \<span class="hl kwb">&#64;printerlist</span> <span class="hl opt">}),</span>
	      <span class="hl opt">{</span> clicked_may_quit <span class="hl opt">=&gt;</span>
		    <span class="hl kwa">sub</span> <span class="hl opt">{</span> 
			<span class="hl slc"># Save the cursor position</span>
			<span class="hl kwb">$cursorpos</span> <span class="hl opt">=</span> <span class="hl kwb">$menuchoice</span><span class="hl opt">;</span>
			<span class="hl kwb">$menuchoice</span> <span class="hl opt">=</span> <span class="hl str">&quot;\</span><span class="hl ipl">&#64;addprinter</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>
		val <span class="hl opt">=&gt;</span> N<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 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">&amp;&amp;</span>
	       <span class="hl kwb">$havelocalnetworks_or_expert</span> ?
	       <span class="hl opt">({</span> clicked_may_quit <span class="hl opt">=&gt;</span>
		      <span class="hl kwa">sub</span> <span class="hl opt">{</span> 
			  <span class="hl slc"># Save the cursor position</span>
			  <span class="hl kwb">$cursorpos</span> <span class="hl opt">=</span> <span class="hl kwb">$menuchoice</span><span class="hl opt">;</span>
			  <span class="hl kwb">$menuchoice</span> <span class="hl opt">=</span> <span class="hl str">&quot;\</span><span class="hl ipl">&#64;refresh</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>
		  val <span class="hl opt">=&gt; (</span><span class="hl kwb">$#printerlist</span> <span class="hl opt">&lt;</span> <span class="hl num">0</span> ?
			  N<span class="hl opt">(</span><span class="hl str">&quot;Display all available remote CUPS printers&quot;</span><span class="hl opt">) :</span>
			  N<span class="hl opt">(</span><span class="hl str">&quot;Refresh printer list (to display all available remote CUPS printers)&quot;</span><span class="hl opt">)) },</span>
		<span class="hl opt">{</span> clicked_may_quit <span class="hl opt">=&gt;</span>
		      <span class="hl kwa">sub</span> <span class="hl opt">{</span> 
			  <span class="hl slc"># Save the cursor position</span>
			  <span class="hl kwb">$cursorpos</span> <span class="hl opt">=</span> <span class="hl kwb">$menuchoice</span><span class="hl opt">;</span>
			  <span class="hl kwb">$menuchoice</span> <span class="hl opt">=</span> <span class="hl str">&quot;\</span><span class="hl ipl">&#64;cupsconfig</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>
		  val <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;CUPS configuration&quot;</span><span class="hl opt">) }) : ()),</span>
	      <span class="hl opt">($::</span>expert <span class="hl opt">&amp;&amp;</span> 
	       <span class="hl opt">(</span>files_exist<span class="hl opt">(</span><span class="hl str">qw(/usr/bin/pdq)</span><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 str">			       /usr/sbin/lpd)</span><span class="hl opt">))</span> ?
	       <span class="hl opt">{</span> clicked_may_quit <span class="hl opt">=&gt;</span>
		     <span class="hl kwa">sub</span> <span class="hl opt">{</span>
			 <span class="hl slc"># Save the cursor position</span>
			 <span class="hl kwb">$cursorpos</span> <span class="hl opt">=</span> <span class="hl kwb">$menuchoice</span><span class="hl opt">;</span>
			 <span class="hl kwb">$menuchoice</span> <span class="hl opt">=</span> <span class="hl str">&quot;\</span><span class="hl ipl">&#64;spooler</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>
		 val <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Change the printing system&quot;</span><span class="hl opt">) } :</span>
	       <span class="hl opt">()),</span>
	      <span class="hl opt">{</span> clicked_may_quit <span class="hl opt">=&gt;</span>
		    <span class="hl kwa">sub</span> <span class="hl opt">{</span>
			<span class="hl slc"># Save the cursor position</span>
			<span class="hl kwb">$cursorpos</span> <span class="hl opt">=</span> <span class="hl kwb">$menuchoice</span><span class="hl opt">;</span>
			<span class="hl kwb">$menuchoice</span> <span class="hl opt">=</span> <span class="hl str">&quot;\</span><span class="hl ipl">&#64;usermode</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
			<span class="hl num">1</span> 
			<span class="hl opt">},</span>
			    val <span class="hl opt">=&gt; ($::</span>expert ? N<span class="hl opt">(</span><span class="hl str">&quot;Normal Mode&quot;</span><span class="hl opt">) :</span>
				    N<span class="hl opt">(</span><span class="hl str">&quot;Expert Mode&quot;</span><span class="hl opt">)) },</span>
	      <span class="hl opt">{</span> clicked_may_quit <span class="hl opt">=&gt;</span>
		    <span class="hl kwa">sub</span> <span class="hl opt">{</span> <span class="hl kwb">$menuchoice</span> <span class="hl opt">=</span> <span class="hl str">&quot;\</span><span class="hl ipl">&#64;quit</span><span class="hl str">&quot;</span><span class="hl opt">;</span> <span class="hl num">1</span> <span class="hl opt">},</span>
		    val <span class="hl opt">=&gt; ($::</span>isEmbedded <span class="hl opt">|| $::</span>isInstall ?
			    N<span class="hl opt">(</span><span class="hl str">&quot;Done&quot;</span><span class="hl opt">) :</span> N<span class="hl opt">(</span><span class="hl str">&quot;Quit&quot;</span><span class="hl opt">)) },</span>
	      <span class="hl opt">]);</span>
	<span class="hl slc"># Toggle expert mode and standard mode</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;\</span><span class="hl ipl">&#64;usermode</span><span class="hl str">&quot;</span><span class="hl opt">) {</span>
	    <span class="hl opt">$::</span>expert <span class="hl opt">=</span> printer<span class="hl opt">::</span>main<span class="hl opt">::</span>set_usermode<span class="hl opt">(!$::</span>expert<span class="hl opt">);</span>
	    <span class="hl slc"># Read printer database for the new user mode</span>
	    <span class="hl kwb">%printer</span><span class="hl opt">::</span>main<span class="hl opt">::</span>thedb <span class="hl opt">= ();</span>
	    <span class="hl slc"># Modify menu entries to switch the tree</span>
	    <span class="hl slc"># structure between expert/normal mode.</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$spooler</span> <span class="hl opt">=</span>
		<span class="hl kwb">$spoolers</span><span class="hl opt">{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">}}{</span>short_name<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 kwa">foreach</span> <span class="hl opt">(</span><span class="hl kwc">keys</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>configured<span class="hl opt">}{</span><span class="hl kwb">$_</span><span class="hl opt">}{</span>queuedata<span class="hl opt">}{</span>menuentry<span class="hl opt">} =~</span> 
			<span class="hl kwd">s/^/$spooler!/</span><span class="hl opt">;</span>
		<span class="hl opt">}</span>
		<span class="hl kwb">$cursorpos</span> <span class="hl opt">=~</span> <span class="hl kwd">s/^/$spooler!/</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">foreach</span> <span class="hl opt">(</span><span class="hl kwc">keys</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>configured<span class="hl opt">}{</span><span class="hl kwb">$_</span><span class="hl opt">}{</span>queuedata<span class="hl opt">}{</span>menuentry<span class="hl opt">} =~</span> 
			<span class="hl kwd">s/^$spooler!//</span><span class="hl opt">;</span>
		<span class="hl opt">}</span>
		<span class="hl kwb">$cursorpos</span> <span class="hl opt">=~</span> <span class="hl kwd">s/^$spooler!//</span><span class="hl opt">;</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 slc"># Refresh printer list</span>
	<span class="hl kwa">next if</span> <span class="hl kwb">$menuchoice</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;\</span><span class="hl ipl">&#64;refresh</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
	<span class="hl slc"># Configure CUPS</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;\</span><span class="hl ipl">&#64;cupsconfig</span><span class="hl str">&quot;</span><span class="hl opt">) {</span>
	    config_cups<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</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 slc"># Call function to switch to another spooler</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;\</span><span class="hl ipl">&#64;spooler</span><span class="hl str">&quot;</span><span class="hl opt">) {</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">} =</span> setup_default_spooler<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</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 kwa">next</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
	<span class="hl slc"># Add a new print queue</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;\</span><span class="hl ipl">&#64;addprinter</span><span class="hl str">&quot;</span><span class="hl opt">) {</span>
	    <span class="hl kwb">$newcursorpos</span> <span class="hl opt">=</span> add_printer<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</span><span class="hl opt">);</span>
	<span class="hl opt">}</span>
	<span class="hl slc"># Edit an existing print queue</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">/!([^\s!:]+):[^!]*$/</span><span class="hl opt">) {</span>
	    <span class="hl slc"># Rip the queue name out of the chosen menu entry</span>
	    <span class="hl kwb">$queue</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
	    <span class="hl slc"># Save the cursor position</span>
	    <span class="hl kwb">$cursorpos</span> <span class="hl opt">=</span> <span class="hl kwb">$menuchoice</span><span class="hl opt">;</span>
	    <span class="hl slc"># Edit the queue</span>
	    edit_printer<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork, $queue</span><span class="hl opt">);</span>
	    <span class="hl kwb">$newcursorpos</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">#- Close printerdrake</span>
	<span class="hl kwb">$menuchoice</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;\</span><span class="hl ipl">&#64;quit</span><span class="hl str">&quot;</span> <span class="hl kwc">and</span> <span class="hl kwa">last</span><span class="hl opt">;</span>

	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$newcursorpos</span><span class="hl opt">) {</span>
	    <span class="hl slc"># Set the cursor onto the current menu entry</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 kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$queue</span><span class="hl opt">) {</span>
		<span class="hl slc"># Make sure that the cursor is still at the same position</span>
		<span class="hl slc"># in the main menu when one has modified something on the</span>
		<span class="hl slc"># current printer</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>QUEUE<span class="hl opt">}}) {</span>
		    <span class="hl kwc">my</span> <span class="hl kwb">$s1</span> <span class="hl opt">=</span> N<span class="hl opt">(</span><span class="hl str">&quot; (Default)&quot;</span><span class="hl opt">);</span>
		    <span class="hl kwc">my</span> <span class="hl kwb">$s2</span> <span class="hl opt">=</span> <span class="hl kwb">$s1</span><span class="hl opt">;</span>
		    <span class="hl kwb">$s2</span> <span class="hl opt">=~</span> <span class="hl kwd">s/\(/\\(/</span><span class="hl opt">;</span>
		    <span class="hl kwb">$s2</span> <span class="hl opt">=~</span> <span class="hl kwd">s/\)/\\)/</span><span class="hl opt">;</span>
		    <span class="hl kwb">$cursorpos</span> <span class="hl opt">.=</span> <span class="hl kwb">$s1</span>
			<span class="hl kwa">if</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>QUEUE<span class="hl opt">}</span> <span class="hl kwc">eq</span>
			<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DEFAULT<span class="hl opt">} &amp;&amp;</span> <span class="hl kwb">$cursorpos</span> <span class="hl opt">!~</span> <span class="hl kwd">/$s2/</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">$cursorpos</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>queuedata<span class="hl opt">}{</span>menuentry<span class="hl opt">} .</span>
			<span class="hl opt">(</span><span class="hl kwb">$queue</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> ?
			 N<span class="hl opt">(</span><span class="hl str">&quot; (Default)&quot;</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 opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		<span class="hl kwb">$cursorpos</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 kwc">delete</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 opt">}</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> add_printer <span class="hl opt">{</span>

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

    <span class="hl slc"># The add-printer wizard of printerdrake, adds a queue for a local</span>
    <span class="hl slc"># or remote printer interactively</span>

    <span class="hl slc"># Tell subroutines that we add a new printer</span>
    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>NEW<span class="hl opt">} =</span> <span class="hl num">1</span><span class="hl opt">;</span>

    <span class="hl slc"># Default printer name, we do not use &quot;lp&quot; so that one can</span>
    <span class="hl slc"># switch the default printer under LPD without needing to</span>
    <span class="hl slc"># rename another printer.  Under LPD the alias &quot;lp&quot; will be</span>
    <span class="hl slc"># given to the default printer.</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$defaultprname</span> <span class="hl opt">=</span> N<span class="hl opt">(</span><span class="hl str">&quot;Printer&quot;</span><span class="hl opt">);</span>
    
    <span class="hl slc"># Determine a default name for a new printer queue</span>
    <span class="hl kwc">my</span> <span class="hl kwb">%queues</span><span class="hl opt">;</span> 
    <span class="hl kwb">&#64;queues</span><span class="hl opt">{</span><span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl kwc">split</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 kwc">keys</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 kwc">my</span> <span class="hl kwb">$i</span> <span class="hl opt">=</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">;</span>
    <span class="hl kwa">while</span> <span class="hl opt">(</span><span class="hl kwb">$i</span> <span class="hl opt">&lt;</span> <span class="hl num">99999</span><span class="hl opt">) {</span> 
	<span class="hl kwa">last unless</span> <span class="hl kwc">exists</span> <span class="hl kwb">$queues</span><span class="hl opt">{</span><span class="hl str">&quot;</span><span class="hl ipl">$defaultprname$i</span><span class="hl str">&quot;</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 kwc">my</span> <span class="hl kwb">$queue</span> <span class="hl opt">=</span> <span class="hl str">&quot;</span><span class="hl ipl">$defaultprname$i</span><span class="hl str">&quot;</span><span class="hl opt">;</span>

    <span class="hl slc">#- Set default values for a new queue</span>
    <span class="hl kwb">$printer_type_inv</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 kwc">or</span> 
	<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>TYPE<span class="hl opt">} =</span> printer<span class="hl opt">::</span><span class="hl kwa">default</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>currentqueue<span class="hl opt">} = {</span> queue    <span class="hl opt">=&gt;</span> <span class="hl kwb">$queue,</span>
				 foomatic <span class="hl opt">=&gt;</span> <span class="hl num">0</span><span class="hl opt">,</span>
				 desc     <span class="hl opt">=&gt;</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">,</span>
				 loc      <span class="hl opt">=&gt;</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">,</span>
				 make     <span class="hl opt">=&gt;</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">,</span>
				 model    <span class="hl opt">=&gt;</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">,</span>
				 printer  <span class="hl opt">=&gt;</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">,</span>
				 driver   <span class="hl opt">=&gt;</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">,</span>
				 <span class="hl kwc">connect</span>  <span class="hl opt">=&gt;</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">,</span>
				 spooler  <span class="hl opt">=&gt;</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">#- Set OLD_QUEUE field so that the subroutines for the</span>
    <span class="hl slc">#- configuration work correctly.</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>QUEUE<span class="hl opt">} =</span> <span class="hl kwb">$queue</span><span class="hl opt">;</span>
    <span class="hl slc">#- Do all the configuration steps for a new queue</span>
  step_0<span class="hl opt">:</span>
    <span class="hl kwa">if</span> <span class="hl opt">(!$::</span>isEmbedded <span class="hl opt">&amp;&amp; !$::</span>isInstall <span class="hl opt">&amp;&amp;</span>
    <span class="hl slc">#if ((!$::isInstall) &amp;&amp;</span>
	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">isa</span><span class="hl opt">(</span><span class="hl str">&apos;interactive::gtk&apos;</span><span class="hl opt">)) {</span>
	<span class="hl slc"># Enter wizard mode</span>
	<span class="hl opt">$::</span>Wizard_pix_up <span class="hl opt">=</span> <span class="hl str">&quot;wiz_printerdrake.png&quot;</span><span class="hl opt">;</span>
	<span class="hl opt">$::</span>Wizard_title <span class="hl opt">=</span> N<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>isWizard <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
	<span class="hl slc"># Wizard welcome screen</span>
	<span class="hl opt">$::</span>Wizard_no_previous <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
	<span class="hl kwc">undef</span> <span class="hl opt">$::</span>Wizard_no_cancel<span class="hl opt">;</span> <span class="hl kwc">undef</span> <span class="hl opt">$::</span>Wizard_finished<span class="hl opt">;</span>
	wizard_welcome<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">do</span> <span class="hl opt">{</span>
	    wizard_close<span class="hl opt">(</span><span class="hl kwb">$in,</span> <span class="hl num">0</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 kwc">undef</span> <span class="hl opt">$::</span>Wizard_no_previous<span class="hl opt">;</span>
	<span class="hl kwc">eval</span> <span class="hl opt">{</span>
	    <span class="hl slc">#do {</span>
	    <span class="hl slc"># eval to catch wizard cancel. The wizard stuff </span>
	    <span class="hl slc"># should be in a separate function with steps. see </span>
	    <span class="hl slc"># drakgw.</span>
	    <span class="hl opt">$::</span>expert <span class="hl kwc">or</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>TYPE<span class="hl opt">} =</span> <span class="hl str">&quot;LOCAL&quot;</span><span class="hl opt">;</span>
	  step_1<span class="hl opt">:</span>
	    <span class="hl opt">!$::</span>expert <span class="hl kwc">or</span> choose_printer_type<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">)</span> <span class="hl kwc">or</span>
		<span class="hl kwa">goto</span> step_0<span class="hl opt">;</span>
	  step_2<span class="hl opt">:</span>
	    setup_printer_connection<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</span><span class="hl opt">)</span> <span class="hl kwc">or</span> 
		<span class="hl kwa">do</span> <span class="hl opt">{</span>
		    <span class="hl kwa">goto</span> step_1 <span class="hl kwa">if</span> <span class="hl opt">$::</span>expert<span class="hl opt">;</span>
		    <span class="hl kwa">goto</span> step_0<span class="hl opt">;</span>
		<span class="hl opt">};</span>
	  step_3<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">$printer</span><span class="hl opt">-&gt;{</span>MANUAL<span class="hl opt">} ||</span>
		<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>MORETHANONE<span class="hl opt">}) {</span>
		choose_printer_name<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">)</span> <span class="hl kwc">or</span>
		    <span class="hl kwa">goto</span> step_2<span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	    get_db_entry<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">);</span>
	  step_3_9<span class="hl opt">:</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(!$::</span>expert <span class="hl opt">&amp;&amp; !</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>MANUAL<span class="hl opt">}) {</span>
		is_model_correct<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">do</span> <span class="hl opt">{</span>
		    <span class="hl kwa">goto</span> step_3 <span class="hl kwa">if</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>MORETHANONE<span class="hl opt">};</span>
		    <span class="hl kwa">goto</span> step_2<span class="hl opt">;</span>
		<span class="hl opt">}</span>
	    <span class="hl opt">}</span>
	  step_4<span class="hl opt">:</span>
	    <span class="hl slc"># Remember DB entry for &quot;Previous&quot; button in wizard</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$dbentry</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 kwa">if</span> <span class="hl opt">($::</span>expert <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">$printer</span><span class="hl opt">-&gt;{</span>MANUALMODEL<span class="hl opt">}) {</span> 
		choose_model<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">do</span> <span class="hl opt">{</span>
		    <span class="hl slc"># Restore DB entry</span>
		    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DBENTRY<span class="hl opt">} =</span> <span class="hl kwb">$dbentry</span><span class="hl opt">;</span>
		    <span class="hl kwa">goto</span> step_3_9 <span class="hl kwa">if</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>MANUALMODEL<span class="hl opt">};</span>
		    <span class="hl kwa">goto</span> step_3<span class="hl opt">;</span>
		<span class="hl opt">};</span>
	    <span class="hl opt">}</span>
	    get_printer_info<span class="hl opt">(</span><span class="hl kwb">$printer, $in</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>
	  step_5<span class="hl opt">:</span>
	    setup_options<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">)</span> <span class="hl kwc">or</span>
		<span class="hl kwa">goto</span> step_4<span class="hl opt">;</span>
	    configure_queue<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">)</span> <span class="hl kwc">or die</span> <span class="hl str">&apos;wizcancel&apos;</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 kwa">if</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>MANUAL<span class="hl opt">};</span>
	    <span class="hl opt">$::</span>Wizard_no_previous <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
	    setasdefault<span class="hl opt">(</span><span class="hl kwb">$printer, $in</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>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span>
				       N<span class="hl opt">(</span><span class="hl str">&quot;Configuring applications...&quot;</span><span class="hl opt">));</span>
	    printer<span class="hl opt">::</span>main<span class="hl opt">::</span>configureapplications<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
	    <span class="hl kwc">undef</span> <span class="hl kwb">$_w</span><span class="hl opt">;</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$testpages</span> <span class="hl opt">=</span> print_testpages<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $printer</span><span class="hl opt">-&gt;{</span>TYPE<span class="hl opt">} !~</span> <span class="hl kwd">/LOCAL/</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$upNetwork</span><span class="hl opt">);</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$testpages</span> <span class="hl opt">==</span> <span class="hl num">1</span><span class="hl opt">) {</span>
		<span class="hl slc"># User was content with test pages</span>
		<span class="hl slc"># Leave wizard mode with congratulations screen</span>
		wizard_close<span class="hl opt">(</span><span class="hl kwb">$in,</span> <span class="hl num">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">$testpages</span> <span class="hl opt">==</span> <span class="hl num">2</span><span class="hl opt">) {</span>
		<span class="hl slc"># User was not content with test pages</span>
		<span class="hl slc"># Leave wizard mode without congratulations</span>
		<span class="hl slc"># screen</span>
		wizard_close<span class="hl opt">(</span><span class="hl kwb">$in,</span> <span class="hl num">0</span><span class="hl opt">);</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>
		edit_printer<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork, $queue</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 opt">};</span>
	wizard_close<span class="hl opt">(</span><span class="hl kwb">$in,</span> <span class="hl num">0</span><span class="hl opt">)</span> <span class="hl kwa">if</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 opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl opt">$::</span>expert <span class="hl kwc">or</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>TYPE<span class="hl opt">} =</span> <span class="hl str">&quot;LOCAL&quot;</span><span class="hl opt">;</span>
	wizard_welcome<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</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 opt">!$::</span>expert <span class="hl kwc">or</span> choose_printer_type<span class="hl opt">(</span><span class="hl kwb">$printer, $in</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>
	setup_printer_connection<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</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 kwa">if</span> <span class="hl opt">($::</span>expert <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">$printer</span><span class="hl opt">-&gt;{</span>MORETHANONE<span class="hl opt">}) {</span>
	    choose_printer_name<span class="hl opt">(</span><span class="hl kwb">$printer, $in</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 opt">}</span>
	get_db_entry<span class="hl opt">(</span><span class="hl kwb">$printer, $in</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><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>MANUAL<span class="hl opt">}) {</span>
	    is_model_correct<span class="hl opt">(</span><span class="hl kwb">$printer, $in</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 opt">}</span>
	<span class="hl kwa">if</span> <span class="hl opt">($::</span>expert <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">$printer</span><span class="hl opt">-&gt;{</span>MANUALMODEL<span class="hl opt">}) {</span> 
	    choose_model<span class="hl opt">(</span><span class="hl kwb">$printer, $in</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 opt">}</span>
	get_printer_info<span class="hl opt">(</span><span class="hl kwb">$printer, $in</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>
	setup_options<span class="hl opt">(</span><span class="hl kwb">$printer, $in</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>
	configure_queue<span class="hl opt">(</span><span class="hl kwb">$printer, $in</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 kwc">undef</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>MANUAL<span class="hl opt">}</span> <span class="hl kwa">if</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>MANUAL<span class="hl opt">};</span>
	setasdefault<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">);</span>
	<span class="hl slc"># Configure the current printer queue in applications</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>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span>
				   N<span class="hl opt">(</span><span class="hl str">&quot;Configuring applications...&quot;</span><span class="hl opt">));</span>
	printer<span class="hl opt">::</span>main<span class="hl opt">::</span>configureapplications<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
	<span class="hl kwc">undef</span> <span class="hl kwb">$_w</span><span class="hl opt">;</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$testpages</span> <span class="hl opt">=</span> print_testpages<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $printer</span><span class="hl opt">-&gt;{</span>TYPE<span class="hl opt">} !~</span> <span class="hl kwd">/LOCAL/</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$upNetwork</span><span class="hl opt">);</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$testpages</span> <span class="hl opt">==</span> <span class="hl num">2</span><span class="hl opt">) {</span>
	    <span class="hl slc"># User was not content with test pages</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>
	    edit_printer<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork, $queue</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 opt">};</span>

    <span class="hl slc"># Delete some variables</span>
    cleanup<span class="hl opt">(</span><span class="hl kwb">$printer</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">sub</span> edit_printer <span class="hl opt">{</span>

    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork, $queue</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl slc"># The menu for doing modifications on an existing print queue</span>

    <span class="hl slc"># If one, we have to update the application configuration (GIMP,</span>
    <span class="hl slc"># StarOffice, ...)</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$configapps</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>

    <span class="hl slc"># Cursor position in queue modification window</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$modify</span> <span class="hl opt">=</span> N<span class="hl opt">(</span><span class="hl str">&quot;Printer options&quot;</span><span class="hl opt">);</span>

    <span class="hl slc"># Tell subroutines that we modify the printer</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 kwa">while</span> <span class="hl opt">(</span><span class="hl kwc">defined</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">defined</span><span class="hl opt">(</span><span class="hl kwb">$queue</span><span class="hl opt">)) {</span>  <span class="hl slc"># Do not when current queue</span>
	                       <span class="hl slc"># is deleted</span>
	<span class="hl slc"># Modify a queue, ask which part should be modified</span>
<span class="hl slc">#	$in-&gt;set_help(&apos;modifyPrinterMenu&apos;) if $::isInstall;</span>
	<span class="hl slc"># Get some info to display</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$infoline</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 slc"># Here we must regenerate the menu entry, because the</span>
	    <span class="hl slc"># parameters can be changed.</span>
	    printer<span class="hl opt">::</span>main<span class="hl opt">::</span>make_menuentry<span class="hl opt">(</span><span class="hl kwb">$printer,$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>queuedata<span class="hl opt">}{</span>menuentry<span class="hl opt">} =~</span>
		<span class="hl kwd">/!([^!]+)$/</span><span class="hl opt">) {</span>
		<span class="hl kwb">$infoline</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 kwb">$queue</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> ? N<span class="hl opt">(</span><span class="hl str">&quot; (Default)&quot;</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 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>queuedata<span class="hl opt">}{</span>desc<span class="hl opt">}</span> ?
		     <span class="hl str">&quot;, Descr.:</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}{</span><span class="hl ipl">$queue</span><span class="hl str">}{queuedata}{desc}&quot;</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 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>queuedata<span class="hl opt">}{</span>loc<span class="hl opt">}</span> ?
		      <span class="hl str">&quot;, Loc.:</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}{</span><span class="hl ipl">$queue</span><span class="hl str">}{queuedata}{loc}&quot;</span> <span class="hl opt">:</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">) .</span>
		      <span class="hl opt">($::</span>expert ?
		       <span class="hl str">&quot;, Driver:</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}{</span><span class="hl ipl">$queue</span><span class="hl str">}{queuedata}{driver}&quot;</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 opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl slc"># Extract the entry for a remote CUPS queue from the menu entry</span>
	    <span class="hl slc"># for it.</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$menuentry</span> <span class="hl opt">=</span> find <span class="hl opt">{</span> <span class="hl kwd">/!$queue:[^!]*$/</span> <span class="hl opt">}</span> printer<span class="hl opt">::</span>cups<span class="hl opt">::</span>get_formatted_remote_queues<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
	    <span class="hl kwb">$infoline</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span> <span class="hl kwa">if</span> <span class="hl kwb">$menuentry</span> <span class="hl opt">=~</span> <span class="hl kwd">/!([^!]+)$/</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
	<span class="hl slc"># Mark the printer queue which we edit</span>
	<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>QUEUE<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">$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> N<span class="hl opt">(</span><span class="hl str">&quot;Modify printer configuration&quot;</span><span class="hl opt">),</span>
	      messages <span class="hl opt">=&gt;</span> 
		  N<span class="hl opt">(</span><span class="hl str">&quot;Printer</span> <span class="hl ipl">%s</span>
<span class="hl str">What do you want to modify on this printer?&quot;</span><span class="hl opt">,</span>
		    <span class="hl kwb">$infoline</span><span class="hl opt">),</span>
		  cancel <span class="hl opt">=&gt;</span> N<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> N<span class="hl opt">(</span><span class="hl str">&quot;Do it!&quot;</span><span class="hl opt">)</span>
	      <span class="hl opt">},</span>
	    <span class="hl opt">[ {</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$modify,</span> format <span class="hl opt">=&gt;</span> \<span class="hl opt">&amp;</span>translate<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>
		list <span class="hl opt">=&gt; [ (</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 opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Printer connection type&quot;</span><span class="hl opt">),</span>
			    N<span class="hl opt">(</span><span class="hl str">&quot;Printer name, description, location&quot;</span><span class="hl opt">),</span>
			    <span class="hl opt">($::</span>expert ?
			     N<span class="hl opt">(</span><span class="hl str">&quot;Printer manufacturer, model, driver&quot;</span><span class="hl opt">) :</span>
			     N<span class="hl opt">(</span><span class="hl str">&quot;Printer manufacturer, model&quot;</span><span class="hl opt">)),</span>
			    if_<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>queuedata<span class="hl opt">}{</span>make<span class="hl opt">}</span> <span class="hl kwc">ne</span> <span class="hl str">&quot;&quot;</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>queuedata<span class="hl opt">}{</span>model<span class="hl opt">}</span> <span class="hl kwc">ne</span> N<span class="hl opt">(</span><span class="hl str">&quot;Unknown model&quot;</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>queuedata<span class="hl opt">}{</span>model<span class="hl opt">}</span> <span class="hl kwc">ne</span> N<span class="hl opt">(</span><span class="hl str">&quot;Raw printer&quot;</span><span class="hl opt">),</span>
				N<span class="hl opt">(</span><span class="hl str">&quot;Printer options&quot;</span><span class="hl opt">))) : ()),</span>
			  if_<span class="hl opt">(</span><span class="hl kwb">$queue</span> <span class="hl kwc">ne</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DEFAULT<span class="hl opt">},</span>
			      N<span class="hl opt">(</span><span class="hl str">&quot;Set this printer as the default&quot;</span><span class="hl opt">)),</span>
			  if_<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>
			      N<span class="hl opt">(</span><span class="hl str">&quot;Add this printer to Star Office/OpenOffice.org/GIMP&quot;</span><span class="hl opt">),</span>
			      N<span class="hl opt">(</span><span class="hl str">&quot;Remove this printer from Star Office/OpenOffice.org/GIMP&quot;</span><span class="hl opt">)),</span>
			  N<span class="hl opt">(</span><span class="hl str">&quot;Print test pages&quot;</span><span class="hl opt">),</span>
			  N<span class="hl opt">(</span><span class="hl str">&quot;Learn how to use this printer&quot;</span><span class="hl opt">),</span>
			  if_<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> N<span class="hl opt">(</span><span class="hl str">&quot;Remove printer&quot;</span><span class="hl opt">)) ] } ])) {</span>

	    <span class="hl slc">#- Copy the queue data and work on the copy</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<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 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>
		printer<span class="hl opt">::</span>main<span class="hl opt">::</span>copy_printer_params<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>queuedata<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 slc">#- Keep in mind the printer driver which was</span>
		<span class="hl slc">#- used, so it can be determined whether the</span>
		<span class="hl slc">#- driver is only available in expert and so</span>
		<span class="hl slc">#- for setting the options for the driver in</span>
		<span class="hl slc">#- recommended mode a special treatment has</span>
		<span class="hl slc">#- to be applied.</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 opt">}</span>
	    <span class="hl slc">#- keep in mind old name of queue (in case of changing)</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>QUEUE<span class="hl opt">} =</span> <span class="hl kwb">$queue</span><span class="hl opt">;</span>
	    <span class="hl slc">#- Reset some variables</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>OLD_CHOICE<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>DBENTRY<span class="hl opt">} =</span> <span class="hl kwc">undef</span><span class="hl opt">;</span>
	    <span class="hl slc">#- Which printer type did we have before (check </span>
	    <span class="hl slc">#- beginning of URI)</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>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">} =~</span> <span class="hl kwd">m!^ptal://?hpjd!</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 str">&quot;socket&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 kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$type</span> <span class="hl opt">(</span><span class="hl str">qw(file parallel serial usb ptal</span>
<span class="hl str">					 mtink lpd socket smb ncp</span>
<span class="hl str">					 postpipe)</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 kwc">connect</span><span class="hl opt">} =~</span>
			    <span class="hl kwd">/^$type:/</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 opt">(</span><span class="hl kwb">$type</span> <span class="hl opt">=~</span> 
				 <span class="hl kwd">/(file|parallel|serial|usb|ptal|mtink)/</span> ? 
				 <span class="hl str">&apos;LOCAL&apos;</span> <span class="hl opt">:</span> <span class="hl kwc">uc</span><span class="hl opt">(</span><span class="hl kwb">$type</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 slc"># Do the chosen task</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$modify</span> <span class="hl kwc">eq</span> N<span class="hl opt">(</span><span class="hl str">&quot;Printer connection type&quot;</span><span class="hl opt">)) {</span>
		choose_printer_type<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">) &amp;&amp;</span>
		    setup_printer_connection<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</span><span class="hl opt">) &amp;&amp;</span>
		    configure_queue<span class="hl opt">(</span><span class="hl kwb">$printer, $in</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">$modify</span> <span class="hl kwc">eq</span> N<span class="hl opt">(</span><span class="hl str">&quot;Printer name, description, location&quot;</span><span class="hl opt">)) {</span>
		choose_printer_name<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">) &amp;&amp;</span>
		    configure_queue<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">) &amp;&amp;</span>
		    <span class="hl opt">(</span><span class="hl kwb">$configapps</span> <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">);</span>
		<span class="hl slc"># Delete old queue when it was renamed</span>
		<span class="hl kwa">if</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>QUEUE<span class="hl opt">})</span> <span class="hl kwc">ne lc</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">$_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>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span>
			 N<span class="hl opt">(</span><span class="hl str">&quot;Removing old 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 str">&quot;,</span>
<span class="hl str"></span>			   <span class="hl ipl">$printer</span><span class="hl str">-&gt;{OLD_QUEUE}));</span>
<span class="hl str">		    printer::main::remove_queue(</span><span class="hl ipl">$printer,</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 the default printer was renamed, correct the</span>
<span class="hl str">		    # the default printer setting of the spooler</span>
<span class="hl str">		    if (</span><span class="hl ipl">$queue</span> <span class="hl str">eq</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{DEFAULT}) {</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::default::set_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 ipl">$queue</span> <span class="hl str">=</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{QUEUE};</span>
<span class="hl str">		}</span>
<span class="hl str">	    } elsif (</span><span class="hl ipl">$modify</span> <span class="hl str">eq N(&quot;</span>Printer manufacturer<span class="hl opt">,</span> model<span class="hl opt">,</span> driver<span class="hl str">&quot;) ||</span>
<span class="hl str"></span>		     <span class="hl ipl">$modify</span> <span class="hl str">eq N(&quot;</span>Printer manufacturer<span class="hl opt">,</span> model<span class="hl str">&quot;)) {</span>
<span class="hl str">		get_db_entry(</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 str">		choose_model(</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$in</span><span class="hl str">) &amp;&amp;</span>
<span class="hl str">		    get_printer_info(</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$in</span><span class="hl str">) &amp;&amp;</span>
<span class="hl str">		    setup_options(</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$in</span><span class="hl str">) &amp;&amp;</span>
<span class="hl str">		    configure_queue(</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$in</span><span class="hl str">) &amp;&amp;</span>
<span class="hl str">		    (</span><span class="hl ipl">$configapps</span> <span class="hl str">= 1);</span>
<span class="hl str">	    } elsif (</span><span class="hl ipl">$modify</span> <span class="hl str">eq N(&quot;</span>Printer options<span class="hl str">&quot;)) {</span>
<span class="hl str">		get_printer_info(</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$in</span><span class="hl str">) &amp;&amp;</span>
<span class="hl str">		    setup_options(</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$in</span><span class="hl str">) &amp;&amp;</span>
<span class="hl str">		    configure_queue(</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 str">	    } elsif (</span><span class="hl ipl">$modify</span> <span class="hl str">eq N(&quot;</span>Set this printer as the <span class="hl kwa">default</span><span class="hl str">&quot;)) {</span>
<span class="hl str">		default_printer(</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">$queue</span><span class="hl str">);</span>
<span class="hl str"></span>		<span class="hl ipl">$configapps</span> <span class="hl str">= 1;</span>
<span class="hl str">		# The &quot;</span>Set this printer as the <span class="hl kwa">default</span><span class="hl str">&quot; menu entry will</span>
<span class="hl str">		# disappear if the printer is the default, so go back to the</span>
<span class="hl str">		# default entry</span>
<span class="hl str"></span>		<span class="hl ipl">$modify</span> <span class="hl str">= N(&quot;</span>Printer options<span class="hl str">&quot;);</span>
<span class="hl str">	    } elsif (</span><span class="hl ipl">$modify</span> <span class="hl str">eq N(&quot;</span>Add this printer to Star Office<span class="hl kwd">/OpenOffice.org/</span>GIMP<span class="hl str">&quot;)) {</span>
<span class="hl str"></span>		<span class="hl ipl">$in</span><span class="hl str">-&gt;ask_warn(N(&quot;</span>Adding printer to Star Office<span class="hl kwd">/OpenOffice.org/</span>GIMP<span class="hl str">&quot;),</span>
<span class="hl str">			      printer::main::addcupsremotetoapplications(</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$queue</span><span class="hl str">) ?</span>
<span class="hl str">			      N(&quot;</span>The printer <span class="hl esc">\&quot;</span><span class="hl kwb">%s\</span><span class="hl str">&quot; was successfully added to Star Office/OpenOffice.org/GIMP.&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$queue</span><span class="hl opt">) :</span>
			      N<span class="hl opt">(</span><span class="hl str">&quot;Failed to add 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> to Star Office<span class="hl kwd">/OpenOffice.org/</span>GIMP<span class="hl opt">.</span><span class="hl str">&quot;,</span> <span class="hl ipl">$queue</span><span class="hl str">));</span>
<span class="hl str">	    } elsif (</span><span class="hl ipl">$modify</span> <span class="hl str">eq N(&quot;</span>Remove this printer from Star Office<span class="hl kwd">/OpenOffice.org/</span>GIMP<span class="hl str">&quot;)) {</span>
<span class="hl str"></span>		<span class="hl ipl">$in</span><span class="hl str">-&gt;ask_warn(N(&quot;</span>Removing printer from Star Office<span class="hl kwd">/OpenOffice.org/</span>GIMP<span class="hl str">&quot;),</span>
<span class="hl str">			      printer::main::removeprinterfromapplications(</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$queue</span><span class="hl str">) ?</span>
<span class="hl str">			      N(&quot;</span>The printer <span class="hl esc">\&quot;</span><span class="hl kwb">%s\</span><span class="hl str">&quot; was successfully removed from Star Office/OpenOffice.org/GIMP.&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$queue</span><span class="hl opt">) :</span>
			      N<span class="hl opt">(</span><span class="hl str">&quot;Failed to remove 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> from Star Office<span class="hl kwd">/OpenOffice.org/</span>GIMP<span class="hl opt">.</span><span class="hl str">&quot;,</span> <span class="hl ipl">$queue</span><span class="hl str">));</span>
<span class="hl str">	    } elsif (</span><span class="hl ipl">$modify</span> <span class="hl str">eq N(&quot;</span>Print test pages<span class="hl str">&quot;)) {</span>
<span class="hl str">		print_testpages(</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 str">	    } elsif (</span><span class="hl ipl">$modify</span> <span class="hl str">eq N(&quot;</span>Learn how to <span class="hl kwa">use</span> this printer<span class="hl str">&quot;)) {</span>
<span class="hl str">		printer_help(</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 str">	    } elsif (</span><span class="hl ipl">$modify</span> <span class="hl str">eq N(&quot;</span>Remove printer<span class="hl str">&quot;)) {</span>
<span class="hl str">		if (remove_printer(</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">$queue</span><span class="hl str">)) {</span>
<span class="hl str"></span>		    <span class="hl ipl">$configapps</span> <span class="hl str">= 1;</span>
<span class="hl str">		    # Let the main menu cursor go to the default</span>
<span class="hl str">		    # position</span>
<span class="hl str">		    delete</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{QUEUE};</span>
<span class="hl str">		    undef</span> <span class="hl ipl">$queue</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">	    # Configure the current printer queue in applications</span>
<span class="hl str">	    if (</span><span class="hl ipl">$configapps</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 str"></span>		    <span class="hl ipl">$in</span><span class="hl str">-&gt;wait_message(N(&quot;</span>Printerdrake<span class="hl str">&quot;),</span>
<span class="hl str">				      N(&quot;</span>Configuring applications<span class="hl opt">...</span><span class="hl str">&quot;));</span>
<span class="hl str">		printer::main::configureapplications(</span><span class="hl ipl">$printer</span><span class="hl str">);</span>
<span class="hl str">	    }</span>
<span class="hl str">	    # Delete some variables</span>
<span class="hl str">	    cleanup(</span><span class="hl ipl">$printer</span><span class="hl str">);</span>
<span class="hl str">	} else {</span>
<span class="hl str">	    # User closed the dialog</span>
<span class="hl str"></span>
<span class="hl str">	    # Delete some variables</span>
<span class="hl str">	    cleanup(</span><span class="hl ipl">$printer</span><span class="hl str">);</span>
<span class="hl str"></span>
<span class="hl str">	    last;</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 remove_printer {</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">$queue</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">    # Asks the user whether he really wants to remove the selected printer</span>
<span class="hl str">    # and, if yes, removes it. The default printer will be reassigned if</span>
<span class="hl str">    # needed.</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</span>
<span class="hl str">	(&apos;&apos;, N(&quot;</span>Do you really want to remove the printer <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 num">1</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>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span>
	     N<span class="hl opt">(</span><span class="hl str">&quot;Removing 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 str">&quot;,</span> <span class="hl ipl">$queue</span><span class="hl str">));</span>
<span class="hl str">	if (printer::main::remove_queue(</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$queue</span><span class="hl str">)) { </span>
<span class="hl str">	    # Define a new default printer if we have</span>
<span class="hl str">	    # removed the default one</span>
<span class="hl str">	    if (</span><span class="hl ipl">$queue</span> <span class="hl str">eq</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{DEFAULT}) {</span>
<span class="hl str">		my</span> <span class="hl ipl">&#64;k</span> <span class="hl str">= sort(keys %{</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}});</span>
<span class="hl str"></span>		<span class="hl ipl">$printer</span><span class="hl str">-&gt;{DEFAULT} =</span> <span class="hl ipl">$k</span><span class="hl str">[0];</span>
<span class="hl str">		printer::default::set_printer(</span><span class="hl ipl">$printer</span><span class="hl str">) if</span> <span class="hl ipl">&#64;k</span><span class="hl str">;</span>
<span class="hl str">	    }</span>
<span class="hl str">	    return 1;</span>
<span class="hl str">	}</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">sub default_printer {</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">$queue</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">    # Makes the given queue the default queue and gives an information</span>
<span class="hl str">    # message</span>
<span class="hl str"></span>
<span class="hl str"></span>    <span class="hl ipl">$printer</span><span class="hl str">-&gt;{DEFAULT} =</span> <span class="hl ipl">$queue</span><span class="hl str">;</span>
<span class="hl str">    printer::default::set_printer(</span><span class="hl ipl">$printer</span><span class="hl str">);</span>
<span class="hl str"></span>    <span class="hl ipl">$in</span><span class="hl str">-&gt;ask_warn(N(&quot;</span>Default printer<span class="hl str">&quot;),</span>
<span class="hl str">		  N(&quot;</span>The printer <span class="hl esc">\&quot;</span><span class="hl kwb">%s\</span><span class="hl str">&quot; is set as the default printer now.&quot;</span><span class="hl opt">,</span>
		    <span class="hl kwb">$queue</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">sub</span> cleanup <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl slc"># Clean up the $printer data structure after printer manipulations</span>
    <span class="hl kwa">foreach</span> <span class="hl opt">(</span><span class="hl str">qw(OLD_QUEUE TYPE str_type DBENTRY ARGS </span>
<span class="hl str">		OLD_CHOICE MANUAL)</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><span class="hl kwb">$_</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 kwb">$printer</span><span class="hl opt">-&gt;{</span>complete<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">sub</span> final_cleanup <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl slc"># Clean up the $printer data structure for auto-install log</span>
    <span class="hl kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$queue</span> <span class="hl opt">(</span><span class="hl kwc">keys</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 kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$item</span> <span class="hl opt">(</span><span class="hl kwc">keys</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 kwc">delete</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 kwb">$item</span><span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwb">$item</span> <span class="hl kwc">ne</span> <span class="hl str">&quot;queuedata&quot;</span><span class="hl opt">;</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>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">}{</span>queuedata<span class="hl opt">}{</span>menuentry<span class="hl opt">});</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">foreach</span> <span class="hl opt">(</span><span class="hl str">qw(Old_queue OLD_QUEUE QUEUE TYPE str_type currentqueue DBENTRY ARGS complete OLD_CHOICE NEW MORETHANONE MANUALMODEL AUTODETECT AUTODETECTLOCAL AUTODETECTNETWORK AUTODETECTSMB noninteractive)</span><span class="hl opt">)</span>
    <span class="hl opt">{</span> <span class="hl kwc">delete</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">} };</span>
<span class="hl opt">}</span>

</code></pre></td></tr></table>
</div> <!-- class=content -->
<div class='footer'>generated by <a href='https://git.zx2c4.com/cgit/about/'>cgit v1.2.1</a> (<a href='https://git-scm.com/'>git 2.21.0</a>) at 2025-02-23 22:33:06 +0000</div>
</div> <!-- id=cgit -->
</body>
</html>