H-Sphere Upgrade 1/18/06

[admin]

In Firefox it shows his address in an image for me, it was something I added to help protect emails from being picked up here and spammed.

Do you see the email address or something? If not can you take a screen shot of it because I see it here.

[Silverbug]

Attached

EDIT: on noooow its showing :rollseyes:

[Brangwyn]

Not showing for me either just the old red X

[cleonard]

Hey B!!

Are you still using the multiple reseller account asp login script you wrote a while back? I am and ever since the upgrade today it seems to be broken when going to option 2 or 3. Are you seeing that?

[Brangwyn]

I think I still have people using that to login, not sure really, but I'll take a look, my guess would be psoft have changed the error messages or something. Probably not hard to fix.

[cleonard]

Originally Posted by Brangwyn

I think I still have people using that to login, not sure really, but I'll take a look, my guess would be psoft have changed the error messages or something. Probably not hard to fix.

As always, I'd appreciate any help you can give!!

[admin]

Hows it look now.

[cleonard]

Originally Posted by admin

Hows it look now.

Still unable to login if the 1st option fails. Get an bad URL. Here's the script snippet if that helps:

If Request.Form("submit") <> "" then
'------------------------------------------
' Enter your list of control panels in the
' following array
' Enter as many URL's as you require
'------------------------------------------
Dim arrControlPanelURL
arrControlPanelURL = Array("https://cp.servicedomain.com","https://cp.servicedomain.net") 
'-------------------------------------  
' setup other miscellaneous variables
'-------------------------------------
Dim strUserName, strUserPassword, strURL, strPostURL, i, bolLogin, strErrorMsg
strErrorMsg = ""
strUserName = trim(Request.Form("login"))
strUserPassword = trim(Request.Form("password"))
strPostURL = "/psoft/servlet/psoft.hsphere.CP?action=login&ftemplate=design/login.html"
'-------------------------------------------------------------
'            Here comes the real work !
' For each control panel in the array try and log the user on
' check for error conditions etc, if successful then log
' the user into their contorl panel.
'-------------------------------------------------------------  
Dim objXMLHTTP, strReturn
Set objXMLHTTP = SErver.CreateObject("Microsoft.XMLHTTP")
For i = 0 to ubound(arrControlPanelURL)
strURL =  arrControlPanelURL(i) & strPostURL & "&login=" & strUserName & "&password=" & strUserPassword
objXMLHTTP.Open "POST", strURL , False
objXMLHTTP.Send
strReturn = objXMLHTTP.ResponseText
If instr(1, strReturn, "invalid password", 1) > 0 then ' Correct Password ?
strErrorMsg = "Incorrect password, please try again."
Exit For ' get the heck out of here
End If
If Instr(1, strReturn, "no such user", 1) = 0 then ' Find the User ?
bolLogin = True
strErrorMsg = ""
Exit For ' no point hanging around any longer
Else
bolLogin = False
strErrorMsg = "Username not found, please try again."
End if
Next
Set objXMLHTTP = Nothing
If bolLogin then
strReturn = Replace(strReturn, "/psoft/", arrControlPanelURL(i) & "/psoft/")
Dim intStart, intEnd, intLength
intStart = instr(1, strReturn, "URL=", 1)
intStart = intStart + 4
intEnd = instr(intStart, strReturn, """", 1)
intLength = intEnd - intStart - 1 ' remove extra char to cater for the trailing "/"
strURL =  Mid(strReturn, intStart, intLength) & "?action=login&ftemplate=design/login.html&login=" & strUserName & "&password=" & strUserPassword    
Response.Redirect strURL
End if
End if
%><span CLASS="subtitle">
<em><% = strErrorMsg %>

Thanks for giving it a try.

[Silverbug]

Originally Posted by admin

Hows it look now.

Looks like a text link to me now

[cleonard]

Originally Posted by Brangwyn

I think I still have people using that to login, not sure really, but I'll take a look, my guess would be psoft have changed the error messages or something. Probably not hard to fix.

You're absolutely right B . . . again.

Changed the error message to username or password incorrect even if the username was found but the password was wrong.

Got it corrected.

[resell01]

So what new features and issues does this version do for us?

[admin]

No issues really, nothing really new, with patachs most of the time they are just fixs and updates.

[Brangwyn]

Originally Posted by cleonard

You're absolutely right B . . . again.

Changed the error message to username or password incorrect even if the username was found but the password was wrong.

Got it corrected.

Kool .. I hadn't had a chance to look at it at all yet, so glad you sussed it out.