#!/usr/bin/perl -w

my $ctabellen = 0;
my $crunden = 0;
my $ajahr = "";
open(my $inf, "ls -d */*/runde/* |");
while (<$inf>) {
	if (/^([0-9]*?)\/([0-9]*?)\/runde\/([0-9]*?)$/) {
		$runde = $3;
		$turnier = $2;
		$jahr = $1;
		if ($ajahr ne $jahr) {
			if ($ajahr ne "") {
				print "$ajahr: $jtabellen Tabellen und $jrunden Runden\n";
			}
			$jtabellen = 0;
			$jrunden = 0;
			$ajahr = $jahr;
		}
		if ($runde eq "1") {
			if (-e "$jahr/$turnier/tabelle.xml") {
				# print "$jahr/$turnier/tabelle.xml schon da\n";
				$ctabellen++;
				$jtabellen++;
			} else {
				# print "$jahr $turnier $runde --> $jahr/$turnier/tabelle.xml\n";
				print "curl -q -o $jahr/$turnier/tabelle.xml https://nrw.svw.info/tools/export/tabelle.php?tid=$turnier\n";
				`curl -q -o $jahr/$turnier/tabelle.xml "https://nrw.svw.info/tools/export/tabelle.php?tid=$turnier"`;
			}
		}
		if (-e "$jahr/$turnier/runde/$runde/runde.xml") {
			# print "$jahr/$turnier/runde/$runde/runde.xml schon da\n";
			$crunden++;
			$jrunden++;
		} else {
			# print "$jahr $turnier $runde --> $jahr/$turnier/runde/$runde/runde.xml\n";
			print "curl -q -o $jahr/$turnier/runde/$runde/runde.xml https://nrw.svw.info/tools/export/runde.php?tid=$turnier&runde=$runde\n";
			`curl -q -o $jahr/$turnier/runde/$runde/runde.xml "https://nrw.svw.info/tools/export/runde.php?tid=$turnier&runde=$runde"`;
		}
	}
}

print "Es sind $ctabellen Tabellen und $crunden Runden vorhanden.\n";
