Fritz!Load…

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

DEBUG_GET=1

filesfrog_net_onlineStatus() {
        local url=$1
        local checklink="http://www.filesfrog.net/?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
}

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

        if ! filesfrog_net_onlineStatus "$param";then
                errmsg "URL-Adresse: Offline ($param)"
                return 1
        fi

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

                # get the url($param) 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 [ "$H_CODE" != 200 ]; then
                        errmsg "SERVER-FEHLER: $H_CODE"
                        return 1
                fi

                # extract the filename
                filename="$(formValue 'fname' $f 0)"
                if [ -z "$filename" ];then
                        # write the log and quit if "$filename" not found
                        errmsg "FAILED: Could not resolve FILENAME"
                        return 1
                fi
                print "=== Extracted filename is: $filename ==="
                notalreadyLoaded "$targetdir/$filename" || return

                # extract the form parameters values
                data="$(formParams 'op;id;fname;referer;method_free' $f 0)"
                print "=== Extracted Form-data is: $data ==="

                # submit the form-data and load the answer in $f
                GET "$param" $f "--data $data --cookie $c --cookie-jar $c" "GET2"

                # 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 [ "$H_CODE" != 200 ]; then
                        errmsg "SERVER-FEHLER: $H_CODE"
                        return 1
                elif grep -q -i "<div class=\"err\">You have to wait" $f; then
                        print "=== Download limit erreicht. Versuche reconnect. ==="
                        { needReconnect; continue; }
                fi

                # extract the form parameters values
                data="$(formParams 'op;id;rand;referer;method_free;method_premium;down_direct' $f 0)"
                print "=== Extracted Form-data is: $data ==="

                # captcha processing
                if is_captcha $f; then
                        captcha_service_active || return
                        captcha_solution $f || continue
                else
                        captcha_type_unknown
                        return
                fi

                # submit the form+captcha and load the answer in $f
                GET "$param" $f "--data $data&$CAPTCHA_RESPOND --cookie $c --cookie-jar $c" "GET3"

                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 "<h3>File Download Link Generated</h3>" $f ||\
                        grep -q  -i "This direct link will be available for your IP next 8 hours" $f ; then
                        print "Download Link Button gefunden auf die 3. Seite"
                        captcha_correct
                else
                        errmsg "Something goes wrong. Plugin needs update? Please report!"
                        return 1
                fi

                # extract the filesize
                filesize="$(grep "Size:" $f | sed -e 's/^.*[^0-9]\(\([0-9]*\.[0-9]*\) [K\|M\|G][B\|b]\).*$/\1/')"
                print "=== Extracted filesize is: $filesize ==="

                # extract the download link
                download_link="$(grep "var download_url" $f | sed -e "s/\(.*var download_url = '\)\([^']*\).*/\2/")"
                if [ -z "$download_link" ]; then
                        errmsg "Der Download url konnte nicht gefunden werden, eine 2. Methode wird versucht..."
                        # try to get the download url from the ahref
                        download_link="$(grep '<a href=.*http.*'"$filename" $f | sed -e 's/\(.*a href=\"\)\([^\"\]*\)".*/\2/$
                elif [ -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 ==="

                if download "$download_link" "$filename" "--cookie $c --cookie-jar $c";then
                        succes=1
                        break
                fi
        done
}

#!/bin/ash
# Copyright (c) 2013 genuK/genuk@gmx.net
# Fritzload hosterplugin for http://180upload.com/
# Version 1.00 31.01.2014
# Bis zu 2048 Mb, 10 Dateien maximal
# can resume

DEBUG_GET=1
# CAN_RESUME=1

