summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2006-02-23 15:19:54 +0000
committerOlivier Blin <oblin@mandriva.org>2006-02-23 15:19:54 +0000
commitc2d454ea5217af1fc3071739bd1a95bf1cab864d (patch)
treef8c7abc12494bbb9a18096c13fc2970fc208c77a /perl-install
parentc05c1454bf33b985188b2321f43243d2496cd91d (diff)
downloaddrakx-c2d454ea5217af1fc3071739bd1a95bf1cab864d.tar
drakx-c2d454ea5217af1fc3071739bd1a95bf1cab864d.tar.gz
drakx-c2d454ea5217af1fc3071739bd1a95bf1cab864d.tar.bz2
drakx-c2d454ea5217af1fc3071739bd1a95bf1cab864d.tar.xz
drakx-c2d454ea5217af1fc3071739bd1a95bf1cab864d.zip
don't prepend $::prefix on module load, but when the path is actually used
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/bootsplash.pm26
1 files changed, 13 insertions, 13 deletions
diff --git a/perl-install/bootsplash.pm b/perl-install/bootsplash.pm
index f302a94b6..196e38fab 100644
--- a/perl-install/bootsplash.pm
+++ b/perl-install/bootsplash.pm
@@ -8,10 +8,10 @@ our @ISA = qw(Exporter);
our %EXPORT_TAGS = (drawing => [qw(rectangle2xywh xywh2rectangle distance farthest nearest)]);
our @EXPORT_OK = map { @$_ } values %EXPORT_TAGS;
-my $themes_dir = "$::prefix/usr/share/bootsplash/themes";
-my $themes_config_dir = "$::prefix/etc/bootsplash/themes";
-my $sysconfig_file = "$::prefix/etc/sysconfig/bootsplash";
-my $bootsplash_scripts = "$::prefix/usr/share/bootsplash/scripts";
+my $themes_dir = "/usr/share/bootsplash/themes";
+my $themes_config_dir = "/etc/bootsplash/themes";
+my $sysconfig_file = "/etc/sysconfig/bootsplash";
+my $bootsplash_scripts = "/usr/share/bootsplash/scripts";
my $default_theme = 'Mandrivalinux';
our $default_thumbnail = '/usr/share/libDrakX/pixmaps/nosplash_thumb.png';
our @resolutions = uniq(map { "$_->{X}x$_->{Y}" } Xconfig::resolution_and_depth::bios_vga_modes());
@@ -33,9 +33,9 @@ sub themes_read_sysconfig {
enabled => 1,
keep_logo => 1
);
- if (-r $sysconfig_file) {
+ if (-r $::prefix . $sysconfig_file) {
local $_;
- foreach (cat_($sysconfig_file)) {
+ foreach (cat_($::prefix . $sysconfig_file)) {
/^SPLASH=no/ and $theme{enabled} = 0;
/^THEME=(.*)/ && -f theme_get_image_for_resolution($1, $res) and $theme{name} = $1;
/^LOGO_CONSOLE=(.*)/ and $theme{keep_logo} = $1 ne "no";
@@ -46,12 +46,12 @@ sub themes_read_sysconfig {
sub theme_get_image_for_resolution {
my ($theme, $res) = @_;
- $themes_dir . '/' . $theme . '/images/bootsplash-' . $res . ".jpg";
+ $::prefix . $themes_dir . '/' . $theme . '/images/bootsplash-' . $res . ".jpg";
}
sub theme_get_config_for_resolution {
my ($theme, $res) = @_;
- $themes_config_dir . '/' . $theme . '/config/bootsplash-' . $res . ".cfg";
+ $::prefix . $themes_config_dir . '/' . $theme . '/config/bootsplash-' . $res . ".cfg";
}
sub theme_exists_for_resolution {
@@ -60,7 +60,7 @@ sub theme_exists_for_resolution {
}
sub themes_list() {
- grep { !/^\./ && -d $_ } sort(all($themes_dir));
+ grep { !/^\./ && -d $_ } sort(all($::prefix . $themes_dir));
}
sub themes_list_for_resolution {
@@ -74,7 +74,7 @@ sub switch {
print "enabling bootsplash theme $theme\n";
} else {
#- theme scripts will update SPLASH value in sysconfig file
- system($bootsplash_scripts . '/switch-themes', $theme);
+ system($::prefix . $bootsplash_scripts . '/switch-themes', $theme);
}
}
@@ -82,14 +82,14 @@ sub remove() {
if ($::testing) {
print "disabling bootsplash theme\n";
} else {
- system($bootsplash_scripts . '/remove-theme');
+ system($::prefix . $bootsplash_scripts . '/remove-theme');
}
}
sub set_logo_console {
my ($keep_logo) = @_;
my $logo_console = $keep_logo ? 'theme' : 'no';
- substInFile { s/^LOGO_CONSOLE=.*/LOGO_CONSOLE=$logo_console/ } $sysconfig_file;
+ substInFile { s/^LOGO_CONSOLE=.*/LOGO_CONSOLE=$logo_console/ } $::prefix . $sysconfig_file;
}
sub create_path {
@@ -103,7 +103,7 @@ sub theme_set_image_for_resolution {
create_path($dest_image);
#- Append an exclamation point to the geometry to force the image size to exactly the size you specify.
system('convert', '-geometry', $res . '!', $source_image, $dest_image);
- system($bootsplash_scripts . '/rewritejpeg', $dest_image);
+ system($::prefix . $bootsplash_scripts . '/rewritejpeg', $dest_image);
}
sub theme_read_config_for_resolution {