/etc/zephyr/zwgc.desc is in zephyr-clients 3.1.2-1build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 | # Copyright 1989, 1990 Massachusetts Institute of Technology
#
# For copying and distribution information, see the file
# "mit-copyright.h".
#
# $Id: 48c7fe37018362dbc8db800ed4e9c8c3db54402f $
#
#
# Default WindowGram description file
#
# Opcode "ping" is used by sender programs to see if the message would
# really get sent, or if the recipient has logged out. No useful
# information is normally contained in these messages, so we discard them.
if (upcase($opcode) == "PING") then exit endif
#
# 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".
case $auth
match "yes"
set aval = "Authentic"
match "no","forged"
set aval = "@b(@large(UNAUTHENTIC))"
endcase
case $class
match "WG_CTL_CLASS"
exit
match "message"
if (downcase($recipient) == downcase($user)) then
case $instance
match "PERSONAL"
set type = "Personal"
match "URGENT"
set type = "Urgent"
default
set type = $instance
endcase
else
set type = "Instance "+$instance
endif
if ($number_of_fields == "1") then
fields body
set signature = ""
else
fields signature body
endif
if ($signature =~ "^[Ff]rom: .*") 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+" on "+$fromhost+"\nTo: "+
$recipient+")\n\n"
print $body
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+")"
put
exit
default
if (downcase($class) == "filsys" and downcase($opcode) == "shutdown") then
set format = "From $sender:\n@bold(Shutdown message from $1 at $time)\n"+
"@center(System going down, message is:)\n\n$2\n\n@center(@bold($3))"
elseif (downcase($class) == "filsys") then
set format = "@bold(Filesystem Operation Message for $instance:)\n"+
"From: @bold($sender) at $time $date\n$message"
elseif (downcase($class) == "mail" and downcase($instance) == "popret") then
set format = "You have new mail:\n\nFrom: $1\nTo: $2\nSubject: $3"
elseif (downcase($class) == "mail") then
set format = "From Post Office $1:\n$2"
elseif (downcase($class) == "syslog") then
set format = "From $sender:\nSyslog message from $instance, level "+
"$opcode:\n$message"
elseif ($number_of_fields == "1") then
set format = "Class $class, Instance $instance:\nTo: @bold($recipient) "+
"at $time $date\nFrom: @bold($sender)\n\n$message"
else
set format = "Class $class, Instance $instance:\nTo: @bold($recipient) "+
"at $time $date\nFrom: @bold($1) <$sender>\n\n$2"
endif
print "(Authentication: @bold("+$aval+") from host: "+$fromhost+")\n"
print substitute($format)
put
exit
endcase
|