#!/bin/bash
########################################################################
# Version: 1.0
# License: AGPL-3.0 (https://choosealicense.com/licenses/agpl-3.0/)
########################################################################
# PAD COCODING : https://pad.p2p.legal/s/G1PalPay
# This script monitors G1 Blockchain
########################################################################
# TODO : CHECK RX coming from UPlanet Wallet
## meaning an initial 3.1G1 from a ZenStation admin wallet
## if not relay payment to ZenStation admin
########################################################################
MY_PATH="`dirname \"$0\"`"              # relative
MY_PATH="`( cd \"$MY_PATH\" && pwd )`"  # absolutized and normalized
ME="${0##*/}"

. "${MY_PATH}/../tools/my.sh"

CESIUM=${myCESIUM}
GCHANGE=${myGCHANGE}

echo "$ME RUNNING (•‿‿•)"

########################################################################
# PALPAY SERVICE : MONITOR INCOMING TX & NEW TIDDLERS
########################################################################
########################################################################
INDEX="$1"  ## TW file
[[ ! ${INDEX} ]] && INDEX="$HOME/.zen/game/players/.current/ipfs/moa/index.html"
[[ ! -s ${INDEX} ]] && echo "ERROR - Please provide path to source TW index.html" && exit 1
[[ ! -s ${INDEX} ]] && echo "ERROR - Fichier TW absent. ${INDEX}" && exit 1

PLAYER="$2" ## PLAYER
[[ ! ${PLAYER} ]] && PLAYER="$(cat ~/.zen/game/players/.current/.player 2>/dev/null)"
[[ ! ${PLAYER} ]] && echo "ERROR - Please provide PLAYER" && exit 1

ASTRONAUTENS=$(ipfs key list -l | grep -w ${PLAYER} | cut -d ' ' -f1) ## TW /ipns/
[[ ! ${ASTRONAUTENS} ]] && echo "ERROR - Clef IPNS ${PLAYER} introuvable!"  && exit 1

G1PUB=$(cat ~/.zen/game/players/${PLAYER}/.g1pub) ## PLAYER WALLET
[[ ! $G1PUB ]] && echo "ERROR - G1PUB ${PLAYER} VIDE"  && exit 1

# Extract tag=tube from TW
MOATS="$3"
[[ ! ${MOATS} ]] && MOATS=$(date -u +"%Y%m%d%H%M%S%4N")

###################################################################
## CREATE APP NODE PLAYER PUBLICATION DIRECTORY
###################################################################
mkdir -p $HOME/.zen/game/players/${PLAYER}/G1PalPay/
mkdir -p $HOME/.zen/tmp/${MOATS}
echo "=====(•‿‿•)====== ( ◕‿◕) (◕‿◕ ) =======(•‿‿•)======= ${PLAYER}
${INDEX}"
echo "(✜‿‿✜) G1PalPay : CHECK LAST 30 TX comment"

# CHECK LAST 30 INCOMING PAYMENTS
~/.zen/Astroport.ONE/tools/timeout.sh -t 12 \
${MY_PATH}/../tools/jaklis/jaklis.py -k ~/.zen/game/players/${PLAYER}/secret.dunikey history -n 30 -j \
    > $HOME/.zen/game/players/${PLAYER}/G1PalPay/${PLAYER}.duniter.history.json

[[ ! -s $HOME/.zen/game/players/${PLAYER}/G1PalPay/${PLAYER}.duniter.history.json ]] \
&& echo "NO PAYMENT HISTORY.........................."
##############################

