catori 0.2.5

data/instalar.txt

@@ -0,0 +1,19 @@
+Primero, mis disculpas por el procedimiento chapucero, pero como ustedes son mas inteligentes que yo, lo mas probable es que encuentren alguna forma de instalarlo de forma mas racional.
+
+Lo primero es conseguir ruby-gem, desde su distro favorita. 
+Despues, desde la linea de comandos como root deben hacer:
+
+# gem install catori-0.2.5.gem
+
+Una vez compiladas las extensiones (espero), deben crear una base de datos en su servidor Mysql y hacer, ahora como usuarios normales
+
+$ catori --install --user USER --password PW --database DB
+
+Con eso deberia estar lista la estructura basica.
+
+Para ver las funcionalidades del programa, se puede hacer
+
+$ catori
+ 
+Viendose en ese momento glorioso el use clasico.
+

data/install.rb

@@ -0,0 +1,11 @@
+#!/bin/env ruby
+
+base=File.dirname(__FILE__)
+Dir["./ext/*/extconf.rb"].each {|ext|
+	dir=File.dirname(ext)
+	puts "Building #{dir}"
+
+	Dir.chdir(dir) do
+		`ruby extconf.rb && make && mv *.so ../../lib`
+	end
+}

data/lib/audioinfo.rb

