#!/usr/bin/perl                                            
###########
# drmixer #
###########
print "All mixerctl on/off/enter\n";
# Master mute
print "---------------------------------------------------------------------\n";
system("mixerctl outputs.master.mute");
print "mixerctl outputs.master.mute on/off/enter -> ";
$modem = <STDIN>;
if ($modem eq "on\n" or $modem eq "off\n") {
	system("mixerctl outputs.master.mute=$modem");
}
print "---------------------------------------------------------------------\n";
# Headphone mute
system("mixerctl outputs.hp.mute");
print "mixerctl outputs.hp.mute on/off/enter -> ";
$modehp = <STDIN>;
if ($modehp eq "on\n" or $modehp eq "off\n") {
	system("mixerctl outputs.hp.mute=$modehp");
}
print "---------------------------------------------------------------------\n";
# Line mute
system("mixerctl inputs.line.mute");
print "mixerctl inputs.line.mute on/off/enter -> ";
$model = <STDIN>;
if ($model eq "on\n" or $model eq "off\n") {
	system("mixerctl inputs.line.mute=$model");
}
print "---------------------------------------------------------------------\n";
# Microphone mute
system("mixerctl inputs.mic.mute");
print "mixerctl inputs.mic.mute on/off/enter -> ";
$modemic = <STDIN>;
if ($modemic eq "on\n" or $modemic eq "off\n") {
	system("mixerctl inputs.mic.mute=$modemic");
}
# CD/DVD mute
print "---------------------------------------------------------------------\n";
system("mixerctl inputs.cd.mute");
print "mixerctl inputs.cd.mute on/off/enter -> ";
$modecddvd = <STDIN>;
if ($modecddvd eq "on\n" or  $modecddvd eq "off\n") {
	system("mixerctl inputs.cd.mute=$modecddvd");
}
# Menu smoothy graduation 
print "---------------------------------------------------------------------\n";
print "Volume all smoothy\n";
print "Volume = 131, 131-159, 159-209, 209-255, *131-255 graduation\n";
print "\n";
print "Master Volume = 1, 2, 3, 4, *5 graduation master\n";
print "Headphone Volume = 6, 7, 8, 9, *10 graduation headphone\n";
print "Line Volume = 11, 12, 13, 14, *15 graduation line\n";
print "Microphone Volume = 16, 17, 18, 19, *20 graduation microphone\n";
print "CD/DVD Volume = 21, 22, 23, 24, *25 graduation CD/DVD\n";
print "---------------------------------------------------------------------\n";
# Volume master
while (1) {
	print "Enter : ";
	$vm = <STDIN>;
	if ($vm == "1") {
		$drv = 131,131;
		print "Volume 1 : ";
		system("mixerctl outputs.master=$drv,$drv");
	}
	if ($vm == "2") {
		for ($drv = 135; $drv <= 151; $drv=$drv+7) {
			print "Volume 2 : ";
			system("mixerctl outputs.master=$drv,$drv");
			}
	}
	if ($vm == "3") {
		for ($drv = 151;  $drv <= 207; $drv=$drv+8) {
			print "Volume 3 : ";
			system("mixerctl outputs.master=$drv,$drv");
			}
	}
	if ($vm == "4") {
		for ($drv = 207; $drv <= 255; $drv++) {
			print "Volume 4 : ";
			system("mixerctl outputs.master=$drv,$drv");
			}
	}
	if ($vm == "5") {
	print "Outputs master ...\n";
	$drm = 1;
	while ($drm) {
		for ($drv = 131; $drv <= 255; $drv=$drv+26) {
			$vm = <STDIN>;
			system("mixerctl outputs.master=$drv,$drv");
			}
		for ($drv = 255; $drv >= 131; $drv=$drv-26) {
			$vm = <STDIN>;
			system("mixerctl outputs.master=$drv,$drv");	
			}
		}
	}
# Volume headphone
	if ($vm == "6") {
		$drv = 0,0;
		print "Volume 1 : ";
		system("mixerctl outputs.hp=$drv,$drv");
	}
	if ($vm == "7") {
		for ($drv = 0; $drv <= 151; $drv=$drv+4) {
			print "Volume 2 : ";
			system("mixerctl outputs.hp=$drv,$drv");
			}
	}	 
	if ($vm == "8") {
		for ($drv = 151; $drv <= 207; $drv++) {
			print "Volume 3 : ";
			system("mixerctl outputs.hp=$drv,$drv");
			}
	}
	if ($vm == "9") {
		for ($drv = 207; $drv <= 255; $drv=$drv+4) {
			print "Volume 4 : ";
			system("mixerctl outputs.hp=$drv,$drv");
			}
	}
	if ($vm == "10") {
		print "Outputs heaphone enter...\n";
		$g = 1;
		while ($g) {
		for ($drv = 131; $drv <= 255; $drv++) {
			$v = <STDIN>;
			system("mixerctl outputs.hp=$drv,$drv");
			}
		for ($drv = 255; $drv >= 131; $drv--) {
			$v = <STDIN>;
			system("mixerctl outputs.hp=$drv,$drv");
			}
	}
}
# Volume line
	if ($vm == "11") {
		$drl = 131,131;
		print "Volume 1 : ";
		system("mixerctl inputs.line=$drl,$drl");
	
	}
	if ($vm == "12") {
		for ($drl = 131; $drl <= 151; $drl++) {
			print "Volume 2 : ";
			system("mixerctl inputs.line=$drl,$drl");
			}
	}
	if ($vm == "13") {
		for ($drl = 151; $drl <= 207; $drl++) {
			print "Volume 3 : ";
			system("mixerctl inputs.line=$drl,$drl")
			}
	}
	if ($vm == "14") {
		for ($drl = 207; $drl <= 255; $drl++) {
			print "Volume 3 ";
			system("mixerctl inputs.line=$drl,$drl")
			}	
	}
	if ($vm == "15") {
		print "Inputs line enter...\n";
		$g = 1;
		while ($g) {
		$v = 0;
		for ($drl = 131; $drl <= 255; $drl++) {
			$v = <STDIN>;
			system("mixerctl inputs.line=$drl,$drl");
			}
		for ($drl = 255; $drl >= 131; $drl--) {
			$v = <STDIN>;
			system("mixerctl inputs.line=$drl,$drl");	
			}
		}
	}

# Volume microphone
	if ($vm == "16") {
		$drmc = 131,131;
		print "Volume 1 : ";
		system("mixerctl inputs.mic=$drmc");
	}
	if ($vm == "17") {
		for ($drmc = 131; $drmc <= 151; $drmc++) {
			print "Volume 2 : ";
			system("mixerctl inputs.mic=$drmc");
			}
	}
	if ($vm == "18") {
		for ($drmc = 151; $drmc <= 207; $drmc++) {
			print "Volume 3 : ";
			system("mixerctl inputs.mic=$drmc");
			}
	}
	if ($vm == "19") {
		for ($drmc = 207; $drmc <= 255; $drmc++) {
			print "Volume 4 : ";
			system("mixerctl inputs.mic=$drmc");
			}
	}
	if ($vm == "20") {
		print "Inputs microphone ...\n";
		$drmc = 1;
		while ($drmc) {
			for ($drmc = 131 ; $drmc <= 255; $drmc++) {
				$drv = <STDIN>;
				system("mixerctl inputs.mic=$drmc");
	        		}
			for ($drmc = 255; $drmc >= 131; $drmc--) {
				$drv = <STDIN>;
				system("mixerctl inputs.mic=$drmc");
				}
		}
	}
# Volume CD/DVD
	if ($vm == "21") {
		$cddvd = 131,131;
		print "Volume 1 : ";
		system("mixerctl inputs.cd=$cddvd,$cddvd");
	}
	if ($vm == "22") {
		for ($cddvd = 0; $cddvd <= 151; $cddvd++) {
			print "Volume 2 : ";
			system("mixerctl inputs.cd=$cddvd,$cddvd");
			}
	}
	if ($vm == "23") {
		for ($cddvd = 151; $cddvd <= 207; $cddvd++) {
			print "Volume 3 : ";
			system("mixerctl inputs.cd=$cddvd,$cddvd");
			}
	}
	if ($vm == "24") {
		for ($cddvd = 207; $cddvd <= 255; $cddvd++) {
			print "Volume 4 : ";
			system("mixerctl inputs.cd=$cddvd,$cddvd");
			}
			
   	}
	if ($vm == "25") {
		print "Inputs CD/DVD ... \n";
		$cddvd = 1;
		while ($cddvd) {
		for ($cddvd = 0; $cddvd <= 255; $cddvd++) {
			$vm = <STDIN>;
			system("mixerctl inputs.cd=$cddvd,$cddvd");
			}
		for ($cddvd = 255; $cddvd >= 131; $cddvd--) {
			$vm = <STDIN>;
			system("mixerctl inputs.cd=$cddvd,$cddvd");
			}
		}
	}	
}