===================================================================
RCS file: /cvs/mp3/bin/mixer.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- mp3/bin/mixer.pl 2011/06/14 18:04:58 1.4
+++ mp3/bin/mixer.pl 2011/06/14 18:05:23 1.5
@@ -1,5 +1,5 @@
#!/usr/bin/perl -Tw
-# $AFresh1$
+# $AFresh1: mixer.pl,v 1.4 2011/06/14 17:04:58 andrew Exp $
########################################################################
# Mixer.pl *** Changes volume on the MP3 player
#
@@ -18,63 +18,35 @@
my $paused_file = '/var/www/mp3/playlist/paused';
my @Vols = (
- 7,
- 15,
- 23,
- 31,
- 39,
- 47,
- 55,
- 63,
- 71,
- 79,
- 87,
- 95,
- 103,
- 111,
- 119,
- 127,
- 135,
- 143,
- 151,
- 159,
- 167,
- 175,
- 183,
- 191,
- 199,
- 207,
- 215,
- 223,
- 231,
- 239,
- 247,
- 255,
- );
+ 7, 15, 23, 31, 39, 47, 55, 63, 71, 79, 87, 95,
+ 103, 111, 119, 127, 135, 143, 151, 159, 167, 175, 183, 191,
+ 199, 207, 215, 223, 231, 239, 247, 255,
+);
-
my $Cur_Vol = `$mixerctl outputs.master`;
+
#»print "Cur_Vol $Cur_Vol
\n";
$Cur_Vol =~ /outputs.master=(\d+),(\d+)/i;
-$Cur_Vol = ($1 + $2) / 2;
+$Cur_Vol = ( $1 + $2 ) / 2;
my $pause_action = 'pause';
-if (-e $paused_file) {
+if ( -e $paused_file ) {
$pause_action = 'play';
}
print "Content-Type: text/html\n\n";
print "\n