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

View of /WebApplication/WebPage/Maintenance.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Tue Aug 7 16:03:52 2007 UTC (12 years, 11 months ago) by paarmann
Branch: MAIN
CVS Tags: mgrast_dev_08112011, rast_rel_2009_05_18, mgrast_dev_08022011, rast_rel_2014_0912, rast_rel_2008_06_18, mgrast_dev_03052011, mobedac_release_05302012, mgrast_dev_05262011, rast_rel_2008_12_18, mgrast_dev_04082011, rast_rel_2008_07_21, rast_rel_2010_0928, rast_2008_0924, mgrast_version_3_2, mgrast_dev_12152011, rast_rel_2008_04_23, rast_rel_2008_06_16, mgrast_dev_06072011, rast_rel_2008_09_30, rast_rel_2009_0925, 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, mgrast_rel_2008_0924, mgrast_rel_2008_1110_v2, rast_rel_2009_02_05, rast_rel_2011_0119, mgrast_rel_2008_0625, 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, rast_rel_2008_10_09, mgrast_dev_04012011, rast_release_2008_09_29, mgrast_rel_2008_0806, mgrast_rel_2008_0923, mgrast_rel_2008_0919, rast_rel_2009_07_09, rast_rel_2010_0827, mgrast_rel_2008_1110, myrast_33, rast_rel_2011_0928, rast_rel_2008_09_29, mgrast_rel_2008_0917, rast_rel_2008_10_29, mgrast_dev_04052011, mgrast_dev_02222011, rast_rel_2009_03_26, mgrast_dev_10262011, rast_rel_2008_11_24, rast_rel_2008_08_07, HEAD
maintenance page to disable a webapplication

package WebPage::Maintenance;

# Maintenance - display maintenance page only for a WebApplication

# $Id: Maintenance.pm,v 1.1 2007/08/07 16:03:52 paarmann Exp $

use strict;
use warnings;

use base qw( WebPage );

1;

=pod

=head1 NAME

Maintenance - display maintenance page only for a WebApplication

=head1 DESCRIPTION

If the html directory of the WebApplication contains a file called I<disabled>, 
the WebApplication will load this page instead. If I<disabled> contains any text (or html text) this will be shown, otherwise a default maintenance message.

This allows the quick and immediate shutdown of a WebApplication.

=head1 METHODS

=over 4

=item * B<init> ()

Initialise the page

=cut

sub init {
  my $self = shift;
  $self->title('Site closed for maintenance');
}

=pod

=item * B<output> ()

Returns the html output of the Login page.

=cut

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

  my ($flag, $msg) = $self->application->check_for_maintenance(1);

  unless ($flag) {
    $self->application->error("Invalid call of the maintenance page.");
  }

  my $html = "<h1>Site is temporarily closed for maintenance.</h1>";
  
  if ($msg) {
    $html .= $msg;
  }
  else {
    $html .= "<p>We are performing a necessary maintenance that does require this site to be brought down temporarily. We thank you for your patience and understanding and apologize for any interruption this may cause in your use of this service.</p>";
  }

  return $html;
}

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3