NAME

Device::SCSI::CDROM - Perl module to control SCSI CD-ROM devices

SYNOPSIS

use Device::SCSI::CDROM;
# use the same way as Device::SCSI but with extra methods.

DESCRIPTION

This is an incomplete package that may ultimately provide device-specific support for CD-ROM and other read-only units. The API is poor and may change at any time.

disc_info

my($first, $last)=$device->disc_info;

This returns the track numbers of the first and last track on the CD inserted in the drive.

toc

my $tracks=$device->toc;
my $first=$tracks->{FIRST};
my $last=$tracks->{LAST};
foreach my $track ($first..$last, 'CD') {
  my $trackstart=$tracks->{$track}{START};
  my $trackend=$tracks->{$track}{FINISH};
  # use these values
}

This reads the Table Of Contents on the CD, and returns a hashref containing information on all thr tracks on the CD. The keys are:

FIRST

The number of the first track on the CD.

LAST

The number of the last track on the CD.

CD

A hashref with keys START and FINISH mapping to the block numbers of the start and end of the CD.

(Numbers 1 ... 99)

A hashref with keys START and FINISH mapping to the block numbers of the start and end of the track with the same number as the key.

AUTHOR

All code and documentation by Peter Corlett <abuse@cabal.org.uk>.

COPYRIGHT

Copyright (C) 2000-2004 Peter Corlett <abuse@cabal.org.uk>. All rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SUPPORT / WARRANTY

This is free software. IT COMES WITHOUT WARRANTY OF ANY KIND.