fix line ending error

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@15778 d0543943-73ff-0310-b7d9-9358b9ac24b2
This commit is contained in:
Jeff Lenk 2009-12-03 20:11:40 +00:00
parent 05cc65b2e8
commit b69c844817
1 changed files with 11 additions and 9 deletions

View File

@ -64,6 +64,7 @@ Sub WgetSounds(PrimaryName, Freq, DestFolder, VersionFile)
Set objTextFile = objFSO.OpenTextFile(VersionFile,1)
Do Until objTextFile.AtEndOfStream
strLine = objTextFile.Readline
if Len(strLine) > 2 then
versionPos = InstrRev(strLine, " ", -1, 1)
name = Left(strLine, versionPos-1)
if name = PrimaryName Then
@ -73,6 +74,7 @@ Sub WgetSounds(PrimaryName, Freq, DestFolder, VersionFile)
Wscript.Echo "URL: " & URL
WgetUnCompress URL, Showpath(DestFolder)
End If
End if
Loop
End Sub