@@ -0,0 +1,321 @@
+# AudioInfo: entrega informaci�n sobre distintos archivos de audio
+# Por el momento, puede manejar
+# * flac
+# * ogg
+# * mp3.
+# * shn
+# * ape
+# * soportados por audiofile : wav, aiff, snd, au
+
+#require "rubygems"
+gem "ruby-mp3info", ">=0.5.1"
+require "mp3info"
+require "iconv"
+require "taglib"
+require "rmac"
+require "vorbisfile"
+require "flac"
+require "audiofile"
+require "mpc"
+
+class String
+	def encoding
+	cuenta=0
+	ascii=true
+	self.each_byte{|byte|
+		if cuenta>0
+			if (byte >> 6) != 0b10
+				return "iso8859"
+			else
+				cuenta-=1
+			end
+		else
+			next if(byte<128)
+			ascii=false
+			if (byte >> 5) == 0b110 
+				cuenta=1
+			elsif (byte >> 4) == 0b1110
+				cuenta=2
+			elsif (byte >> 3) == 0b11110
+				cuenta=3
+			else
+				return "iso8859"
+			end
+		end
+	}
+	ascii ? "ascii":"utf8"
+	end
+	def to_utf8
+		(self.encoding=='iso8859') ? Iconv.new("utf-8","iso-8859-1").iconv(self.to_s) : self
+	end
+end
+
+module AudioInfo
+	SUPPORT=%w{flac ogg mp3 wav aiff au snd shn ape mpc}
+	# entrega un objeto AudioInfo::Tipo
+	def self.infoFile(sFile)
+		# primero, identificar el tipo de archivo
+		return false if !File.stat(sFile).file?
+		return false  if !(tipo=determinarTipoFile(sFile)) and !(tipo=determinarTipoExtension(sFile))
+		# ok, existe. Ahora, obtengo la informaci�n sobre �l de la manera 'legal'
+		begin
+			oInfoTags=self.const_get(tipo.capitalize.intern).new(sFile)
+		rescue StandardError => ex
+			print "Error in file #{sFile} "+ex
+			print ex.backtrace
+			return false
+		end
+		# Si falta alg�n dato, lo trato de obtener del nombre del archivo
+		if oInfoTags.incompleto?
+			# ahora verifico que esten todos los datos en orden.
+			oNombre=AudioInfo::FileName.new(sFile)
+			oInfoTags.merge(oNombre)
+			# si todav�a falta algo, lo arreglo
+			oInfoTags.album='Desconocido' if oInfoTags.album.nil?
+			oInfoTags.artist='Desconocido' if oInfoTags.artist.nil?
+		end
+		# Si no, busco por el nombre
+		return oInfoTags
+	end
+	# Determina el tipo de archivo, a partir del comando file
+	def self.determinarTipoFile(sFile)
+		sTipo=`file -L -b \"#{sFile}\"`
+		if sTipo=~/^FLAC/
+			return 'flac'
+		elsif sTipo=~/^MP3/
+			return 'mp3'
+	    elsif sTipo=~/Ogg.*Vorbis audio/
+			return 'ogg'
+		end
+		false
+	end
+	# Determina el tipo de archivo, a partir de su extensi�n
+	def self.determinarTipoExtension(sFile)
+		sSupport=SUPPORT.join('|')
+		if sFile=~/\.(#{sSupport})$/i
+			return $1.downcase
+		else
+			return false
+		end
+	end
+	# Recolección de información, a partir del tipo de archivo
+	class Tipo
+		attr_accessor :title, :artist, :tracknumber, :album, :year, :sample_rate, :bps, :time, :bits_per_sample, :channels
+		attr_reader :sFile, :size
+		TAGS=['title','artist','tracknumber','album','year']
+		private
+		# Aqu� se ingresan las operaciones para procesar la informaci�n
+		def parse
+		end
+		public
+		# * sFile: Nombre del archivo
+		def initialize(sFile)
+			@sFile=sFile
+			@size=File.stat(@sFile).size
+			parse
+			#@sFile=@sFile.to_utf8
+		end
+		# entrega los kbps para el archivo
+		def kbps
+			@bps/1024.to_f
+		end
+		# arregla aquellos valores de tag con formatos especiales
+		def arreglarValor(tag,valor)
+		valor.gsub!('_',' ')
+			case tag
+			when 'tracknumber'
+				if valor=~/(\d+)\/\d+/
+					valor=$1
+				elsif valor=~/\[(\d+)\]/
+					valor=$1
+				elsif valor=~/^(\d+)/
+					valor=$1
+				end
+				valor=nil if valor !~ /\d+/
+			when 'year'
+				if valor=~/(\d+)[-\/:](\d+)[-\/:](\d+)/
+					valor=$3 if $3.length==4
+					valor=$1 if $1.length==4
+				elsif valor=~/(\d+)\/(\d+)/
+					valor=$1
+				elsif valor=~/(\d+)/
+					valor=$1
+				else
+					valor=""
+				end
+			end
+			valor.to_utf8 if valor.respond_to?('to_utf8')
+		end
+		def arreglarValoresEstandar(aInfo)
+			aInfo.each { |tagprop,tagself|
+				valor=yield(tagprop)
+				valor=arreglarValor(tagself,valor.to_s)
+				self.send(tagself+"=",valor) unless (valor.nil? or valor=="")
+			}		
+		end
+		
+		# retorna true si falta alguno de los tag basicos, definidos en TAGS
+		def incompleto?
+			TAGS.detect {|tag| send(tag).nil?}
+		end
+		# recoje los valores de otro AudioInfo::Tipo y los une a los propios
+		def merge(oInfo)
+			raise "No es Tipo" if !oInfo.kind_of? AudioInfo::Tipo
+			TAGS.each {|tag|
+				tag_1=send(tag)
+				tag_2=oInfo.send(tag)
+				#instance_variable_set(var,tag_2) if tag_1.nil? and !tag_2.nil?
+				send(tag+'=',tag_2) if tag_1.nil? and !tag_2.nil?
+			}
+		end
+	end
+	class Virtual < Tipo
+		attr_reader :cd
+		def initialize(cd,sFile)
+			@cd=cd
+			@sFile=sFile
+		end
+	end
+	class Audiofile < Tipo
+		def parse
+		::AudioFile.open(@sFile) do |file|
+        	@sample_rate=file.rate
+			@channels=file.channels
+			@bits_per_sample=file.bits
+			@time=file.frame_count/file.rate.to_f
+			end
+		end
+	end
+	class Wav < Audiofile
+	end
+	class Aiff < Audiofile
+	end
+	class Au < Audiofile
+	end
+	class Snd < Audiofile
+	end
+	class Ogg < Tipo
+		def parse
+		aInfo={"title"=>"title","artist"=>"artist","album"=>"album", "date"=>"year", "tracknumber"=>"tracknumber"}
+		f=File.open(@sFile, "r")
+		vf = ::Ogg::VorbisFile.new
+		vf.open(f)
+		comments=vf.comments(-1)
+		@channels=vf.channels(-1)
+		@sample_rate=vf.sample_rate(-1)
+		@time=vf.time_total(-1)
+		@bps=vf.bitrate(-1)
+		arreglarValoresEstandar(aInfo) {|tag| comments[tag]}
+		vf.close
+		end
+	end
+	class Flac < Tipo
+		def parse
+			aInfo={"title"=>"title","artist"=>"artist","album"=>"album", "date"=>"year", "tracknumber"=>"tracknumber"}
+			oInfo=::Flac.info(@sFile)
+			@time = oInfo.time
+			@sample_rate = oInfo.sample_rate;
+			@channels= oInfo.channels;
+			@bits_per_sample=oInfo.bits_per_sample
+			@bps=(@size * 8 / @time)
+			arreglarValoresEstandar(aInfo) {|tag| 
+			oInfo.comments[tag]}	
+		end
+
+	end
+	class FileName < Tipo
+		# Define las estructuras de nombre de archivo que pueden ser parseadas
+		ESTRUCTURAS=[
+					"%a-%b-%n-%t",
+					"%a-%y-%b/%n-%t",
+					"%a-%y-%b/%c/%n-%t",
+					"%a-%b/%c/%n-%t",
+					"%a-%n-%t",
+					"%a/%b\\(%y\\)/%n-%t",
+					"%a/%y-%b/%n-%t",
+					"%a/%y-%b/%n\\.%t",
+					"%a/%y-%b/%t",
+					  "%a-%b/%n-%t",
+					  "%a-%b/%t",
+					  "%a/%n-%t",
+					  "%n-%t",
+					  "%a-%t",
+					  "%a/%t",
+					  "%t"]
+		def parse
+		hEquil={'%a'=>'artist','%y'=>'year','%b'=>'album','%n'=>'tracknumber', '%t'=>'title'}
+		x=0
+		sFile=@sFile.gsub("_"," ")
+		sSupport=SUPPORT.join('|')
+		ESTRUCTURAS.each {|sTexto|
+			aSec=sTexto.scan(/%[abcnty]/)
+			rx=Regexp.new(".*/"+sTexto.gsub(/%[a|b|t]/, '\s*?([^/]+?)\s*?').gsub("%y", '\s*?(\d{4,4})\s*?').gsub("%n", '\s*?(\d{1,2})\.?\s*?').gsub("%c",'CD[\s-]?(\d)') + "\.(#{sSupport})$")
+			if match=rx.match(sFile)
+				puts "Patron:"+sTexto if $DEBUG
+				x=1
+				aSec.each{|tag|
+					valor=match[x].strip
+					if tag!='%n' and tag!='%y' and tag!='%c' and valor=~/^\d+$/
+					puts "#{sFile} : Valor num�rico donde no corresponde en #{tag}:[#{valor}] #{rx}"
+					next 2
+					end
+					case tag
+						when '%c'
+							@album+="[CD "+valor+"]"
+						when '%n'
+							@tracknumber=valor.to_i
+						when '%y'
+							@year=valor.to_i
+						else
+						puts "#{sFile} : Posible error - Valor numérico donde no corresponde en #{tag}:#{valor}" if valor=~/^\d+$/
+						send(hEquil[tag]+'=',arreglarValor(tag,valor))
+					end
+					x+=1
+				}
+				break;
+			end # fin if
+		}
+		end
+	end
+	class Mp3 < Tipo
+		def parse
+			aInfo={'title'=>'title', 'artist'=>'artist', 'album'=>'album', 'tracknum'=>'tracknumber','year'=>'year'}
+			::Mp3Info.open(@sFile) do |mp3info|
+				@sample_rate=mp3info.samplerate
+				@channels=2
+				@bits_per_sample=16
+				@time=mp3info.length
+				@bps=mp3info.bitrate * 1024
+				arreglarValoresEstandar(aInfo) {|tag| mp3info.tag[tag]}
+			end
+		end
+	end
+	class Ape < Tipo
+		def parse
+		aInfo={'title'=>'title', 'artist'=>'artist', 'album'=>'album', 'track'=>'tracknumber','year'=>'year'}
+			begin
+			oInfo=Mac.info(@sFile)
+			@sample_rate=oInfo.samplerate
+			@channels=oInfo.channels
+			@time=oInfo.length
+			@bps=(@size*8/@time)
+			arreglarValoresEstandar(aInfo) {|tag| oInfo.send(tag)}
+			rescue Exception => bang
+				puts bang.to_s 
+			end
+		end
+	end
+	class Mpc < FileName
+		def parse
+			aInfo={'title'=>'title', 'artist'=>'artist', 'album'=>'album', 'tracknumber'=>'tracknumber','year'=>'year'}
+			oInfo=::Mpc.info(@sFile)
+			@sample_rate=oInfo.sample_rate
+			@channels=oInfo.channels
+			@time=oInfo.time
+			@bps=oInfo.bps
+			arreglarValoresEstandar(aInfo) {|tag| oInfo.send(tag)}
+		end
+	end
+	class Shn < FileName
+	end
+end

data/lib/catori.rb

@@ -0,0 +1,131 @@
+#!/usr/bin/env ruby
+# =bymain
+# Catori: El mas grandioso y ocioso catalogador de musica
+# escrito en ruby y orientado a la linea de comandos.
+require 'getoptlong'
+require 'audioinfo'
+require 'catori/Catalogador'
+require 'catori/Db'
+module Catori
+	VERSION="0.2.3"
+	CONFIG_DIR=File.expand_path("~/.config/php.apsique.com")
+	CONFIG_FILE=CONFIG_DIR+"/catori.conf"
+	LIB_DIR = File.expand_path(File.dirname(__FILE__)+"/../lib")
+	def self.version
+	"Catori "+VERSION
+	end
+	def self.usage
+<<USAGE
+Use: catori [--catalog DISC_ID [--device PATH] [--mount] ] [--query QUERY] [--help] [--version] [--edit]
+
+Store the information about music files on PATH in DISC_ID tag. 
+
+Catalog a CD / DVD: catori [--mount] [--device PATH] --catalog CD_TITLE
+Retrieve information: catori --query [--artist ARTIST] [--title TITLE] [--file FILE]
+Install on a Mysql Database: catori --install --database DB --user USER --password PW
+Help: catori --help
+Version: catori --version
+
+Send bugs to clbustos at gmail.com
+
+USAGE
+	end
+	class App
+		def run
+		iArgs=ARGV.size
+		parser = GetoptLong.new
+		parser.set_options(
+		['--catalog',				'-c', 	GetoptLong::REQUIRED_ARGUMENT],
+		['--gui',							GetoptLong::NO_ARGUMENT],
+		['--install',						GetoptLong::NO_ARGUMENT],
+		['--user',							GetoptLong::REQUIRED_ARGUMENT],
+		['--database',						GetoptLong::REQUIRED_ARGUMENT],
+		['--password',						GetoptLong::REQUIRED_ARGUMENT],
+		['--pretend',				'-p',	GetoptLong::NO_ARGUMENT],
+		['--mount',					'-m', 	GetoptLong::NO_ARGUMENT],
+		['--device',           		'-d', 	GetoptLong::REQUIRED_ARGUMENT],
+		['--help',                        	GetoptLong::NO_ARGUMENT],
+		['--version',                     	GetoptLong::NO_ARGUMENT],
+		['--query',					'-u', 	GetoptLong::NO_ARGUMENT],
+		['--edit',					'-e',	GetoptLong::NO_ARGUMENT],
+		['--artist',						GetoptLong::REQUIRED_ARGUMENT],
+		['--album',							GetoptLong::REQUIRED_ARGUMENT],
+		['--title',							GetoptLong::REQUIRED_ARGUMENT],
+		['--file',							GetoptLong::REQUIRED_ARGUMENT],
+		['--delete',						GetoptLong::NO_ARGUMENT],
+		['--cd',							GetoptLong::REQUIRED_ARGUMENT]
+		)
+		parser.each_option do |name, arg|
+			eval "$OPT_#{name.sub(/^--/, '').gsub(/-/, '_').upcase} = '#{arg}'"
+		end
+			hQuery=Hash.new
+			hQuery['artist']=$OPT_ARTIST if !$OPT_ARTIST.nil? 
+			hQuery['album']=$OPT_ALBUM if !$OPT_ALBUM.nil? 
+			hQuery['title']=$OPT_TITLE if !$OPT_TITLE.nil?
+			hQuery['file']=$OPT_FILE if !$OPT_FILE.nil? 
+			hQuery['cd']=$OPT_CD if !$OPT_CD.nil? 
+			
+		if iArgs==0 or !$OPT_HELP.nil?
+			puts Catori::usage
+		elsif !$OPT_GUI.nil?
+			require 'catori/Gui'
+			require 'catori/Query'
+			
+			gui=Catori::Gui.new(hQuery)
+			gui.start
+			exit
+		elsif !$OPT_INSTALL.nil?
+			require 'catori/Installer'
+			if $OPT_DATABASE.nil? or $OPT_USER.nil? or $OPT_PASSWORD.nil?
+				puts "Use\ncatori --install --database DATABASE --user USER --password PASSWORD"
+				exit
+			end
+			Catori::Installer.install($OPT_DATABASE,$OPT_USER,$OPT_PASSWORD)
+		elsif !$OPT_QUERY.nil?
+			raise "Need info for query" if hQuery.size==0
+			require 'catori/Query'
+			q=Catori::Query.new(hQuery)
+			puts q.plain
+		elsif !$OPT_EDIT.nil?
+			raise "Need info for query" if hQuery.size==0
+			require 'catori/Query'
+			require 'catori/XML'
+			q=Catori::Query.new(hQuery)
+			temp=`mktemp /tmp/catori.XXXXXX`.strip
+			if temp
+				fp=File.open(temp,"w")
+				fp.puts(q.xml)
+				fp.close
+				fecha=File.stat(temp).mtime
+				system("$EDITOR #{temp}")
+				if(File.stat(temp).mtime!=fecha)
+					xml=Catori::XML.new(temp)
+					if(xml.rastrea and i=xml.actualizar)
+						$stderr.puts "Actualizados "+i.to_s+" archivos"
+					else
+						$stderr.puts "Se produjo un error!"
+					end
+				else
+					$stderr.puts "No hay modificaciones"
+				end
+				
+			else
+			raise "Can't make a temp file"
+			end
+		elsif !$OPT_VERSION.nil?
+			puts Catori::version
+		elsif !$OPT_CATALOG.nil?
+			$stderr.puts "Iniciando"
+			device=$OPT_DEVICE.nil? ? '/mnt/cdrom' : $OPT_DEVICE;
+			`mount #{device} &> /dev/null` if $OPT_MOUNT
+			c=Catori::Catalogador.new($OPT_CATALOG,!$OPT_PRETEND.nil?,device)
+			c.deletePrevious if !$OPT_DELETE.nil?
+			c.rastrea
+			`umount #{device} &> /dev/null` if $OPT_MOUNT
+			`eject #{device} &> /dev/null`if $OPT_MOUNT
+			$stderr.puts "Listo"
+		end
+		end
+	end
+end
+