#!/bin/sh

# disable filename globbing

set -f
 echo Content-type: text/plain
 echo
 BASE=`pwd`
APPLDIR=$BASE/appl
DATADIR=$BASE/data
PATH=$PATH:$BASE/ihd/bin:.
export PATH APPLDIR DATADIR
usuar=./tmp/usuar
./appl/sh/usuar | awk -F"^"  ' index($REMOTE_USER,$3)  { print substr($4,1,3) } ' -
exit

# |  1 H00 correl 05 15   0 | 2 H01 codigo 12 07   5 | 3 H02 identi 40 00  17 |
# |  4 H03 zonaac 02 51  57 | 5 H04 passwo 20 00  59 | 6 H05 nombre 40 00  79 |
# |  7 H06 patern 40 00 119 | 8 H07 matern 40 00 159 | 9 H08 correo 40 00 199 |
# | 10 H09 telefo 50 00 239 |11 H10 especi 02 00 289 |12 H11 status 02 52 291 |




echo SERVER_SOFTWARE = $SERVER_SOFTWARE

echo SERVER_NAME = $SERVER_NAME
echo GATEWAY_INTERFACE = $GATEWAY_INTERFACE
echo SERVER_PROTOCOL = $SERVER_PROTOCOL
echo SERVER_PORT = $SERVER_PORT
echo REQUEST_METHOD = $REQUEST_METHOD
echo HTTP_ACCEPT = "$HTTP_ACCEPT"
echo PATH_INFO = "$PATH_INFO"
echo PATH_TRANSLATED = "$PATH_TRANSLATED"
echo SCRIPT_NAME = "$SCRIPT_NAME"
echo QUERY_STRING = "$QUERY_STRING"
echo REMOTE_HOST = $REMOTE_HOST
echo REMOTE_ADDR = $REMOTE_ADDR
echo REMOTE_USER = $REMOTE_USER
echo AUTH_TYPE = $AUTH_TYPE
echo CONTENT_TYPE = $CONTENT_TYPE
echo CONTENT_LENGTH = $CONTENT_LENGTH
echo "=============================="
echo SERVER_SOFTWARE = $SERVER_SOFTWARE 
echo SERVER_NAME = $SERVER_NAME 
echo GATEWAY_INTERFACE = $GATEWAY_INTERFACE 
echo SERVER_PROTOCOL = $SERVER_PROTOCOL 
echo SERVER_PORT = $SERVER_PORT 
echo REQUEST_METHOD = $REQUEST_METHOD 
echo PATH_INFO = $PATH_INFO 
echo PATH_TRANSLATED = $PATH_TRANSLATED 
echo SCRIPT_NAME = $SCRIPT_NAME 
echo QUERY_STRING = $QUERY_STRING 
echo REMOTE_HOST = $REMOTE_HOST 
echo REMOTE_ADDR = $REMOTE_ADDR 
echo AUTH_TYPE = $AUTH_TYPE 
echo REMOTE_USER = $REMOTE_USER 
echo REMOTE_IDENT = $REMOTE_IDENT 
echo CONTENT_TYPE = $CONTENT_TYPE 
echo CONTENT_LENGTH = $CONTENT_LENGTH 
echo HTTP_ACCEPT = $HTTP_ACCEPT 
echo HTTP_USER_AGENT= $HTTP_USER_AGENT
