1857 lines
50 KiB
Perl
1857 lines
50 KiB
Perl
|
#!/usr/bin/perl -w
|
||
|
|
|
||
|
|
package iap::decode;
|
||
|
|
|
||
|
|
use Device::iPod;
|
||
|
|
use Data::Dumper;
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
sub new {
|
||
|
|
my $class = shift;
|
||
|
|
my $self = {-state => {}};
|
||
|
|
|
||
|
|
return bless($self, $class);
|
||
|
|
}
|
||
|
|
|
||
|
|
sub display {
|
||
|
|
my $self = shift;
|
||
|
|
my $lingo = shift;
|
||
|
|
my $command = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $name;
|
||
|
|
my $handler;
|
||
|
|
my $r;
|
||
|
|
|
||
|
|
|
||
|
|
$name = sprintf("_h_%02x_%04x", $lingo, $command);
|
||
|
|
$handler = $self->can($name);
|
||
|
|
if ($handler) {
|
||
|
|
unless(exists($self->{-state}->{$name})) {
|
||
|
|
$self->{-state}->{$name} = {};
|
||
|
|
}
|
||
|
|
$r = $handler->($self, $data, $self->{-state}->{$name});
|
||
|
|
} else {
|
||
|
|
$r = $self->generic($lingo, $command, $data);
|
||
|
|
}
|
||
|
|
|
||
|
|
printf("\n");
|
||
|
|
return $r;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub generic {
|
||
|
|
my $self = shift;
|
||
|
|
my $lingo = shift;
|
||
|
|
my $command = shift;
|
||
|
|
my $data = shift;
|
||
|
|
|
||
|
|
printf("Unknown command\n");
|
||
|
|
printf(" Lingo: 0x%02x\n", $lingo);
|
||
|
|
printf(" Command 0x%04x\n", $command);
|
||
|
|
printf(" Data: %s\n", Device::iPod->_hexstring($data));
|
||
|
|
|
||
|
|
exit(1);
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_00_0001 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my $lingo = shift;
|
||
|
|
|
||
|
|
$lingo = unpack("C", $data);
|
||
|
|
|
||
|
|
printf("Identify (0x00, 0x01) D->I\n");
|
||
|
|
printf(" Lingo: 0x%02x\n", $lingo);
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_00_0002 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my $res;
|
||
|
|
my $cmd;
|
||
|
|
my $delay;
|
||
|
|
|
||
|
|
($res, $cmd, $delay) = unpack("CCN", $data);
|
||
|
|
|
||
|
|
printf("ACK (0x00, 0x02) I->D\n");
|
||
|
|
printf(" Acknowledged command: 0x%02x\n", $cmd);
|
||
|
|
printf(" Status: %s (%d)\n",
|
||
|
|
("Success",
|
||
|
|
"ERROR: Unknown Database Category",
|
||
|
|
"ERROR: Command Failed",
|
||
|
|
"ERROR: Out Of Resource",
|
||
|
|
"ERROR: Bad Parameter",
|
||
|
|
"ERROR: Unknown ID",
|
||
|
|
"Command Pending",
|
||
|
|
"ERROR: Not Authenticated",
|
||
|
|
"ERROR: Bad Authentication Version",
|
||
|
|
"ERROR: Accessory Power Mode Request Failed",
|
||
|
|
"ERROR: Certificate Invalid",
|
||
|
|
"ERROR: Certificate permissions invalid",
|
||
|
|
"ERROR: File is in use",
|
||
|
|
"ERROR: Invalid file handle",
|
||
|
|
"ERROR: Directory not empty",
|
||
|
|
"ERROR: Operation timed out",
|
||
|
|
"ERROR: Command unavailable in this iPod mode",
|
||
|
|
"ERROR: Invalid accessory resistor ID",
|
||
|
|
"Reserved",
|
||
|
|
"Reserved",
|
||
|
|
"Reserved",
|
||
|
|
"ERROR: Maximum number of accessory connections already reached")[$res], $res);
|
||
|
|
if ($res == 6) {
|
||
|
|
$delay = unpack("xxN", $data);
|
||
|
|
printf(" Delay: %d ms\n", $delay);
|
||
|
|
}
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_00_0005 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
|
||
|
|
printf("EnterRemoteUIMode (0x00, 0x05) D->I\n");
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_00_000d {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
|
||
|
|
printf("RequestiPodModelNum (0x00, 0x0D) D->I\n");
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_00_000e {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my ($modelnum, $name);
|
||
|
|
|
||
|
|
($modelnum, $name) = unpack("NZ*", $data);
|
||
|
|
|
||
|
|
printf("ReturniPodModelNum (0x00, 0x0E) I->D\n");
|
||
|
|
printf(" Model number: %08x\n", $modelnum);
|
||
|
|
printf(" Model name: %s\n", $name);
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_00_000f {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my $lingo;
|
||
|
|
|
||
|
|
$lingo = unpack("C", $data);
|
||
|
|
|
||
|
|
printf("RequestLingoProtocolVersion (0x00, 0x0F) D->I\n");
|
||
|
|
printf(" Lingo: 0x%02x\n", $lingo);
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_00_0010 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my ($lingo, $maj, $min);
|
||
|
|
|
||
|
|
($lingo, $maj, $min) = unpack("CCC", $data);
|
||
|
|
|
||
|
|
printf("ReturnLingoProtocolVersion (0x00, 0x10) I->D\n");
|
||
|
|
printf(" Lingo: 0x%02x\n", $lingo);
|
||
|
|
printf(" Version: %d.%02d\n", $maj, $min);
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
sub _h_00_0013 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my @lingolist;
|
||
|
|
my ($lingoes, $options, $devid);
|
||
|
|
|
||
|
|
($lingoes, $options, $devid) = unpack("N3", $data);
|
||
|
|
|
||
|
|
foreach (0..31) {
|
||
|
|
push(@lingolist, $_) if ($lingoes & (1 << $_));
|
||
|
|
}
|
||
|
|
|
||
|
|
printf("IdentifyDeviceLingoes (0x00, 0x13) D->I\n");
|
||
|
|
printf(" Supported lingoes: %s\n", join(", ", @lingolist));
|
||
|
|
printf(" Options:\n");
|
||
|
|
printf(" Authentication: %s\n", ("None", "Defer (1.0)", "Immediate (2.0)", "Reserved")[$options & 0x03]);
|
||
|
|
printf(" Power: %s\n", ("Low", "Intermittent high", "Reserved", "Constant high")[($options & 0x0C) >> 2]);
|
||
|
|
printf(" Device ID: 0x%08x\n", $devid);
|
||
|
|
|
||
|
|
delete($self->{-state}->{'_h_00_0015'});
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_00_0014 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
|
||
|
|
printf("GetDevAuthenticationInfo (0x00, 0x14) I->D\n");
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_00_0015 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my ($amaj, $amin, $curidx, $maxidx, $certdata);
|
||
|
|
|
||
|
|
$state->{-curidx} = -1 unless(exists($state->{-curidx}));
|
||
|
|
$state->{-maxidx} = -1 unless(exists($state->{-maxidx}));
|
||
|
|
$state->{-cert} = '' unless(exists($state->{-cert}));
|
||
|
|
|
||
|
|
($amaj, $amin, $curidx, $maxidx, $certdata) = unpack("CCCCa*", $data);
|
||
|
|
|
||
|
|
printf("RetDevAuthenticationInfo (0x00, 0x15) D->I\n");
|
||
|
|
printf(" Authentication version: %d.%d\n", $amaj, $amin);
|
||
|
|
printf(" Segment: %d of %d\n", $curidx, $maxidx);
|
||
|
|
|
||
|
|
if ($curidx-1 != $state->{-curidx}) {
|
||
|
|
printf(" WARNING! Out of order segment\n");
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
if (($maxidx != $state->{-maxidx}) && ($state->{-maxidx} != -1)) {
|
||
|
|
printf(" WARNING! maxidx changed midstream\n");
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($curidx > $maxidx) {
|
||
|
|
printf(" WARNING! Too many segments\n");
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
$state->{-curidx} = $curidx;
|
||
|
|
$state->{-maxidx} = $maxidx;
|
||
|
|
$state->{-cert} .= $certdata;
|
||
|
|
|
||
|
|
if ($curidx == $maxidx) {
|
||
|
|
printf(" Certificate: %s\n", Device::iPod->_hexstring($state->{-cert}));
|
||
|
|
}
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_00_0016 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my $res;
|
||
|
|
|
||
|
|
$res = unpack("C", $data);
|
||
|
|
|
||
|
|
printf("AckDevAuthenticationInfo (0x00, 0x16) I->D\n");
|
||
|
|
printf(" Result: ");
|
||
|
|
if ($res == 0x00) {
|
||
|
|
printf("Authentication information supported\n");
|
||
|
|
} elsif ($res == 0x08) {
|
||
|
|
printf("Authentication information unpported\n");
|
||
|
|
} elsif ($res == 0x0A) {
|
||
|
|
printf("Certificate invalid\n");
|
||
|
|
} elsif ($res == 0x0B) {
|
||
|
|
printf("Certificate permissions are invalid\n");
|
||
|
|
} else {
|
||
|
|
printf("Unknown result 0x%02x\n", $res);
|
||
|
|
}
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_00_0017 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my ($challenge, $retry);
|
||
|
|
|
||
|
|
printf("GetDevAuthenticationSignature (0x00, 0x17) I->D\n");
|
||
|
|
|
||
|
|
if (length($data) == 17) {
|
||
|
|
($challenge, $retry) = unpack("a16C", $data);
|
||
|
|
} elsif (length($data) == 21) {
|
||
|
|
($challenge, $retry) = unpack("a20C", $data);
|
||
|
|
} else {
|
||
|
|
printf(" WARNING! Unsupported data length: %d\n", length($data));
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
printf(" Challenge: %s (%d bytes)\n", Device::iPod->_hexstring($challenge), length($challenge));
|
||
|
|
printf(" Retry counter: %d\n", $retry);
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_00_0018 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my $reply;
|
||
|
|
|
||
|
|
printf("RetDevAuthenticationSignature (0x00, 0x18) D->I\n");
|
||
|
|
printf(" Data: %s\n", Device::iPod->_hexstring($data));
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_00_0019 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my $res;
|
||
|
|
|
||
|
|
$res = unpack("C", $data);
|
||
|
|
|
||
|
|
printf("AckiPodAuthenticationInfo (0x00, 0x19) I->D\n");
|
||
|
|
printf(" Status: %s (%d)\n", (
|
||
|
|
"OK")[$res], $res);
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_00_0024 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
|
||
|
|
printf("GetiPodOptions (0x00, 0x24) D->I\n");
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_00_0025 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my ($ophi, $oplo);
|
||
|
|
|
||
|
|
($ophi, $oplo) = unpack("NN", $data);
|
||
|
|
|
||
|
|
printf("RetiPodOptions (0x00, 0x25) I->D\n");
|
||
|
|
printf(" Options:\n");
|
||
|
|
printf(" iPod supports SetiPodPreferences\n") if ($oplo & 0x02);
|
||
|
|
printf(" iPod supports video\n") if ($oplo & 0x01);
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
sub _h_00_0027 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my $acctype;
|
||
|
|
my $accparam;
|
||
|
|
|
||
|
|
$acctype = unpack("C", $data);
|
||
|
|
|
||
|
|
printf("GetAccessoryInfo (0x00, 0x27) I->D\n");
|
||
|
|
printf(" Accessory Info Type: %s (%d)\n", (
|
||
|
|
"Info capabilities",
|
||
|
|
"Name",
|
||
|
|
"Minimum supported iPod firmware version",
|
||
|
|
"Minimum supported lingo version",
|
||
|
|
"Firmware version",
|
||
|
|
"Hardware version",
|
||
|
|
"Manufacturer",
|
||
|
|
"Model Number",
|
||
|
|
"Serial Number",
|
||
|
|
"Maximum payload size")[$acctype], $acctype);
|
||
|
|
if ($acctype == 0x02) {
|
||
|
|
my ($modelid, $maj, $min, $rev);
|
||
|
|
|
||
|
|
($modelid, $maj, $min, $rev) = unpack("xNCCC", $data);
|
||
|
|
printf(" Model ID: 0x%04x\n", $modelid);
|
||
|
|
printf(" iPod Firmware: %d.%d.%d\n", $maj, $min, $rev);
|
||
|
|
} elsif ($acctype == 0x03) {
|
||
|
|
my $lingo;
|
||
|
|
|
||
|
|
$lingo = unpack("xC", $data);
|
||
|
|
printf(" Lingo: 0x%02x\n", $lingo);
|
||
|
|
}
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_00_0028 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my $acctype;
|
||
|
|
my $accparam;
|
||
|
|
|
||
|
|
$acctype = unpack("C", $data);
|
||
|
|
|
||
|
|
printf("RetAccessoryInfo (0x00, 0x28) D->I\n");
|
||
|
|
printf(" Accessory Info Type: %s (%d)\n", (
|
||
|
|
"Info capabilities",
|
||
|
|
"Name",
|
||
|
|
"Minimum supported iPod firmware version",
|
||
|
|
"Minimum supported lingo version",
|
||
|
|
"Firmware version",
|
||
|
|
"Hardware version",
|
||
|
|
"Manufacturer",
|
||
|
|
"Model Number",
|
||
|
|
"Serial Number",
|
||
|
|
"Maximum payload size")[$acctype], $acctype);
|
||
|
|
|
||
|
|
if ($acctype == 0x00) {
|
||
|
|
$accparam = unpack("xN", $data);
|
||
|
|
printf(" Accessory Info capabilities\n") if ($accparam & 0x01);
|
||
|
|
printf(" Accessory name\n") if ($accparam & 0x02);
|
||
|
|
printf(" Accessory minimum supported iPod firmware\n") if ($accparam & 0x04);
|
||
|
|
printf(" Accessory minimum supported lingo version\n") if ($accparam & 0x08);
|
||
|
|
printf(" Accessory firmware version\n") if ($accparam & 0x10);
|
||
|
|
printf(" Accessory hardware version\n") if ($accparam & 0x20);
|
||
|
|
printf(" Accessory manufacturer\n") if ($accparam & 0x40);
|
||
|
|
printf(" Accessory model number\n") if ($accparam & 0x80);
|
||
|
|
printf(" Accessory serial number\n") if ($accparam & 0x100);
|
||
|
|
printf(" Accessory incoming max packet size\n") if ($accparam & 0x200);
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($acctype ~~ [0x01, 0x06, 0x07, 0x08]) {
|
||
|
|
$accparam = unpack("xZ*", $data);
|
||
|
|
printf(" Data: %s\n", $accparam);
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($acctype == 0x02) {
|
||
|
|
$accparam = [ unpack("xNCCC", $data) ];
|
||
|
|
printf(" Model ID: %08x\n", $accparam->[0]);
|
||
|
|
printf(" Firmware version: %d.%02d.%02d\n", $accparam->[1], $accparam->[2], $accparam->[3]);
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($acctype == 0x03) {
|
||
|
|
$accparam = [ unpack("xCCC", $data) ];
|
||
|
|
printf(" Lingo: %02x\n", $accparam->[0]);
|
||
|
|
printf(" Version: %d.%02d\n", $accparam->[1], $accparam->[2]);
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($acctype ~~ [0x04, 0x05]) {
|
||
|
|
$accparam = [ unpack("xCCC", $data) ];
|
||
|
|
printf(" Version: %d.%02d.%02d\n", @{$accparam});
|
||
|
|
}
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_00_0029 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my $class;
|
||
|
|
|
||
|
|
$class = unpack("C", $data);
|
||
|
|
|
||
|
|
printf("GetiPodPreferences (0x00, 0x29) D->I\n");
|
||
|
|
printf(" Class: %s (%d)\n", (
|
||
|
|
"Video out setting",
|
||
|
|
"Screen configuration",
|
||
|
|
"Video signal format",
|
||
|
|
"Line Out usage",
|
||
|
|
"(Reserved)",
|
||
|
|
"(Reserved)",
|
||
|
|
"(Reserved)",
|
||
|
|
"(Reserved)",
|
||
|
|
"Video out connection",
|
||
|
|
"Closed captioning",
|
||
|
|
"Video aspect ratio",
|
||
|
|
"(Reserved)",
|
||
|
|
"Subtitles",
|
||
|
|
"Video alternate audio channel")[$class], $class);
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_00_002b {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my ($class, $setting);
|
||
|
|
|
||
|
|
($class, $setting) = unpack("CC", $data);
|
||
|
|
|
||
|
|
printf("SetiPodPreferences (0x00, 0x2B) D->I\n");
|
||
|
|
printf(" Class: %s (%d)\n", (
|
||
|
|
"Video out setting",
|
||
|
|
"Screen configuration",
|
||
|
|
"Video signal format",
|
||
|
|
"Line out usage",
|
||
|
|
"Reserved",
|
||
|
|
"Reserved",
|
||
|
|
"Reserved",
|
||
|
|
"Reserved",
|
||
|
|
"Video-out connection",
|
||
|
|
"Closed captioning",
|
||
|
|
"Video monitor aspect ratio",
|
||
|
|
"Reserved",
|
||
|
|
"Subtitles",
|
||
|
|
"Video alternate audio channel")[$class], $class);
|
||
|
|
printf(" Setting: %s (%d)\n", (
|
||
|
|
["Off",
|
||
|
|
"On",
|
||
|
|
"Ask user"],
|
||
|
|
["Fill screen",
|
||
|
|
"Fit to screen edge"],
|
||
|
|
["NTSC",
|
||
|
|
"PAL"],
|
||
|
|
["Not used",
|
||
|
|
"Used"],
|
||
|
|
[],
|
||
|
|
[],
|
||
|
|
[],
|
||
|
|
[],
|
||
|
|
["None",
|
||
|
|
"Composite",
|
||
|
|
"S-video",
|
||
|
|
"Component"],
|
||
|
|
["Off",
|
||
|
|
"On"],
|
||
|
|
["4:3",
|
||
|
|
"16:9"],
|
||
|
|
[],
|
||
|
|
["Off",
|
||
|
|
"On"],
|
||
|
|
["Off",
|
||
|
|
"On"])[$class][$setting], $setting);
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_00_0038 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my $transid;
|
||
|
|
|
||
|
|
$transid = unpack("n", $data);
|
||
|
|
|
||
|
|
printf("StartIDPS (0x00, 0x38) D->I\n");
|
||
|
|
printf(" TransID: %d\n", $transid);
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_00_003b {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my ($transid, $status);
|
||
|
|
|
||
|
|
($transid, $status) = unpack("nC", $data);
|
||
|
|
|
||
|
|
printf("EndIDPS (0x00, 0x3B) D->I\n");
|
||
|
|
printf(" TransID: %d\n", $transid);
|
||
|
|
printf(" Action: %s (%d)\n", (
|
||
|
|
"Finished",
|
||
|
|
"Reset")[$status], $status);
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_00_004b {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my $lingo;
|
||
|
|
|
||
|
|
$lingo = unpack("C", $data);
|
||
|
|
|
||
|
|
printf("GetiPodOptionsForLingo (0x00, 0x4B) D->I\n");
|
||
|
|
printf(" Lingo: 0x%02x\n", $lingo);
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_02_0000 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my @keys;
|
||
|
|
|
||
|
|
@keys = unpack("CCCC", $data);
|
||
|
|
|
||
|
|
printf("ContextButtonStatus (0x02, 0x00) D->I\n");
|
||
|
|
printf(" Buttons:\n");
|
||
|
|
printf(" Play/Pause\n") if ($keys[0] & 0x01);
|
||
|
|
printf(" Volume Up\n") if ($keys[0] & 0x02);
|
||
|
|
printf(" Volume Down\n") if ($keys[0] & 0x04);
|
||
|
|
printf(" Next Track\n") if ($keys[0] & 0x08);
|
||
|
|
printf(" Previous Track\n") if ($keys[0] & 0x10);
|
||
|
|
printf(" Next Album\n") if ($keys[0] & 0x20);
|
||
|
|
printf(" Previous Album\n") if ($keys[0] & 0x40);
|
||
|
|
printf(" Stop\n") if ($keys[0] & 0x80);
|
||
|
|
|
||
|
|
if (exists($keys[1])) {
|
||
|
|
printf(" Play/Resume\n") if ($keys[1] & 0x01);
|
||
|
|
printf(" Pause\n") if ($keys[1] & 0x02);
|
||
|
|
printf(" Mute toggle\n") if ($keys[1] & 0x04);
|
||
|
|
printf(" Next Chapter\n") if ($keys[1] & 0x08);
|
||
|
|
printf(" Previous Chapter\n") if ($keys[1] & 0x10);
|
||
|
|
printf(" Next Playlist\n") if ($keys[1] & 0x20);
|
||
|
|
printf(" Previous Playlist\n") if ($keys[1] & 0x40);
|
||
|
|
printf(" Shuffle Setting Advance\n") if ($keys[1] & 0x80);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (exists($keys[2])) {
|
||
|
|
printf(" Repeat Setting Advance\n") if ($keys[2] & 0x01);
|
||
|
|
printf(" Power On\n") if ($keys[2] & 0x02);
|
||
|
|
printf(" Power Off\n") if ($keys[2] & 0x04);
|
||
|
|
printf(" Backlight for 30 seconds\n") if ($keys[2] & 0x08);
|
||
|
|
printf(" Begin FF\n") if ($keys[2] & 0x10);
|
||
|
|
printf(" Begin REW\n") if ($keys[2] & 0x20);
|
||
|
|
printf(" Menu\n") if ($keys[2] & 0x40);
|
||
|
|
printf(" Select\n") if ($keys[2] & 0x80);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (exists($keys[3])) {
|
||
|
|
printf(" Up Arrow\n") if ($keys[3] & 0x01);
|
||
|
|
printf(" Down Arrow\n") if ($keys[3] & 0x02);
|
||
|
|
printf(" Backlight off\n") if ($keys[3] & 0x04);
|
||
|
|
}
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_02_0001 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my $res;
|
||
|
|
my $cmd;
|
||
|
|
|
||
|
|
($res, $cmd) = unpack("CC", $data);
|
||
|
|
|
||
|
|
printf("ACK (0x02, 0x01) I->D\n");
|
||
|
|
printf(" Acknowledged command: 0x%02x\n", $cmd);
|
||
|
|
printf(" Status: %s (%d)\n",
|
||
|
|
("Success",
|
||
|
|
"ERROR: Unknown Database Category",
|
||
|
|
"ERROR: Command Failed",
|
||
|
|
"ERROR: Out Of Resource",
|
||
|
|
"ERROR: Bad Parameter",
|
||
|
|
"ERROR: Unknown ID",
|
||
|
|
"Command Pending",
|
||
|
|
"ERROR: Not Authenticated",
|
||
|
|
"ERROR: Bad Authentication Version",
|
||
|
|
"ERROR: Accessory Power Mode Request Failed",
|
||
|
|
"ERROR: Certificate Invalid",
|
||
|
|
"ERROR: Certificate permissions invalid",
|
||
|
|
"ERROR: File is in use",
|
||
|
|
"ERROR: Invalid file handle",
|
||
|
|
"ERROR: Directory not empty",
|
||
|
|
"ERROR: Operation timed out",
|
||
|
|
"ERROR: Command unavailable in this iPod mode",
|
||
|
|
"ERROR: Invalid accessory resistor ID",
|
||
|
|
"Reserved",
|
||
|
|
"Reserved",
|
||
|
|
"Reserved",
|
||
|
|
"ERROR: Maximum number of accessory connections already reached")[$res], $res);
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_03_0000 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my $res;
|
||
|
|
my $cmd;
|
||
|
|
|
||
|
|
($res, $cmd) = unpack("CC", $data);
|
||
|
|
|
||
|
|
printf("ACK (0x03, 0x00) I->D\n");
|
||
|
|
printf(" Acknowledged command: 0x%02x\n", $cmd);
|
||
|
|
printf(" Status: %s (%d)\n",
|
||
|
|
("Success",
|
||
|
|
"ERROR: Unknown Database Category",
|
||
|
|
"ERROR: Command Failed",
|
||
|
|
"ERROR: Out Of Resource",
|
||
|
|
"ERROR: Bad Parameter",
|
||
|
|
"ERROR: Unknown ID",
|
||
|
|
"Command Pending",
|
||
|
|
"ERROR: Not Authenticated",
|
||
|
|
"ERROR: Bad Authentication Version",
|
||
|
|
"ERROR: Accessory Power Mode Request Failed",
|
||
|
|
"ERROR: Certificate Invalid",
|
||
|
|
"ERROR: Certificate permissions invalid",
|
||
|
|
"ERROR: File is in use",
|
||
|
|
"ERROR: Invalid file handle",
|
||
|
|
"ERROR: Directory not empty",
|
||
|
|
"ERROR: Operation timed out",
|
||
|
|
"ERROR: Command unavailable in this iPod mode",
|
||
|
|
"ERROR: Invalid accessory resistor ID",
|
||
|
|
"Reserved",
|
||
|
|
"Reserved",
|
||
|
|
"Reserved",
|
||
|
|
"ERROR: Maximum number of accessory connections already reached")[$res], $res);
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_03_0008 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my $events;;
|
||
|
|
|
||
|
|
$events = unpack("N", $data);
|
||
|
|
|
||
|
|
printf("SetRemoteEventsNotification (0x03, 0x08) D->I\n");
|
||
|
|
printf(" Events:\n");
|
||
|
|
printf(" Track position in ms\n") if ($events & 0x00000001);
|
||
|
|
printf(" Track playback index\n") if ($events & 0x00000002);
|
||
|
|
printf(" Chapter index\n") if ($events & 0x00000004);
|
||
|
|
printf(" Play status\n") if ($events & 0x00000008);
|
||
|
|
printf(" Mute/UI volume\n") if ($events & 0x00000010);
|
||
|
|
printf(" Power/Battery\n") if ($events & 0x00000020);
|
||
|
|
printf(" Equalizer setting\n") if ($events & 0x00000040);
|
||
|
|
printf(" Shuffle setting\n") if ($events & 0x00000080);
|
||
|
|
printf(" Repeat setting\n") if ($events & 0x00000100);
|
||
|
|
printf(" Date and time setting\n") if ($events & 0x00000200);
|
||
|
|
printf(" Alarm setting\n") if ($events & 0x00000400);
|
||
|
|
printf(" Backlight state\n") if ($events & 0x00000800);
|
||
|
|
printf(" Hold switch state\n") if ($events & 0x00001000);
|
||
|
|
printf(" Sound check state\n") if ($events & 0x00002000);
|
||
|
|
printf(" Audiobook speed\n") if ($events & 0x00004000);
|
||
|
|
printf(" Track position in s\n") if ($events & 0x00008000);
|
||
|
|
printf(" Mute/UI/Absolute volume\n") if ($events & 0x00010000);
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_03_0009 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my $event;
|
||
|
|
my $eventdata;
|
||
|
|
|
||
|
|
$event = unpack("C", $data);
|
||
|
|
|
||
|
|
printf("RemoteEventNotification (0x03, 0x09) I->D\n");
|
||
|
|
printf(" Event: %s (%d)\n", (
|
||
|
|
"Track position in ms",
|
||
|
|
"Track playback index",
|
||
|
|
"Chapter index",
|
||
|
|
"Play status",
|
||
|
|
"Mute/UI volume",
|
||
|
|
"Power/Battery",
|
||
|
|
"Equalizer setting",
|
||
|
|
"Shuffle setting",
|
||
|
|
"Repeat setting",
|
||
|
|
"Date and time setting",
|
||
|
|
"Alarm setting",
|
||
|
|
"Backlight state",
|
||
|
|
"Hold switch state",
|
||
|
|
"Sound check state",
|
||
|
|
"Audiobook speed",
|
||
|
|
"Track position in s",
|
||
|
|
"Mute/UI/Absolute volume")[$event], $event);
|
||
|
|
|
||
|
|
if ($event == 0x00) {
|
||
|
|
$eventdata = unpack("xN", $data);
|
||
|
|
printf(" Position: %d ms\n", $eventdata);
|
||
|
|
} elsif ($event == 0x01) {
|
||
|
|
$eventdata = unpack("xN", $data);
|
||
|
|
printf(" Track: %d\n", $eventdata);
|
||
|
|
} elsif ($event == 0x02) {
|
||
|
|
$eventdata = [ unpack("xNnn", $data) ];
|
||
|
|
printf(" Track: %d\n", $eventdata->[0]);
|
||
|
|
printf(" Chapter count: %d\n", $eventdata->[1]);
|
||
|
|
printf(" Chapter index: %d\n", $eventdata->[2]);
|
||
|
|
} elsif ($event == 0x03) {
|
||
|
|
$eventdata = unpack("xC", $data);
|
||
|
|
printf(" Status: %s (%d)\n", (
|
||
|
|
"Stopped",
|
||
|
|
"Playing",
|
||
|
|
"Paused",
|
||
|
|
"FF",
|
||
|
|
"REW",
|
||
|
|
"End FF/REW")[$eventdata], $eventdata);
|
||
|
|
} elsif ($event == 0x04) {
|
||
|
|
$eventdata = [ unpack("xCC") ];
|
||
|
|
printf(" Mute: %s\n", $eventdata->[0]?"Off":"On");
|
||
|
|
printf(" Volume: %d\n", $eventdata->[1]);
|
||
|
|
} elsif ($event == 0x0F) {
|
||
|
|
$eventdata = unpack("xn", $data);
|
||
|
|
printf(" Position: %d s\n", $eventdata);
|
||
|
|
}
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_03_000c {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my $info;
|
||
|
|
|
||
|
|
$info = unpack("C", $data);
|
||
|
|
|
||
|
|
printf("GetiPodStateInfo (0x03, 0x0C) D->I\n");
|
||
|
|
printf(" Info to get: %s (%d)\n", (
|
||
|
|
"Track time in ms",
|
||
|
|
"Track playback index",
|
||
|
|
"Chapter information",
|
||
|
|
"Play status",
|
||
|
|
"Mute and volume information",
|
||
|
|
"Power and battery status",
|
||
|
|
"Equalizer setting",
|
||
|
|
"Shuffle setting",
|
||
|
|
"Repeat setting",
|
||
|
|
"Date and time",
|
||
|
|
"Alarm state and time",
|
||
|
|
"Backlight state",
|
||
|
|
"Hold switch state",
|
||
|
|
"Audiobook speed",
|
||
|
|
"Track time in seconds",
|
||
|
|
"Mute/UI/Absolute volume")[$info], $info);
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_03_000d {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my $type;
|
||
|
|
my $info;
|
||
|
|
|
||
|
|
$type = unpack("C", $data);
|
||
|
|
|
||
|
|
printf("RetiPodStateInfo (0x03, 0x0E) D->I\n");
|
||
|
|
|
||
|
|
if ($type == 0x00) {
|
||
|
|
$info = unpack("xN", $data);
|
||
|
|
printf(" Type: Track position\n");
|
||
|
|
printf(" Position: %d ms\n", $info);
|
||
|
|
} elsif ($type == 0x01) {
|
||
|
|
$info = unpack("xN", $data);
|
||
|
|
printf(" Type: Track index\n");
|
||
|
|
printf(" Index: %d\n", $info);
|
||
|
|
} elsif ($type == 0x02) {
|
||
|
|
$info = [ unpack("xNnn", $data) ];
|
||
|
|
printf(" Type: Chapter Information\n");
|
||
|
|
printf(" Playing Track: %d\n", $info->[0]);
|
||
|
|
printf(" Chapter count: %d\n", $info->[1]);
|
||
|
|
printf(" Chapter index: %d\n", $info->[2]);
|
||
|
|
} elsif ($type == 0x03) {
|
||
|
|
$info = unpack("xC", $data);
|
||
|
|
printf(" Type: Play status\n");
|
||
|
|
printf(" Status: %s (%d)\n", (
|
||
|
|
"Stopped",
|
||
|
|
"Playing",
|
||
|
|
"Paused",
|
||
|
|
"FF",
|
||
|
|
"REW",
|
||
|
|
"End FF/REW")[$info], $info);
|
||
|
|
} elsif ($type == 0x04) {
|
||
|
|
$info = [unpack("xCC", $data)];
|
||
|
|
printf(" Type: Mute/Volume\n");
|
||
|
|
printf(" Mute State: %s\n", $info->[0]?"On":"Off");
|
||
|
|
printf(" Volume level: %d\n", $info->[1]);
|
||
|
|
} elsif ($type == 0x05) {
|
||
|
|
$info = [unpack("xCC", $data)];
|
||
|
|
printf(" Type: Battery Information\n");
|
||
|
|
printf(" Power state: %s (%d)\n", (
|
||
|
|
"Internal, low power (<30%)",
|
||
|
|
"Internal",
|
||
|
|
"External battery pack, no charging",
|
||
|
|
"External power, no charging",
|
||
|
|
"External power, charging",
|
||
|
|
"External power, charged")[$info->[0]], $info->[0]);
|
||
|
|
printf(" Battery level: %d%%\n", $info->[1]*100/255);
|
||
|
|
} elsif ($type == 0x06) {
|
||
|
|
$info = [unpack("xN", $data)];
|
||
|
|
printf(" Type: Equalizer\n");
|
||
|
|
printf(" Index: %d\n", $info->[0]);
|
||
|
|
} elsif ($type == 0x07) {
|
||
|
|
$info = [unpack("xC", $data)];
|
||
|
|
printf(" Type: Shuffle\n");
|
||
|
|
printf(" Shuffle State: %s\n", $info->[0]?"On":"Off");
|
||
|
|
} elsif ($type == 0x08) {
|
||
|
|
$info = [unpack("xC", $data)];
|
||
|
|
printf(" Type: Repeat\n");
|
||
|
|
printf(" Repeat State: %s\n", $info->[0]?"On":"Off");
|
||
|
|
} elsif ($type == 0x09) {
|
||
|
|
$info = [unpack("xnCCCC", $data)];
|
||
|
|
printf(" Type: Date\n");
|
||
|
|
printf(" Date: %02d.%02d.%04d %02d:%02d\n", $info->[2], $info->[1], $info->[0], $info->[3], $info->[4]);
|
||
|
|
} elsif ($type == 0x0A) {
|
||
|
|
$info = [unpack("xCCC", $data)];
|
||
|
|
printf(" Type: Alarm\n");
|
||
|
|
printf(" Alarm State: %s\n", $info->[0]?"On":"Off");
|
||
|
|
printf(" Time: %02d:%02d\n", $info->[1], $info->[2]);
|
||
|
|
} elsif ($type == 0x0B) {
|
||
|
|
$info = [unpack("xC", $data)];
|
||
|
|
printf(" Type: Backlight\n");
|
||
|
|
printf(" Backlight State: %s\n", $info->[0]?"On":"Off");
|
||
|
|
} elsif ($type == 0x0C) {
|
||
|
|
$info = [unpack("xC", $data)];
|
||
|
|
printf(" Type: Hold switch\n");
|
||
|
|
printf(" Switch State: %s\n", $info->[0]?"On":"Off");
|
||
|
|
} elsif ($type == 0x0D) {
|
||
|
|
$info = [unpack("xC", $data)];
|
||
|
|
printf(" Type: Sound check\n");
|
||
|
|
printf(" Sound check: %s\n", $info->[0]?"On":"Off");
|
||
|
|
} elsif ($type == 0x0E) {
|
||
|
|
$info = [unpack("xC", $data)];
|
||
|
|
printf(" Type: Audiobook speed\n");
|
||
|
|
printf(" Speed: %s\n", $info->[0]==0x00?"Normal":$info->[0]==0x01?"Faster":$info->[0]==0xFF?"Slower":"Reserved");
|
||
|
|
} elsif ($type == 0x0F) {
|
||
|
|
$info = unpack("xN", $data);
|
||
|
|
printf(" Type: Track position\n");
|
||
|
|
printf(" Position: %d s\n", $info);
|
||
|
|
} elsif ($type == 0x10) {
|
||
|
|
$info = [unpack("xCCC", $data)];
|
||
|
|
printf(" Type: Mute/UI/Absolute volume\n");
|
||
|
|
printf(" Mute State: %s\n", $info->[0]?"On":"Off");
|
||
|
|
printf(" UI Volume level: %d\n", $info->[1]);
|
||
|
|
printf(" Absolute Volume: %d\n", $info->[2]);
|
||
|
|
} else {
|
||
|
|
printf(" Reserved\n");
|
||
|
|
}
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
sub _h_03_000e {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my $type;
|
||
|
|
my $info;
|
||
|
|
|
||
|
|
$type = unpack("C", $data);
|
||
|
|
|
||
|
|
printf("SetiPodStateInfo (0x03, 0x0E) D->I\n");
|
||
|
|
|
||
|
|
if ($type == 0x00) {
|
||
|
|
$info = unpack("xN", $data);
|
||
|
|
printf(" Type: Track position\n");
|
||
|
|
printf(" Position: %d ms\n", $info);
|
||
|
|
} elsif ($type == 0x01) {
|
||
|
|
$info = unpack("xN", $data);
|
||
|
|
printf(" Type: Track index\n");
|
||
|
|
printf(" Index: %d\n", $info);
|
||
|
|
} elsif ($type == 0x02) {
|
||
|
|
$info = unpack("xn", $data);
|
||
|
|
printf(" Type: Chapter index\n");
|
||
|
|
printf(" Index: %d\n", $info);
|
||
|
|
} elsif ($type == 0x03) {
|
||
|
|
$info = unpack("xC", $data);
|
||
|
|
printf(" Type: Play status\n");
|
||
|
|
printf(" Status: %s (%d)\n", (
|
||
|
|
"Stopped",
|
||
|
|
"Playing",
|
||
|
|
"Paused",
|
||
|
|
"FF",
|
||
|
|
"REW",
|
||
|
|
"End FF/REW")[$info], $info);
|
||
|
|
} elsif ($type == 0x04) {
|
||
|
|
$info = [unpack("xCCC", $data)];
|
||
|
|
printf(" Type: Mute/Volume\n");
|
||
|
|
printf(" Mute State: %s\n", $info->[0]?"On":"Off");
|
||
|
|
printf(" Volume level: %d\n", $info->[1]);
|
||
|
|
printf(" Restore on exit: %s\n", $info->[2]?"Yes":"No");
|
||
|
|
} elsif ($type == 0x06) {
|
||
|
|
$info = [unpack("xNC", $data)];
|
||
|
|
printf(" Type: Equalizer\n");
|
||
|
|
printf(" Index: %d\n", $info->[0]);
|
||
|
|
printf(" Restore on exit: %s\n", $info->[1]?"Yes":"No");
|
||
|
|
} elsif ($type == 0x07) {
|
||
|
|
$info = [unpack("xCC", $data)];
|
||
|
|
printf(" Type: Shuffle\n");
|
||
|
|
printf(" Shuffle State: %s\n", $info->[0]?"On":"Off");
|
||
|
|
printf(" Restore on exit: %s\n", $info->[1]?"Yes":"No");
|
||
|
|
} elsif ($type == 0x08) {
|
||
|
|
$info = [unpack("xCC", $data)];
|
||
|
|
printf(" Type: Repeat\n");
|
||
|
|
printf(" Repeat State: %s\n", $info->[0]?"On":"Off");
|
||
|
|
printf(" Restore on exit: %s\n", $info->[1]?"Yes":"No");
|
||
|
|
} elsif ($type == 0x09) {
|
||
|
|
$info = [unpack("xnCCCC", $data)];
|
||
|
|
printf(" Type: Date\n");
|
||
|
|
printf(" Date: %02d.%02d.%04d %02d:%02d\n", $info->[2], $info->[1], $info->[0], $info->[3], $info->[4]);
|
||
|
|
} elsif ($type == 0x0A) {
|
||
|
|
$info = [unpack("xCCCC", $data)];
|
||
|
|
printf(" Type: Alarm\n");
|
||
|
|
printf(" Alarm State: %s\n", $info->[0]?"On":"Off");
|
||
|
|
printf(" Time: %02d:%02d\n", $info->[1], $info->[2]);
|
||
|
|
printf(" Restore on exit: %s\n", $info->[3]?"Yes":"No");
|
||
|
|
} elsif ($type == 0x0B) {
|
||
|
|
$info = [unpack("xCC", $data)];
|
||
|
|
printf(" Type: Backlight\n");
|
||
|
|
printf(" Backlight State: %s\n", $info->[0]?"On":"Off");
|
||
|
|
printf(" Restore on exit: %s\n", $info->[1]?"Yes":"No");
|
||
|
|
} elsif ($type == 0x0D) {
|
||
|
|
$info = [unpack("xCC", $data)];
|
||
|
|
printf(" Type: Sound check\n");
|
||
|
|
printf(" Sound check: %s\n", $info->[0]?"On":"Off");
|
||
|
|
printf(" Restore on exit: %s\n", $info->[1]?"Yes":"No");
|
||
|
|
} elsif ($type == 0x0E) {
|
||
|
|
$info = [unpack("xCC", $data)];
|
||
|
|
printf(" Type: Audiobook speed\n");
|
||
|
|
printf(" Speed: %s\n", $info->[0]==0x00?"Normal":$info->[0]==0x01?"Faster":$info->[0]==0xFF?"Slower":"Reserved");
|
||
|
|
printf(" Restore on exit: %s\n", $info->[1]?"Yes":"No");
|
||
|
|
} elsif ($type == 0x0F) {
|
||
|
|
$info = unpack("xN", $data);
|
||
|
|
printf(" Type: Track position\n");
|
||
|
|
printf(" Position: %d s\n", $info);
|
||
|
|
} elsif ($type == 0x10) {
|
||
|
|
$info = [unpack("xCCCC", $data)];
|
||
|
|
printf(" Type: Mute/UI/Absolute volume\n");
|
||
|
|
printf(" Mute State: %s\n", $info->[0]?"On":"Off");
|
||
|
|
printf(" UI Volume level: %d\n", $info->[1]);
|
||
|
|
printf(" Absolute Volume: %d\n", $info->[2]);
|
||
|
|
printf(" Restore on exit: %s\n", $info->[3]?"Yes":"No");
|
||
|
|
} else {
|
||
|
|
printf(" Reserved\n");
|
||
|
|
}
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_03_000f {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
|
||
|
|
print("GetPlayStatus (0x03, 0x0F) D->I\n");
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_03_0010 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my ($status, $idx, $len, $pos);
|
||
|
|
|
||
|
|
($status, $idx, $len, $pos) = unpack("CNNN", $data);
|
||
|
|
|
||
|
|
printf("RetPlayStatus (0x03, 0x10) I->D\n");
|
||
|
|
printf(" Status: %s (%d)\n", (
|
||
|
|
"Stopped",
|
||
|
|
"Playing",
|
||
|
|
"Paused")[$status], $status);
|
||
|
|
if ($status != 0x00) {
|
||
|
|
printf(" Track index: %d\n", $idx);
|
||
|
|
printf(" Track length: %d\n", $len);
|
||
|
|
printf(" Track position: %d\n", $pos);
|
||
|
|
}
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_03_0012 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my ($info, $tidx, $cidx);
|
||
|
|
|
||
|
|
($info, $tidx, $cidx) = unpack("CNn", $data);
|
||
|
|
|
||
|
|
printf("GetIndexedPlayingTrackInfo (0x03, 0x12) D->I\n");
|
||
|
|
printf(" Requested info: %s (%d)\n", (
|
||
|
|
"Track caps/info",
|
||
|
|
"Chapter time/name",
|
||
|
|
"Artist name",
|
||
|
|
"Album name",
|
||
|
|
"Genre name",
|
||
|
|
"Track title",
|
||
|
|
"Composer name",
|
||
|
|
"Lyrics",
|
||
|
|
"Artwork count")[$info], $info);
|
||
|
|
printf(" Track index: %d\n", $tidx);
|
||
|
|
printf(" Chapter index: %d\n", $cidx);
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_03_0013 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my $info;
|
||
|
|
|
||
|
|
$info = unpack("C", $data);
|
||
|
|
printf("RetIndexedPlayingTrackInfo (0x03, 0x13) I->D\n");
|
||
|
|
printf(" Returned info: %s (%d)\n", (
|
||
|
|
"Track caps/info",
|
||
|
|
"Chapter time/name",
|
||
|
|
"Artist name",
|
||
|
|
"Album name",
|
||
|
|
"Genre name",
|
||
|
|
"Track title",
|
||
|
|
"Composer name",
|
||
|
|
"Lyrics",
|
||
|
|
"Artwork count")[$info], $info);
|
||
|
|
if ($info == 0x00) {
|
||
|
|
my ($caps, $len, $chap) = unpack("xNNn", $data);
|
||
|
|
printf(" Track is audiobook\n") if ($caps & 0x01);
|
||
|
|
printf(" Track has chapters\n") if ($caps & 0x02);
|
||
|
|
printf(" Track has artwork\n") if ($caps & 0x04);
|
||
|
|
printf(" Track contains video\n") if ($caps & 0x80);
|
||
|
|
printf(" Track queued as video\n") if ($caps & 0x100);
|
||
|
|
|
||
|
|
printf(" Track length: %d ms\n", $len);
|
||
|
|
printf(" Track chapters: %d\n", $chap);
|
||
|
|
} elsif ($info == 0x01) {
|
||
|
|
my ($len, $name) = unpack("xNZ*");
|
||
|
|
printf(" Chapter time: %d ms\n", $len);
|
||
|
|
printf(" Chapter name: %s\n", $name);
|
||
|
|
} elsif ($info >= 0x02 && $info <= 0x06) {
|
||
|
|
my $name = unpack("xZ*", $data);
|
||
|
|
printf(" Name/Title: %s\n", $name)
|
||
|
|
} elsif ($info == 0x07) {
|
||
|
|
my ($info, $index, $data) = unpack("xCnZ*");
|
||
|
|
printf(" Part of multiple packets\n") if ($info & 0x01);
|
||
|
|
printf(" Is last packet\n") if ($info & 0x02);
|
||
|
|
printf(" Packet index: %d\n", $index);
|
||
|
|
printf(" Data: %s\n", $data);
|
||
|
|
} elsif ($info == 0x08) {
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_04_0001 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my $res;
|
||
|
|
my $cmd;
|
||
|
|
|
||
|
|
($res, $cmd) = unpack("Cn", $data);
|
||
|
|
|
||
|
|
printf("ACK (0x04, 0x0001) I->D\n");
|
||
|
|
printf(" Acknowledged command: 0x%02x\n", $cmd);
|
||
|
|
printf(" Status: %s (%d)\n",
|
||
|
|
("Success",
|
||
|
|
"ERROR: Unknown Database Category",
|
||
|
|
"ERROR: Command Failed",
|
||
|
|
"ERROR: Out Of Resource",
|
||
|
|
"ERROR: Bad Parameter",
|
||
|
|
"ERROR: Unknown ID",
|
||
|
|
"Reserved",
|
||
|
|
"ERROR: Not Authenticated")[$res], $res);
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_04_000c {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my ($info, $track, $chapter);
|
||
|
|
|
||
|
|
($info, $track, $chapter) = unpack("CNn", $data);
|
||
|
|
|
||
|
|
printf("GetIndexedPlayingTrackInfo (0x04, 0x000C) D->I\n");
|
||
|
|
printf(" Track: %d\n", $track);
|
||
|
|
printf(" Chapter: %d\n", $chapter);
|
||
|
|
printf(" Info requested: %s (%d)\n", (
|
||
|
|
"Capabilities and information",
|
||
|
|
"Podcast name",
|
||
|
|
"Track release date",
|
||
|
|
"Track description",
|
||
|
|
"Track song lyrics",
|
||
|
|
"Track genre",
|
||
|
|
"Track Composer",
|
||
|
|
"Tracn Artwork count")[$info], $info);
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_04_000d {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my $info;
|
||
|
|
|
||
|
|
$info = unpack("C", $data);
|
||
|
|
|
||
|
|
printf("ReturnIndexedPlayingTrackInfo (0x04, 0x000D) I->D\n");
|
||
|
|
if ($info == 0x00) {
|
||
|
|
my ($capability, $length, $chapter);
|
||
|
|
|
||
|
|
($capability, $length, $chapter) = unpack("xNNn", $data);
|
||
|
|
printf(" Capabilities:\n");
|
||
|
|
printf(" Is audiobook\n") if ($capability & 0x00000001);
|
||
|
|
printf(" Has chapters\n") if ($capability & 0x00000002);
|
||
|
|
printf(" Has album artwork\n") if ($capability & 0x00000004);
|
||
|
|
printf(" Has song lyrics\n") if ($capability & 0x00000008);
|
||
|
|
printf(" Is a podcast episode\n") if ($capability & 0x00000010);
|
||
|
|
printf(" Has release date\n") if ($capability & 0x00000020);
|
||
|
|
printf(" Has description\n") if ($capability & 0x00000040);
|
||
|
|
printf(" Contains video\n") if ($capability & 0x00000080);
|
||
|
|
printf(" Queued to play as video\n") if ($capability & 0x00000100);
|
||
|
|
|
||
|
|
printf(" Length: %d ms\n", $length);
|
||
|
|
printf(" Chapters: %d\n", $chapter);
|
||
|
|
} else {
|
||
|
|
printf(" WARNING: Unknown info\n");
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_04_0012 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
|
||
|
|
printf("RequestProtocolVersion (0x04, 0x0012) D->I\n");
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_04_0013 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my ($maj, $min);
|
||
|
|
|
||
|
|
($maj, $min) = unpack("CC", $data);
|
||
|
|
|
||
|
|
printf("ReturnProtocolVersion (0x04, 0x0013) I->D\n");
|
||
|
|
printf(" Lingo 0x04 version: %d.%02d\n", $maj, $min);
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_04_0016 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
|
||
|
|
printf("ResetDBSelection (0x04, 0x0016) D->I\n");
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_04_0018 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my $category;
|
||
|
|
|
||
|
|
$category = unpack("C", $data);
|
||
|
|
|
||
|
|
printf("GetNumberCategorizedDBRecords (0x04, 0x0018) D->I\n");
|
||
|
|
printf(" Category: %s (%d)\n", (
|
||
|
|
"Reserved",
|
||
|
|
"Playlist",
|
||
|
|
"Artist",
|
||
|
|
"Album",
|
||
|
|
"Genre",
|
||
|
|
"Track",
|
||
|
|
"Composer",
|
||
|
|
"Audiobook",
|
||
|
|
"Podcast",
|
||
|
|
"Nested Playlist")[$category], $category);
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_04_0019 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my $count;
|
||
|
|
|
||
|
|
$count = unpack("N", $data);
|
||
|
|
|
||
|
|
printf("ReturnNumberCategorizedDBRecords (0x04, 0x0019) I->D\n");
|
||
|
|
printf(" Count: %d\n", $count);
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_04_001c {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
|
||
|
|
printf("GetPlayStatus (0x04, 0x001C) D->I\n");
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_04_001d {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my ($len, $pos, $s);
|
||
|
|
|
||
|
|
($len, $pos, $s) = unpack("NNC", $data);
|
||
|
|
|
||
|
|
printf("ReturnPlayStatus (0x04, 0x001D) I->D\n");
|
||
|
|
printf(" Song length: %d ms\n", $len);
|
||
|
|
printf(" Song position: %d ms\n", $pos);
|
||
|
|
printf(" Player state: ");
|
||
|
|
if ($s == 0x00) {
|
||
|
|
printf("Stopped\n");
|
||
|
|
} elsif ($s == 0x01) {
|
||
|
|
printf("Playing\n");
|
||
|
|
} elsif ($s == 0x02) {
|
||
|
|
printf("Paused\n");
|
||
|
|
} elsif ($s == 0xFF) {
|
||
|
|
printf("Error\n");
|
||
|
|
} else {
|
||
|
|
printf("Reserved\n");
|
||
|
|
}
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_04_001e {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
|
||
|
|
printf("GetCurrentPlayingTrackIndex (0x04, 0x001E) D->I\n");
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_04_001f {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my $num;
|
||
|
|
|
||
|
|
$num = unpack("N", $data);
|
||
|
|
|
||
|
|
printf("ReturnCurrentPlayingTrackIndex (0x04, 0x001F) I->D\n");
|
||
|
|
printf(" Index: %d\n", $num);
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_04_0020 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my $track;
|
||
|
|
|
||
|
|
$track = unpack("N", $data);
|
||
|
|
|
||
|
|
printf("GetIndexedPlayingTrackTitle (0x04, 0x0020) D->I\n");
|
||
|
|
printf(" Track: %d\n", $track);
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_04_0021 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my $title;
|
||
|
|
|
||
|
|
$title = unpack("Z*", $data);
|
||
|
|
|
||
|
|
printf("ReturnIndexedPlayingTrackTitle (0x04, 0x0021) I->D\n");
|
||
|
|
printf(" Title: %s\n", $title);
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_04_0022 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my $track;
|
||
|
|
|
||
|
|
$track = unpack("N", $data);
|
||
|
|
|
||
|
|
printf("GetIndexedPlayingTrackArtistName (0x04, 0x0022) D->I\n");
|
||
|
|
printf(" Track: %d\n", $track);
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_04_0023 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my $artist;
|
||
|
|
|
||
|
|
$artist = unpack("Z*", $data);
|
||
|
|
|
||
|
|
printf("ReturnIndexedPlayingTrackArtistName (0x04, 0x0023) I->D\n");
|
||
|
|
printf(" Artist: %s\n", $artist);
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_04_0024 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my $track;
|
||
|
|
|
||
|
|
$track = unpack("N", $data);
|
||
|
|
|
||
|
|
printf("GetIndexedPlayingTrackAlbumName (0x04, 0x0024) D->I\n");
|
||
|
|
printf(" Track: %d\n", $track);
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_04_0025 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my $title;
|
||
|
|
|
||
|
|
$title = unpack("Z*", $data);
|
||
|
|
|
||
|
|
printf("ReturnIndexedPlayingTrackAlbumName (0x04, 0x0025) I->D\n");
|
||
|
|
printf(" Album: %s\n", $title);
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_04_0026 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my $notification;
|
||
|
|
|
||
|
|
if (length($data) == 1) {
|
||
|
|
$notification = unpack("C", $data);
|
||
|
|
} elsif (length($data) == 4) {
|
||
|
|
$notification = unpack("N", $data);
|
||
|
|
}
|
||
|
|
|
||
|
|
printf("SetPlayStatusChangeNotification (0x04, 0x0026) D->I\n");
|
||
|
|
|
||
|
|
if (length($data) == 1) {
|
||
|
|
printf(" Events for: %s (%d)\n", (
|
||
|
|
"Disable all",
|
||
|
|
"Basic play state, track index, track time position, FFW/REW seek stop, and chapter index changes")[$notification], $notification);
|
||
|
|
} elsif (length($data) == 4) {
|
||
|
|
printf(" Events for:\n");
|
||
|
|
printf(" Basic play state changes\n") if ($notification & 0x00000001);
|
||
|
|
printf(" Extended play state changes\n") if ($notification & 0x00000002);
|
||
|
|
printf(" Track index\n") if ($notification & 0x00000004);
|
||
|
|
printf(" Track time offset (ms)\n") if ($notification & 0x00000008);
|
||
|
|
printf(" Track time offset (s)\n") if ($notification & 0x00000010);
|
||
|
|
printf(" Chapter index\n") if ($notification & 0x00000020);
|
||
|
|
printf(" Chapter time offset (ms)\n") if ($notification & 0x00000040);
|
||
|
|
printf(" Chapter time offset (s)\n") if ($notification & 0x00000080);
|
||
|
|
printf(" Track unique identifier\n") if ($notification & 0x00000100);
|
||
|
|
printf(" Track media tyoe\n") if ($notification & 0x00000200);
|
||
|
|
printf(" Track lyrics\n") if ($notification & 0x00000400);
|
||
|
|
} else {
|
||
|
|
printf(" WARNING: Unknown length for state\n");
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_04_0027 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my $info;
|
||
|
|
|
||
|
|
$info = unpack("C", $data);
|
||
|
|
|
||
|
|
printf("PlayStatusChangeNotification (0x04, 0x0029) I->D\n");
|
||
|
|
printf(" Status:\n");
|
||
|
|
if ($info == 0x00) {
|
||
|
|
printf(" Playback stopped\n");
|
||
|
|
} elsif ($info == 0x01) {
|
||
|
|
my $index = unpack("xN", $data);
|
||
|
|
|
||
|
|
printf(" Track index: %d\n", $index);
|
||
|
|
} elsif ($info == 0x02) {
|
||
|
|
printf(" Playback FF seek stop\n");
|
||
|
|
} elsif ($info == 0x03) {
|
||
|
|
printf(" Playback REW seek stop\n");
|
||
|
|
} elsif ($info == 0x04) {
|
||
|
|
my $offset = unpack("xN", $data);
|
||
|
|
|
||
|
|
printf(" Track time offset: %d ms\n", $offset);
|
||
|
|
} elsif ($info == 0x05) {
|
||
|
|
my $index = unpack("xN", $data);
|
||
|
|
|
||
|
|
printf(" Chapter index: %d\n", $index);
|
||
|
|
} elsif ($info == 0x06) {
|
||
|
|
my $status = unpack("xC", $data);
|
||
|
|
|
||
|
|
printf(" Playback status extended: %s (%d)\n", (
|
||
|
|
"Reserved",
|
||
|
|
"Reserved",
|
||
|
|
"Stopped",
|
||
|
|
"Reserved",
|
||
|
|
"Reserved",
|
||
|
|
"FF seek started",
|
||
|
|
"REW seek started",
|
||
|
|
"FF/REW seek stopped",
|
||
|
|
"Reserved",
|
||
|
|
"Reserved",
|
||
|
|
"Playing",
|
||
|
|
"Paused")[$status], $status);
|
||
|
|
} elsif ($info == 0x07) {
|
||
|
|
my $offset = unpack("xN", $data);
|
||
|
|
|
||
|
|
printf(" Track time offset: %d s\n", $offset);
|
||
|
|
} elsif ($info == 0x08) {
|
||
|
|
my $offset = unpack("xN", $data);
|
||
|
|
|
||
|
|
printf(" Chapter time offset %d ms\n", $offset);
|
||
|
|
} elsif ($info == 0x09) {
|
||
|
|
my $offset = unpack("xN", $data);
|
||
|
|
|
||
|
|
printf(" Chapter time offset %d s\n", $offset);
|
||
|
|
} elsif ($info == 0x0A) {
|
||
|
|
my ($uidhi, $uidlo) = unpack("xNN", $data);
|
||
|
|
|
||
|
|
printf(" Track UID: %08x%08x\n", $uidhi, $uidlo);
|
||
|
|
} elsif ($info == 0x0B) {
|
||
|
|
my $mode = unpack("xC", $data);
|
||
|
|
|
||
|
|
printf(" Track mode: %s (%d)\n", (
|
||
|
|
"Audio track",
|
||
|
|
"Video track")[$mode], $mode);
|
||
|
|
} elsif ($info == 0x0C) {
|
||
|
|
printf(" Track lyrics ready\n");
|
||
|
|
} else {
|
||
|
|
printf(" Reserved\n");
|
||
|
|
}
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_04_0029 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my $control;
|
||
|
|
|
||
|
|
$control = unpack("C", $data);
|
||
|
|
|
||
|
|
printf("PlayControl (0x04, 0x0029) D->I\n");
|
||
|
|
printf(" Command: %s (%d)\n", (
|
||
|
|
"Reserved",
|
||
|
|
"Toggle Play/Pause",
|
||
|
|
"Stop",
|
||
|
|
"Next track",
|
||
|
|
"Previous track",
|
||
|
|
"Start FF",
|
||
|
|
"Start Rev",
|
||
|
|
"Stop FF/Rev",
|
||
|
|
"Next",
|
||
|
|
"Previous",
|
||
|
|
"Play",
|
||
|
|
"Pause",
|
||
|
|
"Next chapter",
|
||
|
|
"Previous chapter")[$control], $control);
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_04_002c {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
|
||
|
|
printf("GetShuffle (0x04, 0x002C) D->I\n");
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_04_002d {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my $mode;
|
||
|
|
|
||
|
|
$mode = unpack("C", $data);
|
||
|
|
|
||
|
|
printf("ReturnShuffle (0x04, 0x002D) I->D\n");
|
||
|
|
printf(" Mode: %s (%d)\n", (
|
||
|
|
"Off",
|
||
|
|
"Tracks",
|
||
|
|
"Albums")[$mode], $mode);
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_04_002f {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
|
||
|
|
printf("GetRepeat (0x04, 0x002F) D->I\n");
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_04_0030 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my $mode;
|
||
|
|
|
||
|
|
$mode = unpack("C", $data);
|
||
|
|
|
||
|
|
printf("ReturnRepeat (0x04, 0x0030) I->D\n");
|
||
|
|
printf(" Mode: %s (%d)\n", (
|
||
|
|
"Off",
|
||
|
|
"One Track",
|
||
|
|
"All Tracks")[$mode], $mode);
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_04_0032 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my ($index, $format, $width, $height, $stride, $imagedata);
|
||
|
|
|
||
|
|
$state->{-index} = -1 unless(exists($state->{-index}));
|
||
|
|
$state->{-image} = '' unless(exists($state->{-image}));
|
||
|
|
|
||
|
|
($index, $format, $width, $height, $stride, $imagedata) = unpack("nCnnNa*", $data);
|
||
|
|
|
||
|
|
printf("SetDisplayImage (0x04, 0x0032) D->I\n");
|
||
|
|
if ($index == 0) {
|
||
|
|
printf(" Width: %d\n", $width);
|
||
|
|
printf(" Height: %d\n", $height);
|
||
|
|
printf(" Stride: %d\n", $stride);
|
||
|
|
printf(" Format: %s (%d)\n", (
|
||
|
|
"Reserved",
|
||
|
|
"Monochrome, 2 bps",
|
||
|
|
"RGB 565, little endian",
|
||
|
|
"RGB 565, big endian")[$format], $format);
|
||
|
|
|
||
|
|
$state->{-imagelength} = $height * $stride;
|
||
|
|
} else {
|
||
|
|
($index, $imagedata) = unpack("na*", $data);
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($index-1 != $state->{-index}) {
|
||
|
|
printf(" WARNING! Out of order segment\n");
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
$state->{-index} = $index;
|
||
|
|
$state->{-image} .= $imagedata;
|
||
|
|
|
||
|
|
if (length($state->{-image}) >= $state->{-imagelength}) {
|
||
|
|
printf(" Image data: %s\n", Device::iPod->_hexstring($state->{-image}));
|
||
|
|
}
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_04_0033 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
|
||
|
|
printf("GetMonoDisplayImageLimits (0x04, 0x0033) D->I\n");
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_04_0034 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my ($width, $height, $format);
|
||
|
|
|
||
|
|
($width, $height, $format) = unpack("nnC", $data);
|
||
|
|
|
||
|
|
printf("ReturnMonoDisplayImageLimits (0x04, 0x0034) I->D\n");
|
||
|
|
printf(" Width: %d\n", $width);
|
||
|
|
printf(" Height: %d\n", $height);
|
||
|
|
printf(" Format: %s (%d)\n", (
|
||
|
|
"Reserved",
|
||
|
|
"Monochrome, 2 bps",
|
||
|
|
"RGB 565, little endian",
|
||
|
|
"RGB 565, big endian")[$format], $format);
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_04_0035 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
|
||
|
|
printf("GetNumPlayingTracks (0x04, 0x0035) D->I\n");
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_04_0036 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my $num;
|
||
|
|
|
||
|
|
$num = unpack("N", $data);
|
||
|
|
|
||
|
|
printf("ReturnNumPlayingTracks (0x04, 0x0036) I->D\n");
|
||
|
|
printf(" Number: %d\n", $num);
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_04_0037 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my $num;
|
||
|
|
|
||
|
|
$num = unpack("N", $data);
|
||
|
|
|
||
|
|
printf("SetCurrentPlayingTrack (0x04, 0x0037) D->I\n");
|
||
|
|
printf(" Track: %d\n", $num);
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_07_0005 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my $control;
|
||
|
|
|
||
|
|
$control = unpack("C", $data);
|
||
|
|
|
||
|
|
printf("SetTunerCtrl (0x07, 0x05) I->D\n");
|
||
|
|
printf(" Options:\n");
|
||
|
|
printf(" Power %s\n", ($control & 0x01)?"on":"off");
|
||
|
|
printf(" Status change notifications %s\n", ($control & 0x02)?"on":"off");
|
||
|
|
printf(" Raw mode %s\n", ($control & 0x04)?"on":"off");
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_07_0020 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
my $options;
|
||
|
|
|
||
|
|
$options = unpack("N", $data);
|
||
|
|
|
||
|
|
printf("SetRDSNotifyMask (0x07, 0x20) I->D\n");
|
||
|
|
printf(" Options:\n");
|
||
|
|
printf(" Radiotext\n") if ($options & 0x00000010);
|
||
|
|
printf(" Program Service Name\n") if ($options & 0x40000000);
|
||
|
|
printf(" Reserved\n") if ($options & 0xBFFFFFEF);
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _h_07_0024 {
|
||
|
|
my $self = shift;
|
||
|
|
my $data = shift;
|
||
|
|
my $state = shift;
|
||
|
|
|
||
|
|
printf("Reserved command (0x07, 0x24) I->D\n");
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
package main;
|
||
|
|
|
||
|
|
use Device::iPod;
|
||
|
|
use Getopt::Long;
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
my $decoder;
|
||
|
|
my $device;
|
||
|
|
my $unpacker;
|
||
|
|
my $line;
|
||
|
|
|
||
|
|
sub unpack_hexstring {
|
||
|
|
my $line = shift;
|
||
|
|
my $m;
|
||
|
|
my @m;
|
||
|
|
|
||
|
|
$line =~ s/(..)/chr(hex($1))/ge;
|
||
|
|
$device->{-inbuf} = $line;
|
||
|
|
|
||
|
|
$m = $device->_message();
|
||
|
|
next unless defined($m);
|
||
|
|
@m = $device->_unframe_cmd($m);
|
||
|
|
unless(@m) {
|
||
|
|
printf("Line %d: Error decoding frame: %s\n", $., $device->error());
|
||
|
|
return ();
|
||
|
|
}
|
||
|
|
|
||
|
|
return @m;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub unpack_iaplog {
|
||
|
|
my $line = shift;
|
||
|
|
my @m;
|
||
|
|
|
||
|
|
unless ($line =~ /^(?:\[\d+\] )?[RT]::? /) {
|
||
|
|
printf("Skipped: %s\n", $line);
|
||
|
|
return ();
|
||
|
|
}
|
||
|
|
|
||
|
|
$line =~ s/^(?:\[\d+\] )?[RT]::? //;
|
||
|
|
$line =~ s/\\x(..)/chr(hex($1))/ge;
|
||
|
|
$line =~ s/\\\\/\\/g;
|
||
|
|
|
||
|
|
@m = unpack("CCa*", $line);
|
||
|
|
if ($m[0] == 0x04) {
|
||
|
|
@m = unpack("Cna*", $line);
|
||
|
|
}
|
||
|
|
|
||
|
|
return @m;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
$decoder = iap::decode->new();
|
||
|
|
$device = Device::iPod->new();
|
||
|
|
$unpacker = \&unpack_iaplog;
|
||
|
|
|
||
|
|
GetOptions("hexstring" => sub {$unpacker = \&unpack_hexstring});
|
||
|
|
|
||
|
|
while ($line = <>) {
|
||
|
|
my @m;
|
||
|
|
|
||
|
|
chomp($line);
|
||
|
|
|
||
|
|
@m = $unpacker->($line);
|
||
|
|
next unless (@m);
|
||
|
|
|
||
|
|
printf("Line %d: ", $.);
|
||
|
|
$decoder->display(@m);
|
||
|
|
}
|