summaryrefslogtreecommitdiffstats
path: root/perl-install/Xconfigurator.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2001-01-05 16:54:28 +0000
committerFrancois Pons <fpons@mandriva.com>2001-01-05 16:54:28 +0000
commitbf1ce26a4860a3aabf8ba539475465c2dbcb19b3 (patch)
tree8d70da189eea91fed0479bd83703346683f64d57 /perl-install/Xconfigurator.pm
parentc119ca16c9fd12e7b863f0c0b1651f621b2e2586 (diff)
downloaddrakx-backup-do-not-use-bf1ce26a4860a3aabf8ba539475465c2dbcb19b3.tar
drakx-backup-do-not-use-bf1ce26a4860a3aabf8ba539475465c2dbcb19b3.tar.gz
drakx-backup-do-not-use-bf1ce26a4860a3aabf8ba539475465c2dbcb19b3.tar.bz2
drakx-backup-do-not-use-bf1ce26a4860a3aabf8ba539475465c2dbcb19b3.tar.xz
drakx-backup-do-not-use-bf1ce26a4860a3aabf8ba539475465c2dbcb19b3.zip
use of SHARE_PATH for MonitorsDB, Cards+, CardsNames
Diffstat (limited to 'perl-install/Xconfigurator.pm')
-rw-r--r--perl-install/Xconfigurator.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index 6bd55004b..786bc032d 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -73,12 +73,12 @@ sub readCardsDB {
\%cards;
}
sub readCardsNames {
- my $file = "/usr/share/ldetect-lst/CardsNames";
+ my $file = "$ENV{SHARE_PATH}/ldetect-lst/CardsNames";
local *F; open F, $file or die "can't find $file\n";
map { (split '=>')[0] } grep { !/^#/ } <F>;
}
sub cardName2RealName {
- my $file = "/usr/share/ldetect-lst/CardsNames";
+ my $file = "$ENV{SHARE_PATH}/ldetect-lst/CardsNames";
my ($name) = @_;
local *F; open F, $file or die "can't find $file\n";
local $_;
@@ -92,7 +92,7 @@ sub cardName2RealName {
}
sub updateCardAccordingName {
my ($card, $name) = @_;
- my $cards = readCardsDB("/usr/share/ldetect-lst/Cards+");
+ my $cards = readCardsDB("$ENV{SHARE_PATH}/ldetect-lst/Cards+");
add2hash($card->{flags}, $cards->{$name}{flags});
add2hash($card, $cards->{$name});
@@ -358,7 +358,7 @@ sub monitorConfiguration(;$$) {
$monitor->{hsyncrange} && $monitor->{vsyncrange} and return $monitor;
- readMonitorsDB("/usr/share/ldetect-lst/MonitorsDB");
+ readMonitorsDB("$ENV{SHARE_PATH}/ldetect-lst/MonitorsDB");
add2hash($monitor, { type => $in->ask_from_treelist(_("Monitor"), _("Choose a monitor"), '|', ['Custom', keys %monitors], 'Generic|' . translate($default_monitor)) }) unless $monitor->{type};
if ($monitor->{type} eq 'Custom') {