summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/harddrake/sound.pm42
1 files changed, 10 insertions, 32 deletions
diff --git a/perl-install/harddrake/sound.pm b/perl-install/harddrake/sound.pm
index b165ac677..e06a20c0f 100644
--- a/perl-install/harddrake/sound.pm
+++ b/perl-install/harddrake/sound.pm
@@ -181,8 +181,6 @@ our %oss2alsa =
my @blacklist = qw(cs46xx cs4281);
my $blacklisted = 0;
-my $config_file = "$::prefix/etc/sysconfig/pulseaudio";
-
sub is_user_switching_enabled() {
my $output = run_program::get_stdout('polkit-action', '--action',
'org.freedesktop.hal.device-access.sound');
@@ -203,12 +201,19 @@ sub set_user_switching {
sub is_pulseaudio_enabled() {
- my %h = getVarsFromSh($config_file);
- $h{PULSE_SERVER_TYPE} eq 'personal';
+ my $soundprofile = common::read_alternative('soundprofile');
+ $soundprofile =~ /pulse$/;
}
sub set_pulseaudio {
my ($val) = @_;
+
+ my $alterative = '/etc/sound/profiles/' . ($val ? 'pulse' : 'alsa');
+ common::set_alternative('soundprofile', $alterative);
+
+ # (cg) This config file will eventually be dropped, but it is still needed for now
+ # as several packages/patches depend on it.
+ my $config_file = "$::prefix/etc/sysconfig/pulseaudio";
$val = 'PULSE_SERVER_TYPE=' . ($val ? 'personal' : 'none') . "\n";
my $done;
substInFile {
@@ -221,26 +226,6 @@ sub set_pulseaudio {
}
-my $alsa_routing_config_file = "$::prefix/etc/alsa/pulse-default.conf";
-my $disabling = '#DRAKSOUND- ';
-
-sub is_pulseaudio_routing_enabled() {
- return -f $alsa_routing_config_file &&
- cat_($alsa_routing_config_file) !~ /$disabling/;
-}
-
-sub set_pulseaudio_routing {
- my ($val) = @_;
- substInFile {
- if ($val) {
- s/^(?:$disabling)*//g;
- } else {
- s/^/$disabling/ if !/^$disabling/;
- }
- } $alsa_routing_config_file;
-}
-
-
my $pa_defaultsconfig_file = "$::prefix/etc/pulse/default.pa";
sub is_pulseaudio_glitchfree_enabled() {
@@ -352,7 +337,6 @@ sub switch {
my %des = modules::category2modules_and_description('multimedia/sound');
my $is_pulseaudio_enabled = is_pulseaudio_enabled();
- my $is_pulseaudio_routing_enabled = is_pulseaudio_routing_enabled();
my $is_pulseaudio_glitchfree_enabled = is_pulseaudio_glitchfree_enabled();
my $is_5_1_in_pulseaudio_enabled = is_5_1_in_pulseaudio_enabled();
my $is_user_switching = is_user_switching_enabled();
@@ -361,12 +345,11 @@ sub switch {
my $write_config = sub {
set_pulseaudio($is_pulseaudio_enabled);
- set_pulseaudio_routing($is_pulseaudio_enabled && $is_pulseaudio_routing_enabled);
set_pulseaudio_glitchfree($is_pulseaudio_glitchfree_enabled);
set_PA_autospan($is_pulseaudio_enabled);
set_5_1_in_pulseaudio($is_5_1_in_pulseaudio_enabled);
set_user_switching($is_user_switching);
- if ($is_pulseaudio_routing_enabled) {
+ if ($is_pulseaudio_enabled) {
$in->do_pkgs->ensure_is_installed('alsa-plugins-pulseaudio', '/usr/'
. (arch() =~ /x86_64/ ? 'lib64' : 'lib')
. '/alsa-lib/libasound_module_pcm_pulse.so');
@@ -384,11 +367,6 @@ sub switch {
type => 'bool', val => \$is_pulseaudio_enabled,
},
{
- text => N("Automatic routing from ALSA to PulseAudio"),
- type => 'bool', val => \$is_pulseaudio_routing_enabled,
- disabled => sub { !$is_pulseaudio_enabled },
- },
- {
text => N("Enable 5.1 sound with Pulse Audio"),
type => 'bool', val => \$is_5_1_in_pulseaudio_enabled,
disabled => sub { !$is_pulseaudio_enabled },