logger edit

[(master)viper]

Hello all. I have this script but i want that only op's and
masters can open the log files. Can somebody edit this for me

-- Stat-logger 0.3 by Troubadour
-- created a seperated config file + gui

-- Stat-logger 0.2 by Troubadour
-- to write all info to a file with the date of that day when users log in (name, e-mail, ip and share)
-- command for viewing the files is !
-- for example !280704 is the command to view the file of 28 juli 2004

-- Stat-logger 0.1 by Troubadour
-- to write all info to a file when a user logs in (name, e-mail, ip and share)
-- command to view the file is !statlog

D = date("%d")
MM = date("%m")
Y = date("%y")

dofile("Stat-logger03.cfg");  -- is used for the settings
statlogfile = ("Data/"..D..""..MM..""..Y..".txt")

function Main()
   frmHub:RegBot(BOTName)
   SendToAll("( >>>>  "..Version.." Started"..date(" the %d/%m-%Y at %X ").."  <<<< )")
end

function DataArrival(user,data)

data=strsub(data,1,strlen(data)-1)
if( strsub(data, 1, 1) == "<" ) then
s,e,cmd = strfind(data,"%b<>%s+(%S+)")
cmd = strsub(cmd, 2,strlen(cmd))
if readfrom("Data/"..cmd..".txt") then
showtext(user, cmd)
return 1
end
elseif(strsub(data, 1, 4) == "$To:") then
s,e,cmd = strfind(data,"$To:%s+%S+%s+From:%s+%S+%s+$%b<>%s+(%S+)")
cmd = strsub(cmd, 2,strlen(cmd))
if readfrom("Data/"..cmd..".txt") then
showtext(user, cmd)
return 1
end
end
end

function OpConnected(user)
   description,email,share=MyInfoString(user.sMyInfoString)
   local share2 = share / (1024*1024*1024)
   --SendToAll("Stat-logger",user.sName.." with e-mail "..email..", IP "..user.sIP.." and with share "..share2.." Gb")
   statlogfile = ("Data/"..D..""..MM..""..Y..".txt")
   appendto(statlogfile)
   write("\t","On the "..date("%d").."."..date("%m").."."..date("%y").." - "..date("%H")..":"..date("%M").." - "..user.sName.." with e-mail "..email..", IP "..user.sIP.." and with share "..share2.."Gb connected \r\n")
   writeto()
end

function NewUserConnected(user)
   description,email,share=MyInfoString(user.sMyInfoString)
   local share2 = share / (1024*1024*1024)
   --SendToAll("Stat-logger",user.sName.." with e-mail "..email..", IP "..user.sIP.." and with share "..share2.." Gb")
   statlogfile = ("Data/"..D..""..MM..""..Y..".txt")
   appendto(statlogfile)
   write("\t","On the "..date("%d").."."..date("%m").."."..date("%y").." - "..date("%H")..":"..date("%M").." - "..user.sName.." with e-mail "..email..", IP "..user.sIP.." and with share "..share2.."Gb connected \r\n")
   writeto()

end

function MyInfoString(data)
s,e,description,nada,email,share = strfind(data, "$MyINFO $ALL ([^$]+)$ $([^$]*)$([^$]*)$([^$]+)")
return description,email,share
end


function showtext(user, cmd)
lines = "\r\n\r\n"
readfrom("Data/"..cmd..".txt")
while 1 do
local line = read()
if line == nil then
readfrom()
break
end
lines = lines..line.."\r\n"
end
user:SendPM(BOTName, lines.." |")
end


Greatz (MASTER)Viper
Enter The matrix
Dutchmatrix.no-ip.info:3111

[TTB]

Use thisone:

-- Stat-logger 0.2 by Troubadour 
-- to write all info to a file with the date of that day when users log in (name, e-mail, ip and share)
-- command for viewing the files is #
-- for example #280704 is the command to view the file of 28 juli 2004

-- Stat-logger 0.1 by Troubadour 
-- to write all info to a file when a user logs in (name, e-mail, ip and share)
-- command to view the file is #statlog

D = date("%d")
MM = date("%m")
Y = date("%y")

BOTName = "[BOT]PLAY"
Version = "Stat-logger 0.2"

statlogfile = ("Data/"..D..""..MM..""..Y..".txt")

function Main() 
	frmHub:RegBot(BOTName)
	--SendToAll("( >>>>  "..Version.." Started"..date(" the %d/%m-%Y at %X ").."  <<<< )")
end 

function DataArrival(user,data) 

data=strsub(data,1,strlen(data)-1) 
if( strsub(data, 1, 1) == "<" ) then 
s,e,cmd = strfind(data,"%b<>%s+(%S+)") 
cmd = strsub(cmd, 2,strlen(cmd)) 
--if readfrom("Data/"..cmd..".txt") then 
if readfrom("Data/"..cmd..".txt") and user.bOperator then 
showtext(user, cmd) 
return 1 
end 
elseif(strsub(data, 1, 4) == "$To:") then 
s,e,cmd = strfind(data,"$To:%s+%S+%s+From:%s+%S+%s+$%b<>%s+(%S+)") 
cmd = strsub(cmd, 2,strlen(cmd)) 
--if readfrom("Data/"..cmd..".txt") then
if readfrom("Data/"..cmd..".txt") and user.bOperator then
showtext(user, cmd) 
return 1 
end 
end 
end 

function OpConnected(user)
	description,email,share=MyInfoString(user.sMyInfoString)
	local share2 = share / (1024*1024*1024)
	--SendToAll("Stat-logger",user.sName.." with e-mail "..email..", IP "..user.sIP.." and with share "..share2.." Gb")
	statlogfile = ("Data/"..D..""..MM..""..Y..".txt")
	appendto(statlogfile) 
	write("\t","On the "..date("%d").."."..date("%m").."."..date("%y").." - "..date("%H")..":"..date("%M").." - "..user.sName.." with e-mail "..email..", IP "..user.sIP.." and with share "..share2.."Gb connected \r\n")
	writeto()
end

function NewUserConnected(user)
	description,email,share=MyInfoString(user.sMyInfoString)
	local share2 = share / (1024*1024*1024)
	--SendToAll("Stat-logger",user.sName.." with e-mail "..email..", IP "..user.sIP.." and with share "..share2.." Gb")
	statlogfile = ("Data/"..D..""..MM..""..Y..".txt")
	appendto(statlogfile) 
	write("\t","On the "..date("%d").."."..date("%m").."."..date("%y").." - "..date("%H")..":"..date("%M").." - "..user.sName.." with e-mail "..email..", IP "..user.sIP.." and with share "..share2.."Gb connected \r\n")
	writeto()

end

function MyInfoString(data)
s,e,description,nada,email,share = strfind(data, "$MyINFO $ALL ([^$]+)$ $([^$]*)$([^$]*)$([^$]+)") 
return description,email,share
end


function showtext(user, cmd) 
lines = "\r\n\r\n" 
readfrom("Data/"..cmd..".txt") 
while 1 do 
local line = read() 
if line == nil then 
readfrom() 
break 
end 
lines = lines..line.."\r\n" 
end 
user:SendPM(BOTName, lines.." |") 
end

[(master)viper]

Thanks Works good.  :))


(MASTER)Viper
Enter The Matrix
dutchmatrix.no-ip.info:3111