Force join main channel (help)

[Th3Gh0st]

Hi,

i want to make or find a .tcl script that will do this

-become an oper (oper himself)
-set mode +s (to see every user that connect to the server)
-do a svsjoin on some channel that i set

you see, i want to make on my irc that everyone who connect to the server automatically join main channel, can you help me with this ?

Sincerely,
Darko

[Winters]

Code: Select all

#This is the Script to Oper your bot

bind evnt - init-server oper:yourself

proc oper:yourself {type} {
global botnick
putserv "oper accname accpass"
putserv "mode $botnick +s"
}

[Koepi]

i want to make on my irc that everyone who connect to the server automatically join main channel, can you help me with this

you can set ths in your ircd.conf (unrealircd)

[Th3Gh0st]

i forgot to tell that i am talking about "Beware IRCD (bircd)"...
thnz Winter for oper script...

[Alchera]

i want to make on my irc that everyone who connect to the server automatically join main channel, can you help me with this

you can set ths in your ircd.conf (unrealircd)

Oh so lame! Good way to chase away any potential users is to force them to join a channel on connect that they do not wish to.

[Th3Gh0st]

Alchera, it is not comercial irc server, we don't hunt for users, we just need someting that will put all users on the same place at the begging... it is a local wireless network with about 500 users.

[Th3Gh0st]

Code: Select all

set operhandle "nick"
set operpass "pass"

bind evnt - init-server evnt:init_server
proc evnt:init_server {type} {
  global botnick operhandle operpass
  putquick "OPER $operhandle $operpass"
  putserv  "MODE $botnick +s +16384"
}

bind raw * notice snotice
proc snotice {from keyword arg} {
       #regexp or lindex??
       putserv "svsjoin $nick #chat"
}

I need help with this second part with regexp and stuff...

When i set mode +s my snotice looks like

Code: Select all

[23:16] -irc.miljakovac.net- *** Notice -- Client connecting: TheGhost (0@miljakovac.bg.wi) [10.15.5.1]

How to set nick: TheGhost in this case to a variable so i can use that to force join?

[]Kami[]

Well, you don't need to use regexp, because text format is "static"

Code: Select all

set nick [lindex $arg 5]

Btw, if you don't want your code to chocke on special chars, split args

[Th3Gh0st]

i made a script, thnx to everyone

[Le_Fou]

Th3Gh0st can you please share the script?I need something like that..
Thanks