From 75fe735e013a99e1d2a584eaeb0fa0a2ca5c1de7 Mon Sep 17 00:00:00 2001
From: Tomas Bzatek <tbzatek@users.sourceforge.net>
Date: Fri, 14 Nov 2008 20:40:43 +0100
Subject: VFS: Password reset support

---
 vfs/UVFSCore.pas | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'vfs/UVFSCore.pas')

diff --git a/vfs/UVFSCore.pas b/vfs/UVFSCore.pas
index 8bba788..a514512 100644
--- a/vfs/UVFSCore.pas
+++ b/vfs/UVFSCore.pas
@@ -66,6 +66,7 @@ type
     FVFSGetServices: TVFSGetServices;
     FVFSGetPasswordRequired: TVFSGetPasswordRequired;
     FVFSSetCallbacks: TVFSSetCallbacks;
+    FVFSResetPassword: TVFSResetPassword;
   public
     ModuleHandle: Pointer;
     FullPath: string;  //  module path
@@ -143,6 +144,7 @@ type
     function TwoSameFiles(const Path1, Path2: string): boolean; override;
 
     function GetPasswordRequired: boolean;
+    procedure ResetPassword;
   published
     property Path: string read GetPath write SetPath;
     property BlockSize: Cardinal read GetBlockSize write SetBlockSize;
@@ -221,6 +223,7 @@ begin
   @FVFSGetServices := dlsym(ModuleHandle, 'VFSGetServices');
   @FVFSGetPasswordRequired := dlsym(ModuleHandle, 'VFSGetPasswordRequired');
   @FVFSSetCallbacks := dlsym(ModuleHandle, 'VFSSetCallbacks');
+  @FVFSResetPassword := dlsym(ModuleHandle, 'VFSResetPassword');
   //  Initialize the extensions list
   SetLength(Extensions, 0);
   SetLength(Services, 0);
@@ -921,6 +924,13 @@ begin
                                                    else Result := False;
 end;
 
+procedure TVFSEngine.ResetPassword;
+begin
+  if @FSourcePlugin.FVFSResetPassword <> nil then
+    FSourcePlugin.FVFSResetPassword(FGlobs);
+end;
+
+
 (********************************************************************************************************************************)
 (********************************************************************************************************************************)
 function GetBinaryPath: string;
-- 
cgit v1.2.3