summaryrefslogtreecommitdiffstats
path: root/kernel
ModeNameSize
-rw-r--r--.cvsignore44logstatsplain
-rw-r--r--Makefile279logstatsplain
-rwxr-xr-xcheck_mar.pl830logstatsplain
-rw-r--r--list_modules.pm7030logstatsplain
-rw-r--r--modules.pl6049logstatsplain
-rwxr-xr-xupdate_kernel2822logstatsplain
generated by cgit v1.2.1 (git 2.21.0) at 2025-01-12 08:40:51 +0000
ac0e9b19810fc1bc836f30c19918e5d'>perl-install/Xconfig/card.pm2
-rw-r--r--perl-install/any.pm8
-rw-r--r--perl-install/bootlook.pm2
-rw-r--r--perl-install/commands.pm3
-rw-r--r--perl-install/crypto.pm2
-rw-r--r--perl-install/detect_devices.pm8
-rw-r--r--perl-install/install2.pm1
-rw-r--r--perl-install/install_any.pm2
-rw-r--r--perl-install/install_gtk.pm2
-rw-r--r--perl-install/install_interactive.pm2
-rw-r--r--perl-install/install_steps_gtk.pm2
-rw-r--r--perl-install/install_steps_interactive.pm4
-rw-r--r--perl-install/interactive/stdio.pm2
-rw-r--r--perl-install/keyboard.pm1
-rw-r--r--perl-install/modules.pm2
-rw-r--r--perl-install/mouse.pm4
-rw-r--r--perl-install/my_gtk.pm20
-rw-r--r--perl-install/network/adsl.pm2
-rw-r--r--perl-install/network/ethernet.pm8
-rw-r--r--perl-install/network/isdn.pm8
-rw-r--r--perl-install/network/netconnect.pm51
-rw-r--r--perl-install/network/tools.pm8
-rw-r--r--perl-install/pkgs.pm2
-rw-r--r--perl-install/printer.pm18
-rw-r--r--perl-install/printerdrake.pm6
-rw-r--r--perl-install/resize_fat/main.pm21
-rw-r--r--perl-install/services.pm4
-rwxr-xr-xperl-install/standalone/drakgw19
-rwxr-xr-xperl-install/standalone/keyboarddrake4
-rwxr-xr-xperl-install/standalone/mousedrake1
31 files changed, 100 insertions, 121 deletions
diff --git a/perl-install/Makefile b/perl-install/Makefile
index 339b3f49d..fad7888e1 100644
--- a/perl-install/Makefile
+++ b/perl-install/Makefile
@@ -45,7 +45,7 @@ $(DIRS):
$(MAKE) -C $@
test_pms: verify_c
- for i in install2 install_steps_*.pm standalone/keyboarddrake standalone/XFdrake standalone/drakboot; do perl_checker -I. -no_cw -excludec -excludehelp -excludeurpm -excluderesize_fat::c_rewritten -excludeMDK::Common::Globals -excludeCGI -excludestandalone -excludeURPM -excludeURPM::Package -excludeURPM::DB -excludeURPM::Resolve $$i; done
+ for i in install2 install_steps_*.pm standalone/keyboarddrake standalone/XFdrake standalone/drakboot; do perl_checker -I. -no_cw $$i; done
for i in install2 install_steps_*.pm; do perl -cw -I. $$i; done
verify_c:
diff --git a/perl-install/Xconfig/card.pm b/perl-install/Xconfig/card.pm
index 0b2b6c868..26a49dab8 100644
--- a/perl-install/Xconfig/card.pm
+++ b/perl-install/Xconfig/card.pm
@@ -294,7 +294,7 @@ sub install_server {
my $prog = server_binary($card);
- my @packages = ();
+ my @packages;
push @packages, using_xf4($card) ? 'XFree86-server' : "XFree86-$card->{server}" if ! -x "$::prefix$prog";
#- additional packages to install according available card.
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 6f59fc248..e0dfb62d1 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -281,7 +281,7 @@ You can add some more or change the existing ones."),
$prefix = "linux";
} else {
$e = { type => 'other' };
- $prefix = arch() =~ /sparc/ ? "sunos" : arch() =~ /ppc/ ? "macos" : "windows";;
+ $prefix = arch() =~ /sparc/ ? "sunos" : arch() =~ /ppc/ ? "macos" : "windows";
}
$e->{label} = $prefix;
for (my $nb = 0; member($e->{label}, @labels); $nb++) { $e->{label} = "$prefix-$nb" }
@@ -492,11 +492,7 @@ BOOTPROTO="none"
PEERDNS="$toreplace{peerdns}"
END
foreach (1..2) {
- if ($toreplace{"dns$_"}) {
- print IFCFG <<END;
-DNS$_=$toreplace{"dns$_"}
-END
- }
+ print IFCFG qq(DNS$_=$toreplace{"dns$_"}\n) if $toreplace{"dns$_"};
}
close IFCFG;
diff --git a/perl-install/bootlook.pm b/perl-install/bootlook.pm
index 36b553895..b94250e39 100644
--- a/perl-install/bootlook.pm
+++ b/perl-install/bootlook.pm
@@ -178,7 +178,7 @@ if ($a_mode) {
$window->show_all();
Gtk->main_iteration while Gtk->events_pending;
$::isEmbedded and kill USR2, $::CCPID;
-$inmain=1;
+$inmain = 1;
Gtk->main;
Gtk->exit(0);
diff --git a/perl-install/commands.pm b/perl-install/commands.pm
index 99b0164d7..3294c1060 100644
--- a/perl-install/commands.pm
+++ b/perl-install/commands.pm
@@ -1,3 +1,5 @@
+package commands; # $Id$
+
#-########################################################################
#- This file implement many common shell commands:
#- true, false, cat, which, dirname, basename, rmdir, lsmod, grep, tr,
@@ -5,7 +7,6 @@
#- swapoff, ls, cp, ps, dd, head, tail, strings, hexdump, more, insmod,
#- modprobe, route, df, kill, lspci, lssbus, dmesg, sort, du,
#-########################################################################
-package commands; # $Id$
use diagnostics;
use strict;
diff --git a/perl-install/crypto.pm b/perl-install/crypto.pm
index fb15db673..06c8db3e6 100644
--- a/perl-install/crypto.pm
+++ b/perl-install/crypto.pm
@@ -40,7 +40,7 @@ my %static_mirrors = (
# "ackbar" => [ "Ackbar", "/updates", "a", "a" ],
);
-my %mirrors = ();
+my %mirrors;
my %deps = (
'libcrypto.so.0' => 'openssl',
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 57c2145ef..3da219e8b 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -17,7 +17,7 @@ use c;
#- Globals
#-#####################################################################################
my @netdevices = map { my $l = $_; map { "$l$_" } (0..3) } qw(eth tr fddi plip);
-my %serialprobe = ();
+my %serialprobe;
#-######################################################################################
#- Functions
@@ -464,7 +464,7 @@ sub hasUltra66 {
}
sub whatParport() {
- my @res = ();
+ my @res;
foreach (0..3) {
my $elem = {};
local *F;
@@ -512,7 +512,7 @@ sub whatUsbport() {
# manufacturer and model names, so that they are easily matched to the
# printer entries in the Foomatic database
my $i;
- my @res = ();
+ my @res;
foreach $i (0..15) {
my $port = "/dev/usb/lp$i";
my $realport = devices::make("$port");
@@ -611,7 +611,7 @@ sub probeSerialDevices {
#- ... but still take some time :-)
local *F; open F, "$ENV{LD_LOADER} serial_probe |";
local $_;
- my %current = (); while (<F>) {
+ my %current; while (<F>) {
$serialprobe{$current{DEVICE}} = { %current } and %current = () if /^\s*$/ && $current{DEVICE};
$current{$1} = $2 if /^([^=]+)=(.*?)\s*$/;
}
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 88f5b0967..0c9c6c35f 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -1,4 +1,3 @@
-
package install2; # $Id$
use diagnostics;
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 824584f81..14565b100 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -37,7 +37,7 @@ $boot_medium = 1;
my $postinstall_rpms = '';
my $current_medium = $boot_medium;
my $asked_medium = $boot_medium;
-my $cdrom = undef;
+my $cdrom;
sub useMedium($) {
#- before ejecting the first CD, there are some files to copy!
#- does nothing if the function has already been called.
diff --git a/perl-install/install_gtk.pm b/perl-install/install_gtk.pm
index b50e7d494..712fbbcda 100644
--- a/perl-install/install_gtk.pm
+++ b/perl-install/install_gtk.pm
@@ -156,7 +156,7 @@ sub create_steps_window {
$darea->set_events(['exposure_mask', 'enter_notify_mask', 'leave_notify_mask', 'button_press_mask', 'button_release_mask' ]);
$darea->signal_connect(expose_event => sub { $draw_pix->($f->('')) });
if ($step->{reachable}) {
- $darea->signal_connect(enter_notify_event => sub { $in_button=1; $draw_pix->($f->('-on')) });
+ $darea->signal_connect(enter_notify_event => sub { $in_button = 1; $draw_pix->($f->('-on')) });
$darea->signal_connect(leave_notify_event => sub { undef $in_button; $draw_pix->($f->('')) });
$darea->signal_connect(button_press_event => sub { $draw_pix->($f->('-click')) });
$darea->signal_connect(button_release_event => sub { $in_button && die "setstep $step_name\n" });
diff --git a/perl-install/install_interactive.pm b/perl-install/install_interactive.pm
index 2ff4d27e6..3f99a5833 100644
--- a/perl-install/install_interactive.pm
+++ b/perl-install/install_interactive.pm
@@ -60,7 +60,7 @@ For this, create a partition (or click on an existing one).
Then choose action ``Mount point'' and set it to `/'"), 1) or return;
}
if (!grep { isSwap($_) } @fstab) {
- $o->ask_warn('', _("You must have a swap partition")), $ok=0 if !$::expert;
+ $o->ask_warn('', _("You must have a swap partition")), $ok = 0 if !$::expert;
$ok &&= $::expert || $o->ask_okcancel('', _("You don't have a swap partition.\n\nContinue anyway?"));
}
if (arch() =~ /ia64/ && !fsedit::has_mntpoint("/boot/efi", $all_hds)) {
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 7d3c1503a..4b44f10a3 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -78,7 +78,7 @@ sub new($$) {
elsif (/Permedia2/) { @servers = qw(3DLabs) }
else { @servers = qw(Xsun24) }
} elsif (arch() =~ /ia64/) {
- @servers= 'XFree86';
+ @servers = 'XFree86';
} elsif (arch() eq "ppc") {
@servers = qw(Xpmac);
}
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index c28187579..212e3fd4a 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -719,8 +719,8 @@ sub reallyChooseGroups {
sub chooseCD {
my ($o, $packages) = @_;
my @mediums = grep { $_ != $install_any::boot_medium } pkgs::allMediums($packages);
- my @mediumsDescr = ();
- my %mediumsDescr = ();
+ my @mediumsDescr;
+ my %mediumsDescr;
if (!common::usingRamdisk()) {
#- mono-cd in case of no ramdisk
diff --git a/perl-install/interactive/stdio.pm b/perl-install/interactive/stdio.pm
index 041235cef..67198d00e 100644
--- a/perl-install/interactive/stdio.pm
+++ b/perl-install/interactive/stdio.pm
@@ -58,7 +58,7 @@ ask_fromW_begin:
}
};
- my @labels = ();
+ my @labels;
my $format_label = sub { my ($e) = @_; return "`${$e->{val}}' $e->{label} $e->{text}\n" };
my $do_widget = sub {
my ($e, $ind) = @_;
diff --git a/perl-install/keyboard.pm b/perl-install/keyboard.pm
index c730c2739..38cd03c72 100644
--- a/perl-install/keyboard.pm
+++ b/perl-install/keyboard.pm
@@ -1,4 +1,3 @@
-
package keyboard; # $Id$
use diagnostics;
diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index d3bada086..33672bb10 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -247,7 +247,7 @@ sub write_conf {
if $v2 && !$written->{$mod}{$type};
}
}
- my @l = ();
+ my @l;
push @l, 'scsi_hostadapter' if !is_empty_array_ref($conf{scsi_hostadapter}{probeall});
push @l, 'bttv' if grep { $_->{driver} eq 'bttv' } detect_devices::probeall();
append_to_etc_modules($prefix, @l);
diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index 1ab19052a..f41f984ff 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -477,7 +477,7 @@ sub test_mouse {
0, 360*64);
}
} elsif ($nb == 3) {
- $wait=1;
+ $wait = 1;
$darea->window->draw_pixmap ($darea->style->bg_gc('normal'),
$aru, 0, 0,
($darea->allocation->[2]-$width)/2+102, ($darea->allocation->[3]-$height)/2 + 57,
@@ -488,7 +488,7 @@ sub test_mouse {
13, 62);
Gtk->timeout_add(200, sub { $wait = 0 });
} elsif ($nb == 4) {
- $wait=1;
+ $wait = 1;
$darea->window->draw_pixmap ($darea->style->bg_gc('normal'),
$ard, 0, 0,
($darea->allocation->[2]-$width)/2+102, ($darea->allocation->[3]-$height)/2 + 131,
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index d8ecf8b47..04aabea56 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -63,7 +63,7 @@ sub new {
$style->font(Gtk::Gdk::Font->fontset_load("-adobe-utopia-regular-r-*-*-25-*-*-*-p-*-iso8859-*"));
my $w = $style->font->string_width($::Wizard_title);
$draw1->signal_connect(expose_event => sub {
- for (my $i=0; $i < (540/$y1); $i++) {
+ for (my $i = 0; $i < (540/$y1); $i++) {
$draw1->window->draw_pixmap ($draw1->style->bg_gc('normal'),
$im_up, 0, 0, 0, $y1*$i,
$x1 , $y1);
@@ -75,7 +75,7 @@ sub new {
}
});
$draw2->signal_connect(expose_event => sub {
- for (my $i=0; $i < (300/$y2); $i++) {
+ for (my $i = 0; $i < (300/$y2); $i++) {
$draw2->window->draw_pixmap ($draw2->style->bg_gc('normal'),
$im_left, 0, 0, 0, $y2*$i,
$x2 , $y2);
@@ -377,7 +377,7 @@ sub gtkctree_children {
@l;
}
-my @icon_paths = ();
+my @icon_paths;
sub add_icon_path { push @icon_paths, @_ }
sub icon_paths {
@@ -387,16 +387,16 @@ sub icon_paths {
sub gtkcreate_xpm {
my ($f) = @_;
my $rw = gtkroot();
- $f =~ m|.xpm$| or $f="$f.xpm";
- if ($f !~ /\//) { -e "$_/$f" and $f="$_/$f", last foreach icon_paths() }
+ $f =~ m|.xpm$| or $f = "$f.xpm";
+ if ($f !~ /\//) { -e "$_/$f" and $f = "$_/$f", last foreach icon_paths() }
my @l = Gtk::Gdk::Pixmap->create_from_xpm($rw, new Gtk::Style->bg('normal'), $f) or die "gtkcreate_xpm: missing pixmap file $f";
@l;
}
sub gtkcreate_png {
my ($f) = shift;
- $f =~ m|.png$| or $f="$f.png";
- if ($f !~ /\//) { -e "$_/$f" and $f="$_/$f", last foreach icon_paths() }
+ $f =~ m|.png$| or $f = "$f.png";
+ if ($f !~ /\//) { -e "$_/$f" and $f = "$_/$f", last foreach icon_paths() }
my $im = Gtk::Gdk::ImlibImage->load_image($f) or die "gtkcreate_png: missing png file $f";
$im->render($im->rgb_width, $im->rgb_height);
($im->move_image(), $im->move_mask);
@@ -423,7 +423,7 @@ sub create_pix_text {
elsif ($background =~ /#(\d+)#(\d+)#(\d+)/) { $color_background = gtkcolor(map{$_*65535/255}($1, $2, $3)) }
elsif (ref($background) eq 'Gtk::Gdk::Pixmap' && $x_back && $y_back) { $backpix = 1 }
my $fake_darea = new Gtk::DrawingArea;
- my $style= $fake_darea->style->copy();
+ my $style = $fake_darea->style->copy();
if (ref($font) eq 'Gtk::Gdk::Font') {
$style->font($font);
} else {
@@ -679,14 +679,14 @@ sub write_on_pixmap {
my $gc = Gtk::Gdk::GC->new(gtkroot());
$gc->set_foreground(gtkcolor(8448, 17664, 40191)); #- in hex : 33, 69, 157
- my $darea= new Gtk::DrawingArea();
+ my $darea = new Gtk::DrawingArea();
$darea->size($width, $height);
$darea->set_usize($width, $height);
my $draw = sub {
my $style = new Gtk::Style;
#- i18n : you can change the font.
$style->font(Gtk::Gdk::Font->fontset_load(_("-adobe-times-bold-r-normal--17-*-100-100-p-*-iso8859-*,*-r-*")));
- my $y_pos2= $y_pos;
+ my $y_pos2 = $y_pos;
foreach (@text) {
$darea->window->draw_string($style->font, $gc, $x_pos, $y_pos2, $_);
$y_pos2 += 20;
diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm
index d27292cf4..8df96aa00 100644
--- a/perl-install/network/adsl.pm
+++ b/perl-install/network/adsl.pm
@@ -71,7 +71,7 @@ sub adsl_detect {
return 0;
my ($interface) = @_;
run_program::rooted($prefix, "ifconfig $interface 10.0.0.10 netmask 255.255.255.0");
- my $ret=run_program::rooted($prefix, "/bin/ping -c 1 10.0.0.138 2> /dev/null");
+ my $ret = run_program::rooted($prefix, "/bin/ping -c 1 10.0.0.138 2> /dev/null");
run_program::rooted($prefix, "ifconfig $interface 0.0.0.0 netmask 255.255.255.0");
run_program::rooted($prefix, "/etc/init.d/network restart");
$ret;
diff --git a/perl-install/network/ethernet.pm b/perl-install/network/ethernet.pm
index 1bdaec245..aa2339fe2 100644
--- a/perl-install/network/ethernet.pm
+++ b/perl-install/network/ethernet.pm
@@ -25,7 +25,7 @@ sub configure_cable {
# such as ``mybox.mylab.myco.com''."),
# [_("Host name:")], [ \$netcnx->{cable}{hostname} ]);
if ($::expert) {
- my @m=(
+ my @m = (
{ description => "dhcpcd",
c => 1},
{ description => "dhcpxd",
@@ -83,7 +83,7 @@ sub conf_network_card {
my ($netc, $intf, $type, $ipadr, $netadr) = @_;
#-type =static or dhcp
any::load_category($in, 'network/main|usb', !$::expert, 1);
- my @all_cards=conf_network_card_backend($netc, $intf, $type, undef, $ipadr, $netadr);
+ my @all_cards = conf_network_card_backend($netc, $intf, $type, undef, $ipadr, $netadr);
my $interface;
@all_cards == () and $in->ask_warn('', _("No ethernet network adapter has been detected on your system.
I cannot set up this connection type.")) and return;
@@ -97,7 +97,7 @@ I cannot set up this connection type.")) and return;
l1:
$::isStandalone and modules::write_conf($prefix);
- my $device=conf_network_card_backend($netc, $intf, $type, $interface, $ipadr, $netadr, $interface);
+ my $device = conf_network_card_backend($netc, $intf, $type, $interface, $ipadr, $netadr, $interface);
# if ( $::isStandalone and !($type eq "dhcp")) {
# $in->ask_yesorno(_("Network interface"),
# _("I'm about to restart the network device:\n") . $device . _("\nDo you agree?"), 1) and configureNetwork2($in, $prefix, $netc, $intf) and system("$prefix/sbin/ifdown $device;$prefix/sbin/ifup $device");
@@ -179,7 +179,7 @@ sub configureNetwork {
my @all_cards = conf_network_card_backend ($netc, $intf, undef, undef, undef, undef);
configureNetwork_step_1:
- my $n_card=0;
+ my $n_card = 0;
$netc ||= {};
my $last; foreach (@l) {
my $intf2 = findIntf($intf ||= {}, $_);
diff --git a/perl-install/network/isdn.pm b/perl-install/network/isdn.pm
index 504655d11..f9c8bd409 100644
--- a/perl-install/network/isdn.pm
+++ b/perl-install/network/isdn.pm
@@ -74,7 +74,7 @@ sub isdn_write_config_backend {
if ($isdn->{id}) {
isdn_detect_backend($isdn);
} else {
- my $a="";
+ my $a = "";
defined $isdn->{$_} and $a .= "$_=" . $isdn->{$_} . " " foreach qw(type protocol mem io io0 io1 irq);
$isdn->{driver} eq "hisax" and $a.="id=HiSax";
modules::set_options($isdn->{driver}, $a);
@@ -86,7 +86,7 @@ sub isdn_write_config_backend {
chmod 0600, $f;
}
foreach my $f ('isdn1B.conf', 'isdn2B.conf') {
- my $a=1;
+ my $a = 1;
substInFile {
s/EAZ =.*/EAZ = $isdn->{phone_in}/;
s/PHONE_OUT =.*/PHONE_OUT = $isdn->{phone_out}/;
@@ -167,7 +167,7 @@ sub isdn_ask_info {
my ($isdn, $netc) = @_;
my $f = "$ENV{SHARE_PATH}/ldetect-lst/isdn.db";
$f = "$prefix$f" if !-e $f;
- my $str= $in->ask_from_treelist(_("ISDN Configuration"), _("Select your provider.\nIf it isn't listed, choose Unlisted."),
+ my $str = $in->ask_from_treelist(_("ISDN Configuration"), _("Select your provider.\nIf it isn't listed, choose Unlisted."),
'|', ['Unlisted - edit manually',
read_providers_backend($f)], 'Unlisted - edit manually')
or return;
@@ -179,7 +179,7 @@ sub isdn_ask_info {
}
sub isdn_ask_protocol {
- my @toto=(
+ my @toto = (
{ description => $::expert ? _("Europe protocol (EDSS1)") : _("Europe protocol"),
protokol => 2},
{ description => $::expert ? _("Protocol for the rest of the world\nNo D-Channel (leased lines)") : _("Protocol for the rest of the world"),
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index f15797687..8aef0b3c8 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -1,4 +1,3 @@
-
package network::netconnect;
use diagnostics;
@@ -31,13 +30,13 @@ sub intro {
read_net_conf($prefix, $netcnx, $netc);
if (!$::isWizard) {
if (connected()) {
- $text=_("You are currently connected to internet.") . (-e $disconnect_file ? _("\nYou can disconnect or reconfigure your connection.") : _("\nYou can reconfigure your connection."));
- $connected=1;
+ $text = _("You are currently connected to internet.") . (-e $disconnect_file ? _("\nYou can disconnect or reconfigure your connection.") : _("\nYou can reconfigure your connection."));
+ $connected = 1;
} else {
- $text=_("You are not currently connected to Internet.") . (-e $connect_file ? _("\nYou can connect to Internet or reconfigure your connection.") : _("\nYou can reconfigure your connection."));
- $connected=0;
+ $text = _("You are not currently connected to Internet.") . (-e $connect_file ? _("\nYou can connect to Internet or reconfigure your connection.") : _("\nYou can reconfigure your connection."));
+ $connected = 0;
}
- my @l=(
+ my @l = (
!$connected && -e $connect_file ? { description => _("Connect"),
c => 1} : (),
$connected && -e $disconnect_file ? { description => _("Disconnect"),
@@ -62,11 +61,11 @@ sub intro {
sub detect {
my ($auto_detect, $net_install) = @_;
- my $isdn={};
+ my $isdn = {};
require network::isdn;
network::isdn->import;
isdn_detect_backend($isdn);
- $auto_detect->{isdn}{$_}=$isdn->{$_} foreach qw(description vendor id driver card_type type);
+ $auto_detect->{isdn}{$_} = $isdn->{$_} foreach qw(description vendor id driver card_type type);
$auto_detect->{isdn}{description} =~ s/.*\|//;
modules::load_category('network/main|usb');
@@ -76,20 +75,20 @@ sub detect {
require network::adsl;
network::adsl->import;
map {
- (!$net_install and adsl_detect($_->[0])) ? $auto_detect->{adsl}=$_->[0] : $auto_detect->{lan}{$_->[0]}=$_->[1] } @all_cards;
- my $modem={};
+ (!$net_install and adsl_detect($_->[0])) ? $auto_detect->{adsl} = $_->[0] : $auto_detect->{lan}{$_->[0]} = $_->[1] } @all_cards;
+ my $modem = {};
require network::modem;
network::modem->import;
modem_detect_backend($modem);
- $modem->{device} and $auto_detect->{modem}=$modem->{device};
+ $modem->{device} and $auto_detect->{modem} = $modem->{device};
}
sub pre_func {
my ($text) = @_;
$in->isa('interactive_gtk') or return;
- $::Wizard_no_previous=1;
+ $::Wizard_no_previous = 1;
if ($::isStandalone) {
- $::Wizard_splash=1;
+ $::Wizard_splash = 1;
require my_gtk;
my_gtk->import(qw(:wrappers));
my $W = my_gtk->new(_("Network Configuration Wizard"));
@@ -103,7 +102,7 @@ sub pre_func {
)
);
$W->main;
- $::Wizard_splash=0;
+ $::Wizard_splash = 0;
} else {
#- for i18n : %s is the type of connection of the list: (modem, isdn, adsl, cable, local network);
$in->ask_okcancel(_("Network Configuration Wizard"), _("\n\n\nWe are now going to configure the %s connection.\n\n\nPress OK to continue.",_($_[0])), 1);