Adding GetLibs.vbs. This file is a full replacement for GetLibs.bat and replaces...

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@71 d0543943-73ff-0310-b7d9-9358b9ac24b2

diff --git a/w32/vsnet/GetLibs.vbs b/w32/vsnet/GetLibs.vbs
new file mode 100644 (file)
index 0000000..a3ffa88
--- /dev/null
+++ b/w32/vsnet/GetLibs.vbs
@@ -0,0 +1,179 @@
+On Error Resume Next\r
+Set WshShell = CreateObject("WScript.Shell")\r
+Set FSO = CreateObject("Scripting.FileSystemObject")\r
+Set WshSysEnv = WshShell.Environment("SYSTEM")\r
+Set xml = CreateObject("Microsoft.XMLHTTP")\r
+Set oStream = createobject("Adodb.Stream")\r
+\r
+ScriptDir=Left(WScript.ScriptFullName,Len(WScript.ScriptFullName)-Len(WScript.ScriptName))\r
+\r
+LibDestDir=Showpath(ScriptDir & "..\..\libs")\r
+UtilsDir=Showpath(ScriptDir & "Tools")\r
+\r
+GetTarGZObjects UtilsDir\r
+\r
+If Not FSO.FolderExists(LibDestDir & "osip") Then\r
+       WgetUnTarGz "http://www.antisip.com/download/libosip2-2.2.1.tar.gz", LibDestDir\r
+       RenameFolder LibDestDir & "libosip2-2.2.1", "osip"\r
+       FSO.CopyFile Utilsdir & "osipparser2.vcproj", LibDestDir & "osip\platform\vsnet\", True\r
+       Upgrade LibDestDir & "osip\platform\vsnet\osipparser2.vcproj", LibDestDir & "osip\platform\vsnet\osipparser2.vcproj"\r
+       Upgrade LibDestDir & "osip\platform\vsnet\osip2.vcproj", LibDestDir & "osip\platform\vsnet\osip2.vcproj"\r
+End If\r
+\r
+If Not FSO.FolderExists(LibDestDir & "libeXosip2") Then \r
+       WgetUnTarGz "http://www.antisip.com/download/libeXosip2-1.9.1-pre17.tar.gz", LibDestDir\r
+       RenameFolder LibDestDir & "libeXosip2-1.9.1-pre17", "libeXosip2"\r
+       Upgrade LibDestDir & "libeXosip2\platform\vsnet\eXosip.vcproj", LibDestDir & "libeXosip2\platform\vsnet\eXosip.vcproj"\r
+End If\r
+\r
+If Not FSO.FolderExists(LibDestDir & "jthread-1.1.2") Then \r
+       WgetUnTarGz "http://research.edm.luc.ac.be/jori/jthread/jthread-1.1.2.tar.gz", LibDestDir\r
+End If\r
+\r
+If Not FSO.FolderExists(LibDestDir & "jrtplib") Then \r
+       WgetUnTarGz "http://research.edm.luc.ac.be/jori/jrtplib/jrtplib-3.3.0.tar.gz", LibDestDir\r
+       RenameFolder LibDestDir & "jrtplib-3.3.0", "jrtplib"\r
+End If\r
+\r
+If Not FSO.FolderExists(LibDestDir & "apr") Then \r
+       WgetUnTarGz "ftp://ftp.wayne.edu/apache/apr/apr-1.2.2.tar.gz", LibDestDir\r
+       RenameFolder LibDestDir & "apr-1.2.2", "apr"\r
+       Unix2dos LibDestDir & "apr\libapr.dsp"\r
+       Upgrade LibDestDir & "apr\libapr.dsp", LibDestDir & "apr\libapr.vcproj"\r
+End If \r
+\r
+WScript.Echo "Download Complete"\r
+\r
+Sub RenameFolder(FolderName, NewFolderName)\r
+       Set Folder=FSO.GetFolder(FolderName)\r
+       Folder.Name = NewFolderName\r
+End Sub\r
+\r
+Sub Upgrade(OldFileName, NewFileName)\r
+\r
+       If WshSysEnv("VS80COMNTOOLS")<> "" Then \r
+               Set vcProj = CreateObject("VisualStudio.VCProjectEngine.8.0")\r
+       Else If WshSysEnv("VS71COMNTOOLS")<> "" Then\r
+               Set vcProj = CreateObject("VisualStudio.VCProjectEngine.7.1")\r
+       Else\r
+               Wscript.Echo("Did not find any Visual Studio .net 2003 or 2005 on your machine")\r
+               WScript.Quit(1)\r
+       End If\r
+       End If\r
+       \r
+       \r
+'      WScript.Echo("Converting: "+ OldFileName)\r
+       \r
+       Set vcProject = vcProj.LoadProject(OldFileName)\r
+       If Not FSO.FileExists(vcProject.ProjectFile) Then\r
+               '   // specify name and location of new project file\r
+               vcProject.ProjectFile = NewFileName\r
+       End If\r
+       '   // call the project engine to save this off. \r
+       '   // when no name is shown, it will create one with the .vcproj name\r
+       vcProject.Save()\r
+'      WScript.Echo("New Project Name: "+vcProject.ProjectFile+"")\r
+\r
+End Sub\r
+\r
+\r
+Sub Unix2dos(FileName)\r
+       Const OpenAsASCII = 0  ' Opens the file as ASCII (TristateFalse) \r
+       Const OpenAsUnicode = -1  ' Opens the file as Unicode (TristateTrue) \r
+       Const OpenAsDefault = -2  ' Opens the file using the system default \r
+       \r
+       Const OverwriteIfExist = -1 \r
+       Const FailIfNotExist   =  0 \r
+       Const ForReading       =  1 \r
+       \r
+       Set fOrgFile = FSO.OpenTextFile(FileName, ForReading, FailIfNotExist, OpenAsASCII)\r
+       sText = fOrgFile.ReadAll\r
+       fOrgFile.Close\r
+       sText = Replace(sText, vbLf, vbCrLf)\r
+       Set fNewFile = FSO.CreateTextFile(FileName, OverwriteIfExist, OpenAsASCII)\r
+       fNewFile.WriteLine sText\r
+       fNewFile.Close\r
+End Sub\r
+       \r
+Sub WgetUnTarGZ(URL, DestFolder)\r
+       If Right(DestFolder, 1) <> "\" Then DestFolder = DestFolder & "\" End If\r
+       StartPos = InstrRev(URL, "/", -1, 1)   \r
+       strlength = Len(URL)\r
+       filename=Right(URL,strlength-StartPos)\r
+       Wget URL, DestFolder\r
+       UnTarGZ Destfolder & filename, DestFolder\r
+End Sub\r
+\r
+Sub GetTarGZObjects(DestFolder)\r
+       Dim oExec\r
+\r
+       If Right(DestFolder, 1) <> "\" Then DestFolder = DestFolder & "\" End If\r
+\r
+       If Not FSO.FileExists(DestFolder & "XTar.dll") Then \r
+               Wget "http://www.sofaswitch.org/mikej/XTar.dll", DestFolder\r
+       End If\r
+\r
+       If Not FSO.FileExists(DestFolder & "XGzip.dll") Then \r
+               Wget "http://www.sofaswitch.org/mikej/XGZip.dll", DestFolder\r
+       End If\r
+       \r
+       Set oExec = WshShell.Exec("regsvr32 /s " & DestFolder & "XTar.dll")\r
+       \r
+       Do While oExec.Status = 0\r
+            WScript.Sleep 100\r
+       Loop\r
+       \r
+       Set oExec = WshShell.Exec("regsvr32 /s " & DestFolder & "XGZip.dll")\r
+       \r
+       Do While oExec.Status = 0\r
+            WScript.Sleep 100\r
+       Loop\r
+End Sub\r
+\r
+Sub UnTarGZ(TGZfile, DestFolder)\r
+\r
+       Set objTAR = WScript.CreateObject("XStandard.TAR")\r
+       Set objGZip = WScript.CreateObject("XStandard.GZip")\r
+'      wscript.echo("Extracting: " & TGZfile)\r
+       objGZip.Decompress TGZfile, Destfolder\r
+       objTAR.UnPack Left(TGZfile, Len(TGZfile)-3), Destfolder\r
+       \r
+       Set objTAR = Nothing\r
+       Set objGZip = Nothing\r
+End Sub\r
+\r
+\r
+Sub Wget(URL, DestFolder)\r
+\r
+       StartPos = InstrRev(URL, "/", -1, 1)   \r
+       strlength = Len(URL)\r
+       filename=Right(URL,strlength-StartPos)\r
+       If Right(DestFolder, 1) <> "\" Then DestFolder = DestFolder & "\" End If\r
+\r
+'      Wscript.echo("Downloading: " & URL)\r
+       xml.Open "GET", URL, False\r
+       xml.Send\r
+       \r
+       Const adTypeBinary = 1\r
+       Const adSaveCreateOverWrite = 2\r
+       Const adSaveCreateNotExist = 1 \r
+       \r
+       oStream.type = adTypeBinary\r
+       oStream.open\r
+       oStream.write xml.responseBody\r
+       \r
+       ' Do not overwrite an existing file\r
+       'oStream.savetofile DestFolder & filename, adSaveCreateNotExist\r
+       \r
+       ' Use this form to overwrite a file if it already exists\r
+        oStream.savetofile DestFolder & filename, adSaveCreateOverWrite\r
+       \r
+       oStream.close\r
+       \r
+End Sub\r
+\r
+\r
+Function Showpath(folderspec)\r
+       Set f = FSO.GetFolder(folderspec)\r
+       showpath = f.path\r
+End Function
\ No newline at end of file