save git revision for each run

5 files changed, 61 insertions, 43 deletions

diff --git a/.gitignore b/.gitignore
index 1c69bdf..c9811f8 100644
--- a/.gitignore
+++ b/.gitignore
@@ -10,3 +10,4 @@ lib
 epost
 *~
 Log*
+githash.inc
diff --git a/epost.lpi b/epost.lpi
index 908d80e..43f5d1a 100644
--- a/epost.lpi
+++ b/epost.lpi
@@ -109,6 +109,9 @@
     </CodeGeneration>
     <Other>
       <WriteFPCLogo Value="False"/>
+      <ExecuteBefore>
+        <Command Value="./generate-githash.inc"/>
+      </ExecuteBefore>
     </Other>
   </CompilerOptions>
   <Debugging>
diff --git a/epost.lpr b/epost.lpr
index bd06af2..1a715b4 100644
--- a/epost.lpr
+++ b/epost.lpr
@@ -20,6 +20,9 @@ var
   wertes:                         tWerteArray;
   konturen:                       tKonturenArray;
   Warnstufe:                      tWarnStufe;
+  f:                              textFile;
+
+{$I githash.inc}
 
 procedure werteAufraeumen;
 var
@@ -60,6 +63,12 @@ begin
   setLength(wertes,0);
   setLength(konturen,0);
   behalteLogs:=(paramcount=2) and (paramstr(2)='-L');
+
+  assignFile(f,extractFileDir(paramstr(1))+'/.'+extractFileName(paramstr(1))+'.run');
+  rewrite(f);
+  writeln(f,gitRevision+' '+intToStr(round(now*24*60*60)));
+  closeFile(f);
+
   inf:=tMyStringList.create(nil,'');
   inf.nichtInSubRoutine('^lösche Werte ');  // Zeilen, die hierauf passen, werden nicht an subRoutinen-Aufrufe
   inf.nichtInSubRoutine('^lösche Kontur '); // von metaReadln gegeben, sondern nach hinten ans Hauptprogramm verschoben
diff --git a/epost.lps b/epost.lps
index f3dc097..81c7dc8 100644
--- a/epost.lps
+++ b/epost.lps
@@ -7,8 +7,9 @@
       <Unit0>
         <Filename Value="epost.lpr"/>
         <IsPartOfProject Value="True"/>
-        <TopLine Value="534"/>
-        <CursorPos Y="552"/>
+        <IsVisibleTab Value="True"/>
+        <TopLine Value="4"/>
+        <CursorPos X="17" Y="24"/>
         <UsageCount Value="202"/>
         <Loaded Value="True"/>
       </Unit0>
@@ -22,10 +23,9 @@
       <Unit2>
         <Filename Value="epostunit.pas"/>
         <IsPartOfProject Value="True"/>
-        <IsVisibleTab Value="True"/>
         <EditorIndex Value="2"/>
         <TopLine Value="2085"/>
-        <CursorPos X="128" Y="2116"/>
+        <CursorPos X="85" Y="2106"/>
         <UsageCount Value="201"/>
         <Loaded Value="True"/>
       </Unit2>
@@ -210,121 +210,121 @@
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="45" Column="9" TopLine="16"/>
+        <Caret Line="48" Column="18" TopLine="40"/>
       </Position1>
       <Position2>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="48" Column="18" TopLine="40"/>
+        <Caret Line="52" Column="32" TopLine="40"/>
       </Position2>
       <Position3>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="52" Column="32" TopLine="40"/>
+        <Caret Line="132" Column="15" TopLine="110"/>
       </Position3>
       <Position4>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="132" Column="15" TopLine="110"/>
-      </Position4>
-      <Position5>
         <Filename Value="epost.lpr"/>
         <Caret Line="193" TopLine="175"/>
-      </Position5>
-      <Position6>
+      </Position4>
+      <Position5>
         <Filename Value="epostunit.pas"/>
         <Caret Line="2344" Column="44" TopLine="2336"/>
