diff options
| author | Olivier Blin <oblin@mandriva.org> | 2005-03-18 13:32:45 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.org> | 2005-03-18 13:32:45 +0000 |
| commit | 094d572ae5dc1394763dfe8465dce2bbb1572e6e (patch) | |
| tree | d90e3a5dcee7d2567d531e5d11d91c332872519b /perl-install/standalone | |
| parent | 76696fbf88a39d9f60ddff56d204439ab0235c96 (diff) | |
| download | drakx-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-x | perl-install/standalone/drakroam | 11 |
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; |