If anyone wants his/her logs put in directiories depending on the year and month. All you have to do i set default log directory in global preferences and world name in world preferences.
Here is the code:
<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE muclient>
<!-- Saved on Friday, December 10, 2004, 9:25 PM -->
<muclient>
<plugin
name="Logger"
author="Lisev"
id="c8198a528d16d91779380483"
language="VBscript"
purpose="Logging_mud"
date_written="2004-12-10 21:24:03"
requires="3.50"
version="1.0"
>
</plugin>
<timers>
<timer name="reopen" script="Reopen_log" enabled="y" hour="1"></timer>
<timer name="boot_up" script="Reopen_log" enabled="y" second="1" one_shot="1">
</timer>
</timers>
<!-- Script -->
<script>
<![CDATA[
option explicit
Sub OnPluginInstall
dim path, Filename, MyFolder, MyFiles
path = world.getInfo(58)
Set MyFiles = CreateObject("Scripting.FileSystemObject")
if len(path) < 1 then
world.note "Global log dir was not set"
exit sub
end if
if not(MyFiles.FolderExists(path & year(now()) & "/")) then
world.note "Folder: " & path & year(now()) & " does not exists. I will try to create it."
MyFiles.CreateFolder(path & year(now()))
if (err.number>0) then
world.note "Error during creation of folder: " & year(now()) & "\"
exit sub
else
world.note "Folder created: " & year(now()) & "\"
path = path & year(now()) & "\"
end if
else
path = path & year(now()) & "\"
end if
MyFolder = MonthName(Month(now()))
if not(MyFiles.FolderExists(path & MyFolder)) then
world.note "Folder: " & path & MyFolder & "\ does not exist. I'll try to create it"
MyFiles.CreateFolder(path & MyFolder)
if (err.number>0) then
world.note "Error during creation of folder: " & MyFolder & "\"
exit sub
else
path = path & MyFolder & "\"
end if
else
path = path & MyFolder & "\"
end if
world.setvariable "old_option_log_line_preamble_input", world.getAlphaOption ("log_line_preamble_input")
world.setAlphaOption "log_line_preamble_input", "[%H:%M:%S][command] "
world.setvariable "old_option_log_line_preamble_notes", world.getAlphaOption ("log_line_preamble_notes")
world.setAlphaOption "log_line_preamble_notes", "[%H:%M:%S][note] "
world.setvariable "old_option_log_line_preamble_output", world.getAlphaOption ("log_line_preamble_output")
world.setAlphaOption "log_line_preamble_output", "[%H:%M:%S] "
Filename = path & Replace (World.Worldname, " ", "")
Filename = Filename & "_" & year(now()) & "_" & monthname(month(now()))
Filename = Filename & "_" & day(now())
Filename = Filename & ".txt"
if World.OpenLog (FileName, True) = 0 then
World.WriteLog "--- Log open: " & Now () & " ---"
World.colournote "red", "black", "Logging enabled: " & FileName
else
World.colournote "red", "black", "Logging disabled (something did not worked) " & FileName
end if
End sub
Sub OnPluginClose
World.colournote "red", "green", "Closing log"
World.WriteLog "--- Log Closed " & Now () & " ---"
World.CloseLog
world.setAlphaOption "log_line_preamble_input", world.getvariable("old_option_log_line_preamble_input")
world.setAlphaOption "log_line_preamble_notes", world.getvariable("old_option_log_line_preamble_notes")
world.setAlphaOption "log_line_preamble_output", world.getvariable("old_option_log_line_preamble_output")
End Sub
Sub Reopen_log(timer)
dim file
file = world.getinfo(51)
world.colournote "pink", "black", "---- Reopening log in progress: " & now() & " ------"
world.CloseLog
if World.OpenLog (file, True) = 0 then
world.colournote "pink", "black", "---- Reopening of log SUCCESS: " & now() & " ------"
else
world.colournote "pink", "black", "---- Reopening of log FAILURE: " & now() & " ------"
end if
end sub
]]>
</script>
</muclient>
|