impl. (soup_set_ssl_ca_dir): impl. (soup_set_ssl_cert_files): impl.

2001-08-26  Alex Graveley  <alex@ximian.com>

	* src/soup-core/soup-misc.c (soup_set_ssl_ca_file): impl.
	(soup_set_ssl_ca_dir): impl.
	(soup_set_ssl_cert_files): impl.

	* src/soup-core/soup-openssl.c (soup_openssl_init): Load cert
	authority files found in HTTPS_CA_DIR and HTTPS_CA_FILE.
	(soup_openssl_get_iochannel): Load certificate found in
	HTTPS_CERT_FILE and private key from file in
	HTTPS_KEY_FILE. Client certificates thanks to Scott Hutton
	(shutton@pobox.com).

1 files changed, 41 insertions, 0 deletions

diff --git a/libsoup/soup-misc.c b/libsoup/soup-misc.c
index 55951bcc..ae6eca52 100644
--- a/libsoup/soup-misc.c
+++ b/libsoup/soup-misc.c
@@ -448,3 +448,44 @@ soup_shutdown ()
 {
 	soup_queue_shutdown ();
 }
+
+/**
+ * soup_set_ca_file:
+ * @ca_file: the path to a CA file
+ *
+ * Specify a file containing CA certificates to be used to verify
+ * peers.
+ */
+void
+soup_set_ssl_ca_file (gchar *ca_file)
+{
+	putenv (g_strdup_printf ("HTTPS_CA_FILE=%s", ca_file));
+}
+
+/**
+ * soup_set_ca_dir
+ * @ca_dir: the directory containing CA certificate files
+ *
+ * Specify a directory containing CA certificates to be used to verify
+ * peers.
+ */
+void
+soup_set_ssl_ca_dir (gchar *ca_dir)
+{
+	putenv (g_strdup_printf ("HTTPS_CA_DIR=%s", ca_dir));
+}
+
+/**
+ * soup_set_ssl_cert_files
+ * @cert_file: the file containing the SSL client certificate
+ * @key_file: the file containing the SSL private key
+ *
+ * Specify a SSL client certificate to be used for client
+ * authentication with the SOAP server
+ */
+void
+soup_set_ssl_cert_files (gchar *cert_file, gchar *key_file)
+{
+	putenv (g_strdup_printf ("HTTPS_CERT_FILE=%s", cert_file));
+	putenv (g_strdup_printf ("HTTPS_KEY_FILE=%s", key_file));
+}