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

Annotation of /PRAST/WebPage/Home.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1.1.1 - (view) (download) (as text)

1 : jared 1.1 package PRAST::WebPage::Home;
2 :    
3 :     use strict;
4 :     use warnings;
5 :    
6 :     use base qw( WebPage );
7 :     use WebConfig;
8 :    
9 :     1;
10 :    
11 :     sub init {
12 :     my $self = shift;
13 :    
14 :     $self->title('Plasmid-RAST Annotation Server');
15 :     $self->require_css(CSS_PATH.'rast_home.css');
16 :    
17 :     $self->application->register_component('Login', 'Login');
18 :     $self->application->component('Login')->login_target_page('Jobs');
19 :    
20 :     }
21 :    
22 :     sub output {
23 :     my ($self) = @_;
24 :    
25 :     my $content = "<div id='home'>";
26 :    
27 :     $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>";
28 :    
29 :     # if logged in, add some links, else login box
30 :     unless ($self->application->session->user) {
31 :     $content .= $self->application->component('Login')->output();
32 :     $content .= "<br>&raquo; <a href='?page=Register'>Register a new account</a>";
33 :     $content .= "<br>&raquo; <a href='?page=RequestNewPassword'>Forgot your password?</a>";
34 :     }
35 :     else {
36 :     $content .= "<p><strong>You are already logged in.</strong></p>";
37 :     $content .= "<p> &raquo <a href='?page=Jobs'>Go to the Jobs Overview</a></p>";
38 :     $content .= "<p> &raquo <a href='?page=Upload'>Upload a new job</a></p>";
39 :     $content .= "<p> &raquo <a href='?page=Logout'>Logout</a></p>";
40 :     }
41 :    
42 :     $content .= '</div>';
43 :     return $content;
44 :     }
45 :    
46 :    
47 :     sub supported_rights {
48 :     return [ [ 'login', '*', '*' ] ];
49 :     }

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3