cgi-bin/sedm/target.pl

   1 #!/usr/bin/perl
   2
   3 =head1 NAME
   4
   5   target.pl
   6   Code to show the web_page for target information using MASON.
   7
   8 =cut
   9
  10 =head1 SYNOPSIS
  11
  12
  13 =head1 DESCRIPTION
  14
  15   This is the script to show the web_page using MASON
  16
  17 =cut
  18
  19 =head1 AUTHORS
  20
  21  Aureliano Bombarely Gomez
  22  (ab782@cornell.edu)
  23
  24 =cut
  25
  26
  27 use strict;
  28 use warnings;
  29 use CXGN::Page;
  30
  31 ## Use of CXGN::Page to take the arguments from the URL
  32
  33 my $page = CXGN::Page->new();
  34 my %args = $page->get_all_encoded_arguments();
  35
  36 ## It get the hostname to create the right links in the MASON pages
  37
  38 my $hostname = $page->get_hostname();
  39
  40 my $m = CXGN::MasonFactory->new;
  41
  42 ## There are two ways to access to the page, using id=int or
  43 ## name=something. If use other combinations give an error message
  44
  45 if (exists $args{'id'} && defined $args{'id'} && $args{'id'} =~ m/^\d+$/) {
  46     $m->exec( '/sedm/target_detail.mas',
  47               hostname => $hostname,
  48               id => $args{'id'},
  49             );
  50 } elsif (exists $args{'name'} && defined $args{'name'}) {
  51     $m->exec( '/sedm/target_detail.mas',
  52               hostname => $hostname,
  53               name => $args{'name'},
  54             );
  55 } else {
  56     $m->exec( '/sedm/sedm_page_error.mas',
  57               hostname => $hostname,
  58               object => 'target',
  59             );
  60 }