summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/net_applet
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-02-09 12:48:40 +0000
committerOlivier Blin <oblin@mandriva.org>2005-02-09 12:48:40 +0000
commitcdbb390aaa800c3b90ea4e0ccb3b9d66808d3939 (patch)
tree3236add50f3ff1cb023a4e3e3b6d016316386832 /perl-install/standalone/net_applet
parent774697aaa88ccf7f5f220e9b3f23ce081b6377f5 (diff)
downloaddrakx-backup-do-not-use-cdbb390aaa800c3b90ea4e0ccb3b9d66808d3939.tar
drakx-backup-do-not-use-cdbb390aaa800c3b90ea4e0ccb3b9d66808d3939.tar.gz
drakx-backup-do-not-use-cdbb390aaa800c3b90ea4e0ccb3b9d66808d3939.tar.bz2
drakx-backup-do-not-use-cdbb390aaa800c3b90ea4e0ccb3b9d66808d3939.tar.xz
drakx-backup-do-not-use-cdbb390aaa800c3b90ea4e0ccb3b9d66808d3939.zip
perl_checker fixes
Diffstat (limited to 'perl-install/standalone/net_applet')
-rw-r--r--perl-install/standalone/net_applet14
1 files changed, 7 insertions, 7 deletions
diff --git a/perl-install/standalone/net_applet b/perl-install/standalone/net_applet
index f24b02712..9836a821c 100644
--- a/perl-install/standalone/net_applet
+++ b/perl-install/standalone/net_applet
@@ -65,12 +65,12 @@ gtkadd(my $icon = Gtk2::TrayIcon->new("Net_Applet"),
);
$eventbox->signal_connect(button_press_event => sub {
if ($_[1]->button == 1) {
- is_running('net_monitor') or netMonitor()
+ is_running('net_monitor') or netMonitor();
}
$_[1]->button == 3 && $menu and $menu->popup(undef, undef, undef, undef, $_[1]->button, $_[1]->time);
});
my ($opt) = @ARGV;
-if ($opt eq '--force' || $opt eq '-f') { setAutoStart('TRUE') };
+if ($opt eq '--force' || $opt eq '-f') { setAutoStart('TRUE') }
shouldStart() or die "$onstartupfile should be set to TRUE or use net_applet --force";
@@ -93,7 +93,7 @@ sub is_running {
sub shouldStart() {
my %p = getVarsFromSh($onstartupfile);
my $ret = $p{AUTOSTART} eq 'FALSE' ? 0 : 1;
- $ret
+ $ret;
}
sub md5file {
my @md5;
@@ -107,7 +107,7 @@ sub md5file {
}
sub netMonitor() {
system("/usr/sbin/net_monitor&");
- checkNetwork()
+ checkNetwork();
}
sub checkNetwork() {
my $netcnx = {};
@@ -118,7 +118,7 @@ sub checkNetwork() {
go2State($gw_address ? 'connected' : $gw_intf ? 'disconnected' : 'notconfigured', $gw_intf);
my $new_md5 = md5file($prog_name);
- if ($new_md5 ne $current_md5) { exec($prog_name) };
+ if ($new_md5 ne $current_md5) { exec($prog_name) }
}
sub getIP {
my ($interface) = shift;
@@ -158,11 +158,11 @@ sub setState {
$menu->append(gtksignal_connect(gtkset_active($checkmi = Gtk2::CheckMenuItem->new_with_label(N("Always launch on startup")), shouldStart()), toggled => sub { setAutoStart(uc(bool2text($checkmi->get_active))) }));
$checkmi->show;
$menu->append(gtksignal_connect(gtkshow(Gtk2::MenuItem->new_with_label(N("Quit"))), activate => sub { mainQuit() }));
- $menu
+ $menu;
}
sub mainQuit() {
Glib::Source->remove($timeout) if $timeout;
- Gtk2->main_quit
+ Gtk2->main_quit;
}
sub setAutoStart {
my $state = shift;