diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/draksplash | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/perl-install/standalone/draksplash b/perl-install/standalone/draksplash index c8305f043..e4710330a 100755 --- a/perl-install/standalone/draksplash +++ b/perl-install/standalone/draksplash @@ -27,14 +27,13 @@ unless ($in->do_pkgs->is_installed('ImageMagick')) { my $tmp_path = '/tmp/draksplash/'; ! -d $tmp_path and mkdir($tmp_path); my $thm_path = '/usr/share/bootsplash/themes/'; -my $thm_conf_path = '/etc/bootsplash/themes/'; +my $boot_conf_path = '/etc/bootsplash/themes/'; my $cfg_path = "/cfg/"; my $img_file; my $prev_window; -my $boot_conf_path = '/etc/bootsplash/themes/'; my %font_size = ('h' =>16, 'w' =>8); my %theme = ('name' => 'new_theme', 'res' => { @@ -211,10 +210,10 @@ sub write_boot_thm { &set_thm_values; my $logo = $boot_conf_frame{widgets}{check}{logo}->get_active ? 'yes' : 'no'; my $quiet = $boot_conf_frame{widgets}{check}{quiet}->get_active ? 'yes' : 'no'; - my $globalconf_file = $thm_conf_path.$theme{name}.'/global.config'; - my $cfg_file = $thm_conf_path . $theme{name} . "$cfg_path/bootsplash-" . $theme{res}{res} . '.cfg'; + my $globalconf_file = boot_conf_path.$theme{name}.'/global.config'; + my $cfg_file = boot_conf_path . $theme{name} . "$cfg_path/bootsplash-" . $theme{res}{res} . '.cfg'; #- verify all dir exists or create them - foreach my $dir ($thm_conf_path . $theme{name} . $cfg_path, $thm_path.$theme{name} . '/images/') { + foreach my $dir (boot_conf_path . $theme{name} . $cfg_path, $thm_path.$theme{name} . '/images/') { mkdir_p($dir) if !-d $dir; } #- copy image to dest by convert @@ -276,7 +275,7 @@ sub get_this_thm_res_conf() { } sub read_boot_conf { - chdir($thm_conf_path); + chdir(boot_conf_path); my $line; if (-f $theme{name} . "/$cfg_path/bootsplash-" . $theme{res}{res} . '.cfg') { local *CFG; |