[Bio] / WebApplication / WebPage / Logout.pm Repository:
ViewVC logotype

View of /WebApplication/WebPage/Logout.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.3 - (download) (as text) (annotate)
Fri Oct 23 20:04:03 2009 UTC (10 years, 3 months ago) by jared
Branch: MAIN
CVS Tags: mgrast_dev_08112011, mgrast_dev_08022011, rast_rel_2014_0912, mgrast_dev_03052011, mobedac_release_05302012, mgrast_dev_05262011, mgrast_dev_04082011, rast_rel_2010_0928, mgrast_version_3_2, mgrast_dev_12152011, mgrast_dev_06072011, rast_rel_2010_0526, rast_rel_2014_0729, mgrast_dev_02212011, rast_rel_2010_1206, mgrast_release_3_0, mgrast_dev_03252011, rast_rel_2010_0118, rast_rel_2011_0119, mgrast_release_3_0_4, mgrast_release_3_0_2, mgrast_release_3_0_3, mgrast_release_3_0_1, mgrast_dev_03312011, mgrast_release_3_1_2, mgrast_release_3_1_1, mgrast_release_3_1_0, mgrast_dev_04132011, mgrast_dev_04012011, rast_rel_2010_0827, myrast_33, rast_rel_2011_0928, mgrast_dev_04052011, mgrast_dev_02222011, mgrast_dev_10262011, HEAD
Changes since 1.2: +2 -2 lines
*** empty log message ***

package WebPage::Logout;

# Logout - webpage to logout authenticated users

# $Id: Logout.pm,v 1.3 2009/10/23 20:04:03 jared Exp $

use strict;
use warnings;

use base qw( WebPage );

1;


=pod

=head1 NAME

Logout - logout of authenticated users

=head1 DESCRIPTION

WebPage to provide a logout action

=head1 METHODS

=over 4

=item * B<init> ()

Initialise the page

=cut

sub init {
  my $self = shift;

  $self->omit_from_session(1);

  my $app = $self->application;

  $app->cgi->param('page', $app->default);

  $app->{session} = $app->dbmaster->UserSession->create($app->cgi, 1);

  $app->add_message('info', 'You have been logged out.', 15);

  $app->redirect($app->default);

}


=item * B<output> ()

Returns the html output of the Logout page

=cut

sub output {
  my ($self) = @_;

  # redirect to default in init()
  return '';

}


MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3