## CONTROL WALLET
########################################################################################
if [[ ${UPLANETNAME} != "" ]]; then
echo "UPLANET ORIGIN CONTROL"
while read LINE; do

    echo "${LINE}"
    JSON=${LINE}
    TXIDATE=$(echo $JSON | jq -r .date)
    TXIPUBKEY=$(echo $JSON | jq -r .pubkey)
    TXIAMOUNT=$(echo $JSON | jq -r .amount)
    COMMENT=$(echo $JSON | jq -r .comment)

    lastTXdate=$(cat ~/.zen/game/players/${PLAYER}/.uplanet.check)
    [[ -z lastTXdate ]] && lastTXdate=0
    [[ $(cat ~/.zen/game/players/${PLAYER}/.uplanet.check) -ge $TXIDATE ]]  \
        && continue

    [[ $(echo "$TXIAMOUNT < 0" | bc) -eq 1 ]] \
        && echo "$TXIDATE" > ~/.zen/game/players/${PLAYER}/.uplanet.check \
        && continue

    echo "# CHECK FOR PRIMAL REGULAR TX in INCOMING PAYMENTS"
    # silkaj money history DsEx1pS33vzYZg4MroyBV9hCw98j1gtHEhwiZ5tK7ech | tail -n 3 | head -n 1
    # │ 2017-11-25     │ 5nk2qdh1…:GWD  │ 200        │ 18.332       │                │
    line=$(silkaj money history $TXIPUBKEY | tail -n 3 | head -n 1)
    pub8=$(echo $line | awk -F'│' '{gsub(/[[:space:]]*/, "", $3); split($3, a, ":"); print substr(a[1], 1, 8)}')
    # pub8=$(echo $line | cut -d '│' -f 3 | cut -c 1-8)
    # PUB8= UPLANET WALLET

done < $HOME/.zen/game/players/${PLAYER}/G1PalPay/${PLAYER}.duniter.history.json
fi



##########################################################
############# CHECK FOR N1COMMANDs IN PAYMENT COMMENT
#################################################################
# LOG / cat $HOME/.zen/game/players/${PLAYER}/G1PalPay/${PLAYER}.duniter.history.json  | jq -rc .[]
## TREAT ANY COMMENT STARTING WITH N1: exemple : N1Kodi.sh
## EXTRACT /ASTROBOT/N1ProgramNames
ls ${MY_PATH}/../ASTROBOT/ | grep "N1" | cut -d "." -f 1 > ~/.zen/tmp/${MOATS}/N1PROG
while read prog; do
    echo "# SCAN FOR N1 COMMAND : $prog"
    cat $HOME/.zen/game/players/${PLAYER}/G1PalPay/${PLAYER}.duniter.history.json | jq -rc .[] | grep "$prog" >> ~/.zen/tmp/${MOATS}/myN1.json
done < ~/.zen/tmp/${MOATS}/N1PROG

# got N1 incoming TX
while read NLINE; do
    ## COMMENT FORMAT = N1$CMD:$TH:$TRAIL
    TXIDATE=$(echo ${NLINE} | jq -r .date)
    TXIPUBKEY=$(echo ${NLINE} | jq -r .pubkey)

    COMMENT=$(echo ${NLINE} | jq -r .comment)
    CMD=$(echo ${COMMENT} | cut -d ':' -f 1 | cut -c -12 ) # Maximum 12 characters CMD

    # Verify last recorded acting date (avoid running twice)
    [[ $(cat ~/.zen/game/players/${PLAYER}/.ndate) -ge $TXIDATE ]]  \
        && echo "$CMD $TXIDATE from $TXIPUBKEY ALREADY TREATED - continue" \
        && continue

    TH=$(echo ${COMMENT} | cut -d ':' -f 2)
    TRAIL=$(echo ${COMMENT} | cut -d ':' -f 3-)

    if [[ -s ${MY_PATH}/../ASTROBOT/${CMD}.sh ]]; then

        echo "RECEIVED CMD=${CMD} from ${TXIPUBKEY}"
        ${MY_PATH}/../ASTROBOT/${CMD}.sh ${INDEX} ${PLAYER} ${MOATS} ${TXIPUBKEY} ${TH} ${TRAIL}
        ## WELL DONE .
        [[ $? == 0 ]] && echo "${CMD} DONE" && echo "$TXIDATE" > ~/.zen/game/players/${PLAYER}/.ndate ## MEMORIZE LAST TXIDATE

    else

        echo "NOT A N1 COMMAND ${COMMENT}"

    fi

done < ~/.zen/tmp/${MOATS}/myN1.json

