#!/usr/bin/perl -w
use strict;
use IPC::Open2;
use Date::Format;

use constant SONG => '/Users/markstra/Music/iTunes/iTunes Music/The Donnas/Get Skintight/01 Skin Tight.mp3';

our $volume_script = <<EOS;
	tell application "System Preferences"
		activate
	end tell
	tell application "System Events"
		tell process "System Preferences"
			click menu item "Sound" of menu "View" of menu bar 1
			delay 2
			tell slider 1 of group 1 of window 1
				set value to 0.9
			end tell
		end tell
	end tell
EOS

my $time = shift;
die "No time" unless defined $time;
my ($hh, $mm);
if ($time =~ /^(\d+):(\d+)$/) {
	$hh = $1;
	$mm = $2
} else {
	die "Bad format. Use hh:mm";
}

my @lt = ();
for (;;) {
	@lt = localtime(time);
	my $now_hh = strftime('%H', @lt);
	my $now_mm = strftime('%M', @lt);
	if ($now_hh == $hh && $now_mm >= $mm) {
		#osascript($volume_script);
		system('open', SONG);
		last;
	}
	sleep 4;
}

sub osascript
{
	my $script = shift;
	my ($read, $write);
	my $pid = IPC::Open2::open2($read, $write, 'osascript');
	print $write $script;
	close $write;
	my $data = do { local $/; <$read> };
	close $read;
	waitpid $pid, 0;
	return $data;
}