drakx-backup-do-not-use - Mageia Installer and base platform for many utilities

Branch	Commit message	Author	Age
master	drop useless comment	Thierry Vignaud	11 years
distro/mga3	apply forgotten patch for drakfirewall	José Jorge	12 years
distro/mga2	SVN_SILENT Ukrainian translation update	Yuri Chornoivan	12 years
distro/mga1	Ukrainian translation update	Yuri Chornoivan	12 years
distro/mes5-2.6.33	Revert as it breaks auto_inst	Nicolas Lécureuil	12 years
distro/mes6	fix unused-but-set-variable	Antoine Ginies	14 years
distro/mes5	fix installing from hard drive on cciss (#57973)	Antoine Ginies	14 years
distro/mdv2009.0	increase version	Pascal Terjan	15 years
distro/mdv2010.0	- detect_devices:	Olivier Blin	15 years
distro/mdv2008.0	run_program: set XAUTHORITY and HOME for the user we will drop privileges to	Pascal Terjan	15 years
distro/mdv2008.1	run_program: set XAUTHORITY and HOME for the user we will drop privileges to	Pascal Terjan	15 years
distro/mdv2009.1	run_program: set XAUTHORITY and HOME for the user we will drop privileges to	Pascal Terjan	15 years
topic/switching_to_urpmi	(rpmDbOpen) make it more readable	Thierry Vignaud	16 years
topic/before_matchbox_wm	2009.0 beta 1 logo	Thierry Vignaud	16 years
topic/MDK-2006_0-update	Add stex and e1000_ng	Pascal Terjan	17 years
distro/mdv2007.1	- fix range max value >2TB when creating a partition (useful for LVs >2TB)	Pascal Rigaux	17 years
topic/mlcd4	copy 2007.1 as mlcd4 branch (for drakauth changes)	Olivier Blin	18 years
topic/MDK-10-update	Better (and fix) SMP detection, aka. also check for populated & enabled CPU	Gwenolé Beauchesne	19 years
topic/MDK-10_2-update	package lsb is requiring many locales though we don't want it to be installed	Pascal Rigaux	19 years
topic/MDK-10_1-update	Fix mis-sorted progress bars	Stew Benedict	19 years
topic/a	This commit was manufactured by cvs2svn to create branch 'a'.	Mystery Man	20 years
topic/mandrakesoft	This commit was manufactured by cvs2svn to create branch 'mandrakesoft'.	Mystery Man	21 years
topic/MDK92-branch	workaround anthil bug #369	Thierry Vignaud	21 years
topic/Corpo_2_1	Corporate Server 2.1.1 release	Nicolas Planel	21 years
topic/KA9_0	Removing sundance	Erwan Velu	21 years
topic/R9_0-64bit-branch	no imm/ppa on ia64	Gwenolé Beauchesne	21 years
topic/MDKC_1_0	This commit was manufactured by cvs2svn to create branch 'MDKC_1_0'.	Mystery Man	21 years
topic/R9_1_HP-branch	This commit was manufactured by cvs2svn to create branch	Mystery Man	22 years
topic/x86_64-branch	More xf86 modules for x86-64	Gwenolé Beauchesne	22 years
topic/gdk-pixbuf-0-branch	- lots of cleanups	Thierry Vignaud	22 years
topic/ia64-8_1	- Don't forget to link the initrd to the real image in /boot/efi/ too	Gwenolé Beauchesne	23 years
topic/PCMCIA_CS_DISTRO	This commit was manufactured by cvs2svn to create branch	Mystery Man	23 years
topic/v_webmin_0_87	This commit was manufactured by cvs2svn to create branch	Mystery Man	23 years
topic/gi-ppc	This commit was manufactured by cvs2svn to create branch 'gi-ppc'.	Mystery Man	24 years
topic/rp-pppoe	This commit was manufactured by cvs2svn to create branch 'rp-pppoe'.	Mystery Man	24 years
topic/ppp	This commit was manufactured by cvs2svn to create branch 'ppp'.	Mystery Man	24 years
topic/dietlibc	This commit was manufactured by cvs2svn to create branch 'dietlibc'.	Mystery Man	24 years
topic/firewall	readded passwd. Must verify that it's secure vs msec.	damien	24 years
topic/unlabeled-1.1.1	branch to build the firewall install.	damien	24 years

Tag	Download	Author	Age
before_matchbox_wm	drakx-backup-do-not-use-before_matchbox_wm.tar drakx-backup-do-not-use-before_matchbox_wm.tar.gz drakx-backup-do-not-use-before_matchbox_wm.tar.bz2 drakx-backup-do-not-use-before_matchbox_wm.tar.xz drakx-backup-do-not-use-before_matchbox_wm.zip	Thierry Vignaud	16 years
V10_4_6_1mdk	drakx-backup-do-not-use-10_4_6_1mdk.tar drakx-backup-do-not-use-10_4_6_1mdk.tar.gz drakx-backup-do-not-use-10_4_6_1mdk.tar.bz2 drakx-backup-do-not-use-10_4_6_1mdk.tar.xz drakx-backup-do-not-use-10_4_6_1mdk.zip	Mystery Man	19 years
V10_34_11_100mdk	drakx-backup-do-not-use-10_34_11_100mdk.tar drakx-backup-do-not-use-10_34_11_100mdk.tar.gz drakx-backup-do-not-use-10_34_11_100mdk.tar.bz2 drakx-backup-do-not-use-10_34_11_100mdk.tar.xz drakx-backup-do-not-use-10_34_11_100mdk.zip	Mystery Man	19 years
MDK-2006_0	drakx-backup-do-not-use-MDK-2006_0.tar drakx-backup-do-not-use-MDK-2006_0.tar.gz drakx-backup-do-not-use-MDK-2006_0.tar.bz2 drakx-backup-do-not-use-MDK-2006_0.tar.xz drakx-backup-do-not-use-MDK-2006_0.zip	Mystery Man	19 years
V10_3_0_53mdk	drakx-backup-do-not-use-10_3_0_53mdk.tar drakx-backup-do-not-use-10_3_0_53mdk.tar.gz drakx-backup-do-not-use-10_3_0_53mdk.tar.bz2 drakx-backup-do-not-use-10_3_0_53mdk.tar.xz drakx-backup-do-not-use-10_3_0_53mdk.zip	Mystery Man	19 years
V10_3_0_52mdk	drakx-backup-do-not-use-10_3_0_52mdk.tar drakx-backup-do-not-use-10_3_0_52mdk.tar.gz drakx-backup-do-not-use-10_3_0_52mdk.tar.bz2 drakx-backup-do-not-use-10_3_0_52mdk.tar.xz drakx-backup-do-not-use-10_3_0_52mdk.zip	Mystery Man	19 years
V10_3_0_51mdk	drakx-backup-do-not-use-10_3_0_51mdk.tar drakx-backup-do-not-use-10_3_0_51mdk.tar.gz drakx-backup-do-not-use-10_3_0_51mdk.tar.bz2 drakx-backup-do-not-use-10_3_0_51mdk.tar.xz drakx-backup-do-not-use-10_3_0_51mdk.zip	Mystery Man	19 years
V10_3_0_50mdk	drakx-backup-do-not-use-10_3_0_50mdk.tar drakx-backup-do-not-use-10_3_0_50mdk.tar.gz drakx-backup-do-not-use-10_3_0_50mdk.tar.bz2 drakx-backup-do-not-use-10_3_0_50mdk.tar.xz drakx-backup-do-not-use-10_3_0_50mdk.zip	Mystery Man	19 years
V10_3_0_48mdk	drakx-backup-do-not-use-10_3_0_48mdk.tar drakx-backup-do-not-use-10_3_0_48mdk.tar.gz drakx-backup-do-not-use-10_3_0_48mdk.tar.bz2 drakx-backup-do-not-use-10_3_0_48mdk.tar.xz drakx-backup-do-not-use-10_3_0_48mdk.zip	Mystery Man	19 years
V10_3_0_47mdk	drakx-backup-do-not-use-10_3_0_47mdk.tar drakx-backup-do-not-use-10_3_0_47mdk.tar.gz drakx-backup-do-not-use-10_3_0_47mdk.tar.bz2 drakx-backup-do-not-use-10_3_0_47mdk.tar.xz drakx-backup-do-not-use-10_3_0_47mdk.zip	Mystery Man	19 years
V10_3_0_35mdk	drakx-backup-do-not-use-10_3_0_35mdk.tar drakx-backup-do-not-use-10_3_0_35mdk.tar.gz drakx-backup-do-not-use-10_3_0_35mdk.tar.bz2 drakx-backup-do-not-use-10_3_0_35mdk.tar.xz drakx-backup-do-not-use-10_3_0_35mdk.zip	Mystery Man	19 years
V10_3_0_34mdk	drakx-backup-do-not-use-10_3_0_34mdk.tar drakx-backup-do-not-use-10_3_0_34mdk.tar.gz drakx-backup-do-not-use-10_3_0_34mdk.tar.bz2 drakx-backup-do-not-use-10_3_0_34mdk.tar.xz drakx-backup-do-not-use-10_3_0_34mdk.zip	Mystery Man	19 years
V10_3_0_24mdk	drakx-backup-do-not-use-10_3_0_24mdk.tar drakx-backup-do-not-use-10_3_0_24mdk.tar.gz drakx-backup-do-not-use-10_3_0_24mdk.tar.bz2 drakx-backup-do-not-use-10_3_0_24mdk.tar.xz drakx-backup-do-not-use-10_3_0_24mdk.zip	Mystery Man	20 years
MDK10-LACIE	drakx-backup-do-not-use-MDK10-LACIE.tar drakx-backup-do-not-use-MDK10-LACIE.tar.gz drakx-backup-do-not-use-MDK10-LACIE.tar.bz2 drakx-backup-do-not-use-MDK10-LACIE.tar.xz drakx-backup-do-not-use-MDK10-LACIE.zip	Mystery Man	20 years
MDK10-LACIE-restore	drakx-backup-do-not-use-MDK10-LACIE-restore.tar drakx-backup-do-not-use-MDK10-LACIE-restore.tar.gz drakx-backup-do-not-use-MDK10-LACIE-restore.tar.bz2 drakx-backup-do-not-use-MDK10-LACIE-restore.tar.xz drakx-backup-do-not-use-MDK10-LACIE-restore.zip	Mystery Man	20 years
MDK-10_2	drakx-backup-do-not-use-MDK-10_2.tar drakx-backup-do-not-use-MDK-10_2.tar.gz drakx-backup-do-not-use-MDK-10_2.tar.bz2 drakx-backup-do-not-use-MDK-10_2.tar.xz drakx-backup-do-not-use-MDK-10_2.zip	Mystery Man	20 years
MDK10-LACIE-restore-2	drakx-backup-do-not-use-MDK10-LACIE-restore-2.tar drakx-backup-do-not-use-MDK10-LACIE-restore-2.tar.gz drakx-backup-do-not-use-MDK10-LACIE-restore-2.tar.bz2 drakx-backup-do-not-use-MDK10-LACIE-restore-2.tar.xz drakx-backup-do-not-use-MDK10-LACIE-restore-2.zip	Mystery Man	20 years
V10_2_20mdk	drakx-backup-do-not-use-10_2_20mdk.tar drakx-backup-do-not-use-10_2_20mdk.tar.gz drakx-backup-do-not-use-10_2_20mdk.tar.bz2 drakx-backup-do-not-use-10_2_20mdk.tar.xz drakx-backup-do-not-use-10_2_20mdk.zip	Mystery Man	20 years
V10_2_19mdk	drakx-backup-do-not-use-10_2_19mdk.tar drakx-backup-do-not-use-10_2_19mdk.tar.gz drakx-backup-do-not-use-10_2_19mdk.tar.bz2 drakx-backup-do-not-use-10_2_19mdk.tar.xz drakx-backup-do-not-use-10_2_19mdk.zip	Mystery Man	20 years
MDK-10_1	drakx-backup-do-not-use-MDK-10_1.tar drakx-backup-do-not-use-MDK-10_1.tar.gz drakx-backup-do-not-use-MDK-10_1.tar.bz2 drakx-backup-do-not-use-MDK-10_1.tar.xz drakx-backup-do-not-use-MDK-10_1.zip	Mystery Man	20 years
V10_54mdk	drakx-backup-do-not-use-10_54mdk.tar drakx-backup-do-not-use-10_54mdk.tar.gz drakx-backup-do-not-use-10_54mdk.tar.bz2 drakx-backup-do-not-use-10_54mdk.tar.xz drakx-backup-do-not-use-10_54mdk.zip	Mystery Man	20 years
MDK10_0	drakx-backup-do-not-use-MDK10_0.tar drakx-backup-do-not-use-MDK10_0.tar.gz drakx-backup-do-not-use-MDK10_0.tar.bz2 drakx-backup-do-not-use-MDK10_0.tar.xz drakx-backup-do-not-use-MDK10_0.zip	Mystery Man	21 years
MDK-10_0	drakx-backup-do-not-use-MDK-10_0.tar drakx-backup-do-not-use-MDK-10_0.tar.gz drakx-backup-do-not-use-MDK-10_0.tar.bz2 drakx-backup-do-not-use-MDK-10_0.tar.xz drakx-backup-do-not-use-MDK-10_0.zip	Mystery Man	21 years
V10_0_21mdk	drakx-backup-do-not-use-10_0_21mdk.tar drakx-backup-do-not-use-10_0_21mdk.tar.gz drakx-backup-do-not-use-10_0_21mdk.tar.bz2 drakx-backup-do-not-use-10_0_21mdk.tar.xz drakx-backup-do-not-use-10_0_21mdk.zip	Mystery Man	21 years
V9_3_15mdk	drakx-backup-do-not-use-9_3_15mdk.tar drakx-backup-do-not-use-9_3_15mdk.tar.gz drakx-backup-do-not-use-9_3_15mdk.tar.bz2 drakx-backup-do-not-use-9_3_15mdk.tar.xz drakx-backup-do-not-use-9_3_15mdk.zip	Mystery Man	21 years
move_1	drakx-backup-do-not-use-move_1.tar drakx-backup-do-not-use-move_1.tar.gz drakx-backup-do-not-use-move_1.tar.bz2 drakx-backup-do-not-use-move_1.tar.xz drakx-backup-do-not-use-move_1.zip	Mystery Man	21 years
MDK92-AMD64	drakx-backup-do-not-use-MDK92-AMD64.tar drakx-backup-do-not-use-MDK92-AMD64.tar.gz drakx-backup-do-not-use-MDK92-AMD64.tar.bz2 drakx-backup-do-not-use-MDK92-AMD64.tar.xz drakx-backup-do-not-use-MDK92-AMD64.zip	Mystery Man	21 years
Corpo_2_1_1	drakx-backup-do-not-use-Corpo_2_1_1.tar drakx-backup-do-not-use-Corpo_2_1_1.tar.gz drakx-backup-do-not-use-Corpo_2_1_1.tar.bz2 drakx-backup-do-not-use-Corpo_2_1_1.tar.xz drakx-backup-do-not-use-Corpo_2_1_1.zip	Mystery Man	21 years
MDK92	drakx-backup-do-not-use-MDK92.tar drakx-backup-do-not-use-MDK92.tar.gz drakx-backup-do-not-use-MDK92.tar.bz2 drakx-backup-do-not-use-MDK92.tar.xz drakx-backup-do-not-use-MDK92.zip	Mystery Man	21 years
V9_2_11mdk	drakx-backup-do-not-use-9_2_11mdk.tar drakx-backup-do-not-use-9_2_11mdk.tar.gz drakx-backup-do-not-use-9_2_11mdk.tar.bz2 drakx-backup-do-not-use-9_2_11mdk.tar.xz drakx-backup-do-not-use-9_2_11mdk.zip	Mystery Man	21 years
V9_2_0_29mdk	drakx-backup-do-not-use-9_2_0_29mdk.tar drakx-backup-do-not-use-9_2_0_29mdk.tar.gz drakx-backup-do-not-use-9_2_0_29mdk.tar.bz2 drakx-backup-do-not-use-9_2_0_29mdk.tar.xz drakx-backup-do-not-use-9_2_0_29mdk.zip	Mystery Man	21 years
ka9_0	drakx-backup-do-not-use-ka9_0.tar drakx-backup-do-not-use-ka9_0.tar.gz drakx-backup-do-not-use-ka9_0.tar.bz2 drakx-backup-do-not-use-ka9_0.tar.xz drakx-backup-do-not-use-ka9_0.zip	Mystery Man	22 years
V9_2_0_1mdk	drakx-backup-do-not-use-9_2_0_1mdk.tar drakx-backup-do-not-use-9_2_0_1mdk.tar.gz drakx-backup-do-not-use-9_2_0_1mdk.tar.bz2 drakx-backup-do-not-use-9_2_0_1mdk.tar.xz drakx-backup-do-not-use-9_2_0_1mdk.zip	Mystery Man	22 years
V9_1_38mdk	drakx-backup-do-not-use-9_1_38mdk.tar drakx-backup-do-not-use-9_1_38mdk.tar.gz drakx-backup-do-not-use-9_1_38mdk.tar.bz2 drakx-backup-do-not-use-9_1_38mdk.tar.xz drakx-backup-do-not-use-9_1_38mdk.zip	Mystery Man	22 years
R9_0-AMD64	drakx-backup-do-not-use-R9_0-AMD64.tar drakx-backup-do-not-use-R9_0-AMD64.tar.gz drakx-backup-do-not-use-R9_0-AMD64.tar.bz2 drakx-backup-do-not-use-R9_0-AMD64.tar.xz drakx-backup-do-not-use-R9_0-AMD64.zip	Mystery Man	22 years
V1_1_9_56mdk	drakx-backup-do-not-use-1_1_9_56mdk.tar drakx-backup-do-not-use-1_1_9_56mdk.tar.gz drakx-backup-do-not-use-1_1_9_56mdk.tar.bz2 drakx-backup-do-not-use-1_1_9_56mdk.tar.xz drakx-backup-do-not-use-1_1_9_56mdk.zip	Mystery Man	22 years
V1_1_9_55mdk	drakx-backup-do-not-use-1_1_9_55mdk.tar drakx-backup-do-not-use-1_1_9_55mdk.tar.gz drakx-backup-do-not-use-1_1_9_55mdk.tar.bz2 drakx-backup-do-not-use-1_1_9_55mdk.tar.xz drakx-backup-do-not-use-1_1_9_55mdk.zip	Mystery Man	22 years
V1_1_9_54mdk	drakx-backup-do-not-use-1_1_9_54mdk.tar drakx-backup-do-not-use-1_1_9_54mdk.tar.gz drakx-backup-do-not-use-1_1_9_54mdk.tar.bz2 drakx-backup-do-not-use-1_1_9_54mdk.tar.xz drakx-backup-do-not-use-1_1_9_54mdk.zip	Mystery Man	22 years
V9_1_29mdk	drakx-backup-do-not-use-9_1_29mdk.tar drakx-backup-do-not-use-9_1_29mdk.tar.gz drakx-backup-do-not-use-9_1_29mdk.tar.bz2 drakx-backup-do-not-use-9_1_29mdk.tar.xz drakx-backup-do-not-use-9_1_29mdk.zip	Mystery Man	22 years
R9_1	drakx-backup-do-not-use-R9_1.tar drakx-backup-do-not-use-R9_1.tar.gz drakx-backup-do-not-use-R9_1.tar.bz2 drakx-backup-do-not-use-R9_1.tar.xz drakx-backup-do-not-use-R9_1.zip	Mystery Man	22 years
V9_1_26mdk	drakx-backup-do-not-use-9_1_26mdk.tar drakx-backup-do-not-use-9_1_26mdk.tar.gz drakx-backup-do-not-use-9_1_26mdk.tar.bz2 drakx-backup-do-not-use-9_1_26mdk.tar.xz drakx-backup-do-not-use-9_1_26mdk.zip	Mystery Man	22 years
V9_1_25mdk	drakx-backup-do-not-use-9_1_25mdk.tar drakx-backup-do-not-use-9_1_25mdk.tar.gz drakx-backup-do-not-use-9_1_25mdk.tar.bz2 drakx-backup-do-not-use-9_1_25mdk.tar.xz drakx-backup-do-not-use-9_1_25mdk.zip	Mystery Man	22 years
V9_1_24mdk	drakx-backup-do-not-use-9_1_24mdk.tar drakx-backup-do-not-use-9_1_24mdk.tar.gz drakx-backup-do-not-use-9_1_24mdk.tar.bz2 drakx-backup-do-not-use-9_1_24mdk.tar.xz drakx-backup-do-not-use-9_1_24mdk.zip	Mystery Man	22 years
V9_1_23mdk	drakx-backup-do-not-use-9_1_23mdk.tar drakx-backup-do-not-use-9_1_23mdk.tar.gz drakx-backup-do-not-use-9_1_23mdk.tar.bz2 drakx-backup-do-not-use-9_1_23mdk.tar.xz drakx-backup-do-not-use-9_1_23mdk.zip	Mystery Man	22 years
V9_1_19mdk	drakx-backup-do-not-use-9_1_19mdk.tar drakx-backup-do-not-use-9_1_19mdk.tar.gz drakx-backup-do-not-use-9_1_19mdk.tar.bz2 drakx-backup-do-not-use-9_1_19mdk.tar.xz drakx-backup-do-not-use-9_1_19mdk.zip	Mystery Man	22 years
V9_1_18mdk	drakx-backup-do-not-use-9_1_18mdk.tar drakx-backup-do-not-use-9_1_18mdk.tar.gz drakx-backup-do-not-use-9_1_18mdk.tar.bz2 drakx-backup-do-not-use-9_1_18mdk.tar.xz drakx-backup-do-not-use-9_1_18mdk.zip	Mystery Man	22 years
V9_1_17mdk	drakx-backup-do-not-use-9_1_17mdk.tar drakx-backup-do-not-use-9_1_17mdk.tar.gz drakx-backup-do-not-use-9_1_17mdk.tar.bz2 drakx-backup-do-not-use-9_1_17mdk.tar.xz drakx-backup-do-not-use-9_1_17mdk.zip	Mystery Man	22 years
V9_1_11mdk	drakx-backup-do-not-use-9_1_11mdk.tar drakx-backup-do-not-use-9_1_11mdk.tar.gz drakx-backup-do-not-use-9_1_11mdk.tar.bz2 drakx-backup-do-not-use-9_1_11mdk.tar.xz drakx-backup-do-not-use-9_1_11mdk.zip	Mystery Man	22 years
V9_1_6mdk	drakx-backup-do-not-use-9_1_6mdk.tar drakx-backup-do-not-use-9_1_6mdk.tar.gz drakx-backup-do-not-use-9_1_6mdk.tar.bz2 drakx-backup-do-not-use-9_1_6mdk.tar.xz drakx-backup-do-not-use-9_1_6mdk.zip	Mystery Man	22 years
V9_1_0_34mdk	drakx-backup-do-not-use-9_1_0_34mdk.tar drakx-backup-do-not-use-9_1_0_34mdk.tar.gz drakx-backup-do-not-use-9_1_0_34mdk.tar.bz2 drakx-backup-do-not-use-9_1_0_34mdk.tar.xz drakx-backup-do-not-use-9_1_0_34mdk.zip	Mystery Man	22 years
KA9_0_noscsi	drakx-backup-do-not-use-KA9_0_noscsi.tar drakx-backup-do-not-use-KA9_0_noscsi.tar.gz drakx-backup-do-not-use-KA9_0_noscsi.tar.bz2 drakx-backup-do-not-use-KA9_0_noscsi.tar.xz drakx-backup-do-not-use-KA9_0_noscsi.zip	Mystery Man	22 years
R9_0	drakx-backup-do-not-use-R9_0.tar drakx-backup-do-not-use-R9_0.tar.gz drakx-backup-do-not-use-R9_0.tar.bz2 drakx-backup-do-not-use-R9_0.tar.xz drakx-backup-do-not-use-R9_0.zip	Mystery Man	22 years
V1_1_9_53mdk	drakx-backup-do-not-use-1_1_9_53mdk.tar drakx-backup-do-not-use-1_1_9_53mdk.tar.gz drakx-backup-do-not-use-1_1_9_53mdk.tar.bz2 drakx-backup-do-not-use-1_1_9_53mdk.tar.xz drakx-backup-do-not-use-1_1_9_53mdk.zip	Mystery Man	22 years
V1_1_9_51mdk	drakx-backup-do-not-use-1_1_9_51mdk.tar drakx-backup-do-not-use-1_1_9_51mdk.tar.gz drakx-backup-do-not-use-1_1_9_51mdk.tar.bz2 drakx-backup-do-not-use-1_1_9_51mdk.tar.xz drakx-backup-do-not-use-1_1_9_51mdk.zip	Mystery Man	22 years
V1_1_9_52mdk	drakx-backup-do-not-use-1_1_9_52mdk.tar drakx-backup-do-not-use-1_1_9_52mdk.tar.gz drakx-backup-do-not-use-1_1_9_52mdk.tar.bz2 drakx-backup-do-not-use-1_1_9_52mdk.tar.xz drakx-backup-do-not-use-1_1_9_52mdk.zip	Mystery Man	22 years
R9_0_rc3	drakx-backup-do-not-use-R9_0_rc3.tar drakx-backup-do-not-use-R9_0_rc3.tar.gz drakx-backup-do-not-use-R9_0_rc3.tar.bz2 drakx-backup-do-not-use-R9_0_rc3.tar.xz drakx-backup-do-not-use-R9_0_rc3.zip	Mystery Man	22 years
V1_1_9_49mdk	drakx-backup-do-not-use-1_1_9_49mdk.tar drakx-backup-do-not-use-1_1_9_49mdk.tar.gz drakx-backup-do-not-use-1_1_9_49mdk.tar.bz2 drakx-backup-do-not-use-1_1_9_49mdk.tar.xz drakx-backup-do-not-use-1_1_9_49mdk.zip	Mystery Man	22 years
V1_1_9_48mdk	drakx-backup-do-not-use-1_1_9_48mdk.tar drakx-backup-do-not-use-1_1_9_48mdk.tar.gz drakx-backup-do-not-use-1_1_9_48mdk.tar.bz2 drakx-backup-do-not-use-1_1_9_48mdk.tar.xz drakx-backup-do-not-use-1_1_9_48mdk.zip	Mystery Man	22 years
V1_1_9_46mdk	drakx-backup-do-not-use-1_1_9_46mdk.tar drakx-backup-do-not-use-1_1_9_46mdk.tar.gz drakx-backup-do-not-use-1_1_9_46mdk.tar.bz2 drakx-backup-do-not-use-1_1_9_46mdk.tar.xz drakx-backup-do-not-use-1_1_9_46mdk.zip	Mystery Man	22 years
V1_1_9_45mdk	drakx-backup-do-not-use-1_1_9_45mdk.tar drakx-backup-do-not-use-1_1_9_45mdk.tar.gz drakx-backup-do-not-use-1_1_9_45mdk.tar.bz2 drakx-backup-do-not-use-1_1_9_45mdk.tar.xz drakx-backup-do-not-use-1_1_9_45mdk.zip	Mystery Man	22 years
V1_1_9_42mdk	drakx-backup-do-not-use-1_1_9_42mdk.tar drakx-backup-do-not-use-1_1_9_42mdk.tar.gz drakx-backup-do-not-use-1_1_9_42mdk.tar.bz2 drakx-backup-do-not-use-1_1_9_42mdk.tar.xz drakx-backup-do-not-use-1_1_9_42mdk.zip	Mystery Man	22 years
V1_1_9_35mdk	drakx-backup-do-not-use-1_1_9_35mdk.tar drakx-backup-do-not-use-1_1_9_35mdk.tar.gz drakx-backup-do-not-use-1_1_9_35mdk.tar.bz2 drakx-backup-do-not-use-1_1_9_35mdk.tar.xz drakx-backup-do-not-use-1_1_9_35mdk.zip	Mystery Man	22 years
V1_1_9_31mdk	drakx-backup-do-not-use-1_1_9_31mdk.tar drakx-backup-do-not-use-1_1_9_31mdk.tar.gz drakx-backup-do-not-use-1_1_9_31mdk.tar.bz2 drakx-backup-do-not-use-1_1_9_31mdk.tar.xz drakx-backup-do-not-use-1_1_9_31mdk.zip	Mystery Man	22 years
V1_1_9_25mdk	drakx-backup-do-not-use-1_1_9_25mdk.tar drakx-backup-do-not-use-1_1_9_25mdk.tar.gz drakx-backup-do-not-use-1_1_9_25mdk.tar.bz2 drakx-backup-do-not-use-1_1_9_25mdk.tar.xz drakx-backup-do-not-use-1_1_9_25mdk.zip	Mystery Man	22 years
V1_1_9_16mdk	drakx-backup-do-not-use-1_1_9_16mdk.tar drakx-backup-do-not-use-1_1_9_16mdk.tar.gz drakx-backup-do-not-use-1_1_9_16mdk.tar.bz2 drakx-backup-do-not-use-1_1_9_16mdk.tar.xz drakx-backup-do-not-use-1_1_9_16mdk.zip	Mystery Man	22 years
V1_1_9_9mdk	drakx-backup-do-not-use-1_1_9_9mdk.tar drakx-backup-do-not-use-1_1_9_9mdk.tar.gz drakx-backup-do-not-use-1_1_9_9mdk.tar.bz2 drakx-backup-do-not-use-1_1_9_9mdk.tar.xz drakx-backup-do-not-use-1_1_9_9mdk.zip	Mystery Man	22 years
V1_1_9_5mdk	drakx-backup-do-not-use-1_1_9_5mdk.tar drakx-backup-do-not-use-1_1_9_5mdk.tar.gz drakx-backup-do-not-use-1_1_9_5mdk.tar.bz2 drakx-backup-do-not-use-1_1_9_5mdk.tar.xz drakx-backup-do-not-use-1_1_9_5mdk.zip	Mystery Man	22 years
V1_1_9_2mdk	drakx-backup-do-not-use-1_1_9_2mdk.tar drakx-backup-do-not-use-1_1_9_2mdk.tar.gz drakx-backup-do-not-use-1_1_9_2mdk.tar.bz2 drakx-backup-do-not-use-1_1_9_2mdk.tar.xz drakx-backup-do-not-use-1_1_9_2mdk.zip	Mystery Man	22 years
V1_1_9_4mdk	drakx-backup-do-not-use-1_1_9_4mdk.tar drakx-backup-do-not-use-1_1_9_4mdk.tar.gz drakx-backup-do-not-use-1_1_9_4mdk.tar.bz2 drakx-backup-do-not-use-1_1_9_4mdk.tar.xz drakx-backup-do-not-use-1_1_9_4mdk.zip	Mystery Man	22 years
V1_1_9_1mdk	drakx-backup-do-not-use-1_1_9_1mdk.tar drakx-backup-do-not-use-1_1_9_1mdk.tar.gz drakx-backup-do-not-use-1_1_9_1mdk.tar.bz2 drakx-backup-do-not-use-1_1_9_1mdk.tar.xz drakx-backup-do-not-use-1_1_9_1mdk.zip	Mystery Man	22 years
V1_1_8_16mdk	drakx-backup-do-not-use-1_1_8_16mdk.tar drakx-backup-do-not-use-1_1_8_16mdk.tar.gz drakx-backup-do-not-use-1_1_8_16mdk.tar.bz2 drakx-backup-do-not-use-1_1_8_16mdk.tar.xz drakx-backup-do-not-use-1_1_8_16mdk.zip	Mystery Man	22 years
V1_1_8_10mdk	drakx-backup-do-not-use-1_1_8_10mdk.tar drakx-backup-do-not-use-1_1_8_10mdk.tar.gz drakx-backup-do-not-use-1_1_8_10mdk.tar.bz2 drakx-backup-do-not-use-1_1_8_10mdk.tar.xz drakx-backup-do-not-use-1_1_8_10mdk.zip	Mystery Man	22 years
V1_1_8_11mdk	drakx-backup-do-not-use-1_1_8_11mdk.tar drakx-backup-do-not-use-1_1_8_11mdk.tar.gz drakx-backup-do-not-use-1_1_8_11mdk.tar.bz2 drakx-backup-do-not-use-1_1_8_11mdk.tar.xz drakx-backup-do-not-use-1_1_8_11mdk.zip	Mystery Man	22 years
V1_1_8_12mdk	drakx-backup-do-not-use-1_1_8_12mdk.tar drakx-backup-do-not-use-1_1_8_12mdk.tar.gz drakx-backup-do-not-use-1_1_8_12mdk.tar.bz2 drakx-backup-do-not-use-1_1_8_12mdk.tar.xz drakx-backup-do-not-use-1_1_8_12mdk.zip	Mystery Man	22 years
V1_1_8_13mdk	drakx-backup-do-not-use-1_1_8_13mdk.tar drakx-backup-do-not-use-1_1_8_13mdk.tar.gz drakx-backup-do-not-use-1_1_8_13mdk.tar.bz2 drakx-backup-do-not-use-1_1_8_13mdk.tar.xz drakx-backup-do-not-use-1_1_8_13mdk.zip	Mystery Man	22 years
V1_1_8_14mdk	drakx-backup-do-not-use-1_1_8_14mdk.tar drakx-backup-do-not-use-1_1_8_14mdk.tar.gz drakx-backup-do-not-use-1_1_8_14mdk.tar.bz2 drakx-backup-do-not-use-1_1_8_14mdk.tar.xz drakx-backup-do-not-use-1_1_8_14mdk.zip	Mystery Man	22 years
V1_1_8_9mdk	drakx-backup-do-not-use-1_1_8_9mdk.tar drakx-backup-do-not-use-1_1_8_9mdk.tar.gz drakx-backup-do-not-use-1_1_8_9mdk.tar.bz2 drakx-backup-do-not-use-1_1_8_9mdk.tar.xz drakx-backup-do-not-use-1_1_8_9mdk.zip	Mystery Man	22 years
V1_1_8_8mdk	drakx-backup-do-not-use-1_1_8_8mdk.tar drakx-backup-do-not-use-1_1_8_8mdk.tar.gz drakx-backup-do-not-use-1_1_8_8mdk.tar.bz2 drakx-backup-do-not-use-1_1_8_8mdk.tar.xz drakx-backup-do-not-use-1_1_8_8mdk.zip	Mystery Man	22 years
V1_1_8_7mdk	drakx-backup-do-not-use-1_1_8_7mdk.tar drakx-backup-do-not-use-1_1_8_7mdk.tar.gz drakx-backup-do-not-use-1_1_8_7mdk.tar.bz2 drakx-backup-do-not-use-1_1_8_7mdk.tar.xz drakx-backup-do-not-use-1_1_8_7mdk.zip	Mystery Man	22 years
V1_1_8_6mdk	drakx-backup-do-not-use-1_1_8_6mdk.tar drakx-backup-do-not-use-1_1_8_6mdk.tar.gz drakx-backup-do-not-use-1_1_8_6mdk.tar.bz2 drakx-backup-do-not-use-1_1_8_6mdk.tar.xz drakx-backup-do-not-use-1_1_8_6mdk.zip	Mystery Man	22 years
V1_1_8_5mdk	drakx-backup-do-not-use-1_1_8_5mdk.tar drakx-backup-do-not-use-1_1_8_5mdk.tar.gz drakx-backup-do-not-use-1_1_8_5mdk.tar.bz2 drakx-backup-do-not-use-1_1_8_5mdk.tar.xz drakx-backup-do-not-use-1_1_8_5mdk.zip	Mystery Man	22 years
V1_1_8_3mdk	drakx-backup-do-not-use-1_1_8_3mdk.tar drakx-backup-do-not-use-1_1_8_3mdk.tar.gz drakx-backup-do-not-use-1_1_8_3mdk.tar.bz2 drakx-backup-do-not-use-1_1_8_3mdk.tar.xz drakx-backup-do-not-use-1_1_8_3mdk.zip	Mystery Man	22 years
V1_1_8_4mdk	drakx-backup-do-not-use-1_1_8_4mdk.tar drakx-backup-do-not-use-1_1_8_4mdk.tar.gz drakx-backup-do-not-use-1_1_8_4mdk.tar.bz2 drakx-backup-do-not-use-1_1_8_4mdk.tar.xz drakx-backup-do-not-use-1_1_8_4mdk.zip	Mystery Man	22 years
V1_1_8_1mdk	drakx-backup-do-not-use-1_1_8_1mdk.tar drakx-backup-do-not-use-1_1_8_1mdk.tar.gz drakx-backup-do-not-use-1_1_8_1mdk.tar.bz2 drakx-backup-do-not-use-1_1_8_1mdk.tar.xz drakx-backup-do-not-use-1_1_8_1mdk.zip	Mystery Man	22 years
V1_1_8_2mdk	drakx-backup-do-not-use-1_1_8_2mdk.tar drakx-backup-do-not-use-1_1_8_2mdk.tar.gz drakx-backup-do-not-use-1_1_8_2mdk.tar.bz2 drakx-backup-do-not-use-1_1_8_2mdk.tar.xz drakx-backup-do-not-use-1_1_8_2mdk.zip	Mystery Man	22 years
V1_1_7_99mdk	drakx-backup-do-not-use-1_1_7_99mdk.tar drakx-backup-do-not-use-1_1_7_99mdk.tar.gz drakx-backup-do-not-use-1_1_7_99mdk.tar.bz2 drakx-backup-do-not-use-1_1_7_99mdk.tar.xz drakx-backup-do-not-use-1_1_7_99mdk.zip	Mystery Man	23 years
R8_2	drakx-backup-do-not-use-R8_2.tar drakx-backup-do-not-use-R8_2.tar.gz drakx-backup-do-not-use-R8_2.tar.bz2 drakx-backup-do-not-use-R8_2.tar.xz drakx-backup-do-not-use-R8_2.zip	Mystery Man	23 years
V3_1_29	drakx-backup-do-not-use-3_1_29.tar drakx-backup-do-not-use-3_1_29.tar.gz drakx-backup-do-not-use-3_1_29.tar.bz2 drakx-backup-do-not-use-3_1_29.tar.xz drakx-backup-do-not-use-3_1_29.zip	Mystery Man	23 years
OEM8_1	drakx-backup-do-not-use-OEM8_1.tar drakx-backup-do-not-use-OEM8_1.tar.gz drakx-backup-do-not-use-OEM8_1.tar.bz2 drakx-backup-do-not-use-OEM8_1.tar.xz drakx-backup-do-not-use-OEM8_1.zip	Mystery Man	23 years
R8_1	drakx-backup-do-not-use-R8_1.tar drakx-backup-do-not-use-R8_1.tar.gz drakx-backup-do-not-use-R8_1.tar.bz2 drakx-backup-do-not-use-R8_1.tar.xz drakx-backup-do-not-use-R8_1.zip	Mystery Man	23 years
V_9mdk	drakx-backup-do-not-use-V_9mdk.tar drakx-backup-do-not-use-V_9mdk.tar.gz drakx-backup-do-not-use-V_9mdk.tar.bz2 drakx-backup-do-not-use-V_9mdk.tar.xz drakx-backup-do-not-use-V_9mdk.zip	Mystery Man	23 years
v0_8	drakx-backup-do-not-use-0_8.tar drakx-backup-do-not-use-0_8.tar.gz drakx-backup-do-not-use-0_8.tar.bz2 drakx-backup-do-not-use-0_8.tar.xz drakx-backup-do-not-use-0_8.zip	Mystery Man	24 years
v8_0	drakx-backup-do-not-use-8_0.tar drakx-backup-do-not-use-8_0.tar.gz drakx-backup-do-not-use-8_0.tar.bz2 drakx-backup-do-not-use-8_0.tar.xz drakx-backup-do-not-use-8_0.zip	Mystery Man	24 years
before_rpm4	drakx-backup-do-not-use-before_rpm4.tar drakx-backup-do-not-use-before_rpm4.tar.gz drakx-backup-do-not-use-before_rpm4.tar.bz2 drakx-backup-do-not-use-before_rpm4.tar.xz drakx-backup-do-not-use-before_rpm4.zip	Mystery Man	24 years
rc1_fixed	drakx-backup-do-not-use-rc1_fixed.tar drakx-backup-do-not-use-rc1_fixed.tar.gz drakx-backup-do-not-use-rc1_fixed.tar.bz2 drakx-backup-do-not-use-rc1_fixed.tar.xz drakx-backup-do-not-use-rc1_fixed.zip	Mystery Man	24 years
odyssey	drakx-backup-do-not-use-odyssey.tar drakx-backup-do-not-use-odyssey.tar.gz drakx-backup-do-not-use-odyssey.tar.bz2 drakx-backup-do-not-use-odyssey.tar.xz drakx-backup-do-not-use-odyssey.zip	Mystery Man	24 years
helium_sparc_rc1	drakx-backup-do-not-use-helium_sparc_rc1.tar drakx-backup-do-not-use-helium_sparc_rc1.tar.gz drakx-backup-do-not-use-helium_sparc_rc1.tar.bz2 drakx-backup-do-not-use-helium_sparc_rc1.tar.xz drakx-backup-do-not-use-helium_sparc_rc1.zip	Mystery Man	24 years
helium	drakx-backup-do-not-use-helium.tar drakx-backup-do-not-use-helium.tar.gz drakx-backup-do-not-use-helium.tar.bz2 drakx-backup-do-not-use-helium.tar.xz drakx-backup-do-not-use-helium.zip	Mystery Man	25 years
oem	drakx-backup-do-not-use-oem.tar drakx-backup-do-not-use-oem.tar.gz drakx-backup-do-not-use-oem.tar.bz2 drakx-backup-do-not-use-oem.tar.xz drakx-backup-do-not-use-oem.zip	Mystery Man	25 years
air	drakx-backup-do-not-use-air.tar drakx-backup-do-not-use-air.tar.gz drakx-backup-do-not-use-air.tar.bz2 drakx-backup-do-not-use-air.tar.xz drakx-backup-do-not-use-air.zip	Mystery Man	25 years
V1_0	drakx-backup-do-not-use-1_0.tar drakx-backup-do-not-use-1_0.tar.gz drakx-backup-do-not-use-1_0.tar.bz2 drakx-backup-do-not-use-1_0.tar.xz drakx-backup-do-not-use-1_0.zip	Mystery Man	25 years

package printer::printerdrake; # $Id$ use strict; use common; use modules; use network; use log; use interactive; use printer::main; use printer::services; use printer::detect; use printer::default; use printer::data; 1; my $hp1000fwtext = N("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's CD does not work) and extract the firmware file from it by uncompresing the self-extracting '.exe' file with the 'unzip' utility and searching for the 'sihp1000.img' file. Copy this file into the '/etc/printer' directory. There it will be found by the automatic uploader script and uploaded whenever the printer is connected and turned on. "); sub config_cups { my ($printer, $in, $upNetwork) = @_; local $::isWizard = 0; # Check whether the network functionality is configured and # running if (!check_network($printer, $in, $upNetwork, 0)) { return 0 }; #$in->set_help('configureRemoteCUPSServer') if $::isInstall; #- hack to handle cups remote server printing, #- first read /etc/cups/cupsd.conf for variable BrowsePoll address:port # Return value: 0 when nothing was changed ("Apply" never pressed), 1 # when "Apply" was at least pressed once. my $retvalue = 0; # Read CUPS config file @{$printer->{cupsconfig}{cupsd_conf}} = printer::main::read_cupsd_conf(); printer::main::read_cups_config($printer); # Read state of japanese text printing mode my $jap_textmode = printer::main::get_jap_textmode(); # Read state for auto-correction of cupsd.conf $printer->{cupsconfig}{autocorrection} = printer::main::get_cups_autoconf(); my $oldautocorr = $printer->{cupsconfig}{autocorrection}; # Human-readable strings for hosts onto which the local printers # are shared my $maindone; while (!$maindone) { my $sharehosts = printer::main::makesharehostlist($printer); my $browsepoll = printer::main::makebrowsepolllist($printer); my $buttonclicked; #- Show dialog if ($in->ask_from_ ( { title => N("CUPS printer configuration"), messages => N("Here you can choose whether the printers connected to this machine should be accessable by remote machines and by which remote machines.") . N("You can also decide here whether printers on remote machines should be automatically made available on this machine."), }, [ { text => N("The printers on this machine are available to other computers"), type => 'bool', val => \$printer->{cupsconfig}{localprintersshared} }, { text => N("Automatically find available printers on remote machines"), type => 'bool', val => \$printer->{cupsconfig}{remotebroadcastsaccepted} }, { val => N("Printer sharing on hosts/networks: ") . ($printer->{cupsconfig}{customsharingsetup} ? N("Custom configuration") : ($#{$sharehosts->{list}} >= 0 ? ($#{$sharehosts->{list}} > 1 ? join(", ", @{$sharehosts->{list}}[0,1]) . " ..." : join(", ", @{$sharehosts->{list}})) : N("No remote machines"))), type => 'button', clicked_may_quit => sub { $buttonclicked = "sharehosts"; 1; }, disabled => sub { (!$printer->{cupsconfig}{localprintersshared} && !$printer->{cupsconfig}{remotebroadcastsaccepted}); } }, { val => N("Additional CUPS servers: ") . ($#{$browsepoll->{list}} >= 0 ? ($#{$browsepoll->{list}} > 1 ? join(", ", @{$browsepoll->{list}}[0,1]) . " ..." : join(", ", @{$browsepoll->{list}})) : N("None")), type => 'button', help => N("To get access to printers on remote CUPS servers in your local network you only need to turn on the \"Automatically find available printers on remote machines\" option; the CUPS servers inform your machine automatically about their printers. All printers currently known to your machine are listed in the \"Remote printers\" 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)."), clicked_may_quit => sub { $buttonclicked = "browsepoll"; 1; } }, { text => N("Japanese text printing mode"), help => N("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."), type => 'bool', val => \$jap_textmode }, if_($printer->{expert}, { text => N("Automatic correction of CUPS configuration"), type => 'bool', help => N("When this option is turned on, on every startup of CUPS it is automatically made sure that - if LPD/LPRng is installed, /etc/printcap will not be overwritten by CUPS - if /etc/cups/cupsd.conf is missing, it will be created - when printer information is broadcasted, it does not contain \"localhost\" as the server name. If some of these measures lead to problems for you, turn this option off, but then you have to take care of these points."), val => \$printer->{cupsconfig}{autocorrection} }), ] ) ) { if ($buttonclicked eq "sharehosts") { # Show dialog to add hosts to share printers to my $subdone = 0; my $choice; while (!$subdone) { # Entry should be edited when double-clicked $buttonclicked = "edit"; $in->ask_from_ ( { title => N("Sharing of local printers"), messages => N("These are the machines and networks on which the locally connected printer(s) should be available:"), ok => "", cancel => "", }, # List the hosts [ { val => \$choice, format => \&translate, sort => 0, separator => "####", tree_expanded => 1, quit_if_double_click => 1, allow_empty_list => 1, list => $sharehosts->{list} }, { val => N("Add host/network"), type => 'button', clicked_may_quit => sub { $buttonclicked = "add"; 1; } }, { val => N("Edit selected host/network"), type => 'button', clicked_may_quit => sub { $buttonclicked = "edit"; 1; }, disabled => sub { return ($#{$sharehosts->{list}} < 0); } }, { val => N("Remove selected host/network"), type => 'button', clicked_may_quit => sub { $buttonclicked = "remove"; 1; }, disabled => sub { return ($#{$sharehosts->{list}} < 0); } }, { val => N("Done"), type => 'button', clicked_may_quit => sub { $buttonclicked = ""; $subdone = 1; 1; } }, ] ); if ($buttonclicked eq "add" || $buttonclicked eq "edit") { my ($hostchoice, $ip); if ($buttonclicked eq "add") { # Use first entry as default for a new entry $hostchoice = N("Local network(s)"); } else { if ($sharehosts->{invhash}{$choice} =~ /^\@/) { # Entry to edit is not an IP address $hostchoice = $choice; } else { # Entry is an IP address $hostchoice = N("IP address of host/network:"); $ip = $sharehosts->{invhash}{$choice}; } } my @menu = N("Local network(s)"); my @interfaces = printer::detect::getNetworkInterfaces(); foreach my $interface (@interfaces) { push @menu, N("Interface \"%s\"", $interface); } push @menu, N("IP address of host/network:"); # Show the dialog my $address; my $oldaddress = ($buttonclicked eq "edit" ? $sharehosts->{invhash}{$choice} : ""); if ($in->ask_from_ ( { title => N("Sharing of local printers"), messages => N("Choose the network or host on which the local printers should be made available:"), callbacks => { complete => sub { if ($hostchoice eq N("IP address of host/network:") && $ip =~ /^\s*$/) { $in->ask_warn('', N("Host/network IP address missing.")); return (1,1); } if ($hostchoice eq N("IP address of host/network:") && !printer::main::is_network_ip($ip)) { $in->ask_warn('', N("The entered host/network IP is not correct.\n") . N("Examples for correct IPs:\n") . "192.168.100.194\n" . "10.0.0.*\n" . "10.1.*\n" . "192.168.100.0/24\n" . "192.168.100.0/255.255.255.0\n" ); return (1,1); } if ($hostchoice eq $menu[0]) { $address = "\@LOCAL"; } elsif ($hostchoice eq $menu[-1]) { $address = $ip; } else { ($address) = grep { $hostchoice =~ /$_/ } @interfaces; $address = "\@IF($address)"; } # Check whether item is duplicate if ($address ne $oldaddress && member($address, @{$printer->{cupsconfig}{clientnetworks}})) { $in->ask_warn('', N("This host/network is already in the list, it cannot be added again.\n")); if ($hostchoice eq N("IP address of host/network:")) { return (1,1); } else { return (1,0); } } return 0; }, }, }, # List the host types [ { val => \$hostchoice, format => \&translate, type => 'list', sort => 0, list => \@menu }, { val => \$ip, disabled => sub { $hostchoice ne N("IP address of host/network:"); } }, ], )) { # OK was clicked, insert new item into the list if ($buttonclicked eq "add") { push(@{$printer->{cupsconfig}{clientnetworks}}, $address); } else { @{$printer->{cupsconfig}{clientnetworks}} = map { ($_ eq $sharehosts->{invhash}{$choice} ? $address : $_) } @{$printer->{cupsconfig}{clientnetworks}}; } # Refresh list of hosts $sharehosts = printer::main::makesharehostlist($printer); # We have modified the configuration now $printer->{cupsconfig}{customsharingsetup} = 0; # Position the list cursor on the new/modified # item $choice = $sharehosts->{hash}{$address}; } } elsif ($buttonclicked eq "remove") { @{$printer->{cupsconfig}{clientnetworks}} = grep { $_ ne $sharehosts->{invhash}{$choice} } @{$printer->{cupsconfig}{clientnetworks}}; # Refresh list of hosts $sharehosts = printer::main::makesharehostlist($printer); # We have modified the configuration now $printer->{cupsconfig}{customsharingsetup} = 0; } } # If we have no entry in the list, we do not # share the local printers, mark this if ($#{$printer->{cupsconfig}{clientnetworks}} < 0) { $printer->{cupsconfig}{localprintersshared} = 0; $printer->{cupsconfig}{remotebroadcastsaccepted} = 0; } } elsif ($buttonclicked eq "browsepoll") { # Show dialog to add hosts to "BrowsePoll" from my $subdone = 0; my $choice; while (!$subdone) { # Entry should be edited when double-clicked $buttonclicked = "edit"; $in->ask_from_ ( { title => N("Accessing printers on remote CUPS servers"), messages => N("Add here the CUPS servers whose printers you want to use. You only need to do this if the servers do not broadcast their printer information into the local network."), ok => "", cancel => "", }, # List the hosts [ { val => \$choice, format => \&translate, sort => 0, separator => "####", tree_expanded => 1, quit_if_double_click => 1, allow_empty_list => 1, list => $browsepoll->{list} }, { val => N("Add server"), type => 'button', clicked_may_quit => sub { $buttonclicked = "add"; 1; } }, { val => N("Edit selected server"), type => 'button', clicked_may_quit => sub { $buttonclicked = "edit"; 1; }, disabled => sub { return ($#{$browsepoll->{list}} < 0); } }, { val => N("Remove selected server"), type => 'button', clicked_may_quit => sub { $buttonclicked = "remove"; 1; }, disabled => sub { return ($#{$browsepoll->{list}} < 0); } }, { val => N("Done"), type => 'button', clicked_may_quit => sub { $buttonclicked = ""; $subdone = 1; 1; } }, ] ); if ($buttonclicked eq "add" || $buttonclicked eq "edit") { my ($ip, $port); if ($buttonclicked eq "add") { # Use default port $port = '631'; } else { if ($browsepoll->{invhash}{$choice} =~ /^([^:]+):([^:]+)$/) { # Entry to edit has IP and port $ip = $1; $port = $2; } else { # Entry is only an IP, no port, so take # the default port 631 $ip = $browsepoll->{invhash}{$choice}; $port = '631'; } } # Show the dialog my $address; my $oldaddress = ($buttonclicked eq "edit" ? $browsepoll->{invhash}{$choice} : ""); if ($in->ask_from_ ( { title => N("Accessing printers on remote CUPS servers"), messages => N("Enter IP address and port of the host whose printers you want to use.") . ' ' . N("If no port is given, 631 will be taken as default."), callbacks => { complete => sub { if ($ip =~ /^\s*$/) { $in->ask_warn('', N("Server IP missing!")); return (1,0); } if ($ip !~ /^\s*(\d+\.\d+\.\d+\.\d+)\s*$/) { $in->ask_warn('', N("The entered IP is not correct.\n") . N("Examples for correct IPs:\n") . "192.168.100.194\n" . "10.0.0.2\n" ); return (1,0); } else { $ip = $1; } if ($port !~ /\S/) { $port = '631'; } elsif ($port !~ /^\s*(\d+)\s*$/) { $in->ask_warn('', N("The port number should be an integer!")); return (1,1); } else { $port = $1; } $address = "$ip:$port"; # Check whether item is duplicate if ($address ne $oldaddress && member($address, @{$printer->{cupsconfig}{BrowsePoll}})) { $in->ask_warn('', N("This server is already in the list, it cannot be added again.\n")); return (1,0); } return 0; }, }, }, # Ask for IP and port [ { val => \$ip, label => N("IP address") }, { val => \$port, label => N("Port") }, ], )) { # OK was clicked, insert new item into the list if ($buttonclicked eq "add") { push(@{$printer->{cupsconfig}{BrowsePoll}}, $address); } else { @{$printer->{cupsconfig}{BrowsePoll}} = map { ($_ eq $browsepoll->{invhash}{$choice} ? $address : $_) } @{$printer->{cupsconfig}{BrowsePoll}}; } # Refresh list of hosts $browsepoll = printer::main::makebrowsepolllist($printer); # Position the list cursor on the new/modified # item $choice = $browsepoll->{hash}{$address}; } } elsif ($buttonclicked eq "remove") { @{$printer->{cupsconfig}{BrowsePoll}} = grep { $_ ne $browsepoll->{invhash}{$choice} } @{$printer->{cupsconfig}{BrowsePoll}}; # Refresh list of hosts $browsepoll = printer::main::makebrowsepolllist($printer); } } } else { # We have clicked "OK" $retvalue = 1; $maindone = 1; # Write state for auto-correction of cupsd.conf if ($oldautocorr != $printer->{cupsconfig}{autocorrection}) { printer::main::set_cups_autoconf ($printer->{cupsconfig}{autocorrection}); } # Write state of japanese text printing mode printer::main::set_jap_textmode($jap_textmode); # Write cupsd.conf printer::main::write_cups_config($printer); my $w = $in->wait_message(N("Printerdrake"), N("Restarting CUPS...")); printer::main::write_cupsd_conf (@{$printer->{cupsconfig}{cupsd_conf}}); undef $w; } } else { # Cancel clicked $maindone = 1; } } printer::main::clean_cups_config($printer); return $retvalue; } sub choose_printer_type { my ($printer, $in) = @_; $printer->{str_type} = $printer_type_inv{$printer->{TYPE}}; my $autodetect = 0; $autodetect = 1 if $printer->{AUTODETECT}; my @printertypes = printer::main::printer_type($printer); $in->ask_from_( { title => N("Select Printer Connection"), messages => N("How is the printer connected?") . if_($printer->{SPOOLER} eq "cups", N(" Printers on remote CUPS servers do not need to be configured here; these printers will be automatically detected.")), }, [ { val => \$printer->{str_type}, list => \@printertypes, not_edit => 1, sort => 0, type => 'list' }, { text => N("Printer auto-detection (Local, TCP/Socket, and SMB printers)"), type => 'bool', val => \$autodetect } ] ) or return 0; $printer->{AUTODETECT} = $autodetect ? 1 : undef; $printer->{TYPE} = $printer_type{$printer->{str_type}}; 1; } sub setup_printer_connection { my ($printer, $in, $upNetwork) = @_; # Choose the appropriate connection config dialog my $done = 1; for ($printer->{TYPE}) { /LOCAL/ and setup_local_autoscan($printer, $in, $upNetwork) and last; /LPD/ and setup_lpd( $printer, $in, $upNetwork) and last; /SOCKET/ and setup_socket( $printer, $in, $upNetwork) and last; /SMB/ and setup_smb( $printer, $in, $upNetwork) and last; /NCP/ and setup_ncp( $printer, $in, $upNetwork) and last; /URI/ and setup_uri( $printer, $in, $upNetwork) and last; /POSTPIPE/ and setup_postpipe( $printer, $in) and last; $done = 0; last; } return $done; } sub first_time_dialog { my ($printer, $in, $upNetwork) = @_; return 1 if printer::default::get_spooler() || $::isInstall; my $w = $in->wait_message(N("Printerdrake"), N("Checking your system...")); # Auto-detect local printers my @autodetected = printer::detect::local_detect(); my $msg = do { if (@autodetected) { my @printerlist = map { my $entry = $_->{val}{DESCRIPTION}; if_($entry, " - $entry\n"); } @autodetected; my $unknown_printers = @autodetected - @printerlist; if (@printerlist) { my $unknown_msg = $unknown_printers == 1 ? "\n" . N("and one unknown printer") : $unknown_printers > 1 ? "\n" . N("and %d unknown printers", $unknown_printers) : ''; my $main_msg = @printerlist > 1 ? N_("The following printers\n\n%s%s\nare directly connected to your system") : $unknown_printers ? N_("The following printer\n\n%s%s\nare directly connected to your system") : N_("The following printer\n\n%s%s\nis directly connected to your system"); sprintf($main_msg, join('', @printerlist), $unknown_msg); } else { $unknown_printers == 1 ? N("\nThere is one unknown printer directly connected to your system") : N("\nThere are %d unknown printers directly connected to your system", $unknown_printers); } } else { N("There are no printers found which are directly connected to your machine"); } }; $msg .= N(" (Make sure that all your printers are connected and turned on).\n"); # Do we have a local network? # If networking is configured, start it, but don't ask the user to # configure networking. my $havelocalnetworks = check_network($printer, $in, $upNetwork, 1) && printer::detect::getIPsInLocalNetworks() != (); # Finish building the dialog text my $question = ($havelocalnetworks ? (@autodetected ? N("Do you want to enable printing on the printers mentioned above or on printers in the local network?\n") : N("Do you want to enable printing on printers in the local network?\n")) : (@autodetected ? N("Do you want to enable printing on the printers mentioned above?\n") : N("Are you sure that you want to set up printing on this machine?\n"))); my $warning = N("NOTE: Depending on the printer model and the printing system up to %d MB of additional software will be installed.", 80); my $dialogtext = "$msg\n$question\n$warning"; # Close wait message undef $w; # Show dialog return $in->ask_yesorno(N("Printerdrake"), $dialogtext, 0); } sub configure_new_printers { my ($printer, $in, $_upNetwork) = @_; # This procedure auto-detects local printers and checks whether # there is already a queue for them. If there is no queue for an # auto-detected printer, a queue gets set up non-interactively. # Experts can have weird things as self-made CUPS backends, so do not # automatically pollute the system with unwished queues in expert # mode return 1 if $printer->{expert}; # Wait message my $w = $in->wait_message(N("Printerdrake"), N("Searching for new printers...")); # When HPOJ is running, it blocks the printer ports on which it is # configured, so we stop it here. If it is not installed or not # configured, this command has no effect. require services; services::stop("hpoj"); # Auto-detect local printers my @autodetected = printer::detect::local_detect(); # We are ready with auto-detection, so we restart HPOJ here. If it # is not installed or not configured, this command has no effect. services::start("hpoj"); # No printer found? So no need of new queues. return 1 if !@autodetected; # Black-list all auto-detected printers for which there is already # a queue my @blacklist; foreach my $queue (keys %{$printer->{configured}}) { # Does the URI of this installed queue match one of the autodetected # printers? my $uri = $printer->{configured}{$queue}{queuedata}{connect}; my $p = printer::main::autodetectionentry_for_uri ($uri, @autodetected); if (defined($p)) { # Blacklist the port push(@blacklist, $p->{port}); } } # Now install queues for all auto-detected printers which have no queue # yet $printer->{noninteractive} = 1; # Suppress all interactive steps my $configapps = 0; foreach my $p (@autodetected) { if (!member($p->{port}, @blacklist)) { # Initialize some variables for queue setup $printer->{NEW} = 1; $printer->{TYPE} = "LOCAL"; $printer->{currentqueue} = { queue => "", foomatic => 0, desc => "", loc => "", make => "", model => "", printer => "", driver => "", connect => "", spooler => $printer->{SPOOLER}, }; # Generate a queue name from manufacturer and model my $queue; my $unknown; if (!$p->{val}{MANUFACTURER} || !$p->{val}{MODEL} || $p->{val}{MODEL} eq N("Unknown Model")) { $queue = N("Printer"); $unknown = 1; } else { my $make = $p->{val}{MANUFACTURER}; if ($p->{val}{SKU}) { $queue = $make . $p->{val}{SKU}; } else { $queue = $make . $p->{val}{MODEL}; } $queue =~ s/series//gi; $queue =~ s/[\s\-,]//g; $queue =~ s/^$make$make/$make/; } # Append a number if the queue name already exists if ($printer->{configured}{$queue}) { $queue =~ s/(\d)$/$1_/; my $i = 1; while ($printer->{configured}{"$queue$i"}) { $i++; } $queue .= $i; } $printer->{currentqueue}{queue} = $queue; undef $w; $w = $in->wait_message(N("Printerdrake"), ($unknown ? N("Configuring printer ...") : N("Configuring printer \"%s\"...", $printer->{currentqueue}{queue}))); # Do configuration of multi-function devices and look up # model name in the printer database setup_common($printer, $in, $p->{val}{DESCRIPTION}, $p->{port}, 1, @autodetected) or next; # Set also OLD_QUEUE field so that the subroutines for the # configuration work correctly. $printer->{OLD_QUEUE} = $printer->{QUEUE} = $printer->{currentqueue}{queue}; # Do the steps of queue setup get_db_entry($printer, $in); # Let the user choose the model manually if it could not be # auto-detected. if (!$printer->{DBENTRY}) { # Set the OLD_CHOICE to a non-existing value $printer->{OLD_CHOICE} = "XXX"; # Set model selection cursor onto the "Raw Printer" entry. $printer->{DBENTRY} = N("Raw printer (No driver)"); # Info about what was detected my $info = N("(") . if_($p->{val}{DESCRIPTION}, $p->{val}{DESCRIPTION} . N(" on ")) . $p->{port} . N(")"); # Remove wait message undef $w; # Choose the printer/driver from the list $printer->{DBENTRY} = $in->ask_from_treelist(N("Printer model selection"), N("Which printer model do you have?") . N(" Printerdrake could not determine which model your printer %s is. Please choose the correct model from the list.", $info) . " " . N("If your printer is not listed, choose a compatible (see printer manual) or a similar one."), '|', [ keys %printer::main::thedb ], $printer->{DBENTRY}) or next; if ($unknown) { # Rename the queue according to the chosen model $queue = $printer->{DBENTRY}; $queue =~ s/\|/ /g; $printer->{currentqueue}{desc} = $queue; $queue =~ s/series//gi; $queue =~ s/[\s\-,]//g; # Append a number if the queue name already exists if ($printer->{configured}{$queue}) { $queue =~ s/(\d)$/$1_/; my $i = 1; while ($printer->{configured}{"$queue$i"}) { $i++; } $queue .= $i; } $printer->{currentqueue}{queue} = $queue; $printer->{QUEUE} = $printer->{currentqueue}{queue}; } # Restore wait message $w = $in->wait_message(N("Printerdrake"), N("Configuring printer \"%s\"...", $printer->{currentqueue}{queue})); } get_printer_info($printer, $in) or next; setup_options($printer, $in) or next; configure_queue($printer, $in) or next; $configapps = 1; # If there is no default printer set, let this one get the # default if (!$printer->{DEFAULT}) { $printer->{DEFAULT} = $printer->{QUEUE}; printer::default::set_printer($printer); } } # Delete some variables foreach (qw(OLD_QUEUE QUEUE TYPE str_type DBENTRY ARGS OLD_CHOICE)) { $printer->{$_} = ""; } $printer->{currentqueue} = {}; $printer->{complete} = 0; } # Configure the current printer queues in applications undef $w; if ($configapps) { $w = $in->wait_message(N("Printerdrake"), N("Configuring applications...")); printer::main::configureapplications($printer); undef $w; } undef $printer->{noninteractive}; } sub wizard_welcome { my ($printer, $in, $upNetwork) = @_; my $ret; my $autodetectlocal = 0; my $autodetectnetwork = 0; my $autodetectsmb = 0; # If networking is configured, start it, but don't ask the user to # configure networking. my $havelocalnetworks; if ($printer->{expert}) { $havelocalnetworks = 0; undef $printer->{AUTODETECTNETWORK}; undef $printer->{AUTODETECTSMB}; } else { $havelocalnetworks = check_network($printer, $in, $upNetwork, 1) && printer::detect::getIPsInLocalNetworks() != (); if (!$havelocalnetworks) { undef $printer->{AUTODETECTNETWORK}; undef $printer->{AUTODETECTSMB}; } $autodetectlocal = 1 if $printer->{AUTODETECTLOCAL}; $autodetectnetwork = 1 if $printer->{AUTODETECTNETWORK}; $autodetectsmb = 1 if $printer->{AUTODETECTSMB}; } if ($in) { eval { if ($printer->{expert}) { if ($::isWizard) { $ret = $in->ask_okcancel( N("Add a new printer"), N(" Welcome to the Printer Setup Wizard This wizard allows you to install local or remote printers to be used from this machine and also from other machines in the network. 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.")); } else { $ret = 1; } } else { $ret = $in->ask_from_( { title => N("Add a new printer"), messages => ($printer->{SPOOLER} ne "pdq" ? ($havelocalnetworks ? N(" Welcome to the Printer Setup Wizard 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. 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. 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't need it. Click on \"Next\" when you are ready, and on \"Cancel\" if you do not want to set up your printer(s) now.") : N(" Welcome to the Printer Setup Wizard This wizard will help you to install your printer(s) connected to this computer. Please plug in and turn on all printers connected to this machine so that it/they can be auto-detected. Click on \"Next\" when you are ready, and on \"Cancel\" if you do not want to set up your printer(s) now.")) : ($havelocalnetworks ? N(" Welcome to the Printer Setup Wizard This wizard will help you to install your printer(s) connected to this computer or connected directly to the network. 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. 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't need it. Click on \"Next\" when you are ready, and on \"Cancel\" if you do not want to set up your printer(s) now.") : N(" Welcome to the Printer Setup Wizard This wizard will help you to install your printer(s) connected to this computer. 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. Click on \"Next\" when you are ready, and on \"Cancel\" if you do not want to set up your printer(s) now."))) }, [ { text => N("Auto-detect printers connected to this machine"), type => 'bool', val => \$autodetectlocal }, if_($havelocalnetworks, { text => N("Auto-detect printers connected directly to the local network"), type => 'bool', val => \$autodetectnetwork }, if_($printer->{SPOOLER} ne "pdq", { text => N("Auto-detect printers connected to machines running Microsoft Windows"), type => 'bool', val => \$autodetectsmb })), ]); $printer->{AUTODETECTLOCAL} = $autodetectlocal ? 1 : undef; $printer->{AUTODETECTNETWORK} = $autodetectnetwork ? 1 : undef; $printer->{AUTODETECTSMB} = $autodetectsmb && $printer->{SPOOLER} ne "pdq" ? 1 : undef; } }; return $@ =~ /wizcancel/ ? 0 : $ret; } } sub wizard_congratulations { my ($in) = @_; if ($in) { $in->ask_okcancel(N("Add a new printer"), N(" Congratulations, your printer is now installed and configured! You can print using the \"Print\" command of your application (usually in the \"File\" menu). 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 \"Printer\" in the \"Hardware\" section of the Mandrake Control Center.")) } } sub setup_local_autoscan { my ($printer, $in, $upNetwork) = @_; my $queue = $printer->{OLD_QUEUE}; my $expert_or_modify = $printer->{expert} || !$printer->{NEW}; my $do_auto_detect = ($expert_or_modify && $printer->{AUTODETECT} || (!$expert_or_modify && ($printer->{AUTODETECTLOCAL} || $printer->{AUTODETECTNETWORK} || $printer->{AUTODETECTSMB}))); # If the user requested auto-detection of remote printers, check # whether the network functionality is configured and running if ($printer->{AUTODETECTNETWORK} || $printer->{AUTODETECTSMB}) { return 0 unless check_network($printer, $in, $upNetwork, 0); } my @autodetected; my $menuentries = {}; # $in->set_help('setupLocal') if $::isInstall; if ($do_auto_detect) { if (!$::testing && !$expert_or_modify && $printer->{AUTODETECTSMB} && !files_exist('/usr/bin/smbclient')) { $in->do_pkgs->install('samba-client'); } my $_w = $in->wait_message(N("Printer auto-detection"), N("Detecting devices...")); # When HPOJ is running, it blocks the printer ports on which it is # configured, so we stop it here. If it is not installed or not # configured, this command has no effect. require services; services::stop("hpoj"); @autodetected = ( $expert_or_modify || $printer->{AUTODETECTLOCAL} ? printer::detect::local_detect() : (), !$expert_or_modify ? printer::detect::whatNetPrinter($printer->{AUTODETECTNETWORK}, $printer->{AUTODETECTSMB}) : (), ); # We have more than one printer, so we must ask the user for a queue # name in the fully automatic printer configuration. $printer->{MORETHANONE} = $#autodetected > 0; my @str; foreach my $p (@autodetected) { if ($p->{val}{DESCRIPTION}) { my $menustr = $p->{val}{DESCRIPTION}; if ($p->{port} =~ m!^/dev/lp(\d+)$!) { $menustr .= N(" on parallel port #%s", $1); } elsif ($p->{port} =~ m!^/dev/usb/lp(\d+)$!) { $menustr .= N(", USB printer #%s", $1); } elsif ($p->{port} =~ m!^socket://([^:]+):(\d+)$!) { $menustr .= N(", network printer \"%s\", port %s", $1, $2); } elsif ($p->{port} =~ m!^smb://([^/:]+)/([^/:]+)$!) { $menustr .= N(", printer \"%s\" on SMB/Windows server \"%s\"", $2, $1); } $menustr .= " ($p->{port})" if $printer->{expert}; $menuentries->{$menustr} = $p->{port}; push @str, N("Detected %s", $menustr); } else { my $menustr; if ($p->{port} =~ m!^/dev/lp(\d+)$!) { $menustr = N("Printer on parallel port #%s", $1); } elsif ($p->{port} =~ m!^/dev/usb/lp(\d+)$!) { $menustr = N("USB printer #%s", $1); } elsif ($p->{port} =~ m!^socket://([^:]+):(\d+)$!) { $menustr .= N("Network printer \"%s\", port %s", $1, $2); } elsif ($p->{port} =~ m!^smb://([^/:]+)/([^/:]+)$!) { $menustr .= N("Printer \"%s\" on SMB/Windows server \"%s\"", $2, $1); } $menustr .= " ($p->{port})" if $printer->{expert}; $menuentries->{$menustr} = $p->{port}; } } my @port; if ($printer->{expert}) { @port = printer::detect::whatPrinterPort(); LOOP: foreach my $q (@port) { if (@str) { foreach my $p (@autodetected) { last LOOP if $p->{port} eq $q; } } my $menustr; if ($q =~ m!^/dev/lp(\d+)$!) { $menustr = N("Printer on parallel port #%s", $1); } elsif ($q =~ m!^/dev/usb/lp(\d+)$!) { $menustr = N("USB printer #%s", $1); } $menustr .= " ($q)" if $printer->{expert}; $menuentries->{$menustr} = $q; } } # We are ready with auto-detection, so we restart HPOJ here. If it # is not installed or not configured, this command has no effect. printer::services::start("hpoj"); } else { # Always ask for queue name in recommended mode when no auto- # detection was done $printer->{MORETHANONE} = $#autodetected > 0; my $m; for ($m = 0; $m <= 2; $m++) { my $menustr = N("Printer on parallel port #%s", $m); $menustr .= " (/dev/lp$m)" if $printer->{expert}; $menuentries->{$menustr} = "/dev/lp$m"; $menustr = N("USB printer #%s", $m); $menustr .= " (/dev/usb/lp$m)" if $printer->{expert}; $menuentries->{$menustr} = "/dev/usb/lp$m"; } } my @menuentrieslist = sort { my @prefixes = ("/dev/lp", "/dev/usb/lp", "/dev/", "socket:", "smb:"); my $first = $menuentries->{$a}; my $second = $menuentries->{$b}; for (my $i = 0; $i <= $#prefixes; $i++) { my $firstinlist = $first =~ m!^$prefixes[$i]!; my $secondinlist = $second =~ m!^$prefixes[$i]!; if ($firstinlist && !$secondinlist) { return -1 }; if ($secondinlist && !$firstinlist) { return 1 }; } return $first cmp $second; } keys(%$menuentries); my $menuchoice = ""; my $oldmenuchoice = ""; my $device; if ($printer->{configured}{$queue}) { my $p = printer::main::autodetectionentry_for_uri ($printer->{currentqueue}{connect}, @autodetected); if (defined($p)) { $device = $p->{port}; $menuchoice = { reverse %$menuentries }->{$device}; } } if ($menuchoice eq "" && @menuentrieslist > -1) { $menuchoice = $menuentrieslist[0]; $oldmenuchoice = $menuchoice; $device = $menuentries->{$menuchoice} if $device eq ""; } if ($in) { # $printer->{expert} or $in->set_help('configurePrinterDev') if $::isInstall; if ($#menuentrieslist < 0) { # No menu entry # auto-detection has failed, we must do all manually $do_auto_detect = 0; $printer->{MANUAL} = 1; if ($printer->{expert}) { $device = $in->ask_from_entry( N("Local Printer"), N("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, ...)."), { complete => sub { if ($menuchoice eq "") { $in->ask_warn('', N("You must enter a device or file name!")); return (1,0); } return 0; } }); return 0 if $device eq ""; } else { $in->ask_warn(N("Printer auto-detection"), N("No printer found!")); return 0; } } else { my $manualconf = 0; $manualconf = 1 if $printer->{MANUAL} || !$do_auto_detect; if (!$in->ask_from_( { title => ($expert_or_modify ? N("Local Printers") : N("Available printers")), messages => (($do_auto_detect ? ($printer->{expert} ? ($#menuentrieslist == 0 ? (N("The following printer was auto-detected. ") . ($printer->{NEW} ? N("If it is not the one you want to configure, enter a device name/file name in the input line") : N("Alternatively, you can specify a device name/file name in the input line"))) : (N("Here is a list of all auto-detected printers. ") . ($printer->{NEW} ? N("Please choose the printer you want to set up or enter a device name/file name in the input line") : N("Please choose the printer to which the print jobs should go or enter a device name/file name in the input line")))) : ($#menuentrieslist == 0 ? (N("The following printer was auto-detected. ") . ($printer->{NEW} ? N("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 \"Manual configuration\".") : N("Currently, no alternative possibility is available"))) : (N("Here is a list of all auto-detected printers. ") . ($printer->{NEW} ? N("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 \"Manual configuration\".") : N("Please choose the printer to which the print jobs should go."))))) : ($printer->{expert} ? N("Please choose the port that your printer is connected to or enter a device name/file name in the input line") : N("Please choose the port that your printer is connected to."))) . if_($printer->{expert}, N(" (Parallel Ports: /dev/lp0, /dev/lp1, ..., equivalent to LPT1:, LPT2:, ..., 1st USB printer: /dev/usb/lp0, 2nd USB printer: /dev/usb/lp1, ...)."))), callbacks => { complete => sub { unless ($menuchoice ne "") { $in->ask_warn('', N("You must choose/enter a printer/device!")); return (1,0); } return 0; }, changed => sub { if ($oldmenuchoice ne $menuchoice) { $device = $menuentries->{$menuchoice}; $oldmenuchoice = $menuchoice; } return 0; } } }, [ if_($printer->{expert}, { val => \$device }), { val => \$menuchoice, list => \@menuentrieslist, not_edit => !$printer->{expert}, format => \&translate, allow_empty_list => 1, type => 'list' }, if_(!$printer->{expert} && $do_auto_detect && $printer->{NEW}, { text => N("Manual configuration"), type => 'bool', val => \$manualconf }), ] )) { return 0; } if ($device ne $menuentries->{$menuchoice}) { $menuchoice = ""; $do_auto_detect = 0; } $printer->{MANUAL} = $manualconf ? 1 : undef; } } #- LPD and LPRng need netcat ('nc') to access to socket printers if (($printer->{SPOOLER} eq 'lpd' || $printer->{SPOOLER} eq 'lprng') && !$::testing && $device =~ /^socket:/ && !files_exist('/usr/bin/nc')) { $in->do_pkgs->install('nc'); } # Do configuration of multi-function devices and look up model name # in the printer database setup_common($printer, $in, $menuchoice, $device, $do_auto_detect, @autodetected); 1; } sub setup_lpd { my ($printer, $in, $upNetwork) = @_; # Check whether the network functionality is configured and # running if (!check_network($printer, $in, $upNetwork, 0)) { return 0 }; # $in->set_help('setupLPD') if $::isInstall; my ($uri, $remotehost, $remotequeue); my $queue = $printer->{OLD_QUEUE}; if ($printer->{configured}{$queue} && $printer->{currentqueue}{connect} =~ m/^lpd:/) { $uri = $printer->{currentqueue}{connect}; if ($uri =~ m!^\s*lpd://([^/]+)/([^/]+)/?\s*$!) { $remotehost = $1; $remotequeue = $2; } } else { $remotehost = ""; $remotequeue = "lp"; } return if !$in->ask_from(N("Remote lpd Printer Options"), N("To use a remote lpd printer, you need to supply the hostname of the printer server and the printer name on that server."), [ { label => N("Remote host name"), val => \$remotehost }, { label => N("Remote printer name"), val => \$remotequeue } ], complete => sub { if ($remotehost eq "") { $in->ask_warn('', N("Remote host name missing!")); return (1,0); } if ($remotequeue eq "") { $in->ask_warn('', N("Remote printer name missing!")); return (1,1); } return 0; } ); #- make the DeviceURI from user input. $printer->{currentqueue}{connect} = "lpd://$remotehost/$remotequeue"; #- LPD does not support filtered queues to a remote LPD server by itself #- It needs an additional program as "rlpr" if ($printer->{SPOOLER} eq 'lpd' && !$::testing && !files_exist('/usr/bin/rlpr')) { $in->do_pkgs->install('rlpr'); } # Auto-detect printer model (works if host is an ethernet-connected # printer) my $modelinfo = printer::detect::getSNMPModel($remotehost); my $auto_hpoj; if (defined($modelinfo) && $modelinfo->{MANUFACTURER} ne "" && $modelinfo->{MODEL} ne "") { $in->ask_warn('', N("Detected model: %s %s", $modelinfo->{MANUFACTURER}, $modelinfo->{MODEL})); $auto_hpoj = 1; } else { $auto_hpoj = 0; } # Do configuration of multi-function devices and look up model name # in the printer database setup_common($printer, $in, "$modelinfo->{MANUFACTURER} $modelinfo->{MODEL}", $printer->{currentqueue}{connect}, $auto_hpoj, ({port => $printer->{currentqueue}{connect}, val => $modelinfo })); 1; } sub setup_smb { my ($printer, $in, $upNetwork) = @_; # Check whether the network functionality is configured and # running if (!check_network($printer, $in, $upNetwork, 0)) { return 0 }; # $in->set_help('setupSMB') if $::isInstall; my ($uri, $smbuser, $smbpassword, $workgroup, $smbserver, $smbserverip, $smbshare); my $queue = $printer->{OLD_QUEUE}; if ($printer->{configured}{$queue} && $printer->{currentqueue}{connect} =~ m/^smb:/) { $uri = $printer->{currentqueue}{connect}; my $parameters = $1 if $uri =~ m!^\s*smb://(.*)$!; # Get the user's login and password from the URI if ($parameters =~ m!([^@]*)@([^@]+)!) { my $login = $1; $parameters = $2; if ($login =~ m!([^:]*):([^:]*)!) { $smbuser = $1; $smbpassword = $2; } else { $smbuser = $login; $smbpassword = ""; } } else { $smbuser = ""; $smbpassword = ""; } # Get the workgroup, server, and share name if ($parameters =~ m!([^/]*)/([^/]+)/([^/]+)$!) { $workgroup = $1; $smbserver = $2; $smbshare = $3; } elsif ($parameters =~ m!([^/]+)/([^/]+)$!) { $workgroup = ""; $smbserver = $1; $smbshare = $2; } else { die "The \"smb://\" URI must at least contain the server name and the share name!\n"; } if (network::is_ip($smbserver)) { $smbserverip = $smbserver; $smbserver = ""; } } my $autodetect = 0; my @autodetected; my $menuentries; my @menuentrieslist; my $menuchoice = ""; my $oldmenuchoice = ""; if ($printer->{AUTODETECT}) { $autodetect = 1; if (!$::testing && !files_exist('/usr/bin/smbclient')) { $in->do_pkgs->install('samba-client'); } my $_w = $in->wait_message(N("Printer auto-detection"), N("Scanning network...")); @autodetected = printer::detect::net_smb_detect(); my ($server, $share); foreach my $p (@autodetected) { my $menustr; if ($p->{port} =~ m!^smb://([^/:]+)/([^/:]+)$!) { $server = $1; $share = $2; } if ($p->{val}{DESCRIPTION}) { $menustr = $p->{val}{DESCRIPTION}; $menustr .= N(", printer \"%s\" on server \"%s\"", $share, $server); } else { $menustr = N("Printer \"%s\" on server \"%s\"", $share, $server); } $menuentries->{$menustr} = $p->{port}; if ($server eq $smbserver && $share eq $smbshare) { $menuchoice = $menustr; } } @menuentrieslist = sort { $menuentries->{$a} cmp $menuentries->{$b}; } keys(%$menuentries); if ($printer->{configured}{$queue} && $printer->{currentqueue}{connect} =~ m/^smb:/ && $menuchoice eq "") { my $menustr; if ($printer->{currentqueue}{make}) { $menustr = "$printer->{currentqueue}{make} $printer->{currentqueue}{model}"; $menustr .= N(", printer \"%s\" on server \"%s\"", $smbshare, $smbserver); } else { $menustr = N("Printer \"%s\" on server \"%s\"", $smbshare, $smbserver); } $menuentries->{$menustr} = "smb://$smbserver/$smbshare"; unshift(@menuentrieslist, $menustr); $menuchoice = $menustr; } if ($#menuentrieslist < 0) { $autodetect = 0; } elsif ($menuchoice eq "") { $menuchoice = $menuentrieslist[0]; if ($menuentries->{$menuentrieslist[0]} =~ m!^smb://([^/:]+)/([^/:]+)$!) { $smbserver = $1; $smbshare = $2; } } $oldmenuchoice = $menuchoice; } return 0 if !$in->ask_from( N("SMB (Windows 9x/NT) Printer Options"), N("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.") . ($autodetect ? N(" If the desired printer was auto-detected, simply choose it from the list and then add user name, password, and/or workgroup if needed.") : ""), [ { label => N("SMB server host"), val => \$smbserver }, { label => N("SMB server IP"), val => \$smbserverip }, { label => N("Share name"), val => \$smbshare }, { label => N("User name"), val => \$smbuser }, { label => N("Password"), val => \$smbpassword, hidden => 1 }, { label => N("Workgroup"), val => \$workgroup }, if_($autodetect, { label => N("Auto-detected"), val => \$menuchoice, list => \@menuentrieslist, not_edit => 1, format => \&translate, sort => 0, allow_empty_list => 1, type => 'combo' }) ], complete => sub { if (!network::is_ip($smbserverip) && $smbserverip ne "") { $in->ask_warn('', N("IP address should be in format 1.2.3.4")); return (1,1); } if ($smbserver eq "" && $smbserverip eq "") { $in->ask_warn('', N("Either the server name or the server's IP must be given!")); return (1,0); } if ($smbshare eq "") { $in->ask_warn('', N("Samba share name missing!")); return (1,2); } if ($smbpassword ne "") { local $::isWizard = 0; my $yes = $in->ask_yesorno( N("SECURITY WARNING!"), N("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 \"ps auxwww\". 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): Use a password-less account on your Windows server, as the \"GUEST\" account or a special account dedicated for printing. Do not remove the password protection from a personal account or the administrator account. Set up your Windows server to make the printer available under the LPD protocol. Then set up printing from this machine with the \"%s\" connection type in Printerdrake. ", N("Printer on remote lpd server")) . ($printer->{expert} ? N("Set up your Windows server to make the printer available under the IPP protocol and set up printing from this machine with the \"%s\" connection type in Printerdrake. ", N("Enter a printer device URI")) : "") . N("Connect your printer to a Linux server and let your Windows machine(s) connect to it as a client. Do you really want to continue setting up this printer as you are doing now?"), 0); return 0 if $yes; return (1,2); } return 0; }, changed => sub { return 0 if !$autodetect; if ($oldmenuchoice ne $menuchoice) { if ($menuentries->{$menuchoice} =~ m!^smb://([^/:]+)/([^/:]+)$!) { $smbserver = $1; $smbshare = $2; } $oldmenuchoice = $menuchoice; } return 0; } ); #- make the DeviceURI from, try to probe for available variable to #- build a suitable URI. $printer->{currentqueue}{connect} = join '', ("smb://", ($smbuser && ($smbuser . ($smbpassword && ":$smbpassword") . '@')), ($workgroup && "$workgroup/"), ($smbserver || $smbserverip), "/$smbshare"); if (!$::testing && !files_exist('/usr/bin/smbclient')) { $in->do_pkgs->install('samba-client'); } $printer->{SPOOLER} eq 'cups' and printer::main::restart_queue($printer); 1; } sub setup_ncp { my ($printer, $in, $upNetwork) = @_; # Check whether the network functionality is configured and # running if (!check_network($printer, $in, $upNetwork, 0)) { return 0 }; # $in->set_help('setupNCP') if $::isInstall; my ($uri, $ncpuser, $ncppassword, $ncpserver, $ncpqueue); my $queue = $printer->{OLD_QUEUE}; if ($printer->{configured}{$queue} && $printer->{currentqueue}{connect} =~ m/^ncp:/) { $uri = $printer->{currentqueue}{connect}; my $parameters = $uri =~ m!^\s*ncp://(.*)$!; # Get the user's login and password from the URI if ($parameters =~ m!([^@]*)@([^@]+)!) { my $login = $1; $parameters = $2; if ($login =~ m!([^:]*):([^:]*)!) { $ncpuser = $1; $ncppassword = $2; } else { $ncpuser = $login; $ncppassword = ""; } } else { $ncpuser = ""; $ncppassword = ""; } # Get the workgroup, server, and share name if ($parameters =~ m!([^/]+)/([^/]+)$!) { $ncpserver = $1; $ncpqueue = $2; } else { die "The \"ncp://\" URI must at least contain the server name and the share name!\n"; } } return 0 if !$in->ask_from(N("NetWare Printer Options"), N("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."), [ { label => N("Printer Server"), val => \$ncpserver }, { label => N("Print Queue Name"), val => \$ncpqueue }, { label => N("User name"), val => \$ncpuser }, { label => N("Password"), val => \$ncppassword, hidden => 1 } ], complete => sub { unless ($ncpserver ne "") { $in->ask_warn('', N("NCP server name missing!")); return (1,0); } unless ($ncpqueue ne "") { $in->ask_warn('', N("NCP queue name missing!")); return (1,1); } return 0; } ); # Generate the Foomatic URI $printer->{currentqueue}{connect} = join '', ("ncp://", ($ncpuser && ($ncpuser . ($ncppassword && ":$ncppassword") . '@')), "$ncpserver/$ncpqueue"); $in->do_pkgs->install('ncpfs') if !$::testing && !files_exist('/usr/bin/nprint'); 1; } sub setup_socket { my ($printer, $in, $upNetwork) = @_; # Check whether the network functionality is configured and # running if (!check_network($printer, $in, $upNetwork, 0)) { return 0 }; # $in->set_help('setupSocket') if $::isInstall; my ($uri, $remotehost, $remoteport); my $queue = $printer->{OLD_QUEUE}; if ($printer->{configured}{$queue} && $printer->{currentqueue}{connect} =~ m!^(socket:|ptal://?hpjd:)!) { $uri = $printer->{currentqueue}{connect}; if ($uri =~ m!^ptal:!) { if ($uri =~ m!^ptal://?hpjd:([^/:]+):([0-9]+)/?\s*$!) { my $ptalport = $2 - 9100; ($remotehost, $remoteport) = ($1, $ptalport); } elsif ($uri =~ m!^ptal://?hpjd:([^/:]+)\s*$!) { ($remotehost, $remoteport) = ($1, 9100); } } else { ($remotehost, $remoteport) = $uri =~ m!^\s*socket://([^/:]+):([0-9]+)/?\s*$!; } } else { $remotehost = ""; $remoteport = "9100"; } my $autodetect = 0; my @autodetected; my $menuentries; my @menuentrieslist; my $menuchoice = ""; my $oldmenuchoice = ""; if ($printer->{AUTODETECT}) { $autodetect = 1; my $_w = $in->wait_message(N("Printer auto-detection"), N("Scanning network...")); @autodetected = printer::detect::net_detect(); my ($host, $port); foreach my $p (@autodetected) { my $menustr; if ($p->{port} =~ m!^socket://([^:]+):(\d+)$!) { $host = $1; $port = $2; } if ($p->{val}{DESCRIPTION}) { $menustr = $p->{val}{DESCRIPTION}; $menustr .= N(", host \"%s\", port %s", $host, $port); } else { $menustr = N("Host \"%s\", port %s", $host, $port); } $menuentries->{$menustr} = $p->{port}; if ($host eq $remotehost && $host eq $remotehost) { $menuchoice = $menustr; } } @menuentrieslist = sort { $menuentries->{$a} cmp $menuentries->{$b}; } keys(%$menuentries); if ($printer->{configured}{$queue} && $printer->{currentqueue}{connect} =~ m!^(socket:|ptal://?hpjd:)! && $menuchoice eq "") { my $menustr; if ($printer->{currentqueue}{make}) { $menustr = "$printer->{currentqueue}{make} $printer->{currentqueue}{model}"; $menustr .= N(", host \"%s\", port %s", $remotehost, $remoteport); } else { $menustr = N("Host \"%s\", port %s", $remotehost, $remoteport); } $menuentries->{$menustr} = "socket://$remotehost:$remoteport"; unshift(@menuentrieslist, $menustr); $menuchoice = $menustr; } if ($#menuentrieslist < 0) { $autodetect = 0; } elsif ($menuchoice eq "") { $menuchoice = $menuentrieslist[0]; if ($menuentries->{$menuentrieslist[0]} =~ m!^socket://([^:]+):(\d+)$!) { $remotehost = $1; $remoteport = $2; } } $oldmenuchoice = $menuchoice; } return 0 if !$in->ask_from_( { title => N("TCP/Socket Printer Options"), messages => ($autodetect ? N("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.") :