From 780a0eb65b4634b0c9ccdccf97e807feb6bfbb0d Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Thu, 23 Sep 2004 02:44:54 +0000 Subject: (ppp_configure) add a specific udev script in addition to the udev rules file to create /dev/modem (ttySL0 is a symlink, udev won't be called when it's created) --- perl-install/network/modem.pm | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) (limited to 'perl-install/network') diff --git a/perl-install/network/modem.pm b/perl-install/network/modem.pm index 08a4c3d6a..0af9d9ffa 100644 --- a/perl-install/network/modem.pm +++ b/perl-install/network/modem.pm @@ -67,7 +67,16 @@ sub ppp_configure { $in->do_pkgs->install('ppp') if !$::testing; $in->do_pkgs->install('kdenetwork-kppp') if !$::testing && $in->do_pkgs->is_installed('kdebase'); - any::devfssymlinkf($modem, 'modem') if $modem->{device} ne "/dev/modem"; + if ($modem->{device} ne "/dev/modem") { + my $dev = $modem->{device}; + $dev =~ s!^/dev/!!; + any::devfssymlinkf({ device => $dev }, 'modem'); + #- add a specific udev script in addition to the udev rules file + #- (ttySL0 is a symlink, udev won't be called when it's created) + my $udev_conf = "$::prefix/etc/udev/conf.d/modem.conf"; + output_p($udev_conf, "ln -sf $dev /dev/modem\n"); + chmod 0755, $udev_conf; + } my %toreplace = map { $_ => $modem->{$_} } qw(Authentication AutoName connection dns1 dns2 domain IPAddr login passwd phone SubnetMask); $toreplace{phone} =~ s/[a-zA-Z]//g; -- cgit v1.2.1