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
    '*********************************************************************************************************************

Toolbox
LANGUAGES