summaryrefslogtreecommitdiffstats
path: root/perl-install/network/netconnect.pm
diff options
context:
space:
mode:
authorDamien Chaumette <dchaumette@mandriva.com>2003-09-07 18:35:48 +0000
committerDamien Chaumette <dchaumette@mandriva.com>2003-09-07 18:35:48 +0000
commit027d239803146b08081b2475131128e45f936cf8 (patch)
tree1772897bf316b8b19db9cc8e81c575c078529b6c /perl-install/network/netconnect.pm
parentd27a5e643e178914febb11d1dd25569a32fd698c (diff)
downloaddrakx-027d239803146b08081b2475131128e45f936cf8.tar
drakx-027d239803146b08081b2475131128e45f936cf8.tar.gz
drakx-027d239803146b08081b2475131128e45f936cf8.tar.bz2
drakx-027d239803146b08081b2475131128e45f936cf8.tar.xz
drakx-027d239803146b08081b2475131128e45f936cf8.zip
- $netcnx->{PROFILE} is current profile name (now scalar)
- fix non working profiles loading/saving - perl_checker
Diffstat (limited to 'perl-install/network/netconnect.pm')
-rw-r--r--perl-install/network/netconnect.pm13
1 files changed, 8 insertions, 5 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 639e1ab6f..14f30a45f 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -277,16 +277,19 @@ fi
sub save_conf {
my ($netcnx) = @_;
my $string = "# Connection type reminder
-type=$netcnx->{type}
+name=$netcnx->{PROFILE}
";
output_with_perm("$prefix/etc/sysconfig/drakconnect", 0600, $string);
}
sub set_profile {
- my ($netcnx, $profile) = @_;
- $netcnx->{PROFILE} = $profile;
+ my ($netcnx) = @_;
system("/sbin/set-netprofile $netcnx->{PROFILE}");
+}
+sub save_profile {
+ my ($netcnx) = @_;
+ system("/sbin/save-netprofile $netcnx->{PROFILE}");
}
sub del_profile {
@@ -307,9 +310,9 @@ sub get_profiles() {
sub load_conf {
my ($netcnx, $netc, $intf) = @_;
- my $type = { getVarsFromSh("$prefix/etc/sysconfig/drakconnect") };
+ my $profile = { getVarsFromSh("$prefix/etc/sysconfig/drakconnect") };
- $type->{type} and $netcnx->{type} = $type->{type};
+ $netcnx->{PROFILE} = $profile->{name};
network::read_all_conf($prefix, $netc, $intf);
}