# Sourced with .
#
# Script to add LDM server address to xauth

. /usr/share/ltsp/ltsp-common-functions

# FIXME: $ldm_log stuff are for debugging only, while not harmful
# we should probably remove it at some point.

if boolean_is_true "$LDM_DIRECTX"; then
    # FIXME: We probably want something better than head -1, however
    #        I am currently not sure which line exactly is desired.
    PROTOCOL=$(xauth -f $XAUTHORITY list | head -1 | awk '{print $2}')
    KEY=$(xauth -f $XAUTHORITY list | head -1| awk '{print $3}')

    ldm_log=/var/log/ldm.log
    echo "XAUTHORITY=$XAUTHORITY" >> $ldm_log
    echo "PROTOCOL=$PROTOCOL" >> $ldm_log
    echo "KEY=$KEY" >> $ldm_log
    echo "DISPLAY=$DISPLAY" >> $ldm_log
    echo "LDMINFO_IPADDR=$LDMINFO_IPADDR" >> $ldm_log
    echo "LDM_SERVER=$LDM_SERVER" >> $ldm_log

    echo $DISPLAY $LDMINFO_IPADDR $PROTOCOL $KEY >> $ldm_log
    ssh -S ${LDM_SOCKET} ${LDM_SERVER} \
        "xauth remove ${LDMINFO_IPADDR}${DISPLAY}" >> $ldm_log
    ssh -S ${LDM_SOCKET} ${LDM_SERVER} \
        "xauth add ${LDMINFO_IPADDR}${DISPLAY} ${PROTOCOL} ${KEY}" >> $ldm_log
fi
