1 # Copyright 1989, 1990 Massachusetts Institute of Technology
3 # For copying and distribution information, see the file
6 # $Id: zwgc.desc,v 1.17 2004/06/24 02:24:11 ghudson Exp $
9 # Default WindowGram description file
12 # Opcode "ping" is used by sender programs to see if the message would
13 # really get sent, or if the recipient has logged out. No useful
14 # information is normally contained in these messages, so we discard them.
15 if (upcase($opcode) == "PING") then exit endif
18 # AUTHENTICATION information
20 # $auth can be either Yes, No, or Forged
22 # "Yes" means that the sender field present in the notice was verified by
23 # Kerberos authentication
25 # "No" means that either the sender did not include any authentication
26 # information, or the authentication information was not verified by the
27 # Zephyr Server before the notice was sent to you.
29 # "Forged" means that the Server claims that the sender of the notice
30 # was verified by Kerberos authentication, but your WindowGram client
31 # could not verify this. This stage of verification is done by a cryptographic
32 # checksum. The most probable cause of the failure of the checksum
33 # provided by the Server to match the checksum generated by your
34 # WindowGram client is that you changed Kerberos tickets, and the Server
35 # was using an old value to compute the cryptographic checksum. You can
36 # update the Server's value by typing 'zctl load' to your prompt.
38 # By default, notices which appear forged are labeled as 'UNAUTHENTIC'
39 # to avoid confusion as to what 'Forged' really means.
40 # To change this display, change the last word in the line following
41 # 'match "forged" to something other than "UNAUTHENTIC".
44 set aval = "Authentic"
46 set aval = "@b(@large(UNAUTHENTIC))"
53 if (downcase($recipient) == downcase($user)) then
63 set type = "Instance "+$instance
66 if ($number_of_fields == "1") then
72 if ($signature =~ "^[Ff]rom: .*") then
73 set dummy = lany($signature,"From: ")
75 if ($signature =~ "\n$") then
76 set dummy = rany($signature,"\n")
78 if ($signature == "") then
79 set ftext = "From: @bold("+protect($sender)+")"
81 set ftext = "From: @bold(@{"+protect($signature)+"} <"+
85 print "@center(@bold("+$aval+") "+$type+" message at "+$time+
86 " on "+$date+"\n"+$ftext+" on "+$fromhost+"\nTo: "+
97 set log = "logged out"
99 set log = "unknown opcode"
103 print "@center(@bold("+$sender+") "+$log+")\n"
104 print "@center(on @bold("+$host+") on "+$tty+")\n"
105 print "@center(at "+$when+")"
110 if (downcase($class) == "filsys" and downcase($opcode) == "shutdown") then
111 set format = "From $sender:\n@bold(Shutdown message from $1 at $time)\n"+
112 "@center(System going down, message is:)\n\n$2\n\n@center(@bold($3))"
113 elseif (downcase($class) == "filsys") then
114 set format = "@bold(Filesystem Operation Message for $instance:)\n"+
115 "From: @bold($sender) at $time $date\n$message"
116 elseif (downcase($class) == "mail" and downcase($instance) == "popret") then
117 set format = "You have new mail:\n\nFrom: $1\nTo: $2\nSubject: $3"
118 elseif (downcase($class) == "mail") then
119 set format = "From Post Office $1:\n$2"
120 elseif (downcase($class) == "syslog") then
121 set format = "From $sender:\nSyslog message from $instance, level "+
123 elseif ($number_of_fields == "1") then
124 set format = "Class $class, Instance $instance:\nTo: @bold($recipient) "+
125 "at $time $date\nFrom: @bold($sender)\n\n$message"
127 set format = "Class $class, Instance $instance:\nTo: @bold($recipient) "+
128 "at $time $date\nFrom: @bold($1) <$sender>\n\n$2"
131 print "(Authentication: @bold("+$aval+") from host: "+$fromhost+")\n"
132 print substitute($format)