#	Copyright 1989 Massachusetts Institute of Technology
#
#	For copying and distribution information, see the file
#	"mit-copyright.h".
# 
#	$Source: /paris//source/4.3/athena.lib/zephyr/zwgc/RCS/zwgc.desc,v $
#	$Author: jtkohl $
#	$Id: zwgc.desc,v 1.4 89/11/29 14:09:20 jtkohl Exp $
#
#
# Default WindowGram description file (this file usually lives in
# /usr/athena/lib/zephyr/zwgc.desc)
#
#
# AUTHENTICATION information
#
# $auth can be either Yes, No, or Forged
#
# "Yes" means that the sender field present in the notice was verified by
# Kerberos authentication
#
# "No" means that either the sender did not include any authentication
# information, or the authentication information was not verified by the
# Zephyr Server before the notice was sent to you.
#
# "Forged" means that the Server claims that the sender of the notice
# was verified by Kerberos authentication, but your WindowGram client
# could not verify this.  This stage of verification is done by a cryptographic
# checksum.  The most probable cause of the failure of the checksum
# provided by the Server to match the checksum generated by your
# WindowGram client is that you changed Kerberos tickets, and the Server
# was using an old value to compute the cryptographic checksum.  You can
# update the Server's value by typing 'zctl load' to your prompt.
#
# By default, notices which appear forged are labeled as 'UNAUTHENTIC'
# to avoid confusion as to what 'Forged' really means.
# To change this display, change the last word in the line following
# 'match "forged" to something other than "UNAUTHENTIC".


set X_geometry = "+0+0"

case $auth
match "yes"
	set aval = "Authentic"
match "no"
	set aval = "UNAUTHENTIC"
match "forged"
	set aval = "UNAUTHENTIC"
endcase

if (getenv("EMACS") != "") then 
	set emacs_term = "\n\n"
else
	set emacs_term = ""
endif

case $class
match "WG_CTL_CLASS"
	exit
#  
# MAIL NOTIFICATION
#
# To receive mail notifications, you need to do several things:
# 1) subscribe to MAIL,POP messages.  You do this by typing:
#	zctl add mail pop
# to your prompt.  By doing this, you will get a simple notice every
# time you are logged in and more mail arrives for you at your post office.
#
# 2) If you wish to be notified of the sender, recipient and subject of the
# new mail, remove the pound-signs from the beginning of the 10 lines below
# between 'match "mail"' and 'exit', inclusive.
#
# Note: The use of the following lines is NOT necessary to receive
# notifications of new mail.  The only effect of uncommenting these
# lines is to display on your screen the sender, recipient and subject
# of the mail (In addition, uncommenting these lines will add extra load
# to the post office servers, making them run slower.).
# If you do not wish this information to be displayed where other users
# might possibly read it, or you wish to avoid loading down the post
# office servers, you need not uncomment these lines.  Just follow step
# 1 above. 
#
#match "MAIL"
#	case $instance
#	match "pop"
#		exec "/usr/athena/zmailnotify"
#		exit
#	endcase
#	print "(Authentication: @bold("+$aval+"))\n"
#	print substitute($default)
#	put
#	exit
match "message"
	if (upcase($opcode) == "PING") then exit endif

	case $instance
	match "PERSONAL"
		set type = "Personal"
	set X_geometry = "+0-0"
	match "MIDNIGHT"
		set type = "Midnight"
	set X_geometry = "-0-0"
	match "BLUETEAM"
		set type = "Blue Team"
	set X_geometry = "-0-0"
	match "URGENT"
		set type = "Urgent"
	default
		set type = "Instance "+$instance
	endcase

	fields signature body
	if ($body == "") then
		set body = $signature
		set signature = ""
	endif
	if ($signature =~ "From: .*") then
		set dummy = lany($signature,"From: ")
	endif
	if ($signature =~ "\n$") then
		set dummy = rany($signature,"\n")
	endif
	if ($signature == "") then
		set ftext = "From: <@bold("+protect($sender)+")>"
	else
		set ftext = "From: @bold("+protect($signature)+" <"+
			protect($sender)+">)"
	endif

	print "@center(@bold("+$aval+") "+$type+" message at "+$time+
		" on "+$date+")\n"+$ftext+"\n\n"
	print $body+"\n"
	print "<"+$fromhost+">"
	print $emacs_term
	put
	exit

match "login"
	case $opcode
	match "USER_LOGIN"
		set log = "logged in"
	match "USER_LOGOUT"
		set log = "logged out"
	default
		set log = "unknown opcode"
	endcase

	fields host when tty
	print "@center(@bold("+$sender+") "+$log+")\n"
	print "@center(on @bold("+$host+") on "+$tty+")\n"
	print "@center(at "+$when+")"
	print $emacs_term
	put
	exit

default

        fields signature body

        # deal with encrypted zephyrs
        if (upcase($opcode) == "CRYPT") then
                set error = ""
                execport "cryptport" "/afs/sipb/project/outland/bin/zcrypt" 
                        "-D" "-c" $class "-i" $instance
                if ($error != "") then
                print "ERROR -- Couldn't run code: " + 
                        "/afs/sipb/project/outland/bin/zcrypt" + "\n"
                else
                        print $emacsterm
                        put "cryptport" $2 + "\n" 
                        closeoutput "cryptport" 
                        set 2 = ""
                        set line = ""
                        set error = ""
                        while ( ($line != "**END**\n") & 
                                (($error == "") | 
                                ($error == "Interrupted system call"))) 
                        do
                                set 2 = $2 + $line
                                set line = get("cryptport")
                        endwhile
                        set 2 = " Encrypted Message :\n" +$2
                        closeport "cryptport"
                endif
        endif

	print "(Authentication: @bold("+$aval+"))\n"
	print substitute($default)
	print $emacs_term
	put
	exit

endcase