Revision
15778
Author
jlenk
Date
2009-12-03 14:11:40 -0600 (Thu, 03 Dec 2009)

Log Message

fix line ending error

Modified Paths

Diff

Modified: freeswitch/trunk/libs/win32/util.vbs (15777 => 15778)


--- freeswitch/trunk/libs/win32/util.vbs	2009-12-03 19:43:38 UTC (rev 15777)
+++ freeswitch/trunk/libs/win32/util.vbs	2009-12-03 20:11:40 UTC (rev 15778)
@@ -64,15 +64,17 @@
     Set objTextFile = objFSO.OpenTextFile(VersionFile,1)
     Do Until objTextFile.AtEndOfStream
         strLine = objTextFile.Readline
-        versionPos = InstrRev(strLine, " ", -1, 1)
-        name = Left(strLine, versionPos-1)
-        if name = PrimaryName Then
-            version = Right(strLine, Len(strLine) - versionPos)
-            Wscript.Echo "Sound name: " & name & " Version " & version
-            URL = BaseURL & "-" & name & "-" & Freq &"-" & version & ".tar.gz"
-            Wscript.Echo "URL: " & URL
-            WgetUnCompress URL, Showpath(DestFolder)
-        End If
+        if Len(strLine) > 2 then
+            versionPos = InstrRev(strLine, " ", -1, 1)
+            name = Left(strLine, versionPos-1)
+            if name = PrimaryName Then
+                version = Right(strLine, Len(strLine) - versionPos)
+                Wscript.Echo "Sound name: " & name & " Version " & version
+                URL = BaseURL & "-" & name & "-" & Freq &"-" & version & ".tar.gz"
+                Wscript.Echo "URL: " & URL
+                WgetUnCompress URL, Showpath(DestFolder)
+            End If
+        End if
     Loop
 End Sub