File: setup.tcl

package info (click to toggle)
zircon 1.18.187-1
  • links: PTS
  • area: main
  • in suites: slink
  • size: 1,692 kB
  • ctags: 1,446
  • sloc: tcl: 17,799; ansic: 470; sh: 90; makefile: 72
file content (16 lines) | stat: -rw-r--r-- 637 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
#
# $Source: /home/nlfm/Working/Zircon/Released/plugins/MsgOps/setup.tcl,v $
# $Date: 1997/04/21 11:22:28 $
# $Revision: 1.2 $
#
# ----------------------------------------------------------------------
#   AUTHOR:  Lindsay Marshall <lindsay.marshall@newcastle.ac.uk>
# ----------------------------------------------------------------------
# Copyright 1997 The University of Newcastle upon Tyne (see COPYRIGHT)
# ======================================================================
#
plugin MsgOps {channel} {{msg Message}} {
    foreach x [$channel users] {
	if {![$net me $x] && [$channel isOp $x]} {$net msg [$x name] $msg}
    }
}