RFE [ 806332 ] Force SSL

lib/WebGUI/Navigation.pm

@@ -218,7 +218,7 @@ in the class and returns HTML.
 sub build {
 	my $self = shift;
 	my @interestingPageProperties = ('pageId', 'parentId', 'title', 'ownerId', 'urlizedTitle',
-			'synopsis', 'newWindow', 'menuTitle');
+			'synopsis', 'newWindow', 'menuTitle', 'encryptLogin');
 	my $var = {'page_loop' => []};
 	my $p = $self->_getStartPageObject();
 	my $method = $self->_methods()->{$self->{_method}}{method};
@@ -251,6 +251,9 @@ sub build {
 
 				# Initial page info
 				$pageData->{"page.url"} = WebGUI::URL::gateway($page->{'urlizedTitle'});
+			        if ($page->{'encryptPage'}) {
+					$pageData->{"page.url"} =~ s/http:/https:/;
+				}
 				$pageData->{"page.absDepth"} = $page->{'depth'} + 1;
 				$pageData->{"page.relDepth"} = $pageData->{"page.absDepth"} - $startPageDepth;
 				$pageData->{"page.isCurrent"} = ($page->{'pageId'} == $session{page}{pageId});

lib/WebGUI/Operation/Package.pm

@@ -77,6 +77,7 @@ sub _recursePageTree {
 			userDefined5,
 			hideFromNavigation,
 			newWindow,
+			encryptPage,
 			cacheTimeout,
 			cacheTimeoutVisitor,
 			printableStyleId,
@@ -106,6 +107,7 @@ sub _recursePageTree {
 			".quote($newParent{userDefined5}).",
 			$package{hideFromNavigation},
 			$package{newWindow},
+			$package{encryptPage},
 			$package{cacheTimeout},
 			$package{cacheTimeoutVisitor},
 			".quote($package{printableStyleId}).",

lib/WebGUI/Operation/Page.pm

@@ -346,6 +346,7 @@ sub www_editPage {
 			$page{ownerId} = $session{user}{userId};
 			$page{hideFromNavigation} = 0;
                         $page{newWindow} = 0;
+                        $page{encryptPage} = 0;
                         $page{redirectURL} = "";
 		} else {
 			%page = %{$session{page}};
@@ -385,6 +386,12 @@ sub www_editPage {
 			-label=>WebGUI::International::get(940),
 			-uiLevel=>6
 			);
+		$f->getTab("properties")->yesNo(
+                        -name=>"encryptPage",
+                        -value=>$page{encryptPage},
+                        -label=>WebGUI::International::get('encrypt page'),
+                        -uiLevel=>6
+                        );
                 $f->getTab("properties")->text(
 			-name=>"urlizedTitle",
 			-label=>WebGUI::International::get(104),
@@ -582,6 +589,7 @@ sub www_editPageSave {
 		groupIdView		=> $session{form}{groupIdView}, 
 		groupIdEdit		=> $session{form}{groupIdEdit}, 
 		newWindow		=> $session{form}{newWindow},
+		encryptPage		=> $session{form}{encryptPage},
 		wobjectPrivileges	=> $session{form}{wobjectPrivileges},
 		hideFromNavigation	=> $session{form}{hideFromNavigation},
 		startDate		=> WebGUI::FormProcessor::dateTime("startDate"),

lib/WebGUI/i18n/English/WebGUI.pm

@@ -7253,8 +7253,11 @@ config file.</p>
                 lastUpdated =>1092748557,
                 context => q|option for Rich Editor in profile|
         },
-
-
+	'encrypt page' => {
+                message => q|Encrypt page?|,
+                lastUpdated =>1092748557,
+                context => q|page property|
+        },
 };
 
 1;