Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/O Code)
 Hide links from guest users.

Note: You must be registered in order to post a reply.
To register, click here. Registration is FREE!
Before posting, make sure you have read this topic!

Screensize:
UserName:
Password:
Format Mode:
Format: BoldItalicizedUnderlineStrikethrough Align LeftCenteredAlign Right Horizontal Rule Insert HyperlinkInsert EmailInsert Image Insert CodeInsert QuoteInsert List
   
Message:

* HTML is OFF
* Forum Code is ON
Smilies
Smile [:)] Big Smile [:D] Cool [8D] Blush [:I]
Tongue [:P] Evil [):] Wink [;)] Clown [:o)]
Black Eye [B)] Eight Ball [8] Frown [:(] Shy [8)]
Shocked [:0] Angry [:(!] Dead [xx(] Sleepy [|)]
Kisses [:X] Approve [^] Disapprove [V] Question [?]

 
   

T O P I C    R E V I E W
Ghostman Posted - 30 January 2009 : 13:50:24
I was looking for a mod that would give me the possibility to hide http:// links from guests.
The main idea is to add a [hide][/hide] so if i want to hide a url from a guest i would use that code and a guest would see a message like "only registered members can see the links" instead of the links.
Can anyone help me with that?

Thanks

<moved from="Help: General / Current Version (v3.4.xx)" by="Shaggy" /><
12   L A T E S T    R E P L I E S    (Newest First)
Carefree Posted - 02 February 2009 : 08:43:16
Try this<
Ghostman Posted - 02 February 2009 : 06:29:16
ok

here's the links to the code in inc_code.js

http://only.ghostlinks.com.pt/code.txt<
Classicmotorcycling Posted - 02 February 2009 : 04:01:18
Trouble with quick cut and paste.
quote:
Originally posted by Carefree

Your icon names need to be the same, David. You cannot use "strIconEditorCode" in one instance and use "strIconEditorHideUrl" in another.

<
Carefree Posted - 01 February 2009 : 22:44:10
Ghostman, change the lines for inc_post_buttons.asp to say:
if mlev > 0 then
	Response.Write	"                <a href=""Javascript:hideurl();"" tabindex=""-1"">" & getCurrentIcon(strIconEditorURL,"Hide URL","align=""top""") & "</a>" & vbNewLine
end if


If the button is showing and nothing happens when you click it, then you must have an error in your "inc_code.js" file. Post a link to it in .txt format and we'll try and fix it.<
Ghostman Posted - 01 February 2009 : 20:12:19
the button shows but I click on the button and nothing happens<
Carefree Posted - 01 February 2009 : 17:08:55
Your icon names need to be the same, David. You cannot use "strIconEditorCode" in one instance and use "strIconEditorHideUrl" in another.
<
Classicmotorcycling Posted - 01 February 2009 : 00:53:58
If you have the other part working, this should allow you to add a button to be able press a button. You will need to edit 3 files and add an icon to your forum image folder:

inc_code.js:



function hideurl() {
	var text = getText();
 	if (helpstat) {
		alert("Hide URLs from non-members.\n\nUSE: [hide]This URL is hidden[/hide]");
	} else if (basic) {
		AddTxt="[hide]" + text + "[/hide]";
		AddText(AddTxt);
	} else {
		if (text) {
			txt=prompt("URL to be hidden",text);
		} else {
			txt=prompt("TURL to be hidden","Text");
		}
		if (txt!=null) {
			AddTxt="[hide]"+txt+"[/hide]";
			AddText(AddTxt);
		}
	}
}



inc_post_buttons.asp:



if mlev > 0 then
	Response.Write	"                <a href=""Javascript:hideurl();"" tabindex=""-1"">" & getCurrentIcon(strIconEditorCode,"Hide URL","align=""top""") & "</a>" & vbNewLine
end if



inc_iconfiles.asp"



Const strIconEditorHideUrl = "icon_editor_hide_url.gif|23|22"



Quick icon image:

I hope that helps. <
Ghostman Posted - 31 January 2009 : 21:47:18
quote:
Originally posted by cripto9t

I just wrote a function for this. I put it through a few test, and it seems to work fine. The problem with it is, a nonmember can still see the content in "Reply with Quote". I can write a function to deal with this, but I just can't think of a good way to do it.

a. Remove the hidden content for nonmembers and leave the hide tags visible to members. (Problems: members may remove one or more hide tags before posting)

b. Remove hidden content for everyone. (Problem: Member could still cut and paste.)

c. ?

On the other hand this would work great on locked topics.

Here's the code if you want to test it.

inc_func_common.asp

around line 116 find these lines
function FormatStr(fString)
	on Error resume next

add this line under that
        if DoHide = true then fString = ReplaceHideTags(fString)

around line 150 find these lines
	if strAllowForumCode = "1" then
		fString = extratags(fString)
	end if
	FormatStr = fString
	on Error goto 0
end function

Add this code under that
Function ReplaceHideTags(fString)
    Dim regEx
    Dim strMsg

    Set regEx = New RegExp
    regEx.IgnoreCase = True
    regEx.Global = True
    regEx.MultiLine = True

    '## Message to none members. 
    '## Use html not forum code. 
    '## No message __ strMsg = ""
    strMsg = "<b><u>You Must Be Logged In to View This Content.</u></b>" 

    if mLev > 0 then
        regEx.Pattern = "\[HIDE\]([\s\S]*?)\[/HIDE\]"
        fString = regEx.Replace(fString,"$1")
    else
        regEx.Pattern = "\[HIDE\][\s\S]*?\[/HIDE\]"
        fString = regEx.Replace(fString,strMsg)
    end if

    Set regEx = Nothing
        
    ReplaceHideTags = fString
End Function


topic.asp

around line 35 find these lines
%>
<!--#INCLUDE FILE="config.asp"-->
<%

Add this line under that
DoHide = true


Thats it
hide tags - [hide] - [/hide] upper or lower case


Tested and it works like a charm.
Thanks so much.


Can you give a code to add a button to place the tags on the topic response form?<
modifichicci Posted - 31 January 2009 : 11:30:00
Maybe adding an if strDBNTUserName <> "" before showing the reply with quote button?<
cripto9t Posted - 31 January 2009 : 10:43:21
I just wrote a function for this. I put it through a few test, and it seems to work fine. The problem with it is, a nonmember can still see the content in "Reply with Quote". I can write a function to deal with this, but I just can't think of a good way to do it.

a. Remove the hidden content for nonmembers and leave the hide tags visible to members. (Problems: members may remove one or more hide tags before posting)

b. Remove hidden content for everyone. (Problem: Member could still cut and paste.)

c. ?

On the other hand this would work great on locked topics.

Here's the code if you want to test it.

inc_func_common.asp

around line 116 find these lines
function FormatStr(fString)
	on Error resume next

add this line under that
        if DoHide = true then fString = ReplaceHideTags(fString)

around line 150 find these lines
	if strAllowForumCode = "1" then
		fString = extratags(fString)
	end if
	FormatStr = fString
	on Error goto 0
end function

Add this code under that
Function ReplaceHideTags(fString)
    Dim regEx
    Dim strMsg

    Set regEx = New RegExp
    regEx.IgnoreCase = True
    regEx.Global = True
    regEx.MultiLine = True

    '## Message to none members. 
    '## Use html not forum code. 
    '## No message __ strMsg = ""
    strMsg = "<b><u>You Must Be Logged In to View This Content.</u></b>" 

    if mLev > 0 then
        regEx.Pattern = "\[HIDE\]([\s\S]*?)\[/HIDE\]"
        fString = regEx.Replace(fString,"$1")
    else
        regEx.Pattern = "\[HIDE\][\s\S]*?\[/HIDE\]"
        fString = regEx.Replace(fString,strMsg)
    end if

    Set regEx = Nothing
        
    ReplaceHideTags = fString
End Function


topic.asp

around line 35 find these lines
%>
<!--#INCLUDE FILE="config.asp"-->
<%

Add this line under that
DoHide = true


Thats it
hide tags - [hide] - [/hide] upper or lower case<
Ghostman Posted - 30 January 2009 : 23:41:21
i have tried that and it's not working.

is there a way to change the spoiler tag to make it hide tag and do what I need?<
leatherlips Posted - 30 January 2009 : 20:32:54
I believe this thread has the information you are looking for:

http://forum.snitz.com/forum/topic.asp?TOPIC_ID=64934<

Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.04 seconds. Powered By: Snitz Forums 2000 Version 3.4.07