[tyndur-devel] [PATCH] lpt: Zielpfad für Untar()

[Alexander Siol <alex@xxxxxxxxxx>]

Kleine Änderung, wird bestimmt nochmal praktisch wenn lpt erweitert wird.

-- 
Alexander Siol
alex@xxxxxxxxxx
dunklermeuchler@xxxxxxxxx

diff --git a/trunk/src/modules/pas/lpt/lpt.pas b/trunk/src/modules/pas/lpt/lpt.pas
index 7f32de6..1da6527 100644
--- a/trunk/src/modules/pas/lpt/lpt.pas
+++ b/trunk/src/modules/pas/lpt/lpt.pas
@@ -30,7 +30,7 @@ begin
     end;
 end;
 
-procedure Untar(tar: TTarArchive);
+procedure Untar(tar: TTarArchive; targetpath: String = 'file:');
 var
     path: String;
     dir, filename, ext: String;
@@ -41,21 +41,21 @@ begin
         path := tar.NextFilename;
         dos.FSplit(path, dir, filename, ext);
 
-        mkpath('file:/' + dir);
+        mkpath(targetpath + '/' + dir);
 
-        Assign(f, 'file:/' + path);
+        Assign(f, targetpath + '/' + path);
         Rewrite(f, 1);
         tar.ExtractFile(f);
         Close(f);
     end;
 end;
 
-procedure Untar(tarfile: String);
+procedure Untar(tarfile: String; targetpath: String = 'file:');
 var
     tar: TTarArchive;
 begin
     tar := TTarArchive.create(tarfile);
-    Untar(tar);
+    Untar(tar, targetpath);
 end;

Attachment: signature.asc
Description: Digital signature