summaryrefslogtreecommitdiff
path: root/scripts/gdimport.pl
diff options
context:
space:
mode:
Diffstat (limited to 'scripts/gdimport.pl')
-rwxr-xr-xscripts/gdimport.pl255
1 files changed, 0 insertions, 255 deletions
diff --git a/scripts/gdimport.pl b/scripts/gdimport.pl
deleted file mode 100755
index 438b07c..0000000
--- a/scripts/gdimport.pl
+++ /dev/null
@@ -1,255 +0,0 @@
-#!/usr/bin/perl
-
-##################################################
-#
-# GiantDisc mp3 Jukebox
-#
-# © 2000, Rolf Brugger
-#
-##################################################
-
-
-# Import script for mp3 tracks.
-#
-# Non interactive batch import of mp3 tracks. Mp3 informations (title, artist, etc)
-# are read from the id3-tags. Well defined id3-tags are mandatory for a
-# inclusion of mp3 tracks and a proper update of the database.
-
-
-use lib '/home/lvw/Development/muggle-plugin/scripts';
-#use lib '/home/andi/muggle/import';
-use gdparams;
-use gdgentools;
-use gddb;
-use DBI;
-use Cwd; # get current working dir
-
-### main
- #print ("Args are: @ARGV \n");
- if ($#ARGV < 0){
- print "\nusage: gdimport.pl [options] audiofiles... \n";
- print "\nimports the specified audio files into the GiantDisc system.\n";
- print "It reads the associated metadata (id3/vorbis tags) of each file and \n";
- print "creates a track record for each of it. \n";
- print "Other than in GD, files are not copied!!\n";
- print "\n";
- print "Currently supported file formats: mp3, ogg vorbis, flac.\n";
- print "\n";
- print "Instead of a set of audio files a directory can be specified. In\n";
- print "this case, all audio tracks in the directory are imported. This is\n";
- print "particularly useful to import a bunch of albums with the following\n";
- print "command typed in the shell:\n";
- print "\n";
- print " find . -type d -print -exec gdimport.pl -a {} \\;\n";
- print "\n";
- print "Options:\n";
- print " -t Test. Just display what would be done, whithout changing\n";
- print " the database or copying/moving/linking files\n";
- print " It is recommended to test an import session before really doing it\n";
- print "\n";
- print " -a Interpret the audio files as tracks of an album. An album record\n";
- print " is created and the tracks are imported as usual.\n";
- print " Note: - The first audio file must have a valid album metadata tag\n";
- print " (i.e. id3 tag) to get the album title.\n";
- print " - only one album can be imported at a time\n";
- print " - default values: rating=-, type=1, source=CD.\n";
- print "\n";
- print " -i cddbid importdir\n";
- print " Import all jpg images of the directory 'importdir' and associate\n";
- print " them to the album specified by 'cddbid' (include prefix '0x', 'xx'!). \n";
- print "\n";
- print "\n";
- exit;
- }
-
- #exit;
- ### Init constants/variables
- my ($fileformat, $cddbid);
- my $makealbum = 0;
- my $album_created = 0;
- my $linkfiles = 1;
- my $movefiles = 0;
- my $moveimages = 0;
- my $test = 0;
- my $tracknb = 1;
- my ($dbh, $trifile);
- my $base = gdparams::gdbase(); # music files base
-
- ### Open database connection
- print ("### Open database connection\n");
- $dbh = DBI->connect("DBI:mysql:GiantDisc", "music", undef)
- or die "unable to connect to GiantDisc db";
-
- ### init other variables
- my $fileid = gdgentools::last_imported_tracknb($dbh);
- my @trackrow;
-
-
- ### extract all options first
- my $shifted=1;
- while ($shifted){
- if ($ARGV[0] eq "-a"){
- print "set option make album\n";
- $makealbum = 1;
- shift @ARGV;
- }
- elsif ($ARGV[0] eq "-l"){
- print "set option link files\n";
- $linkfiles = 1;
- shift @ARGV;
- }
- elsif ($ARGV[0] eq "-m"){
- print "set option move files\n";
- $movefiles = 1;
- shift @ARGV;
- }
- elsif ($ARGV[0] eq "-i"){
- print "import booklet images\n";
- $moveimages = 1;
- shift @ARGV;
- $cddbid = shift @ARGV;
- }
- elsif ($ARGV[0] eq "-t"){
- print "set option TEST\n";
- $test = 1;
- shift @ARGV;
- }
- else {
- $shifted = 0;
- }
- }
-
- if ($moveimages){
- $dirname = $ARGV[0];
- if (-d $dirname){
- # ok. It's a directory
- gdgentools::import_cover_images($dbh, $dirname, $cddbid, $test);
- }
- else{
- print "Error importing images: '$dirname' is not a directory\n";
- }
- exit;
- }
-
-
- my @musicfiles;
- my $dirname="";
- ### Is the first file argument a directory?
- if (-d $ARGV[0]){
- # It's a directory -> read the audio filenames in it
- $dirname = $ARGV[0];
- opendir CURDIR, $dirname;
- @musicfiles = grep /[\.f](mp3$)|(ogg$)|(flac$)/, readdir CURDIR; # match .mp3, .ogg, flac -- Thanks to Merlot!
-# @musicfiles = grep /[\.f][Mmol][Ppga][c3g]$/, readdir CURDIR; # match .mp3, .ogg, flac
- @musicfiles = sort @musicfiles;
- closedir CURDIR;
- chdir $dirname;
- }
- else{
- # the remaining arguments seem to be audio filenames
- @musicfiles = @ARGV;
- }
-
- ### Loop through audio files
- while ($curfile = shift @musicfiles){
- $fileformat = gdgentools::audio_filetype($curfile);
- print "Importing $fileformat file: $curfile\n";
- $fileid += 1;
-# $audiofile = sprintf("trxx%08ld.%s", $fileid, $fileformat);
- $audiofile = $dirname ."/". $curfile;
-
- # get info from metatags
- $trackrow->{title} = gdgentools::audiofile_title($curfile);
- $trackrow->{artist} = gdgentools::audiofile_artist($curfile);
- $trackrow->{genre2} = "";
- $trackrow->{year} = gdgentools::audiofile_year($curfile);
- $trackrow->{lang} = "-";
- $trackrow->{type} = 1; # medium
- $trackrow->{rating} = 0;
- $trackrow->{length} = gdgentools::audiofile_lengthsec($curfile);
- $trackrow->{source} = 0; # CD
- if(!$album_created){
- if($makealbum && !$album_created){
- $trackrow->{sourceid} = sprintf("%08ld", $fileid); # fake CDDB-ID
- $albumtitle = gdgentools::audiofile_album($curfile);
- if (length($albumtitle)<1){
- $albumtitle = $dirname;
- }
- }
- else{
- $trackrow->{sourceid} = ""; # no CDDB-ID available
- }
- }
- $trackrow->{tracknb} = gdgentools::audiofile_tracknumber($curfile, $tracknb);
- $trackrow->{mp3file} = $audiofile;
- $trackrow->{condition} = 0; # OK
- $trackrow->{voladjust} = 0;
- $trackrow->{lengthfrm} = 0;
- $trackrow->{startfrm} = 0;
- $trackrow->{bpm} = 0;
- $trackrow->{bitrate} = $fileformat." ".gdgentools::audiofile_bitrate($curfile);
- $trackrow->{created} = "";
- $trackrow->{modified} = "";
- $trackrow->{id} = ""; # a new one will be automatically generated
-
- # get genre if available and translate to gd-genre
- $trackrow->{genre1} = gdgentools::audiofile_genre($dbh, $curfile);
-
- if (length($trackrow->{title})>0 && length($trackrow->{artist})>0){
- ### create track record
-
- print "Insert track in database:$trackrow->{artist} - $trackrow->{title} \n";
- if (!$test){
- if (-e $curfile){
- $trid = gddb::insert_track_record($dbh,
- $trackrow->{artist},$trackrow->{title},
- $trackrow->{genre1},$trackrow->{genre2},$trackrow->{year},
- $trackrow->{lang},$trackrow->{type},$trackrow->{rating},
- $trackrow->{length},$trackrow->{source},$trackrow->{sourceid},
- $trackrow->{tracknb},$trackrow->{mp3file},
- $trackrow->{condition},$trackrow->{voladjust},
- $trackrow->{lengthfrm},$trackrow->{startfrm},$trackrow->{bpm},
- $trackrow->{bitrate},
- $trackrow->{created},$trackrow->{id});
- }
- else{
- print "Error: file ".$trackrow->{mp3file}." dows not exist. Skipping\n";
- }
- }
- else{
- print "TEST>".join ':', " art",$trackrow->{artist}," tit",$trackrow->{title}, ," gen1",$trackrow->{genre1}," gen2",$trackrow->{genre2}," year",$trackrow->{year}, " lang",$trackrow->{lang}," tp",$trackrow->{type}," ratng",$trackrow->{rating}, " len",$trackrow->{length}," src",$trackrow->{source}," cddbid",$trackrow->{sourceid}, " trnb",$trackrow->{tracknb}," file",$trackrow->{mp3file}, " cond",$trackrow->{condition}," vol",$trackrow->{voladjust}, " lenfrm",$trackrow->{lengthfrm}," strt",$trackrow->{startfrm}," bpm",$trackrow->{bpm}, " bitrate",$trackrow->{bitrate}, " created",$trackrow->{created}," id",$trackrow->{id},"\n\n";
- }
-
- ### create album record
- if ($makealbum && !$album_created && length($albumtitle)>0){
- print "Insert album in database:$trackrow->{artist} - $albumtitle \n";
- if (!$test){
- $dbh->do("INSERT INTO album (artist,title,modified,cddbid) "
- ."VALUES (".$dbh->quote($trackrow->{artist})
- .",".$dbh->quote($albumtitle)
- .",CURDATE() "
- .",'".$trackrow->{sourceid}."') ");
- }
- $album_created = 1;
- }
-
- ### put mp3file to target directory
- $tracknb++;
- }
- else{
- print "No title or artist available for $curfile (skipped)\n";
- }
-
- }#end loop
- print("### close database connection\n");
- $dbh->disconnect;
-
- exit;
-
-
-
-###############################################################################
-
-
-
-
generated by cgit v1.2.3 (git 2.25.1) at 2025-10-21 23:29:04 +0000