summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakTermServ
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-05-23 16:10:03 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-05-23 16:10:03 +0000
commitd6f5330ee63311a3e5c8ef52693ac7193ea83ede (patch)
tree597f252be23c47345b40109c08f58b8fa849b524 /perl-install/standalone/drakTermServ
parent9731f6a53e8701039a1fa0102427fbdd5eb60df0 (diff)
downloaddrakx-backup-do-not-use-d6f5330ee63311a3e5c8ef52693ac7193ea83ede.tar
drakx-backup-do-not-use-d6f5330ee63311a3e5c8ef52693ac7193ea83ede.tar.gz
drakx-backup-do-not-use-d6f5330ee63311a3e5c8ef52693ac7193ea83ede.tar.bz2
drakx-backup-do-not-use-d6f5330ee63311a3e5c8ef52693ac7193ea83ede.tar.xz
drakx-backup-do-not-use-d6f5330ee63311a3e5c8ef52693ac7193ea83ede.zip
perl_checker fixes
Diffstat (limited to 'perl-install/standalone/drakTermServ')
-rwxr-xr-xperl-install/standalone/drakTermServ84
1 files changed, 42 insertions, 42 deletions
diff --git a/perl-install/standalone/drakTermServ b/perl-install/standalone/drakTermServ
index e5a4a95d2..03e7a2982 100755
--- a/perl-install/standalone/drakTermServ
+++ b/perl-install/standalone/drakTermServ
@@ -214,13 +214,13 @@ sub cursor_norm() {
sub display_error {
my ($message) = @_;
my $error_box;
- $$central_widget->destroy();
+ $$central_widget->destroy;
gtkpack($status_box,
$error_box = gtkpack_(new Gtk2::VBox(0,0),
1, new Gtk2::Label($message),
0, gtkadd(gtkset_layout(new Gtk2::HButtonBox, 'spread'),
gtksignal_connect(new Gtk2::Button(N("OK")), clicked => sub {
- $$central_widget->destroy();
+ $$central_widget->destroy;
}),
),
)
@@ -246,64 +246,64 @@ sub interactive_mode() {
$main_box = new Gtk2::VBox(0,10),
),
1, gtkpack_(new Gtk2::HBox(0,2),
- 0, gtkadd(gtkset_layout(Gtk2::VButtonBox->new(), 'end'),
+ 0, gtkadd(gtkset_layout(Gtk2::VButtonBox->new, 'end'),
gtksignal_connect(new Gtk2::Button(N("Enable Server")), clicked => sub {
- $$central_widget->destroy();
+ $$central_widget->destroy;
$windows = 1;
cursor_wait();
enable_ts();
cursor_norm();
}),
gtksignal_connect(new Gtk2::Button(N("Disable Server")), clicked => sub {
- $$central_widget->destroy();
+ $$central_widget->destroy;
cursor_wait();
disable_ts();
cursor_norm();
}),
),
- 0, gtkadd(gtkset_layout(Gtk2::VButtonBox->new(), 'end'),
+ 0, gtkadd(gtkset_layout(Gtk2::VButtonBox->new, 'end'),
gtksignal_connect(new Gtk2::Button(N("Start Server")), clicked => sub {
- $$central_widget->destroy();
+ $$central_widget->destroy;
$windows = 0;
cursor_wait();
start_ts();
cursor_norm();
}),
gtksignal_connect(new Gtk2::Button(N("Stop Server")), clicked => sub {
- $$central_widget->destroy();
+ $$central_widget->destroy;
cursor_wait();
stop_ts();
cursor_norm();
}),
),
- 0, gtkadd(gtkset_layout(Gtk2::VButtonBox->new(), 'end'),
+ 0, gtkadd(gtkset_layout(Gtk2::VButtonBox->new, 'end'),
gtksignal_connect(new Gtk2::Button(N("Etherboot Floppy/ISO")), clicked => sub {
- $$central_widget->destroy();
+ $$central_widget->destroy;
$windows = 1;
make_boot();
}),
gtksignal_connect(new Gtk2::Button(N("Net Boot Images")), clicked => sub {
- $$central_widget->destroy();
+ $$central_widget->destroy;
make_nbi();
}),
),
- 0, gtkadd(gtkset_layout(Gtk2::VButtonBox->new(), 'end'),
+ 0, gtkadd(gtkset_layout(Gtk2::VButtonBox->new, 'end'),
gtksignal_connect(new Gtk2::Button(N("Add/Del Users")), clicked => sub {
- $$central_widget->destroy();
+ $$central_widget->destroy;
$windows = 0;
maintain_users();
}),
- gtksignal_connect(new Gtk2::Button(N("Add/Del Clients")), clicked => sub { $$central_widget->destroy(); maintain_clients() }),
+ gtksignal_connect(new Gtk2::Button(N("Add/Del Clients")), clicked => sub { $$central_widget->destroy; maintain_clients() }),
),
1, new Gtk2::HBox(0,2),
- 0, gtkadd(gtkset_layout(Gtk2::VButtonBox->new(), 'end'),
+ 0, gtkadd(gtkset_layout(Gtk2::VButtonBox->new, 'end'),
gtksignal_connect(new Gtk2::Button(N("Help")),clicked => sub {
- $$central_widget->destroy();
+ $$central_widget->destroy;
help();
}),
gtksignal_connect(new Gtk2::Button(N("Close")), clicked => sub {
write_conf_file();
- Gtk2->main_quit();
+ Gtk2->main_quit;
}),
),
),
@@ -314,7 +314,7 @@ sub interactive_mode() {
$central_widget = \$main_box;
$window1->{rwindow}->show_all;
$window1->{rwindow}->realize;
- $window1->{rwindow}->show_all();
+ $window1->{rwindow}->show_all;
$window1->main;
ugtk2->exit(0);
@@ -349,12 +349,12 @@ sub text_view {
),
0, gtkadd(gtkset_layout(new Gtk2::HButtonBox, 'spread'),
gtksignal_connect(new Gtk2::Button(N("OK")), clicked =>
- sub { $$central_widget->destroy() }),
+ sub { $$central_widget->destroy }),
),
)
);
$central_widget = \$box;
- $status_box->show_all();
+ $status_box->show_all;
}
sub help() {
@@ -493,7 +493,7 @@ sub make_boot() {
);
$central_widget = \$boot_box;
- $boot_box->show_all();
+ $boot_box->show_all;
}
sub make_nbi() {
@@ -639,7 +639,7 @@ sub make_nbi() {
);
$central_widget = \$nbi_box;
- $nbi_box->show_all();
+ $nbi_box->show_all;
}
sub maintain_users() {
@@ -661,7 +661,7 @@ sub maintain_users() {
foreach (@sys_users) {
my ($s_label) = split(/:/, $_, 2);
- if (grep { /$s_label/ } @homes) {
+ if (any { /$s_label/ } @homes) {
$list_model->append($iter);
$list_model->set($iter, [ 0 => $s_label ]);
}
@@ -721,7 +721,7 @@ sub maintain_users() {
);
$central_widget = \$user_box;
- $user_box->show_all();
+ $user_box->show_all;
}
sub maintain_clients() {
@@ -819,10 +819,10 @@ sub maintain_clients() {
),
# new Gtk2::HBox(1,1),
gtksignal_connect(new Gtk2::Button(N("Add Client -->")), clicked =>
- sub { my $hostname = $entry_host->get_text();
- my $mac = $entry_mac->get_text();
- my $ip = $entry_ip->get_text();
- my $nbi = $entry_nbi->entry->get_text();
+ sub { my $hostname = $entry_host->get_text;
+ my $mac = $entry_mac->get_text;
+ my $ip = $entry_ip->get_text;
+ my $nbi = $entry_nbi->entry->get_text;
if ($hostname && $mac && $ip) {
my $result = addclient(0, $hostname, $mac, $ip, $nbi, $is_thin);
@@ -880,7 +880,7 @@ sub maintain_clients() {
}
}),
gtksignal_connect(new Gtk2::Button(N("dhcpd Config...")), clicked =>
- sub { $$central_widget->destroy(); dhcpd_config() }),
+ sub { $$central_widget->destroy; dhcpd_config }),
# new Gtk2::HBox(1,1),
),
create_scrolled_window($tree_clients),
@@ -916,7 +916,7 @@ sub maintain_clients() {
}
);
$central_widget = \$client_box;
- $client_box->show_all();
+ $client_box->show_all;
}
sub dhcpd_config() {
@@ -1055,17 +1055,17 @@ sub dhcpd_config() {
gtkadd(new Gtk2::HBox),
gtksignal_connect(new Gtk2::Button(N("Write Config")), clicked =>
sub { write_dhcpd_config(
- $entry_subnet->get_text(),
- $entry_netmask->get_text(),
- $entry_routers->get_text(),
- $entry_subnet_mask->get_text(),
- $entry_broadcast->get_text(),
- $entry_domain->get_text(),
- $entry_name_server1->get_text(),
- $entry_name_server2->get_text(),
- $entry_name_server3->get_text(),
- $entry_ip_range_start->get_text(),
- $entry_ip_range_end->get_text(),
+ $entry_subnet->get_text,
+ $entry_netmask->get_text,
+ $entry_routers->get_text,
+ $entry_subnet_mask->get_text,
+ $entry_broadcast->get_text,
+ $entry_domain->get_text,
+ $entry_name_server1->get_text,
+ $entry_name_server2->get_text,
+ $entry_name_server3->get_text,
+ $entry_ip_range_start->get_text,
+ $entry_ip_range_end->get_text,
) }),
new Gtk2::HBox(0,10),
),
@@ -1073,7 +1073,7 @@ sub dhcpd_config() {
);
$central_widget = \$dhcpd_box;
- $dhcpd_box->show_all();
+ $dhcpd_box->show_all;
}
sub get_mask_from_sys() {