| Author |
 Topic  |
|
|
mauromol
Starting Member
Italy
20 Posts |
 Posted - 04 July 2002 : 10:12:07
|
Hello,
I'm a newbie in Snitz. Anyway, I was looking for a way to hide e-mail addresses from users profiles and I ran into the topic "MOD: Reduce SPAM harvesting" from Kerry (http://forum.snitz.com/forum/topic.asp?ARCHIVE=true&TOPIC_ID=6759). He proposed some little and easy modifications to pop_mail.asp and pop_profile.asp to solve the problem.
Starting from there, I adapted his modifications to work with the internationalized version of Snitz (4.0 beta 3, patch 004) I downloaded yesterday.
This may be of some use for other people like me that would like this feature, even though the Snitz Team should have already solved this matter for new versions of the forum.
Here's how to proceed.
#############
First of all, we need to edit pop_profile.asp
Search for the following:
<td bgColor=<% =strPopUpTableColor %> align=right width="10%" nowrap><b><font
face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><%
=fLang(strLangPop_Profile00120) %> </font></b></td>
<% if Trim(rs("M_EMAIL")) <> "" then %>
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>"
size="<% =strDefaultFontSize %>"> <a href="JavaScript:openWindow('pop_mail.asp?id=<%
=rs("MEMBER_ID") %>')"><% =ChkString(rs("M_EMAIL"), "display") %></a> </font></td>
<% else %>
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>"
size="<% =strDefaultFontSize %>"><% =fLang(strLangPop_Profile00130) %></font></td>
<% end if %>
and substitute with:
<td bgColor=<% =strPopUpTableColor %> align=right width="10%" nowrap><b><font
face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><%
=fLang(strLangPop_Profile00120) %> </font></b></td>
<% if Trim(rs("M_EMAIL")) <> "" then %>
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>"
size="<% =strDefaultFontSize %>"> <a href="JavaScript:openWindow('pop_mail.asp?id=<%
=rs("MEMBER_ID") %>')"><% =fLang(strLangPop_Mail00010) %></a> </font></td>
<% else %>
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>"
size="<% =strDefaultFontSize %>"><% =fLang(strLangPop_Profile00130) %></font></td>
<% end if %>
There are two points in pop_profile.asp where the specified code occurs: substitute it with the new one in both points!
#################
Now, we need to edit pop_mail.asp
Find and remove the following code:
if Request.Form("Email") = "" then
Err_Msg = Err_Msg & "<li>" & fLang(strLangPop_Mail00060) & "</li>"
else
if EmailField(Request.Form("Email")) = 0 then
Err_Msg = Err_Msg & "<li>" & fLang(strLangPop_Mail00070) & "</li>"
end if
end if
Find and remove the following code, too:
<tr>
<td bgColor=<% =strPopUpTableColor %> align="right" nowrap><b><font face="<%
=strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% =fLang(strLangPop_Mail00200)
%></FONT></b></td>
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>"
size="<% =strDefaultFontSize %>"><% =rs("M_EMAIL") %><input type=hidden name="Email"
value="<% =rs("M_EMAIL") %>"></font></td>
</tr>
At last, find the following line:
strRecipients = Request.Form("Email")
and substitute with:
strRecipients = rs("M_EMAIL")
That's all. Now upload your edited pop_mail.asp and pop_profile.asp (be sure to backup the old ones).
I hope that this is of some use for anyone.
Sincerely,
Mauro.
Mauro |
|
|
Etymon
Advanced Member
United States
2391 Posts |
Posted - 05 July 2002 : 13:12:44
|
I was researching this just the other day, mauromol.
Thanks for making sense of it for us!
Etymon
|
 |
