tiny fixes
diff --git a/klk2eureco.sh b/klk2eureco.sh
new file mode 100755
index 0000000..9864644
--- /dev/null
+++ b/klk2eureco.sh
@@ -0,0 +1,81 @@
+#/bin/bash
+
+EURECO="/scratch/project_2010889/eureco"
+
+CORPUS="$EURECO/klk-fi-v2-vrt"
+TEIDTD="$EURECO/tei/tei_all.dtd"
+
+DAT="$CORPUS/data" # input vrt files of klk-fi by year
+XML="$CORPUS/XML" # output zipped vrtxml files of selection of papers
+TEI="$CORPUS/TEI" # output zipped tei files of the selection
+
+
+mkdir -p $XML
+mkdir -p $TEI
+
+
+
+# Multiple threads for a loop in bash:
+
+## for stuff in things
+## do
+## ( something
+## with
+## stuff ) &
+## done
+## wait # for all the something with stuff
+
+
+
+# Generate corpus files by year and source in vrt
+
+# for VRT in "$DAT/*.vrt"
+for VRT in "$DAT/klk_fi_v2_2021.vrt" # to be applied to yearly files
+do # (
+
+ BASENAME=`basename $VRT .vrt`
+ YY=`echo $BASENAME | gawk 'BEGIN {FS="_"} {print $4}'`
+
+ echo "Generating proper XML files from $VRT in $XML/$YY by source..."
+ #gawk -v OUTDIR="$XML" -v YEAR="$YY" -f vrt2xml.awk $VRT # will generate corpus files for different sources in the YEAR dir
+
+ echo "Checking Wellformedness and generating TEI..."
+ for s in $XML/*/
+ # for s in $XML/Aamulehti/
+ do ( # threading
+
+ SOURCE=`basename $s`
+ x=$s/$SOURCE$YY.xml
+
+ echo " checking wellformedness of $x"
+ xmllint --noout $x # ToDo: make if condition for continuing only if well-formed
+
+ BASENAME=`basename $x .xml`
+ mkdir -p $TEI/$SOURCE
+ u="$TEI/$SOURCE/$BASENAME.tei.0.xml"
+ t="$TEI/$SOURCE/$BASENAME.tei.xml"
+
+ echo " generating $u..."
+ ./vrt2tei.pl $x $u # ToDo: pipe in and out
+
+ echo " zipping $x..."
+ gzip $x
+
+ echo " validating and prettifying $u..."
+ xmllint --format --dtdvalid $TEIDTD $u > $t
+ ls -l $t
+
+ echo " removing $u..."
+ rm $u;
+ echo " zipping $t..."
+ gzip $t
+
+ echo ) &
+ done
+ wait # ) &
+
+done
+# wait
+
+
+
diff --git a/vrt2tei.pl b/vrt2tei.pl
index b1f6b34..2db2a6b 100755
--- a/vrt2tei.pl
+++ b/vrt2tei.pl
@@ -160,7 +160,7 @@
my $l = scalar(@array);
my $source = $array[$l-1];
$source =~ s/\.xml//;
- $source = $source . " from KLK-FI"; # for the time being; TODO
+ $source = $source . " from klk-fi-v2-vrt"; # for the time being; TODO
my $teiHeader = $root ->insert_new_elt("first_child", 'teiHeader');
my $fileDesc = $teiHeader ->insert_new_elt("last_child", 'fileDesc');