drakx - Mageia Installer and base platform for many utilities

diff options

author	Mageia SVN-Git Migration <svn-git-migration@mageia.org>	2011-02-06 22:37:08 +0000
committer	Mageia SVN-Git Migration <svn-git-migration@mageia.org>	2011-02-06 22:37:08 +0000
commit	fd8bbba2f02b8bccd69e67c326fd320c0827941d (patch)
tree	ade69986b2f99e113c95009736399966d4a3d511 /perl-install/standalone/icons/harddrake2/cd.png
parent	368f416649ed34557702a946ec8c0cec2fd45294 (diff)
download	drakx-fd8bbba2f02b8bccd69e67c326fd320c0827941d.tar drakx-fd8bbba2f02b8bccd69e67c326fd320c0827941d.tar.gz drakx-fd8bbba2f02b8bccd69e67c326fd320c0827941d.tar.bz2 drakx-fd8bbba2f02b8bccd69e67c326fd320c0827941d.tar.xz drakx-fd8bbba2f02b8bccd69e67c326fd320c0827941d.zip

Synthesized commit during git-svn import combining previous Mandriva history with Mageia.

This commit consitsts of the following subversion commits: ------------------------------------------------------------------------ r431 | dmorgan | 2011-02-06 01:58:02 +0000 (Sun, 06 Feb 2011) | 1 line Add drakx structure on the SVN ------------------------------------------------------------------------ r432 | dmorgan | 2011-02-06 01:59:38 +0000 (Sun, 06 Feb 2011) | 1 line Import cleaned advertising ------------------------------------------------------------------------ r446 | dmorgan | 2011-02-06 22:37:08 +0000 (Sun, 06 Feb 2011) | 1 line Import Clean perl-install ------------------------------------------------------------------------ r448 | dmorgan | 2011-02-06 23:02:36 +0000 (Sun, 06 Feb 2011) | 1 line Add cleaned files ------------------------------------------------------------------------ r449 | dmorgan | 2011-02-06 23:03:52 +0000 (Sun, 06 Feb 2011) | 1 line Import cleaned kernel ------------------------------------------------------------------------ r450 | dmorgan | 2011-02-06 23:23:30 +0000 (Sun, 06 Feb 2011) | 1 line Import cleaned tools ------------------------------------------------------------------------ r451 | dmorgan | 2011-02-07 00:01:56 +0000 (Mon, 07 Feb 2011) | 1 line Import stage1 ------------------------------------------------------------------------ r473 | dmorgan | 2011-02-07 11:20:50 +0000 (Mon, 07 Feb 2011) | 1 line Import images ------------------------------------------------------------------------ r497 | ennael | 2011-02-09 21:02:06 +0000 (Wed, 09 Feb 2011) | 2 lines readd missing file ------------------------------------------------------------------------ r502 | pterjan | 2011-02-09 23:30:32 +0000 (Wed, 09 Feb 2011) | 1 line Import rescue ------------------------------------------------------------------------ r603 | ennael | 2011-02-24 13:32:54 +0000 (Thu, 24 Feb 2011) | 2 lines import cleaned rescue for Mageia ------------------------------------------------------------------------ r2061 | tv | 2011-10-20 20:32:19 +0100 (Thu, 20 Oct 2011) | 1 line import (cleaned) doc ------------------------------------------------------------------------

Diffstat (limited to 'perl-install/standalone/icons/harddrake2/cd.png')

-rw-r--r--

perl-install/standalone/icons/harddrake2/cd.png

bin

834 -> 350 bytes

1 files changed, 0 insertions, 0 deletions

