MOD: OnlineVideos 1.1 - Snitz™ Forums 2000

The Forum has been Updated

The code has been upgraded to the latest .NET core version. Please check instructions in the Community Announcements about migrating your account.

MOD: OnlineVideos 1.1 - نوشته شده در 10 Mar 2008 (25194 Views)

balexandre

Junior Member

مطلب: 418

418

As told some days ago in this post, here is the complete tutorial for the Marcel's Video MOD that I call OnlineVideos.
it has all the Marcel's code compiled into a nice step by step tutorial so you can't miss having this great accomplish in your Snitz Forum.
Thank you Marcel for the work

I just compiled it and created nice icons ...

To download the MOD follow up this link
hope you like it...

Updated:
v.1.1: Fixed a small bug that would give "error: illegal use of flash tag!" when using Prompt box; Added video.js pointer to inc_header_short.asp<

Bruno Alexandre
(Strøby, DANMARK)

"a Portuguese in Danmark"

MOD's contribution to Snitz community * Facebook Module *
RSS Snitz Multiple Feed *
Online videos (Youtube, Google video, Flash, Quicktime, etc) *
Add avatar with image crop (on the fly) *
Show last messages in the forum *
Show how many messages since yours IN PAGE TITLE *
Updated version of Gender MOD *
Fly to the top instead of jumping *

an idea: iPhone version of Snitz
<mySnitzForum>GAPE</mySnitzForum>

آخرین ویرایش توسط

نوشته شده در 11 Mar 2008

MarcelG

Retired Support Moderator

مطلب: 2625

2625

Good job Bruno!<

portfolio - linkshrinker - oxle - twitter

نوشته شده در 11 Mar 2008

AnonJr

Forum Moderator

مطلب: 5768

5768

Well there it is, the official blessing.

نوشته شده در 13 Mar 2008

rrf

Starting Member

مطلب: 22

Works great! Many thanks Bruno

نوشته شده در 14 Mar 2008

balexandre

Junior Member

مطلب: 418

418

off course! what would you expect ?

eheheh

نوشته شده در 18 Mar 2008

furk

Starting Member

مطلب: 11

I've some troubles with this mod.
Followed the setup instructions but seem not working.
I tried all the tags, same result, video not showing.
This is what is been generated for example by the TUBE tag:

Code:

<div class="tube"><script language="javascript">EmbedYT("<a href="http://www.youtube.com/v/S_Va0ojp-Dk" target="_blank">http://www.youtube.com/v/S_Va0ojp-Dk</a>",375,298,"false","high","white","white")</script></div>

Any hint?<

Tha't all forks!
<center>[IMG]http://www.snitzhcd.com/stats/rank.asp?231[/IMG]</center>

نوشته شده در 18 Mar 2008

furk

Starting Member

مطلب: 11

Code:

function ChkURLs(ByVal strToFormat, ByVal sPrefix, ByVal iType)
	Dim strArray
	Dim Counter

	ChkURLs = strToFormat

	if InStr(1, strToFormat, sPrefix) > 0 Then
		strArray = Split(strToFormat, sPrefix, -1)
		ChkURLs = strArray(0)

		for Counter = 1 To UBound(strArray)
			if ((strArray(Counter-1) = "" Or Len(strArray(Counter-1)) < 5) And strArray(Counter)<> "") then
				ChkURLs = ChkURLs & edit_hrefs(sPrefix & strArray(Counter), iType)
			elseif ((UCase(Right(strArray(Counter-1), 6)) <> "HREF=""") and _
				(UCase(Right(strArray(Counter-1), 5)) <> "[IMG]") and _
				(UCase(Right(strArray(Counter-1), 5)) <> "[URL]") and _
				(UCase(Right(strArray(Counter-1), 6)) <> "[URL=""") and _
				(UCase(Right(strArray(Counter-1), 8)) <> "_BLANK"">") and _
				(UCase(Right(strArray(Counter-1), 5)) <> "[WMV]") and _
				(UCase(Right(strArray(Counter-1), 6)) <> "[TUBE]") and _
				(UCase(Right(strArray(Counter-1), 9)) <> "[MYSPACE]") and _
				(UCase(Right(strArray(Counter-1), 6)) <> "[GVID]") and _
				(UCase(Right(strArray(Counter-1), 10)) <> "[METACAFE]") and _
				(UCase(Right(strArray(Counter-1), 5)) <> "[WMA]") and _
				(UCase(Right(strArray(Counter-1), 4)) <> "[QT]") and _
				(UCase(Right(strArray(Counter-1), 4)) <> "[RV]") and _
				(UCase(Right(strArray(Counter-1), 7)) <> "FLASH]""") and _
				(UCase(Right(strArray(Counter-1), 5)) <> "WMV]""") and _
				(UCase(Right(strArray(Counter-1), 4)) <> "QT]""") and _
				(UCase(Right(strArray(Counter-1), 4)) <> "RM]""") and _
				(UCase(Right(strArray(Counter-1), 7)) <> "[FLASH]") and _
				(UCase(Right(strArray(Counter-1), 5)) <> "[FLV]") and _
				(UCase(Right(strArray(Counter-1), 5)) <> "TUBE]") and _
				(UCase(Right(strArray(Counter-1), 6)) <> "FTP://") and _
				(UCase(Right(strArray(Counter-1), 8)) <> "FILE:///") and _
				(UCase(Right(strArray(Counter-1), 7)) <> "HTTP://") and _
				(UCase(Right(strArray(Counter-1), 8)) <> "HTTPS://") and _
				(UCase(Right(strArray(Counter-1), 5)) <> "SRC=""") and _
				(UCase(Right(strArray(Counter-1), 1)) <> "-") and _
				(UCase(Right(strArray(Counter-1), 1)) <> "=") and _
				(strArray(Counter) <> "")) then

				ChkURLs = ChkURLs & edit_hrefs(sPrefix & strArray(Counter), iType)
			else
				ChkURLs = ChkURLs & sPrefix & strArray(Counter)
			end if
		next
	end if
end function

Followed the moddescription.html included in the archive.
Have i missed something?<

Tha't all forks!
<center>[IMG]http://www.snitzhcd.com/stats/rank.asp?231[/IMG]</center>