plug-ins are now dynamically loaded

docs/changelog/6.x.x.txt

@@ -3,6 +3,10 @@
  - Added a --history option to upgrade.pl that displays the upgrade history
    for each site.
  - Fixed a typo in User.pm
+ - All plugins are now dynamically loaded. This provides a performance gain of
+   over 100% in CGI mode, 10% in mod_perl mode, and less memory usage in
+   mod_perl mode.
+
 
 
 6.0.3

docs/gotcha.txt

@@ -8,6 +8,11 @@ versions. Be sure to heed the warnings contained herein as they will
 save you many hours of grief.
 
 
+6.1.0
+--------------------------------------------------------------------
+ * See docs/migration.txt for changes in plug-in coding.
+
+
 6.0.2
 --------------------------------------------------------------------
  * You need to add all of your site aliases to the sitename variable

docs/migration.txt

@@ -103,5 +103,13 @@ way, including the constructor. We removed depricated parameters from the method
 which will cause pagination not to function in items that have not been updated. 
 
 
+5.4 Dynamic Plug-in Loading
+
+In 6.1 plug-ins (Wobjects, Macros, and Auth) are all dynamically loaded. They
+used to be statically loaded at session open time. If you are writing
+something that uses a macro, wobject, or auth module outside of the usual
+mechanisms that call those plug-ins, then you'll need to write a piece of code
+to load the plug-in at use time.
+
 
 

lib/WebGUI.pm

