more session related changes

lib/WebGUI/Session/Privilege.pm

@@ -0,0 +1,179 @@
+package WebGUI::Session::Privilege;
+
+=head1 LEGAL
+
+ -------------------------------------------------------------------
+  WebGUI is Copyright 2001-2005 Plain Black Corporation.
+ -------------------------------------------------------------------
+  Please read the legal notices (docs/legal.txt) and the license
+  (docs/license.txt) that came with this distribution before using
+  this software.
+ -------------------------------------------------------------------
+  http://www.plainblack.com                     info@plainblack.com
+ -------------------------------------------------------------------
+
+=cut
+
+use strict;
+use WebGUI::International;
+
+=head1 NAME
+
+Package WebGUI::Session::Privilege
+
+=head1 DESCRIPTION
+
+This package provides access to the WebGUI security system and security messages.
+
+=head1 SYNOPSIS
+
+
+
+ use WebGUI::Session::Privilege;
+
+ $privilege = $session->privilege;
+ $privilege = WebGUI::Session::Privilege->new($session);
+ 
+ $html = $privilege->adminOnly();
+ $html = $privilege->insufficient();
+ $html = $privilege->noAccess();
+ $html = $privilege->notMember();
+ $html = $privilege->vitalComponent();
+
+=head1 METHODS 
+
+These methods are available from this class:
+
+=cut
+
+#-------------------------------------------------------------------
+
+=head2 adminOnly ( )
+
+Returns a message stating that this functionality can only be used by administrators. This method also sets the HTTP header status to 401.
+
+=cut
+
+sub adminOnly {
+	my $self = shift;
+	$self->session->http->setStatus("401", "Admin Only");
+	my ($output, $sth, @data);
+        $output = '<h1>'.WebGUI::International::get(35).'</h1>';
+	$output .= WebGUI::International::get(36);
+	return $self->session->style->userStyle($output);
+}
+
+
+#-------------------------------------------------------------------
+
+=head2 insufficient ( )
+
+Returns a message stating that the user does not have the required privileges to perform the operation they requested. This method also sets the HTTP header status to 401. 
+
+=cut
+
+sub insufficient {
+	my $self = shift;
+	$self->session->http->setStatus("401", "Insufficient Privileges");
+	my ($output);
+	$output = '<h1>'.WebGUI::International::get(37).'</h1>';
+	$output .= WebGUI::International::get(38);
+	$output .= '<p>';
+	return $self->session->style->userStyle($output);
+}
+
+
+#-------------------------------------------------------------------
+
+=head2 new ( session )
+
+Constructor.
+
+=head3 session
+
+A reference to the current session.
+
+=cut
+
+sub new {
+	my $class = shift;
+	my $session = shift;
+	bless {_session=>$session}, $class;
+}
+
+
+#-------------------------------------------------------------------
+
+=head2 noAccess ( )
+
+Returns a message stating that the user does not have the privileges necessary to access this page. This method also sets the HTTP header status to 401.
+
+=cut
+
+sub noAccess {
+	my $self = shift;
+	$self->session->http->setStatus("401", "No Access");
+   	if ($self->session->user->profileField("userId") eq '1') {
+      		return WebGUI::Operation::Auth::www_auth("init");
+   	} else {
+      		my $output = '<h1>'.WebGUI::International::get(37).'</h1>';
+      		$output .= WebGUI::International::get(39);
+      		$output .= '<p>';
+		return $self->session->style->userStyle($output);
+   	}
+}
+
+#-------------------------------------------------------------------
+
+=head2 notMember ( )
+
+Returns a message stating that the user they requested information about is no longer active on this server. This method also sets the HTTP header status to 400.
+
+=cut
+
+sub notMember {
+	my $self = shift;
+	$self->session->http->setStatus("400", "Not A Member");
+	my ($output);
+	$output = '<h1>'.WebGUI::International::get(345).'</h1>';
+	$output .= WebGUI::International::get(346);
+	$output .= '<p>';
+	return $self->session->style->userStyle($output);
+}
+
+#-------------------------------------------------------------------
+
+=head2 session 
+
+Returns a reference to the current session.
+
+=cut
+
+sub session {
+	my $self = shift;
+	return $self->{_session};
+}
+
+
+#-------------------------------------------------------------------
+
+=head2 vitalComponent ( )
+
+Returns a message stating that the user made a request to delete something that should never delete. This method also sets the HTTP header status to 403. 
+
+=cut
+
+sub vitalComponent {
+	my $self = shift;
+	$self->session->http->setStatus("403", "Vital Component");
+	my ($output);
+        $output = '<h1>'.WebGUI::International::get(40).'</h1>';
+	$output .= WebGUI::International::get(41);
+	$output .= '<p>';
+	return $self->session->style->userStyle($output);
+}
+
+
+
+1;
+

lib/WebGUI/Session/Style.pm

@@ -331,5 +331,26 @@ sub useEmptyStyle {
 	$self->{_useEmptyStyle} = shift;
 }
 
+#-------------------------------------------------------------------
+
+=head2 userStyle ( content )
+
+Wrapper's the content in the user style defined in the settings.
+
+=head3 content
+
+The content to be wrappered.
+
+=cut
+
+sub userStyle {
+	my $self = shift;
+        my $output = shift;
+        if ($output) {
+                return $self->process($output,$self->session->setting->get("userFunctionStyleId"));
+        } else {
+                return undef;
+        }       
+}  
 
 1;