bug 1017: Remove old code
authorMichael Tänzer <neo@nhng.de>
Tue, 16 Apr 2013 21:28:43 +0000 (23:28 +0200)
committerMichael Tänzer <neo@nhng.de>
Tue, 16 Apr 2013 21:28:43 +0000 (23:28 +0200)
Signed-off-by: Michael Tänzer <neo@nhng.de>
pages/account/6.php

index 879b2eb..b8efdce 100644 (file)
@@ -103,72 +103,3 @@ if (array_key_exists('format', $_REQUEST)) {
        showfooter();
        exit;
 }
-
-
-?>
-<!-- to be converted to JavaScript -->
-<h3><?=_("Installing your certificate")?></h3>
-
-<p><?=_("Hit the 'Install your Certificate' button below to install the certificate into MS IE 5.x and above.")?>
-<OBJECT classid="clsid:127698e4-e730-4e5c-a2b1-21490a70c8a1" codebase="/xenroll.cab#Version=5,131,3659,0" id="cec">
-<?=_("You must enable ActiveX for this to work.")?>
-</OBJECT>
-<FORM>
-<INPUT TYPE=BUTTON NAME="CertInst" VALUE="<?=_("Install Your Certificate")?>">
-</FORM>
-</P>
-
-<SCRIPT LANGUAGE=VBS>
-   Sub CertInst_OnClick
-      certchain  = _
-<?
-       $lines = explode("\n", $cert);
-       if(is_array($lines))
-       foreach($lines as $line)
-       {
-               $line = trim($line);
-               if($line != "-----END CERTIFICATE-----")
-                       echo "\"$line\" & _\n";
-               else {
-                       echo "\"$line\"\n";
-                       break;
-               }
-       }
-?>
-
-      On Error Resume Next
-
-      Dim obj
-      Set obj=CreateObject("X509Enrollment.CX509Enrollment")
-      If IsObject(obj) Then
-        obj.Initialize(1)
-        obj.InstallResponse 0,certchain,0,""
-        if err.number<>0 then
-          msgbox err.Description
-        else
-          msgbox "<?=_("Certificate installed successfully. Please don't forget to backup now")?>"
-        end if
-      else
-
-      cec.DeleteRequestCert = FALSE
-      err.clear
-
-      cec.WriteCertToCSP = TRUE
-      cec.acceptPKCS7(certchain)
-      if err.number <> 0 Then
-         cec.WriteCertToCSP = FALSE
-      end if
-      err.clear
-      cec.acceptPKCS7(certchain)
-      if err.number <> 0 then
-         errorMsg = "<?=_("Certificate installation failed!")?>" & chr(13) & chr(10) & _
-                        "(Error code " & err.number & ")"
-         msgRes   = MsgBox(errorMsg, 0, "<?=_("Certificate Installation Error")?>")
-      else
-         okMsg    = "<?=_("Personal Certificate Installed.")?>" & chr(13) & chr(10) & _
-                        "See Tools->Internet Options->Content->Certificates"
-         msgRes   = MsgBox(okMsg, 0, "<?=_("Certificate Installation Complete!")?>")
-      end if
-     End If
-   End Sub
-</SCRIPT>