r53947 - in /branches/upstream/libcddb-perl/current: CHANGES HISTORY MANIFEST META.yml Makefile.PL README eg/ eg/osx-lookup.pl lib/CDDB.pm t/01_cddb.t
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Mon Mar 8 17:38:11 UTC 2010
Author: jawnsy-guest
Date: Mon Mar 8 17:37:49 2010
New Revision: 53947
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=53947
Log:
[svn-upgrade] Integrating new upstream version, libcddb-perl (1.220)
Added:
branches/upstream/libcddb-perl/current/eg/
branches/upstream/libcddb-perl/current/eg/osx-lookup.pl
Modified:
branches/upstream/libcddb-perl/current/CHANGES
branches/upstream/libcddb-perl/current/HISTORY
branches/upstream/libcddb-perl/current/MANIFEST
branches/upstream/libcddb-perl/current/META.yml
branches/upstream/libcddb-perl/current/Makefile.PL
branches/upstream/libcddb-perl/current/README
branches/upstream/libcddb-perl/current/lib/CDDB.pm
branches/upstream/libcddb-perl/current/t/01_cddb.t
Modified: branches/upstream/libcddb-perl/current/CHANGES
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcddb-perl/current/CHANGES?rev=53947&op=diff
==============================================================================
--- branches/upstream/libcddb-perl/current/CHANGES (original)
+++ branches/upstream/libcddb-perl/current/CHANGES Mon Mar 8 17:37:49 2010
@@ -1,30 +1,59 @@
-=================================
-2009-07-27T16:02:08.268109Z v1_21
-=================================
+================================
+2010-03-08 01:18:09 -0500 v1_220
+================================
- 2009-07-27 16:01:44 (r9) by rcaputo; lib/CDDB.pm M
+ commit 90608ec10375b0009035a5f9e9df9c23a280e680
+ Author: Rocco Caputo <rcaputo at cpan.org>
+ Date: Mon Mar 8 01:18:09 2010 -0500
+
+ Prepare for git based distribution toolchain.
+ commit 65c2a4db273159842360735bdfa41de008de295a
+ Author: Rocco Caputo <rcaputo at cpan.org>
+ Date: Mon Mar 8 01:14:12 2010 -0500
+
+ Rearrange repository for git.
+
+ commit 2dc0e52f96553ea8f4adc285e87c6dfe3f9a6979
+ Author: Rocco Caputo <rcaputo at cpan.org>
+ Date: Tue Aug 11 04:56:35 2009 -0400
+
+ Create an OSX example program for Max Wassermann.
+
+===============================
+2009-07-27 16:01:44 -0400 v1_21
+===============================
+
+ commit 9499e229156600db9e8233469aecf694c87ce6ed
+ Author: Rocco Caputo <rcaputo at cpan.org>
+ Date: Mon Jul 27 16:01:44 2009 -0400
+
Reorganize documentation links.
- 2009-07-27 04:39:24 (r8) by rcaputo; lib/CDDB.pm M; Makefile.PL M
-
+ commit aad2ecd99348e5f27afe131ec8e06c2c3e7ec298
+ Author: Rocco Caputo <rcaputo at cpan.org>
+ Date: Mon Jul 27 04:39:24 2009 -0400
+
Add machine-readable repository directory. Add BUG TRACKER,
REPOSITORY and OTHER RESOURCES to the documentation.
-=================================
-2009-07-26T03:54:46.902679Z v1_20
-=================================
+===============================
+2009-07-26 03:54:11 -0400 v1_20
+===============================
- 2009-07-26 03:54:11 (r6) by rcaputo
- lib/CDDB.pm M; t/01_cddb.t M; Makefile.PL M
-
+ commit 9f4b0b679b787d46823fbf27c0758aa4aedcba61
+ Author: Rocco Caputo <rcaputo at cpan.org>
+ Date: Sun Jul 26 03:54:11 2009 -0400
+
Upgrade tests to Test::More. Fix track offset calculations according
to documented test input. Fix test input to match FreeDB
- documentation. Many thanks to Chuck Cranor for reporting the issue.
+ documentation. Many thanks to Chuck Cranor for reporting the issue.
- 2006-11-06 19:20:39 (r5) by rcaputo; Makefile.PL M
-
- Set a LICENSE. Cheap kwalitee points!
+ commit ab74fb8fcc3af103c6641135fd69113aa7311091
+ Author: Rocco Caputo <rcaputo at cpan.org>
+ Date: Mon Nov 6 19:20:39 2006 -0500
+
+ Set a LICENSE. Cheap kwalitee points!
==============
End of Excerpt
Modified: branches/upstream/libcddb-perl/current/HISTORY
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcddb-perl/current/HISTORY?rev=53947&op=diff
==============================================================================
--- branches/upstream/libcddb-perl/current/HISTORY (original)
+++ branches/upstream/libcddb-perl/current/HISTORY Mon Mar 8 17:37:49 2010
@@ -1,4 +1,4 @@
-$Id: HISTORY 1 2005-09-17 19:46:28Z rcaputo $
+$Id$
Changes after 1.16 are listed in the CHANGES file.
Modified: branches/upstream/libcddb-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcddb-perl/current/MANIFEST?rev=53947&op=diff
==============================================================================
--- branches/upstream/libcddb-perl/current/MANIFEST (original)
+++ branches/upstream/libcddb-perl/current/MANIFEST Mon Mar 8 17:37:49 2010
@@ -1,4 +1,4 @@
-# $Id: MANIFEST 2 2005-09-17 19:54:22Z rcaputo $
+# $Id$
CHANGES
HISTORY
MANIFEST
@@ -6,4 +6,5 @@
README
lib/CDDB.pm
t/01_cddb.t
+eg/osx-lookup.pl
META.yml Module meta-data (added by MakeMaker)
Modified: branches/upstream/libcddb-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcddb-perl/current/META.yml?rev=53947&op=diff
==============================================================================
--- branches/upstream/libcddb-perl/current/META.yml (original)
+++ branches/upstream/libcddb-perl/current/META.yml Mon Mar 8 17:37:49 2010
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: CDDB
-version: 1.21
+version: 1.220
abstract: High-level interface to CDDB and freedb servers.
author:
- Rocco Caputo <rcaputo at cpan.org>
@@ -14,7 +14,7 @@
Test::More: 0
resources:
license: http://dev.perl.org/licenses/
- repository: http://thirdlobe.com/svn/cddb/trunk
+ repository: http://github.com/rcaputo/cddb-perl
no_index:
directory:
- t
Modified: branches/upstream/libcddb-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcddb-perl/current/Makefile.PL?rev=53947&op=diff
==============================================================================
--- branches/upstream/libcddb-perl/current/Makefile.PL (original)
+++ branches/upstream/libcddb-perl/current/Makefile.PL Mon Mar 8 17:37:49 2010
@@ -1,5 +1,4 @@
#!/usr/bin/perl
-# $Id: Makefile.PL 8 2009-07-27 04:39:24Z rcaputo $
use ExtUtils::MakeMaker;
@@ -18,14 +17,14 @@
META_ADD => {
resources => {
license => 'http://dev.perl.org/licenses/',
- repository => 'http://thirdlobe.com/svn/cddb/trunk'
+ repository => 'http://github.com/rcaputo/cddb-perl'
},
},
dist => {
COMPRESS => 'gzip -9',
SUFFIX => 'gz',
PREOP => (
- 'svn-log.perl | tee ./$(DISTNAME)-$(VERSION)/CHANGES > ./CHANGES'
+ 'git-log.pl | tee ./$(DISTNAME)-$(VERSION)/CHANGES > ./CHANGES'
),
},
);
Modified: branches/upstream/libcddb-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcddb-perl/current/README?rev=53947&op=diff
==============================================================================
--- branches/upstream/libcddb-perl/current/README (original)
+++ branches/upstream/libcddb-perl/current/README Mon Mar 8 17:37:49 2010
@@ -1,4 +1,4 @@
-$Id: README 1 2005-09-17 19:46:28Z rcaputo $
+$Id$
-----
ABOUT
Added: branches/upstream/libcddb-perl/current/eg/osx-lookup.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcddb-perl/current/eg/osx-lookup.pl?rev=53947&op=file
==============================================================================
--- branches/upstream/libcddb-perl/current/eg/osx-lookup.pl (added)
+++ branches/upstream/libcddb-perl/current/eg/osx-lookup.pl Mon Mar 8 17:37:49 2010
@@ -1,0 +1,41 @@
+#!/usr/bin/env perl
+
+# Display the disc information for any mounted CDs on an OS X system.
+
+use warnings;
+use strict;
+use lib qw(./lib);
+
+use Mac::PropertyList qw(parse_plist_file);
+use CDDB;
+
+my $cddb = CDDB->new();
+
+CD: foreach my $toc_name (</Volumes/*/.TOC.plist>) {
+ my $toc = parse_plist_file($toc_name);
+
+ my @toc;
+
+ foreach my $track (@{$toc->{'Sessions'}[0]{'Track Array'}}) {
+ my $number = $track->{'Point'}->value();
+ my $block = $track->{'Start Block'}->value();
+ push @toc, "$number 0 0 $block";
+ }
+
+ push @toc, '999 0 0 ' . $toc->{'Sessions'}[0]{'Leadout Block'}->value();
+
+ my @discs = $cddb->get_discs_by_toc(@toc);
+ unless (@discs) {
+ warn "$toc_name = no discs found";
+ next CD;
+ }
+
+ foreach my $disc (@discs) {
+ my ($genre, $id, $title) = @$disc;
+
+ my $disc_details = $cddb->get_disc_details($genre, $id);
+
+ delete $disc_details->{xmcd_record}; # for display
+ use YAML::Syck; print YAML::Syck::Dump($disc_details);
+ }
+}
Modified: branches/upstream/libcddb-perl/current/lib/CDDB.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcddb-perl/current/lib/CDDB.pm?rev=53947&op=diff
==============================================================================
--- branches/upstream/libcddb-perl/current/lib/CDDB.pm (original)
+++ branches/upstream/libcddb-perl/current/lib/CDDB.pm Mon Mar 8 17:37:49 2010
@@ -1,4 +1,3 @@
-# $Id: CDDB.pm 9 2009-07-27 16:01:44Z rcaputo $
# Documentation and Copyright exist after __END__
package CDDB;
@@ -8,7 +7,7 @@
use vars qw($VERSION);
use Carp;
-$VERSION = '1.21';
+$VERSION = '1.220';
BEGIN {
if ($^O eq 'MSWin32') {
Modified: branches/upstream/libcddb-perl/current/t/01_cddb.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcddb-perl/current/t/01_cddb.t?rev=53947&op=diff
==============================================================================
--- branches/upstream/libcddb-perl/current/t/01_cddb.t (original)
+++ branches/upstream/libcddb-perl/current/t/01_cddb.t Mon Mar 8 17:37:49 2010
@@ -1,8 +1,7 @@
#!perl -w
-# $Id: 01_cddb.t 6 2009-07-26 03:54:11Z rcaputo $
# vim: filetype=perl
#
-# Copyright 1998-2005 Rocco Caputo <troc at netrus.net>. All rights
+# Copyright 1998-2020 Rocco Caputo <rcaputo at cpan.org>. All rights
# reserved. This program is free software; you can redistribute it
# and/or modify it under the same terms as Perl itself.
More information about the Pkg-perl-cvs-commits
mailing list