summaryrefslogtreecommitdiffstats
path: root/perl-install/Xconfigurator_consts.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>1999-10-01 15:57:39 +0000
committerFrancois Pons <fpons@mandriva.com>1999-10-01 15:57:39 +0000
commit3cf33eab50fd8e7eb927c617986f62938e0485a1 (patch)
tree9f585993cd1b4d0cace49969a118ea56227044f9 /perl-install/Xconfigurator_consts.pm
parent4d03533983eda1325e04122a4dc478d892862471 (diff)
downloaddrakx-backup-do-not-use-3cf33eab50fd8e7eb927c617986f62938e0485a1.tar
drakx-backup-do-not-use-3cf33eab50fd8e7eb927c617986f62938e0485a1.tar.gz
drakx-backup-do-not-use-3cf33eab50fd8e7eb927c617986f62938e0485a1.tar.bz2
drakx-backup-do-not-use-3cf33eab50fd8e7eb927c617986f62938e0485a1.tar.xz
drakx-backup-do-not-use-3cf33eab50fd8e7eb927c617986f62938e0485a1.zip
*** empty log message ***
Diffstat (limited to 'perl-install/Xconfigurator_consts.pm')
-rw-r--r--perl-install/Xconfigurator_consts.pm24
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