From 533bfd1d02d711b2cf517fda315156e02200861e Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 17 Oct 2003 17:03:58 +0000 Subject: perl_checker cleanups --- perl-install/standalone/drakTermServ | 20 ++++++------- perl-install/standalone/fileshareset | 1 + perl-install/standalone/printerdrake | 57 ++++++++++++++++++------------------ 3 files changed, 39 insertions(+), 39 deletions(-) (limited to 'perl-install/standalone') diff --git a/perl-install/standalone/drakTermServ b/perl-install/standalone/drakTermServ index c3c5e8b60..d7c9bc6da 100755 --- a/perl-install/standalone/drakTermServ +++ b/perl-install/standalone/drakTermServ @@ -378,9 +378,9 @@ sub text_view { } sub help() { - my $inittab_str = "/etc/inittab\$\$IP=client_ip\$\$"; - my $shadow_str = "/etc/shadow\$\$CLIENT\$\$"; - my $xfconfig_str = "/etc/X11/XF86Config-4\$\$IP=client_ip\$\$"; + my $inittab_str = '/etc/inittab$$IP=client_ip$$'; + my $shadow_str = '/etc/shadow$$CLIENT$$'; + my $xfconfig_str = '/etc/X11/XF86Config-4$$IP=client_ip$$'; text_view(N("drakTermServ Overview") . "\n\n" . N(" - Create Etherboot Enabled Boot Images: @@ -667,7 +667,7 @@ sub maintain_users() { #- copy users from /etc/shadow to /etc/shadow$$CLIENT$$ to allow ts login my $user_box; my @sys_users = cat_("/etc/shadow"); - my @ts_users = cat_("/etc/shadow\$\$CLIENT\$\$"); + my @ts_users = cat_('/etc/shadow$$CLIENT$$'); my $titer; #- use /homes to filter system daemons @@ -1353,7 +1353,7 @@ sub show_status() { sub adduser { my ($cmd_line, $username) = @_; my @active_users = cat_("/etc/shadow"); - my @ts_users = cat_("/etc/shadow\$\$CLIENT\$\$"); + my @ts_users = cat_('/etc/shadow$$CLIENT$$'); my $is_user = grep { /$username/ } @active_users; my $add_fail = 0; my $in_already; @@ -1374,7 +1374,7 @@ sub adduser { } else { # new ts user local *FHANDLE; - open(FHANDLE, ">> /etc/shadow\$\$CLIENT\$\$"); + open(FHANDLE, '>> /etc/shadow$$CLIENT$$'); print FHANDLE $shadow_entry[0] or $add_fail = 1; close FHANDLE; $in_already = 0; @@ -1401,7 +1401,7 @@ sub deluser { my $i; my $user_deleted; - my @ts_users = cat_("/etc/shadow\$\$CLIENT\$\$"); + my @ts_users = cat_('/etc/shadow\$\$CLIENT$$'); my $is_ts_user = grep { /$username/ } @ts_users; if ($is_ts_user) { @@ -1415,7 +1415,7 @@ sub deluser { $i++; } local *FHANDLE; - open(FHANDLE, "> /etc/shadow\$\$CLIENT\$\$"); + open(FHANDLE, '> /etc/shadow$$CLIENT$$'); print FHANDLE $_ foreach @ts_users; close FHANDLE; } @@ -1631,7 +1631,7 @@ sub client_hdw_config { if ($mode == 1) { log::explanations("Allowing root access for $client_ip"); my $suffix = "\$\$IP=$client_ip\$\$"; - cp_af("/etc/shadow\$\$CLIENT\$\$", "/etc/shadow$suffix"); + cp_af('/etc/shadow$$CLIENT$$', "/etc/shadow$suffix"); my @sys_users = cat_("/etc/shadow"); foreach (@sys_users) { if (/^root:/) { @@ -1643,7 +1643,7 @@ sub client_hdw_config { # make all the local config files cp_af("/etc/sysconfig/mouse", "/etc/sysconfig/mouse$suffix") if -f "/etc/sysconfig/mouse"; cp_af("/etc/X11/XF86Config", "/etc/X11/XF86Config$suffix") if -f "/etc/X11/XF86Config"; - cp_af("/etc/X11/XF86Config-4\$\$CLIENT\$\$", "/etc/X11/XF86Config-4$suffix") if -f "/etc/X11/XF86Config-4\$\$CLIENT\$\$"; + cp_af('/etc/X11/XF86Config-4$$CLIENT$$', "/etc/X11/XF86Config-4$suffix") if -f '/etc/X11/XF86Config-4$$CLIENT$$'; cp_af("/dev/null", "/etc/modules.conf$suffix"); cp_af("/dev/null", "/etc/modules$suffix"); # create mount points so they can be edited by the client diff --git a/perl-install/standalone/fileshareset b/perl-install/standalone/fileshareset index 3e8cfe78a..e1dc4e6b4 100755 --- a/perl-install/standalone/fileshareset +++ b/perl-install/standalone/fileshareset @@ -125,6 +125,7 @@ package authorisation; sub read_conf { my ($exclusive_lock) = @_; + local *F_lock; open F_lock, $authorisation_file; # don't care if it's missing flock(F_lock, $exclusive_lock ? 2 : 1) or die "can't lock"; my %conf; diff --git a/perl-install/standalone/printerdrake b/perl-install/standalone/printerdrake index be969affd..374d59604 100755 --- a/perl-install/standalone/printerdrake +++ b/perl-install/standalone/printerdrake @@ -122,7 +122,7 @@ my $error = 0; my $GetValue = -65533; my $stringsearch = ''; -sub HelpSystem { exec("drakhelp --id printerdrake") unless fork(); }; +sub HelpSystem { exec("drakhelp --id printerdrake") unless fork() }; $us->{wnd} = ugtk2->new(N("Mandrake Linux Printer Management Tool") . " " . $us->{VERSION}); gtkset_size_request($us->{wnd}{rwindow}, 660, 460); @@ -131,8 +131,8 @@ if (!$::isEmbedded) { $us->{wnd}{rwindow}->set_position('center'); } $us->{wnd}{window}->signal_connect(delete_event => \&QuitGlobal); -my $ltree_model = Gtk2::ListStore->new("Glib::String", "Glib::String", "Glib::String", "Glib::String", "Glib::String", "Glib::String" ); -my $rtree_model = Gtk2::ListStore->new("Glib::String", "Glib::String", "Glib::String", "Glib::String", "Glib::String" ); +my $ltree_model = Gtk2::ListStore->new("Glib::String", "Glib::String", "Glib::String", "Glib::String", "Glib::String", "Glib::String"); +my $rtree_model = Gtk2::ListStore->new("Glib::String", "Glib::String", "Glib::String", "Glib::String", "Glib::String"); my ($localtree, $remotetree); $localtree = CreateTree($ltree_model); $remotetree = CreateTree($rtree_model); @@ -146,7 +146,7 @@ my %options = ( my %buttorcheck; my ($menu, $factory) = create_factory_menu($::isEmbedded ? $::Plug : $us->{wnd}{rwindow}, ([ N("/_File"), undef, undef, undef, '' ], - [ N("/_File") . N("/_Refresh"), undef, sub { Refresh($stringsearch)}, undef, '', 'gtk-refresh' ], + [ N("/_File") . N("/_Refresh"), undef, sub { Refresh($stringsearch) }, undef, '', 'gtk-refresh' ], [ N("/_File") . N("/_Quit"), N("Q"), \&QuitGlobal, undef, '', 'gtk-quit' ], [ N("/_Actions"), undef, undef, undef, '' ], [ N("/_Actions") . N("/_Add Printer"), undef, \&AddPrinter, undef, '', 'gtk-add' ], @@ -188,20 +188,20 @@ my $searchBox = gtkpack_(Gtk2::HBox->new(0,5), 1, Gtk2::Label->new(""), 0, Gtk2::Label->new(N("Search:")), 0, gtksignal_connect($filter = Gtk2::Entry->new, - key_press_event => sub { $_[1]->keyval == $Gtk2::Gdk::Keysyms{Return} and Refresh($filter->get_text()) } ), + key_press_event => sub { $_[1]->keyval == $Gtk2::Gdk::Keysyms{Return} and Refresh($filter->get_text) }), 0, my $fbut = Gtk2::Button->new(N("Apply filter")), ); gtkappend_page(my $nb = Gtk2::Notebook->new, gtkpack(create_scrolled_window($localtree)), gtkshow(Gtk2::Label->new(N("Configured on this machine")))); gtkappend_page($nb, gtkpack(create_scrolled_window($remotetree)), gtkshow(Gtk2::Label->new(N("Configured on other machines")))); $nb->set_show_border(0); -$us->{wnd}{window}->add( gtkpack_(Gtk2::VBox->new(0, 0), +$us->{wnd}{window}->add(gtkpack_(Gtk2::VBox->new(0, 0), 0, $menu, 0, $toolb, 0, $searchBox, 0, Gtk2::HSeparator->new, - 1, $nb )); + 1, $nb)); my @lcolsize = (1, 1, 1, 1, 1, 1, -1); -my @rcolsize = (1, 1, 1, 1, 1, -1) ; +my @rcolsize = (1, 1, 1, 1, 1, -1); each_index { my $col = Gtk2::TreeViewColumn->new_with_attributes($_, Gtk2::CellRendererText->new, 'text' => $::i); $col->set_sort_column_id($::i); @@ -215,10 +215,9 @@ each_index { $col->set_min_width($rcolsize[$::i]); $remotetree->append_column($col); } (N("Def."), N("Printer Name"), N("Server Name"), N("Description"), N("Location")); -my @toolbwg; -map { - my $t = $toolb->append_item($_->[0], $_->[1], $_->[2], - Gtk2::Image->new_from_file($pixdir . $_->[2] . '.png'), $_->[3], $toolb); push(@toolbwg, $t); +my @toolbwg = map { + $toolb->append_item($_->[0], $_->[1], $_->[2], + Gtk2::Image->new_from_file($pixdir . $_->[2] . '.png'), $_->[3], $toolb); # $toolb->append_space; #-PO "Add Printer" is a button text and the translation has to be AS SHORT AS POSSIBLE } ( [ N("Add Printer"), N("Add a new printer to the system"), 'printer_add', \&AddPrinter ], @@ -236,7 +235,7 @@ map { my ($tbadd, $tbdefault, $tbedit, $tbdel, $tbref, $tbconfig) = @toolbwg; GrayDelEdit(); -$fbut->signal_connect('clicked', sub { $stringsearch = $filter->get_text() ; Refresh($stringsearch) }); +$fbut->signal_connect('clicked', sub { $stringsearch = $filter->get_text; Refresh($stringsearch) }); Refresh($stringsearch); $nb->signal_connect('switch-page' => sub { NotebookSwitch() }); $us->{wnd}{rwindow}->show_all; @@ -256,7 +255,7 @@ Gtk2->main; ugtk2->exit; sub GrayDelEdit { - foreach (($tbdefault, $tbedit, $tbdel, $buttorcheck{default}, $buttorcheck{edit}, $buttorcheck{delete})) { defined $_ and $_->set_sensitive(0) }; + foreach ($tbdefault, $tbedit, $tbdel, $buttorcheck{default}, $buttorcheck{edit}, $buttorcheck{delete}) { defined $_ and $_->set_sensitive(0) }; } sub TreeUnselect { @@ -265,7 +264,7 @@ sub TreeUnselect { GrayDelEdit() } sub NotebookSwitch { - my $page = $nb->get_current_page(); + my $page = $nb->get_current_page; TreeUnselect($localtree); TreeUnselect($remotetree); #set_selection_on_first(); @@ -274,7 +273,7 @@ sub NotebookSwitch { sub RefreshLocalPrintersFull { my ($strfilt) = @_; my @printers; - defined $printer and @printers = keys %{$printer->{'configured'}}; + defined $printer and @printers = keys %{$printer->{configured}}; $ltree_model->clear; my @LocalReal; LOOP: foreach my $p (@printers) { @@ -305,9 +304,9 @@ sub RefreshRemotePrintersFull { my ($strfilt) = @_; my @printers; defined $printer and @printers = printer::cups::lpstat_lpv(); - $rtree_model->clear(); + $rtree_model->clear; my @RemoteReal; - LOOP:foreach my $p (@printers) { + LOOP: foreach my $p (@printers) { # No locally defined queues next LOOP if defined($printer->{configured}{$p->{queuename}}); # Apply string search to all fields, not only the printer name @@ -405,7 +404,7 @@ sub activate_mainwindow { sub set_selection_on_first { # On which page are we currently - my $page = $nb->get_current_page(); + my $page = $nb->get_current_page; my ($tree, $model); if ($page <= 0) { # Locally defined printer: first page @@ -416,12 +415,12 @@ sub set_selection_on_first { $tree = $remotetree; $model = $rtree_model; } - my $iter = $model->get_iter_first(); + my $iter = $model->get_iter_first; $tree->get_selection->select_iter($iter) if $iter; } sub set_selection { - my ($queue) = (@_); + my ($queue) = @_; return if !$queue; my ($tree, $model, $page); if (defined($printer->{configured}{$queue})) { @@ -436,7 +435,7 @@ sub set_selection { $page = 1; } # Search entry on page - my $iter = $model->get_iter_first(); + my $iter = $model->get_iter_first; while ($iter) { my $q = $model->get($iter, 1); if ($q eq $queue) { @@ -453,7 +452,7 @@ sub set_selection { sub get_selection { my $queue; - my $page = $nb->get_current_page(); + my $page = $nb->get_current_page; if ($page <= 0) { $queue = GetNameEntFromIter($localtree, $ltree_model, 1); } elsif ($page == 1) { @@ -476,14 +475,14 @@ sub CreateTree { $tree->get_selection->set_mode('browse'); $tree->set_headers_visible(1); $tree->set_rules_hint(1); - $tree->get_selection->signal_connect('changed' => sub { foreach (($tbdefault, $tbedit, $tbdel, $buttorcheck{default}, $buttorcheck{edit}, $buttorcheck{delete})) { $_->set_sensitive(1);} }); + $tree->get_selection->signal_connect('changed' => sub { foreach ($tbdefault, $tbedit, $tbdel, $buttorcheck{default}, $buttorcheck{edit}, $buttorcheck{delete}) { $_->set_sensitive(1) } }); $tree->signal_connect(button_press_event => sub { my (undef, $event) = @_; my (undef, $iter) = $tree->get_selection->get_selected; return unless $iter; - foreach (($tbdefault, $tbedit, $tbdel, $buttorcheck{default}, $buttorcheck{edit}, $buttorcheck{delete})) { $_->set_sensitive(1) }; + foreach ($tbdefault, $tbedit, $tbdel, $buttorcheck{default}, $buttorcheck{edit}, $buttorcheck{delete}) { $_->set_sensitive(1) }; my $queue = $tree_model->get($iter, 1); - if(!defined($printer->{configured}{$queue})){ + if (!defined($printer->{configured}{$queue})) { foreach ($tbdel, $buttorcheck{delete}) { $_->set_sensitive(0); } @@ -494,14 +493,14 @@ sub CreateTree { my (undef, $event) = @_; my (undef, $iter) = $tree->get_selection->get_selected; return unless $iter; - Edit() if ($event->keyval == $Gtk2::Gdk::Keysyms{Return}); + Edit() if $event->keyval == $Gtk2::Gdk::Keysyms{Return}; }); $tree } sub NewDialog { my ($title, $no_button) = @_; - my $dialog = gtkset_border_width(Gtk2::Dialog->new(), 10); + my $dialog = gtkset_border_width(Gtk2::Dialog->new, 10); $dialog->set_transient_for($us->{wnd}{rwindow}); $dialog->set_position('center-on-parent'); $dialog->set_title($title); @@ -522,7 +521,7 @@ sub About { foreach my $row ([ N("Authors: "), '', '' ], [ '', 'Till Kamppeter', '' ], ['', '', '']) { $tree_model->append_set(undef, [ map_index { $::i => $_ } @$row ]); } - $list->get_selection()->set_mode('none'); + $list->get_selection->set_mode('none'); gtkpack_($window_about->vbox, -r "$pixdir/printerdrake.png" ? (0, Gtk2::Image->new_from_file("$pixdir/printerdrake.png")) : (1, gtkmodify_font(Gtk2::Label->new(N("Printer Management \n") . $us->{VERSION}), 'Bold 18'),), -- cgit v1.2.1