RegMe 1.0d LUA 5.11 [Strict][API 2]

[XTC]

I get this error: scripts\RegMe.lua:1: 'end' expected near 'endendOpConnected

[Scanning]

You must have missed something when you copied the script, try again

[XTC]

I use this version: RegMe 1.0f LUA 5.11 [Strict][API 2]

Now the script is loaded, but it dont show up in the hub and nothing happens when I try to reg a unregistred user with the commands ??

When I check syntax I get this mesage. [21:05] Syntax [string "--[[..."]:267: unexpected symbol near '<eof>'

[Snooze]

Still looks like a bad copy/paste job..

/Snooze

[XTC]

I copy that many times now. If you could take time and upload that script It would be great. I dont know how it can happen this way. Iv'e done this so many times now. Its really strange.

Edit: NowI dont get any error messages. 2 problem, the RegMe dont show up in the. Maybe that is how it should be. Problem 2, the commands dont work?

[baba.runner]

I copy that many times now. If you could take time and upload that script It would be great. I dont know how it can happen this way. Iv'e done this so many times now. Its really strange.

Edit: NowI dont get any error messages. 2 problem, the RegMe dont show up in the. Maybe that is how it should be. Problem 2, the commands dont work?

try it here as attachement

[XTC]

Yes finally. Now it works. Thx a lot baba.runner.

[XTC]

RegMe 1.0f by Mutor Help

That text shows up in main. Where do I change that in the script. RegMe 1.0f by Mutor, that part I managed to change, but the "Help" part, where do I change that.?

And instead of show a new registred user in the main to OPs, can it be shown as a pm ?

[baba.runner]

And instead of show a new registred user in the main to OPs, can it be shown as a pm ?

change line 203 from

Code: [Select]

Core.SendToOps("<"..Bot.."> "..opmsg)to

Code: [Select]

Core.SendPmToOps("<"..Bot.."> ", opmsg)

[XTC]

Thx it work, no I just need to figure out how to change the text in main.

[Mutor]

Yes finally. Now it works. Thx a lot baba.runner.

Is copy/paste honestly too much for you?
You need to step up your game, son.

[quicky2g]

Is there a way to make the message that shows up in main chat when someone tries to do a search or download a file, show up in a personal message instead? I noticed that when someone does a search for files, the message will show up in the main chat for them that they are not allowed to download or search for files, but if you're searching for files, you're in a different tab than the main chat and you don't see that message right away. If a personal message popped up instead, it would get the users attention faster.

Also, I was thinking it would be cool to allow unregistered users to search for files on the hub but not download...then they could get an idea of what's already on the hub that would be interesting to them. Is there a way to make this script allow searches but not downloads?...and have the option to turn that feature on or off?

Thanks again!

[Mutor]

Sure you can have it reply in pm. Do bear in mind that allowing
pm's to pop is a client option. There is no guarantee it will pop.

History proves there is little you can do to make the oblivious
'see' anything. But as for searches, fraudulent search results
are returned. I will update the script to include searches for
only results with TTH root and only results from users with free
slots.

This is intent to be a security script. Many users are concerned
with anti-piracy agents seeking copyrighted materials in shares.
Some users only reg people so that they can maintain a certain
nick in the hub. If this is your need than you don't need this
version of the script.

[alcorp]

Sorry, but in last version i've got a strange bugs:

 /etc/ptokax/scripts/regme.lua:135: attempt to concatenate global 'n' (a nil value)

then i'd change in string number 132 h -> n

then i've got a next error:

/etc/ptokax/scripts/regme.lua:137: attempt to index global 'Cfg' (a nil value)

Then i'd remove Cfg. in that line.

Thanks for script, but very very strange what EVERYONE run it without bugs.

[Mutor]

I pulled that function from another of my scripts
and forgot to make the necessary corrections.
Script [ 1.0f ] on the previous page has been updated.
Thanks for the report.

[alcorp]

-- Disable chat for unregistered users? true/false
local RegChat = true

And how about +blablabla in the main chat?

[Mutor]

Now if RegChat = true, only script commands are accepted.

Code: [Select]

