[prev in list] [next in list] [prev in thread] [next in thread] 

List:       bricolage-devel
Subject:    [Bricolage-Devel] another feature
From:       Michael Robinton <root () bizsystems ! com>
Date:       2002-03-20 23:21:07
[Download RAW message or body]

A feature request :-)

As an administrator, I would like to force Bric transactions to use
SSL all the time. The added boolean configuration directive

ALWAYS_USE_SSL = on|off|yes|no|1|0|undefined

eliminates the SSL checkbox and forces SSL mode if SSL_ENABLE

diff against
comp/widgets/login/loggedout.html
	no prior changes in 1.2.3 dual port
diff
lib/Config.pm
	3 lines added, one line changed from dual port diff

Michael

["alwayssl.diff" (TEXT/PLAIN)]

--- /usr/src/perlmods/bricolage/bricolage-1.2.3/comp/widgets/login/loggedout.html	Sun \
                Mar 17 12:19:32 2002
+++ comp/widgets/login/loggedout.html	Wed Mar 20 15:08:01 2002
@@ -22,7 +22,7 @@
                   useTable => 0
 &></td>
 </tr>
-% if (SSL_ENABLE) {
+% if (SSL_ENABLE && ! ALWAYS_USE_SSL) {
 <tr>
 <td width=150 align=right><span class=label>Use SSL:</span></td>
 <td width=448><& '/widgets/profile/checkbox.mc',
@@ -34,7 +34,11 @@
 </tr>
 % }
 <tr>
+% if (SSL_ENABLE && ALWAYS_USE_SSL) {
+  <td>&nbsp;<input type=hidden name='login|ssl' value=1></td>
+% } else {
   <td>&nbsp;</td>
+% }
   <td><input type="image" src="/media/images/login.gif" border=0 vspace=5 name="<% \
"$widget|login_cb" %>" value="Login"></td>  </tr>
 </table>
--- lib/Bric/Config.pm~	Tue Mar 19 15:12:39 2002
+++ lib/Bric/Config.pm	Wed Mar 20 14:37:45 2002
@@ -73,6 +73,7 @@
                     LISTEN_PORT
 		    NAME_VHOST
 		    VHOST_SERVER_NAME
+                    ALWAYS_USE_SSL
                     SSL_ENABLE
                     SSLCertificateFile
                     SSLCertificateKeyFile
@@ -179,6 +180,7 @@
 				     PID_FILE
 				     SSL_ENABLE)],
 		    ssl       => [qw(SSL_ENABLE
+				     ALWAYS_USE_SSL
 				     SSL_PORT
 				     LISTEN_PORT)],
 		    conf      => [qw(SSL_ENABLE
@@ -246,7 +248,7 @@
 	}
 	# While these default to 0.
 	foreach (qw(PREVIEW_MASON FULL_SEARCH INCLUDE_XML_WRITER SSL_ENABLE
-                    DISABLE_NAV_LAYER))
+                    ALWAYS_USE_SSL DISABLE_NAV_LAYER))
 	{
 	    my $d = exists $config->{$_} ? lc($config->{$_}) : '0';
 	    $config->{$_} = $d eq 'on' || $d eq 'yes' || $d eq '1' ? 1 : 0;
@@ -281,6 +283,7 @@
     use constant SSLCertificateFile      => $config->{uc 'SSLCertificateFile'} || \
                '';
     use constant SSLCertificateKeyFile   => $config->{uc 'SSLCertificateKeyFile'} || \
'';  use constant SSL_PORT                => $config->{SSL_PORT} || 443;
+    use constant ALWAYS_USE_SSL		 => $config->{ALWAYS_USE_SSL};
 #    die "LISTEN_PORT directive must be set to 80 when SSL_ENABLE is on\n"
 #      if SSL_ENABLE && LISTEN_PORT != 80;
 


_______________________________________________
Bricolage-Devel mailing list
Bricolage-Devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/bricolage-devel

[prev in list] [next in list] [prev in thread] [next in thread]