POE::Component::NomadJukebox 0.02

POE::Component::NomadJukebox is an event-based contol of Nomad Jukebox players. SYNOPSIS use POE qw(COmponent::NomadJukebox); use Data::Dumper; POE::Session->create( inline_states => { _start => sub { POE::Component::NomadJukebox->create({ alias => njb }); }, njb_started => sub { $_[KERNEL]->post(njb => discover); }, njb_discover => sub { my ($kernel, $heap, $devlist) = @_[KERNEL, HEAP, ARG0]; unless (ref($devlist)) { print "Failed to find Nomad Jukebox, is it on?n"; $kernel->post(njb => shutdown); return; } # open the first device # pass the device id to open $kernel->post(njb => open => $devlist->[0]->{DEVID}); }, njb_opened => sub { my $kernel = $_[KERNEL]; $kernel->post(njb => disk_usage); $kernel->post(njb => track_list); }, njb_disk_usage => sub { my ($kernel, $heap, $info) = @_[KERNEL, HEAP, ARG0]; unless (ref($info) eq HASH) { print "Failed to get disk usagen"; return; } my $used = $info->{TOTAL} - $info->{FREE}; print "Total:$info->{TOTAL} bytes Free:$info->{FREE} bytes Used:$used bytesn"; $kernel->post(njb => shutdown); }, njb_track_list => sub { my ($kernel, $heap, $tracks) = @_[KERNEL, HEAP, ARG0]; $kernel->post(njb => shutdown); unless (ref($tracks) eq ARRAY) { print "Failed to get track listn"; return; } print "There are ".scalar(@$tracks)." tracksn"; print Data::Dumper->Dump([$tracks]); }, njb_closed => sub { print "Nomad Jukebox closedn"; }, }, ); $poe_kernel->run(); POE::Component::NomadJukebox - Event-based contol of Nomad Jukebox players using the libnjb api located at http://libnjb.sourceforge.net/ This module _requires_ libnjb and you may need to be root, or change your usb device access permissions..

Requirements:	No special requirements
Platforms:	Linux
Keyword:	Jukebox,  Kernel,  Libraries,  Njb,  Nomad,  Nomad Jukebox,  Nomadjukebox,  Poe,  Poecomponentnomadjukebox,  Post,  Print,  Programming
Users rating:	0/10