initial import of wlandetect version, from Austin Action

1 files changed, 445 insertions, 0 deletions

diff --git a/perl-install/standalone/drakroam b/perl-install/standalone/drakroam
new file mode 100755
index 000000000..6237ca8ae
--- /dev/null
+++ b/perl-install/standalone/drakroam
@@ -0,0 +1,445 @@
+#!/usr/bin/perl
+
+# drakroam: wireless network roaming GUI
+# beta version uses wlandetect as backend
+# Austin Acton, 2004
+# <austin@mandrake.org>
+# Licensed under the GPL
+
+# problems
+# - deletes comments in config file
+# - expects an ifcfg file for static IP configurations (not uncommon)
+# - roaming status fails (no idea why)
+#   maybe same reason bash-completion killall can't see wlandetect?
+
+# todo
+# - make known and available lists have more rows by default (why so small?)
+# - refresh status every x seconds
+# - find a good way to drop the access point and resume roaming
+# - make 'key' column wider by default
+
+use Gtk2 '-init';
+use Gtk2::SimpleList;
+use Glib qw(TRUE FALSE);
+use lib qw(/usr/lib/libDrakX);
+use common;
+require_root_capability;
+
+# global settings
+$config = '/etc/wlandetect.conf';
+$route = '/sbin/route';
+$AboutFile = 'ABOUT';
+$HelpFile = 'README';
+$WLanDetect = '/usr/sbin/wlandetect';
+$IWList = '/sbin/iwlist';
+$IWConfig = '/sbin/iwconfig';
+$IFConfig = '/sbin/ifconfig';
+$IFUp = '/sbin/ifup';
+$IFDown = '/sbin/ifdown';
+$DHClient = '/sbin/dhclient';
+
+# initialize variables
+$ScanInterval = 60; # tell deamon to search for new nets every x seconds
+$NumberOfNets = 0; # really lame way to count the number of nets to write to config file
+# there must be a better way to count the number of arrays in $KnownList->{data} !!
+
+# initialize main window
+$MainWindow = Gtk2::Window->new;
+$MainWindow->set_title ('Drakroam');
+$MainWindow->set_border_width(2);
+$MainWindow->signal_connect (delete_event => sub {
+	Gtk2->main_quit;
+});
+
+# add main box; everything goes in here
+$MainBox = Gtk2::VBox->new(0);
+$MainWindow->add ($MainBox);
+
+# add status box and frame
+$StatusBox = Gtk2::VBox->new(0);
+$StatusFrame = Gtk2::Frame->new("Status");
+$StatusFrame->set_border_width(2);
+$StatusFrame->add($StatusBox);
+$MainBox->pack_start ($StatusFrame, 0, 0, 0);
+
+# add status labels in three columns
+$StatusLabels = Gtk2::HBox->new(0,0);
+$StatusBox->pack_start ($StatusLabels, 0, 0, 0);
+$StatusColumnA = Gtk2::VBox->new(0);
+$StatusColumnB = Gtk2::VBox->new(0);
+$StatusColumnC = Gtk2::VBox->new(0);
+$StatusLabels->pack_start ($StatusColumnA, 0, 0, 10);
+$StatusLabels->pack_start ($StatusColumnB, 0, 0, 10);
+$StatusLabels->pack_start ($StatusColumnC, 0, 0, 10);
+$StatusLabelA = Gtk2::Label->new;
+$StatusLabelB = Gtk2::Label->new;
+$StatusLabelC = Gtk2::Label->new;
+$StatusColumnA->pack_start ($StatusLabelA, 0, 0, 0);
+$StatusColumnB->pack_start ($StatusLabelB, 0, 0, 0);
+$StatusColumnC->pack_start ($StatusLabelC, 0, 0, 0);
+
+# add disconnect and refresh buttons
+$StatusControls = Gtk2::HBox->new(1,0);
+$DisconnectButton = Gtk2::Button->new("Disconnect");
+$StatusControls->pack_start($DisconnectButton, 0, 0, 0);
+$DisconnectButton->signal_connect (clicked=>sub { &Disconnect });
+$RefreshButton = Gtk2::Button->new("Refresh");
+$StatusControls->pack_start($RefreshButton, 0, 0, 0);
+$RefreshButton->signal_connect (clicked=>sub { &UpdateStatus });
+$StatusBox->pack_start($StatusControls, 0, 0, 0);
+
+# add roaming box and frame
+$RoamBox = Gtk2::HBox->new(1,0);
+$RoamFrame = Gtk2::Frame->new("Roaming");
+$RoamFrame->set_border_width(2);
+$RoamFrame->add($RoamBox);
+$MainBox->pack_start ($RoamFrame, 0, 0, 0);
+
+# add roam status and controls
+$RoamControls = Gtk2::VBox->new(0);
+$RoamStatus = Gtk2::Label->new("Roaming: off");
+$RoamControls->pack_start($RoamStatus, 0, 0, 0);
+$RoamStartStop = Gtk2::HBox->new(0);
+$StartButton = Gtk2::Button->new("Start");
+$StartButton->signal_connect(clicked=>sub { &StartRoam });
+$RoamStartStop->pack_start($StartButton, 0, 0, 0);
+$StopButton = Gtk2::Button->new("Stop");
+$RoamStartStop->pack_start($StopButton, 0, 0, 0);
+$StopButton->signal_connect(clicked=>sub { &StopRoam });
+$RoamControls->pack_start($RoamStartStop, 0, 0, 0);
+$RoamBox->pack_start($RoamControls, 0, 0, 0);
+
+# add scan controls
+$ScanControl = Gtk2::VBox->new(0);
+$ScanDialogue = Gtk2::HBox->new(0);
+$ScanLabel = Gtk2::Label->new("Scan interval (sec): ");
+$ScanControl->pack_start($ScanLabel, 0, 0, 0);
+$ScanEntry = Gtk2::Entry->new;
+$ScanEntry->set_width_chars(4);
+$ScanDialogue->pack_start($ScanEntry, 0, 0, 0);
+$ScanEntry->set_text("$ScanInterval");
+$ScanSetButton = Gtk2::Button->new("Set");
+$ScanSetButton->signal_connect(clicked=>sub { &SetInterval });
+$ScanDialogue->pack_start($ScanSetButton, 0, 0, 0);
+$ScanControl->pack_start($ScanDialogue, 0, 0, 0);
+$RoamBox->pack_start($ScanControl, 0, 0, 0);
+
+# add known network box
+$KnownBox = Gtk2::VBox->new(0);
+$KnownFrame = Gtk2::Frame->new("Known Networks (Drag up/down or edit)");
+$KnownFrame->set_border_width(2);
+$KnownFrame->add($KnownBox);
+$MainBox->pack_start ($KnownFrame, 0, 0, 0);
+
+# make list and scroll box for known networks
+$KnownList = Gtk2::SimpleList->new(
+	"ESSID" => "text",
+	"Mode" => "text",
+	"Channel" => "int",
+	"Key" => "text",
+	"DHCP" => "bool"
+);
+$KnownList->get_selection->set_mode ('single');
+$KnownList->set_reorderable(1);
+$KnownList->set_column_editable (1, TRUE); # allow to change mode
+$KnownList->set_column_editable (2, TRUE); # allow to change channel
+$KnownList->set_column_editable (3, TRUE); # allow to change key
+#$KnownBox->pack_start($KnownList, 0, 0, 0);
+$KnownScroll = Gtk2::ScrolledWindow->new;
+$KnownScroll->set_policy ('automatic', 'automatic');
+$KnownScroll->add ($KnownList);
+$KnownBox->pack_start ($KnownScroll, 0, 0, 0);
+
+# add controls for known networks
+$KnownControls = Gtk2::HBox->new(1);
+$RemoveNetButton = Gtk2::Button->new("Remove");
+$KnownControls->pack_start($RemoveNetButton, 0, 0, 0);
+$RemoveNetButton->signal_connect(clicked=>sub {
+	my @selected = $KnownList->get_selected_indices;
+	splice @{$KnownList->{data}}, "@selected", 1;
+	$NumberOfNets--;
+});
+$ConnectButton = Gtk2::Button->new("Connect");
+$KnownControls->pack_start($ConnectButton, 0, 0, 0);
+$ConnectButton->signal_connect(clicked=>sub {
+	my @selected = $KnownList->get_selected_indices;
+	&ConnectNow (@selected);
+});
+$SaveConfigButton = Gtk2::Button->new("Save");
+$KnownControls->pack_start($SaveConfigButton, 0, 0, 0);
+$SaveConfigButton->signal_connect(clicked=>sub { &WriteConfig });
+$KnownBox->pack_start($KnownControls, 0, 0, 0);
+
+# add available networks box
+$AvailableBox = Gtk2::VBox->new(0);
+$AvailableFrame = Gtk2::Frame->new("Available Networks");
+$AvailableFrame->set_border_width(2);
+$AvailableFrame->add($AvailableBox);
+$MainBox->pack_start ($AvailableFrame, 0, 0, 0);
+
+# make list and scroll box for available networks
+$AvailableList = Gtk2::SimpleList->new(
+	"ESSID" => "text",
+	"Type" => "text",
+	"Encryption" => "text",
+	"Signal (%)" => "int"
+);
+$AvailableList->get_selection->set_mode ('single');
+#$AvailableBox->pack_start($AvailableList, 0, 0, 0);
+$AvailableScroll = Gtk2::ScrolledWindow->new;
+$AvailableScroll->set_policy ('automatic', 'automatic');
+$AvailableScroll->add ($AvailableList);
+$AvailableBox->pack_start ($AvailableScroll, 0, 0, 0);
+
+# add controls for available networks
+$AvailableControls = Gtk2::HBox->new(1);
+$AddNetButton = Gtk2::Button->new("Add");
+$AvailableControls->pack_start($AddNetButton, 0, 0, 0);
+$AddNetButton->signal_connect(clicked=>sub { 
+	my @selected = $KnownList->get_selected_indices;
+	my $essid = $AvailableList->{data}[@selected][0];
+	my $mode = undef;
+	my $channel = undef;
+	my $key = undef;
+	my $dhcp = 1; # assume dhcp for new networks
+	&AddNet ($essid, $mode, $channel, $key, $dhcp);
+});
+$UpdateAvailableButton = Gtk2::Button->new("Rescan");
+$AvailableControls->pack_start($UpdateAvailableButton, 0, 0, 0);
+$UpdateAvailableButton->signal_connect(clicked=>sub { &UpdateAvailable });
+$AvailableBox->pack_start($AvailableControls, 0, 0, 0);
+
+# add master controls
+$MasterBox = Gtk2::HBox->new(1);
+$HelpButton = Gtk2::Button->new("Help");
+$MasterBox->pack_start($HelpButton, 0, 0, 0);
+$HelpButton->signal_connect (clicked=>sub { &Dialog ("$HelpFile") });
+$AboutButton = Gtk2::Button->new("About");
+$MasterBox->pack_start($AboutButton, 0, 0, 0);
+$AboutButton->signal_connect (clicked=>sub { &Dialog ("$AboutFile") });
+$CloseButton = Gtk2::Button->new("Save and close");
+$MasterBox->pack_start($CloseButton, 0, 0, 0);
+$CloseButton->signal_connect (clicked=>sub {
+	&WriteConfig;
+	Gtk2->main_quit;
+});
+$MainBox->pack_start($MasterBox, 0, 0, 0);
+
+# fill the GUI
+&ReadConfig;
+&UpdateAll;
+
+sub UpdateAll {
+	&UpdateAvailable; #must go first as it defines the device name
+	&UpdateStatus;
+	&UpdateRoaming;
+}
+
+sub UpdateRoaming {
+	open (PS, "ps -A |") or die ("Can't open ps\n");
+	while (<PS>) {
+		if (/wlandetect/) {
+			$RoamStatus->set_text("Roaming: on");
+		}
+		else {
+			$RoamStatus->set_text("Roaming: off");
+		}
+	}
+	close PS;
+}
+
+sub UpdateStatus {
+	my $CurrentNet = "-";
+	my $CurrentIP = "---.---.---.---";
+	$CurrentGW = "---.---.---.---";
+	$CurrentMode = "";
+	$CurrentWEP = "";
+	$CurrentSignal = "-";
+	print ("Updating\n");
+	open (IWSTATUS, "$IWConfig 2>/dev/null |") or die ("Can't run iwconfig\n");
+	while (<IWSTATUS>) {
+		if (/ESSID:\"(\S*)\"/) { $CurrentNet = $1 }
+		if (/Mode:(\S*)\s/) { $CurrentMode = $1 }
+		if (/key:(\S*)\s/) { $CurrentWEP = $1 }
+		if (/Quality:(\S*)\//) { $CurrentSignal = $1 }
+	}
+	close IWSTATUS;
+	open (IFSTATUS, "$IFConfig $device |") or die ("Can't run ifconfig\n");
+	while (<IFSTATUS>) {
+		if (/inet addr:(\S*)\s/) { $CurrentIP = $1 }
+	}
+	close IFSTATUS;
+	open (ROUTE, "$route |") or die ("Can't run route\n");
+	while (<ROUTE>) {
+		if (/default\s*(\S*)\s/) { $CurrentGW = $1 }
+		else { $CurrentGW = "---.---.---.---" }
+	}
+	close ROUTE;
+	$StatusLabelA->set_text ("Net: $CurrentNet\nMode: $CurrentMode");
+	$StatusLabelB->set_text ("IP: $CurrentIP\nEncryption: $CurrentWEP");
+	$StatusLabelC->set_text ("Gateway: $CurrentGW\nSignal: $CurrentSignal");
+}
+
+sub UpdateAvailable {
+	print ("Running iwlist\n");
+	open (LIST, "$IWList scan 2>/dev/null |") or die ("Can't run iwlist");
+	@{$AvailableList->{data}} = ();
+	while (<LIST>) {
+		if(/([^ ]+)([ \t]+)Scan completed :/) { $device = $1 }
+		elsif (/([^ ]+)([ \t]+)No scan results/) { $device = $1 }
+		if (/ESSID:"(\S*)"/) {
+			$essid = $1;
+			print ("Found $essid.\n");
+			my $mode = undef;
+			my $wep = undef;
+			my $signal = undef;
+		}
+		if (/Mode:(\S*)/) { $mode = $1 }
+		if (/Quality:(\S*)\//) { $signal = $1 }
+		if (/key:(\S*)\s/) {
+			$wep = $1;
+			print ("Mode: $mode, WEP: $wep, Signal: $signal\n");
+			push @{$AvailableList->{data}}, [$essid, $mode, $wep, $signal];
+		}
+	}
+	close LIST;
+}
+
+sub AddNet {
+	my $essid = shift @_;
+	my $mode = shift @_;
+	my $channel = shift @_;
+	my $key = shift @_;
+	my $dhcp = shift @_;
+	print "Adding net $essid\n";
+	push (@{$KnownList->{data}}, [$essid, $mode, $channel, $key, $dhcp]);
+	$NumberOfNets++;
+}
+
+sub ReadConfig {
+	open(CONFIG, $config) or die "Configuration file not found.\n";
+	print "Reading config file.\n\n";
+	$line = 0;
+	while (<CONFIG>) {
+		$line++;
+                if (/^#/) {} #ignore comments
+		elsif (/^\n/) {} #ignore blank lines
+		elsif (/([^ \t]+)([ \t]+)(.*)/) {
+                	my $essid = $1;
+			my $command = $3;
+			# setup new network entry
+			my $mode = undef;
+			my $channel = undef;
+			my $key = undef;
+			my $dhcp = undef;
+			if ($command =~ /mode\s(\S*);/) { $mode = $1; }
+			elsif ($command =~ /mode\s(\S*)\s/) { $mode = $1; }
+			if ($command =~ /channel\s(\S*);/) { $channel = $1; }
+			elsif ($command =~ /channel\s(\S*)\s/) { $channel = $1; }
+			if ($command =~ /key\s(\S*);/) { $key = $1; }
+			elsif ($command =~ /key\s(\S*)\s/) { $key = $1; }
+			if ($command =~ /dhclient/) { $dhcp = 1; }
+			else { $dhcp = 0; }
+			&AddNet ($essid, $mode, $channel, $key, $dhcp);
+		}
+		else { die "Line $line of configuration file is not parseable.\n"; }
+	}
+	close CONFIG;
+}
+
+sub WriteConfig {
+	open (CONFIG, "> $config") or die ("Can't open configuration file\n");
+	print CONFIG ("#wlandetect configuration file\n#format: essid<tab><tab>commands\n#use @DEV@ for device name\n");
+	for ($row=0; $row<$NumberOfNets; $row++) { # again, lame
+		print CONFIG "$KnownList->{data}[$row][0]\t\t$IWConfig essid $KnownList->{data}[$row][0]";
+		if ($KnownList->{data}[$row][1]) {
+			print CONFIG "mode $KnownList->{data}[$row][1] ";
+		}
+		if ($KnownList->{data}[$row][2]) {
+			print CONFIG "channel $KnownList->{data}[$row][2] ";
+		}
+		if ($KnownList->{data}[$row][3]) {
+			print CONFIG "key $KnownList->{data}[$row][3] ";
+		}
+		print CONFIG "; ";
+		if ($KnownList->{data}[$row][4]) {
+			print CONFIG "$IFConfig \@DEV\@ up; $DHClient \@DEV\@";
+		}
+		else {
+			print CONFIG "$IFUp \@DEV\@"
+		}
+		print CONFIG "\n";
+	}
+	close CONFIG;
+}
+
+sub StartRoam {
+	system ("killall wlandetect; $WLanDetect -d -t $ScanInterval &");
+	&UpdateRoaming
+}
+
+sub StopRoam {
+	system ("killall wlandetect");
+	&UpdateRoaming;
+}
+
+sub SetInterval {
+	$ScanInterval = $ScanEntry->get_text;
+	system ("killall wlandetect; $WLanDetect -d -t $ScanInterval &");
+}
+
+sub ConnectNow {
+	my @command = "";
+	push @command, "$IWConfig essid $KnownList->{data}[$row][0] ";
+	if ($KnownList->{data}[$row][1]) {
+		push @command, "mode $KnownList->{data}[$row][1] ";
+	}
+	if ($KnownList->{data}[$row][2]) {
+		push @command, "channel $KnownList->{data}[$row][2] ";
+	}
+	if ($KnownList->{data}[$row][3]) {
+		push @command, "key $KnownList->{data}[$row][3] ";
+	}
+	push @command, "; ";
+	if ($KnownList->{data}[$row][4]) {
+		push @command, "$IFConfig $decive up; $DHClient $device";
+	}
+	else {
+		push @command, "$IFUp $device"
+	}
+	$ToBash = join ("", @command);
+	print ("Sending $ToBash\n");
+	system ($ToBash);
+	&UpdateStatus;
+}
+
+sub Disconnect {
+	system ("$IFDown $device");
+	&UpdateStatus;
+}
+
+sub Dialog {
+# read file
+$FilePointer = pop @_;
+open FILE, "<$FilePointer";
+undef $/;
+my $content = <FILE>;
+close FILE;
+$/ = "\n";
+# dump into a dialog
+$AboutWindow = Gtk2::Dialog->new ("Drakroam Info", $MainWindow,
+                                    'destroy-with-parent',
+                                    'gtk-ok' => 'none');
+$AboutLabel = Gtk2::Label->new ($content);
+$DialogScroll = Gtk2::ScrolledWindow->new;
+#$DialogScroll->set_policy ('automatic', 'automatic');
+$DialogScroll->add_with_viewport($AboutLabel);
+$AboutWindow->vbox->add ($DialogScroll);
+$AboutWindow->signal_connect (response => sub { $_[0]->destroy });
+$AboutWindow->show_all;
+}
+
+# start GUI
+print "Stating GUI\n";
+$MainWindow->show_all;
+Gtk2->main;