lots of DESTROYs

lib/WebGUI/Session.pm

@@ -361,8 +361,8 @@ sub open {
 	my $config = WebGUI::Config->new($webguiRoot,$configFile);
 	my $self = {_sessionId=>$sessionId, _config=>$config, _server=>$server};
 	bless $self , $class;
-	$self->{_request} = Apache2::Request->new($request, POST_MAX => 1024 * $self->setting->get("maxAttachmentSize")) if (defined $request);
-	return $self;
+	$self->{_request} = Apache2::Request->new($request, POST_MAX => 1024 * 100) if (defined $request);
+	return $self;  # $self->setting->get("maxAttachmentSize")
 }
 
 #-------------------------------------------------------------------

lib/WebGUI/Session/DateTime.pm

@@ -168,6 +168,19 @@ sub dayStartEnd {
         return ($dt->epoch, $end->epoch);
 }
 
+#-------------------------------------------------------------------
+
+=head DESTROY ( )
+
+Deconstructor.
+
+=cut
+
+sub DESTROY {
+        my $self = shift;
+        undef $self;
+}
+
 
 #-------------------------------------------------------------------
 

lib/WebGUI/Session/Env.pm

@@ -36,6 +36,19 @@ These methods are available from this package:
 
 =cut
 
+#-------------------------------------------------------------------
+
+=head DESTROY ( )
+
+Deconstructor.
+
+=cut
+
+sub DESTROY {
+        my $self = shift;
+        undef $self;
+}
+
 
 
 #-------------------------------------------------------------------

lib/WebGUI/Session/ErrorHandler.pm

@@ -19,8 +19,6 @@ use strict;
 use Log::Log4perl;
 use Apache2::RequestUtil;
 
-$Log::Log4perl::caller_depth++;
-
 =head1 NAME 
 
 Package WebGUI::Session::ErrorHandler
@@ -144,6 +142,22 @@ sub debug {
 }
 
 
+#-------------------------------------------------------------------
+
+=head DESTROY ( )
+
+Deconstructor.
+
+=cut
+	
+sub DESTROY {
+	my $self = shift;
+	$Log::Log4perl::caller_depth++;
+	undef $self;
+}
+
+
+
 #-------------------------------------------------------------------
 
 =head2 error ( message )
@@ -304,6 +318,7 @@ sub new {
 	my $class = shift;
 	my $session = shift;
 	unless (Log::Log4perl->initialized()) {
+		$Log::Log4perl::caller_depth++;
  		Log::Log4perl->init( $session->config->getWebguiRoot."/etc/log.conf" );   
 	}
 	my $logger = Log::Log4perl->get_logger($session->config->getFilename);

lib/WebGUI/Session/Form.pm

@@ -69,6 +69,19 @@ sub AUTOLOAD {
         return $class->new($self->session, {name=>$fieldName})->getValueFromPost;
 }
 
+#-------------------------------------------------------------------
+
+=head DESTROY ( )
+
+Deconstructor.
+
+=cut
+
+sub DESTROY {
+        my $self = shift;
+        undef $self;
+}
+
 
 
 #-------------------------------------------------------------------

lib/WebGUI/Session/Http.pm

@@ -51,6 +51,19 @@ These methods are available from this package:
 
 =cut
 
+#-------------------------------------------------------------------
+
+=head DESTROY ( )
+
+Deconstructor.
+
+=cut
+
+sub DESTROY {
+        my $self = shift;
+        undef $self;
+}
+
 
 
 #-------------------------------------------------------------------

lib/WebGUI/Session/Icon.pm

@@ -125,6 +125,20 @@ sub cut {
         return $output;
 }
 
+#-------------------------------------------------------------------
+
+=head DESTROY ( )
+
+Deconstructor.
+
+=cut
+
+sub DESTROY {
+        my $self = shift;
+        undef $self;
+}
+
+
 #-------------------------------------------------------------------
 
 =head2 delete ( urlParameters [, pageURL, confirmText ] )

lib/WebGUI/Session/Id.pm

@@ -43,6 +43,20 @@ These methods are available from this class:
 
 =cut
 
+#-------------------------------------------------------------------
+
+=head DESTROY ( )
+
+Deconstructor.
+
+=cut
+
+sub DESTROY {
+        my $self = shift;
+        undef $self;
+}
+
+
 #-------------------------------------------------------------------
 
 =head2 generate

lib/WebGUI/Session/Os.pm

@@ -37,6 +37,20 @@ These methods are available from this package:
 =cut
 
 
+#-------------------------------------------------------------------
+
+=head DESTROY ( )
+
+Deconstructor.
+
+=cut
+
+sub DESTROY {
+        my $self = shift;
+        undef $self;
+}
+
+
 
 #-------------------------------------------------------------------
 

lib/WebGUI/Session/Privilege.pm

@@ -65,6 +65,20 @@ sub adminOnly {
 }
 
 
+#-------------------------------------------------------------------
+
+=head DESTROY ( )
+
+Deconstructor.
+
+=cut
+
+sub DESTROY {
+        my $self = shift;
+        undef $self;
+}
+
+
 #-------------------------------------------------------------------
 
 =head2 insufficient ( )

lib/WebGUI/Session/Scratch.pm

@@ -101,6 +101,20 @@ sub deleteName {
 }
 
 
+#-------------------------------------------------------------------
+
+=head DESTROY ( )
+
+Deconstructor.
+
+=cut
+
+sub DESTROY {
+        my $self = shift;
+        undef $self;
+}
+
+
 #-------------------------------------------------------------------
 
 =head2 get( varName ) 

lib/WebGUI/Session/Setting.pm

@@ -70,6 +70,20 @@ sub add {
 	$self->session->db->write("insert into settings (name,value) values (".quote($name).",".quote($value).")");
 }
 
+#-------------------------------------------------------------------
+
+=head DESTROY ( )
+
+Deconstructor.
+
+=cut
+
+sub DESTROY {
+        my $self = shift;
+        undef $self;
+}
+
+
 
 #-------------------------------------------------------------------
 

lib/WebGUI/Session/Stow.pm

@@ -77,6 +77,20 @@ sub deleteAll {
 }
 
 
+#-------------------------------------------------------------------
+
+=head DESTROY ( )
+
+Deconstructor.
+
+=cut
+
+sub DESTROY {
+        my $self = shift;
+        undef $self;
+}
+
+
 #-------------------------------------------------------------------
 
 =head2 get( varName ) 

lib/WebGUI/Session/Url.pm

@@ -88,6 +88,20 @@ sub append {
 	return $url;
 }
 
+#-------------------------------------------------------------------
+
+=head DESTROY ( )
+
+Deconstructor.
+
+=cut
+
+sub DESTROY {
+        my $self = shift;
+        undef $self;
+}
+
+
 #-------------------------------------------------------------------
 
 =head2 escape ( string )

lib/WebGUI/Session/Var.pm

@@ -46,6 +46,20 @@ These methods are available from this package:
 =cut
 
 
+#-------------------------------------------------------------------
+
+=head DESTROY ( )
+
+Deconstructor.
+
+=cut
+
+sub DESTROY {
+        my $self = shift;
+        undef $self;
+}
+
+
 #-------------------------------------------------------------------
         
 =head2 end ( )