View unanswered posts    View active topics

All times are UTC - 6 hours





Post new topic Reply to topic  [ 1 post ] 
Print view Previous topic   Next topic  
Author Message
Search for:
PostPosted: Tue May 16, 2006 10:13 am 
Offline
Joined: Mon Feb 06, 2006 7:08 pm
Posts: 7
Certain mp3 players (the iPod for instance) rename your mp3 files to meaningless filenames. Once they've been renamed, it makes it diffucult to copy an album, or certain songs, to some other device or computer.

I've written a perl script which uses the mythtv database to allow you easily copy groups of mp3's by a simple aritist, album and/or title search.

Note that you have to first import your ipod library into mythmusic.

The script should work without modification on your knoppmyth box, unless you've used non-standard directories or changed your "mythtv" user's mysql password.

Copy the script below the dashes, paste into a file (mp3cp for instance), and do 'chmod u+x mp3cp'

------------------------------------------------


#!/usr/bin/perl

use strict;
use DBI();
use Getopt::Std;
use File::Copy;
use Cwd;

my $basedir = '/myth/music';
my $mythdbuser = 'mythtv';
my $mythdbpass = 'mythtv';
my $mythdb = 'mythconverg';

our $opt_h;
our $opt_A;
our $opt_L;
our $opt_T;
our $opt_D;
our $opt_R;

#
# Command line options processing
#
sub init()
{

getopts('A:L:T:D:hR');

usage() if $opt_h;
usage() if ( ! defined($opt_A) ) and ( ! defined($opt_L) and ( ! defined($opt_T)) );

}

#
# Message about this program and how to use it
#
sub usage()
{

print "This program copies songs from your mythMusic database to a specified directory

usage: $0 [-A artist] [-L album] [-T title] [-D destination] [-R]

-h : this (help) message
-A artist : artist name [% = wildcard]
-L album : album name [% = wildcard]
-T title : song title [% = wildcard]
-D dest : destination directory [defaults to .]
-R : rename the file based on its artist/title information

example: $0 -A 'Billy%' -L '%Hits' -D /home/user\n\n";
exit 0;
}

init();

# Connect to the database.
my $dbh = DBI->connect("DBI:mysql:database=$mythdb;host=localhost",
$mythdbuser, $mythdbpass,
{'RaiseError' => 1});

my $whereclause;

if (defined($opt_A)) {
$whereclause = " upper(artist) like upper(\'$opt_A\') ";
}

if (defined($opt_L)) {
if (defined($opt_A)) {
$whereclause .= " and ";
}

$whereclause .= " upper(album) like upper(\'$opt_L\') ";
}

if (defined($opt_T)) {
if (defined($opt_A) || defined($opt_L)) {
$whereclause .= " and ";
}

$whereclause .= " upper(title) like upper(\'$opt_T\') ";
}

#print $whereclause . "\n";

my $dest;
if (defined($opt_D)) {
$dest = $opt_D;
} else {
$dest = cwd;

}

die "Invalid destination directory $dest\n" unless chdir $dest;

my $sql = "select * from musicmetadata where " .
$whereclause . " order by artist, album";

# Now retrieve data from the table.
my $filecnt = 0;
my $sth = $dbh->prepare($sql);
$sth->execute();
while (my $ref = $sth->fetchrow_hashref()) {
$filecnt ++;
print "$ref->{'artist'} : $ref->{'title'}\n";
}
$sth->finish();

if ($filecnt == 0) {
print "No songs to copy.\n";
exit 0;
}

print "$filecnt files will be copied to $dest \n Continue? (y/n) ";

my $tofile;
my $key = <STDIN>;

chomp($key);
$key = uc($key);

if ($key eq 'Y') {
my $file;
$sth = $dbh->prepare($sql);
$sth->execute();
while (my $ref = $sth->fetchrow_hashref()) {
$file = $basedir . "/" . $ref->{'filename'};
print "Copying $file \n";
if (defined($opt_R)) {
$tofile = $ref->{'artist'} . '-' .
$ref->{'title'} . '.mp3';

$tofile =~ s/ /_/g;

# remove "bad" characters from filename
$tofile =~ s/[^\w\s.-]+//g;

# and then $1-ize it
($tofile) = $tofile =~ /([\w\s.-]+)/;

$tofile = $dest . '/' . $tofile;

#print $tofile;

copy($file, $tofile) or die "File cannot be copied."
} else {
copy($file, $dest) or die "File cannot be copied."
}
}

$sth->finish();

}


# Disconnect from the database.
$dbh->disconnect();


Top
 Profile  
 

Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 1 post ] 


All times are UTC - 6 hours




Who is online

Users browsing this forum: No registered users and 1 guest


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Group

Theme Created By ceyhansuyu