one80upload_com() {
	local filename filesize url f=$tmp/response.htm c=$tmp/dl.cookie.txt language="lang=english"
	local checklinkurl="http://180upload.com/?op=checkfiles&process=Check+URLs&list="

	while [ $try -lt $retries ]; do
		try=$(($try+1))
		# check link availability
		GET "$checklinkurl$param" $f  "--cookie $c --cookie $language --cookie-jar $c" "CHECKLINK"

		# check $f if link is still available
		if grep -q -i "$param found" $f; then
			print "=== Link: $param gefunden. Link ist gueltig ==="
		elif grep -q -i "$param not found" $f; then
			errmsg "Link: $param nicht gefunden. Link ist ungueltig" ; return 1
		fi

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

		# check http status code
		if [ "$H_CODE" = 404 ] && grep -qE "<h2>File Not Found</h2>" $f ;then
			errmsg "SERVER-FEHLER: Link nicht gefunden!; HTTP-Statuscode: $H_CODE"
			errmsg "Link Adresse falsch?"
			return 1
		elif [ "$H_CODE" != 200 ];then
			errmsg "SERVER-FEHLER: $H_CODE"
			return 1
		fi

		# Server in maintenance; wait and try again
		if grep -q -i "This server is in maintenance mode. Refresh this page in some minutes." $f; then
			errmsg "Der Server befindet sich im Wartung. Es wird erneut versucht die Seite zu laden in 5 Minuten."
			waiting 300
			{ needReconnect; continue;}
		fi

		# other possibilities
		if grep -q -i "File Not Found, Copyright infringement issue, file expired or deleted by its owner." $f; then
			errmsg "'File Not Found, Copyright infringement issue, file expired or deleted by its owner.' gefunden auf die erste Seite!"
			errmsg "Die Datei wurde nicht gefunden. Geloescht oder abgelaufen?"
			return 1
		elif ! grep -q  -i "Click here to continue to the video or file\|Continue" $f; then
			errmsg "'Click here to continue to the video or file\|Continue' nicht gefunden auf die erste Seite!"
			errmsg "Site update? Das Plugin braucht vielleicht eine Aktualisierung.";
			return 1
		elif grep -qiE "You have reached the download[-\ ]limit" $f; then
			print "=== Download limit erreicht. Versuche reconnect. ==="
			{ needReconnect; continue; }
		fi

		# get the filename from the first page (GET1) # maybe better to get the file name on the second page (?)
		filename="$(grep -m1 -o -E "<b>Filename:</b></td><td nowrap>(.*?)</td></tr>" $f | sed -e 's/.*<td nowrap>\(.*\)<\/td><\/tr>/\1/')"
		print "=== Filename gefunden: $filename ==="

		if [ -z "$filename" ]; then
			errmsg "Der Dateiname konnte nicht gefunden werden, eine 2. Methode wird versucht..."
			filename= "$(grep -m1 -o -E '^<b>(.*)</b>' $f | sed -e 's/^<b>\(.*\)<\/b>/\1/')"
			print "=== Filename gefunden: $filename ==="
		fi

		# extract the form parameter values
		local data="$(formParams 'op;id;rand;fname;referer;method_free;method_premium;down_direct' $f 0)" 
		print "=== Extracted Form-Data ist: $data ==="

		# captcha processing
		if is_captcha $f; then
			captcha_service_active || return
			captcha_solution $f || continue
		else
			captcha_type_unknown
			return
		fi

		# submit the form+captcha and load the answer in $f
		GETN "$param" $f "-d $data&$CAPTCHA_RESPOND -b $c -b $language -c $c" "GET2"

		# check http status code
		if [ "$H_CODE" != 200 ];then
			echo "SERVER-FEHLER: $H_CODE"
			return 1
		elif 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 "This download link will be available for you for the next 7 hours\|By downloading the file you agree to the TOS of 180upload" $f; then
			print "'This download link will be available for you for the next 7 hours\|By downloading the file you agree to the TOS of 180upload' gefunden auf die 2. Seite"
			captcha_correct
		fi

		# if filename not allready found try to get it from the 2. Page
		if [ -z "$filename" ]; then
			filename="$(grep -m1 -o -E '^<b>(.*)</b>' $f | sed -e 's/<b>\(.*\)<\/b>/\1/')"
			print "=== Filename gefunden: $filename ==="
		elif [ -z "$filename" ]; then
			errmsg "Der Dateiname konnte nicht gefunden werden, eine 5. Methode wird versucht..."
			filename= "$(grep -m1 -o -E '<!--<tr><td align=right><b>Filename:</b></td><td nowrap>(.*)</td></tr>-->' $f | sed -e 's/^.*<b>Filename:<\/b><\/td><td nowrap>\(.*\)<\/td>.*/\1/')"
			print "=== Filename gefunden: $filename ==="
		fi

		# get download url from the visible link
		url="$(grep -m1 -E -o '<h1><a id=\"lnk_download\" href=\"(.*)\">' $f | sed -e 's/.*href=\"\(.*\)\".*/\1/')"
		print "=== Download url gefunden: $url ==="
		if [ -z "$url" ]; then
			errmsg "Der Download url konnte nicht gefunden werden, eine 2. Methode wird versucht..."
			# try to get the download url from the JavaScript "var file_link"
			url="$(grep -m1 -o -E "var file_link = '(.*)'" $f | sed -e "s/\(var file_link = '\)\(.*\)\('\)/\2/")"
			print "=== Download url gefunden: $url ==="
		elif [ -z "$url" ]; then
			errmsg "Der Download url konnte immer noch nicht gefunden werden, eine 3. Methode wird versucht..."
			# try to get the download url from the JavaScript "var installer_link"
			url="$(grep -m1 -o -E "&product_download_url=(.*)'" $f | sed -e "s/\(&product_download_url=\)\(.*\)\('\)/\2/")"
			print "=== Download url gefunden: $url ==="
		fi

		if [ -z "$url" ];then
			# write the log if "$url" not found
			errmsg "FAILED: Could not resolve download URL"
			return 1
		elif [ -z "$filename" ];then
			# write the log if "$filename" not found
			errmsg "FAILED: Could not resolve FILENAME"
			return 1
		fi

		# get the filesize from the JavaScript "var file_size"
		filesize="$(grep -m1 -o -E "var file_size = '(.*)'" $f | sed -e "s/\(var file_size = '\)\(.*\)\('\)/\2/")"
		print "=== Filesize gefunden: $filesize ==="

		# test if allready loaded
		notalreadyLoaded "$targetdir/$filename" || return

		# TODO check filesize against the downloaded filesize; is possible somehow?
		# TODO count the time and by failure download again; the link is available 7 hours; What if IP changes? Is the link still available?
		# TODO resume; anyone does it?
		local resumeoption="-C -"
		if download "$url" "$filename" "-b $c -c $c $resumeoption"; then
			break
		fi

	done
}

