The Arcive of Official vBulletin Modifications Site.It is not a VB3 engine, just a parsed copy! |
|
Mood Manager - with AJAX mood update. Details »» | |||||||||||||||||||||||||
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. Supporters / CoAuthors Show Your Support
|
Comments |
#492
|
|||
|
|||
i wonder is it possible to limit it to a certain usergroup?
|
#493
|
|||
|
|||
Quote:
Works perfectly. |
#494
|
|||
|
|||
Installed and working great :up:
Our members love it |
#495
|
||||
|
||||
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:
Code:
Aggressive Amazed Amused Angelic Angry Apprehensive Approved Asleep Bahahaha ... Wasted Where Wicked Woot Yeehaw 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 Code:
cscript _List.vbs Hope that helps... |
#496
|
|||
|
|||
Quote:
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. |
#497
|
|||
|
|||
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 |
#498
|
|||
|
|||
HACK updated to fix XSS SECURITY ISSUE!
|
#499
|
||||
|
||||
Thanx for the update
Jacquii. |
#500
|
||||
|
||||
So in the upgrade to fix the XSS security issue would be to over write the product and thats all? :|
|
#501
|
|||
|
|||
thanks for the update!
|
|
|
X vBulletin 3.8.12 by vBS Debug Information | |
---|---|
|
|
More Information | |
Template Usage:
Phrase Groups Available:
|
Included Files:
Hooks Called:
|