root/trunk/plagger/lib/Plagger/Plugin/Notify/Audio/iTunesWin32.pm

Revision 1397 (checked in by miyagawa, 14 years ago)
  • Notify::Audio now just works. MacOSX portes wanted!
  • Added Notify::Audio::iTunesWin32
Line 
1 package Plagger::Plugin::Notify::Audio::iTunesWin32;
2 use strict;
3 use base qw( Plagger::Plugin::Notify::Audio );
4
5 use Win32::OLE;
6
7 sub play {
8     my($self, $filename) = @_;
9     $filename or return $self->log(error => "filename is not set");
10    
11     my $itunes = Win32::OLE->new("iTunes.Application");
12     $itunes->PlayFile($filename);
13 }
14
15 1;
Note: See TracBrowser for help on using the browser.