POE::Component::NomadJukebox POE::Component::NomadJukebox is an event-based contol of Nomad Jukebox players.
Download

POE::Component::NomadJukebox Ranking & Summary

POE::Component::NomadJukebox Tags

jukebox Perl module Nomad nomad jukebox event-based contol

POE::Component::NomadJukebox Description

POE::Component::NomadJukebox is an event-based contol of Nomad Jukebox players. 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 { $_->post(njb => 'discover'); }, njb_discover => sub { my ($kernel, $heap, $devlist) = @_; 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->->{DEVID}); }, njb_opened => sub { my $kernel = $_; $kernel->post(njb => 'disk_usage'); $kernel->post(njb => 'track_list'); }, njb_disk_usage => sub { my ($kernel, $heap, $info) = @_; 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->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(); }, 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 module _requires_ libnjb and you may need to be root, or change your usb device access permissions. Requirements: · Perl

POE::Component::NomadJukebox Related Software