@@ -94,6 +94,9 @@ sub _processFunctions {
                                 } else {
                                         if (WebGUI::Privilege::canViewPage()) {
                                                 $cmd = "WebGUI::Wobject::".${$wobject}{namespace};
+						my $load = "use ".$cmd; # gotta load the wobject before you can use it
+						eval($load);
+						WebGUI::ErrorHandler::warn("Wobject failed to compile: $cmd.".$@) if($@);
                                                 $w = eval{$cmd->new($wobject)};
                                                 WebGUI::ErrorHandler::fatalError("Couldn't instanciate wobject: ${$wobject}{namespace}. Root Cause: ".$@) if($@);
                 				if ($session{form}{func} =~ /^[A-Za-z]+$/) {

lib/WebGUI/Macro.pm

@@ -167,7 +167,11 @@ sub process {
       			$params = &process($params); # recursive process params
 		}
 		if ($session{config}{macros}{$searchString} ne "") {
-      			my $cmd = "WebGUI::Macro::".$session{config}{macros}{$searchString}."::process";
+      			my $cmd = "WebGUI::Macro::".$session{config}{macros}{$searchString};
+			my $load = "use ".$cmd;
+			eval($load);
+			WebGUI::ErrorHandler::warn("Macro failed to compile: $cmd.".$@) if($@);
+      			$cmd = $cmd."::process";
 			my $result = eval{&$cmd($params)};
 			if ($@) {
 				WebGUI::ErrorHandler::warn("Processing failed on macro: $macro: ".$@);

lib/WebGUI/Macro/AdminBar.pm

@@ -52,6 +52,9 @@ sub process {
 	$var{'contentTypes.label'} = WebGUI::International::get(1083);
 	foreach my $namespace (@{$session{config}{wobjects}}) {
 		my $cmd = "WebGUI::Wobject::".$namespace;	
+		my $load = "use ".$cmd;
+		eval($load);
+		WebGUI::ErrorHandler::warn("Wobject failed to compile: $cmd.".$@) if($@);
 		my $w = eval{$cmd->new({namespace=>$namespace,wobjectId=>"new"})};
 		if ($@) {
 			WebGUI::ErrorHandler::warn("Could not use wobject $namespace because: ".$@);

lib/WebGUI/Operation/Auth.pm

@@ -41,6 +41,9 @@ sub getInstance {
 	my $userId = $_[1];
 	#Create Auth Object
 	my $cmd = "WebGUI::Auth::".$authMethod;
+	my $load = "use ".$cmd;
+	WebGUI::ErrorHandler::fatalError("Authentication module failed to compile: $cmd.".$@) if($@);
+	eval($load);
     my $auth = eval{$cmd->new($authMethod,$userId)};
     WebGUI::ErrorHandler::fatalError("Couldn't instanciate authentication module: $authMethod. Root cause: ".$@) if($@);
 	return $auth;
@@ -100,4 +103,4 @@ sub www_recoverPassword {
    return www_auth("recoverPassword");
 }
  
-1;
+1;

lib/WebGUI/Operation/Package.pm

@@ -29,6 +29,9 @@ sub _duplicateWobjects {
 	my $sth = WebGUI::SQL->read("select * from wobject where pageId=$_[0] order by sequenceNumber");
 	while (my $wobject = $sth->hashRef) {
 		my $cmd = "WebGUI::Wobject::".${$wobject}{namespace};
+		my $load = "use ".$cmd;
+		eval($load);
+		WebGUI::ErrorHandler::warn("Wobject failed to compile: $cmd.".$@) if($@);
 		my $w = $cmd->new($wobject);
 		$w->duplicate($_[1]);
 	}

lib/WebGUI/Operation/Trash.pm

@@ -42,6 +42,9 @@ sub _purgeUserTrash {
                         where wobjectId=".$base->{wobjectId});
                 %properties = (%{$base}, %{$extended});
                 $cmd = "WebGUI::Wobject::".$properties{namespace};
+		my $load = "use ".$cmd;
+		eval($load);
+		WebGUI::ErrorHandler::warn("Wobject failed to compile: $cmd.".$@) if($@);
                 $w = $cmd->new(\%properties);
                 $w->purge;
         }
@@ -70,6 +73,9 @@ sub _purgeWobject {
 			where wobjectId=".$base->{wobjectId});
 		%properties = (%{$base}, %{$extended});
         	$cmd = "WebGUI::Wobject::".$properties{namespace};
+		my $load = "use ".$cmd;
+		eval($load);
+		WebGUI::ErrorHandler::warn("Wobject failed to compile: $cmd.".$@) if($@);
                 $w = $cmd->new(\%properties);
 		$w->purge;
         }
@@ -86,6 +92,9 @@ sub _purgeWobjects {
 			where wobjectId=".$base->{wobjectId});
 		%properties = (%{$base}, %{$extended});
         	$cmd = "WebGUI::Wobject::".$properties{namespace};
+		my $load = "use ".$cmd;
+		eval($load);
+		WebGUI::ErrorHandler::warn("Wobject failed to compile: $cmd.".$@) if($@);
                 $w = $cmd->new(\%properties);
 		$w->purge;
         }

lib/WebGUI/Page.pm

@@ -363,6 +363,9 @@ sub generate {
         		}
       		}
                 my $cmd = "WebGUI::Wobject::".${$wobject}{namespace};
+		my $load = 'use '.$cmd;
+		eval($load);
+		WebGUI::ErrorHandler::warn("Wobject failed to compile: $cmd.".$@) if($@);
                 my $w = eval{$cmd->new($wobject)};
                 WebGUI::ErrorHandler::fatalError("Couldn't instanciate wobject: ${$wobject}{namespace}. Root cause: ".$@) if($@);
 		push(@{$var{'position'.$wobject->{templatePosition}.'_loop'}},{

lib/WebGUI/Session.pm

@@ -169,37 +169,6 @@ sub _time {
 }
 
 
-#-------------------------------------------------------------------
-sub _loadAuthentication {
-	foreach my $namespace (@{$session{config}{authMethods}}) {
-		my $cmd = "use WebGUI::Auth::".$namespace;
-		eval($cmd);
-		if ($@) {
-			WebGUI::ErrorHandler::warn("Authentication module failed to compile: $namespace. ".$@);
-		}
-	}
-}
-
-#-------------------------------------------------------------------
-sub _loadMacros {
-	foreach my $key (keys %{$session{config}{macros}}) {
-		my $cmd = "use WebGUI::Macro::".$session{config}{macros}{$key};
-		eval($cmd);
-		WebGUI::ErrorHandler::fatalError("Macro failed to compile: $key.".$@) if($@);
-	}
-}
-
-#-------------------------------------------------------------------
-sub _loadWobjects {
-	foreach my $namespace (@{$session{config}{wobjects}}) {
-		my $cmd = "use WebGUI::Wobject::".$namespace;
-		eval($cmd);
-		if ($@) {
-			WebGUI::ErrorHandler::warn("Wobject failed to compile: $namespace. ".$@);
-		}
-	}
-}
-
 #-------------------------------------------------------------------
 # This routine returns an unique session Id.
 sub _uniqueSessionId {
@@ -467,9 +436,6 @@ sub open {
 	$session{language} = WebGUI::SQL->quickHashRef("select * from language where languageId=$session{user}{language}");
 	###----------------------------
 	### loading plugins
-	_loadWobjects();
-	_loadMacros();
-	_loadAuthentication();  
 }
 
 #-------------------------------------------------------------------