ANGEL Prim Drop Nugget

Changing the NUGGET file in ANGEL

This script allows users to add a nugget to authenticate their avatars.

Place this code in a new file at: Registered Portal Components > Associated File Manager > SLAngelIsland/default.asp

<!-- #include file="../../_portal.asp" -->
<%
Dim oConn, oRs, sSql, myUSER_ID,avatar_flag

myUSER_ID = Session("USER_ID")

sSql = "SELECT AVATAR_UUID,AVATAR_FNAME,AVATAR_LNAME,AVATAR_PHOTO FROM ACCOUNTS,AVATARS WHERE ACCOUNTS.USERNAME=AVATARS.USER_ID AND ACCOUNTS.USERNAME= '" & DBStr(myUSER_ID) & "' ORDER BY REVISED desc"

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open strProfileDB
Set oRs = oConn.Execute(sSql)
If oRS.EOF Then
        avatar_flag="empty"
    Else
        avatar_photo=oRs("AVATAR_PHOTO")
        avatar_fname=oRs("AVATAR_FNAME")
        avatar_lname=oRs("AVATAR_LNAME")
        avatar_uuid=oRs("AVATAR_UUID")
    End If
oRs.Close
Set oRs = Nothing
oConn.Close
Set oConn = Nothing
%>

<%
Response.Expires = 0
Call InitNugget("SLAngelIsland")
giNugFlags = giNugFlags Or (DISABLE_CACHE + DISABLE_SETTINGS)
gsNugTitle = ResourceManager.GetString("NUGTITLE_" & gsNugID, gstrNamespace, gstrLangCode, "ANGEL Learning Isle", Nothing, gstrLangResourcePath)
gsNugTitle = EnvVar("NUGTITLE_" & gsNugID, gsNugTitle)

Dim sNuggetText, iAt

sNuggetText = NuggetContainer(gsNugID)
iAt = InStr(1, sNuggetText, "<!--NUGGET_TEXT-->", 1)
If iAt = 0 Then
    Response.Write sNuggetText
Else
    Response.Write Mid(sNuggetText, 1, iAt - 1)

    aiLinkText = ResourceManager.GetString(gsNugID & "_LinkText", gstrNamespace, gstrLangCode, _
        " ", _
        Nothing, gstrLangResourcePath)

    aiBodyText = ResourceManager.GetString(gsNugID & "_BodyText", gstrNamespace, gstrLangCode, "<hr><A TARGET=""_blank"" HREF=""http://slurl.com/secondlife/ANGEL Learning Isle/128/128/0""><br><IMG SRC=""http://secondlife.angellearning.com/Portal/Nuggets/SLAngelIsland/ANGEL_SL_Icon.jpg"" width=""150"" border=""0"" HSPACE=""5"" VSPACE=""5"" valign=""bottom"" ALT=""Avatar Island Icon"">Visit ANGEL Learning Isle in Second Life<sup>®</sup></A><br>A cooperative effort between ANGEL Learning and the Second Life Educators community (SLED) has produced a virtual world designed for educational experimentation within the popular Second Life application.", Nothing, gstrLangResourcePath)
%>

<!-- Second Life ANGEL Island
<div style="float:left;" id="Image">
<Img Src="http://secondlife.com/app/image/<%=Mid(avatar_photo, 1, iAt - 1)%>/1" border="0" ALT="<%=ResourceManager.GetString("ANGEL Learning Isle", gstrNamespace, gstrLangCode, vbNullString, Nothing, gstrLangResourcePath)%>"></A>
</div>
-->

<%
If avatar_flag = "empty" Then
    Response.Write ("Your Avatar is not recognized. Enter your avatar details")
    Response.Write ("<form name=""aviname"" action=""http://secondlife.angellearning.com/api/default.asp?APIACTION=SL_UPDATE_AVATAR"" method=""POST"" TARGET=""_self"">")
    Response.Write ("Avatar UUID: <INPUT TYPE=""TEXT"" NAME=""AVATAR_UUID""><br>")
    Response.Write ("First: <INPUT TYPE=""TEXT"" NAME=""AVATAR_FNAME""><br>")
    Response.Write ("Last: <INPUT TYPE=""TEXT"" NAME=""AVATAR_LNAME""><br>")
    'Response.Write ("Photo UUID: <INPUT TYPE=""TEXT"" NAME=""AVATAR_PHOTO""><br>")
    Response.Write ("<INPUT TYPE=HIDDEN NAME=APIUSER value=""jkemp"">")
    Response.Write ("<INPUT TYPE=HIDDEN NAME=APIPWD value=""angel122"">")
    Response.Write ("<input name=name type=submit value=""Add Avatar""><br>")
else
    Response.Write ("Your Avatar is recognized: <b>" & avatar_fname & " " & avatar_lname & "</b>")
    Response.Write ("</b><br />Avatar UUID: <b>")
      Response.Write Mid(avatar_uuid, 1, iAt - 1)
    Response.Write(Session("USER_NAME"))
End If

'Response.Write aiLinkText
%>

<div class="descriptionSpan" style="padding:10px;text-align:left;">
<%
    Response.Write aiBodyText

%>
</div>
<!-- Second Life ANGEL Island -->
<%
    Response.Write Mid(sNuggetText, iAt)
End If
%>

The NUGGET code THIS IS NOT SECURE - INCLUDES A UNAME PASSWORD