summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-03-18 13:32:45 +0000
committerOlivier Blin <oblin@mandriva.org>2005-03-18 13:32:45 +0000
commit094d572ae5dc1394763dfe8465dce2bbb1572e6e (patch)
treed90e3a5dcee7d2567d531e5d11d91c332872519b /perl-install/standalone
parent76696fbf88a39d9f60ddff56d204439ab0235c96 (diff)
downloaddrakx-backup-do-not-use-094d572ae5dc1394763dfe8465dce2bbb1572e6e.tar
drakx-backup-do-not-use-094d572ae5dc1394763dfe8465dce2bbb1572e6e.tar.gz
drakx-backup-do-not-use-094d572ae5dc1394763dfe8465dce2bbb1572e6e.tar.bz2
drakx-backup-do-not-use-094d572ae5dc1394763dfe8465dce2bbb1572e6e.tar.xz
drakx-backup-do-not-use-094d572ae5dc1394763dfe8465dce2bbb1572e6e.zip
perl_checker/include fixes
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakroam11
1 files changed, 6 insertions, 5 deletions
diff --git a/perl-install/standalone/drakroam b/perl-install/standalone/drakroam
index 25b4ef0a5..4afbe614d 100755
--- a/perl-install/standalone/drakroam
+++ b/perl-install/standalone/drakroam
@@ -23,14 +23,15 @@
# - handle keys (can key file be named after ESSID?)
# - should files be named as MAC or as essid:ESSID ?
+use strict;
use lib qw(/usr/lib/libDrakX);
use standalone;
use common;
use run_program;
-require ugtk2;
-ugtk2->import(qw(:wrappers :create));
+use Glib qw(TRUE FALSE);
+use ugtk2 qw(:create :helpers :wrappers);
use Gtk2::SimpleList;
require_root_capability();
@@ -57,7 +58,7 @@ my %available_roaming_daemons = (
config_location => '/etc/wlandetect.conf',
binary => '/usr/sbin/wlandetect',
start_options => sub {
- my ($interval, $device) = @_;
+ my ($interval, undef) = @_;
"-d -t $interval";
},
read_config => sub {
@@ -76,7 +77,7 @@ my %available_roaming_daemons = (
&AddNet($essid, $mode, $channel, $dhcp, $key);
}
else { die "Line $::i of configuration file is not parseable.\n" }
- } cat_($config)
+ } cat_($config);
},
write_config => sub {
my ($config) = @_;
@@ -365,7 +366,7 @@ sub ConnectNow {
push @command, "$IFConfig $device up; $DHClient $device";
}
else {
- push @command, "$IFUp $device"
+ push @command, "$IFUp $device";
}
my $ToBash = join("", @command);
print "Sending $ToBash\n" if $::testing;