ANGEL Prim Drop API2
From SLIS Second Life Wiki
Changing the API file in the ANGEL server (PART TWO)
Add the follow script segment to the API manager file.
File pathway: tools>Angel File Manager>Application Files>api>api v1.0 > default.asp
(Add the part after the "API Functions" header)
'****************************************************
'* API Functions
'*********************************************************************************************************************
'* BEGIN Second Life Functions
Function API_SL_CHECK_AVATAR(ByVal sAVATAR_UUID)
dim oConn, oRS, tSql
tSql = "SELECT ACCOUNTS.USERNAME FROM ACCOUNTS,AVATARS WHERE ACCOUNTS.USERNAME=AVATARS.USER_ID AND AVATARS.AVATAR_UUID='" & DBStr(sAVATAR_UUID) & "'"
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open strContentDB
Set oRS = oConn.Execute(tSql)
If oRS.EOF Then
API_SL_CHECK_AVATAR = "<result><error>" & ResourceManager.GetString("InvUserOrPass", gstrNamespace, gstrLangCode, "Avatar not found", Nothing, gstrLangResourcePath) & "</error></result>"
Else
API_SL_CHECK_AVATAR = "<result><success>" & RsToXML(oRS, "users", "username", "") & "</success></result>"
End If
End Function
Function API_SL_UPDATE_AVATAR(ByVal sAVATAR_UUID, ByVal sAVATAR_FNAME, ByVal sAVATAR_LNAME, ByVal sAVATAR_PHOTO)
dim oConn, oRS, tSql, sNow
sNow = DBDate(Now(), strProfileDBType)
tSql = "INSERT INTO AVATARS(USER_ID,AVATAR_UUID,AVATAR_FNAME,AVATAR_LNAME,REVISED) values("
tSql= tSql & "'" & Session("USER_ID") & "',"
tSql= tSql & "'" & sAVATAR_UUID & "',"
tSql= tSql & "'" & sAVATAR_FNAME & "',"
tSql= tSql & "'" & sAVATAR_LNAME & "',"
'----tSql= tSql & "'" & sAVATAR_PHOTO & "',"
tSql= tSql & "'" & Now() & "')"
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open strContentDB
Set oRS = oConn.Execute(tSql)
API_SL_UPDATE_AVATAR="<result><success>Avatar Added</success></result>"
End Function
'* END Second Life Functions
'*********************************************************************************************************************