[225] in Zephyr Mailing List
Re: Hidden fields in zgrams!
daemon@ATHENA.MIT.EDU (Rob Earhart)
Sun Aug 11 18:37:53 1996
Date: Sun, 11 Aug 1996 18:34:30 -0400 (EDT)
From: Rob Earhart <earhart+@CMU.EDU>
To: zephyr@MIT.EDU
In-Reply-To: <9608022221.AA19274@pickled-herring.MIT.EDU>
Heh - we've used these at Andrew for ages. Dmitri Schoeman wrote
the following twisted hack for sending them...
alias zwhid 'gawk '\''BEGIN {{print "Type your message now. End with control-D or a dot on a line by itself." > "/dev/stderr"} {il=0}}{if ($0 != "."){{if (il == 1){{print "\000"}{il=0}}}{print $0}}else{{print "Type the next hidden text." > "/dev/stderr"}{il=1}}}'\''|zwrite '
... and the following zwgc snippet to read them
if ($number_of_fields != "0") then
set fieldscontent = ""
while ($number_of_fields != "0") do
fields onefield
if ($onefield =~ "\n$") then
set dummy = rany($onefield, "\n")
endif
set fieldscontent = $fieldscontent + $onefield
if ($number_of_fields != "0") then
set fieldscontent = $fieldscontent + "\n\n@b(-------)\n"
endif
endwhile
print "@bold(Extra Fields:)\n"
print $fieldscontent
endif
)Rob