|
|
DoraMoon
Average Member
Taiwan
661 Posts |
Posted - 05 July 2002 : 13:57:31
|
i think this should be a incautious mistake...
quote:
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>"
size="<% =strDefaultFontSize %>"><% =rs("M_EMAIL") %><input type=hidden name="Email"
value="<% =rs("M_EMAIL") %>"></font></td>
should be ...
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>"
size="<% =strDefaultFontSize %>"><% =rs("M_NAME") %><input type=hidden name="Email"
value="<% =rs("M_EMAIL") %>"></font></td>
in actually, as i know, u can remove these whole table rows <tr>..</tr>, just leave the <input type=hidden name="Email" value="<% =rs("M_EMAIL") %> one line only...
and.. i know there were someone already talking about this... in this way, u still can see the email address by looking the source of web page...
i am waiting the new version of Snitz eagerly, they REALLY HIDE the email (like this forum do now..  ), even the <input type=hidden .... u can't see it !!! ^_^
~~ ¡¹ ¡¸ ¡¸¡¹ ¡¸ ¡¹ ~~ |
|
|
|
mauromol
Starting Member
Italy
20 Posts |
Posted - 05 July 2002 : 14:10:29
|
quote:
in actually, as i know, u can remove these whole table rows <tr>..</tr>, just leave the <input type=hidden name="Email" value="<% =rs("M_EMAIL") %> one line only...
and.. i know there were someone already talking about this... in this way, u still can see the email address by looking the source of web page...
i am waiting the new version of Snitz eagerly, they REALLY HIDE the email (like this forum do now.. ), even the <input type=hidden .... u can't see it !!! ^_^
Hi DoraMoon,
if you read carefully my message, you'll see that I was saying to completely remove that line: in this way, you won't find the e-mail address at all, even if looking at the HTML source code!
So, no <INPUT TYPE=hidden etc.> needed anymore, as you want! :-)
Sincerely,
Mauro |
|
|
|
DoraMoon
Average Member
Taiwan
661 Posts |
Posted - 05 July 2002 : 14:17:19
|
yeh~~ i think it's my incautious mistake ... really SORRY about it !! 
and i never see this version of modification before..
should trying it now !!!!
thanks mauromol for this information !
~~ ¡¹ ¡¸ ¡¸¡¹ ¡¸ ¡¹ ~~ |
|
|
|
DoraMoon
Average Member
Taiwan
661 Posts |
Posted - 05 July 2002 : 14:43:30
|
Hi~ Mauro
it seem work fine and no problem after i trying ... Thanks again !!
b4 i just do'nt know u can remove this check if Request.Form("Email") = "" then ... these lines too ... so how stupid am i, i still keep the <input ... until now...
and now it really as i want... Totally Hide the email address...
Thanks very much !!!! ^^
~~ ¡¹ ¡¸ ¡¸¡¹ ¡¸ ¡¹ ~~ |
|
|
|
mauromol
Starting Member
Italy
20 Posts |
Posted - 05 July 2002 : 20:22:51
|
quote:
b4 i just do'nt know u can remove this check if Request.Form("Email") = "" then ... these lines too ... so how stupid am i, i still keep the <input ... until now...
You can now remove that check because I also modified the way the e-mail address is passed to the sending routine: directly from the database rather than from the value of the (hidden or not) INPUT object.
Glad to see that it is useful to you!
Don't forget to thank Kerry too, as I started from his own modifications.
Sincerely,
Mauro |
|
|
|
TonyK
Starting Member
5 Posts |
Posted - 17 July 2002 : 12:20:02
|
Mauromol
Thanks for the new code on hiding mail addys. Is it possible for you to make it available as a download to just replace the 2 pages in question?
The reason I ask is that I can't copy and paste from here.
Thanks in advance
Explain it to me like I'm a five year old. |
|
|
|
Shaggy
Support Moderator
Ireland
6780 Posts |
Posted - 17 July 2002 : 13:01:56
|
quote:
The reason I ask is that I can't copy and paste from here.
TonyK, if you reply with quote to the original post, it makes copying and pasting a little easier.
c ya in the funny books 
MeTV - tvthemetunes.net - forums
house of design - graphic design consultants
"No one can earn a million dollars honestly." |
|
|
| |
Topic |
|
Topic Locked
