summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakroam
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/drakroam')
-rwxr-xr-xperl-install/standalone/drakroam6
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/standalone/drakroam b/perl-install/standalone/drakroam
index acd6e9448..18571fb93 100755
--- a/perl-install/standalone/drakroam
+++ b/perl-install/standalone/drakroam
@@ -45,6 +45,7 @@ my $IFConfig = '/sbin/ifconfig';
my $IFUp = '/sbin/ifup';
my $IFDown = '/sbin/ifdown';
my $DHClient = '/sbin/dhclient';
+my $enable_roaming = member('--roaming', @ARGV); #- not tested yet ...
# initialize variables
my $ScanInterval = 30; # tell deamon to search for new nets every x seconds
@@ -163,7 +164,8 @@ my $SignalLabel = Gtk2::WrappedLabel->new;
my $w = ugtk2->new('Drakroam');
gtkadd(gtkset_border_width($w->{window}, 2),
gtkpack_(Gtk2::VBox->new,
- 0, gtkadd(gtkset_border_width(Gtk2::Frame->new(N("Roaming")), 2),
+ if_($enable_roaming,
+ 0, gtkadd(gtkset_border_width(Gtk2::Frame->new(N("Roaming")), 2),
gtkpack(create_hbox(),
gtkpack(Gtk2::VBox->new,
my $RoamStatus = Gtk2::Label->new(N("Roaming: %s", N("off"))),
@@ -180,7 +182,7 @@ gtkadd(gtkset_border_width($w->{window}, 2),
)
)
)
- ),
+ )),
1, gtkadd(gtkset_border_width(Gtk2::Frame->new(N("Known Networks (Drag up/down or edit)")), 2),
gtkpack_(Gtk2::VBox->new,
1, create_scrolled_window($KnownList),