diff options
| author |  Kenneth G Raeburn <raeburn@mit.edu> | 1990-04-25 19:48:11 +0000 |
|---|---|---|
| committer | Kenneth G Raeburn <raeburn@mit.edu> | 1990-04-25 19:48:11 +0000 |
| commit | c5c48ef047c9aa587ab83a418d8af05617fc4af5 (patch) | |
| tree | d3869295c466d488a332190c9ad5e7c7b72bf287 /zwgc/zwgc.desc | |
| parent | f59711a1c5e543568ff6067a8281a4c2645f1f07 (diff) | |
New version for 7.0: Accept lowercase 'f' in "from:"; show hostname of
sender; show class "message" in verbatim mode by default, supporting
opcode "verbatim" and "pretty" for all messages.
Diffstat (limited to 'zwgc/zwgc.desc')
| -rw-r--r-- | zwgc/zwgc.desc | 20 |
1 files changed, 14 insertions, 6 deletions
diff --git a/zwgc/zwgc.desc b/zwgc/zwgc.desc index 115e686..22b18f7 100644 --- a/zwgc/zwgc.desc +++ b/zwgc/zwgc.desc @@ -1,4 +1,4 @@ -# Copyright 1989 Massachusetts Institute of Technology +# Copyright 1989, 1990 Massachusetts Institute of Technology # # For copying and distribution information, see the file # "mit-copyright.h". @@ -99,7 +99,7 @@ match "message" set body = $signature set signature = "" endif - if ($signature =~ "From: .*") then + if ($signature =~ "^[Ff]rom: .*") then set dummy = lany($signature,"From: ") endif if ($signature =~ "\n$") then @@ -113,8 +113,12 @@ match "message" endif print "@center(@bold("+$aval+") "+$type+" message at "+$time+ - " on "+$date+")\n"+$ftext+"\n\n" - print $body + " on "+$date+" from "+$fromhost+")\n"+$ftext+"\n\n" + if (downcase($opcode) == "pretty") then + print $body + else + print verbatim($body) + endif put exit @@ -136,8 +140,12 @@ match "login" exit default - print "(Authentication: @bold("+$aval+"))\n" - print substitute($default) + print "(Authentication: @bold("+$aval+") from host: "+$fromhost+")\n" + if (downcase($opcode) == "verbatim") then + print verbatim(substitute($default)) + else + print substitute($default) + endif put exit |