<var set = caller.set>
<var D = caller.D>
<var Txt = caller.Txt>
<var Soc = caller.Soc>

<var C = GLOBAL.Def.Style.color>

<var _unfollow_href = "http://#this_domain#/#get.s1#/unfollow">


<fake_person>
<h3>Log In to Add #Txt.fname#</h3>
<tag.smp_login heading="0" no_rdr="1">
<BREAK>
</fake_person>



<if set.id EQ client_id>
<!---
You can't friend or follow yourself...
--->
<goto url="http://#this_domain#/#get.s1#">
<BREAK>
</if>


<ensure variable="get.s3" value="">


<var _pw = 64>

<big><div>&nbsp;</div></big>

<div style="margin-left:1em;">

<!--- pic --->
<div style="float:left; width:#_pw#px; padding-top:3px;">
<div>
<a title="#escapeDoubleQuotes(D.title)#" href="http://#this_domain#/#set.id#"><tag.profile_pic for="#set.id#" picwidth="#_pw#"></a>
</div>
</div>

<!--- stuff --->
<div style="margin-left:#_pw+8#px;">

<if get.s3 EQ "yes">

<var _new = "|#set.id#|">
<loop list="#GLOBAL.Def.Client.users#" index="x" delimiters="|#CHR(10)#"><if x NEQ set.id>
<var _new = _new & CHR(10) & "|#x#|">
</if></loop>
<update orb="user" where="user.id = #client_id#" users="#_new#">

<if listFind(Soc.Following.intList,client_id) GT 0>

<if listFind(GLOBAL.Def.Friends.intList,set.id) EQ 0><span style="display:none;"><!--
<!--- this is hot news. --->
<!--- delete conflicting pings and bullitens --->
<delete orb="bull" where="bull.user_id = #client_id# AND bull.name LIKE ('%|/#set.tbl#-#set.id#|%') AND bull.notes IN ('|unfollow|','|unfollow_accept|')">
<delete orb="ping" where="ping.user_id = #client_id# AND ping.name LIKE ('%|/#set.tbl#-#set.id#|%') AND ping.notes IN ('|unfollow|','|unfollow_accept|')">
<!--- post a bulliten --->
<tag.bull
j='/user-#set.id#,/user-#client_id#'
title='#client_name# - Follow (Friendship)'
body='<a href="/#client_id#">#escapeMarkup(client_name)#</a> and <a href="/#set.id#">#D.title#</a> are friends'
type='follow_accept'
giveto_unsignedint="#set.id#">
<!--- ping to follower --->
<tag.ping function="post"
type="follow_accept"
jstr="/user-#set.id#"
users_intList="#client_id#"
message="You are now friends with #D.title#"
send_email="1"
user_whereclause_append=""
email_href="http://smallerpage.com/#client_id#/friends"
email_from="aRobot@smallerpage.com"
age_bypass="1"
emailoptout_tag="follow_accept">
<!--- ping to followee --->
<tag.ping function="post"
type="follow_accept_confirm"
jstr="/user-#client_id#"
users_intList="#set.id#"
message="#escapeMarkup(client_name)# accepted your friend request"
send_email="1"
user_whereclause_append=""
email_href="http://smallerpage.com/#set.id#/friends"
email_from="aRobot@smallerpage.com"
age_bypass="1"
emailoptout_tag="follow_accept_confirm"
published_override="1">
<!--- ping to follower's followers (but not the followee) --->
<var _users_intList = "0">
<loop list="#GLOBAL.Def.Followers.intList#" index="x">
<if x NEQ set.id><var _users_intList = _users_intList & "," & x></if>
</loop>
<tag.ping function="post"
type="follow_accept_notify"
jstr="/user-#client_id#"
users_intList="#_users_intList#"
message="#escapeMarkup(client_name)# is friends with #D.title#"
send_email="1"
user_whereclause_append=""
email_href="http://smallerpage.com/#client_id#/friends"
email_from="aRobot@smallerpage.com"
age_bypass="1"
emailoptout_tag="follow_accept_notify">
--></span></if>

<!--- now you're friends! --->
<h3 style="margin-top:0px;">You are Now Friends with #Txt.Fname#</h3>

<p>
<tag.fico i="tick" linkback="off">
You will receive
SmallerPage updates from #Txt.fname#.
You and #Txt.Fname# are now friends on SmallerPage.
</p>

<var _slash = "#get.s1#">
<if isDefined("get.prev_slash") AND get.prev_slash NEQ "">
<var _slash = get.prev_slash>
</if>

<if isDefined("get.prev_slash") AND get.prev_slash NEQ "">
<tag.smp_pagebtn val="Finished With This" slash="#_slash#">
<else>
<tag.smp_pagebtn val="Return to Profile" slash="#_slash#">
</if>

