summaryrefslogtreecommitdiffstats
path: root/perl-install/network
Commit message (Collapse)AuthorAgeFilesLines
* - show pcmcia ethernet cards in listDamien Chaumette2002-09-091-0/+11
|
* - check DNS & Gateway IPDamien Chaumette2002-09-091-1/+1
|
* - fix typoDamien Chaumette2002-09-061-1/+1
|
* - add new screen for ISND detected device. Still have to get back in Expert ↵Damien Chaumette2002-09-061-1/+9
| | | | mode to choose by hand.
* *** empty log message ***Damien Chaumette2002-09-051-3/+0
|
* - little fixDamien Chaumette2002-09-051-4/+0
|
* - Remove ECI ADSL modem from menu until we have an agreementDamien Chaumette2002-09-051-1/+5
|
* allow http://xxx for ftp_proxyPascal Rigaux2002-09-051-1/+1
|
* - fix drakconnect broken modem detectionDamien Chaumette2002-09-051-2/+2
|
* - correct typos in orinoco orinoco_cs modulesDaouda Lo2002-09-041-1/+1
|
* *** empty log message ***Damien Chaumette2002-09-031-2/+2
|
* - network restart previous bug fixedDamien Chaumette2002-09-021-2/+2
|
* - fix previous behavior in Expert mode... (100% lazy loop free this time)Damien Chaumette2002-09-022-6/+7
|
* - replace tinyfirewall by drakfirewallDaouda Lo2002-09-022-4/+4
|
* fix looping on network step when configuring ethernet cardGuillaume Cottenceau2002-08-301-1/+1
|
* - dns settings for pppoeDaouda Lo2002-08-291-2/+2
|
* - set DNS in adsl config.Daouda Lo2002-08-291-0/+2
|
* - update speedtouch linkDaouda Lo2002-08-291-1/+1
|
* better error messagePascal Rigaux2002-08-281-1/+1
|
* *** empty log message ***Damien Chaumette2002-08-272-3/+3
|
* - new 'previous' button bug fixDamien Chaumette2002-08-271-2/+2
|
* - fix previous button behavior in Proxies configurationDamien Chaumette2002-08-261-2/+1
|
* ensure net_interface is found in any casePascal Rigaux2002-08-261-1/+1
|
* florin fixes for multiple NIC boxesThierry Vignaud2002-08-231-4/+4
|
* (read_raw_net_conf): new function to access /etc/sysconfig/drakconnect and ↵Pascal Rigaux2002-08-231-3/+12
| | | | /etc/sysconfig/drakconnect.$type ensuring migration from /etc/sysconfig/draknet and /etc/sysconfig/draknet.$type
* remove debug codePascal Rigaux2002-08-231-1/+0
|
* make perl_checker happyPascal Rigaux2002-08-221-0/+1
|
* use $::prefix to access shorewall config filesPascal Rigaux2002-08-221-2/+2
|
* - add network::shorewallPascal Rigaux2002-08-223-0/+321
| | | | | - add tinyfirewall during install
* fix 'previous' button strange behaviorDamien Chaumette2002-08-221-1/+2
|
* made strings translatable, and a typo correctionPablo Saratxaga2002-08-211-1/+1
|
* o ECI adsl config fixDamien Chaumette2002-08-201-1/+1
|
* o remove old /etc/hosts entries for the hostname before adding new oneDamien Chaumette2002-08-191-1/+6
|
* nothing useful for the momentPascal Rigaux2002-08-131-11/+0
|
* use ensure_is_installedPascal Rigaux2002-08-134-16/+3
|
* backend davfs (WebDAV) supportPascal Rigaux2002-08-131-0/+11
|
* - fix reading previous keyboard config on upgrade (for displaying in summary)Pascal Rigaux2002-08-121-1/+1
| | | | | | - ensure keyboard and mouse configuration are not overwritten if not explictly modified on upgrade - propagate pci=xxx at install to bootloader (since "pci=bios,biosirq" is needed on some box, see http://islay.dyndns.org/taz/index.html for more)
* fix yet another bug regarding credentials during installPascal Rigaux2002-08-111-1/+1
|
* (get_profiles): get rid of "glob", clean it upPascal Rigaux2002-08-071-8/+1
|
* nobody pass the second argument ofThierry Vignaud2002-08-061-3/+3
| | | | | network::modem::modem_detect_backend() so let simplify it
* - set the vpi vci correctly according to selected country.Daouda Lo2002-08-061-1/+1
|
* s/__END__/1;Thierry Vignaud2002-08-051-1/+1
|
* kill "wonderful perl"Thierry Vignaud2002-08-051-4/+1
|
* - First ECI adsl support stepDamien Chaumette2002-08-012-5/+49
|
* make perl_checker happy again (replacing "{xx}->{yy}" by "{xx}{yy}")Pascal Rigaux2002-07-313-13/+13
|
* replace "$foo" with $fooPascal Rigaux2002-07-314-5/+5
|
* - have is_ip return the 4 parts of the ip addressPascal Rigaux2002-07-311-12/+8
| | | | | - cleanup
* make new perl_checker happyPascal Rigaux2002-07-315-39/+38
|
* make new perl_checker happy (and that's not easy!)Pascal Rigaux2002-07-318-77/+77
|
* - use $::prefix for reading/writing (it was missing for writing)Pascal Rigaux2002-07-291-3/+3
| | | | | | - use output_p so that /etc/samba directory is created if needed (fix bug reported by David Eastcott)
generated by cgit v1.2.1 (git 2.21.0) at 2024-07-11 04:48:07 +0000
__("Keep the current IP configuration"), __("Reconfigure network now"), __("Don't set up networking"), ); $r = $o->ask_from_list_(_("Network Configuration"), _("LAN networking has already been configured. Do you want to:"), [ @l ]); $r ||= "Don't"; } } else { $o->ask_yesorno(_("Network Configuration"), _("Do you want to configure LAN (not dialup) networking for your installed system?")) or $r = "Don't"; } if ($r =~ /^Don't/) { $o->{netc}{NETWORKING} = "false"; } elsif ($r !~ /^Keep/) { $o->setup_thiskind('net', 1, 1); my @l = detect_devices::getNet() or die _("no network card found"); my $last; foreach ($::expert ? @l : $l[0]) { my $intf = network::findIntf($o->{intf} ||= [], $_); add2hash($intf, $last); add2hash($intf, { NETMASK => '255.255.255.0' }); $o->configureNetworkIntf($intf); $last = $intf; } # { # my $wait = $o->wait_message(_("Hostname"), _("Determining host name and domain...")); # network::guessHostname($o->{prefix}, $o->{netc}, $o->{intf}); # } $o->configureNetworkNet($o->{netc} ||= {}, @l); } install_steps::configureNetwork($o); } sub timeConfig { my ($o, $f) = @_; $o->{timezone}{GMT} = $o->ask_yesorno('', _("Is your hardware clock set to GMT?"), $o->{timezone}{GMT}); $o->{timezone}{timezone} = $o->ask_from_list('', _("In which timezone are you"), [ install_any::getTimeZones() ], $o->{timezone}{timezone}); install_steps::timeConfig($o,$f); } sub printerConfig($) { my ($o) = @_; $o->{printer}{want} = $o->ask_yesorno(_("Printer"), _("Would you like to configure a printer?"), $o->{printer}{want}); return if !$o->{printer}{want}; $o->{printer}{complete} = 0; if ($::expert) { #std info #Don't wait, if the user enter something, you must remember it $o->ask_from_entries_ref(_("Standard Printer Options"), _("Every print queue (which print jobs are directed to) needs a name (often lp) and a spool directory associated with it. What name and directory should be used for this queue?"), [_("Name of queue:"), _("Spool directory:")], [\$o->{printer}{QUEUE}, \$o->{printer}{SPOOLDIR}], changed => sub { $o->{printer}{SPOOLDIR} = "$printer::spooldir$o->{printer}{QUEUE}" unless $_[0]; }, ); } $o->{printer}{str_type} = $o->ask_from_list_(_("Select Printer Connection"), _("How is the printer connected?"), [keys %printer::printer_type], ${$o->{printer}}{str_type}, ); $o->{printer}{TYPE} = $printer::printer_type{$o->{printer}{str_type}}; if ($o->{printer}{TYPE} eq "LOCAL") { eval { modules::load("lp"); }; my @port = (); foreach ("lp0", "lp1", "lp2") { local *LP; push @port, "/dev/$_" if open LP, ">/dev/$_" } eval { modules::unload("lp") }; my $string = _("What device is your printer connected to (note that /dev/lp0 is equivalent to LPT1:)?\n"); $string .= _("I detect :"); $string .= join(", ", @port); $o->{printer}{DEVICE} = $port[0] if $port[0]; return if !$o->ask_from_entries_ref(_("Local Printer Device"), $string, [_("Printer Device:")], [\$o->{printer}{DEVICE}], ); #TAKE A GOODDEFAULT TODO } elsif ($o->{printer}{TYPE} eq "REMOTE") { return if !$o->ask_from_entries_ref(_("Remote lpd Printer Options"), _("To use a remote lpd print queue, you need to supply the hostname of the printer server and the queue name on that server which jobs should be placed in."), [_("Remote hostname:"), _("Remote queue:")], [\$o->{printer}{REMOTEHOST}, \$o->{printer}{REMOTEQUEUE}], ); } elsif ($o->{printer}{TYPE} eq "SMB") { return if !$o->ask_from_entries_ref(_("SMB/Windows 95/NT Printer Options"), _("To print to a SMB printer, you need to provide the SMB host name (this is not always the same as the machines TCP/IP hostname) and possibly the IP address of the print server, as well as the share name for the printer you wish to access and any applicable user name, password, and workgroup information."), [_("SMB server host:"), _("SMB server IP:"), _("Share name:"), _("User name:"), _("Password:"), _("Workgroup:")], [\$o->{printer}{SMBHOST}, \$o->{printer}{SMBHOSTIP}, \$o->{printer}{SMBSHARE}, \$o->{printer}{SMBUSER}, \$o->{printer}{SMBPASSWD}, \$o->{printer}{SMBWORKGROUP} ] ); } else {#($o->{printer}{TYPE} eq "NCP") { return if !$o->ask_from_entries_ref(_("NetWare Printer Options"), _("To print to a NetWare printer, you need to provide the NetWare print server name (this is not always the same as the machines TCP/IP hostname) as well as the print queue name for the printer you wish to access and any applicable user name and password."), [_("Printer Server:"), _("Print Queue Name:"), _("User name:"), _("Password:")], [\$o->{printer}{NCPHOST}, \$o->{printer}{NCPQUEUE}, \$o->{printer}{NCPUSER}, \$o->{printer}{NCPPASSWD}], ); } unless (($::testing)) { printer::set_prefix($o->{prefix}); pkgs::select($o->{packages}, $o->{packages}{'rhs-printfilters'}); $o->installPackages($o->{packages}); } printer::read_printer_db(); my @entries_db_short = sort keys %printer::thedb; my @entry_db_description = map { $printer::thedb{$_}{DESCR} } @entries_db_short; my %descr_to_db = map { $printer::thedb{$_}{DESCR}, $_ } @entries_db_short; my %db_to_descr = reverse %descr_to_db; $o->{printer}{DBENTRY} = $descr_to_db{ $o->ask_from_list_(_("Configure Printer"), _("What type of printer do you have?"), [@entry_db_description], $db_to_descr{$o->{printer}{DBENTRY}}, ) }; my %db_entry = %{$printer::thedb{$o->{printer}{DBENTRY}}}; #paper size conf $o->{printer}{PAPERSIZE} = $o->ask_from_list_(_("Paper Size"), _("Paper Size"), \@printer::papersize_type, $o->{printer}{PAPERSIZE} ); #resolution size conf my @list_res = @{$db_entry{RESOLUTION}}; my @res = map { "${$_}{XDPI}x${$_}{YDPI}" } @list_res; if (@list_res) { $o->{printer}{RESOLUTION} = $o->ask_from_list_(_("Resolution"), _("Resolution"), \@res, $o->{printer}{RESOLUTION}, ); } else { $o->{printer}{RESOLUTION} = "Default"; } $o->{printer}{CRLF} = $db_entry{DESCR} =~ /HP/; $o->{printer}{CRLF}= $o->ask_yesorno(_("CRLF"), _("Fix stair-stepping of text?"), $o->{printer}{CRLF}); #color_depth my @list_col = @{$db_entry{BITSPERPIXEL}}; my @col = map { "$_->{DEPTH} $_->{DESCR}" } @list_col; my %col_to_depth = map { ("$_->{DEPTH} $_->{DESCR}", $_->{DEPTH}) } @list_col; my %depth_to_col = reverse %col_to_depth; if (@list_col) { my $is_uniprint = $db_entry{GSDRIVER} eq "uniprint"; if ($is_uniprint) { $o->{printer}{BITSPERPIXEL} = $col_to_depth{$o->ask_from_list_ (_("Configure Uniprint Driver"), _("You may now configure the uniprint options for this printer."), \@col, $depth_to_col{$o->{printer}{BITSPERPIXEL}}, )}; } else { $o->{printer}{BITSPERPIXEL} = $col_to_depth{$o->ask_from_list_ (_("Configure Color Depth"), _("You may now configure the color options for this printer."), \@col, $depth_to_col{$o->{printer}{BITSPERPIXEL}}, )}; } } else { $o->{printer}{BITSPERPIXEL} = "Default"; } $o->{printer}{complete} = 1; install_steps::printerConfig($o); } sub createBootdisk { my ($o, $first_time) = @_; my @l = detect_devices::floppies(); if ($first_time || @l == 1) { $o->ask_yesorno('', _("A custom bootdisk provides a way of booting into your Linux system without depending on the normal bootloader. This is useful if you don't want to install lilo on your system, or another operating system removes lilo, or lilo doesn't work with your hardware configuration. A custom bootdisk can also be used with the Mandrake rescue image, making it much easier to recover from severe system failures. Would you like to create a bootdisk for your system?"), !$o->{mkbootdisk}) or return; } else { @l or die _("Sorry, no floppy drive available"); $o->{mkbootdisk} = $o->ask_from_list('', _("Choose the floppy drive you want to use to make the bootdisk"), \@l, $o->{mkbootdisk}); } $o->ask_warn('', _("Insert a floppy in drive %s", $o->{mkbootdisk})); my $w = $o->wait_message('', _("Creating bootdisk")); install_steps::createBootdisk($o); } sub setupBootloader($) { my ($o) = @_; my @l = (__("First sector of drive"), __("First sector of boot partition")); $o->{bootloader}{onmbr} = $o->ask_from_list_(_("Lilo Installation"), _("Where do you want to install the bootloader?"), \@l, $l[!$o->{bootloader}{onmbr}] ) eq $l[0]; install_steps::setupBootloader($o); } sub exitInstall { my ($o) = @_; $o->ask_warn('', _("Congratulations, installation is complete. Remove the boot media and press return to reboot. For information on fixes which are available for this release of Linux Mandrake, consult the Errata available from http://www.linux-mandrake.com/. Information on configuring your system is available in the post install chapter of the Official Linux Mandrake User's Guide.")); } sub loadModule { my ($o, $type) = @_; my @options; my $l = $o->ask_from_list('', _("What %s card have you?", $type), [ modules::text_of_type($type) ]) or return; my $m = modules::text2driver($l); if ($o->ask_from_list('', _("In some cases, the %s driver needs to have extra information to work properly, although it normally works fine without. Would you like to specify extra options for it or allow the driver to probe your machine for the information it needs? Occasionally, probing will hang a computer, but it should not cause any damage.", $l), [ __("Autoprobe"), __("Specify options") ], "Autoprobe") ne "Autoprobe") { @options = split ' ', $o->ask_from_entry('', _("Here must give the different options for the module %s. Options are in format ``name=value name2=value2 ...''. For example you can have ``io=0x300 irq=7''", $l), _("Module options:"), ); } modules::load($m, $type, @options); $l, $m; } sub load_thiskind { my ($o, $type) = @_; my $w; modules::load_thiskind($type, sub { $w = $o->wait_message('', [ _("Installing driver for %s card %s", $type, $_->[0]), $o->{installClass} ne "beginner" ? _("(module %s)", $_->[1]) : () ]); }); } sub setup_thiskind { my ($o, $type, $auto, $at_least_one) = @_; my @l = $o->load_thiskind($type); return if $auto && (@l || !$at_least_one); while (1) { @l ? $o->ask_yesorno('', [ _("Found %s %s interfaces", join(", ", map { $_->[0] } @l), $type), _("Do you have another one?") ], "No") : $o->ask_yesorno('', _("Do you have an %s interface?", $type), "No") or return; push @l, [ $o->loadModule($type) ]; } }
generated by cgit v1.2.1 (git 2.21.0) at 2024-07-11 04:48:02 +0000