ELSNET-list archive
#!/usr/bin/ksh
# presentevent.cgi --
# version 0
#. ~elswww/.env
# present all events from xevents, now
# with headers displayed
echo Content-type:text/html
echo
case $0 in
*nonevent*) # jump over message in deleted items
JUMP=yes ;;
*) # do not jump in active messages
JUMP=no ;;
esac
nawk -v JUMP=$JUMP ' BEGIN { print " "
}
NR<8 { # insert messageto link in email line
if (index($3,"@")>0)
{ sub("@","_(on)_",$3)
$3=" "$3""
}
sub("","",$0)
}
NR==8 { print " "
if (JUMP=="yes")
{ print "Sorry, this item is no longer available"
exit
}
}
/mailto:.*@/ { gsub("mailto:","/messageto.html?",$0)
gsub("@","_(on)_",$0)
}
{ print $0
} ' $QUERY_STRING
|