Skip to content
项目
群组
代码片段
帮助
正在加载...
登录
切换导航
F
freeswitch
项目
项目
详情
活动
周期分析
仓库
仓库
文件
提交
分支
标签
贡献者
分枝图
比较
统计图
议题
0
议题
0
列表
看板
标记
里程碑
合并请求
0
合并请求
0
CI / CD
CI / CD
流水线
作业
日程
统计图
Wiki
Wiki
代码片段
代码片段
成员
成员
折叠边栏
关闭边栏
活动
分枝图
统计图
创建新议题
作业
提交
议题看板
打开侧边栏
张华
freeswitch
Commits
40cbc5c0
提交
40cbc5c0
authored
1月 04, 2013
作者:
Jeff Lenk
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
FS-4768 rest of garmts changes mostly cosmetic
上级
dd25e7ea
隐藏空白字符变更
内嵌
并排
正在显示
1 个修改的文件
包含
129 行增加
和
120 行删除
+129
-120
util.vbs
libs/win32/util.vbs
+129
-120
没有找到文件。
libs/win32/util.vbs
浏览文件 @
40cbc5c0
...
...
@@ -47,7 +47,7 @@ If objArgs.Count >=3 Then
WgetUnCompress
objArgs
(
1
),
Showpath
(
objArgs
(
2
))
Case
"GetUnzipSounds"
WgetSounds
objArgs
(
1
),
objArgs
(
2
),
Showpath
(
objArgs
(
3
)),
objArgs
(
4
)
Case
"Version"
Case
"Version"
'CreateVersion(tmpFolder, VersionDir, includebase, includedest)
CreateVersion
Showpath
(
objArgs
(
1
)),
Showpath
(
objArgs
(
2
)),
objArgs
(
3
),
objArgs
(
4
)
End
Select
...
...
@@ -59,28 +59,28 @@ End If
' *******************
Sub
WgetSounds
(
PrimaryName
,
Freq
,
DestFolder
,
VersionFile
)
BaseURL
=
"http://files.freeswitch.org/freeswitch-sounds"
Set
objFSO
=
CreateObject
(
"Scripting.FileSystemObject"
)
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
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
BaseURL
=
"http://files.freeswitch.org/freeswitch-sounds"
Set
objFSO
=
CreateObject
(
"Scripting.FileSystemObject"
)
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
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
Sub
WgetUnCompress
(
URL
,
DestFolder
)
If
Right
(
DestFolder
,
1
)
<>
"\"
Then
DestFolder
=
DestFolder
&
"\"
End
If
StartPos
=
InstrRev
(
URL
,
"/"
,
-
1
,
1
)
StartPos
=
InstrRev
(
URL
,
"/"
,
-
1
,
1
)
strlength
=
Len
(
URL
)
filename
=
Right
(
URL
,
strlength
-
StartPos
)
NameEnd
=
InstrRev
(
filename
,
"."
,
-
1
,
1
)
...
...
@@ -91,7 +91,7 @@ Sub WgetUnCompress(URL, DestFolder)
If
fileext
=
"zip"
Then
UnCompress
Destfolder
&
filename
,
DestFolder
&
filebase
Else
UnCompress
Destfolder
&
filename
,
DestFolder
UnCompress
Destfolder
&
filename
,
DestFolder
End
If
End
Sub
...
...
@@ -121,21 +121,21 @@ End Sub
Sub
GetWgetEXE
(
DestFolder
)
Dim
oExec
If
Right
(
DestFolder
,
1
)
<>
"\"
Then
DestFolder
=
DestFolder
&
"\"
End
If
If
Not
FSO
.
FileExists
(
DestFolder
&
"wget.exe"
)
Then
If
Not
FSO
.
FileExists
(
DestFolder
&
"wget.exe"
)
Then
Slow_Wget
ToolsBase
&
"wget.exe"
,
DestFolder
End
If
End
If
End
Sub
Function
Strip
(
Str
)
Set
oRE
=
New
Regexp
oRE
.
Pattern
=
"[\W_]"
oRE
.
Global
=
True
Strip
=
oRE
.
Replace
(
Str
,
""
)
End
Function
Function
Strip
(
Str
)
Set
oRE
=
New
Regexp
oRE
.
Pattern
=
"[\W_]"
oRE
.
Global
=
True
Strip
=
oRE
.
Replace
(
Str
,
""
)
End
Function
Sub
UnCompress
(
Archive
,
DestFolder
)
batname
=
"tmp"
&
Strip
(
Archive
)
&
CStr
(
Int
(
10000
*
Rnd
))
&
".bat"
wscript
.
echo
(
"Extracting: "
&
Archive
&
" - using: "
&
batname
)
batname
=
"tmp"
&
Strip
(
Archive
)
&
CStr
(
Int
(
10000
*
Rnd
))
&
".bat"
wscript
.
echo
(
"Extracting: "
&
Archive
&
" - using: "
&
batname
)
Set
MyFile
=
fso
.
CreateTextFile
(
UtilsDir
&
batname
,
True
)
MyFile
.
WriteLine
(
"@"
&
quote
&
UtilsDir
&
"7za.exe"
&
quote
&
" x "
&
quote
&
Archive
&
quote
&
" -y -o"
&
quote
&
DestFolder
&
quote
)
MyFile
.
Close
...
...
@@ -143,77 +143,87 @@ Sub UnCompress(Archive, DestFolder)
Do
WScript
.
Echo
OExec
.
StdOut
.
ReadLine
()
Loop
While
Not
OExec
.
StdOut
.
atEndOfStream
If
FSO
.
FileExists
(
Left
(
Archive
,
Len
(
Archive
)
-
3
))
Then
wscript
.
echo
(
"Ready extracting: "
&
Archive
)
Fn
=
Left
(
Archive
,
Len
(
Archive
)
-
3
)
If
FSO
.
FileExists
(
Fn
)
Then
WScript
.
Sleep
(
100
)
FSO
.
DeleteFile
UtilsDir
&
batname
,
True
wscript
.
echo
(
"Processing: "
&
Fn
&
" - deleting "
&
batname
)
FSO
.
DeleteFile
UtilsDir
&
batname
,
True
Set
MyFile
=
fso
.
CreateTextFile
(
UtilsDir
&
batname
,
True
)
MyFile
.
WriteLine
(
"@"
&
quote
&
UtilsDir
&
"7za.exe"
&
quote
&
" x "
&
quote
&
Left
(
Archive
,
Len
(
Archive
)
-
3
)
&
quote
&
" -y -o"
&
quote
&
DestFolder
&
quote
)
MyFile
.
WriteLine
(
"@"
&
quote
&
UtilsDir
&
"7za.exe"
&
quote
&
" x "
&
quote
&
Fn
&
quote
&
" -y -o"
&
quote
&
DestFolder
&
quote
)
MyFile
.
Close
Set
oExec
=
WshShell
.
Exec
(
UtilsDir
&
batname
)
Do
WScript
.
Echo
OExec
.
StdOut
.
ReadLine
()
Loop
While
Not
OExec
.
StdOut
.
atEndOfStream
wscript
.
echo
(
"Ready extracting: "
&
Fn
)
WScript
.
Sleep
(
500
)
FSO
.
DeleteFile
Left
(
Archive
,
Len
(
Archive
)
-
3
)
,
true
wscript
.
echo
(
"Deleting: "
&
Fn
)
FSO
.
DeleteFile
Fn
,
true
End
If
If
FSO
.
FileExists
(
Left
(
Archive
,
Len
(
Archive
)
-
3
)
&
"tar"
)
Then
Fn
=
Fn
&
tar
If
FSO
.
FileExists
(
Fn
)
Then
WScript
.
Sleep
(
100
)
FSO
.
DeleteFile
UtilsDir
&
batname
,
True
wscript
.
echo
(
"Processing: "
&
Fn
&
" - deleting "
&
batname
)
FSO
.
DeleteFile
UtilsDir
&
batname
,
True
Set
MyFile
=
fso
.
CreateTextFile
(
UtilsDir
&
batname
,
True
)
MyFile
.
WriteLine
(
"@"
&
quote
&
UtilsDir
&
"7za.exe"
&
quote
&
" x "
&
quote
&
Left
(
Archive
,
Len
(
Archive
)
-
3
)
&
"tar"
&
quote
&
" -y -o"
&
quote
&
DestFolder
&
quote
)
MyFile
.
WriteLine
(
"@"
&
quote
&
UtilsDir
&
"7za.exe"
&
quote
&
" x "
&
quote
&
Fn
&
quote
&
" -y -o"
&
quote
&
DestFolder
&
quote
)
MyFile
.
Close
Set
oExec
=
WshShell
.
Exec
(
UtilsDir
&
batname
)
Do
WScript
.
Echo
OExec
.
StdOut
.
ReadLine
()
Loop
While
Not
OExec
.
StdOut
.
atEndOfStream
wscript
.
echo
(
"Ready extracting: "
&
Fn
)
WScript
.
Sleep
(
500
)
FSO
.
DeleteFile
Left
(
Archive
,
Len
(
Archive
)
-
3
)
&
"tar"
,
true
wscript
.
echo
(
"Deleting: "
&
Fn
)
FSO
.
DeleteFile
Fn
,
true
End
If
WScript
.
Sleep
(
500
)
If
FSO
.
FileExists
(
UtilsDir
&
batname
)
Then
If
FSO
.
FileExists
(
UtilsDir
&
batname
)
Then
FSO
.
DeleteFile
UtilsDir
&
batname
,
True
End
If
End
Sub
Sub
Wget
(
URL
,
DestFolder
)
StartPos
=
InstrRev
(
URL
,
"/"
,
-
1
,
1
)
StartPos
=
InstrRev
(
URL
,
"/"
,
-
1
,
1
)
strlength
=
Len
(
URL
)
filename
=
Right
(
URL
,
strlength
-
StartPos
)
If
Right
(
DestFolder
,
1
)
<>
"\"
Then
DestFolder
=
DestFolder
&
"\"
End
If
Wscript
.
echo
(
"Downloading: "
&
URL
)
If
UseWgetEXE
Then
batname
=
"tmp"
&
CStr
(
Int
(
10000
*
Rnd
))
&
".bat"
Set
MyFile
=
fso
.
CreateTextFile
(
UtilsDir
&
batname
,
True
)
MyFile
.
WriteLine
(
"@cd "
&
quote
&
DestFolder
&
quote
)
MyFile
.
WriteLine
(
"@"
&
quote
&
UtilsDir
&
"wget.exe"
&
quote
&
" "
&
URL
)
MyFile
.
Close
Set
oExec
=
WshShell
.
Exec
(
UtilsDir
&
batname
)
Do
WScript
.
Echo
OExec
.
StdOut
.
ReadLine
()
Loop
While
Not
OExec
.
StdOut
.
atEndOfStream
If
UseWgetEXE
Then
Wscript
.
echo
(
"Downloading (wget): "
&
URL
)
batname
=
"tmp"
&
CStr
(
Int
(
100000
*
Rnd
))
&
".bat"
Set
MyFile
=
fso
.
CreateTextFile
(
UtilsDir
&
batname
,
True
)
MyFile
.
WriteLine
(
"@cd "
&
quote
&
DestFolder
&
quote
)
MyFile
.
WriteLine
(
"@"
&
quote
&
UtilsDir
&
"wget.exe"
&
quote
&
" "
&
URL
)
MyFile
.
Close
Set
oExec
=
WshShell
.
Exec
(
UtilsDir
&
batname
)
Do
WScript
.
Echo
OExec
.
StdOut
.
ReadLine
()
Loop
While
Not
OExec
.
StdOut
.
atEndOfStream
Else
xml
.
Open
"GET"
,
URL
,
False
xml
.
Send
Const
adTypeBinary
=
1
Const
adSaveCreateOverWrite
=
2
Const
adSaveCreateNotExist
=
1
oStream
.
type
=
adTypeBinary
oStream
.
open
oStream
.
write
xml
.
responseBody
oStream
.
savetofile
DestFolder
&
filename
,
adSaveCreateOverWrite
oStream
.
close
End
If
Else
Wscript
.
echo
(
"Downloading (HTTP GET): "
&
URL
)
xml
.
Open
"GET"
,
URL
,
False
xml
.
Send
Const
adTypeBinary
=
1
Const
adSaveCreateOverWrite
=
2
Const
adSaveCreateNotExist
=
1
oStream
.
type
=
adTypeBinary
oStream
.
open
oStream
.
write
xml
.
responseBody
oStream
.
savetofile
DestFolder
&
filename
,
adSaveCreateOverWrite
oStream
.
close
End
If
End
Sub
Sub
Slow_Wget
(
URL
,
DestFolder
)
StartPos
=
InstrRev
(
URL
,
"/"
,
-
1
,
1
)
StartPos
=
InstrRev
(
URL
,
"/"
,
-
1
,
1
)
strlength
=
Len
(
URL
)
filename
=
Right
(
URL
,
strlength
-
StartPos
)
If
Right
(
DestFolder
,
1
)
<>
"\"
Then
DestFolder
=
DestFolder
&
"\"
End
If
...
...
@@ -221,13 +231,13 @@ Sub Slow_Wget(URL, DestFolder)
Wscript
.
echo
(
"Downloading: "
&
URL
)
xml
.
Open
"GET"
,
URL
,
False
xml
.
Send
const
ForReading
=
1
,
ForWriting
=
2
,
ForAppending
=
8
Set
MyFile
=
fso
.
OpenTextFile
(
DestFolder
&
filename
,
ForWriting
,
True
)
For
i
=
1
to
lenb
(
xml
.
responseBody
)
MyFile
.
write
Chr
(
Ascb
(
midb
(
xml
.
responseBody
,
i
,
1
)))
Next
MyFile
.
Close
()
const
ForReading
=
1
,
ForWriting
=
2
,
ForAppending
=
8
Set
MyFile
=
fso
.
OpenTextFile
(
DestFolder
&
filename
,
ForWriting
,
True
)
For
i
=
1
to
lenb
(
xml
.
responseBody
)
MyFile
.
write
Chr
(
Ascb
(
midb
(
xml
.
responseBody
,
i
,
1
)))
Next
MyFile
.
Close
()
End
Sub
...
...
@@ -239,36 +249,36 @@ End Function
Function
FindVersionStringInConfigure
(
strConfigFile
,
strVersionString
)
Set
objRegEx
=
CreateObject
(
"VBScript.RegExp"
)
objRegEx
.
Pattern
=
"[^#]AC_SUBST\("
&
strVersionString
&
".*\[([^\[]*)\]"
Set
objFSO
=
CreateObject
(
"Scripting.FileSystemObject"
)
Set
objFile
=
objFSO
.
OpenTextFile
(
strConfigFile
,
1
)
strSearchString
=
objFile
.
ReadAll
objFile
.
Close
Set
colMatches
=
objRegEx
.
Execute
(
strSearchString
)
strResult
=
""
If
colMatches
.
Count
>
0
Then
For
Each
strMatch
in
colMatches
strResult
=
objRegEx
.
Replace
(
strMatch
.
Value
,
"$1"
)
Next
End
If
Set
objRegEx
=
CreateObject
(
"VBScript.RegExp"
)
objRegEx
.
Pattern
=
"[^#]AC_SUBST\("
&
strVersionString
&
".*\[([^\[]*)\]"
Set
objFSO
=
CreateObject
(
"Scripting.FileSystemObject"
)
Set
objFile
=
objFSO
.
OpenTextFile
(
strConfigFile
,
1
)
strSearchString
=
objFile
.
ReadAll
objFile
.
Close
Set
colMatches
=
objRegEx
.
Execute
(
strSearchString
)
strResult
=
""
If
colMatches
.
Count
>
0
Then
For
Each
strMatch
in
colMatches
strResult
=
objRegEx
.
Replace
(
strMatch
.
Value
,
"$1"
)
Next
End
If
FindVersionStringInConfigure
=
strResult
End
Function
Sub
FindReplaceInFile
(
FileName
,
sFind
,
sReplace
)
Const
OpenAsASCII
=
0
' Opens the file as ASCII (TristateFalse)
Const
OpenAsUnicode
=
-
1
' Opens the file as Unicode (TristateTrue)
Const
OpenAsDefault
=
-
2
' Opens the file using the system default
Const
OverwriteIfExist
=
-
1
Const
FailIfNotExist
=
0
Const
ForReading
=
1
Const
OpenAsASCII
=
0
' Opens the file as ASCII (TristateFalse)
Const
OpenAsUnicode
=
-
1
' Opens the file as Unicode (TristateTrue)
Const
OpenAsDefault
=
-
2
' Opens the file using the system default
Const
OverwriteIfExist
=
-
1
Const
FailIfNotExist
=
0
Const
ForReading
=
1
Set
fOrgFile
=
FSO
.
OpenTextFile
(
FileName
,
ForReading
,
FailIfNotExist
,
OpenAsASCII
)
sText
=
fOrgFile
.
ReadAll
fOrgFile
.
Close
...
...
@@ -279,33 +289,32 @@ Sub FindReplaceInFile(FileName, sFind, sReplace)
End
Sub
Function
ExecAndGetResult
(
tmpFolder
,
VersionDir
,
execStr
)
Set
MyFile
=
FSO
.
CreateTextFile
(
tmpFolder
&
"tmpExec.Bat"
,
True
)
MyFile
.
WriteLine
(
"@"
&
"cd "
&
quote
&
VersionDir
&
quote
)
MyFile
.
WriteLine
(
"@"
&
execStr
)
MyFile
.
Close
Set
oExec
=
WshShell
.
Exec
(
"cmd /C "
&
quote
&
tmpFolder
&
"tmpExec.Bat"
&
quote
)
ExecAndGetResult
=
Trim
(
OExec
.
StdOut
.
ReadLine
())
Do
Loop
While
Not
OExec
.
StdOut
.
atEndOfStream
FSO
.
DeleteFile
(
tmpFolder
&
"tmpExec.Bat"
)
End
Function
Function
ExecAndGetExitCode
(
tmpFolder
,
VersionDir
,
execStr
)
Set
MyFile
=
FSO
.
CreateTextFile
(
tmpFolder
&
"tmpExec.Bat"
,
True
)
MyFile
.
WriteLine
(
"@"
&
"cd "
&
quote
&
VersionDir
&
quote
)
MyFile
.
WriteLine
(
"@"
&
execStr
)
MyFile
.
WriteLine
(
"@exit %ERRORLEVEL%"
)
MyFile
.
Close
ExecAndGetExitCode
=
WshShell
.
Run
(
"cmd /C "
&
quote
&
tmpFolder
&
"tmpExec.Bat"
&
quote
,
0
,
True
)
FSO
.
DeleteFile
(
tmpFolder
&
"tmpExec.Bat"
)
End
Function
...
...
@@ -320,28 +329,28 @@ End Function
Function
GetTimeUTC
()
iOffset
=
WshShell
.
RegRead
(
"HKLM\System\CurrentControlSet\Control\TimeZoneInformation\ActiveTimeBias"
)
If
IsNumeric
(
iOffset
)
Then
GetTimeUTC
=
DateAdd
(
"n"
,
iOffset
,
Now
())
Else
GetTimeUTC
=
Now
()
End
If
iOffset
=
WshShell
.
RegRead
(
"HKLM\System\CurrentControlSet\Control\TimeZoneInformation\ActiveTimeBias"
)
If
IsNumeric
(
iOffset
)
Then
GetTimeUTC
=
DateAdd
(
"n"
,
iOffset
,
Now
())
Else
GetTimeUTC
=
Now
()
End
If
End
Function
Sub
CreateVersion
(
tmpFolder
,
VersionDir
,
includebase
,
includedest
)
Dim
oExec
strVerMajor
=
FindVersionStringInConfigure
(
VersionDir
&
"configure.in"
,
"SWITCH_VERSION_MAJOR"
)
strVerMinor
=
FindVersionStringInConfigure
(
VersionDir
&
"configure.in"
,
"SWITCH_VERSION_MINOR"
)
strVerMicro
=
FindVersionStringInConfigure
(
VersionDir
&
"configure.in"
,
"SWITCH_VERSION_MICRO"
)
strVerRev
=
FindVersionStringInConfigure
(
VersionDir
&
"configure.in"
,
"SWITCH_VERSION_REVISION"
)
strVerHuman
=
FindVersionStringInConfigure
(
VersionDir
&
"configure.in"
,
"SWITCH_VERSION_REVISION_HUMAN"
)
'Set version to the one reported by configure.in
If
strVerRev
<>
""
Then
VERSION
=
strVerRev
VERSION
=
strVerRev
End
If
Dim
sLastFile
...
...
@@ -392,12 +401,12 @@ Sub CreateVersion(tmpFolder, VersionDir, includebase, includedest)
End
If
sLastFile
.
Close
End
If
If
VERSION
&
" "
&
strVerHuman
<>
sLastVersion
Then
Set
MyFile
=
fso
.
CreateTextFile
(
tmpFolder
&
"lastversion"
,
True
)
MyFile
.
WriteLine
(
VERSION
&
" "
&
strVerHuman
)
MyFile
.
Close
FSO
.
CopyFile
includebase
,
includedest
,
true
FindReplaceInFile
includedest
,
"@SWITCH_VERSION_REVISION@"
,
VERSION
FindReplaceInFile
includedest
,
"@SWITCH_VERSION_MAJOR@"
,
strVerMajor
...
...
@@ -405,5 +414,5 @@ Sub CreateVersion(tmpFolder, VersionDir, includebase, includedest)
FindReplaceInFile
includedest
,
"@SWITCH_VERSION_MICRO@"
,
strVerMicro
FindReplaceInFile
includedest
,
"@SWITCH_VERSION_REVISION_HUMAN@"
,
strVerHuman
End
If
End
Sub
编写
预览
Markdown
格式
0%
重试
或
添加新文件
添加附件
取消
您添加了
0
人
到此讨论。请谨慎行事。
请先完成此评论的编辑!
取消
请
注册
或者
登录
后发表评论