summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/draksplash38
-rwxr-xr-xperl-install/standalone/scannerdrake45
2 files changed, 39 insertions, 44 deletions
diff --git a/perl-install/standalone/draksplash b/perl-install/standalone/draksplash
index 405f3821d..61cd50d98 100755
--- a/perl-install/standalone/draksplash
+++ b/perl-install/standalone/draksplash
@@ -19,7 +19,7 @@ $window->{rwindow}->signal_connect(delete_event => \&CloseAppWindow);
#- verification of package image magik
unless ($in->do_pkgs->is_installed('ImageMagick')) {
$in->ask_okcancel(N("Error"), N("package 'ImageMagick' is required to be able to complete configuration.\nClick \"Ok\" to install 'ImageMagick' or \"Cancel\" to quit"))
- and $in->do_pkgs->install('ImageMagick')
+ && $in->do_pkgs->install('ImageMagick')
or &CloseAppWindow;
}
@@ -153,7 +153,7 @@ $first{widgets}{combo}{res}->entry->signal_connect(changed => sub {
$boot_conf_frame{frame} = new Gtk2::Frame(N("Configure bootsplash picture"));
&make_boot_frame;
$first_vbox->add($boot_conf_frame{frame});
- member($theme{name}, &giv_exist_thm) and &thm_in_this_res and &get_this_thm_res_conf or $in->ask_warn(N("Notice"), N("This theme does not yet have a bootsplash in %s !", $theme{res}{res}));
+ member($theme{name}, &giv_exist_thm) and &thm_in_this_res and &get_this_thm_res_conf || $in->ask_warn(N("Notice"), N("This theme does not yet have a bootsplash in %s !", $theme{res}{res}));
});
#- go to bootsplash configuration step 2
#$first{widgets}{button}{boot_conf}->signal_connect(clicked => sub{show_act(\%boot_conf_frame) } );
@@ -193,7 +193,7 @@ $window->main;
ugtk2->exit(0);
### Callback function to close the window
-sub CloseAppWindow {
+sub CloseAppWindow() {
ugtk2->exit(0);
}
@@ -252,14 +252,12 @@ pw='.$theme{boot_conf}{pw}.'
ph='.$theme{boot_conf}{ph}.'
# pc is the color of the progress bar
-pc='.$theme{boot_conf}{pc}.''
-;
+pc='.$theme{boot_conf}{pc}.'';
my $globalconf_cont = '# Display logo on console.
LOGO_CONSOLE='.$logo.'
# Make kernel message quiet by default.
-QUIET='.$quiet
-;
+QUIET='.$quiet;
output($globalconf_file, $globalconf_cont);
output($cfg_file,$cfg_cont);
}
@@ -294,7 +292,7 @@ sub read_boot_conf {
}
my %adj;
-sub set_scale_values {
+sub set_scale_values() {
foreach (keys %{$theme{boot_conf}}) {
$adj{$_} and $adj{$_}->set_value($theme{boot_conf}{$_});
}
@@ -309,7 +307,7 @@ sub thm_in_this_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 {
+sub which_res_exist() {
chdir($thm_path.$theme{name}."/images/");
my $is_ok = 0;
foreach (@{$first{widget}{combo}{res}}) {
@@ -326,7 +324,7 @@ sub which_res_exist {
#- Desc => retrieve all installed theme
#- Args => ø
#- Return=> @arr of available theme
-sub giv_exist_thm {
+sub giv_exist_thm() {
chdir($thm_path);
my @thms_dirs;
foreach (glob("*")) {
@@ -371,8 +369,7 @@ my %hboxes;
sub mk_frame {
my ($box , $ref) = @_;
foreach my $pos (@{$ref->{pos}}) {
- $pos =~ m/^(\w+)(\s+)?(\w+)?$/;
- my $key = $1.'hb';
+ my $key = $1.'hb' if $pos =~ m/^(\w+)(\s+)?(\w+)?$/;
#- open a new hbox
$hboxes{$key} = new Gtk2::HBox($3 ? 1 : 0, 5);
#- look for label
@@ -402,7 +399,7 @@ sub mk_frame {
and $ref->{widgets}{button}{$1} = new Gtk2::Button($ref->{widget}{button}{$1})
and $hboxes{$key}->add($ref->{widgets}{button}{$1});
#- look for tooltips
- $ref->{widget}{tooltip}{$1} and &tool_tip($1, \%{$ref});
+ $ref->{widget}{tooltip}{$1} and &tool_tip($1, \%$ref);
$box->add($hboxes{$key});
}
$ref->{frame}->add($box);
@@ -423,14 +420,13 @@ sub dec2hex {
}
#- Desc => prepare and set all signal_connect for boot_frame widget
-sub make_boot_frame {
+sub make_boot_frame() {
my $VB = new Gtk2::VBox(0,5);
&mk_frame($VB, \%boot_conf_frame);
#- open a color choose box
$boot_conf_frame{widgets}{button}{pc}->signal_connect(clicked => sub {
my $color = gtkshow(Gtk2::ColorSelectionDialog->new(N("ProgressBar color selection")));
- $theme{boot_conf}{pc} =~ m/0x(.{2})(.{2})(.{2})/;
- my @rgb = map { hex($_)/255 } ($1 ,$2, $3);
+ my @rgb = map { hex($_)/255 } ($1 ,$2, $3) if $theme{boot_conf}{pc} =~ m/0x(.{2})(.{2})(.{2})/;
$color->colorsel->set_current_color(Gtk2::Gdk::Color->new(@rgb));
$color->cancel_button->signal_connect(clicked => sub { $color->destroy });
$color->ok_button->signal_connect(clicked => sub {
@@ -475,7 +471,7 @@ sub make_boot_frame {
}
#- Desc => set theme values from user entry (scales widgets)
-sub set_thm_values {
+sub set_thm_values() {
foreach (keys %{$theme{boot_conf}}) {
m/[tp][hwyx]/
and $theme{boot_conf}{$_} = int($adj{$_}->get_value);
@@ -486,7 +482,7 @@ sub set_thm_values {
my ($prev_pic, $prev_pix, $prev_canvas);
#- Desc => destroy properly all widget of preview window
-sub kill_preview {
+sub kill_preview() {
$prev_window->destroy; undef($prev_window);
$prev_canvas->destroy; undef($prev_canvas);
undef($prev_pic);
@@ -495,7 +491,7 @@ sub kill_preview {
#- Desc => create a new window with a preview of splash screen
#- Args => $file (str) full path to preview file
sub show_prev {
- my ($file,$txt_tl_x,$txt_tl_y,$txt_width,$txt_height,$prog_tl_x,$prog_tl_y,$prog_width, $prog_height) = @_;
+ my ($file, $txt_tl_x, $txt_tl_y, $txt_width, $txt_height, $prog_tl_x, $prog_tl_y, $prog_width, $prog_height) = @_;
$prev_window
or $prev_window = new Gtk2::Window('toplevel') and $prev_window->set_policy(0, 1, 1);
#-PO First %s is theme name, second %s (in parenthesis) is resolution
@@ -503,7 +499,7 @@ sub show_prev {
$prev_pic = gtkcreate_pixbuf($file);
$prev_pic->scale_simple($theme{res}{w}, $theme{res}{h},0);
$prev_pix = $prev_pic->render_pixmap_and_mask($prev_pic);
- $prev_canvas and $prev_canvas->isa('Gtk2::Widget')
+ $prev_canvas && $prev_canvas->isa('Gtk2::Widget')
or $prev_canvas = new Gtk2::DrawingArea() and $prev_window->add($prev_canvas);
$prev_canvas->set_size_request($theme{res}{w}, $theme{res}{h});
$prev_canvas->signal_connect(expose_event => sub {
@@ -517,7 +513,7 @@ sub show_prev {
}
#- Desc => define the max size of boot's scales
-sub set_scale_size {
+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}),
diff --git a/perl-install/standalone/scannerdrake b/perl-install/standalone/scannerdrake
index c1e334e91..a17c7e200 100755
--- a/perl-install/standalone/scannerdrake
+++ b/perl-install/standalone/scannerdrake
@@ -56,7 +56,7 @@ $wait = undef;
my $changed = 0;
@f and $changed = auto();
if ($changed) {
- my $wait =
+ my $_wait =
$in->wait_message(N("Scannerdrake"),
N("Re-generating list of configured scanners ..."));
@c = scanner::configured();
@@ -67,14 +67,13 @@ quit();
sub removeverticalbar {
my ($s) = @_;
$s =~ s/\|/ /g;
- $s =~ /^\s*(\S+)\s+/;
- my $make = $1;
+ my $make = $1 if $s =~ /^\s*(\S+)\s+/;
my $searchmake = handle_configs::searchstr($make);
$s =~ s/($searchmake)\s*$searchmake/$1/;
return $s;
}
-sub auto {
+sub auto() {
my $changed = 0;
foreach (@f) {
my $c = 0;
@@ -88,7 +87,7 @@ sub auto {
if ($in->ask_yesorno('Scannerdrake', N("%s found on %s, configure it automatically?", removeverticalbar($name), $_->{port}),1)) {
$c = (tryConfScanner($name, $_->{port},
$_->{val}{vendor},
- $_->{val}{id}) or
+ $_->{val}{id}) ||
manual($_->{port}, $_->{val}{vendor},
$_->{val}{id}, $name));
} else {
@@ -99,9 +98,9 @@ sub auto {
$in->ask_yesorno('Scannerdrake',
N("%s is not in the scanner database, configure it manually?",
removeverticalbar($_->{val}{DESCRIPTION})),1)
- and ($c =
+ and $c =
manual($_->{port}, $_->{val}{vendor}, $_->{val}{id},
- $_->{val}{DESCRIPTION}));
+ $_->{val}{DESCRIPTION});
}
$changed ||= $c;
}
@@ -129,7 +128,7 @@ sub manual {
return tryConfScanner($s, $port, $vendor, $product);
}
-sub dynamic {
+sub dynamic() {
@f = scanner::detect();
my $name;
foreach (@f) {
@@ -233,7 +232,7 @@ sub tryConfScanner {
return 1;
}
-sub quit {
+sub quit() {
$in->exit(0);
}
@@ -327,7 +326,7 @@ sub mainwindow {
$maindone = 1;
}
if ($changed) {
- my $wait =
+ my $_wait =
$in->wait_message(N("Scannerdrake"),
N("Re-generating list of configured scanners ..."));
@configured = scanner::configured();
@@ -345,7 +344,7 @@ sub makeexportmenues {
($_ eq '+' ? N("All remote machines") : $_) => $_;
} map {
# Remove comments and blank lines
- (/^\s*($|\#)/ ? () : chomp_($_));
+ (/^\s*($|#)/ ? () : chomp_($_));
} @exports;
my %menuexports_inv = reverse %menuexports;
return (\%menuexports, \%menuexports_inv);
@@ -357,14 +356,14 @@ sub makeimportmenues {
($_ eq 'localhost' ? N("This machine") : $_) => $_;
} map {
# Remove comments and blank lines
- if_(!/^\s*($|\#)/, chomp_($_));
+ if_(!/^\s*($|#)/, chomp_($_));
} @imports;
my %menuimports_inv = reverse %menuimports;
return (\%menuimports, \%menuimports_inv);
}
sub sharewindow {
- my @configured = @_;
+ my @_configured = @_;
# Read list of hosts to where to export the local scanners
my @exports = cat_("/etc/sane.d/saned.conf");
my ($menuexports, $menuexports_inv) =
@@ -401,10 +400,10 @@ sub sharewindow {
{ text => N("The scanners on this machine are available to other computers"), type => 'bool',
val => \$sanedrunning },
{ val => N("Scanner sharing to hosts: ") .
- (keys %{$menuexports} > 0 ?
- (keys %{$menuexports} > 2 ?
- join(", ", (keys %{$menuexports})[0,1]) . " ..." :
- join(", ", keys %{$menuexports})) :
+ (keys %$menuexports > 0 ?
+ (keys %$menuexports > 2 ?
+ join(", ", (keys %$menuexports)[0,1]) . " ..." :
+ join(", ", keys %$menuexports)) :
N("No remote machines")),
type => 'button',
clicked_may_quit => sub {
@@ -418,10 +417,10 @@ sub sharewindow {
type => 'bool',
val => \$netbackendactive },
{ val => N("Use the scanners on hosts: ") .
- (keys %{$menuimports} > 0 ?
- (keys %{$menuimports} > 2 ?
- join(", ", (keys %{$menuimports})[0,1]) . " ..." :
- join(", ", keys %{$menuimports})) :
+ (keys %$menuimports > 0 ?
+ (keys %$menuimports > 2 ?
+ join(", ", (keys %$menuimports)[0,1]) . " ..." :
+ join(", ", keys %$menuimports)) :
N("No remote machines")),
type => 'button',
clicked_may_quit => sub {
@@ -439,7 +438,7 @@ sub sharewindow {
my $subdone = 0;
my $choice;
while (!$subdone) {
- my @list = keys %{$menuexports};
+ my @list = keys %$menuexports;
# Entry should be edited when double-clicked
$buttonclicked = "edit";
$in->ask_from_
@@ -589,7 +588,7 @@ sub sharewindow {
my $subdone = 0;
my $choice;
while (!$subdone) {
- my @list = keys %{$menuimports};
+ my @list = keys %$menuimports;
# Entry should be edited when double-clicked
$buttonclicked = "edit";
$in->ask_from_