package network::modem; # $Id$ use strict; use common; use any; use modules; use detect_devices; use network::network; use network::tools; sub get_user_home() { my $home; if ($ENV{USER} ne "root") { #- kdesu case my $user = find { $_->[0] eq $ENV{USER} } list_passwd(); $home = $user->[7] if $user; } $home ||= $ENV{HOME}; #- consolehelper case $home; } sub ppp_read_conf() { my $modem = {}; my %l = getVarsFromSh(get_user_home() . "/.kde/share/config/kppprc"); add2hash(\%l, { getVarsFromSh("$::prefix/usr/share/config/kppprc") }); $l{Authentication} = 4 if $l{Authentication} !~ /\d/; $modem->{$_} ||= $l{$_} foreach qw(Authentication Gateway IPAddr SubnetMask); $modem->{connection} ||= $l{Name}; $modem->{domain} ||= $l{Domain}; ($modem->{dns1}, $modem->{dns2}) = split(',', $l{DNS}); foreach (cat_("/etc/sysconfig/network-scripts/chat-ppp0")) { /.*ATDT([\d#*]*)/ and $modem->{phone} ||= $1; } foreach (cat_("/etc/sysconfig/network-scripts/ifcfg-ppp0")) { /NAME=(['"]?)(.*)\1/ and $modem->{login} ||= $2; /^METRIC=(.*)/ and $modem->{METRIC} = $1; } $modem->{login} ||= $l{Username}; my $secret = network::tools::read_secret_backend(); foreach (@$secret) { $modem->{passwd} ||= $_->{passwd} if $_->{login} eq $modem->{login}; } #my $secret = network::tools::read_secret_backend(); #my @cnx_list = map { $_->{server} } @$secret; $modem->{$_} ||= '' foreach qw(connection phone login passwd auth domain dns1 dns2); $modem->{auto_gateway} ||= defined $modem->{Gateway} && $modem->{Gateway} ne '0.0.0.0' ? N("Manual") : N("Automatic"); $modem->{auto_ip} ||= defined $modem->{IPAddr} && $modem->{IPAddr} ne '0.0.0.0' ? N("Manual") : N("Automatic"); $modem->{auto_dns} ||= $modem->{dns1} || $modem->{dns2} ? N("Manual") : N("Automatic"); $modem->{device} ||= '/dev/modem'; $modem; } #-----modem conf sub ppp_configure { my ($net, $in, $modem) = @_; $in->do_pkgs->install('ppp') if !$::testing; $in->do_pkgs->install('kdenetwork-kppp') if !$::testing && $in->do_pkgs->is_installed('kdebase'); if ($modem->{device} ne "/dev/modem") { my $dev = $modem->{device}; $dev =~ s!^/dev/!!; any::devfssymlinkf({ device => $dev }, 'modem'); } my %toreplace = map { $_ => $modem->{$_} } qw(Authentication AutoName connection dns1 dns2 domain IPAddr login passwd phone SubnetMask); $toreplace{phone} =~ s/[^\d#*]//g; if ($modem->{auto_dns} ne N("Automatic")) { $toreplace{dnsserver} = join ',', map { $modem->{$_} } "dns1", "dns2"; $toreplace{dnsserver} .= $toreplace{dnsserver} && ','; } #- using peerdns or dns1,dns2 avoid writing a /etc/resolv.conf file. $toreplace{peerdns} = "yes"; $toreplace{connection} ||= 'DialupConnection'; $toreplace{domain} ||= 'localdomain'; $toreplace{papname} = $toreplace{login} if member($modem->{Authentication}, 1, 3, 4); # handle static/dynamic settings: if ($modem->{auto_ip} eq N("Automatic")) { $toreplace{$_} = '0.0.0.0' foreach qw(IPAddr SubnetMask); } else { $toreplace{$_} = $modem->{$_} foreach qw(IPAddr SubnetMask); } $toreplace{Gateway} = $modem->{auto_gateway} eq N("Automatic") ? '0.0.0.0' : $modem->{Gateway}; $toreplace{METRIC} = defined($modem->{METRIC}) ? $modem->{METRIC} : network::tools::get_default_metric("modem"); $net->{ifcfg}{ppp0} = { DEVICE => "ppp0", ONBOOT => "no", USERCTL => "no", MODEMPORT => "/dev/modem", LINESPEED => "115200", PERSIST => "yes", DEFABORT => "yes", DEBUG => "yes", INITSTRING => "ATZ", DEFROUTE => "yes", HARDFLOWCTL => "yes", ESCAPECHARS => "no", PPPOPTIONS => "", PAPNAME => $toreplace{papname}, REMIP => "", NETMASK => "", IPADDR => "", MRU => "", MTU => "", DISCONNECTTIMEOUT => "5", RETRYTIMEOUT => "60", BOOTPROTO => "none", PEERDNS => $toreplace{peerdns}, METRIC => $toreplace{METRIC}, if_($modem->{auto_dns} ne N("Automatic"), map { qq(DNS$_=$toreplace{"dns$_"}\n) } grep { $toreplace{"dns$_"} } 1..2), }; #- build chat-ppp0. my @chat = <{special_command}) { push @chat, <{special_command}' END } push @chat, <{Authentication}, 0, 2)) { push @chat, <[0]} = $modem->{$_->[0]} || $_->[1] foreach [ 'Timeout', 60 ], [ 'UseLockFile', 1 ], [ 'Enter', 'CR' ], [ 'Volume', 0 ], [ 'BusyWait', 0 ], [ 'FlowControl', 'CRTSCTS' ], [ 'Speed', 115200 ]; output($modem->{kppprc} || "$::prefix/usr/share/config/kppprc", common::to_utf8(<{miscellaneous}); } 1;