#!/bin/bash

DALLIST=kotta.list
WGETLOG=wget.log
CIKKLOG=dalbox.log
EREDM=luaeredm		# a kiterjesztese utal a formara. Egyelore csak .lua van.
SZOCIKK=szocikk.txt	# a letoltott szocikk wikitxt alakban
INFOBOX="dalbox?.txt"	# ? = 1,2,stb. az infoboxok szamatol fuggoen
MODBOX=modbox.txt	# az egyik modositott INFOBOX
MUNKA=lualist.$$

WIKI=${1:-https://hu.wikipedia.org/w}
#WIKI="http://localhost/proba"

rm -f $WGETLOG $EREDM.* $CIKKLOG
echo 'local ret = {}' >$EREDM.lua
echo >>$EREDM.lua

. utf8
katlapok 'Kottát és midifáljt tartalmazó lapok' "$WIKI" "$WGETLOG" | logek | sort | tee $DALLIST | while read SOR
#grep 'gránátos' kotta.list | logek | while read SOR		# teszt
do	#echo $SOR
	rm -f $INFOBOX $SZOCIKK
	wget -t1 -T10 "$WIKI/index.php?title=`urlek "$SOR"`&action=raw" -O $SZOCIKK -a $WGETLOG
	if grep -i '#redirect ' $SZOCIKK >/dev/null
	then	echo "$SOR": átirányítás | tee -a $CIKKLOG
	else	INFOSZAM=`wkr_dalbox $SZOCIKK 2>>$CIKKLOG`
		echo $SOR $INFOSZAM
	#	A letoltott infobox(ok) atalakitasa: mezok atalakitasa, letrehozasa, torlese
		if ! ls $INFOBOX >/dev/null 2>/dev/null
		then	continue	# a szocikkben nincs infobox
		fi
		for FAJL in $INFOBOX	# a szocikkben tobb infobox is lehet
		do	sed -e "s/'/\\\\'/g" -e 's/<br>/ /g' $FAJL >$MODBOX		# FAJL egy dal infoboxa
			DATUM=`wget -t1 -T10 "$WIKI/api.php?action=query&titles=$SOR&prop=revisions&format=xml" -O- -a $WGETLOG |
				logcut -f /timestamp=/ | logcut -d = -f 2 | tr -d '"'`
			echo utmod = `date -d "$DATUM" +%Y-%m-%d.%H:%M:%S` >>$MODBOX
			KOTTA=`echo $FAJL | sed -e 's/[^0-9]*//g'`
			if [ "$KOTTA" = 1 ] ; then KOTTA='' ; else KOTTA='#'$KOTTA ; fi
			wkr_dalsor $MODBOX "$SOR" >>$MODBOX
			CREDAT=`wikicredat "$SOR" "$WIKI" "$WGETLOG"`
			echo creusr = `logcut -f 2 <<< $CREDAT` >>$MODBOX
			echo credat = `logcut -f 1 <<< $CREDAT` >>$MODBOX
			wkr_luaform "$SOR" $MODBOX $EREDM.lua $KOTTA	# hozzairjuk az eredmenyhez
		done
	fi
done 2>>robot.err | tee robot.out
echo >>$EREDM.lua
echo 'return ret' >>$EREDM.lua
rm -f $MUNKA
