From ac1454746e6d312be5dfef85b09cf962b7582831 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Fri, 23 May 2008 13:47:19 +0000
Subject: guess provider according to APN from chat file or from configuration
 of current network

---
 lib/network/connection/cellular.pm | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

(limited to 'lib')

diff --git a/lib/network/connection/cellular.pm b/lib/network/connection/cellular.pm
index 51d9e3d..3b9c6e0 100644
--- a/lib/network/connection/cellular.pm
+++ b/lib/network/connection/cellular.pm
@@ -36,6 +36,24 @@ sub write_cellular_settings {
     setVarsInShMode($file, 0600, { map { (uc($_) => $self->{access}{$_}) } qw(login password apn) });
 }
 
+sub guess_apn_from_chat {
+    my ($self) = @_;
+    my $chat = cat_($::prefix . $self->get_chat_file);
+    my $chat_apn = $chat =~ /\bAT\+CGDCONT=\d+,"IP","([^"]+)"/ && $1;
+}
+
+sub guess_provider_settings {
+    my ($self) = @_;
+    my $settings = $self->load_cellular_settings;
+    my $apn = $self->guess_apn_from_chat || $settings && $settings->{APN};
+    if ($apn) {
+        my @providers_data = $self->get_providers;
+        $self->{provider_name} ||= find { $providers_data[0]{$_}{apn} eq $apn } keys %{$providers_data[0]};
+        return;
+    }
+    $self->SUPER::guess_provider_settings;
+}
+
 sub guess_access_settings {
     my ($self) = @_;
     my $settings = $self->load_cellular_settings || {};
-- 
cgit v1.2.1