#!/usr/bin/perl

use MusicBrainz::DiscID;
use strict;


my $disc = new MusicBrainz::DiscID();

# read the disc in the default disc drive */
if ( $disc->read() == 0 ) {
    printf STDERR "Error: %s\n", $disc->error_msg();
    exit(1);
}

printf("DiscID        : %s\n", $disc->id());
printf("FreeDB DiscID : %s\n", $disc->freedb_id());

printf("First track   : %d\n", $disc->first_track_num());
printf("Last track    : %d\n", $disc->last_track_num());

printf("Length        : %d sectors\n", $disc->sectors());

for ( my $i = $disc->first_track_num;
    $i <= $disc->last_track_num; $i++ ) {

    printf("Track %-2d      : %8d %8d\n", $i,
        $disc->track_offset($i),
        $disc->track_length($i));
}

printf("Submit via    : %s\n", $disc->submission_url());
printf("WS url        : %s\n", $disc->webservice_url());

undef $disc;