summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-10-17 17:03:58 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-10-17 17:03:58 +0000
commit533bfd1d02d711b2cf517fda315156e02200861e (patch)
tree35d05b5ad5882ef94b34fa484a50b29819ba4306 /perl-install/standalone
parentb725c34c44a2a1f5092d67231ca3bc720bd03ce2 (diff)
downloaddrakx-backup-do-not-use-533bfd1d02d711b2cf517fda315156e02200861e.tar
drakx-backup-do-not-use-533bfd1d02d711b2cf517fda315156e02200861e.tar.gz
drakx-backup-do-not-use-533bfd1d02d711b2cf517fda315156e02200861e.tar.bz2
drakx-backup-do-not-use-533bfd1d02d711b2cf517fda315156e02200861e.tar.xz
drakx-backup-do-not-use-533bfd1d02d711b2cf517fda315156e02200861e.zip
perl_checker cleanups
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakTermServ20
-rwxr-xr-xperl-install/standalone/fileshareset1
-rwxr-xr-xperl-install/standalone/printerdrake57
3 files changed, 39 insertions, 39 deletions
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, '<Branch>' ],
- [ N("/_File") . N("/_Refresh"), undef, sub { Refresh($stringsearch)}, undef, '<StockItem>', 'gtk-refresh' ],
+ [ N("/_File") . N("/_Refresh"), undef, sub { Refresh($stringsearch) }, undef, '<StockItem>', 'gtk-refresh' ],
[ N("/_File") . N("/_Quit"), N("<control>Q"), \&QuitGlobal, undef, '<StockItem>', 'gtk-quit' ],
[ N("/_Actions"), undef, undef, undef, '<Branch>' ],
[ N("/_Actions") . N("/_Add Printer"), undef, \&AddPrinter, undef, '<StockItem>', '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', '<till@mandrakesoft.com>' ], ['', '', '']) {
$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'),),