diff options
| author |  Lucien Van Elsen <lwvanels@mit.edu> | 1991-06-30 21:47:26 +0000 |
|---|---|---|
| committer | Lucien Van Elsen <lwvanels@mit.edu> | 1991-06-30 21:47:26 +0000 |
| commit | 4aa292814b85bd16cffc81eba8b883f97364af52 (patch) | |
| tree | b4da81b5be0976ca3f41bc3377f168f09efe9855 /zwgc/zwgc.desc | |
| parent | c05332845e70a028517740a909d6124e3eb252e7 (diff) | |
made unauthenic zgrams more obvious.
Diffstat (limited to 'zwgc/zwgc.desc')
| -rw-r--r-- | zwgc/zwgc.desc | 17 |
1 files changed, 11 insertions, 6 deletions
diff --git a/zwgc/zwgc.desc b/zwgc/zwgc.desc index a8b2e8a..2c6a58b 100644 --- a/zwgc/zwgc.desc +++ b/zwgc/zwgc.desc @@ -44,10 +44,8 @@ if (upcase($opcode) == "PING") then exit endif case $auth match "yes" set aval = "Authentic" -match "no" - set aval = "UNAUTHENTIC" -match "forged" - set aval = "UNAUTHENTIC" +match "no","forged" + set aval = "@b(@large(UNAUTHENTIC))" endcase case $class @@ -81,7 +79,7 @@ match "WG_CTL_CLASS" #match "MAIL" # case $instance # match "pop" -# exec "/usr/athena/zmailnotify" +# exec "/usr/athena/bin/zmailnotify" # exit # endcase # print "(Authentication: @bold("+$aval+"))\n" @@ -120,7 +118,14 @@ match "message" " on "+$date+"\n"+$ftext+" on "+$fromhost+"\nTo: "+ $recipient+")\n\n" print $body - put + case $auth + match "yes" + put + match "no","forged" + set X_geometry="-0-80" + put + set X_geometry="" + endcase exit match "login" |