summaryrefslogtreecommitdiffstats
path: root/perl-install/network/netconnect.pm
diff options
context:
space:
mode:
authorDamien Chaumette <dchaumette@mandriva.com>2002-07-18 17:30:05 +0000
committerDamien Chaumette <dchaumette@mandriva.com>2002-07-18 17:30:05 +0000
commit518d7c8dc3e077a8593e6af6a85dcdafecd0b5a7 (patch)
treea7b5b70a1da7a088229311319481374c85f13fa3 /perl-install/network/netconnect.pm
parent9314b06315b5ca32d9785c7323d22e2a96cc6798 (diff)
downloaddrakx-backup-do-not-use-518d7c8dc3e077a8593e6af6a85dcdafecd0b5a7.tar
drakx-backup-do-not-use-518d7c8dc3e077a8593e6af6a85dcdafecd0b5a7.tar.gz
drakx-backup-do-not-use-518d7c8dc3e077a8593e6af6a85dcdafecd0b5a7.tar.bz2
drakx-backup-do-not-use-518d7c8dc3e077a8593e6af6a85dcdafecd0b5a7.tar.xz
drakx-backup-do-not-use-518d7c8dc3e077a8593e6af6a85dcdafecd0b5a7.zip
. draknet renamed in drakconnect
Diffstat (limited to 'perl-install/network/netconnect.pm')
-rw-r--r--perl-install/network/netconnect.pm40
1 files changed, 20 insertions, 20 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 4998124a1..2edf23245 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -95,7 +95,7 @@ sub pre_func {
my $W = my_gtk->new(_("Network Configuration Wizard"));
gtkadd($W->{window},
gtkpack_(new Gtk::VBox(0, 0),
- 1, write_on_pixmap(gtkpng ("draknet_step"),
+ 1, write_on_pixmap(gtkpng ("drakconnect_step"),
20,200,
_("We are now going to configure the %s connection.",_($text)),
),
@@ -311,7 +311,7 @@ fi
output "$prefix$connect_prog",
qq(
#!/bin/bash
-/usr/sbin/draknet
+/usr/sbin/drakconnect
);
}
if ($direct_net_install) {
@@ -362,7 +362,7 @@ sub save_conf {
$intf = { %$intf };
- output("$prefix/etc/sysconfig/network-scripts/draknet_conf",
+ output("$prefix/etc/sysconfig/network-scripts/drakconnect_conf",
"SystemName=" . do { $netc->{HOSTNAME} =~ /([^\.]*)\./; $1 } . "
DomainName=" . do { $netc->{HOSTNAME} =~ /\.(.*)/; $1 } . "
InternetAccessType=" . do { if ($netcnx->{type}) { $netcnx->{type}; } else { $netc->{GATEWAY} ? "lan" : ""; } } . "
@@ -438,11 +438,11 @@ ADSLLogin=$adsl->{login}
ADSLPassword=$adsl->{passwd}
DOMAINNAME2=$netc->{DOMAINNAME2}"
);
- chmod 0600, "$prefix/etc/sysconfig/network-scripts/draknet_conf";
+ chmod 0600, "$prefix/etc/sysconfig/network-scripts/drakconnect_conf";
my $a = $netcnx->{PROFILE} ? $netcnx->{PROFILE} : "default";
- cp_af("$prefix/etc/sysconfig/network-scripts/draknet_conf", "$prefix/etc/sysconfig/network-scripts/draknet_conf." . $a);
- chmod 0600, "$prefix/etc/sysconfig/network-scripts/draknet_conf";
- chmod 0600, "$prefix/etc/sysconfig/network-scripts/draknet_conf." . $a;
+ cp_af("$prefix/etc/sysconfig/network-scripts/drakconnect_conf", "$prefix/etc/sysconfig/network-scripts/drakconnect_conf." . $a);
+ chmod 0600, "$prefix/etc/sysconfig/network-scripts/drakconnect_conf";
+ chmod 0600, "$prefix/etc/sysconfig/network-scripts/drakconnect_conf." . $a;
foreach ( ["$prefix$connect_file", "up"],
["$prefix$disconnect_file", "down"],
["$prefix$connect_prog", "prog"],
@@ -462,7 +462,7 @@ sub set_profile {
my ($netcnx, $profile) = @_;
$profile ||= $netcnx->{PROFILE};
$profile or return;
- my $f = "$prefix/etc/sysconfig/network-scripts/draknet_conf";
+ my $f = "$prefix/etc/sysconfig/network-scripts/drakconnect_conf";
-e ($f . "." . $profile) or return;
$netcnx->{PROFILE}=$profile;
cp_af($f . "." . $profile, $f);
@@ -485,7 +485,7 @@ sub del_profile {
my ($netcnx, $profile) = @_;
$profile or return;
$profile eq "default" and return;
- rm_rf("$prefix/etc/sysconfig/network-scripts/draknet_conf." . $profile);
+ rm_rf("$prefix/etc/sysconfig/network-scripts/drakconnect_conf." . $profile);
rm_rf(glob_("$prefix/etc/sysconfig/network-scripts/net_{up,down,prog,iop1B,iop2B,isdn1B,isdn2B,resolv,speedtouch}." . $profile));
}
@@ -493,15 +493,15 @@ sub add_profile {
my ($netcnx, $profile) = @_;
$profile or return;
$profile eq "default" and return;
- my $cmd1 = "$prefix/etc/sysconfig/network-scripts/draknet_conf." . ($netcnx->{PROFILE} ? $netcnx->{PROFILE} : "default");
- my $cmd2 = "$prefix/etc/sysconfig/network-scripts/draknet_conf." . $profile;
+ my $cmd1 = "$prefix/etc/sysconfig/network-scripts/drakconnect_conf." . ($netcnx->{PROFILE} ? $netcnx->{PROFILE} : "default");
+ my $cmd2 = "$prefix/etc/sysconfig/network-scripts/drakconnect_conf." . $profile;
cp_af($cmd1, $cmd2);
}
sub get_profiles {
my @a;
my $i=0;
- foreach (glob("/etc/sysconfig/network-scripts/draknet_conf.*")) {
+ foreach (glob("/etc/sysconfig/network-scripts/drakconnect_conf.*")) {
s/.*\.//;
$a[$i] = $_;
$i++;
@@ -519,8 +519,8 @@ sub load_conf {
my $system_name;
my $domain_name;
- if (-e "$prefix/etc/sysconfig/network-scripts/draknet_conf") {
- foreach (cat_("$prefix/etc/sysconfig/network-scripts/draknet_conf")) {
+ if (-e "$prefix/etc/sysconfig/network-scripts/drakconnect_conf") {
+ foreach (cat_("$prefix/etc/sysconfig/network-scripts/drakconnect_conf")) {
/^DNSPrimaryIP=(.*)$/ and $netc->{dnsServer} = $1;
/^DNSSecondaryIP=(.*)$/ and $netc->{dnsServer2} = $1;
/^DNSThirdIP=(.*)$/ and $netc->{dnsServer3} = $1;
@@ -593,22 +593,22 @@ sub load_conf {
}
sub get_net_device {
- ${{ getVarsFromSh("/etc/sysconfig/draknet") }}{NET_DEVICE};
+ ${{ getVarsFromSh("/etc/sysconfig/drakconnect") }}{NET_DEVICE};
}
sub read_net_conf {
my ($prefix, $netcnx, $netc)=@_;
- add2hash($netcnx, { getVarsFromSh("$prefix/etc/sysconfig/draknet") });
+ add2hash($netcnx, { getVarsFromSh("$prefix/etc/sysconfig/drakconnect") });
$netc->{$_} = $netcnx->{$_} foreach 'NET_DEVICE', 'NET_INTERFACE';
$netcnx->{$netcnx->{type}}||={};
- add2hash($netcnx->{$netcnx->{type}}, { getVarsFromSh("$prefix/etc/sysconfig/draknet." . $netcnx->{type}) });
+ add2hash($netcnx->{$netcnx->{type}}, { getVarsFromSh("$prefix/etc/sysconfig/drakconnect." . $netcnx->{type}) });
}
sub set_net_conf {
my ($netcnx, $netc)=@_;
- setVarsInShMode("$prefix/etc/sysconfig/draknet", 0600, $netcnx, "NET_DEVICE", "NET_INTERFACE", "type", "PROFILE" );
- setVarsInShMode("$prefix/etc/sysconfig/draknet." . $netcnx->{type}, 0600, $netcnx->{$netcnx->{type}}); #- doesn't work, don't know why
- setVarsInShMode("$prefix/etc/sysconfig/draknet.netc", 0600, $netc); #- doesn't work, don't know why
+ setVarsInShMode("$prefix/etc/sysconfig/drakconnect", 0600, $netcnx, "NET_DEVICE", "NET_INTERFACE", "type", "PROFILE" );
+ setVarsInShMode("$prefix/etc/sysconfig/drakconnect." . $netcnx->{type}, 0600, $netcnx->{$netcnx->{type}}); #- doesn't work, don't know why
+ setVarsInShMode("$prefix/etc/sysconfig/drakconnect.netc", 0600, $netc); #- doesn't work, don't know why
}
sub start_internet {