From d6f5330ee63311a3e5c8ef52693ac7193ea83ede Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 23 May 2003 16:10:03 +0000 Subject: perl_checker fixes --- perl-install/standalone/net_monitor | 40 ++++++++++++++++++------------------- 1 file changed, 20 insertions(+), 20 deletions(-) (limited to 'perl-install/standalone/net_monitor') diff --git a/perl-install/standalone/net_monitor b/perl-install/standalone/net_monitor index 2df918780..170a70bee 100755 --- a/perl-install/standalone/net_monitor +++ b/perl-install/standalone/net_monitor @@ -53,7 +53,7 @@ require_root_capability(); my $window1 = my_gtk->new('net_monitor'); $window1->{rwindow}->signal_connect(delete_event => sub { my_gtk->exit(0) }); unless ($::isEmbedded) { - $window1->{rwindow}->set_position(1) ; + $window1->{rwindow}->set_position(1); $window1->{rwindow}->set_title(N("Network Monitoring")); $window1->{rwindow}->set_policy(1, 1, 1); $window1->{rwindow}->set_border_width(5); @@ -104,9 +104,9 @@ gtkadd($window1->{window}, 1, gtkadd(gtkset_shadow_type(new Gtk::Frame(N("Statistics")), 'etched_out'), gtkpack__(new Gtk::VBox(0,0), create_packtable({ col_spacings => 1, row_spacings => 1 }, - [ "", "instantaneous" , "average"], - [ N("Sending Speed:"), my $label_st = new Gtk::Label(""), my $label_sta = new Gtk::Label("na")], - [ N("Receiving Speed:"),my $label_sr = new Gtk::Label(""), my $label_sra = new Gtk::Label("na")], + [ "", "instantaneous" , "average" ], + [ N("Sending Speed:"), my $label_st = new Gtk::Label(""), my $label_sta = new Gtk::Label("na") ], + [ N("Receiving Speed:"), my $label_sr = new Gtk::Label(""), my $label_sra = new Gtk::Label("na") ], ), gtkpack__(new Gtk::HBox(0,0), " " . N("Connection Time: "), my $label_ct = new Gtk::Label("")), ) @@ -131,7 +131,7 @@ gtkadd($window1->{window}, $window1->{rwindow}->show_all; $window1->{rwindow}->realize; $combo1->entry->signal_connect(changed => sub { - network::netconnect::set_profile($netcnx, $combo1->entry->get_text()); + network::netconnect::set_profile($netcnx, $combo1->entry->get_text); network::netconnect::load_conf($netcnx, $netc, $intf); network::netconnect::set_net_conf($netcnx, $netc, $intf); network::netconnect::read_net_conf('', $netcnx, $netc); @@ -150,7 +150,7 @@ $button_connect->add(gtkpack__(new Gtk::VBox(0,3), my $label_c = new Gtk::Label(N("Wait please")) )); $statusbar->push(1, N("Wait please, testing your connection...")); -$window1->{rwindow}->show_all(); +$window1->{rwindow}->show_all; #$window1->{rwindow}->set_policy (1, 1, 1); my $time_tag = Gtk->timeout_add(1000, \&rescan); @@ -184,8 +184,8 @@ sub connection { if ($wasconnected == 1) { $c_time = time(); $ct_tag = Gtk->timeout_add(1000, sub { - my ($sec,$min,$hour) = gmtime(time() - $c_time); - my $e = sprintf ("%02d:%02d:%02d", $hour, $min, $sec); + my ($sec, $min, $hour) = gmtime(time() - $c_time); + my $e = sprintf("%02d:%02d:%02d", $hour, $min, $sec); $label_ct->set($e); 1 }) } else { Gtk->timeout_remove($ct_tag) } my $nb_point = 1; @@ -219,7 +219,7 @@ sub connection { } } # either we got a result, or we timed out. - if ($isconnect != -2 or $nb_point > 20) { + if ($isconnect != -2 || $nb_point > 20) { $isconnected = $isconnect; $ret = 0; $statusbar->pop(1); @@ -319,7 +319,7 @@ sub get_val { foreach (@line) { s/\s*(\w*)://; my $intf = $1; - push (@ret,$intf); + push @ret,$intf; $monitor->{$intf}{val} = [split()]; $monitor->{$intf}{intf} = $intf; } @@ -328,9 +328,9 @@ sub get_val { sub change_color { my ($color) = @_; - my $window = new Gtk::Window -toplevel; + my $window = Gtk::Window->new('toplevel'); my $doit; - $window->signal_connect(delete_event => sub { Gtk->main_quit() }); + $window->signal_connect(delete_event => sub { Gtk->main_quit }); $window->set_position(1); $window->set_title(N("Color configuration")); $window->set_border_width(5); @@ -338,17 +338,17 @@ sub change_color { gtkpack_(new Gtk::VBox(0,5), 1, my $colorsel = new Gtk::ColorSelection, 0, gtkadd(gtkset_layout(new Gtk::HButtonBox, -end), - gtksignal_connect(new Gtk::Button(N("OK")), clicked => sub { $doit = 1; Gtk->main_quit() }), - gtksignal_connect(new Gtk::Button(N("Cancel")), clicked => sub { Gtk->main_quit() }), + gtksignal_connect(new Gtk::Button(N("OK")), clicked => sub { $doit = 1; Gtk->main_quit }), + gtksignal_connect(new Gtk::Button(N("Cancel")), clicked => sub { Gtk->main_quit }), ) ) ); - $colorsel->set_color($color->red()/65535, $color->green()/65535, $color->blue()/65535, $color->pixel()); - $window->show_all(); + $colorsel->set_color($color->red/65535, $color->green/65535, $color->blue/65535, $color->pixel); + $window->show_all; Gtk->main; - $window->destroy(); + $window->destroy; $doit or return $color; - my (@color) = $colorsel->get_color(); + my (@color) = $colorsel->get_color; my_gtk::gtkcolor($color[0]*65535, $color[1]*65535, $color[2]*65535); } @@ -422,7 +422,7 @@ sub update { $i->[0]->add(gtksignal_connect(gtkshow(gtksize(gtkset_usize(new Gtk::DrawingArea(), 10, 10), 10, 10)), expose_event => sub { $_[0]->window->draw_rectangle($i->[1], 1, 0, 0, 10, 10) })); } $notebook->set_page($notebook->page_num($page)); - $monitor->{$intf}{page} = ($notebook->page_num($page)); + $monitor->{$intf}{page} = $notebook->page_num($page); $monitor->{$intf}{pixmap_db} = new Gtk::Gdk::Pixmap($monitor->{$intf}{darea}->window, 300, 150); $monitor->{$intf}{referencer} = $monitor->{$intf}{val}[0]; $monitor->{$intf}{referencet} = $monitor->{$intf}{val}[8]; @@ -530,7 +530,7 @@ sub draw_monitor { my $switch = 1; my $gcl = new Gtk::Gdk::GC($o->{darea}->window); - $gcl->set_foreground($o->{darea}->window->get_colormap->color_white()); + $gcl->set_foreground($o->{darea}->window->get_colormap->color_white); $gcl->set_line_attributes(1, 'on-off-dash', 'not-last', 'round'); for (my $i = 30; $i <= 120; $i += 30) { $o->{pixmap_db}->draw_line($gcl, 50, $i, 300, $i); -- cgit v1.2.1