home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 April / CMCD0404.ISO / Software / Complet / emovix / eMovix-0.9.0pre1_Setup.exe / {app} / src / movix / mixer.pl < prev    next >
Encoding:
Perl Script  |  2003-06-26  |  274 b   |  12 lines
  1. #!/usr/bin/perl
  2.  
  3. $card=0;
  4. # If the AUDIO variable is set to an integer, use that as the card number
  5. if ($ENV{"AUDIO"} =~ /^\d+$/) {
  6.   $card = $ENV{"AUDIO"};
  7. }
  8.  
  9. sleep(15);
  10. $command = -e "/proc/asound/card$card" ? "/usr/bin/alsamixer -c $card" : "/bin/sh";
  11. system "$command";
  12.