[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Lost] [PATCH 4/5] lpt: Bereits installierte Pakete erkennen



* lpt: Wenn ein Paket installiert werden soll, dessen Verzeichnis bereits
  angelegt ist, wird es bei der Installation uebersprungen
---
 src/modules/pas/lpt/lpt.pas |   16 ++++++++++++++--
 1 files changed, 14 insertions(+), 2 deletions(-)

diff --git a/src/modules/pas/lpt/lpt.pas b/src/modules/pas/lpt/lpt.pas
index 1dd057a..e87d794 100644
--- a/src/modules/pas/lpt/lpt.pas
+++ b/src/modules/pas/lpt/lpt.pas
@@ -166,10 +166,22 @@ procedure Get(pkgname: String);
         url: String;
     begin
         Install := false;
-        filename := version.pkg.name + '-' + version.section.section + '-' + version.version
-            + '-' + arch + '.tar';
 
+        // Wenn der Pfad bereits existiert, gehen wir davon aus, dass das
+        // Paket bereits installiert ist
+        filename := 'file:/packages/' + version.pkg.name + '/' +
+            version.version + '/' + version.section.section + '/';
+        if FileExists(filename) then begin
+            WriteLn('Bereits installiert: ' + version.pkg.name + '/' +
+                version.section.section);
+            Install := true;
+            exit;
+        end;
+
+        // Ansonsten herunterladen und installieren
         WriteLn('Herunterladen und Entpacken von ' + version.pkg.name + '/' + version.section.section);
+        filename := version.pkg.name + '-' + version.section.section + '-' + version.version
+            + '-' + arch + '.tar';
         url := version.repository + filename;
         if not Download(url, '', true) then begin
             exit;
-- 
1.5.4.5