blob: 784cfbb8d3c783d36858dcfb642a2aab445d0e06 (plain)

ofs	hex dump	ascii
0000	23 21 2f 75 73 72 2f 62 69 6e 2f 70 65 72 6c 0a 23 0a 23 20 43 6f 70 79 72 69 67 68 74 20 28 43	#!/usr/bin/perl.#.#.Copyright.(C
0020	29 20 32 30 30 31 20 62 79 20 53 65 62 61 73 74 69 65 6e 20 44 55 50 4f 4e 54 20 3c 73 64 75 70	).2001.by.Sebastien.DUPONT.<sdup
0040	6f 6e 74 40 6d 61 6e 64 72 61 6b 65 73 6f 66 74 2e 63 6f 6d 3e 0a 23 20 52 65 64 69 73 74 72 69	ont@mandrakesoft.com>.#.Redistri
0060	62 75 74 69 6f 6e 20 6f 66 20 74 68 69 73 20 66 69 6c 65 20 69 73 20 70 65 72 6d 69 74 74 65 64	bution.of.this.file.is.permitted
0080	20 75 6e 64 65 72 20 74 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65 20 47 4e 55 0a 23 20 50 75	.under.the.terms.of.the.GNU.#.Pu
00a0	62 6c 69 63 20 4c 69 63 65 6e 73 65 20 28 47 50 4c 29 0a 23 23 20 64 65 73 63 72 69 70 74 69 6f	blic.License.(GPL).##.descriptio
00c0	6e 3a 0a 23 0a 23 20 20 44 72 61 6b 62 61 63 75 70 20 69 73 20 75 73 65 20 74 6f 20 62 61 63 6b	n:.#.#..Drakbacup.is.use.to.back
00e0	75 70 20 73 79 73 74 65 6d 20 66 69 6c 65 73 20 61 6e 64 20 75 73 65 72 20 66 69 6c 65 73 0a 23	up.system.files.and.user.files.#
0100	20 20 44 72 61 6b 62 61 63 75 70 20 61 6c 6c 6f 77 20 74 6f 20 72 65 73 74 6f 72 65 20 74 68 65	..Drakbacup.allow.to.restore.the
0120	20 73 79 73 74 65 6d 20 28 65 74 63 2c 20 76 61 72 20 66 69 6c 65 73 29 0a 23 20 20 66 72 6f 6d	.system.(etc,.var.files).#..from
0140	20 73 74 61 72 75 70 20 6f 72 20 6f 6e 20 64 72 61 6b 63 6f 6e 66 20 75 74 69 6c 69 74 79 2e 0a	.starup.or.on.drakconf.utility..
0160	23 0a 23 62 61 63 6b 75 70 20 6e 61 6d 65 20 66 6f 72 6d 61 74 3a 20 61 6c 6c 20 74 68 65 20 74	#.#backup.name.format:.all.the.t
0180	69 6d 65 20 66 72 6f 6d 20 74 68 65 20 2f 0a 23 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	ime.from.the./.#................
01a0	20 20 20 20 62 61 63 6b 75 70 5f 73 79 73 5f 31 32 31 30 32 30 30 31 2e 74 61 72 2e 67 7a 20 20	....backup_sys_12102001.tar.gz..
01c0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 3e 20 64 65 66 61 75 6c 74 20 73 79 73	..................->.default.sys
01e0	74 65 6d 20 62 61 63 6b 75 70 0a 23 09 09 20 20 20 20 20 62 61 63 6b 75 70 5f 73 79 73 5f 65 74	tem.backup.#.......backup_sys_et
0200	63 5f 76 61 72 5f 70 72 6f 63 5f 31 32 31 30 32 30 30 31 2e 74 61 72 2e 67 7a 20 20 20 20 20 20	c_var_proc_12102001.tar.gz......
0220	20 2d 3e 20 73 70 65 63 69 66 69 63 20 73 79 73 74 65 6d 20 64 69 72 65 63 74 6f 72 69 65 73 0a	.->.specific.system.directories.
0240	23 09 09 20 20 20 20 20 62 61 63 6b 75 70 5f 75 73 65 72 5f 6a 61 6d 65 73 5f 31 32 31 30 32 30	#.......backup_user_james_121020
0260	30 31 2e 74 61 72 2e 67 7a 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 3e 20 64 65 66 61 75 6c 74	01.tar.gz.............->.default
0280	20 75 73 65 72 20 62 61 63 6b 75 70 0a 23 09 09 20 20 20 20 20 62 61 63 6b 75 70 5f 75 73 65 72	.user.backup.#.......backup_user
02a0	5f 6a 61 6d 65 73 5f 64 6f 63 75 6d 65 6e 74 73 5f 31 32 31 30 32 30 30 31 2e 74 61 72 2e 67 7a	_james_documents_12102001.tar.gz
02c0	20 20 20 2d 3e 20 73 70 65 63 69 66 69 63 20 75 73 65 72 20 64 69 72 65 63 74 6f 72 69 65 73 0a	...->.specific.user.directories.
02e0	23 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 61 63 6b 75 70 5f 6f 74 68 65	#....................backup_othe
0300	72 5f 70 72 6f 63 5f 31 32 31 30 32 30 30 31 2e 74 61 72 2e 67 7a 20 20 20 20 20 20 20 20 20 20	r_proc_12102001.tar.gz..........
0320	20 20 20 2d 3e 20 73 70 65 63 69 66 69 63 20 6f 74 68 65 72 20 64 69 72 65 63 74 6f 72 69 65 73	...->.specific.other.directories
0340	0a 23 0a 23 20 62 61 63 6b 75 70 20 6e 61 6d 65 20 72 75 6c 65 73 3a 20 73 79 73 74 65 6d 3a 20	.#.#.backup.name.rules:.system:.
0360	62 65 67 69 6e 20 62 79 20 73 79 73 0a 23 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	begin.by.sys.#..................
0380	20 20 75 73 65 72 3a 20 20 20 62 65 67 69 6e 20 62 79 20 75 73 65 72 0a 23 20 20 20 20 20 20 20	..user:...begin.by.user.#.......
03a0	20 20 20 20 20 20 20 20 20 20 20 20 20 6f 74 68 65 72 3a 20 20 20 62 65 67 69 6e 20 62 79 20 6f	.............other:...begin.by.o
03c0	74 68 65 72 0a 23 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 6f 66	ther.#....................end.of
03e0	20 61 6c 6c 20 60 64 61 74 65 60 2e 74 61 72 2e 67 7a 0a 23 0a 23 20 73 65 65 6d 73 20 74 6f 20	.all.`date`.tar.gz.#.#.seems.to.
0400	62 65 20 67 6f 6f 64 20 69 64 65 61 20 74 6f 20 68 61 76 65 20 61 20 74 78 74 20 66 69 6c 65 20	be.good.idea.to.have.a.txt.file.
0420	77 68 65 72 65 20 75 73 65 72 20 65 78 70 6c 61 69 6e 20 74 68 65 20 64 69 66 66 65 72 65 6e 63	where.user.explain.the.differenc
0440	65 73 0a 23 20 62 65 74 77 65 65 6e 20 61 6c 6c 20 74 68 65 20 62 61 63 6b 75 70 0a 23 0a 23 20	es.#.between.all.the.backup.#.#.
0460	73 61 76 65 20 6f 6e 6c 79 20 74 68 65 20 64 69 66 66 65 72 65 6e 63 65 73 2e 2e 2e 0a 23 20 66	save.only.the.differences....#.f
0480	69 6e 64 20 2f 20 2d 6d 74 69 6d 65 20 2d 31 20 5c 21 20 2d 74 79 70 65 20 64 20 2d 70 72 69 6e	ind./.-mtime.-1.\!.-type.d.-prin
04a0	74 20 3e 20 2f 74 6d 70 2f 6c 69 73 74 65 2e 6a 6f 75 72 0a 23 0a 23 20 62 75 69 6c 64 20 69 73	t.>./tmp/liste.jour.#.#.build.is
04c0	6f 20 66 73 20 77 69 74 68 20 72 65 73 63 75 65 2e 0a 23 0a 23 20 63 6f 6e 66 69 67 75 72 61 74	o.fs.with.rescue..#.#.configurat
04e0	69 6f 6e 20 66 69 6c 65 20 6f 6e 20 2f 65 74 63 2f 64 72 61 6b 63 6f 6e 66 2f 64 72 61 6b 62 61	ion.file.on./etc/drakconf/drakba
0500	63 6b 75 70 2f 64 72 61 6b 62 61 6b 75 70 2e 63 6f 6e 66 0a 23 0a 0a 75 73 65 20 47 74 6b 3b 0a	ckup/drakbakup.conf.#..use.Gtk;.
0520	75 73 65 20 6c 69 62 20 71 77 28 2f 75 73 72 2f 6c 69 62 2f 6c 69 62 44 72 61 6b 58 29 3b 0a 75	use.lib.qw(/usr/lib/libDrakX);.u
0540	73 65 20 69 6e 74 65 72 61 63 74 69 76 65 3b 0a 75 73 65 20 73 74 61 6e 64 61 6c 6f 6e 65 3b 0a	se.interactive;.use.standalone;.
0560	75 73 65 20 6d 79 5f 67 74 6b 20 71 77 28 3a 68 65 6c 70 65 72 73 20 3a 77 72 61 70 70 65 72 73	use.my_gtk.qw(:helpers.:wrappers
0580	29 3b 0a 75 73 65 20 63 6f 6d 6d 6f 6e 3b 0a 75 73 65 20 73 74 72 69 63 74 3b 0a 0a 0a 69 66 20	);.use.common;.use.strict;...if.
05a0	28 22 40 41 52 47 56 22 20 3d 7e 20 2f 2d 2d 68 65 6c 70 7c 2d 68 2f 29 20 7b 0a 20 20 20 20 70	("@ARGV".=~./--help|-h/).{.....p
05c0	72 69 6e 74 20 71 28 42 61 63 6b 75 70 20 61 6e 64 20 6d 6f 6e 69 74 6f 72 69 6e 67 20 61 70 70	rint.q(Backup.and.monitoring.app
05e0	6c 69 63 61 74 69 6f 6e 0a 0a 2d 2d 6c 69 73 74 20 20 20 20 20 20 20 20 20 20 20 3a 20 6c 69 73	lication..--list...........:.lis
0600	74 20 6f 66 20 66 69 6c 65 73 20 6f 72 20 64 69 72 65 63 74 6f 72 69 65 73 20 74 6f 20 62 61 63	t.of.files.or.directories.to.bac
0620	6b 75 70 2e 0a 2d 2d 64 65 66 61 75 6c 74 20 20 20 20 20 20 20 20 3a 20 73 61 76 65 20 64 65 66	kup..--default........:.save.def
0640	61 75 6c 74 20 64 69 72 65 63 74 6f 72 69 65 73 2e 0a 2d 2d 62 75 69 6c 64 5f 63 64 20 20 20 20	ault.directories..--build_cd....
0660	20 20 20 3a 20 62 75 69 6c 64 20 72 65 73 74 6f 72 65 20 69 73 6f 20 77 69 74 68 20 74 68 65 20	...:.build.restore.iso.with.the.
0680	63 75 72 72 65 6e 74 73 20 62 61 63 6b 75 70 73 20 66 69 6c 65 73 0a 20 20 20 20 20 20 20 20 20	currents.backups.files..........
06a0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 20 72 65 73 63 75 65 20 6f 70 74 69 6f 6e 73 2e 0a	..............&.rescue.options..
06c0	2d 2d 62 75 69 6c 64 5f 66 6c 6f 70 70 79 20 20 20 3a 20 62 75 69 6c 64 20 72 65 73 74 6f 72 65	--build_floppy...:.build.restore
06e0	20 66 6c 6f 70 70 79 2e 0a 2d 2d 75 70 64 61 74 65 20 20 20 20 20 20 20 20 20 3a 20 64 6f 6e 20	.floppy..--update.........:.don.
0700	74 20 72 65 70 6c 61 63 65 20 74 68 65 20 6f 6c 64 20 62 61 63 6b 75 70 2c 20 6f 6e 6c 79 20 75	t.replace.the.old.backup,.only.u
0720	70 64 61 74 65 20 69 74 2e 20 0a 2d 2d 72 65 70 6c 61 63 65 20 20 20 20 20 20 20 20 3a 20 64 65	pdate.it...--replace........:.de
0740	6c 65 74 65 20 62 61 63 6b 75 70 20 66 69 6c 65 73 20 62 65 66 6f 72 65 20 62 75 69 6c 64 20 6e	lete.backup.files.before.build.n
0760	65 77 2e 0a 2d 2d 73 61 76 65 5f 64 69 72 20 20 20 20 20 20 20 3a 20 62 79 20 64 65 66 61 75 6c	ew..--save_dir.......:.by.defaul
0780	74 20 74 68 65 20 62 61 63 6b 75 70 20 66 69 6c 65 73 20 61 72 65 20 73 61 76 65 64 20 69 6e 20	t.the.backup.files.are.saved.in.
07a0	0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 20 2f 76 61 72 2f	........................in./var/
07c0	62 61 63 6b 75 70 20 64 69 72 65 63 74 6f 72 79 20 73 6f 20 77 72 69 74 65 20 6f 74 68 65 72 20	backup.directory.so.write.other.
07e0	64 69 72 65 63 74 6f 72 79 0a 09 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 6f 20 63 68 61	directory.................to.cha
0800	6e 67 65 20 74 6f 20 63 68 61 6e 67 65 20 69 74 2e 0a 2d 2d 63 6f 6e 66 5f 66 69 6c 65 20 20 20	nge.to.change.it..--conf_file...
0820	20 20 20 3a 20 74 6f 20 72 65 61 64 20 6f 74 68 65 72 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e	...:.to.read.other.configuration
0840	20 66 69 6c 65 2e 20 0a 29 3b 0a 20 20 20 20 65 78 69 74 28 30 29 3b 0a 7d 0a 0a 23 20 42 61 63	.file...);.....exit(0);.}..#.Bac
0860	6b 65 6e 64 20 4f 70 74 69 6f 6e 73 2e 0a 6d 79 20 24 64 65 66 61 75 6c 74 20 3d 20 30 3b 0a 6d	kend.Options..my.$default.=.0;.m
0880	79 20 24 62 75 69 6c 64 5f 63 64 20 3d 20 30 3b 0a 6d 79 20 24 62 75 69 6c 64 5f 66 6c 6f 70 70	y.$build_cd.=.0;.my.$build_flopp
08a0	79 20 3d 20 30 3b 0a 6d 79 20 24 63 6f 6d 70 5f 6d 6f 64 65 20 3d 20 30 3b 0a 6d 79 20 24 6d 6f	y.=.0;.my.$comp_mode.=.0;.my.$mo
08c0	64 65 20 3d 20 30 3b 0a 6d 79 20 24 72 65 70 6c 61 63 65 20 3d 20 30 3b 0a 6d 79 20 24 75 70 64	de.=.0;.my.$replace.=.0;.my.$upd
08e0	61 74 65 20 3d 20 30 3b 0a 6d 79 20 24 63 6f 6e 66 5f 66 69 6c 65 20 3d 20 30 3b 0a 6d 79 20 40	ate.=.0;.my.$conf_file.=.0;.my.@
0900	6c 69 73 74 5f 61 72 67 20 3d 20 28 29 3b 0a 6d 79 20 40 73 79 73 5f 66 69 6c 65 73 20 3b 0a 6d	list_arg.=.();.my.@sys_files.;.m
0920	79 20 40 68 6f 6d 65 5f 66 69 6c 65 73 3b 0a 6d 79 20 40 6f 74 68 65 72 5f 66 69 6c 65 73 3b 0a	y.@home_files;.my.@other_files;.
0940	6d 79 20 24 73 61 76 65 5f 70 61 74 68 3b 0a 6d 79 20 24 6f 70 74 69 6f 6e 5f 72 65 70 6c 61 63	my.$save_path;.my.$option_replac
0960	65 20 3d 20 30 3b 0a 6d 79 20 24 6f 70 74 69 6f 6e 5f 75 70 64 61 74 65 20 3d 20 30 3b 0a 6d 79	e.=.0;.my.$option_update.=.0;.my
0980	20 24 77 69 6e 64 6f 77 73 20 3d 20 30 3b 0a 6d 79 20 24 63 65 6e 74 72 61 6c 5f 77 69 64 67 65	.$windows.=.0;.my.$central_widge
09a0	74 3b 0a 6d 79 20 24 69 6e 74 65 72 61 63 74 69 76 65 3b 0a 0a 0a 23 20 50 41 54 48 20 20 26 20	t;.my.$interactive;...#.PATH..&.
09c0	47 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 73 2e 0a 6d 79 20 24 63 66 67 5f 66 69 6c 65 20 3d	Global.variables..my.$cfg_file.=
09e0	20 22 2f 65 74 63 2f 64 72 61 6b 63 6f 6e 66 2f 64 72 61 6b 62 61 63 6b 75 70 2f 64 72 61 6b 62	."/etc/drakconf/drakbackup/drakb
0a00	61 63 6b 75 70 2e 63 6f 6e 66 22 3b 0a 0a 0a 0a 66 6f 72 65 61 63 68 20 28 40 41 52 47 56 29 20	ackup.conf";....foreach.(@ARGV).
0a20	7b 0a 20 20 20 20 2f 2d 2d 64 65 66 61 75 6c 74 2f 20 61 6e 64 20 24 64 65 66 61 75 6c 74 20 3d	{...../--default/.and.$default.=
0a40	20 31 2c 20 24 6d 6f 64 65 3d 2d 31 3b 0a 20 20 20 20 2f 2d 2d 62 75 69 6c 64 5f 63 64 2f 20 61	.1,.$mode=-1;...../--build_cd/.a
0a60	6e 64 20 24 62 75 69 6c 64 5f 63 64 20 3d 20 31 2c 20 24 6d 6f 64 65 3d 2d 31 3b 0a 20 20 20 20	nd.$build_cd.=.1,.$mode=-1;.....
0a80	2f 2d 2d 62 75 69 6c 64 5f 66 6c 6f 70 70 79 2f 20 61 6e 64 20 24 62 75 69 6c 64 5f 66 6c 6f 70	/--build_floppy/.and.$build_flop
0aa0	70 79 20 3d 20 31 2c 20 24 6d 6f 64 65 3d 2d 31 3b 0a 20 20 20 20 2f 2d 2d 72 65 70 6c 61 63 65	py.=.1,.$mode=-1;...../--replace
0ac0	7c 2d 72 2f 20 61 6e 64 20 24 72 65 70 6c 61 63 65 20 3d 20 31 2c 20 24 6d 6f 64 65 3d 2d 31 3b	|-r/.and.$replace.=.1,.$mode=-1;
0ae0	0a 20 20 20 20 2f 2d 2d 75 70 64 61 74 65 7c 2d 75 2f 20 61 6e 64 20 24 75 70 64 61 74 65 20 3d	...../--update|-u/.and.$update.=
0b00	20 31 2c 20 24 6d 6f 64 65 3d 2d 31 3b 0a 20 20 20 20 2f 2d 2d 63 6f 6e 66 5f 66 69 6c 65 2f 20	.1,.$mode=-1;...../--conf_file/.
0b20	61 6e 64 20 24 6d 6f 64 65 20 3d 20 30 2c 20 6e 65 78 74 3b 0a 23 20 20 20 20 24 6d 6f 64 65 20	and.$mode.=.0,.next;.#....$mode.
0b40	3d 3d 20 30 20 61 6e 64 20 70 75 73 68 20 24 63 6f 6e 66 5f 66 69 6c 65 2c 20 24 5f 3b 0a 20 20	==.0.and.push.$conf_file,.$_;...
0b60	20 20 2f 2d 2d 6c 69 73 74 2f 20 61 6e 64 20 24 6d 6f 64 65 20 3d 20 31 2c 20 6e 65 78 74 3b 0a	../--list/.and.$mode.=.1,.next;.
0b80	20 20 20 20 24 6d 6f 64 65 20 3d 3d 20 31 20 61 6e 64 20 70 75 73 68 20 40 6c 69 73 74 5f 61 72	....$mode.==.1.and.push.@list_ar
0ba0	67 2c 20 24 5f 3b 0a 7d 0a 0a 73 75 62 20 64 65 62 75 67 20 7b 0a 20 20 20 20 70 72 69 6e 74 20	g,.$_;.}..sub.debug.{.....print.
0bc0	22 53 59 53 5f 46 49 4c 45 53 3a 20 24 5f 20 5c 6e 22 20 66 6f 72 65 61 63 68 20 28 40 73 79 73	"SYS_FILES:.$_.\n".foreach.(@sys
0be0	5f 66 69 6c 65 73 29 3b 0a 20 20 20 20 70 72 69 6e 74 20 22 48 4f 4d 45 5f 46 49 4c 45 53 3a 20	_files);.....print."HOME_FILES:.
0c00	24 5f 20 5c 6e 22 20 66 6f 72 65 61 63 68 20 28 40 68 6f 6d 65 5f 66 69 6c 65 73 29 3b 0a 20 20	$_.\n".foreach.(@home_files);...
0c20	20 20 70 72 69 6e 74 20 22 4f 54 48 45 52 5f 46 49 4c 45 53 3a 20 24 5f 20 5c 6e 22 20 66 6f 72	..print."OTHER_FILES:.$_.\n".for
0c40	65 61 63 68 20 28 40 6f 74 68 65 72 5f 66 69 6c 65 73 29 3b 0a 20 20 20 20 70 72 69 6e 74 20 22	each.(@other_files);.....print."
0c60	50 41 54 48 5f 54 4f 5f 53 41 56 45 3a 20 24 73 61 76 65 5f 70 61 74 68 20 5c 6e 22 3b 0a 20 20	PATH_TO_SAVE:.$save_path.\n";...
0c80	20 20 70 72 69 6e 74 20 22 4f 50 54 49 4f 4e 5f 52 45 50 4c 41 43 45 3a 20 24 6f 70 74 69 6f 6e	..print."OPTION_REPLACE:.$option
0ca0	5f 72 65 70 6c 61 63 65 20 5c 6e 22 3b 0a 20 20 20 20 70 72 69 6e 74 20 22 4f 50 54 49 4f 4e 5f	_replace.\n";.....print."OPTION_
0cc0	55 50 44 41 54 45 3a 20 24 6f 70 74 69 6f 6e 5f 75 70 64 61 74 65 20 5c 6e 22 3b 0a 20 20 20 20	UPDATE:.$option_update.\n";.....
0ce0	70 72 69 6e 74 20 22 4f 50 54 49 4f 4e 5f 43 4f 4d 50 3a 20 24 63 6f 6d 70 5f 6d 6f 64 65 20 5c	print."OPTION_COMP:.$comp_mode.\
0d00	6e 22 3b 0a 7d 0a 0a 0a 6d 79 20 40 78 70 6d 5f 64 61 74 61 20 3d 20 28 20 22 31 36 20 31 36 20	n";.}...my.@xpm_data.=.(."16.16.
0d20	34 20 31 22 2c 0a 09 09 20 22 20 63 20 4e 6f 6e 65 20 73 20 4e 6f 6e 65 22 2c 0a 09 09 20 22 2e	4.1",....".c.None.s.None",....".
0d40	20 20 20 20 20 20 63 20 62 6c 61 63 6b 22 2c 0a 09 09 20 22 58 20 20 20 20 20 20 63 20 23 38 30	......c.black",...."X......c.#80
0d60	38 30 38 30 22 2c 0a 09 09 20 22 6f 20 20 20 20 20 20 63 20 77 68 69 74 65 22 2c 0a 09 09 20 22	8080",...."o......c.white",...."
0d80	20 22 2c 0a 09 09 20 22 20 2e 2e 20 20 20 20 20 20 20 20 20 20 20 20 22 2c 0a 09 09 20 22 20 2e	.",...."...............",...."..
0da0	58 6f 2e 20 20 20 20 2e 2e 2e 20 20 20 20 22 2c 0a 09 09 20 22 20 2e 58 6f 6f 2e 20 2e 2e 6f 6f	Xo............",...."..Xoo....oo
0dc0	2e 20 20 20 20 22 2c 0a 09 09 20 22 20 2e 58 6f 6f 6f 2e 58 6f 6f 6f 2e 2e 2e 20 20 22 2c 0a 09	.....",...."..Xooo.Xooo.....",..
0de0	09 20 22 20 2e 58 6f 6f 6f 2e 6f 6f 6f 6f 2e 58 2e 20 20 22 2c 0a 09 09 20 22 20 2e 58 6f 6f 6f	.."..Xooo.oooo.X...",...."..Xooo
0e00	2e 58 6f 6f 6f 2e 58 2e 20 20 22 2c 0a 09 09 20 22 20 2e 58 6f 6f 6f 2e 6f 6f 6f 6f 2e 58 2e 20	.Xooo.X...",...."..Xooo.oooo.X..
0e20	20 22 2c 0a 09 09 20 22 20 2e 58 6f 6f 6f 2e 58 6f 6f 6f 2e 58 2e 20 20 22 2c 0a 09 09 20 22 20	.",...."..Xooo.Xooo.X...",....".
0e40	2e 58 6f 6f 6f 2e 6f 6f 6f 6f 2e 58 2e 20 20 22 2c 0a 09 09 20 22 20 2e 58 6f 6f 2e 58 6f 6f 2e	.Xooo.oooo.X...",...."..Xoo.Xoo.
0e60	2e 58 2e 20 20 22 2c 0a 09 09 20 22 20 2e 58 6f 2e 6f 2e 2e 6f 6f 58 2e 20 20 22 2c 0a 09 09 20	.X...",...."..Xo.o..ooX...",....
0e80	22 20 2e 58 2e 2e 58 58 58 58 58 2e 20 20 22 2c 0a 09 09 20 22 20 2e 2e 58 2e 2e 2e 2e 2e 2e 2e	"..X..XXXXX...",...."...X.......
0ea0	20 20 22 2c 0a 09 09 20 22 20 2e 2e 20 20 20 20 20 20 20 20 20 22 2c 0a 09 09 20 22 20 22 29 3b	..",...."............",....".");
0ec0	0a 0a 0a 0a 0a 73 75 62 20 72 65 61 64 5f 63 6f 6e 66 5f 66 69 6c 65 20 7b 0a 20 20 20 20 66 6f	.....sub.read_conf_file.{.....fo
0ee0	72 65 61 63 68 20 28 63 61 74 5f 28 22 24 63 66 67 5f 66 69 6c 65 22 29 29 20 7b 0a 09 69 66 20	reach.(cat_("$cfg_file")).{..if.
0f00	28 2f 5e 53 59 53 5f 46 49 4c 45 53 2f 29 20 7b 20 20 0a 09 20 20 20 20 63 68 6f 6d 70 3b 0a 09	(/^SYS_FILES/).{........chomp;..
0f20	20 20 20 20 73 2f 5e 53 59 53 5f 46 49 4c 45 53 3d 2f 2f 67 69 3b 0a 09 20 20 20 20 40 73 79 73	....s/^SYS_FILES=//gi;......@sys
0f40	5f 66 69 6c 65 73 20 3d 20 73 70 6c 69 74 28 27 20 27 2c 20 24 5f 20 29 3b 0a 09 7d 0a 09 69 66	_files.=.split('.',.$_.);..}..if
0f60	20 28 2f 5e 48 4f 4d 45 5f 46 49 4c 45 53 2f 29 20 20 7b 0a 09 20 20 20 20 63 68 6f 6d 70 3b 0a	.(/^HOME_FILES/)..{......chomp;.
0f80	09 20 20 20 20 73 2f 5e 48 4f 4d 45 5f 46 49 4c 45 53 3d 2f 2f 67 69 3b 0a 09 20 20 20 20 40 68	.....s/^HOME_FILES=//gi;......@h
0fa0	6f 6d 65 5f 66 69 6c 65 73 20 3d 20 73 70 6c 69 74 28 27 20 27 2c 20 24 5f 20 29 3b 0a 09 7d 0a	ome_files.=.split('.',.$_.);..}.
0fc0	09 69 66 20 28 2f 5e 4f 54 48 45 52 5f 46 49 4c 45 53 2f 29 20 20 7b 0a 09 20 20 20 20 63 68 6f	.if.(/^OTHER_FILES/)..{......cho
0fe0	6d 70 3b 0a 09 20 20 20 20 73 2f 5e 4f 54 48 45 52 5f 46 49 4c 45 53 3d 2f 2f 67 69 3b 0a 09 20	mp;......s/^OTHER_FILES=//gi;...
1000	20 20 20 40 6f 74 68 65 72 5f 66 69 6c 65 73 20 3d 20 73 70 6c 69 74 28 27 20 27 2c 20 24 5f 20	...@other_files.=.split('.',.$_.
1020	29 3b 0a 09 7d 0a 09 69 66 20 28 2f 5e 50 41 54 48 5f 54 4f 5f 53 41 56 45 2f 29 20 7b 0a 09 20	);..}..if.(/^PATH_TO_SAVE/).{...
1040	20 20 20 63 68 6f 6d 70 3b 0a 09 20 20 20 20 24 73 61 76 65 5f 70 61 74 68 20 3d 20 24 5f 3b 0a	...chomp;......$save_path.=.$_;.
1060	09 7d 0a 09 69 66 20 28 2f 5e 4f 50 54 49 4f 4e 5f 52 45 50 4c 41 43 45 2f 29 7b 0a 09 20 20 20	.}..if.(/^OPTION_REPLACE/){.....
1080	20 24 6f 70 74 69 6f 6e 5f 72 65 70 6c 61 63 65 20 3d 20 31 3b 0a 09 20 20 20 20 24 6f 70 74 69	.$option_replace.=.1;......$opti
10a0	6f 6e 5f 75 70 64 61 74 65 20 20 3d 20 30 3b 0a 09 7d 0a 20 20 20 20 20 20 20 20 69 66 20 28 2f	on_update..=.0;..}.........if.(/
10c0	5e 4f 50 54 49 4f 4e 5f 55 50 44 41 54 45 2f 29 7b 0a 09 20 20 20 20 24 6f 70 74 69 6f 6e 5f 72	^OPTION_UPDATE/){......$option_r
10e0	65 70 6c 61 63 65 20 3d 20 30 3b 0a 09 20 20 20 20 24 6f 70 74 69 6f 6e 5f 75 70 64 61 74 65 20	eplace.=.0;......$option_update.
1100	20 3d 20 31 3b 0a 09 7d 0a 09 69 66 20 28 2f 5e 4f 50 54 49 4f 4e 5f 43 4f 4d 50 2f 29 20 7b 0a	.=.1;..}..if.(/^OPTION_COMP/).{.
1120	09 20 20 20 20 63 68 6f 6d 70 3b 0a 09 20 20 20 20 73 2f 5e 4f 50 54 49 4f 4e 5f 43 4f 4d 50 3d	.....chomp;......s/^OPTION_COMP=
1140	2f 2f 67 69 3b 0a 09 20 20 20 20 2f 54 41 52 2e 47 5a 2f 20 61 6e 64 20 20 24 63 6f 6d 70 5f 6d	//gi;....../TAR.GZ/.and..$comp_m
1160	6f 64 65 20 3d 20 30 3b 0a 09 20 20 20 20 2f 54 41 52 2e 42 5a 32 2f 20 61 6e 64 20 24 63 6f 6d	ode.=.0;....../TAR.BZ2/.and.$com
1180	70 5f 6d 6f 64 65 20 3d 20 31 3b 0a 09 7d 0a 20 20 20 20 7d 0a 20 20 20 20 64 65 62 75 67 3b 20	p_mode.=.1;..}.....}.....debug;.
11a0	0a 7d 0a 0a 24 62 75 69 6c 64 5f 66 6c 6f 70 70 79 20 7c 7c 20 24 62 75 69 6c 64 5f 63 64 20 7c	.}..$build_floppy.||.$build_cd.|
11c0	7c 20 24 64 65 66 61 75 6c 74 20 7c 7c 20 40 6c 69 73 74 5f 61 72 67 20 7c 7c 20 24 63 6f 6e 66	|.$default.||.@list_arg.||.$conf
11e0	5f 66 69 6c 65 20 3f 20 62 61 63 6b 65 6e 64 5f 6d 6f 64 28 29 20 3a 20 69 6e 74 65 72 61 63 74	_file.?.backend_mod().:.interact
1200	69 76 65 5f 6d 6f 64 65 28 29 3b 0a 0a 73 75 62 20 62 61 63 6b 65 6e 64 5f 6d 6f 64 20 7b 0a 20	ive_mode();..sub.backend_mod.{..
1220	20 20 20 72 65 61 64 5f 63 6f 6e 66 5f 66 69 6c 65 28 29 3b 0a 7d 0a 0a 73 75 62 20 62 75 69 6c	...read_conf_file();.}..sub.buil
1240	64 5f 63 64 5f 66 63 74 20 7b 0a 0a 7d 0a 0a 73 75 62 20 62 75 69 6c 64 5f 66 6c 6f 70 70 79 5f	d_cd_fct.{..}..sub.build_floppy_
1260	66 63 74 20 7b 0a 0a 7d 0a 0a 73 75 62 20 62 75 69 6c 64 5f 62 61 63 6b 75 70 5f 66 69 6c 65 73	fct.{..}..sub.build_backup_files
1280	20 7b 0a 0a 7d 0a 0a 73 75 62 20 69 6e 74 65 72 61 63 74 69 76 65 5f 6d 6f 64 65 20 7b 0a 20 20	.{..}..sub.interactive_mode.{...
12a0	20 20 6d 79 20 24 66 73 74 5f 63 68 6f 69 63 65 5f 62 6f 78 3b 0a 20 20 20 20 6d 79 20 24 70 69	..my.$fst_choice_box;.....my.$pi
12c0	78 6d 61 70 5f 66 73 74 5f 63 68 6f 69 63 65 3b 0a 20 20 20 20 24 69 6e 74 65 72 61 63 74 69 76	xmap_fst_choice;.....$interactiv
12e0	65 20 3d 20 31 3b 0a 20 20 20 20 6d 79 20 24 70 69 78 6d 61 70 3b 0a 20 20 20 20 6d 79 20 24 70	e.=.1;.....my.$pixmap;.....my.$p
1300	69 78 6d 61 70 77 69 64 3b 0a 20 20 20 20 6d 79 20 24 6d 61 73 6b 3b 0a 20 20 20 20 6d 79 20 24	ixmapwid;.....my.$mask;.....my.$
1320	73 74 79 6c 65 3b 0a 20 20 20 20 69 6e 69 74 20 47 74 6b 3b 0a 20 20 20 20 0a 20 20 20 20 6d 79	style;.....init.Gtk;..........my
1340	20 24 77 69 6e 64 6f 77 31 20 3d 20 24 3a 3a 69 73 45 6d 62 65 64 64 65 64 20 3f 20 6e 65 77 20	.$window1.=.$::isEmbedded.?.new.
1360	47 74 6b 3a 3a 50 6c 75 67 20 28 24 3a 3a 58 49 44 29 20 3a 20 6e 65 77 20 47 74 6b 3a 3a 57 69	Gtk::Plug.($::XID).:.new.Gtk::Wi
1380	6e 64 6f 77 20 2d 74 6f 70 6c 65 76 65 6c 3b 0a 20 20 20 20 24 77 69 6e 64 6f 77 31 2d 3e 73 69	ndow.-toplevel;.....$window1->si
13a0	67 6e 61 6c 5f 63 6f 6e 6e 65 63 74 20 28 64 65 6c 65 74 65 5f 65 76 65 6e 74 20 3d 3e 20 73 75	gnal_connect.(delete_event.=>.su
13c0	62 20 7b 20 47 74 6b 2d 3e 65 78 69 74 28 30 29 20 7d 29 3b 0a 20 20 20 20 24 77 69 6e 64 6f 77	b.{.Gtk->exit(0).});.....$window
13e0	31 2d 3e 73 65 74 5f 70 6f 73 69 74 69 6f 6e 28 31 29 3b 0a 20 20 20 20 24 77 69 6e 64 6f 77 31	1->set_position(1);.....$window1
1400	2d 3e 73 65 74 5f 74 69 74 6c 65 28 5f 28 22 44 72 61 6b 62 61 63 6b 75 70 22 29 29 3b 0a 20 20	->set_title(_("Drakbackup"));...
1420	20 20 24 77 69 6e 64 6f 77 31 2d 3e 73 65 74 5f 62 6f 72 64 65 72 5f 77 69 64 74 68 28 35 29 3b	..$window1->set_border_width(5);
1440	0a 20 20 20 20 0a 23 20 20 20 20 6d 79 20 24 63 68 65 63 6b 62 75 74 74 6f 6e 20 3d 20 6e 65 77	......#....my.$checkbutton.=.new
1460	20 47 74 6b 3a 3a 43 68 65 63 6b 42 75 74 74 6f 6e 28 20 22 43 68 65 63 6b 20 6d 65 20 70 6c 65	.Gtk::CheckButton(."Check.me.ple
1480	61 73 65 21 22 20 29 3b 0a 23 20 20 20 20 24 63 68 65 63 6b 62 75 74 74 6f 6e 2d 3e 73 65 74 5f	ase!".);.#....$checkbutton->set_
14a0	75 73 69 7a 65 28 20 31 30 30 2c 20 37 35 20 29 3b 0a 23 20 20 20 20 24 63 68 65 63 6b 62 75 74	usize(.100,.75.);.#....$checkbut
14c0	74 6f 6e 2d 3e 73 68 6f 77 28 29 3b 0a 0a 20 20 20 20 6d 79 20 28 24 70 69 78 5f 75 5f 6d 61 70	ton->show();......my.($pix_u_map
14e0	2c 20 24 70 69 78 5f 75 5f 6d 61 73 6b 29 20 3d 20 67 74 6b 63 72 65 61 74 65 5f 70 6e 67 28 22	,.$pix_u_mask).=.gtkcreate_png("
1500	2f 68 6f 6d 65 2f 73 65 62 2f 64 72 61 6b 6c 6f 67 6f 2e 70 6e 67 22 29 3b 0a 20 20 20 20 6d 79	/home/seb/draklogo.png");.....my
1520	20 28 24 70 69 78 5f 6c 5f 6d 61 70 2c 20 24 70 69 78 5f 6c 5f 6d 61 73 6b 29 20 3d 20 67 74 6b	.($pix_l_map,.$pix_l_mask).=.gtk
1540	63 72 65 61 74 65 5f 70 6e 67 28 22 2f 68 6f 6d 65 2f 73 65 62 2f 62 61 63 6b 5f 6c 2e 70 6e 67	create_png("/home/seb/back_l.png
1560	22 29 3b 0a 20 20 20 20 6d 79 20 28 24 70 69 78 5f 72 5f 6d 61 70 2c 20 24 70 69 78 5f 72 5f 6d	");.....my.($pix_r_map,.$pix_r_m
1580	61 73 6b 29 20 3d 20 67 74 6b 63 72 65 61 74 65 5f 70 6e 67 28 22 2f 68 6f 6d 65 2f 73 65 62 2f	ask).=.gtkcreate_png("/home/seb/
15a0	62 61 63 6b 5f 72 2e 70 6e 67 22 29 3b 0a 0a 20 20 20 20 67 74 6b 61 64 64 28 24 77 69 6e 64 6f	back_r.png");......gtkadd($windo
15c0	77 31 2c 0a 09 20 20 20 67 74 6b 70 61 63 6b 5f 28 6e 65 77 20 47 74 6b 3a 3a 56 42 6f 78 28 30	w1,.....gtkpack_(new.Gtk::VBox(0
15e0	2c 32 29 2c 0a 09 09 20 20 20 20 31 2c 20 67 74 6b 70 61 63 6b 5f 28 6e 65 77 20 47 74 6b 3a 3a	,2),.......1,.gtkpack_(new.Gtk::
1600	56 42 6f 78 28 30 2c 32 29 2c 0a 09 09 09 09 31 2c 20 6e 65 77 20 47 74 6b 3a 3a 56 42 6f 78 28	VBox(0,2),.....1,.new.Gtk::VBox(
1620	30 2c 30 29 2c 0a 09 09 09 09 31 2c 20 67 74 6b 70 61 63 6b 28 67 74 6b 73 65 74 5f 75 73 69 7a	0,0),.....1,.gtkpack(gtkset_usiz
1640	65 28 24 66 73 74 5f 63 68 6f 69 63 65 5f 62 6f 78 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 56 42 6f	e($fst_choice_box.=.new.Gtk::VBo
1660	78 28 30 2c 35 00 29 2c 35 34 30 2c 20 32 33 30 29 2c 0a 09 09 09 09 09 20 20 20 6d 79 20 24 70	x(0,5.),540,.230),.........my.$p
1680	69 78 5f 63 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 50 69 78 6d 61 70 28 24 70 69 78 5f 75 5f 6d 61	ix_c.=.new.Gtk::Pixmap($pix_u_ma
16a0	70 2c 20 24 70 69 78 5f 75 5f 6d 61 73 6b 29 2c 0a 09 09 09 09 09 20 20 20 29 2c 0a 09 09 09 09	p,.$pix_u_mask),.........),.....
16c0	31 2c 20 6e 65 77 20 47 74 6b 3a 3a 48 42 6f 78 28 30 2c 30 29 2c 0a 09 09 09 09 31 2c 20 67 74	1,.new.Gtk::HBox(0,0),.....1,.gt
16e0	6b 70 61 63 6b 28 67 74 6b 73 65 74 5f 75 73 69 7a 65 28 24 66 73 74 5f 63 68 6f 69 63 65 5f 62	kpack(gtkset_usize($fst_choice_b
1700	6f 78 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 48 42 6f 78 28 30 2c 35 29 2c 35 34 30 2c 20 34 30 29	ox.=.new.Gtk::HBox(0,5),540,.40)
1720	2c 0a 09 09 09 09 09 20 20 20 6d 79 20 24 70 69 78 5f 6c 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 50	,.........my.$pix_l.=.new.Gtk::P
1740	69 78 6d 61 70 28 24 70 69 78 5f 6c 5f 6d 61 70 2c 20 24 70 69 78 5f 6c 5f 6d 61 73 6b 29 2c 0a	ixmap($pix_l_map,.$pix_l_mask),.
1760	09 09 09 09 09 20 20 20 67 74 6b 70 61 63 6b 28 67 74 6b 73 65 74 5f 75 73 69 7a 65 28 6e 65 77	........gtkpack(gtkset_usize(new
1780	20 47 74 6b 3a 3a 56 42 6f 78 28 30 2c 30 29 2c 20 31 33 37 2c 20 35 30 29 2c 0a 09 09 09 09 09	.Gtk::VBox(0,0),.137,.50),......
17a0	09 20 20 20 67 74 6b 73 69 67 6e 61 6c 5f 63 6f 6e 6e 65 63 74 28 6e 65 77 20 47 74 6b 3a 3a 42	....gtksignal_connect(new.Gtk::B
17c0	75 74 74 6f 6e 28 5f 28 22 57 69 7a 61 72 64 22 29 29 2c 20 63 6c 69 63 6b 65 64 20 3d 3e 20 73	utton(_("Wizard")),.clicked.=>.s
17e0	75 62 20 7b 20 47 74 6b 2d 3e 6d 61 69 6e 5f 71 75 69 74 28 29 20 7d 29 2c 0a 09 09 09 09 09 09	ub.{.Gtk->main_quit().}),.......
1800	20 20 20 67 74 6b 73 69 67 6e 61 6c 5f 63 6f 6e 6e 65 63 74 28 6e 65 77 20 47 74 6b 3a 3a 42 75	...gtksignal_connect(new.Gtk::Bu
1820	74 74 6f 6e 28 5f 28 22 41 64 76 61 6e 63 65 64 22 29 29 2c 20 63 6c 69 63 6b 65 64 20 3d 3e 20	tton(_("Advanced")),.clicked.=>.
1840	73 75 62 20 7b 20 47 74 6b 2d 3e 6d 61 69 6e 5f 71 75 69 74 28 29 20 7d 29 2c 0a 09 09 09 09 09	sub.{.Gtk->main_quit().}),......
1860	09 20 20 20 29 2c 0a 09 09 09 09 09 20 20 20 6d 79 20 24 70 69 78 5f 72 20 3d 20 6e 65 77 20 47	....),.........my.$pix_r.=.new.G
1880	74 6b 3a 3a 50 69 78 6d 61 70 28 24 70 69 78 5f 72 5f 6d 61 70 2c 20 24 70 69 78 5f 72 5f 6d 61	tk::Pixmap($pix_r_map,.$pix_r_ma
18a0	73 6b 29 2c 0a 09 09 09 09 09 20 20 20 29 2c 0a 09 09 09 09 29 2c 0a 09 09 20 20 20 20 30 2c 20	sk),.........),.....),.......0,.
18c0	67 74 6b 70 61 63 6b 5f 28 6e 65 77 20 47 74 6b 3a 3a 48 42 6f 78 28 30 2c 35 29 2c 0a 09 09 09	gtkpack_(new.Gtk::HBox(0,5),....
18e0	09 31 2c 20 6e 65 77 20 47 74 6b 3a 3a 48 42 6f 78 28 30 2c 30 29 2c 0a 09 09 09 09 31 2c 20 67	.1,.new.Gtk::HBox(0,0),.....1,.g
1900	74 6b 61 64 64 28 67 74 6b 73 65 74 5f 6c 61 79 6f 75 74 28 6e 65 77 20 47 74 6b 3a 3a 48 42 75	tkadd(gtkset_layout(new.Gtk::HBu
1920	74 74 6f 6e 42 6f 78 2c 20 2d 65 6e 64 29 2c 0a 09 09 09 09 09 20 20 67 74 6b 73 69 67 6e 61 6c	ttonBox,.-end),........gtksignal
1940	5f 63 6f 6e 6e 65 63 74 28 6e 65 77 20 47 74 6b 3a 3a 42 75 74 74 6f 6e 28 5f 28 22 48 65 6c 70	_connect(new.Gtk::Button(_("Help
1960	22 29 29 2c 20 63 6c 69 63 6b 65 64 20 3d 3e 20 73 75 62 20 7b 20 0a 09 09 09 09 09 20 20 20 20	")),.clicked.=>.sub.{...........
1980	20 20 24 7b 24 63 65 6e 74 72 61 6c 5f 77 69 64 67 65 74 7d 2d 3e 64 65 73 74 72 6f 79 28 29 3b	..${$central_widget}->destroy();
19a0	20 68 65 6c 70 28 29 20 7d 29 2c 0a 09 09 09 09 09 20 20 67 74 6b 73 69 67 6e 61 6c 5f 63 6f 6e	.help().}),........gtksignal_con
19c0	6e 65 63 74 28 6e 65 77 20 47 74 6b 3a 3a 42 75 74 74 6f 6e 28 5f 28 22 41 62 6f 75 74 22 29 29	nect(new.Gtk::Button(_("About"))
19e0	2c 20 63 6c 69 63 6b 65 64 20 3d 3e 20 73 75 62 20 7b 20 0a 09 09 09 09 09 20 20 20 20 20 20 24	,.clicked.=>.sub.{.............$
1a00	7b 24 63 65 6e 74 72 61 6c 5f 77 69 64 67 65 74 7d 2d 3e 64 65 73 74 72 6f 79 28 29 3b 20 68 65	{$central_widget}->destroy();.he
1a20	6c 70 28 29 20 7d 29 2c 0a 09 09 09 09 09 20 20 67 74 6b 73 69 67 6e 61 6c 5f 63 6f 6e 6e 65 63	lp().}),........gtksignal_connec
1a40	74 28 6e 65 77 20 47 74 6b 3a 3a 42 75 74 74 6f 6e 28 5f 28 22 43 6c 6f 73 65 22 29 29 2c 20 63	t(new.Gtk::Button(_("Close")),.c
1a60	6c 69 63 6b 65 64 20 3d 3e 20 73 75 62 20 7b 20 47 74 6b 2d 3e 6d 61 69 6e 5f 71 75 69 74 28 29	licked.=>.sub.{.Gtk->main_quit()
1a80	20 7d 29 2c 0a 09 09 09 09 09 20 20 29 2c 0a 09 09 09 09 29 0a 09 09 20 20 20 20 29 2c 0a 09 20	.}),........),.....).......),...
1aa0	20 20 29 3b 0a 20 20 20 20 24 63 65 6e 74 72 61 6c 5f 77 69 64 67 65 74 20 3d 20 5c 24 70 69 78	..);.....$central_widget.=.\$pix
1ac0	6d 61 70 5f 66 73 74 5f 63 68 6f 69 63 65 3b 0a 20 20 20 20 24 77 69 6e 64 6f 77 31 2d 3e 73 68	map_fst_choice;.....$window1->sh
1ae0	6f 77 5f 61 6c 6c 3b 0a 20 20 20 20 24 77 69 6e 64 6f 77 31 2d 3e 72 65 61 6c 69 7a 65 3b 0a 20	ow_all;.....$window1->realize;..
1b00	20 20 20 24 77 69 6e 64 6f 77 31 2d 3e 73 68 6f 77 5f 61 6c 6c 28 29 3b 0a 20 20 20 20 0a 20 20	...$window1->show_all();........
1b20	20 20 47 74 6b 2d 3e 6d 61 69 6e 3b 0a 20 20 20 20 47 74 6b 2d 3e 65 78 69 74 28 30 29 3b 0a 7d	..Gtk->main;.....Gtk->exit(0);.}
1b40	0a 0a 0a 0a 0a 0a 0a 0a 0a 0a 0a 0a 0a 0a 0a 0a 23 20 20 20 20 20 24 70 69 78 6d 61 70 5f 66 73	................#.....$pixmap_fs
1b60	74 5f 63 68 6f 69 63 65 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 4e 6f 74 65 62 6f 6f 6b 2c 0a 23 20	t_choice.=.new.Gtk::Notebook,.#.
1b80	20 20 20 20 6d 79 20 24 6c 61 62 65 6c 31 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 4c 61 62 65 6c 28	....my.$label1.=.new.Gtk::Label(
1ba0	20 22 57 68 61 74 20 62 61 63 6b 75 70 2e 22 20 29 3b 0a 23 20 20 20 20 20 6d 79 20 24 6c 61 62	."What.backup.".);.#.....my.$lab
1bc0	65 6c 32 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 4c 61 62 65 6c 28 20 22 57 68 65 72 65 20 62 61 63	el2.=.new.Gtk::Label(."Where.bac
1be0	6b 75 70 2e 22 20 29 3b 0a 23 20 20 20 20 20 6d 79 20 24 6c 61 62 65 6c 33 20 3d 20 6e 65 77 20	kup.".);.#.....my.$label3.=.new.
1c00	47 74 6b 3a 3a 4c 61 62 65 6c 28 20 22 57 68 65 6e 20 62 61 63 6b 75 70 2e 22 20 29 3b 0a 23 0a	Gtk::Label(."When.backup.".);.#.
1c20	23 20 20 20 20 20 67 74 6b 61 64 64 28 24 77 69 6e 64 6f 77 31 2c 0a 23 20 09 20 20 20 67 74 6b	#.....gtkadd($window1,.#.....gtk
1c40	70 61 63 6b 5f 28 6e 65 77 20 47 74 6b 3a 3a 56 42 6f 78 28 30 2c 32 29 2c 0a 23 20 09 09 20 20	pack_(new.Gtk::VBox(0,2),.#.....
1c60	20 20 31 2c 20 67 74 6b 70 61 63 6b 5f 28 6e 65 77 20 47 74 6b 3a 3a 56 42 6f 78 28 30 2c 32 29	..1,.gtkpack_(new.Gtk::VBox(0,2)
1c80	2c 0a 23 20 09 09 09 09 31 2c 20 6e 65 77 20 47 74 6b 3a 3a 56 42 6f 78 28 30 2c 30 29 2c 0a 23	,.#.....1,.new.Gtk::VBox(0,0),.#
1ca0	20 09 09 09 09 31 2c 20 67 74 6b 70 61 63 6b 28 67 74 6b 73 65 74 5f 75 73 69 7a 65 28 24 6e 6f	.....1,.gtkpack(gtkset_usize($no
1cc0	74 65 62 6f 6f 6b 5f 62 6f 78 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 56 42 6f 78 28 30 2c 35 29 2c	tebook_box.=.new.Gtk::VBox(0,5),
1ce0	35 30 30 2c 20 33 35 30 29 2c 0a 23 20 09 09 09 09 09 20 20 20 24 6e 6f 74 65 62 6f 6f 6b 20 3d	500,.350),.#.........$notebook.=
1d00	20 6e 65 77 20 47 74 6b 3a 3a 4e 6f 74 65 62 6f 6f 6b 2c 0a 23 20 09 09 09 09 09 20 20 20 24 6e	.new.Gtk::Notebook,.#.........$n
1d20	6f 74 65 62 6f 6f 6b 2d 3e 69 6e 73 65 72 74 5f 70 61 67 65 28 20 24 63 68 65 63 6b 62 75 74 74	otebook->insert_page(.$checkbutt
1d40	6f 6e 2c 20 24 6c 61 62 65 6c 31 2c 20 32 20 29 2c 0a 23 20 09 09 09 09 09 20 20 20 24 6e 6f 74	on,.$label1,.2.),.#.........$not
1d60	65 62 6f 6f 6b 2d 3e 69 6e 73 65 72 74 5f 70 61 67 65 28 20 24 63 68 65 63 6b 62 75 74 74 6f 6e	ebook->insert_page(.$checkbutton
1d80	2c 20 24 6c 61 62 65 6c 32 2c 20 32 20 29 2c 0a 23 20 09 09 09 09 09 20 20 20 24 6e 6f 74 65 62	,.$label2,.2.),.#.........$noteb
1da0	6f 6f 6b 2d 3e 69 6e 73 65 72 74 5f 70 61 67 65 28 20 24 63 68 65 63 6b 62 75 74 74 6f 6e 2c 20	ook->insert_page(.$checkbutton,.
1dc0	24 6c 61 62 65 6c 33 2c 20 32 20 29 0a 23 20 09 09 09 09 09 20 20 20 29 2c 0a 23 20 09 09 09 09	$label3,.2.).#.........),.#.....
1de0	31 2c 20 6e 65 77 20 47 74 6b 3a 3a 56 42 6f 78 28 30 2c 30 29 0a 23 20 09 09 09 09 29 2c 0a 23	1,.new.Gtk::VBox(0,0).#.....),.#
1e00	20 09 09 20 20 20 20 30 2c 20 67 74 6b 70 61 63 6b 5f 28 6e 65 77 20 47 74 6b 3a 3a 48 42 6f 78	.......0,.gtkpack_(new.Gtk::HBox
1e20	28 30 2c 35 29 2c 0a 23 20 09 09 09 09 31 2c 20 6e 65 77 20 47 74 6b 3a 3a 48 42 6f 78 28 30 2c	(0,5),.#.....1,.new.Gtk::HBox(0,
1e40	30 29 2c 0a 23 20 09 09 09 09 31 2c 20 67 74 6b 61 64 64 28 67 74 6b 73 65 74 5f 6c 61 79 6f 75	0),.#.....1,.gtkadd(gtkset_layou
1e60	74 28 6e 65 77 20 47 74 6b 3a 3a 48 42 75 74 74 6f 6e 42 6f 78 2c 20 2d 65 6e 64 29 2c 0a 23 20	t(new.Gtk::HButtonBox,.-end),.#.
1e80	09 09 09 09 09 20 20 67 74 6b 73 69 67 6e 61 6c 5f 63 6f 6e 6e 65 63 74 28 6e 65 77 20 47 74 6b	.......gtksignal_connect(new.Gtk
1ea0	3a 3a 42 75 74 74 6f 6e 28 5f 28 22 48 65 6c 70 22 29 29 2c 20 63 6c 69 63 6b 65 64 20 3d 3e 20	::Button(_("Help")),.clicked.=>.
1ec0	73 75 62 20 7b 20 0a 23 20 09 09 09 09 09 20 20 20 20 20 20 20 24 7b 24 63 65 6e 74 72 61 6c 5f	sub.{..#.............${$central_
1ee0	77 69 64 67 65 74 7d 2d 3e 64 65 73 74 72 6f 79 28 29 3b 20 68 65 6c 70 28 29 20 7d 29 2c 0a 23	widget}->destroy();.help().}),.#
1f00	20 09 09 09 09 09 20 20 67 74 6b 73 69 67 6e 61 6c 5f 63 6f 6e 6e 65 63 74 28 6e 65 77 20 47 74	........gtksignal_connect(new.Gt
1f20	6b 3a 3a 42 75 74 74 6f 6e 28 5f 28 22 41 62 6f 75 74 22 29 29 2c 20 63 6c 69 63 6b 65 64 20 3d	k::Button(_("About")),.clicked.=
1f40	3e 20 73 75 62 20 7b 20 0a 23 20 09 09 09 09 09 20 20 20 20 20 20 20 24 7b 24 63 65 6e 74 72 61	>.sub.{..#.............${$centra
1f60	6c 5f 77 69 64 67 65 74 7d 2d 3e 64 65 73 74 72 6f 79 28 29 3b 20 68 65 6c 70 28 29 20 7d 29 2c	l_widget}->destroy();.help().}),
1f80	0a 23 20 09 09 09 09 09 20 20 67 74 6b 73 69 67 6e 61 6c 5f 63 6f 6e 6e 65 63 74 28 6e 65 77 20	.#........gtksignal_connect(new.
1fa0	47 74 6b 3a 3a 42 75 74 74 6f 6e 28 5f 28 22 43 6c 6f 73 65 22 29 29 2c 20 63 6c 69 63 6b 65 64	Gtk::Button(_("Close")),.clicked
1fc0	20 3d 3e 20 73 75 62 20 7b 20 47 74 6b 2d 3e 6d 61 69 6e 5f 71 75 69 74 28 29 20 7d 29 2c 0a 23	.=>.sub.{.Gtk->main_quit().}),.#
1fe0	20 09 09 09 09 09 20 20 29 2c 0a 23 20 09 09 09 09 29 0a 23 20 09 09 20 20 20 20 29 2c 0a 23 20	........),.#.....).#.......),.#.
2000	09 20 20 20 29 3b 0a 0a 23 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f	....);..#_______________________
2020	5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f	________________________________
2040	5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f	________________________________
2060	5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 0a 0a 0a 23 09 09 09 09 30 2c 20 5f 28 22 44	_________________...#....0,._("D
2080	72 61 6b 46 6f 6e 74 22 29 2c 0a 23 09 09 09 09 30 2c 20 67 74 6b 61 64 64 28 67 74 6b 73 65 74	rakFont"),.#....0,.gtkadd(gtkset
20a0	5f 6c 61 79 6f 75 74 28 6e 65 77 20 47 74 6b 3a 3a 56 42 75 74 74 6f 6e 42 6f 78 2c 20 2d 65 6e	_layout(new.Gtk::VButtonBox,.-en
20c0	64 29 2c 0a 23 20 09 09 09 09 09 20 20 67 74 6b 73 69 67 6e 61 6c 5f 63 6f 6e 6e 65 63 74 28 6e	d),.#........gtksignal_connect(n
20e0	65 77 20 47 74 6b 3a 3a 42 75 74 74 6f 6e 28 5f 28 22 57 69 6e 64 6f 77 73 20 49 6d 70 6f 72 74	ew.Gtk::Button(_("Windows.Import
2100	61 74 69 6f 6e 22 29 29 2c 20 63 6c 69 63 6b 65 64 20 09 3d 3e 0a 23 20 09 09 09 09 09 09 09 20	ation")),.clicked..=>.#.........
2120	20 20 20 73 75 62 20 7b 20 24 7b 24 63 65 6e 74 72 61 6c 5f 77 69 64 67 65 74 7d 2d 3e 64 65 73	...sub.{.${$central_widget}->des
2140	74 72 6f 79 28 29 3b 20 24 77 69 6e 64 6f 77 73 20 3d 20 31 3b 20 6c 69 63 65 6e 73 65 28 5c 26	troy();.$windows.=.1;.license(\&
2160	61 70 70 6c 69 5f 63 68 6f 69 63 65 29 7d 29 2c 0a 23 20 09 09 09 09 09 20 20 67 74 6b 73 69 67	appli_choice)}),.#........gtksig
2180	6e 61 6c 5f 63 6f 6e 6e 65 63 74 28 6e 65 77 20 47 74 6b 3a 3a 42 75 74 74 6f 6e 28 5f 28 22 43	nal_connect(new.Gtk::Button(_("C
21a0	6f 6e 66 69 67 75 72 61 74 69 6f 6e 22 29 29 2c 20 63 6c 69 63 6b 65 64 20 3d 3e 0a 23 20 09 09	onfiguration")),.clicked.=>.#...
21c0	09 09 09 09 09 20 20 20 20 73 75 62 20 7b 20 20 24 7b 24 63 65 6e 74 72 61 6c 5f 77 69 64 67 65	.........sub.{..${$central_widge
21e0	74 7d 2d 3e 64 65 73 74 72 6f 79 28 29 3b 20 24 77 69 6e 64 6f 77 73 20 3d 20 30 3b 20 6c 69 63	t}->destroy();.$windows.=.0;.lic
2200	65 6e 73 65 28 5c 26 61 64 76 61 6e 63 65 64 5f 69 6e 73 74 61 6c 6c 29 7d 29 2c 0a 23 20 09 09	ense(\&advanced_install)}),.#...
2220	09 09 09 20 20 67 74 6b 73 69 67 6e 61 6c 5f 63 6f 6e 6e 65 63 74 28 6e 65 77 20 47 74 6b 3a 3a	.....gtksignal_connect(new.Gtk::
2240	42 75 74 74 6f 6e 28 5f 28 22 55 6e 69 6e 73 74 61 6c 6c 20 46 6f 6e 74 73 22 29 29 2c 20 63 6c	Button(_("Uninstall.Fonts")),.cl
2260	69 63 6b 65 64 20 3d 3e 20 0a 23 20 09 09 09 09 09 09 09 20 20 20 20 73 75 62 20 7b 20 24 7b 24	icked.=>..#............sub.{.${$
2280	63 65 6e 74 72 61 6c 5f 77 69 64 67 65 74 7d 2d 3e 64 65 73 74 72 6f 79 28 29 3b 20 75 6e 69 6e	central_widget}->destroy();.unin
22a0	73 74 61 6c 6c 28 29 20 7d 29 2c 0a 23 20 09 09 09 09 09 20 20 67 74 6b 73 69 67 6e 61 6c 5f 63	stall().}),.#........gtksignal_c
22c0	6f 6e 6e 65 63 74 28 6e 65 77 20 47 74 6b 3a 3a 42 75 74 74 6f 6e 28 5f 28 22 46 6f 6e 74 20 4c	onnect(new.Gtk::Button(_("Font.L
22e0	69 73 74 22 29 29 2c 20 63 6c 69 63 6b 65 64 20 09 3d 3e 0a 23 20 09 09 09 09 09 09 09 20 20 20	ist")),.clicked..=>.#...........
2300	20 73 75 62 20 7b 20 24 7b 24 63 65 6e 74 72 61 6c 5f 77 69 64 67 65 74 7d 2d 3e 64 65 73 74 72	.sub.{.${$central_widget}->destr
2320	6f 79 28 29 3b 20 63 72 65 61 74 65 5f 66 6f 6e 74 73 65 6c 28 29 7d 29 2c 0a 23 09 09 09 09 09	oy();.create_fontsel()}),.#.....
2340	20 20 29 2c 0a	..),.