ShuriZma
/
project64
mirror of https://github.com/project64/project64.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #617 from cxd4/spelling 

spelling
This commit is contained in:
zilmar 2015-09-22 13:17:49 +10:00
parent 387b5739ee 4e6d5c06ab
commit e6dd517b35
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Source/Script/upload_beta.vbs
View File

@ -2,7 +2,7 @@
if WScript.Arguments.Count < 3 then if WScript.Arguments.Count < 3 then
WScript.StdOut.WriteLine "Missing parameters" WScript.StdOut.WriteLine "Missing parameters"
WScript.StdOut.WriteLine "[password] [file to upload] [BuildUr]" WScript.StdOut.WriteLine "[password] [file to upload] [BuildUrl]"
WScript.Quit WScript.Quit
end if end if
@ -44,7 +44,7 @@ Sub Navigate(IE, url)
End Sub End Sub
Sub ValidateLoggedIn(IE) Sub ValidateLoggedIn(IE)
WScript.StdOut.WriteLine "validate login succsess" WScript.StdOut.WriteLine "validate login success"
Navigate IE, "http://forum.pj64-emu.com/" Navigate IE, "http://forum.pj64-emu.com/"
Wait IE Wait IE
@ -55,7 +55,7 @@ Sub ValidateLoggedIn(IE)
if lcase(Mid(Elem.href,1,39)) = "http://forum.pj64-emu.com/member.php?u=" then if lcase(Mid(Elem.href,1,39)) = "http://forum.pj64-emu.com/member.php?u=" then
if lcase(Mid(Elem.parentElement.innerHTML,1,11)) = "welcome, <a" then if lcase(Mid(Elem.parentElement.innerHTML,1,11)) = "welcome, <a" then
if lcase(Elem.innerHTML) = "buildbot" then if lcase(Elem.innerHTML) = "buildbot" then
WScript.StdOut.WriteLine "Found welecome message" WScript.StdOut.WriteLine "Found welcome message"
LoggedIn = true LoggedIn = true
exit for exit for
end if end if
@ -114,7 +114,7 @@ Sub Login(IE)
Navigate IE, "http://forum.pj64-emu.com/" Navigate IE, "http://forum.pj64-emu.com/"
Wait IE Wait IE
WScript.StdOut.WriteLine "Quiting IE2" WScript.StdOut.WriteLine "Quitting IE2"
IE2.Quit IE2.Quit
ValidateLoggedIn IE ValidateLoggedIn IE
WScript.StdOut.WriteLine "Login Done" WScript.StdOut.WriteLine "Login Done"
@ -337,7 +337,7 @@ sub UploadFile(FileToUpload)
Next Next
if not UploadDone then if not UploadDone then
WScript.StdOut.WriteLine "Failed to uplad file" WScript.StdOut.WriteLine "Failed to upload file"
WScript.Quit WScript.Quit
end if end if