#!/usr/bin/perl -w
################
# mixer  1 2 3 #
################

# output headphones mute
print "mixerctl outputs.hp.mute on/off -> ";
$audio = <STDIN>;
if ($audio eq "off\n" || $audio eq "on\n") {
	system("mixerctl outputs.hp.mute=$audio");
}

# inputs line mute
print "mixerctl inputs.line.mute on/off -> ";
$audio = <STDIN>;
if ($audio eq "off\n" || $audio eq "on\n") {
	system("mixerctl inputs.line.mute=$audio");
}

# inputs micro
print "mixerctl inputs.mic.mute on/off -> ";
$audio = <STDIN>;
if ($audio eq "off\n" || $audio eq "on\n") {
	system("mixerctl inputs.mic.mute=$audio");
}

# volume headphones
print "\n";
print " Volume headphones\n";
print " 1 SOFT\n";
print " 2 MIDDLE\n";
print " 3 HARD\n";
print " ENTER : ";
$gradev=<STDIN>;
if ($gradev eq "1\n") {
	system("mixerctl outputs.hp=131");
}
if ($gradev eq "2\n") {
	system("mixerctl outputs.hp=159");
}	
if ($gradev eq "3\n") {
	system("mixerctl outputs.hp=255");
}

# volume line
print "\n";
print " Volume line\n";
print " 1 SOFT\n";
print " 2 MIDDLE\n";
print " 3 HARD\n";
print " ENTER : ";
$gradel=<STDIN>;
if ($gradel eq "1\n") {
	system("mixerctl inputs.line=131");
}
if ($gradel eq "2\n") {
	system("mixerctl inputs.line=159");
}
if ($gradel eq "3\n") {
	system("mixerctl inputs.line=255");
}

# volume micro
print "\n";
print " Volume micro\n";
print " 1 SOFT\n";
print " 2 MIDDLE\n";
print " 3 HARD\n";
print " ENTER : ";
$gradem=<STDIN>;
if ($gradem eq "1\n") {
	system("mixerctl inputs.mic=131");
}
if ($gradem eq "2\n") {
	system("mixerctl inputs.mic=159");
}
if ($gradem eq "3\n") {
	system("mixerctl inputs.mic=255");
}