port install icecast2

port install icecast

(* on lance Jack *)
do shell script "/usr/local/bin/jackd -R -d coreaudio -r 44100 -p 1024 -o 2 -i 2 &> /dev/null & echo $!"
(*on lance Icecast *)
do shell script "/opt/local/bin/icecast -c /opt/local/etc/icecast.xml &> /dev/null & echo $!"
delay 1
(* on lance darkice *)
do shell script "/opt/local/bin/darkice -c /opt/local/etc/darkice.cfg &> /dev/null & echo $!"
set numero to result
(* on modifie la sortie audio *)
tell application "System Preferences"
	activate
	set current pane to pane "com.apple.preference.sound"
	reveal (first anchor of current pane whose name is "output")
end tell

tell application "System Events"
	launch
	tell process "System Preferences"
		set theRows to every row of table 1 of scroll area 1 of tab group 1 of window 1
		repeat with aRow in theRows
			if (value of text field 1 of aRow) is equal to "JackRouter" then
				set selected of aRow to true
				exit repeat
			end if
		end repeat
	end tell
end tell

quit application "System Preferences"
(* on fait relier iTunes à Darkice par Jack *)
do shell script "/Applications/Jack/Extras/Developer/example-clients/jack_connect iTunes:out1 darkice-" & numero & ":left"
do shell script "/Applications/Jack/Extras/Developer/example-clients/jack_connect iTunes:out2 darkice-" & numero & ":right"

(* ceci permet de mettre à jour les metatag à chaque nouveau morceau joué par iTunes*)
global newTrack
global oldTrack
global dLogs

set oldTrack to anything

on idle
	
	tell application "iTunes"
		if player state is playing then
			set newTrack to current track
			if newTrack is not oldTrack then
				tell application "iTunes" to set currentTrack to name of current track
				tell application "iTunes" to set currentArtist to artist of current track
				
				set theTextEnc to ""
				repeat with eachChar in characters of currentArtist
					set useChar to eachChar
					set eachCharNum to ASCII number of eachChar
					if eachCharNum = 32 then
						set useChar to "+"
					else if (eachCharNum ≠ 42) and (eachCharNum ≠ 95) and (eachCharNum < 45 or eachCharNum > 46) and (eachCharNum < 48 or eachCharNum > 57) and (eachCharNum < 65 or eachCharNum > 90) and (eachCharNum < 97 or eachCharNum > 122) then
						set firstDig to round (eachCharNum / 16) rounding down
						set secondDig to eachCharNum mod 16
						if firstDig > 9 then
							set aNum to firstDig + 55
							set firstDig to ASCII character aNum
						end if
						if secondDig > 9 then
							set aNum to secondDig + 55
							set secondDig to ASCII character aNum
						end if
						set numHex to ("%" & (firstDig as string) & (secondDig as string)) as string
						set useChar to numHex
					end if
					set theTextEnc to theTextEnc & useChar as string
				end repeat
				
				set theTextEnc2 to ""
				repeat with eachChar in characters of currentTrack
					set useChar to eachChar
					set eachCharNum to ASCII number of eachChar
					if eachCharNum = 32 then
						set useChar to "+"
					else if (eachCharNum ≠ 42) and (eachCharNum ≠ 95) and (eachCharNum < 45 or eachCharNum > 46) and (eachCharNum < 48 or eachCharNum > 57) and (eachCharNum < 65 or eachCharNum > 90) and (eachCharNum < 97 or eachCharNum > 122) then
						set firstDig to round (eachCharNum / 16) rounding down
						set secondDig to eachCharNum mod 16
						if firstDig > 9 then
							set aNum to firstDig + 55
							set firstDig to ASCII character aNum
						end if
						if secondDig > 9 then
							set aNum to secondDig + 55
							set secondDig to ASCII character aNum
						end if
						set numHex to ("%" & (firstDig as string) & (secondDig as string)) as string
						set useChar to numHex
					end if
					set theTextEnc2 to theTextEnc2 & useChar as string
				end repeat
				
				set theURL to "http://admin:hackme@adresseIPduserveurIcecast:8000/admin/metadata.xsl?song=" & theTextEnc & "+-+" & theTextEnc2 & "&mount=%2Fsample96&mode=updinfo&charset=UTF-8"
				do shell script "curl '" & theURL & "'"
			end if
		end if
	end tell
	
	return 3
end idle

