|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T a
Length: 1048 (0x418)
Types: TextFile
Names: »alert-script«
└─⟦2d1937cfd⟧ Bits:30007241 EUUGD22: P.P 5.0
└─⟦dc59850a2⟧ »EurOpenD22/pp5.0/pp-5.tar.Z«
└─⟦e5a54fb17⟧
└─⟦this⟧ »pp-5.0/Chans/slocal/alert-script«
#!/bin/csh -f
################################################################################
#
# alert script for PP messages (PODA) - used by slocal
#
# slocal calls :
# alert username messagenumber message
#
################################################################################
if ($#argv) then
set tlist=`w | awk '/^'$1'/ {print $2}'`
set message=~$1/PPMail/inbox/$2
chmod777 $message
set header=$message/hdr.822
set filelist=`ls -F $message`
foreach i ($tlist)
echo "" >/dev/$i
echo '******************************************************' >/dev/$i
echo $argv[3-] '('message $2')' >/dev/$i
echo "" >/dev/$i
if (-e $header) then
awk '\
/^Subject/ {printf "%s\n",$0 } \
/^Date/ {printf "%s\n",$0 } \
/^From/ {printf "%s\n",$0 } \
'\
$header >/dev/$i
echo "" >/dev/$i
else
echo No hdr.822 file in $message >/dev/$i
endif
echo 'Files: '$filelist >/dev/$i
echo "" >/dev/$i
echo '******************************************************' >/dev/$i
echo "" >/dev/$i
end
endif