<else>

<if listFind(GLOBAL.Def.Following.intList,set.id) EQ 0><span style="display:none;"><!--
<!--- this is hot news. --->
<!--- delete conflicting pings and bullitens --->
<delete orb="bull" where="bull.user_id = #client_id# AND bull.name LIKE ('%|/#set.tbl#-#set.id#|%') AND bull.notes IN ('|unfollow|','|unfollow_accept|')">
<delete orb="ping" where="ping.user_id = #client_id# AND ping.name LIKE ('%|/#set.tbl#-#set.id#|%') AND ping.notes IN ('|unfollow|','|unfollow_accept|')">
<!--- post a bulliten --->
<tag.bull
j='/user-#client_id#,/user-#set.id#'
title='#client_name# - Follow'
body='<a href="/#client_id#">#escapeMarkup(client_name)#</a> is following <a href="/#set.id#">#D.title#</a>'
type='follow'
giveto_unsignedint="#set.id#">
<!--- ping to follower --->
<tag.ping function="post"
type="follow_init"
jstr="/user-#set.id#"
users_intList="#client_id#"
message="You are now following #D.title#"
send_email="1"
user_whereclause_append=""
email_href="http://smallerpage.com/#client_id#/following"
email_from="aRobot@smallerpage.com"
age_bypass="1"
emailoptout_tag="follow_init">
<!--- ping to followee --->
<tag.ping function="post"
type="follow"
jstr="/user-#client_id#"
users_intList="#set.id#"
message="#escapeMarkup(client_name)# wants to be your friend on SmallerPage"
send_email="1"
user_whereclause_append=""
email_href="http://smallerpage.com/"
email_from="aRobot@smallerpage.com"
age_bypass="1"
emailoptout_tag="follow"
published_override="1">
<!--- ping to follower's followers --->
<tag.ping function="post"
type="follow_notify"
jstr="/user-#client_id#"
users_intList="#GLOBAL.Def.Followers.intList#"
message="#escapeMarkup(client_name)# is following #D.title#"
send_email="1"
user_whereclause_append=""
email_href="http://smallerpage.com/#client_id#/friends"
email_from="aRobot@smallerpage.com"
age_bypass="1"
emailoptout_tag="follow_notify">
--></span></if>

<!--- you're following them ---->
<h3 style="margin-top:0px;">You are Now Following #Txt.Fname#</h3>

<p>
<tag.fico i="tick" linkback="off">
A friend request has been sent to #Txt.fname#. You can continue to follow
this person on SmallerPage, even if they don't receive your friend request.
You will receive
SmallerPage updates from #Txt.fname#.
</p>

<var _slash = "#get.s1#">
<if isDefined("get.prev_slash") AND get.prev_slash NEQ "">
<var _slash = get.prev_slash>
</if>

<if isDefined("get.prev_slash") AND get.prev_slash NEQ "">
<tag.smp_pagebtn val="Finished With This" slash="#_slash#">
<else>
<tag.smp_pagebtn val="Return to Profile" slash="#_slash#">
</if>

</if>


<else>


<if listFindNoCase(Soc.Following.intList,client_id) GT 0>

<!--- already being followed: "confirm" --->

<h3 style="margin-top:0px;">Confirm Friend Request</h3>

<p>
Confirm #D.title# as a friend to receive updates
when #Txt.fname# adds new pages, posts comments and more.
</p>

<div>&nbsp;</div>

<if isDefined("get.prev_slash") AND get.prev_slash NEQ "">
<tag.smp_pagebtn val="Confirm Friend" slash="#get.s1#/#get.s2#/yes"
var1="prev_slash" val1="#get.prev_slash#">
<else>
<tag.smp_pagebtn val="Confirm Friend" slash="#get.s1#/#get.s2#/yes">
</if>

<else>

<!--- blank slate: let's call it a friend request --->

<h3 style="margin-top:0px;">Send a Friend Request</h3>

<p>
Start following #Txt.fname# on SmallerPage by asking them to be your
friend. You will receive updates from
#Txt.fname# when they add new pages, post comments and more.
</p>

<div>&nbsp;</div>

<if isDefined("get.prev_slash") AND get.prev_slash NEQ "">
<tag.smp_pagebtn val="Add #Txt.fname#" slash="#get.s1#/#get.s2#/yes"
var1="prev_slash" val1="#get.prev_slash#">
<else>
<tag.smp_pagebtn val="Add #Txt.fname#" slash="#get.s1#/#get.s2#/yes">
</if>

</if>

</if>

</div>

</div>
<div style="clear:both;">&nbsp;</div>