diff options
| author | Francois Pons <fpons@mandriva.com> | 1999-10-01 15:57:39 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 1999-10-01 15:57:39 +0000 |
| commit | 3cf33eab50fd8e7eb927c617986f62938e0485a1 (patch) | |
| tree | 9f585993cd1b4d0cace49969a118ea56227044f9 /perl-install/Xconfigurator_consts.pm | |
| parent | 4d03533983eda1325e04122a4dc478d892862471 (diff) | |
| download | drakx-3cf33eab50fd8e7eb927c617986f62938e0485a1.tar drakx-3cf33eab50fd8e7eb927c617986f62938e0485a1.tar.gz drakx-3cf33eab50fd8e7eb927c617986f62938e0485a1.tar.bz2 drakx-3cf33eab50fd8e7eb927c617986f62938e0485a1.tar.xz drakx-3cf33eab50fd8e7eb927c617986f62938e0485a1.zip | |
*** empty log message ***
Diffstat (limited to 'perl-install/Xconfigurator_consts.pm')
| -rw-r--r-- | perl-install/Xconfigurator_consts.pm | 24 |
1 files changed, 21 insertions, 3 deletions
diff --git a/perl-install/Xconfigurator_consts.pm b/perl-install/Xconfigurator_consts.pm index e4dcaac61..193eb84e6 100644 --- a/perl-install/Xconfigurator_consts.pm +++ b/perl-install/Xconfigurator_consts.pm @@ -12,9 +12,27 @@ use common qw(:common); $resolution_wanted = "1024x768"; @resolutions = qw(640x480 800x600 1024x768 1152x864 1280x1024 1600x1200); -@svgaservers = qw(SVGA Rage128); -@accelservers = qw(S3 Mach32 Mach8 8514 P9000 AGX W32 Mach64 I128 S3V 3DLabs); -@allservers = (qw(Mono VGA16), @svgaservers, @accelservers); +%serversdriver = ( + 'SVGA' => "svga", + 'Rage128' => "svga", + 'S3' => "accel", + 'Mach32' => "accel", + 'Mach8' => "accel", + '8514' => "accel", + 'P9000' => "accel", + 'AGX' => "accel", + 'W32' => "accel", + 'Mach64' => "accel", + 'I128' => "accel", + 'S3V' => "accel", + '3DLabs' => "accel", + 'Mono' => "vga2", + 'VGA16' => "vga16", + 'FBDev' => "fbdev", +); +@svgaservers = grep { $serversdriver{$_} eq "svga" } keys(%serversdriver);#-qw(SVGA Rage128); +@accelservers = grep { $serversdriver{$_} eq "accel" } keys(%serversdriver);#-qw(S3 Mach32 Mach8 8514 P9000 AGX W32 Mach64 I128 S3V 3DLabs); +@allservers = keys(%serversdrivers);#-(qw(Mono VGA16), @svgaservers, @accelservers); { #- @monitorSize2resolution my %l = my @l = ( #- size in inch |