From d86677a5d566999378121e01a37297eeabd48c03 Mon Sep 17 00:00:00 2001
From: Robin1985 <robin@pdfforge.org>
Date: Tue, 12 Apr 2016 13:41:19 +0200
Subject: [PATCH] Revert "Add function for dual signing"

---
 src/app/FakeLib/SignToolHelper.fs | 38 +------------------------------
 1 file changed, 1 insertion(+), 37 deletions(-)

diff --git a/src/app/FakeLib/SignToolHelper.fs b/src/app/FakeLib/SignToolHelper.fs
index 9139410ca6c..00dc3a73440 100644
--- a/src/app/FakeLib/SignToolHelper.fs
+++ b/src/app/FakeLib/SignToolHelper.fs
@@ -65,42 +65,6 @@ let Sign (toolsPath : string) (parameters : SignParams) (filesToSign : seq<strin
 /// Signs all files in filesToSign with the certification file certFile, 
 /// protected with the password in the file passFile. 
 /// The signtool will be search in the toolPath.
-let AppendSignature (toolsPath : string) (parameters : SignParams) (filesToSign : seq<string>) = 
-    traceStartTask "SignTool" "Trying to dual sign the specified assemblies"
-      
-    let signPath = toolsPath @@ "signtool.exe"
-
-    let certToUse = match parameters.Certificate with
-                        | Some cert -> if File.Exists cert.CertFile then cert else parameters.DevCertificate
-                        | None -> parameters.DevCertificate
-
-    let baseCall = sprintf "sign /f \"%s\" /as /fd sha256 " certToUse.CertFile
-
-    
-    let withTimeStamp = baseCall + match parameters.TimeStampUrl with
-                                        | Some url -> sprintf " /tr \"%s\" /td sha256" url.AbsoluteUri
-                                        | None -> ""
-    
-    let withPassword = withTimeStamp + match certToUse.PasswordFile with
-                                           | Some pass -> sprintf " /p \"%s\"" (ReadLine pass)
-                                           | None -> ""
-    
-                            
-    filesToSign
-    |> Seq.iter (fun fileToSign ->  
-        let withFileToSign = withPassword + sprintf " \"%s\"" fileToSign
-
-        let result =
-            ExecProcess (fun info ->
-                info.FileName <- signPath
-                info.Arguments <- withFileToSign) System.TimeSpan.MaxValue
-        if result <> 0 then failwithf "Error during sign call ")
-
-    traceEndTask "SignTool" "Successfully dual signed the specified assemblies"
-
-
-
-
 [<Obsolete>]
 let SignTool toolsPath certFile passFile filesToSign =
     let certToUse = {
@@ -114,4 +78,4 @@ let SignTool toolsPath certFile passFile filesToSign =
         TimeStampUrl = None
     }
 
-    Sign toolsPath signParams filesToSign
+    Sign toolsPath signParams filesToSign
\ No newline at end of file