-      </Position6>
-      <Position7>
+      </Position5>
+      <Position6>
         <Filename Value="../units/lowlevelunit.pas"/>
         <Caret Line="87" Column="46" TopLine="68"/>
+      </Position6>
+      <Position7>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="2788" Column="7" TopLine="2771"/>
       </Position7>
       <Position8>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="2788" Column="7" TopLine="2771"/>
+        <Caret Line="7513" TopLine="7497"/>
       </Position8>
       <Position9>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="7513" TopLine="7497"/>
+        <Caret Line="2352" TopLine="2335"/>
       </Position9>
       <Position10>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="2352" TopLine="2335"/>
+        <Filename Value="typenunit.pas"/>
+        <Caret Line="2532" Column="105" TopLine="2526"/>
       </Position10>
       <Position11>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="2532" Column="105" TopLine="2526"/>
+        <Caret Line="2270" TopLine="2252"/>
       </Position11>
       <Position12>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="2270" TopLine="2252"/>
-      </Position12>
-      <Position13>
         <Filename Value="epostunit.pas"/>
         <Caret Line="2381" TopLine="2363"/>
-      </Position13>
-      <Position14>
+      </Position12>
+      <Position13>
         <Filename Value="typenunit.pas"/>
         <Caret Line="2177" Column="93" TopLine="2152"/>
+      </Position13>
+      <Position14>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="7513" TopLine="7481"/>
       </Position14>
       <Position15>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="7513" TopLine="7481"/>
+        <Caret Line="2378" Column="106" TopLine="2364"/>
       </Position15>
       <Position16>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="2378" Column="106" TopLine="2364"/>
+        <Caret Line="2081" Column="109" TopLine="2064"/>
       </Position16>
       <Position17>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="2081" Column="109" TopLine="2064"/>
+        <Filename Value="../units/lowlevelunit.pas"/>
+        <Caret Line="178" Column="57" TopLine="155"/>
       </Position17>
       <Position18>
         <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="178" Column="57" TopLine="155"/>
       </Position18>
       <Position19>
         <Filename Value="../units/lowlevelunit.pas"/>
+        <Caret Line="21" Column="16"/>
       </Position19>
       <Position20>
         <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="21" Column="16"/>
+        <Caret Line="22" Column="34"/>
       </Position20>
       <Position21>
         <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="22" Column="34"/>
+        <Caret Line="23" Column="55"/>
       </Position21>
       <Position22>
         <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="23" Column="55"/>
+        <Caret Line="169" Column="50" TopLine="140"/>
       </Position22>
       <Position23>
         <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="169" Column="50" TopLine="140"/>
+        <Caret Line="170" Column="86" TopLine="141"/>
       </Position23>
       <Position24>
         <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="170" Column="86" TopLine="141"/>
+        <Caret Line="171" Column="67" TopLine="142"/>
       </Position24>
       <Position25>
         <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="171" Column="67" TopLine="142"/>
+        <Caret Line="178" Column="12" TopLine="155"/>
       </Position25>
       <Position26>
-        <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="178" Column="12" TopLine="155"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="2081" Column="61" TopLine="2064"/>
       </Position26>
       <Position27>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="2081" Column="61" TopLine="2064"/>
+        <Caret Line="2116" Column="73" TopLine="2088"/>
       </Position27>
       <Position28>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="2116" Column="73" TopLine="2088"/>
       </Position28>
       <Position29>
         <Filename Value="epostunit.pas"/>
+        <Caret Line="2081" Column="73" TopLine="2053"/>
       </Position29>
       <Position30>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="2081" Column="73" TopLine="2053"/>
+        <Filename Value="epost.lpr"/>
+        <Caret Line="295" Column="55" TopLine="276"/>
       </Position30>
     </JumpHistory>
     <RunParams>
diff --git a/generate-githash.inc b/generate-githash.inc
new file mode 100755
index 0000000..44cee9e
--- /dev/null
+++ b/generate-githash.inc
@@ -0,0 +1,5 @@
+#!/bin/bash
+
+cat >githash.inc <<eof
+const gitRevision = '$(git rev-parse HEAD)';
+eof