HP3000-L Archives

November 1997, Week 3

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Reply To:
Date:
Wed, 19 Nov 1997 09:47:21 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (117 lines)
Dennis,

   Use SAVE <filename>.

                        David N. Lukenbill

--------------------------------------------------------------------
David N. Lukenbill
Hughes Missile Systems Company, Louisville
[log in to unmask]


   ----------
   how can i make a temp file permanent?

   dennis profeta
   rembrandt photo services




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

Item Subject: WINMAIL.DAT
Could not convert Microsoft Mail Message Data item to text.
Will attempt to 'shar' item as file '01chbpv' 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 OpenMail System <openmail@ciwsux> on Wed Nov 19 09:48:12 1997
#
# This archive contains:
#       01chbpv
#
# 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%@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 - 01chbpv '[non-ascii]'
$unpacker <<'@eof'
begin 660 01chbpv
M>)\^(LW! 0:0"  $       !  $  0>0!@ (    Y 0       #H  $(@ < X
M&    $E032Y-:6-R;W-O9G0@36%I;"Y.;W1E #$( 0V !  "     @ "  $$X
M@ $ (0   %)%.B!Q=6EC:R!Q=65S=&EO;B!O;B!414U0(&9I;&5S "P+ 06 X
M P .    S0<+ !, "0 P #$  P!? 0$ @   0@    0 0@ 2 "  3'5K96YBX
M:6QL+"!$879I9   3U!%3DU!24PZ1&%V:60@3'5K96YB:6QL("](35-#3   X
M         $T0 2"  P .    S0<+ !, "0 O !P  P!) 0$)@ $ (0   #=$X
M-3@X-C=&1$,V,$0Q,3$Y0S%$.#9$1#8T,# P,# P  @' 0.0!@!T 0  $@  X
M  L (P       P F       + "D       , +@       P V      !  #D X
MT(D./_KTO $> $(  0   !$   !,=6ME;F)I;&PL($1A=FED     $  2 "@X
MWA! ^O2\ 1X <  !    (0   %)%.B!Q=6EC:R!Q=65S=&EO;B!O;B!414U0X
M(&9I;&5S      (!<0 !    %@    &\]/H^6G^&6'Y@W!'1G!V&W60     X
M !X &@P!    $0   $QU:V5N8FEL;"P@1&%V:60      @$=# $    @    X
M3U!%3DU!24PZ1&%V:60@3'5K96YB:6QL("](35-#3  > !X, 0    D   !/X
M4$5.34%)3      > !\, 0   !<   !$879I9"!,=6ME;F)I;&P@+TA-4T-,X
M  !   <P$,Z<#OKTO %   @P$,Z<#OKTO $> #T  0    4   !213H@    X
+  , #33]-P  3$[T                                            X
                                                             X
end
@eof
set `wc -lwc <01chbpv`
if test $1$2$3 != 028686
then
        echo ERROR: wc results of 01chbpv are $* should be 0 28 686
fi

chmod 660 01chbpv

rm -f /tmp/unpack$$
exit 0

ATOM RSS1 RSS2