--[[

RegMe 1.0g LUA 5.11 [Strict][API 2]

By Mutor 04/07/07

Self Registration / Change Password Script

-Checks if user is already registered
-Checks for invalid characters in nick and password
-Context menus [right click]
-Responds to user in PM only
-Existing password required to changed password
-Prompts unregisted user to reg at script start and at user connect

+Changes from 1.0 04/07/07 Requested by Yahoo
+Added block unregistered user file transfer/search/chat and pm to non ops
+Added 'block' message to unregistered user at connect attempt
+Added report new self-registered user to online ops.

+Changes from 1.0b 04/13/07
+Added report Unregistered User login to OpNick Requested by Yahoo

+Changes from 1.0c 10/21/07
~Converted for the new PtokaX API

+Changes from 1.0d 10/21/07
~Bugfix in user reg, forgot all user data must be requested. Report by DarkElf

+Changes from 1.0e 02/16/08
+Added RegOnly/RegChat/RegPms options. Requested by Giorgos
+Added Report option
~Changed all SendToNick to SendToUser [faster call]

+Changes from 1.0f 10/06/09
+Blocked invalid command syntax, Requested by alcorp.
+Filtered help message per profile status.
+Added option for command notification to connecting users.

RegMe Command Help

Command Description
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
!rmhelp RegMe Command Help
!regme Register Yourself 
!passwd Change Your Password 

¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

]]