########################################################################################
echo "# CHECK FOR EMAILs IN PAYMENT COMMENT"
## DEBUG ## cat $HOME/.zen/game/players/${PLAYER}/G1PalPay/${PLAYER}.duniter.history.json | jq -r
#################################################################
cat $HOME/.zen/game/players/${PLAYER}/G1PalPay/${PLAYER}.duniter.history.json | jq -rc .[] | grep '@' \
    > ~/.zen/tmp/${MOATS}/myPalPay.json

# IF COMMENT CONTAINS EMAIL ADDRESSES
# SPREAD & TRANSFER AMOUNT TO NEXT (REMOVING IT FROM LIST)...
## Other G1PalPay will continue the transmission...
########################################################################
## GET @ in JSON INLINE
while read LINE; do

    echo "${LINE}"
    JSON=${LINE}
    TXIDATE=$(echo $JSON | jq -r .date)
    TXIPUBKEY=$(echo $JSON | jq -r .pubkey)
    TXIAMOUNT=$(echo $JSON | jq -r .amount)
    TXIAMOUNTUD=$(echo $JSON | jq -r .amountUD)
    COMMENT=$(echo $JSON | jq -r .comment)

    lastTXdate=$(cat ~/.zen/game/players/${PLAYER}/.atdate)
    [[ -z lastTXdate ]] && lastTXdate=0
    [[ $(cat ~/.zen/game/players/${PLAYER}/.atdate) -ge $TXIDATE ]]  \
        && echo "PalPay $TXIDATE from $TXIPUBKEY ALREADY TREATED - continue" \
        && continue

    ## GET EMAILS FROM COMMENT
    TXIMAILS=($(echo "$COMMENT" | grep -E -o "\b[a-zA-Z0-9.%+-]+@[A-Za-z0-9.-]+\.[A-Za-z]{2,6}\b"))

    [[ $(echo "$TXIAMOUNT < 0" | bc) -eq 1 ]] \
        && echo "TX-OUT :: ${LINE}" \
        && echo "$TXIDATE" > ~/.zen/game/players/${PLAYER}/.atdate \
        && continue

    ## DIVIDE INCOMING AMOUNT TO SHARE
    echo "N=${#TXIMAILS[@]}"
    N=${#TXIMAILS[@]}

    SHAREE=$(echo "scale=2; $TXIAMOUNT / $N" | bc)
    SHARE=$(makecoord ${SHAREE})
    ## SHARE is received AMOUT divided by numbers of EMAILS in comment
    echo "% ${#TXIMAILS[@]} % $SHARE % $TXIDATE $TXIPUBKEY $TXIAMOUNT [$TXIAMOUNTUD] $TXIMAILS"

    # let's loop over TXIMAILS
    for EMAIL in "${TXIMAILS[@]}"; do

        [[ ${EMAIL} == $PLAYER ]] \
            && echo "ME MYSELF" \
            && echo "$TXIDATE" > ~/.zen/game/players/${PLAYER}/.atdate \
            && continue

        echo "EMAIL : ${EMAIL}"

        ASTROTW="" STAMP="" ASTROG1="" ASTROIPFS="" ASTROFEED="" # RESET VAR
        $($MY_PATH/../tools/search_for_this_email_in_players.sh ${EMAIL}) ## export ASTROTW and more
        [[ ${ASTROTW} == "" ]] && ASTROTW=${ASTRONAUTENS}
        echo "export ASTROPORT=${ASTROPORT} ASTROTW=${ASTROTW} ASTROG1=${ASTROG1} ASTROMAIL=${EMAIL} ASTROFEED=${FEEDNS}"

        if [[ ! ${ASTROTW} ]]; then

            echo "# PLAYER ${EMAIL} INCONNU $(date)"
            continue

        fi

        if [[ ! ${ASTROG1} ]]; then
            echo "<html><head><meta charset='UTF-8'>
            <style>
                body {
                    font-family: 'Courier New', monospace;
                }
                pre {
                    white-space: pre-wrap;
                }
            </style></head><body>" > ~/.zen/tmp/palpay.bro

            echo "<h1>BRO.<h1>
            $PLAYER wants to send you ${SHARE} G1...<br>
            <br>(♥‿‿♥)... on <a href='https://qo-op.com'>UPlanet</a>
            </body></html>" >> ~/.zen/tmp/palpay.bro

            ${MY_PATH}/../tools/mailjet.sh "${EMAIL}" ~/.zen/tmp/palpay.bro "BRO. $PLAYER INVITATION"
            continue
        fi

        sleep 3

        ## SEND G1
        echo "PalPay____________
        SEND ${SHARE} G1 to $ASTROMAIL
        TW : $ASTROTW
        G1 : ${ASTROG1}"

        echo PAY4SURE.sh "${HOME}/.zen/game/players/${PLAYER}/secret.dunikey" "${SHARE}" "${ASTROG1}" "UPLANET:PALPAY"
        ${MY_PATH}/../tools/PAY4SURE.sh "${HOME}/.zen/game/players/${PLAYER}/secret.dunikey" "${SHARE}" "${ASTROG1}" "UPLANET:PALPAY"
        STAMP=$?
        ## DONE STAMP IT
        [[ $STAMP == 0 ]] \
        && echo "REDISTRIBUTION DONE" \
        && echo "$TXIDATE" > ~/.zen/game/players/${PLAYER}/.atdate

    done


done < ~/.zen/tmp/${MOATS}/myPalPay.json

echo "====(•‿‿•)======= %%%%% (°▃▃°) %%%%%%% ======(•‿‿•)========"

########################################################################################
## SEARCH FOR TODAY MODIFIED TIDDLERS WITH MULTIPLE EMAILS IN TAG
#  This can could happen in case Tiddler is copied OR PLAYER manualy adds an email tag to Tiddler to share with someone...
#################################################################
echo "# EXTRACT [days[-1]] DAYS TIDDLERS"
tiddlywiki --load ${INDEX} \
     --output ~/.zen/tmp/${MOATS} \
     --render '.' "today.${PLAYER}.tiddlers.json" 'text/plain' '$:/core/templates/exporters/JsonFile' 'exportFilter' '[days[-1]]'

# cat ~/.zen/tmp/${MOATS}/today.${PLAYER}.tiddlers.json | jq -rc  # LOG

## FILTER MY OWN EMAIL
cat ~/.zen/tmp/${MOATS}/today.${PLAYER}.tiddlers.json \
        | sed "s~${PLAYER}~ ~g" | jq -rc '.[] | select(.tags | contains("@"))' \
         > ~/.zen/tmp/${MOATS}/@tags.json 2>/dev/null ## Get tiddlers with not my email in it

[[ ! -s ~/.zen/tmp/${MOATS}/@tags.json ]] \
    && echo "NO EXTRA @tags.json TIDDLERS TODAY"

# LOG
cat ~/.zen/tmp/${MOATS}/@tags.json
echo "******************TIDDLERS with new EMAIL in TAGS treatment"

################################
## detect NOT MY EMAIL in TODAY TIDDLERS
################################
while read LINE; do

    echo "---------------------------------- Sava PalPé mec"
    echo "${LINE}"
    echo "---------------------------------- PalPAY for Tiddler"
    TCREATED=$(echo ${LINE} | jq -r .created)
    TTITLE=$(echo ${LINE} | jq -r .title)
    TTEXT=$(echo ${LINE} | jq -r '.text | match("/ipfs/[^\"\\s]+") | .string | first')
    TTAGS=$(echo ${LINE} | jq -r .tags)

    ## Extract "/ipfs/CID" from Tiddler - to pin TOPIN -
    TOPIN=$(echo ${LINE} | jq -r .ipfs) ## Tiddler produced by "Astroport Desktop"
    [[ ! $(echo ${TOPIN} | grep '/ipfs') ]] && TOPIN=$(echo ${LINE} | jq -r ._canonical_uri) ## Tiddler is exported to IPFS
    [[ ! $(echo ${TOPIN} | grep '/ipfs') ]] && TOPIN=$(echo ${LINE} | jq -r '.text | match("/ipfs/[^\"\\s]+") | .string | first') ## Ket first /ipfs/ link from text field
    [[ ! $(echo ${TOPIN} | grep '/ipfs') ]] && echo "NOT COMPATIBLE ${TOPIN}" && TOPIN=""

    echo "$TTITLE"

    ## Count extra emails found
    emails=($(echo "$TTAGS" | sed "s~${PLAYER}~ ~g" | grep -E -o "\b[a-zA-Z0-9.%+-]+@[A-Za-z0-9.-]+\.[A-Za-z]{2,6}\b"))
    nb=${#emails[@]}
    #~ zen=$(echo "scale=2; $nb / 10" | bc) ## / divide by 10 = 1 ZEN each

    ## Get first zmail
    ZMAIL="${emails}"

    MSG="SEND + $nb JUNE TO BROs : ${emails[@]}"
    echo $MSG

    ASTROTW="" STAMP="" ASTROG1="" ASTROIPFS="" ASTROFEED=""
    #### SEARCH FOR PALPAY ACOUNTS : USING PALPAY RELAY - COULD BE DONE BY A LOOP ?? §§§
    $($MY_PATH/../tools/search_for_this_email_in_players.sh ${ZMAIL}) ## export ASTROTW and more
    echo "export ASTROPORT=${ASTROPORT} ASTROTW=${ASTROTW} ASTROG1=${ASTROG1} ASTROMAIL=${EMAIL} ASTROFEED=${FEEDNS}"
    [[ ${ASTROTW} == "" ]] && ASTROTW=${ASTRONAUTENS}

    echo "TOPIN=${TOPIN}"
    if [[ ${TOPIN} && ${ASTROG1} && ${ASTROG1} != ${G1PUB} ]]; then

        ##############################
        ### GET PAID & GET PINNED !!
        ##############################
        ${MY_PATH}/../tools/PAY4SURE.sh "${HOME}/.zen/game/players/${PLAYER}/secret.dunikey" "${nb}" "${ASTROG1}" "${emails[@]} /ipfs/${TOPIN}"

        echo "<html><head><meta charset='UTF-8'>
            <style>
                body {
                    font-family: 'Courier New', monospace;
                }
                pre {
                    white-space: pre-wrap;
                }
            </style></head><body><h1>BRO ${PLAYER}</h1> : $MSG" > ~/.zen/tmp/${MOATS}/g1message
        ## PINNING IPFS MEDIA - PROOF OF COPY SYSTEM -
        [[ ! -z $TOPIN ]] \
            && ipfs pin add $TOPIN \
            && echo "<br> <a href='${myIPFSGW}'/ipns/${ASTROTW}#${TTITLE}>${TTITLE}</a>
                <br>( ${emails[@]} )<br>
                <h2>PIN: <a href='${myIPFSGW}'$TOPIN>$TOPIN</a></h2>(☼‿‿☼)" >> ~/.zen/tmp/${MOATS}/g1message
            ## lazy mode... NOT FINISHING HTML TAGGING... browser shoud display html page ;)

        ${MY_PATH}/../tools/mailjet.sh "${PLAYER}" ~/.zen/tmp/${MOATS}/g1message "BRO. ${ZMAIL} TW5 PIN"

    else
        ## ${ZMAIL} NOT A PLAYER YET
        ## SEND MESSAGE TO INFORM ${ZMAIL} OF THIS EXISTING TIDDLER
        echo "<html><head><meta charset='UTF-8'>
        <style>
            body {
                font-family: 'Courier New', monospace;
            }
            pre {
                white-space: pre-wrap;
            }
        </style></head><body>
        <h1>BRO. </h1>
        <br> <a href='${myIPFSGW}'/ipns/${ASTROTW}#${TTITLE}>${TTITLE}</a>
        <br>( ${emails[@]} )<br>
        <br><b>${TTITLE}</b><br>(✜‿‿✜)
        ... Join <a href='https://qo-op.com'>UPlanet</a>
        </body></html>" > ~/.zen/tmp/palpay.bro

        ${MY_PATH}/../tools/mailjet.sh "${ZMAIL}" ~/.zen/tmp/palpay.bro "BRO. ${PLAYER} TW5 link"

    fi


done < ~/.zen/tmp/${MOATS}/@tags.json

echo "=====(•‿‿•)====== ( ◕‿◕)  (◕‿◕ ) =======(•‿‿•)======="

# rm -Rf $HOME/.zen/tmp/${MOATS}
ls $HOME/.zen/tmp/${MOATS}

exit 0