# $Header: brdcast.tcl 27-jun-97.12:21:06 dnakos Exp $
# $Header: brdcast.tcl 27-jun-97.12:21:06 dnakos Exp $
#
# copyright (c) 1995 by the Oracle Corporation
#
# NAME:
#
#  brdcast.tcl : broadcast a message to all the logged in users
#
# ARGUMENTS:
#        
#           None. The broadcast message is passed in as a input file
#
# $Log:  $
# Revision 1.4  1996/01/31  20:57:19  yliu
# give wall a full path
#
# Revision 1.3  1996/01/11 00:41:51  yliu
# use message file
#
# Revision 1.2  1996/01/10 23:25:55  yliu
# use message file
#
# Revision 1.1  1995/09/26 00:11:49  yliu
# Initial revision
#

oradefine job /oracle/host/general/brdcast description=VOC-02031
oradefine end

set fd [open [lindex $oramsg(orainput) 0] r]
set message [convertin $oramsg(agent_characterset) [read $fd]]
close $fd
if { [catch {BROADCAST $message} out] } {
    orafail [convertout $oramsg(agent_characterset) $out]
}
puts [msgtxt1 [NETWORK] nms 1101]


