summaryrefslogtreecommitdiffstats
path: root/perl-install/partition_table_empty.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-07-24 22:39:28 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-07-24 22:39:28 +0000
commitb60c0cb8f67d745626fec6f0c8540818f24e91a6 (patch)
tree783189547888703c391b1719cf9ceaacb1e1aa63 /perl-install/partition_table_empty.pm
parent0a96d505550060312a1cd9a04a9ae9bf23ebdaa2 (diff)
downloaddrakx-b60c0cb8f67d745626fec6f0c8540818f24e91a6.tar
drakx-b60c0cb8f67d745626fec6f0c8540818f24e91a6.tar.gz
drakx-b60c0cb8f67d745626fec6f0c8540818f24e91a6.tar.bz2
drakx-b60c0cb8f67d745626fec6f0c8540818f24e91a6.tar.xz
drakx-b60c0cb8f67d745626fec6f0c8540818f24e91a6.zip
move to MDK::Common, bool->to_bool
Diffstat (limited to 'perl-install/partition_table_empty.pm')
-rw-r--r--perl-install/partition_table_empty.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/partition_table_empty.pm b/perl-install/partition_table_empty.pm
index a33798faf..d460317f5 100644
--- a/perl-install/partition_table_empty.pm
+++ b/perl-install/partition_table_empty.pm
@@ -11,7 +11,7 @@ use vars qw(@ISA);
@ISA = qw(partition_table_raw);
-use common qw(:common :system :file);
+use common;
use partition_table_raw;
use partition_table;
use c;
generated by cgit v1.2.1 (git 2.21.0) at 2024-12-24 16:00:01 +0000
ew(0,5),
- 1, gtksignal_connect(my $button_connect = gtkset_sensitive(Gtk2::Button->new(), 0), clicked => \&connection),
+ 1, gtksignal_connect(my $button_connect = gtkset_sensitive(Gtk2::Button->new, 0), clicked => \&connection),
0, Gtk2::VSeparator->new,
0, gtkpack(Gtk2::VBox->new(0,5),
gtksignal_connect(Gtk2::Button->new(N("Logs")), clicked => sub {
@@ -132,7 +132,8 @@ 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);
+ $netcnx->{PROFILE} = $combo1->entry->get_text;
+ network::netconnect::set_profile($netcnx);
network::netconnect::load_conf($netcnx, $netc, $intf);
network::netconnect::read_net_conf('', $netcnx, $netc);
});
@@ -169,7 +170,7 @@ ugtk2->exit(0);
my $during_connection;
my $first;
-sub connection {
+sub connection() {
$during_connection = 1;
my $wasconnected = $isconnected;
@@ -187,7 +188,7 @@ sub connection {
my $nb_point = 1;
$first = 1;
- my $tag = Glib::Timeout->add(1000, sub {
+ my $_tag = Glib::Timeout->add(1000, sub {
$statusbar->pop(1);
$statusbar->push(1, ($wasconnected == 1 ? N("Disconnecting from Internet ") : N("Connecting to Internet "))
. join('', map { "." } (1..$nb_point)));
@@ -229,18 +230,18 @@ sub connection {
my $delay = 1000;
# keep the message displayed longer if there is a problem.
if ($isconnected == $wasconnected) { $delay = 5000 }
- my $tag3 = Glib::Timeout->add($delay, sub {
+ my $_tag3 = Glib::Timeout->add($delay, sub {
$button_connect->set_sensitive(1);
$button_close->set_sensitive(1);
undef $during_connection;
update();
return 0;
- });
- } # END IF
- return $ret });
+ });
+ }
+ return $ret;
+ });
- my $netc = {};
gtkflush();
if ($wasconnected == 1) {
@@ -250,7 +251,7 @@ sub connection {
}
}
-sub rescan {
+sub rescan() {
get_val();
foreach (@interfaces) {
my $intf = $_;
@@ -306,20 +307,18 @@ sub rescan {
1;
}
-sub get_val {
- my @ret;
+sub get_val() {
my $a = cat_("/proc/net/dev");
$a =~ s/^.*?\n.*?\n//;
$a =~ s/^\s*lo:.*?\n//;
my @line = split(/\n/, $a);
- foreach (@line) {
+ map {
s/\s*(\w*)://;
my $intf = $1;
- push @ret, $intf;
$monitor->{$intf}{val} = [split()];
$monitor->{$intf}{intf} = $intf;
- }
- @ret;
+ $intf;
+ } @line;
}
sub change_color {
@@ -343,7 +342,7 @@ sub change_color {
}
my $scale;
-sub update {
+sub update() {
if (!$during_connection) {
my $isconnect = test_connected(0);
if ($isconnect != -2) {
@@ -362,7 +361,7 @@ sub update {
$default_intf = $intf;
$monitor->{$intf}{initialr} = $monitor->{$intf}{val}[0];
$monitor->{$intf}{initialt} = $monitor->{$intf}{val}[8];
- $darea = Gtk2::DrawingArea->new();
+ $darea = Gtk2::DrawingArea->new;
$darea->set_events(["pointer_motion_mask"]);
$notebook->append_page(gtkshow(my $page = gtkpack_(Gtk2::VBox->new(0,0),
0, gtkpack__(gtkset_border_width(Gtk2::HBox->new(0,0), 5),
@@ -370,21 +369,21 @@ sub update {
0, gtkpack_(Gtk2::HBox->new(0,0),
1, gtkpack__(Gtk2::VBox->new(0,0),
gtkpack__(gtkset_border_width(Gtk2::HBox->new(0,5), 5),
- gtksignal_connect(my $button_t = gtkset_relief(Gtk2::Button->new(), 'none'), clicked => sub {
+ gtksignal_connect(my $button_t = gtkset_relief(Gtk2::Button->new, 'none'), clicked => sub {
$colort = change_color($colort);
$gct->set_foreground($colort);
$_[0]->queue_draw;
}),
N("sent: "), $monitor->{$intf}{labelt} = Gtk2::Label->new("0")),
gtkpack__(gtkset_border_width(Gtk2::HBox->new(0,5), 5),
- gtksignal_connect(my $button_r = gtkset_relief(Gtk2::Button->new(), 'none'), clicked => sub {
+ gtksignal_connect(my $button_r = gtkset_relief(Gtk2::Button->new, 'none'), clicked => sub {
$colorr = change_color($colorr);
$gcr->set_foreground($colorr);
$_[0]->queue_draw;
}),
N("received: "), $monitor->{$intf}{labelr} = Gtk2::Label->new("0")),
gtkpack__(gtkset_border_width(Gtk2::HBox->new(0,5), 5),
- gtksignal_connect(my $button_a = gtkset_relief(Gtk2::Button->new(), 'none'), clicked => sub {
+ gtksignal_connect(my $button_a = gtkset_relief(Gtk2::Button->new, 'none'), clicked => sub {
$colora = change_color($colora);
$gca->set_foreground($colora);
$_[0]->queue_draw;
@@ -409,7 +408,7 @@ sub update {
)),
Gtk2::Label->new($intf));
foreach my $i ([$button_t, $gct], [$button_r, $gcr], [$button_a, $gca]) {
- $i->[0]->add(gtksignal_connect(gtkshow(gtksize(gtkset_size_request(Gtk2::DrawingArea->new(), 10, 10), 10, 10)), expose_event => sub { $_[0]->window->draw_rectangle($i->[1], 1, 0, 0, 10, 10) }));
+ $i->[0]->add(gtksignal_connect(gtkshow(gtksize(gtkset_size_request(Gtk2::DrawingArea->new, 10, 10), 10, 10)), expose_event => sub { $_[0]->window->draw_rectangle($i->[1], 1, 0, 0, 10, 10) }));
}
$notebook->set_current_page($notebook->page_num($page));
$monitor->{$intf}{page} = $notebook->page_num($page);
@@ -419,7 +418,7 @@ sub update {
$monitor->{$intf}{referencet} = $monitor->{$intf}{val}[8];
$pixmap->draw_rectangle($darea->style->black_gc, 1, 0, 0, $width, $height);
$darea->signal_connect(motion_notify_event => sub {
- my ($w, $e) = @_;
+ my (undef, $e) = @_;
my $x = $e->x - 50;
my $y = $e->y;
my $received = $x >= 0 ? $monitor->{$intf}{stack_r}[$x] : 0;
@@ -440,7 +439,6 @@ sub update {
$notebook->remove_page($monitor->{$intf}{page}) unless member($intf,@intfs);
}
@interfaces = @intfs;
- my $netc = {};
if ($isconnected != -2 && $isconnected != -1 && !$during_connection) {
if ($isconnected == 1 && !in_ifconfig($netcnx->{NET_INTERFACE})) {
$isconnected = 0;
@@ -561,5 +559,6 @@ sub draw_monitor {
sub test_connected {
- $::testing || network::tools::test_connected;
+ my ($arg) = @_;
+ $::testing || network::tools::test_connected($arg);
}
generated by cgit v1.2.1 (git 2.21.0) at 2024-12-24 16:00:01 +0000