getmodulenamePattern(){
	local modulename=$1
	case $modulename in
		twoshared_com)  echo "2shared.com|twoshared.com" ;;
		fourshared_com) echo "4shared.com|fourshared.com" ;;
		crocko_com)     echo "easy.share.com|crocko.com" ;;

getmodulenamePattern(){
        local modulename=$1
        case $modulename in
                one80upload_com)  echo "180upload.com|one80upload.com" ;;
                twoshared_com)  echo "2shared.com|twoshared.com" ;;
                fourshared_com) echo "4shared.com|fourshared.com" ;;
                crocko_com)     echo "easy.share.com|crocko.com" ;;

	case $modulename in
		2shared_com)    modulename=twoshared_com ;;
		4shared_com)    modulename=fourshared_com ;;
		easy_share_com) modulename=crocko_com ;;
		freakshare_com) modulename=freakshare_net ;;
		tubeload_to)    modulename=mystream_to ;;
		ul_to)          modulename=uploaded_to ;;
		yourfiles_biz)  modulename=yourfiles_to ;;
	esac

        case $modulename in
                180upload_com)  modulename=one80upload_com ;;
                2shared_com)    modulename=twoshared_com ;;
                4shared_com)    modulename=fourshared_com ;;
                easy_share_com) modulename=crocko_com ;;
                freakshare_com) modulename=freakshare_net ;;
                tubeload_to)    modulename=mystream_to ;;
                ul_to)          modulename=uploaded_to ;;
                yourfiles_biz)  modulename=yourfiles_to ;;
        esac

get_hostername() {
	echo "$1" | sed -e 's/^twoshared_com/2shared.com/' \
					-e 's/^fourshared_com/4shared.com/' \
					-e 's/^ul_to/uploaded.to/' \
					-e 's/^videos_arte_tv/videos.arte.tv/' \
					-e 's/^files_mail_ru/files.mail.ru/' \
					-e 's/^\(.*\)_\(.*\)$/\1\.\2/' \
					-e 's/_/-/g'
}

get_hostername() {
        echo "$1" | sed -e 's/^one80upload_com/180upload.com/' \
                                        -e 's/^twoshared_com/2shared.com/' \
                                        -e 's/^fourshared_com/4shared.com/' \
                                        -e 's/^ul_to/uploaded.to/' \
                                        -e 's/^videos_arte_tv/videos.arte.tv/' \
                                        -e 's/^files_mail_ru/files.mail.ru/' \
                                        -e 's/^\(.*\)_\(.*\)$/\1\.\2/' \
                                        -e 's/_/-/g'
}

	case $modulename in
		2shared_com)	modulename=twoshared_com ;;
		4shared_com)	modulename=fourshared_com ;;
		easy_share_com) modulename=crocko_com ;;
		freakshare_com) modulename=freakshare_net ;;
		tubeload_to)	modulename=mystream_to ;;
		ul_to)			modulename=uploaded_net ;;
		uploaded_to)	modulename=uploaded_net ;;
		yourfiles_biz)	modulename=yourfiles_to ;;
	esac

        case $modulename in
                180upload_com)  modulename=one80upload_com ;;
                2shared_com)    modulename=twoshared_com ;;
                4shared_com)    modulename=fourshared_com ;;
                easy_share_com) modulename=crocko_com ;;
                freakshare_com) modulename=freakshare_net ;;
                tubeload_to)    modulename=mystream_to ;;
                ul_to)          modulename=uploaded_net ;;
                uploaded_to)    modulename=uploaded_net ;;
                yourfiles_biz)  modulename=yourfiles_to ;;
        esac