#!/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