--//--
-- Disable transfer and search by unregistered users? true/false
local RegOnly = true
-- Disable chat for unregistered users? true/false
local RegChat = false
-- Disable private messages for unregistered users? true/false [pm's to ops are never blocked]
local RegPms = true
-- Report unregistered user logins to OpNick? true/false
local Report = true
-- Report nick for error messages and unregistered user logins [if Report = true]
local OpNick = "Mutor"
-- Show command notification to new connections? true/false
local Notify = true
--//--


local Bot,Scp,Pfx,Menu,SubMenu = "","","","",""
local BlockMsg = "\r\n\r\n\tUnregistered users may not chat, pm, search or transfer files in this hub.\r\n"..
"\tYou may pm operators for assistance. You may also self-register by typing.\r\n"..
"\t!regme <password> or use context menu commands [right click].\r\n\r\n"

OnStartup = function()
Bot,Scp,Pfxs = SetMan.GetString(21),"RegMe 1.0g by Mutor",SetMan.GetString(29)
Menu,SubMenu,Pfx =SetMan.GetString(0),"Self Registration",Pfxs:sub(1,1)
for _,user in ipairs(Core.GetOnlineUsers(-1)) do
Core.SendToUser(user,"<"..Bot.."> "..BlockMsg..RegCmds["rmhelp"](user,data,cmd))
end
end

UserConnected = function(user)
if user.iProfile == -1 then
SendCmds(user)
if Report then
OnError("The Unregistered User: "..user.sNick.." has logged in to "..SetMan.GetString(0))
end
if RegOnly then
Core.SendToUser(user,"<"..Bot.."> "..BlockMsg..RegCmds["rmhelp"](user,data,cmd))
end
end
end
OpConnected,RegConnected = UserConnected,UserConnected

ChatArrival = function(user,data)
local _,_,pfx,cmd = data:find("%b<> (["..Pfxs.."])(%a+)")
if pfx and cmd then
cmd = cmd:lower()
local i,p = user.iProfile,"Unregistered User"
if i ~= -1 then p = ProfMan.GetProfile(i).sProfileName end
local msg = "Sorry "..user.sNick..", "..p.."'s may not use the "..pfx..cmd.." command."
if RegCmds[cmd] then
if i == -1 and cmd == "regme" or i ~= -1 and cmd == "passwd" or cmd == "rmhelp" then
return Core.SendPmToUser(user,Bot,RegCmds[cmd](user,data,cmd)), true
else
if i == -1 and RegChat then return Core.SendPmToUser(user,Bot,msg), true end
end
else
if i == -1 and RegChat then
return Core.SendToUser(user,"<"..Bot.."> "..msg),
Core.SendToUser(user,"<"..Bot.."> "..BlockMsg),true
end
end
else
local _,_,to,from = data:find("^$To: (%S+) From: (%S+)")
if to and from then
if RegPms and user.iProfile == -1 then
local prof = Core.GetUser(to)
if prof then
if not Core.GetUserValue(prof,11) then
return Core.SendPmToUser(user,to,"<"..Bot.."> "..BlockMsg),true
end
else
return true
end
end
else
if RegChat and user.iProfile == -1 then
return Core.SendToUser(user,"<"..Bot.."> "..BlockMsg),true
end
end
end
end
ToArrival = ChatArrival

ConnectToMeArrival = function(user, data)
if RegOnly and user.iProfile == -1 then
local CtmMsg = "\t*Please remove this transfer from your download queue.*"
return Core.SendToUser(user,"<"..Bot.."> "..BlockMsg..
CtmMsg:gsub(" ",string.char(160)).."\r\n\r\n|"),true
end
end
RevConnectToMeArrival = ConnectToMeArrival

SearchArrival = function (user, data)
if RegOnly and user.iProfile == -1 then
local _,_,search = string.find(data,"([^?]+)|$")
if search then
local t = "TTH:AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"--hash(t) in lieu of hub(h)
local n,h,b,i,u = user.sNick,SetMan.GetString(0),SetMan.GetString(21),
SetMan.GetString(3):gsub(";.*",""),SetMan.GetString(4)
local res = "Unknown Path"..string.char(92)..n..", search is "..
"disabled for you :P "..string.rep("\t",15)..search
return Core.SendToUser(user,"$SR "..b.." "..res.." 0 1/2"..t.." ("..i..":"..u..")|"..
"<"..Bot.."> "..n..", search is disabled for you. Please close the "..
string.format("%q",search:gsub("%$"," ")).." search window. Thank you.|"),true
end
end
end

OnError = function(msg)
local user = Core.GetUser(OpNick)
if user then
Core.SendToUser(user,"<"..Bot.."> "..msg)
end
end

SendCmds = function(user)
local n,b = user.iProfile
for i,v in pairs(RegCmds) do
local c = i:lower()
if n == -1 and c == "regme" or n ~= -1 and c == "passwd" or c == "rmhelp" then
local desc,arg1,arg2 = RegCmds[i]()
Core.SendToUser(user,"$UserCommand 1 1 "..Menu.."\\"..SubMenu.."\\"..
desc.."$<%[mynick]> "..Pfx..i..arg1.."&#124;")
Core.SendToUser(user,"$UserCommand 1 2 "..Menu.."\\"..SubMenu.."\\"..
desc.."$<%[mynick]> "..Pfx..i..arg2.."&#124;")
if not b then b = true end
end
end
if b and Notify then
local Prof = "Unregistered User"
if user.iProfile > -1 then Prof = ProfMan.GetProfile(user.iProfile).sProfileName end
Core.SendToUser(user,"<"..Bot.."> "..Prof.."'s "..Scp.." commands "..
"enabled. See hub tab or user list for a menu.")
end
end

FormatSize = function(int)
local i,u,x = tonumber(int) or 0,{"","K","M","G","T","P"},1
while i > 1024 do i,x = i/1024,x+1 end return string.format("%.2f %sB.",i,u[x])
end

RegCmds = {
regme = function(user,data,cmd)
if user then
local nick = user.sNick
if user.iProfile ~= -1 then
return "Don't be silly "..nick.." you're already registered here."
elseif Core.GetUserAllData(user) then
local _,_,pwd = data:find("%b<> %p%w+ (%S+)|$")
if pwd then
if nick:find("[%c\$\|\<\>\:\?\*\"\/\\]") then
return "Your nickname contains invalid characters. "..
"Please choose a new one."
end
if pwd:find("[%c\$\|\<\>\:\?\*\"\/\\]") then
return "Your password contains invalid characters. "..
"Please choose a new one."
end
local hub = SetMan.GetString(0)
local addy = SetMan.GetString(2)..":"..SetMan.GetString(3)
local share,ip = FormatSize(user.iShareSize),user.sIP
local slots = user.iSlots or 0
local mode = "Passive"
if user.bActive then mode = "Active" end
if user.sMode and user.sMode == "5" then mode = "Socks5" end
local opmsg = "\r\n\r\n\tA user has self-registered\r\n"..
"\twith the the following details:\r\n"..
"\t"..string.rep("¯",22).."\r\n"..
"\tNick:\t"..nick.."\r\n"..
"\tPass:\t"..pwd:gsub(".","x").."\r\n"..
"\tShare:\t"..share.."\r\n"..
"\tI.P.:\t"..ip.."\r\n"..
"\tMode:\t"..mode.."\r\n"..
"\tSlots:\t"..slots.."\r\n"
RegMan.AddReg(nick, pwd, 3)
RegMan.Save()
Core.SendToOps("<"..Bot.."> "..opmsg)
return "\r\n\r\n\tWelcome. You have successfully "..
"registered yourself.\r\n\t"..string.rep("¯",40).."\r\n"..
"\tHub Name:\t"..hub.."\r\n"..
"\tHub Address:\t"..addy.."\r\n"..
"\tUser Name:\t"..nick.."\r\n"..
"\tPassword:\t"..pwd.."\r\n\r\n"..
"\t"..string.rep("¯",40).."\r\n"..
"\tPlease make a note of this information.\r\n"..
"\tPlease reconnect to activate your status.\r\n"
else
return "Error! Usage: "..Pfx..cmd.." <password>"
end
end
else
return "Register Yourself "," %[line:Password]"," %[line:Password]"," <password>>"
end
end,
passwd = function(user,data,cmd)
if user then
if user.iProfile == -1 then
return "Don't be silly "..user.sNick.." you're not registered here."
elseif Core.GetUserAllData(user) then
local _,_,oldpass,newpass = data:find("%b<> %p%w+ (%S+) (.+)|$")
if oldpass and newpass then
local pwd,prof = RegMan.GetReg(user.sNick).sPassword,user.iProfile
if pwd and prof then
if oldpass:lower() ~= pwd:lower() then
return "That is not your correct password. "..
"Please try again. [case insensitive]"
end
if newpass:find("[%c\$\|\<\>\:\?\*\"\/\\]") then
return "Your new password contains invalid characters. "..
"Please choose a new one."
end
if newpass:lower() == oldpass:lower() then
return "Your cannot change to the same password. "..
"Please choose a new one."
end
RegMan.ChangeReg(user.sNick, newpass, prof)
RegMan.Save()
return "You have successfully changed your password from "..
oldpass.." to "..newpass
end
else
return "Error! Usage: ."..Pfx..cmd.." <old password> <new password>"
end
end
else
return "Change Your Password"," %[line:Old Password] %[line:New Password]",
" %[line:Old Password] %[line:New Password]"," <old password> <new password>"
end
end,
rmhelp = function(user,data,cmd,reg)
if user then
local n,b = user.iProfile
local reply = "\r\n\r\n\t"..Scp.." Help\r\n\r\n\tCommand\t\tDescription\r\n"..
"\t"..string.rep("¯",40).."\r\n"
for i,v in pairs(RegCmds) do
local c = i:lower()
if n == -1 and c == "regme" or n ~= -1 and c == "passwd" or c == "rmhelp" then
local desc = RegCmds[i]()
reply = reply.."\t"..Pfx..string.format("%-15s",i).."\t"..desc.."\r\n"
end
end
return reply.."\n\t"..string.rep("¯",40).."\r\n\r\n"
else
return "RegMe Help","",""
end
end,
}


[alcorp]

Sorry, but nothing not changed, for example:
(from main chat) <aLCO^RP> +q bla bla bla
And script doesn't block this phrase.

[Mutor]

Yes I was only blocking the script commands,
now blocking all commands.
Script updated, thanks for the report.

[alcorp]

Thanks for your attention. But now, I can't restart script!
>> Sorry alcorp, Master's may not use the !restartscript command.
And as Master, all commands locked for me too!

[Mutor]

Error corrected, script above [1.0g] updated.
Thanks for testing/reporting.

[alcorp]

Thanks for your scripts! And for your attention.

[DeAn]

In this script, there is no option to get current password. This function is provided in "Get Password 3.0" script. "Get Password 3.0" script also has option to change our own password as in "RegMe". If only "Get Current Password" function is added in this "RegMe" script, it would be helpful as the users can get their own current passwords and change them if they want. Thanks in advance.

[alcorp]

Hello again! In new version of ptokax (I mean 0.4.1.2) Removed: Auto save of regs after add/change/del Reg.
And this script doesn't save it too!
Can you fix it?

[the-master]

changes on regs are saved in RegisterdUsers.xml when you shutdown PtokaX, why save it while the hub is running?

[alcorp]

Don't know about other admins, but my hub works without reboots about few months or more. And if that (hub) get system error, then i must lose all regs about 3-4 months? Or for save, I must reboot server every week or whatever?

[Mutor]

Script above, 1.0g updated, will now save on AddReg or ChangeReg calls.

[Black-Dragon]

hi, as I enter the registration code of the example ![ReG]-

[Mutor]

Uh....   what?