(* si on quitte l'application, on ferme tous les processus en cours et on réaffecte la sortie audio aux préférences habituelles*)

on quit
	do shell script "killall icecast"
	
	tell application "System Preferences"
		activate
		set current pane to pane "com.apple.preference.sound"
		reveal (first anchor of current pane whose name is "output")
	end tell
	
	tell application "System Events"
		launch
		tell process "System Preferences"
			set theRows to every row of table 1 of scroll area 1 of tab group 1 of window 1
			repeat with aRow in theRows
				if (value of text field 1 of aRow) is equal to "Haut-parleurs internes" then
					set selected of aRow to true
					exit repeat
				end if
			end repeat
		end tell
	end tell
	
	quit application "System Preferences"
	do shell script "killall jackd"
	continue quit
end quit

port install icecast

port install faac 
port install faad2 
port install flac 
port install id3lib 
port install lame 
port install libid3tag 
port install libvorbis

cd dossier contenant darkice

./configure --prefix=/opt/local/ --with-lame-prefix=/opt/local/ --with-vorbis-prefix=/opt/local/ --with-faac-prefix=/opt/local/

make
make install

<admin-user>hackme</admin-user>
        <admin-password>hackme</admin-password>

# sample DarkIce configuration file, edit for your needs before using
# see the darkice.cfg man page for details

# this section describes general aspects of the live streaming session
[general]
duration        = 0        # duration of encoding, in seconds. 0 means forever
bufferSecs      = 2         # size of internal slip buffer, in seconds
reconnect       = yes       # reconnect to the server(s) if disconnected

# this section describes the audio input that will be streamed
[input]
device          = jack_auto # OSS DSP soundcard device for the audio input  
                            # the string â��jackâ��, to  have  an  unconnected Jack port, 
                            # or â��jack_autoâ��  to  automatically  make Jack connect to the first source.
sampleRate      = 44100     # sample rate in Hz. try 11025, 22050 or 44100
bitsPerSample   = 16        # bits per sample. try 16
channel         = 2         # channels. 1 = mono, 2 = stereo

# this section describes a streaming connection to an IceCast server
# there may be up to 8 of these sections, named [icecast-0] ... [icecast-7]
# these can be mixed with [icecast2-x] and [shoutcast-x] sections
# [icecast-0]
# bitrateMode     = cbr       # constant bit rate
# bitrate         = 96        # bitrate of the mp3 stream sent to the server
# quality         = 0.8       # encoding quality
# server          = yp.yourserver.com
#                             # host name of the server
# port            = 8000      # port of the IceCast server, usually 8000
# password        = hackme    # source password to the IceCast server
# mountPoint      = sample96  # mount point of this stream on the IceCast server
# name            = DarkIce trial
#                             # name of the stream
# description     = This is only a trial
#                             # description of the stream
# url             = http://www.yourserver.com
#                             # URL related to the stream
# genre           = my own    # genre of the stream
# public          = yes       # advertise this stream?

# this section describes a streaming connection to an IceCast2 server
# there may be up to 8 of these sections, named [icecast2-0] ... [icecast2-7]
# these can be mixed with [icecast-x] and [shoutcast-x] sections
[icecast2-0]
bitrateMode     = abr       # average bit rate
format          = mp3       # vorbis    # format of the stream: ogg vorbis
bitrate         = 96        # bitrate of the stream sent to the server
server          = 127.0.0.1
                            # host name of the server
port            = 8000      # port of the IceCast2 server, usually 8000
password        = hackme # source password to the IceCast2 server
mountPoint      = iTunesRadio  # mount point of this stream on the IceCast2 server
name            = iTunesRadio # name of the stream
description     = ITunes depuis mon Mac vers ma télé
                            # description of the stream
url             = http://192.168.0.14/iTunesRadio
                            # URL related to the stream
genre           = my own    # genre of the stream
public          = no       # advertise this stream?

# this section describes a streaming connection to a ShoutCast server
# there may be up to 8 of these sections, named [shoutcast-0] ... [shoutcast-7]
# these can be mixed with [icecast-x] and [icecast2-x] sections
#  [shoutcast-0]
#  bitrateMode     = vbr       # variable bit rate mode
#  quality         = 0.5       # encoding quality
#  server          = 127.0.0.1
#                              # host name of the server
#  port            = 8001      # source port of the ShoutCast server, usually 8001
#  password        = hackme    # source password to the ShoutCast server
#  name            = DarkIce trial
#                              # name of the stream
#  url             = http://www.yourserver.com
#                              # URL related to the stream
#  genre           = my own    # genre of the stream
#  public          = yes       # advertise this stream?
#  irc             = irc.yourserver.com
#                              # IRC info related to the stream
#  aim             = aim here  # AIM info related to the stream
#  icq             = I see you too
#                              # ICQ info related to the stream
#  

icecast -c icecast.xml &

darkice -c darkice.cfg &

tell application "Nicecast"
start broadcast
end tell