package network::isdn; use network::isdn_consts; use common; use any; use modules; use run_program; use log; use network::tools; use vars qw(@ISA @EXPORT); use MDK::Common::Globals "network", qw($in $prefix); use MDK::Common::File; @ISA = qw(Exporter); @EXPORT = qw(isdn_write_config isdn_write_config_backend get_info_providers_backend isdn_ask_info isdn_ask_protocol isdn_ask isdn_detect isdn_detect_backend isdn_get_list isdn_get_info); sub configure { my ($netcnx, $netc) = @_; isdn_step_1: defined $netc->{autodetect}{isdn}{id} and goto intern_pci; $::isInstall and $in->set_help('configureNetworkISDN'); my $e = $in->ask_from_list_(N("Network Configuration Wizard"), N("What kind is your ISDN connection?"), [ N_("Internal ISDN card"), N_("External ISDN modem")] ) or return; if ($e =~ /card/) { intern_pci: $netc->{isdntype}='isdn_internal'; $netcnx->{isdn_internal}={}; $netcnx->{isdn_internal}{$_} = $netc->{autodetect}{isdn}{$_} foreach ('description', 'vendor', 'id', 'driver', 'card_type', 'type'); isdn_detect($netcnx->{isdn_internal}, $netc) or return; } else { $netc->{isdntype}='isdn_external'; $netcnx->{isdn_external}={}; $netcnx->{isdn_external}{device}=$netc->{autodetect}{modem}; $netcnx->{isdn_external}{special_command}='AT&F&O2B40'; require network::modem; network::modem::pppConfig($netcnx->{isdn_external}, $mouse, $netc) or goto isdn_step_1; } 1; } sub isdn_write_config { my ($isdn, $netc) = @_; isdn_write_config_step_1: my $e = $in->ask_from_list_(N("Network Configuration Wizard"), N("Which ISDN configuration do you prefer? * The Old configuration uses isdn4net. It contains powerful tools, but is tricky to configure, and not standard. * The New configuration is easier to understand, more standard, but with less tools. We recommand the light configuration. "), [ N_("New configuration (isdn-light)"), N_("Old configuration (isdn4net)")] ) or return; my ($rmpackage, $instpackage) = $e =~ /light/ ? ('isdn4net', 'isdn-light') : ('isdn-light', 'isdn4net'); if (!$::isStandalone) { require pkgs; my $p = pkgs::packageByName($in->{packages}, $rmpackage); $p && $p->flag_selected and pkgs::unselectPackage($in->{packages}, $p); } run_program::rooted($prefix, "rpm", "-e", $rmpackage); $in->do_pkgs->install($instpackage, if_($isdn->{speed} =~ /128/, 'ibod'), 'isdn4k-utils'); my $light = $e =~ /light/ ? 1 : 0; isdn_write_config_backend($isdn, $light, $netc); 1; } sub isdn_write_config_backend { my ($isdn, $light, $netc, $netcnx) = @_; defined $netcnx and $netc->{isdntype} = $netcnx->{type}; if ($light) { modules::mergein_conf("$prefix/etc/modules.conf"); if ($isdn->{id}) { isdn_detect_backend($isdn); } else { 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); } modules::add_alias("ippp0", $isdn->{driver}); $::isStandalone and modules::write_conf($prefix); foreach my $f ('ioptions1B', 'ioptions2B') { substInFile { s/^name .*\n//; $_ .= "name $isdn->{login}\n" if eof } "$prefix/etc/ppp/$f"; chmod 0600, $f; } foreach my $f ('isdn1B.conf', 'isdn2B.conf') { my $a = 1; substInFile { s/EAZ =.*/EAZ = $isdn->{phone_in}/; s/PHONE_OUT =.*/PHONE_OUT = $isdn->{phone_out}/; if (/NAME = ippp0/ .. /PPPBIND = 0/) { s/HUPTIMEOUT =.*/HUPTIMEOUT = $isdn->{huptimeout}/; } } "$prefix/etc/isdn/$f"; chmod 0600, $f; } my $bundle = $isdn->{speed} =~ /64/ ? "1B" : "2B"; symlinkf("isdn" . $bundle . ".conf", "$prefix/etc/isdn/isdnctrl.conf"); symlinkf("ioptions" . $bundle, "$prefix/etc/ppp/ioptions"); } else { my $f = "$prefix/etc/isdn/profile/link/myisp"; output ($f, qq( I4L_USERNAME="$isdn->{login}" I4L_SYSNAME="" I4L_LOCALMSN="$isdn->{phone_in}" I4L_REMOTE_OUT="$isdn->{phone_out}" I4L_DIALMODE="$isdn->{dialing_mode}" ) . if_($isdn->{speed} =~ /128/, 'SLAVE="ippp1" '));


context:
space:
mode: