Re: TECHWR-L Digest?

Subject: Re: TECHWR-L Digest?
From: John_Payne -at- HP-BOISE-OM2 -dot- OM -dot- HP -dot- COM
Date: Wed, 22 Feb 1995 10:06:41 -0700

Marguerite,

The LISTSERV protocol defines an INFO option that allows you to get
copies of the documentation available for LISTSERV. Try sending the
following message to the administrator of this group
(LISTSERV -at- VM1 -dot- UCC -dot- OKSTATE -dot- EDU):

INFO REFCARD

This typically returns a copy of the LISTSERV Quick Reference card,
which I have found to be very helpful. If this doesn't work, you might
try sending an INFO message without any parameters, which should return
a list of the available documentation files.

Good luck.

John Payne
john_payne -at- hp-boise-om2 -dot- om -dot- hp -dot- com
----------


.......................................................................

Item Subject: WINMAIL.DAT
Could not convert UNKNOWN FILE-TYPE (1734) item to text.
Will attempt to 'shar' item as file '01obu9o' at end of msg.


# This is a shell archive. Remove anything before this line,
# then unpack it by saving it in a file and typing "sh file".

# Wrapped by HP OpenMail System <openmail -at- hpbs4813> on Wed Feb 22 10:07:09 1995

# This archive contains:
# 01obu9o

# Error checking via wc(1) will be performed.

LANG=""; export LANG
PATH=/bin:/usr/bin:$PATH; export PATH


rm -f /tmp/uud$$
(echo "begin 666 /tmp/uud$$\n#;VL*n#6% -at- x\n \nend" | uudecode) >/dev/null 2>&1
if [ X"`cat /tmp/uud$$ 2>&1`" = Xok ]
then
unpacker=uudecode
else
echo Compiling unpacker for non-ascii files
pwd=`pwd`; cd /tmp
cat >unpack$$.c <<'EOF'
#include <stdio.h>
#define C (*p++ - ' ' & 077)
main()

int n;
char buf[128], *p, a,b;

scanf("begin %o ", &n);
gets(buf);

if (freopen(buf, "w", stdout) == NULL) {
perror(buf);
exit(1);
}

while (gets(p=buf) && (n=C)) {
while (n>0) {
a = C;
if (n-- > 0) putchar(a << 2 | (b=C) >> 4);
if (n-- > 0) putchar(b << 4 | (a=C) >> 2);
if (n-- > 0) putchar(a << 6 | C);
}
}
exit(0);

EOF
cc -o unpack$$ unpack$$.c
rm unpack$$.c
cd $pwd
unpacker=/tmp/unpack$$
fi
rm -f /tmp/uud$$

echo x - 01obu9o '[non-ascii]'
$unpacker <<'@eof'
begin 660 01obu9o
M>)\^(@ 0N 0 H ,3DY-3 R,C(Q,C0P+D%!,#4V-S0V.#,X*&$I<F5LX
,87DN:' N8V]M #8* X
X
end
@eof
set `wc -lwc <01obu9o`
if test $1$2$3 != 1157
then
echo ERROR: wc results of 01obu9o are $* should be 1 1 57
fi

chmod 660 01obu9o

rm -f /tmp/unpack$$
exit 0


Previous by Author: Re: Winhelp discussion group
Next by Author: Re: Re[2]: what tools to lear...
Previous by Thread: Re: TECHWR-L Digest?
Next by Thread: Re: TECHWR-L Digest?


What this post helpful? Share it with friends and colleagues:


Sponsored Ads