diff options
Diffstat (limited to 'perl-install/standalone')
| -rwxr-xr-x | perl-install/standalone/draksplash | 544 |
1 files changed, 544 insertions, 0 deletions
diff --git a/perl-install/standalone/draksplash b/perl-install/standalone/draksplash new file mode 100755 index 000000000..d60b63f9e --- /dev/null +++ b/perl-install/standalone/draksplash @@ -0,0 +1,544 @@ +#!/usr/bin/perl -w + +use lib qw(/usr/lib/libDrakX); +use MDK::Common; +use Gtk; +use interactive; +use my_gtk ; +init Gtk; + +#- convenience variables for true and false +my $false = 0; +my $true = 1; + +#- this part is embedded management +$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~/--embedded (\S*) (\S*)/; +if ($::isEmbedded) { + print "EMBED\n"; + print "XID : $::XID\n"; + print "CCPID : $::CCPID\n"; +} + +my $in = 'interactive'->vnew('su', 'default'); +local $_ = join '', @ARGV; + +/-h/ and die _("no help implemented yet.\n"); +/-version/ and die 'version: $Id$'."\n"; + +my $window = $::isEmbedded ? new Gtk::Plug ($::XID) : new Gtk::Window ("toplevel"); +$window->signal_connect(delete_event => sub { $::isEmbedded ? kill(USR1, $::CCPID) : &CloseAppWindow }); + +#- verification of package image magik +$in->ask_warn(_("Error"),_("package ImageMagick is required for correct working")) + and $::isEmbedded ? kill(USR1, $::CCPID) : &CloseAppWindow if system('rpm -q ImageMagick'); + + +#- application vars +#my $mained = 1; +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 $prev_window; +my $pix; + +my $boot_conf_path = '/etc/bootsplash/themes/'; +my %font_size = ('h'=>16,'w'=>8); +my %theme = ('name'=>'new_theme', + 'res' =>{'res'=>'800x600', + 'h'=>'600', + 'w'=>'800' + }, + 'boot_conf'=>{ 'tx' => 0 , + 'ty' => 0 , + 'tw' => 0 , + 'th' => 0 , + 'px' => 0 , + 'py' => 0 , + 'pw' => 0 , + 'ph' => 0 , + 'pc' => '0x21459d', + }, + 'boot_img'=> '', + ); + +my %scale_size = ('tx'=> ($theme{'res'}{'w'} / $font_size{'w'}), + 'ty'=> ($theme{'res'}{'h'} / $font_size{'h'}), + 'tw'=> ($theme{'res'}{'w'} / $font_size{'w'}), + 'th'=> ($theme{'res'}{'h'} / $font_size{'h'}), + 'px'=> $theme{'res'}{'w'}, + 'py'=> $theme{'res'}{'h'}, + 'pw'=> $theme{'res'}{'w'}, + 'ph'=> $theme{'res'}{'h'}, + ); + +my %first = ('frame'=>new Gtk::Frame(_("first step creation")), + 'widget'=>{ 'label'=> { 'res'=>_("final resolution"), + 'file'=>_("choose image file"), + 'name'=>_("Theme name") + }, + 'button'=>{ 'boot_conf'=>_("make bootsplash step 2"), + 'lilo_conf'=>_("go to lilosplash configuration"), + 'kill'=>_("quit"), + 'save'=>_("save theme"), + 'file'=>_("browse"), + }, + 'combo'=> {'res'=>['800x600', '1024x768', '1280x1024'], + 'name'=>[ $theme{'name'} , &giv_exist_thm] + }, + ,}, + 'pos'=>[ 'name', + 'res', + 'file', + 'boot_conf', + 'save', + 'kill'], + ); +my %boot_conf_frame = ('frame' => new Gtk::Frame( _("Configure bootsplash picture") ), + 'widget'=> { 'label' => { 'tx'=> _("x coordinate of text box in number of character"), + 'ty'=> _("y coordinate of text box in number of character"), + 'tw'=> _("text width"), + 'th'=> _("text box height"), + 'px'=> _("the progress bar x coordinate of its upper left corner"), + 'py'=> _("the progress bar y coordinate of its upper left corner"), + 'pw'=> _("the width of the progress bar"), + 'ph'=> _("the heigth of the progress bar"), + 'pc'=> _("the color of the progress bar") + }, + #- must set scale values to true to get them created by mk_frame + 'scale' => {'tx'=> 1, + 'ty'=> 1, + 'tw'=> 1, + 'th'=> 1, + 'px'=> 1, + 'py'=> 1, + 'pw'=> 1, + 'ph'=> 1, + }, + 'button' => { 'annul'=> _("go back"), + 'prev'=>_("preview"), + 'pc'=> _("choose color"), + + }, + 'check' => { 'logo' => _("Display logo on Console" ), + 'quiet'=> _("Make kernel message quiet by default"), + }, + }, + 'pos'=> [ 'tx' , + 'ty' , + 'tw' , + 'th' , + 'px' , + 'py' , + 'pw' , + 'ph' , + 'pc' , + 'logo', + 'quiet', + 'annul', + 'prev', + ], + ); +#- var action is used to hide/show the correct frame +my @action_frame = ( \%boot_conf_frame , + \%first); + + +# >>>>>>>>>> FIRST SCREEN >>>>>>>>>> +my $VB2 = new Gtk::VBox(0,5); +&mk_frame(\$VB2,\%first); +#****************************- Signal event actions +#************************************************** +#- change resolution +$first{'widgets'}{'combo'}{'res'}->entry->signal_connect( changed => sub { + $theme{'res'}{'res'} = $first{'widgets'}{'combo'}{'res'}->entry->get_text; + ($theme{'res'}{'w'},$theme{'res'}{'h'}) = $theme{'res'}{'res'} =~ /([^x]+)x([^x]+)/; + &set_scale_size; + $boot_conf_frame{'frame'}->destroy ; + $boot_conf_frame{'frame'} = new Gtk::Frame(_("Configure bootsplash picture") ); + &make_boot_frame; + member( $theme{'name'}, &giv_exist_thm) and &thm_in_this_res and &get_this_thm_res_conf or $in->ask_warn(_("Notice"),_("This theme haven't yet any bootsplash in %s !",$theme{'res'}{'res'})); + }); +#- quit button +$first{'widgets'}{'button'}{'kill'}->signal_connect( clicked => \&CloseAppWindow); +#- go to bootsplash configuration step 2 +$first{'widgets'}{'button'}{'boot_conf'}->signal_connect( clicked => sub{show_act(\%boot_conf_frame) } ); +#- image file selection for new theme +$first{'widgets'}{'button'}{'file'}->signal_connect( clicked =>sub{ + my $file_dialog = new Gtk::FileSelection('choose image'); + $file_dialog->set_filename( ( $first{'widgets'}{'label'}{'file'}->get ne _("choose image file") )?$first{'widgets'}{'label'}{'file'}->get:'~/' ); + $file_dialog->cancel_button->signal_connect( clicked => sub{ $file_dialog->destroy} ); + $file_dialog->ok_button->signal_connect( clicked => sub{ $first{'widgets'}{'label'}{'file'}->set_text($file_dialog->get_filename) ; $file_dialog->destroy ;}); + $file_dialog->show; +}); +#- changing theme name +$first{'widgets'}{'combo'}{'name'}->entry->signal_connect( changed => sub{ &get_this_thm_res_conf; $theme{'name'} = $first{'widgets'}{'combo'}{'name'}->entry->get_text; }); +$first{'widgets'}{'button'}{'save'}->signal_connect(clicked=> sub{ &write_boot_thm }); +#************************************************** +#************************************************** +# <<<<<<<<<< FIRST SCREEN <<<<<<<<<< + + +$first_vbox = new Gtk::VBox(0,5); +#$first_vbox->add($boot_conf_frame{'frame'}); +$first_vbox->add($first{'frame'}); + +&make_boot_frame; + +# set window attributes and show it +$window->border_width( 5 ); +$window->add($first_vbox); +$window->set_policy( 0, 1, 1 ); +$window->set_position('center'); +$window->show_all(); +&show_act(\%first); + +# Gtk event loop +main Gtk; + +# Should never get here +exit( 0 ); + +### Callback function to close the window +sub CloseAppWindow{ + Gtk->exit( 0 ); + return $false; +} + +#- ====## used funtions ##===== + +#- Desc => write config file for boot theme and copy image in the right location +sub write_boot_thm{ + my $w = $in->wait_message('',_("saving Bootsplash theme...")); + &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/bootsplash-'.$theme{'res'}{'res'}.'.cfg'; + #- verify all dir exists or create them + -d $thm_conf_path.$theme{'name'} + or mkdir($thm_conf_path.$theme{'name'}); + -d $thm_conf_path.$theme{'name'}.'/cfg' + or mkdir($thm_conf_path.$theme{'name'}.'/cfg'); + -d $thm_path.$theme{'name'} + or mkdir($thm_path.$theme{'name'}); + -d $thm_path.$theme{'name'}.'/images/' + or mkdir($thm_path.$theme{'name'}.'/images/'); + #- copy image to dest by convert + system('convert -scale '.$theme{'res'}{'res'} .' '.$first{'widgets'}{'label'}{'file'}->get.' '.$thm_path.$theme{'name'}.'/images/bootsplash-'.$theme{'res'}{'res'}.'.jpg'); + system('/usr/share/bootsplash/scripts/rewritejpeg '.$thm_path.$theme{'name'}.'/images/bootsplash-'.$theme{'res'}{'res'}.'.jpg'); + #- write conf files + my $cfg_cont = '# This is the configuration file for the '.$theme{'res'}{'res'}.' bootsplash picture + # this file is necessary to specify the coordinates of the text box on the +# splash screen. + +# tx is the x coordinate of the text window in characters. default is 24 +# multiply width font width for coordinate in pixels. +tx='.$theme{'boot_conf'}{'tx'}.' + +# ty is the y coordinate of the text window in characters. default is 14 +ty='.$theme{'boot_conf'}{'ty'}.' + +# tw is the width of the text window in characters. default is 130 +# note: this should at least be 80 as on the standard linux text console +tw='.$theme{'boot_conf'}{'tw'}.' + +# th is the height of the text window in characters. default is 44 +# NOTE: this should at least be 25 as on the standard linux text console +th='.$theme{'boot_conf'}{'th'}.' + +# px is the progress bar x coordinate of its upper left corner +px='.$theme{'boot_conf'}{'px'}.' + +# py is the progress bar y coordinate of its upper left corner +py='.$theme{'boot_conf'}{'py'}.' + +# pw is the with of the progress bar +pw='.$theme{'boot_conf'}{'pw'}.' + +# ph is the heigth of the progress bar +ph='.$theme{'boot_conf'}{'ph'}.' + +# pc is the color of the progress bar +pc='.$theme{'boot_conf'}{'pc'}.'' +; + my $globalconf_cont = '# Display logo on console. +#LOGO_CONSOLE='.$logo.' + +# Make kernel message quiet by default. +QUIET='.$quiet +; + output($globalconf_file, $globalconf_cont); + output($cfg_file,$cfg_cont); +} + + +#- Desc => read the current bootsplash theme configuration if exist +sub get_this_thm_res_conf{ + member($first{'widgets'}{'combo'}{'name'}->entry->get_text , &giv_exist_thm) + and $theme{'name'} = $first{'widgets'}{'combo'}{'name'}->entry->get_text + and &thm_in_this_res(1) + and &read_boot_conf; + -f $thm_path.$theme{'name'}."/images/bootsplash-".$theme{'res'}{'res'}.".jpg" + and $first{'widgets'}{'label'}{'file'}->set_text($thm_path.$theme{'name'}."/images/bootsplash-".$theme{'res'}{'res'}.".jpg"); + return 1; +} + +sub read_boot_conf { + chdir($thm_conf_path); + my $line; + if(-f $theme{'name'}.'/cfg/bootsplash-'.$theme{'res'}{'res'}.'.cfg') { + open CFG , $theme{'name'}.'/cfg/bootsplash-'.$theme{'res'}{'res'}.'.cfg'; + while($line = <CFG>){ + $line =~ m/^([a-z][a-z])=([^\n]+)/ + and $theme{'boot_conf'}{$1} = $2; + } + close CFG; + &set_scale_values; + } else { + return 0; + } +} + +sub set_scale_values{ + foreach (keys %{$theme{'boot_conf'}}){ + ${$_.'_adj'} + and ${$_.'_adj'}->set_value($theme{'boot_conf'}{$_}); + } +} + +#- Desc => check if this theme is available in the current resolution else +#- change the current resolution or display a ask_warn box +#- Args => ø +#- return=> (bool) +sub thm_in_this_res{ + my ($check_res) = @_; + (-f $thm_path.$theme{'name'}."/images/bootsplash-".$theme{'res'}{'res'}.".jpg")?return 1 : ($check_res == 1)?return &which_res_exist : return 0 ; +} + +sub which_res_exist{ + chdir($thm_path.$theme{'name'}."/images/"); + my $is_ok = 0; + foreach(@{$first{'widget'}{'combo'}{'res'}}){ + -f "bootsplash-$_.jpg" + and $is_ok = 1 + and $first{'widgets'}{'combo'}{'res'}->entry->set_text($_) + and last; + + } + $is_ok == 1 or $in->ask_warn(_("Notice"),_("This theme haven't yet any bootsplash in %s !",$theme{'res'}{'res'})) and return 0; + return 1; +} + +#- Desc => retrieve all installed theme +#- Args => ø +#- Return=> @arr of available theme +sub giv_exist_thm{ + chdir($thm_path); + my @thms_dirs; + foreach (glob("*")) { + -d $_ && m/^[^.]/ + and push @thms_dirs, $_; + } + return @thms_dirs; +} + +#- Desc =>show only the right frame +#- Args => action(str) +#- Return=> (bool) +sub show_act{ + my ($action) = @_; + foreach (@action_frame){ + if($_ == $action){ + $_->{'frame'}->show_all ; + }else{ + $_->{'frame'}->hide; + } + } +} + +#- Desc => just add tooltips +#- Args => name of widget(str) and frame to work on it (\%hash) +sub tool_tip{ + my ( $name , $ref ) = @_; + foreach (keys %{$ref->{'widget'}}){ + $_ eq 'tooltip' and next; + if($ref->{'widget'}{$_}{$name}){ + ! ${$name.'_tip'} and ${$name.'_tip'} = new Gtk::Tooltips(); + ${$name.'_tip'}->set_tip($ref->{'widgets'}{$_}{$name}, $ref->{'widget'}{'tooltip'}{$name},''); + } + } +} + +#- Desc => just prepare widgets for a fram hash +#- Args => $box(a Vbox widget to contain all widgets), \%frame (hash with complete definition of the frame) +#- Return=> all hash{'widgets'} are created and packed in $box +sub mk_frame{ + my ( $box , $ref ) = @_; + foreach(@{$ref->{'pos'}}){ + #- open a new hbox + ${$_.'hb'} = new Gtk::HBox(0,5); + #- look for label + $ref->{'widget'}{'label'}{$_} + and $ref->{'widgets'}{'label'}{$_} = new Gtk::Label($ref->{'widget'}{'label'}{$_}) + and ${$_.'hb'}->add($ref->{'widgets'}{'label'}{$_}); + #- look for scale + $ref->{'widget'}{'scale'}{$_} + and $ref->{'widgets'}{'scale'}{$_} = new Gtk::HScale( ${$_."_adj"} = new Gtk::Adjustment(0,0,$scale_size{$_},1,10,0)) + and ${$_."hb"}->add($ref->{'widgets'}{'scale'}{$_}) + and $ref->{'widgets'}{'scale'}{$_}->set_digits(0); + ${$_.'_adj'} and ${$_.'_adj'}->set_value($theme{'boot_conf'}{$_}); + #- look for combo + $ref->{'widget'}{'combo'}{$_} + and @popdown = @{$ref->{'widget'}{'combo'}{$_}} + and $ref->{'widgets'}{'combo'}{$_} = new Gtk::Combo + and ${$_."hb"}->add($ref->{'widgets'}{'combo'}{$_}) + and $ref->{'widgets'}{'combo'}{$_}->set_popdown_strings(@popdown); + #- look for checkbox + $ref->{'widget'}{'check'}{$_} + and $ref->{'widgets'}{'check'}{$_} = new Gtk::CheckButton( $ref->{'widget'}{'check'}{$_} ) + and ${$_."hb"}->add($ref->{'widgets'}{'check'}{$_}) + and $ref->{'widgets'}{'check'}{$_}->set_active(1); + #- look for button + $ref->{'widget'}{'button'}{$_} + and $ref->{'widgets'}{'button'}{$_} = new Gtk::Button($ref->{'widget'}{'button'}{$_}) + and ${$_."hb"}->add($ref->{'widgets'}{'button'}{$_}); + #- look for tooltips + $ref->{'widget'}{'tooltip'}{$_} + and &tool_tip($_,\%{$ref}); + ${$box}->add(${$_."hb"}); + } + #####################la ligne en dessous est a revoir aparement########################## + $ref->{'frame'}->add(${$box}); +} + +#- Desc => take a decimal value between 0 to 255 and return the corresponding hexadecimal value +sub dec2hex{ + my ($dec) = @_; + my @dec_hex = (0,1,2,3,4,5,6,7,8,9,'A','B','C','D','E','F'); + my $int; + my $float; + $dec = $dec/16; + $int = int($dec); + $float = $dec_hex[int(($dec-$int)*16)]; + $int = $dec_hex[$int]; + + return "$int$float"; +} + +#- Desc => prepare and set all signal_connect for boot_frame widget +sub make_boot_frame{ + $VB = new Gtk::VBox(0,5); + &mk_frame(\$VB,\%boot_conf_frame); + #- open a color choose box + $boot_conf_frame{'widgets'}{'button'}{'pc'}->signal_connect( clicked => sub { + $color = new Gtk::ColorSelectionDialog(_("ProgressBar color selection")); + $theme{'boot_conf'}{'pc'} =~ m/0x(.{2})(.{2})(.{2})/; + my @rgb = map { hex($_)/255 } ($1 ,$2, $3); + $color->colorsel->set_color(@rgb);#$theme{'boot_conf'}{'pc'}); + $color->cancel_button->signal_connect(clicked=> sub{$color->destroy}); + $color->ok_button->signal_connect(clicked=> sub{ + @rgb = $color->colorsel->get_color(); + @rgb = map ( dec2hex($_*255) , @rgb); + $theme{'boot_conf'}{'pc'} = "0x$rgb[0]$rgb[1]$rgb[2]"; + $color->destroy; + }); + $color->show; + }); + #- return to first screen + $boot_conf_frame{'widgets'}{'button'}{'annul'}->signal_connect( clicked => sub { show_act( \%first ) } ); + #- made a preview + $boot_conf_frame{'widgets'}{'button'}{'prev'}->signal_connect( clicked => sub{ + if(! -f $first{'widgets'}{'label'}{'file'}->get) { + $in->ask_warn(_("Notice"),_("You must choose an image file first!")); + return 0; + } + #- calculation of the 2 angle of text box and progress bar + &set_thm_values; + my $text_tl = ($theme{'boot_conf'}{'tx'}*$font_size{'w'}).','.$theme{'boot_conf'}{'ty'}*$font_size{'h'}; + my $text_br = ($theme{'boot_conf'}{'tw'}*$font_size{'w'}+$theme{'boot_conf'}{'tx'}*$font_size{'w'}).','.($theme{'boot_conf'}{'th'}*$font_size{'h'}+$theme{'boot_conf'}{'ty'}*$font_size{'h'}); + my $progress_tl = $theme{'boot_conf'}{'px'}.','.$theme{'boot_conf'}{'py'}; + my $progress_br = ($theme{'boot_conf'}{'px'}+$theme{'boot_conf'}{'pw'}).','.($theme{'boot_conf'}{'py'}+$theme{'boot_conf'}{'ph'}); + my $w = $in->wait_message('', _("Generating preview ...")); + $x++; + $com = "convert -scale $theme{'res'}{'res'} -fill black -draw 'rectangle $text_tl $text_br rectangle $progress_tl $progress_br' ".$first{'widgets'}{'label'}{'file'}->get." $tmp_path.prev$x.png"; + system($com); + &show_prev("$tmp_path.prev$x.png"); + } ); + $first_vbox->add($boot_conf_frame{'frame'}); + #- check scales values are possibly correct + #&set_scale_values; + + foreach my $k ( keys %{$theme{'boot_conf'}}){ + $k =~ m/[tp][hwyx]/ + and ${$k.'_adj'}->signal_connect(value_changed => sub{ &check_boot_scales($k) }); + } + # unlink "$tmp_path.prev$x.png"; +} + +#- Desc => set theme values from user entry (scales widgets) +sub set_thm_values{ + foreach(keys %{$theme{'boot_conf'}}) { + m/[tp][hwyx]/ + and $theme{'boot_conf'}{$_} = int(${$_.'_adj'}->get_value); + } +} + +#- Desc => create a new window with a preview of splash screen +#- Args => $file (str) full path to preview file +sub show_prev{ + my ($file) = @_; + $prev_window + or ($prev_window = new Gtk::Window('toplevel') and $prev_window->set_policy( 0, 1, 1 ) ); + #- must destroy and recreate or get a bug on refreshing the preview window! + $pix + and $pix->destroy; + $pix = new Gtk::Pixmap(my_gtk::gtkcreate_png($file)); + $prev_window->add($pix); + $prev_window ->signal_connect(delete_event => sub{$prev_window->destroy} ); + $prev_window->show_all; + +} + +#- Desc => define the max size of boot's scales +sub set_scale_size{ + %scale_size = ('tx'=> ($theme{'res'}{'w'} / $font_size{'w'}), + 'ty'=> ($theme{'res'}{'h'} / $font_size{'h'}), + 'tw'=> ($theme{'res'}{'w'} / $font_size{'w'}), + 'th'=> ($theme{'res'}{'h'} / $font_size{'h'}), + 'px'=> $theme{'res'}{'w'}, + 'py'=> $theme{'res'}{'h'}, + 'pw'=> $theme{'res'}{'w'}, + 'ph'=> $theme{'res'}{'h'}, + ); +} + +#- Desc => verify that boot's scales widgets are correctly set +#- Args => $obj (str) is the scale to check value + +sub check_boot_scales{ + my ($obj) = @_; + my $tw = $tw_adj->get_value; + my $tx = $tx_adj->get_value; + my $th = $th_adj->get_value; + my $ty = $ty_adj->get_value; + my $pw = $pw_adj->get_value; + my $ph = $ph_adj->get_value; + my $px = $px_adj->get_value; + my $py = $py_adj->get_value; + my $max_x = $scale_size{'tw'}; + my $max_y = $scale_size{'th'}; + my $max_xres = $theme{'res'}{'w'}; + my $max_yres = $theme{'res'}{'h'}; + + $obj eq 'tw' and $max_x < ($tw + $tx) and $tx_adj->set_value($max_x - $tw); + $obj eq 'tx' and $max_x < ($tw + $tx) and $tw_adj->set_value($max_x - $tx); + $obj eq 'th' and $max_y < ($th + $ty) and $ty_adj->set_value($max_y - $th); + $obj eq 'ty' and $max_y < ($th + $ty) and $th_adj->set_value($max_y - $ty); + $obj eq 'pw' and $max_xres < ($pw + $px) and $px_adj->set_value($max_xres - $pw); + $obj eq 'px' and $max_xres < ($pw + $px) and $pw_adj->set_value($max_xres - $px); + $obj eq 'ph' and $max_yres < ($ph + $py) and $py_adj->set_value($max_yres - $ph); + $obj eq 'py' and $max_yres < ($ph + $py) and $ph_adj->set_value($max_yres - $py); + +} |