ofs | hex dump | ascii |
---|
0000 | 89 50 4e 47 0d 0a 1a 0a 00 00 00 0d 49 48 44 52 00 00 00 c8 00 00 00 48 08 06 00 00 00 b3 e8 ba | .PNG........IHDR.......H........ |
0020 | 46 00 00 00 06 62 4b 47 44 00 ff 00 ff 00 ff a0 bd a7 93 00 00 00 09 70 48 59 73 00 00 0d d7 00 | F....bKGD..............pHYs..... |
0040 | 00 0d d7 01 42 28 9b 78 00 00 00 07 74 49 4d 45 07 de 04 1e 15 06 1f 60 19 9a 7b 00 00 18 d6 49 | ....B(.x....tIME.......`..{....I |
0060 | 44 41 54 78 da ed 9d 7b 7c 54 e5 99 c7 bf cf 99 49 02 44 e4 22 82 22 0a e4 32 49 c8 1d f0 82 62 | DATx...{|T......I.D."."..2I....b |
0080 | 05 32 13 40 b4 17 5a 56 6d b7 5a 57 b7 82 68 bb f6 6a 77 dd 56 db b5 6b b7 ad db da 56 74 95 d5 | .2.@..ZVm.ZW..h..jw.V..k....Vt.. |
00a0 | b5 75 5b 75 ad d6 2a 90 cc 04 a1 da 52 c1 90 4c 2e 24 99 5c b8 88 28 f7 7b c8 65 ce 79 f6 8f 73 | .u[u..*.....R..L.$.\..(.{.e.y..s |
00c0 | 26 84 24 84 04 82 60 39 bf cf 27 1f e6 9c 39 ef 65 9e f7 fd bd cf ed 7d 0f e0 c2 85 0b 17 2e 5c | &.$...`9..'...9.e......}.......\ |
00e0 | b8 70 e1 c2 85 0b 17 2e 5c b8 70 e1 c2 85 0b 17 2e 5c b8 70 e1 e2 94 90 f2 58 3d 49 4f 97 1e 73 | .p......\.p......\.p.....X=IO..s |
0100 | 2f 79 49 a5 2b 18 17 2e 00 c6 3f b5 ce 21 45 55 4e ca 92 aa 5b 93 97 54 24 03 4c 7c 3c ec 0a c7 | /yI.+.....?..!EUN...[..T$.L|<... |
0120 | c5 59 0b f9 28 1b 4b fa 55 d5 24 31 58 0a 64 82 bc df 6e 1e b9 7c cb 3d 53 0f b9 c3 e0 e2 6c 85 | .Y..(.K.U.$1X.d...n..|.=S.....l. |
0140 | f1 91 b2 d1 20 1d f0 01 43 41 d3 bc 9e 84 49 ee 10 b8 38 9b e1 fd 28 1b 8b 5a b2 ca 6b 10 06 bd | ........CA....I...8...(..Z..k... |
0160 | 1a 74 5d d3 a2 ec b5 e3 97 54 7b bc e8 20 15 31 5b 46 0e 6e 19 59 b5 93 aa ef 5f e9 8e 8c 8b 73 | .t]......T{....1[F.n.Y...._....s |
0180 | 4b 83 4c 7c bc 9a cd 8b 33 f7 e8 81 43 01 b1 cc ac c6 45 d9 d7 4e 5c 52 3d c8 83 7e 0b d8 24 e8 | K.L|....3...C.....E..N\R=..~..$. |
01a0 | 8a 41 7b 8f 4c 74 c9 e1 e2 9c d4 20 1b ef ce 24 f9 57 95 34 2e ce 36 81 06 00 51 c6 89 f0 43 00 | .A{.Lt.........$.W.4..6...Q...C. |
01c0 | 94 eb c4 d2 7b 81 af b9 c3 e2 e2 9c f4 41 4c af 76 0d 11 1c 01 ac 4e d7 07 dc 21 71 71 4e 6a 90 | ....{........AL.v.....N...!qqNj. |
01e0 | b1 4f be cb a6 bb 72 18 f5 cc da f8 61 ad 43 ee c3 62 bc aa fe 1e f8 3c c2 b7 50 aa 44 78 d2 1d | .O....r.....a.C..b.....<..P.Dx.. |
0200 | 12 17 67 13 e4 a3 6e 30 79 49 d5 b3 c0 2d 0e 39 b7 29 ba 40 2c ef 3a 24 ea f1 58 56 9b e5 f1 d0 | ..g...n0yI...-.9.).@,.:$..XV.... |
0220 | b0 28 cb 1d 19 17 e7 96 06 01 48 fd 55 ed 08 8b 68 2e 10 ef dc 1a 25 c8 b5 8d 8b 33 fe 0a 98 ee | .(........H.U...h.....%....3.... |
0240 | 70 b8 38 a7 7d 90 fa c5 e9 7b 81 ba 4e b7 f6 80 51 d6 f5 b9 19 0f be e9 8e 8c 8b 73 47 83 a4 3c | p.8.}....{..N...Q..........sG..< |
0260 | 56 4f c3 57 52 63 97 df 02 3e 00 2e 04 8a 1b 17 4d 0a 25 2f a9 9a 06 5c 82 d2 d8 78 77 56 59 6d | VO.WRc...>......M.%/...\...xwVYm |
0280 | d2 78 77 64 5c 9c 9b 3e 48 57 24 3d 51 fd 05 51 fd 09 30 0a d8 62 88 fc 63 fd c2 cc 95 ee d0 b8 | .xwd\..>HW$=Q..Q..0..b..c....... |
02a0 | 38 27 34 c8 84 25 2b f0 32 76 2c 18 ff a1 30 09 28 31 07 0d 7e 60 d3 ed c9 ad 29 4b aa 2e 54 d5 | 8'4..%+.2v,...0.(1..~`....)K..T. |
02c0 | 45 c0 45 31 be 58 #!/usr/bin/perl
use lib qw(/usr/lib/libDrakX);
use interactive;
use standalone;
use keyboard;
use Xconfigurator_consts;
use common qw(:system);
use c;
local $_ = join '', @ARGV;
/-h/ and die "usage: drakxconf\n";
my $in = vnew interactive('su');
my @l=(
{ des => 'Display Configuration',
cmd => 'XFdrake'},
{ des => 'Hard Drive Configuration',
cmd => 'diskdrake'},
{ des => 'KeyBoard Configuration',
cmd => 'keyboarddrake'},
{ des => 'Mouse Configuration',
cmd => 'mousedrake'},
{ des => 'Hardware Information',
cmd => 'harddrake'},
{ des => 'Internet & Network',
cmd => 'draknet'},
{ des => 'Firewalling',
cmd => 'tinyfirewall'},
{ des => 'Printer Configuration',
cmd => 'printerdrake'},
{ des => 'Add new users',
cmd => 'adduserdrake'},
{ des => 'Service Configuration',
cmd => 'drakxservices'},
{ des => 'Security Levels',
cmd => 'draksec'},
{ des => 'Boot Configuration',
cmd => 'drakboot'},
);
my $choice = $in->ask_from_listf(_("Control Center"),
_("Choose the tool you want to use"),
sub { (int grep { -x "$_/" . $_[0]{cmd} } split (":", $ENV{PATH})) ? $_[0]{des} : () },#grep { my $prog = $_; int grep { -x "$_/$prog" } split ":", $ENV{PATH} } $_[0]{des} },
\@l ) or $in->exit(1);
$in->end;
exec $choice->{cmd}, @ARGV or $in->exit(1);
|