summaryrefslogtreecommitdiffstats
path: root/perl-install/network
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-04-24 19:00:12 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-04-24 19:00:12 +0000
commit73c851144720e28b21a491b6250385170db9d752 (patch)
treedcc9fae4302b3d083ad7cc7a808e5d17f970bb8c /perl-install/network
parent0dc3338257439d2265c1eb13c3a66c9431c88cb5 (diff)
downloaddrakx-73c851144720e28b21a491b6250385170db9d752.tar
drakx-73c851144720e28b21a491b6250385170db9d752.tar.gz
drakx-73c851144720e28b21a491b6250385170db9d752.tar.bz2
drakx-73c851144720e28b21a491b6250385170db9d752.tar.xz
drakx-73c851144720e28b21a491b6250385170db9d752.zip
perl_checker adaptations + fixes
Diffstat (limited to 'perl-install/network')
-rw-r--r--perl-install/network/isdn.pm4
-rw-r--r--perl-install/network/netconnect.pm4
-rw-r--r--perl-install/network/shorewall.pm4
-rw-r--r--perl-install/network/tools.pm16
4 files changed, 14 insertions, 14 deletions
diff --git a/perl-install/network/isdn.pm b/perl-install/network/isdn.pm
index 8834d7ba6..0028ecce7 100644
--- a/perl-install/network/isdn.pm
+++ b/perl-install/network/isdn.pm
@@ -235,7 +235,7 @@ sub isdn_ask_info {
ask_info2($isdn, $netc);
}
-sub isdn_ask_protocol {
+sub isdn_ask_protocol() {
my @toto = (
{ description => $::expert ? N("European protocol (EDSS1)") : N("European protocol"),
protokol => 2 },
@@ -327,7 +327,7 @@ sub isdn_detect_backend {
}
}
-sub isdn_get_list {
+sub isdn_get_list() {
map { $_->{description} } @isdn::isdndata;
}
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 8ef994583..3ba28075f 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -414,7 +414,7 @@ sub add_profile {
cp_af($cmd1, $cmd2);
}
-sub get_profiles {
+sub get_profiles() {
map { if_(/drakconnect_conf\.(.*)/, $1) } all("$::prefix/etc/sysconfig/network-scripts");
}
@@ -463,7 +463,7 @@ my $file = "$dir/draknet$suffix";
getVarsFromSh("$dir/drakconnect_conf");
}
-sub get_net_device {
+sub get_net_device() {
#${{ read_raw_net_conf() }}{InternetInterface};
my $connect_file = "/etc/sysconfig/network-scripts/net_cnx_up";
my $network_file = "/etc/sysconfig/network";
diff --git a/perl-install/network/shorewall.pm b/perl-install/network/shorewall.pm
index 083c90ae3..b41bb636a 100644
--- a/perl-install/network/shorewall.pm
+++ b/perl-install/network/shorewall.pm
@@ -46,7 +46,7 @@ sub get_config_file {
map { [ split ' ' ] } grep { !/^#/ } cat_("$::prefix/etc/shorewall/$file");
}
-sub default_interfaces {
+sub default_interfaces() {
my %conf;
my @l = detect_devices::getNet() or return;
@@ -59,7 +59,7 @@ sub default_interfaces {
\%conf;
}
-sub read {
+sub read() {
my %conf;
$conf{disabled} = !glob_("$::prefix/etc/rc3.d/S*shorewall");
diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm
index c7175a0d3..19921b5d0 100644
--- a/perl-install/network/tools.pm
+++ b/perl-install/network/tools.pm
@@ -39,7 +39,7 @@ sub unquotify {
$$word =~ s/^(['"]?)(.*)\1$/$2/;
}
-sub read_secret_backend {
+sub read_secret_backend() {
my $conf;
foreach my $i ("pap-secrets", "chap-secrets") {
foreach (cat_("$prefix/etc/ppp/$i")) {
@@ -102,9 +102,9 @@ Try to reconfigure your connection.");
$up;
}
-sub connect_backend { run_program::rooted($prefix, "$connect_prog &") }
+sub connect_backend() { run_program::rooted($prefix, "$connect_prog &") }
-sub disconnect_backend { run_program::rooted($prefix, "$disconnect_file &") }
+sub disconnect_backend() { run_program::rooted($prefix, "$disconnect_file &") }
sub read_providers_backend { my ($file) = @_; map { /(.*?)=>/ } catMaybeCompressed($file) }
@@ -141,7 +141,7 @@ sub ask_info2 {
1;
}
-sub detect_timezone {
+sub detect_timezone() {
my %tmz2country = (
'Europe/Paris' => N("France"),
'Europe/Amsterdam' => N("Netherlands"),
@@ -170,7 +170,7 @@ sub type2interface {
[ lan => 'eth' ];
}
-sub connected { gethostbyname("mandrakesoft.com") ? 1 : 0 }
+sub connected() { gethostbyname("mandrakesoft.com") ? 1 : 0 }
my $kid_pipe;
sub connected_bg {
@@ -235,7 +235,7 @@ sub test_connected {
return $current_connection_status;
}
-sub connected2 {
+sub connected2() {
if ($kid_pid = open(my $kid_to_read, "-|")) {
#- parent
$kid_to_read;
@@ -247,10 +247,10 @@ sub connected2 {
}
}
-sub disconnected {}
+sub disconnected() {}
-sub write_initscript {
+sub write_initscript() {
$::testing and return;
output_with_perm("$prefix/etc/rc.d/init.d/internet", 0755,
sprintf(<<'EOF', $connect_file, $connect_file, $disconnect_file, $disconnect_file));