From 5b77b46955f8b98a3e7d0b17119dda62f399d750 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Fri, 23 May 2008 13:45:54 +0000 Subject: apply provider settings when provider is set --- lib/network/connection.pm | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'lib/network/connection.pm') diff --git a/lib/network/connection.pm b/lib/network/connection.pm index 5467d6f..dccbefe 100644 --- a/lib/network/connection.pm +++ b/lib/network/connection.pm @@ -172,9 +172,16 @@ sub set_provider { if ($self->{provider_name} ne N("Unlisted - edit manually")) { my @providers_data = $self->get_providers; $self->{provider} = $providers_data[0]{$self->{provider_name}}; + $self->apply_provider_settings($net); } } +sub apply_provider_settings { + my ($self, $net) = @_; + $self->guess_protocol($net) if $self->can('guess_protocol'); + $self->guess_access_settings if $self->can('guess_access_settings'); +} + #- check that $self->can('get_providers') first sub get_provider_settings { my ($self) = @_; -- cgit v1.2.1