Subversion Repositories vgwhois

#!/bin/bash

#

#  VGWhoIs (ViaThinkSoft Global WhoIs, a fork of generic Whois / gwhois)

#  Maintenance / Developer utilities

#

#  (c) 2012-2019 by Daniel Marschall, ViaThinkSoft <info@daniel-marschall.de>

#

#  License: https://www.gnu.org/licenses/gpl-2.0.html (GPL version 2)

#

DIR=$( dirname "$0" )

TESTCASES_LIST="$DIR/../../config/testcases.list"

# ---

function FileAge() {

	echo $((`date +%s` - `stat -c %Y $1`))

}

function HumanReadableAge() {

	local seconds=$1

	local days=$(($seconds/86400))

	seconds=$(($seconds-($days*86400) ))

	local hours=$(($seconds/3600))

	seconds=$((seconds-($hours*3600) ))

	local minutes=$(($seconds/60))

	seconds=$(( $seconds-($minutes*60) ))

	# echo -n "${days}D ${hours}H ${minutes}M ${seconds}S"

	if [ $days -gt 0 ]; then

		if [ $hours -gt 12 ]; then

			((days++));

		fi

		echo -n "${days} days ago"

	elif [ $hours -gt 0 ]; then

		if [ $minutes -gt 30 ]; then

			((hours++));

		fi

		echo -n "${hours} hours ago"

	elif [ $minutes -gt 0 ]; then

		if [ $seconds -gt 30 ]; then

			((minutes++));

		fi

		echo -n "${minutes} minutes ago"

	else

		echo -n "a few seconds ago"

	fi

}

# ---

. "$DIR/../../config/testcases.conf"

CACHE_DIR="$DIR/../../.cache"

echo "Query                          Last activity        Status"

echo "----------------------------------------------------------------------------------"

while read f; do

	if [ -z "$f" ]; then

		continue;

	fi

	# Check if the line begins with an '#' (leading spaces are permitted)

	echo "$f" | grep -E "\s*^#" > /dev/null

	if [ $? -eq 0 ]; then

		continue;

	fi

	# Warum? "tld jp" wird dann zu "tld"

	# query="$( basename $f )"

	query="$f";

	if [ ! -d "$CACHE_DIR/testcases/expected" ]; then

		mkdir -p "$CACHE_DIR/testcases/expected"

	fi

	expfile="$CACHE_DIR/testcases/expected/$query"

	if [ ! -d "$CACHE_DIR/testcases/checktimestamps" ]; then

		mkdir -p "$CACHE_DIR/testcases/checktimestamps"

	fi

	tsfile="$CACHE_DIR/testcases/checktimestamps/$query"

	if [ -f "$tsfile" ]; then

		# lastcheck="$( date -r "$tsfile" )"

		lastcheck=$( HumanReadableAge $( FileAge "$tsfile" ))

	else

		lastcheck="never"

	fi

	if [ ! -d "$CACHE_DIR/testcases/problems" ]; then

		mkdir -p "$CACHE_DIR/testcases/problems"

	fi

	errfile="$CACHE_DIR/testcases/problems/$query"

	if [ -f "$errfile" ]; then

		cat "$errfile" | grep -E "at /(bin|usr|etc|var)/\S+ line" > /dev/null

		PERLERR=$?

		cat "$errfile" | head -n 1 | grep -E "^("$'\xEF\xBB\xBF'"){0,1}Process query: '$query'" > /dev/null

		STARTEXP=$?

		cat "$errfile" | grep "vgwhois remarks: If this is a valid domainname or handle, please file a bug report." > /dev/null

		NOPATTERNMATCH=$?

		if [ $PERLERR -eq 0 ]; then

			status="Perl-Error!"

		elif [ $STARTEXP -ne 0 ]; then

			status="Unexpected head line"

		elif [ $NOPATTERNMATCH -eq 0 ]; then

			status="No pattern match"

		elif [ -f "$expfile" ]; then

			status="Different output"

		else

			status="No expected output defined"

		fi

	else

		if [ -f "$expfile" ]; then

			status="OK"

		else

			status="No expected output defined"

		fi

	fi

	if [ ! -f "$tsfile" ] || [ $( stat --format=%Y "$tsfile" ) -le $(( $( date +%s ) - $recheck_time )) ]; then

		if [ ! -f "$errfile" ] || [ $( stat --format=%Y "$errfile" ) -le $(( $( date +%s ) - $recheck_time )) ]; then

			status="$status, outdated"

		fi

	fi

	printf "%-30s %-20s %-20s\n" "$query" "$lastcheck" "$status"

done < "$TESTCASES_LIST"