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

View of /FigWebServices/serv_feature.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.5 - (download) (annotate)
Tue Dec 13 21:22:30 2011 UTC (7 years, 11 months ago) by disz
Branch: MAIN
Changes since 1.4: +18 -23 lines
Fixed up parameter passing

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


use SAPserver;
use ServFeature;

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


use strict;
use FIG;
use CGI;
use Sapling;

my $cgi = CGI->new;
my $fig = FIG->new;
my $my_url = "serv_feature.cgi?";

my $sapdb = Sapling->new(dbName => 'pubseed_sapling_08', dbhost => 'oak.mcs.anl.gov');
my $sap = SAPserver->new(sapDB => $sapdb, url => 'localhost');

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

my $env = {fig => $fig,
	   cgi => $cgi,
	   sap => $sap,
	   sapdb => $sapdb,
	   user => $user_name,
	   url => $my_url,
	   hidden_form_variable => "",
	   seedviewer_page_obj => ""
};
	   
my($html, $title) = ServFeature::run($env);


#my($html, $title) = ServFeature::run($fig, $cgi, $sap, $user_name, $my_url, '', undef);

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3