#!/bin/ash
# Copyright (c) 2014 genuK/genuk@gmx.net
# Fritzload hosterplugin for http://fcore.eu

DEBUG_GET=1

###########################################
#    ev. Kandidat fuer die captcha libs   #
###########################################
solvePlaintextCaptcha() {
        local span loesung
        span=$(grep ";background:#ccc;text-align" $f|\
                sed -e 's/<div[^>]*>//g' -e 's/\(^.*\)<\/div>/\1/g' \
                -e 's/<\/span><span /\n/g' -e 's/<span //' -e 's/<\/span>//')
        loesung=$(echo "$span"|sed 's/.*-left:\([0-9]*\)px[^>]*>\(.*\)/\1 \2/g'|\
                sort -g |sed -e 's/[0-9]* //' -e 's/&#48;/0/' -e 's/&#49;/1/' \
                -e 's/&#50;/2/' -e 's/&#51;/3/' -e 's/&#52;/4/' -e 's/&#53;/5/' \
                -e 's/&#54;/6/' -e 's/&#55;/7/' -e 's/&#56;/8/' -e 's/&#57;/9/')
        loesung=$(echo "$loesung"| tr -d '\n')
        echo $loesung
}

fcore_eu_onlineStatus() {
        local url=$1
        local checklink="http://filecore.co.nz/?op=checkfiles"
        local checkdata="op=checkfiles&process=Check+URLs&list="$url
        GET "$checklink" $f "--data $checkdata --cookie $c -cookie-jar $c" "GET-CHECKURL"

        if grep -q -i '<td style="color:red;">Not found!</td>' $f; then
                errmsg "=== Link: $param nicht gefunden. Link ungueltig ==="; return 1
        elif grep -q -i "<td style=\"color:red;\">Filename don't match!</td>" $f; then
                errmsg "=== Link: $param - Filename don't match!. Link ungueltig ==="; return 1
        elif grep -q -i '<td style="color:green;">Found</td>' $f; then
                print "=== Link: $param gefunden. Link gueltig ==="; return 0
        else
                errmsg "=== Link Check! Something doesn't work! Please report! ==="; return 1
        fi
}

fcore_eu() {
        local filename filesize data download_link
        local f=$tmp/response.htm c=$tmp/dl.cookie.txt

        # check if link has the minimum length
        # if the link is too long will be catched by fcore_eu_onlineStatus
        if ! echo $param | grep -E "([a-z0-9]{12})" ; then
                errmsg "Link $param is too short! Please check your link!"
                return 1
        fi

        # check online availability
        if ! fcore_eu_onlineStatus "$param";then
                errmsg "URL-Adresse: Offline ($param)"
                return 1
        fi

        while [ $try -lt $retries ]; do
                try=$(($try+1))

                # get the url from downloadlist and load the answer in $f
                GET "$param" $f "--cookie $c --cookie-jar $c" "GET1"

                # check http status code
                if [ "$H_CODE" = 404 ] && grep -qiE "<h3>File Not found</h3>" $f ;then
                        errmsg "SERVER-FEHLER: Link nicht gefunden!; HTTP-Statuscode: $H_CODE"
                        errmsg "Link Adresse falsch?"
                        return 1
                elif grep -qi "No such file\|File Not Found\|The file was removed by\|Reason for deletion" $f; then
                        errmsg "File not found"
                        return 1
                elif grep -qi "This server is in maintenance mode" $f; then
                        errmsg "This server is in maintenance mode"
                        break
                elif grep -qiE "You have reached the download[-\ ]limit" $f; then
                        print "=== Download limit erreicht. Versuche reconnect. ==="
                        { needReconnect; continue; }
                fi

                # extract the form with name="F1"
                extractForm $f "name=\"F1\"" || extractForm $f "name='F1'" || continue

                # extract the form parameters values
                data="$(formParams 'op;id;rand;method_free;down_direct;down_script' $f 0)"

                # captcha processing
                local code
                if grep -q ";background:#ccc;text-align" $f.form ; then
                        print "=== Detected captcha method \"Plaintext Captcha\" ==="
                        code=$(solvePlaintextCaptcha $f)
                        print "=== extracted Plaintext Captcha code is: $code ==="
                        data=$data"&code="$code
                elif grep '/captchas/' $f.form ; then
                        print "=== Detected captcha method \"Standard captcha\" ==="
                        # extract the captcha link
                        local capurl="$(grep '/captchas/' $f.form | sed -e 's/.*\"\(.*[^\"]\)\".*/\1/g')"
                        print "=== Extracted capurl is: $capurl"

                        # get the captcha image
                        local capfile=$tmp/dl.captcha.jpg
                        curl -s --cookie $c "$capurl" -o $capfile
                        set_captcha_solution "$capurl" || continue
                        rm -rf $capfile
                        data=$data"&code="$CAPTCHA_STRING
                elif is_captcha $f; then
                        if grep -q "api.recaptcha.net\|google.com/recaptcha/api/" $f.form ; then
                                print "=== Detected captcha method \"Re Captcha\" ==="
                        elif grep -q "solvemedia.com/papi/" $f.form ; then
                                print "=== Detected captcha method \"Solve Media\" ==="
                        elif grep -q "id=\"capcode\" name= \"capcode\"" $f.form ; then
                                print "=== Detected captcha method \"Key Captcha\" ==="
                        fi
                        captcha_service_active || return
                        captcha_solution $f || continue
                        print "=== Returned CAPTCHA_RESPOND is: $CAPTCHA_RESPOND ==="
                        data=$data"&"$CAPTCHA_RESPOND
                else
                        captcha_type_unknown
                        return
                fi

                print "=== Form-Data with Captcha-Code is: $data ==="
                # submit the form-data and load the answer in $f
                GET "http://filecore.co.nz/download.html" $f "--data $data --cookie $c --cookie-jar $c" "GET2"

                if grep -q -i '<div class="err">Wrong captcha' $f; then
                        print "'Wrong captcha' was found on the second page"
                        captcha_wrong
                        continue
                elif grep -q -i '<div class="err">Expired download session' $f; then
                        print "Expired download session"
                        continue
                elif grep -q  -i "images/dl.png" $f; then
                        print "Download Link Button gefunden auf die 2. Seite"
                        captcha_correct
                else
                        errmsg "Something goes wrong. Plugin needs update? Please report!"
                        return 1
                fi

                download_link="$(grep 'images/dl.png' $f | sed -e 's/.*[^"]"\(http.*[^"]\)">.*/\1/g')"
                if [ -z "$download_link" ]; then
                        # write the log if "$download_link" not found
                        errmsg "FAILED: Could not resolve download URL"
                        return 1
                fi
                print "=== Extracted download_link is: $download_link ==="

                filename="$(echo $download_link| sed -e 's@.*/\(.*\)@\1@')"
                if [ -z "$filename" ]; then
                        # write the log if "$filename" not found
                        errmsg "FAILED: Could not resolve filename"
                        return 1
                fi
                print "=== Extracted filename is: $filename ==="

                notalreadyLoaded "$targetdir/$filename" || return
                if download "$download_link" "$filename" "-b $c -c $c"; then
                        succes=1
                        break
                fi
        done
}

#!/bin/ash
# Copyright (c) 2014 genuK/genuk@gmx.net
# Fritzload hosterplugin for http://filecore.co.nz

. $pdir/lib/hoster/fcore_eu.sh

filecore_co_nz() {
        fcore_eu "$param"
        return $?
}