/usr/local/CPAN/Plagger/Plagger/Plugin/Notify/Audio/iTunesWin32.pm

• package Plagger::Plugin::Notify::Audio::iTunesWin32
  • play
• EOF

package Plagger::Plugin::Notify::Audio::iTunesWin32;
use strict;
use base qw( Plagger::Plugin::Notify::Audio );

use Win32::OLE;

sub play {
    my($self, $filename, $length) = @_;
    $filename or return $self->log(error => "filename is not set");

    my $itunes = Win32::OLE->new("iTunes.Application");
    $itunes->PlayFile($filename);
    sleep $length;
}

1;