volumebar.pl

#!/usr/bin/perl
use strict;

my $curvolume = `amixer -c 0 get Master`;
my $command;

if ($curvolume =~ m/\[(\d\d)%\]/) {
        $curvolume = $1;
}

system("wmiir create /bar/volume");
open EVENT,"< /mnt/wmii/event";
while(1){
LINE:   while(<EVENT>) {
                if($_ eq "BarClick volume 4\n") {
                        $curvolume++;
                        system("amixer -c 0 set Master $curvolume% 2>&1 > /dev/null");
                        last LINE;
                }
                if($_ eq "BarClick volume 5\n") {
                        $curvolume--;
                        system("amixer -c 0 set Master $curvolume% 2>&1 > /dev/null");
                        last LINE;
                }
        }
        system("echo -n $curvolume% | wmiir write /bar/volume/data");
}