=================================================================== RCS file: /cvs/mp3/bin/mixer.pl,v retrieving revision 1.2 retrieving revision 1.3 diff -u -r1.2 -r1.3 --- mp3/bin/mixer.pl 2006/08/12 01:14:53 1.2 +++ mp3/bin/mixer.pl 2007/02/08 20:04:03 1.3 @@ -1,5 +1,5 @@ #!/usr/bin/perl -Tw -# $RedRiver$ +# $RedRiver: mixer.pl,v 1.2 2006/08/12 00:14:53 andrew Exp $ ######################################################################## # Mixer.pl *** Changes volume on the MP3 player # @@ -61,12 +61,25 @@ print "Content-Type: text/html\n\n"; print "\n
\n\t "; -my $New_Vol = "$Cur_Vol_Left&$Cur_Vol_Right"; -if ($ENV{'QUERY_STRING'}) { - print ""; - $New_Vol = $ENV{'QUERY_STRING'}; +my ($prefix, $New_Vol_Left, $New_Vol_Right) = split /\&/, $ENV{'QUERY_STRING'}; +if ($New_Vol_Left || $New_Vol_Right) { + $New_Vol_Left =~ s/%(..)/pack("c",hex($1))/ge; + $New_Vol_Right =~ s/%(..)/pack("c",hex($1))/ge; + print ""; } +$New_Vol_Left ||= $Cur_Vol_Left; +$New_Vol_Right ||= $Cur_Vol_Right; + +if ($New_Vol_Left =~ /(\d+)/) { $New_Vol_Left = $1; } +if ($New_Vol_Right =~ /(\d+)/) { $New_Vol_Right = $1; } + +if ($prefix) { + $prefix =~ s/%(..)/pack("c",hex($1))/ge; +} else { + $prefix =''; +} + print <