[Solved]How to get a redirected URL?

SuperStrict

Framework BaH.libcurl
Import brl.System
Import brl.StandardIO

Local curl:TCurlEasy = TCurlEasy.Create()

curl.setOptInt(CURLOPT_HEADER, 1)
curl.setOptString(CURLOPT_URL, "http://162.13.25.174/k0kda1hmb.mp3")
curl.setHeaderCallback( processHeader )

Local res:Int = curl.perform()

curl.cleanup()

Function processHeader:Int(buffer:Byte Ptr, size:Int, data:Object)
		
	Local s:String = String.FromBytes(buffer, size).Trim()
	
	'Check header start
	If s.StartsWith("HTTP/")
		Local pos:Int = s.Find(" ")
		Local code:Int = Int( s[pos..size].Trim() )
		
		DebugLog code
	EndIf
	
	Local pos:Int
	
	'Get location part of the header
	If s.StartsWith("location:")
		Local pos:Int = 10
		
		Local content:String = s[pos..size].Trim()
		
		DebugLog content
	EndIf
	
	Return size
EndFunction

Function processDownload:Int(buffer:Byte Ptr, size:Int, data:Object)
	
	Print "Start writing..." + size
	
	If Not size Then Return size
			
	If Not TStream(data) Then Notify("Error: WriteStream not found.", True); Return False
	'If Not fStream Then fStream = WriteStream(fName)
	TStream(data).WriteBytes(buffer, size)
	
	Return size
EndFunction

Function Get_Redirected_Url(station_url:String)
Local curl:TCurlEasy = TCurlEasy.Create()

curl.setOptInt(CURLOPT_HEADER, 1)
curl.setOptString(CURLOPT_URL, station_url)
curl.setHeaderCallback( processHeader )
Local res:Int = curl.perform()
curl.cleanup()

End Function

Function ProcessHeader:Int(buffer:Byte Ptr, size:Int, data:Object)
' Used to find redirected station urls!		
		Local s:String = String.FromBytes(buffer, size).Trim()
		Local redir:Int=0
		
		'Check header start
		If s.StartsWith("HTTP/")
			Local pos:Int = s.Find(" ")
			Local code:Int = Int( s[pos..size].Trim() )
			'Print code 
			'DebugLog code
            If code <> 302 Then Return 0
        EndIf 
		
		Local pos:Int	
		'Get location part of the header
		If s.StartsWith("location:")
			Local pos:Int = 10
			Local content:String = s[pos..size].Trim()
             station_url:String=content
'            Print station_url 
			'DebugLog "> "+content
		EndIf
        Return size 
EndFunction

Function GetMovedUrL:Int(url:String)

	If Not url Then Return False
	
	Local success:Int = False	' File 302 with new url
	Local done:Int = False		' Exit loop (for retries, etc)
	
	Local host:String
	Local file:String

	Local bytestoread:Int
	Local date:String
	Local server:String
	Local contenttype:String
	Local location:String
	Local pos:Int

	Repeat
	
		If Left (url, 7) = "http://"
			url= Right (url, Len (url) - 7)
		EndIf
		
		Local slash:Int = Instr (url, "/")
	
		If slash
			host = Left (url, slash - 1)
			file = Right (url, Len (url) - slash + 1)
		Else
			host = url
			file = "/"
		EndIf


		Local http:TSocket = CreateTCPSocket ()
		
		If http
		
			If ConnectSocket (http, HostIp (host), 80)
				
				Local www:TStream = CreateSocketStream (http)
				
				WriteLine www, "GET " + file + " HTTP/1.1" ' "GET /" gets default page...
				WriteLine www, "Host: " + host
				WriteLine www, "User-Agent: BlitzGet Deluxe"
				WriteLine www, "Accept: */*"
				WriteLine www, ""
	
				Local response:String = ReadLine (www)
		
				'Print "Server response: " + response
				
				Local replycode:String
				
				If Left (response, 5) = "HTTP/"
					pos = Instr (response, " ")
					replycode = Mid (response, pos + 1, 3)
				EndIf
	
				Local header:String
	
				Repeat
			
					header = ReadLine (www)
			
					Local reply:String = ""
	
					pos = Instr (header, ": ")
	
					If pos
						reply = Left (header, pos + 1)
					EndIf
			
					Select Lower (reply)
						Case "content-length: "
							bytestoread = Int (Right (header, Len (header) - Len (reply)))
						Case "location: "
							location = Right (header, Len (header) - Len (reply))
							'Print location 
					End Select
	
					'If header Then 'Print header ' Skip blank line (if header = "" then nothing is printed)...
									
				Until header$ = "" Or (Eof (www))
	
				Select replycode$
				          
					Case "200" ' File found...
  					    'Print "found"
		                done:Int=True					
					Case "404" ' File Not found...		
  					    'Print "not found"
 		                done:Int=True										
					Case "301" ' File permanently moved...					
'						station_url:String = location
'                       Print "301 "+location  
 		                done:Int=True
'                    	success:Int=True 
					Case "302" ' File temporarily moved...			
						station_url:String = location
'                       Print "302 "+location  
 		                done:Int=True
                    	success:Int=True 
					Case "303" ' File moved...
'						station_url:String = location
 		                done:Int=True
					Case "307" ' Naughty...                
'						station_url:String = location
 		                done:Int=True					
'                   Default 
'                       done:Int=True
				End Select

	
			EndIf			
			CloseSocket http
			
		EndIf
        done:Int=True

	Until done
		
	Return success
	
End Function

WriteLine www, "User-Agent: BlitzGet Deluxe"