help with a script

[Lfe]

hi there,

ive looked through the suninet faq but cant find how to bind invites on joins (im a noob i know ) so i would really appreciate some help

if a user with have the flags +o in the chan #test joins #test2 the script would check if the user has the flag +o in #test. if he has, invite him to #test


i was also wondering if there is a way to get file attributes (like date, rights) via TCL commands or do u have to format the output from a 'ls -al' command or something

the thing i want to do is list recursively through some directories and return the file which has been updated most recently

thanks for reading,
best regards
Johan

<font size=-1>[ This Message was edited by: Lfe on 2002-03-10 08:41 ]</font>

[Wcc]

1.

Code: Select all

bind join - "#test2 *!*@*" join:invite

proc join:invite {nick uhost hand chan} {
  # Check if the user has either +o #test2 or global +o:
  if {![matchattr $hand o|o #test2]} { return }
  # Invite the user:
  putserv "INVITE $nick #test2"
}

2. Read http://www.scriptics.com/man/tcl8.3/TclCmd/glob.htm and http://www.scriptics.com/man/tcl8.3/TclCmd/file.htm.

[Lfe]

hi there and thanks for your post

i cant get it to work,

Code: Select all

bind join - "#b4 *!*@*" join:invite

proc join:invite {nick uhost hand chan} {
  # Check if the user has either +o #test2 or global +o:
  if {![matchattr $hand o|o #b4]} { return }
  # Invite the user:
  putserv "INVITE $nick #b4"
}

the chan it should be checking in is #khn (if the user joins #khn, invite to #b4)

so i changed the

bind join - "#b4 *!*@*" join:invite

to

bind join - "#khn *!*@*" join:invite

but it didnt do the trick

what should i do?

best regards
Johan