Profile Enhancements - Mood Manager - with AJAX mood update.

By http://www.vbulletinexpert.com

UPDATES ON 24/07/2007

1.2.5
-----

- Fixed XSS security issue
- Added Banned usergroup option

UPDATES ON 15/04/2007

1.2.4
-----

Credits to hambil - https://vborg.vbsupport.ru/member.php?u=57845 for this update

- Aligned text and images for a cleaner look
- Changed dropdown to contain mood images instead of text, with admin option
- Added optional auto replace for postbit and postbit legacy templates

UPDATES ON 08/10/2006

1.2.3
-----

- Changed how the dropdown menu looks slighty, better I think.

- One of the plugins was left inactive by mistake, now active.
which resulted in dead mood images e.g. cross displayed in IE

- Fixed a few mood names / images, so are the same.

- Added a few NEW mood images, thanks to GlitterKill

UPDATES ON 22/09/2006
~~~~~~~~~~~~~~~~~

1.2.0
------

Simply Import the product and make sure you select "allow overwrite"

- No Mood option added
- User Moods will no longer disaply in postbit if moods are disabled.


1.1.3
------

- thanks to basilrath for the moods.

PLEASE READ THE INSTALL FILE

What is It?

It allows users to set a personal mood, which can be changed without reloading the page. The moodis displayed in the members profile and postbit.

Instructions Incuded in the attached file.

Demo

Support I can provide better support at www.vbcmspro.com

Upgrade My other hack depended on another hack, this does not, so simply undo / delete the other hack.

[kennethsia]

i wonder is it possible to limit it to a certain usergroup?

[rainyleaves]

Originally Posted by RaceJunkie

AdminCp>>>>vBa CMPS>>>>Default Settings>>>>
Look for Portal Output Global Variables

Add in the box
vbmoods
usermoods


Click Save at bottom of the page..

Thanks !!
Works perfectly.

[Poppet]

Installed and working great :up:

Our members love it

[selwonk]

Just to speed the process up, if you create/rename your mood icons, this little bit of VBscript will create a file called _List.txt which looks like this:

Aggressive
Amazed
Amused
Angelic
Angry
Apprehensive
Approved
Asleep
Bahahaha
...
Wasted
Where
Wicked
Woot
Yeehaw

Just create a _List.vbs text file in the \images\mood\ folder and paste this code

	Function FileExists( str_FileName )
		Set obj_FSO = CreateObject("Scripting.FileSystemObject")
		If (obj_FSO.FileExists(str_FileName)) Then
			FileExists = True
		Else
			FileExists = False
		End If
		Set obj_FSO = Nothing
	End Function

	Function WriteToFile( str_FileName, str_Message )
		Set obj_FSO = CreateObject("Scripting.FileSystemObject")
		Set obj_OutputFile = obj_FSO.OpenTextFile(str_FileName, 2, True, 0)
		obj_OutputFile.WriteLine(str_Message)
	    obj_OutputFile.Close
	    Set obj_OutputFile = Nothing
		Set obj_FSO = Nothing
	End Function

	Function ReadTextFile( str_FileName )
		int_ReadTextFileCounter = 0
		While FileExists(str_FileName) = False And int_ReadTextFileCounter < 1000 ' 3.0
			int_ReadTextFileCounter = int_ReadTextFileCounter + 1
			' Wait for file to be created
		Wend

		Set obj_FSO = CreateObject("Scripting.FileSystemObject")
		Set obj_InputFile = obj_FSO.GetFile(str_FileName)
		Set obj_TextStream = obj_InputFile.OpenAsTextStream(1, TristateFalse)
		str_Text = obj_TextStream.ReadAll
	    Set obj_InputFile = Nothing
		Set obj_FSO = Nothing
		ReadTextFile = str_Text
	End Function

	Sub DeleteFile( str_FileName )
    	Set obj_FSO = CreateObject("Scripting.FileSystemObject")
		If obj_FSO.FileExists(str_FileName) Then
			obj_FSO.DeleteFile(str_FileName)
		End if
		Set obj_FSO = Nothing
	End Sub
	
	' Parameters
	Set obj_FSO = CreateObject("Scripting.FileSystemObject")
	GBL_IN = obj_FSO.GetAbsolutepathname("") & "\"
	GBL_OUT = obj_FSO.GetAbsolutepathname("_List.txt")
	Set obj_FSO = Nothing

	Set obj_FSO = CreateObject("Scripting.FileSystemObject")
	Set obj_Folder = obj_FSO.GetFolder(GBL_IN)

	str_Log = ""

	For Each obj_File In obj_Folder.Files
		str_FileName = obj_File.Name
		If Right(str_FileName, 4) = ".gif" Then
			WScript.Echo str_FileName
			str_Log = str_Log & Left(str_FileName, Len(str_FileName) - 4) & vbcrlf
		End If
	Next

	Set obj_Folder = Nothing
	Set obj_FSO = Nothing

	WriteToFile GBL_OUT, str_Log

Get to a DOS prompt, change to that folder and type

cscript _List.vbs

Edit the resultant file and paste the results into the Admin CP

Hope that helps...

[Poppet]

Originally Posted by -=Sniper=-

run this query

PHP Code:

UPDATE user SET mood = 'newmood.gif' WHERE mood = 'oldmood.gif' 


Please could you elaborate on this one (Sorry tired brain after reading 33 pages )

I've just had an issue with one of our members where I needed to reset their mood but didn't know how to Would it be possible to provide a way to reset moods in the Admin CP.

[-=Sniper=-]

kennethsia; i'll add the ability to ban/disable the mood feature for usergroups

Poppet; I'll add the options in the admincp -> user edit/add section to reset a users mood.

as for running the query;

in the admincp -> Maintenance -> Execute SQL Query -> enter the code I gave above!

I'll start to work on it after work tomorrow, so last chance to make suggestions

[-=Sniper=-]

HACK updated to fix XSS SECURITY ISSUE!

[PoetJA-1975]

Thanx for the update

Jacquii.

[Shazz]

So in the upgrade to fix the XSS security issue would be to over write the product and thats all? :|

[odie3]

thanks for the update!