From 690c0c5602db9bf3ff954a9846a6766aa3a8e8cf Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Fri, 5 Dec 2003 16:07:43 +0000
Subject: titi fixes sound initscript for some alsa devices

---
 move/tree/alsa_default.pl | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100755 move/tree/alsa_default.pl

(limited to 'move/tree/alsa_default.pl')

diff --git a/move/tree/alsa_default.pl b/move/tree/alsa_default.pl
new file mode 100755
index 000000000..927c8c1d3
--- /dev/null
+++ b/move/tree/alsa_default.pl
@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+
+# state machine:
+if (/\s*control\./) {
+    ($min, $max) = (0, 0);
+} elsif (/\s*name '/) {
+    # skip masks
+    $ignore = /\s*name '.*(3D Control|mask|Exchange DAC|Output Jack)/;
+} elsif (!$ignore) {
+    if (/s*comment.range '(\d+) - (\d+)'/) {
+        ($min, $max) = ($1, $2);
+    } elsif (/s*value/) {
+        # enable switches (we should really blacklist sb live and the like):
+        s/(value\w*\S*)\s* false/\1 true/;
+        # set volume to 67%:
+        my $val = $max*0.6;
+        s/(value\w*\S*)\s* 0/\1 $val/
+    }
+}
-- 
cgit v1.2.1