diff options
Diffstat (limited to 'dateibeziehungen.pas')
| -rw-r--r-- | dateibeziehungen.pas | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/dateibeziehungen.pas b/dateibeziehungen.pas index 7eee746..ece2e13 100644 --- a/dateibeziehungen.pas +++ b/dateibeziehungen.pas @@ -105,7 +105,7 @@ type destructor destroy; override; procedure erzeugeRegeln; procedure findeWasZuTunIst; - procedure tueWasZuTunIst(unsicher: boolean; ausgabeDatei: string); + procedure tueWasZuTunIst(sicher: integer; ausgabeDatei: string); function anzOriAbh: longint; inline; function anzMglAbh: longint; inline; function anzDats: longint; inline; @@ -987,7 +987,7 @@ begin _mglAbh.sort; end; -procedure tMach.tueWasZuTunIst(unsicher: boolean; ausgabeDatei: string); +procedure tMach.tueWasZuTunIst(sicher: integer; ausgabeDatei: string); var i,j: longint; ausg: textFile; @@ -998,7 +998,11 @@ begin for i:=0 to _mglAbh.count-1 do for j:=0 to _mglAbh[i].befehle.count-1 do befehle.add(_mglAbh[i].befehle[j]); - if not unsicher then begin + befehle.add('sed "/\s'+escapeStringToRegex(escape(_machDatei,'$','\'),rtShell,'"/')+'\$/d" -i "'+escape(_pruefSummenDatei,'"\','\')+'"'); + befehle.add('sha512sum "'+escape(_machDatei,'"\','\')+'" >> "'+escape(_pruefSummenDatei,'"\','\')+'"'); + befehle.add('sort -u "'+escape(_pruefSummenDatei,'"\','\')+'" | sponge "'+escape(_pruefSummenDatei,'"\','\')+'" || true'); // ignoriere diese Zeile, wenn "sponge" nicht existiert + if (sicher=1) or // der Benutzer will es + ((sicher=0) and (_dats.finde(_machDatei).aktuell<>aAktuell)) then begin // die Machdatei ist nicht aktuell lokTest:=tRegExpr.create; if (ausgabeDatei='') or (extractFilePath(ausgabeDatei)=extractFilePath(_pruefSummenDatei)) then |