[Bio] / FigWebServices / serv_index.cgi Repository:
ViewVC logotype

View of /FigWebServices/serv_index.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (download) (annotate)
Wed Apr 11 20:35:29 2012 UTC (7 years, 7 months ago) by overbeek
Branch: MAIN
CVS Tags: rast_rel_2014_0729, mgrast_version_3_2, rast_rel_2014_0912, HEAD
Changes since 1.1: +20 -2 lines
mods suggested by Bob

#!/usr/bin/env/perl -w
use SAPserver;
use ServIndex;

#
# This file is part of an application created with create-new-page.
# The implementation module is FigKernelPackages/ServIndex.pm.
# The SeedViewer page module is SeedViewer/WebPage/SVServIndex.pm.
# The CGI script is FigWebServices/serv_index.cgi.
#
# The SeedViewer url is http://yourseed/seedviewer.cgi?page=SVServIndex
# The CGI url is http://yourseed/serv_index.cgi
#


use strict;
use FIG;
use CGI;
use Data::Dumper;
use Carp;
use FIG_Config;


my $cgi = CGI->new;
my $fig = FIG->new;
my $sap = SAPserver->new();
my $sapdb;

my $user_name = $cgi->param("user");

my $my_url = "serv_index.cgi?";

my $env = {fig => $fig,
	   cgi => $cgi,
	   sap => $sap,
	   sapdb => $sapdb,
	   user => $user_name,
	   url => $my_url,
	   hidden_form_variable => "",
	   seedviewer_page_obj => ""
};

if ($cgi->param('kb'))
{
    require Bio::KBase::CDMI::CDMIClient;
    my $kbO = Bio::KBase::CDMI::CDMIClient->new_for_script();
    $env->{kbase} = $kbO;
}

my($html, $title) = ServIndex::run($env);

print $cgi->header;
print "<title>$title</title>";
print $html;
    

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3