[Bio] / PRAST / WebPage / Home.pm Repository:
ViewVC logotype

View of /PRAST/WebPage/Home.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1.1.1 - (download) (as text) (annotate) (vendor branch)
Wed Mar 4 15:37:38 2009 UTC (10 years, 8 months ago) by jared
Branch: Initial, MAIN
CVS Tags: start, HEAD
Changes since 1.1: +0 -0 lines
Initial version

package PRAST::WebPage::Home;

use strict;
use warnings;

use base qw( WebPage );
use WebConfig;

1;

sub init {
  my $self = shift;

  $self->title('Plasmid-RAST Annotation Server');
  $self->require_css(CSS_PATH.'rast_home.css');

  $self->application->register_component('Login', 'Login');
  $self->application->component('Login')->login_target_page('Jobs');
  
}

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

  my $content = "<div id='home'>";
  
  $content .= "<p>Plasmid-RAST (Rapid Annotation using Subsystem Technology) is a fully-automated service for annotating bacterial and archaeal genomes. It provides high quality genome annotations for these genomes across the whole phylogenetic tree.</p>";

  # if logged in, add some links, else login box
  unless ($self->application->session->user) {
    $content .= $self->application->component('Login')->output();
    $content .= "<br>&raquo; <a href='?page=Register'>Register a new account</a>";
    $content .= "<br>&raquo; <a href='?page=RequestNewPassword'>Forgot your password?</a>";
  }
  else {
    $content .= "<p><strong>You are already logged in.</strong></p>";
    $content .= "<p> &raquo <a href='?page=Jobs'>Go to the Jobs Overview</a></p>";
    $content .= "<p> &raquo <a href='?page=Upload'>Upload a new job</a></p>";
    $content .= "<p> &raquo <a href='?page=Logout'>Logout</a></p>";
  }

  $content .= '</div>';
  return $content;
}


sub supported_rights {
  return [ [ 'login', '*', '*' ] ];
}

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3