summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMichael Tänzer <neo@nhng.de>2013-04-16 23:28:43 +0200
committerMichael Tänzer <neo@nhng.de>2013-04-16 23:28:43 +0200
commiteac9744c793d06bc63269952e789a6a30de2e30d (patch)
tree6bcfda7976974651b85ce63afad0f54ab4ed398d
parenta3517b52939d2ed4d77cd6594f8b199d6c25e172 (diff)
downloadcacert-devel-eac9744c793d06bc63269952e789a6a30de2e30d.tar.gz
cacert-devel-eac9744c793d06bc63269952e789a6a30de2e30d.tar.xz
cacert-devel-eac9744c793d06bc63269952e789a6a30de2e30d.zip
bug 1017: Remove old code
Signed-off-by: Michael Tänzer <neo@nhng.de>
-rw-r--r--pages/account/6.php69
1 files changed, 0 insertions, 69 deletions
diff --git a/pages/account/6.php b/pages/account/6.php
index 879b2eb..b8efdce 100644
--- a/pages/account/6.php
+++ b/pages/account/6.php
@@ -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>