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

View of /FigWebServices/serv_FIGfam.cgi

Parent Directory Parent Directory | Revision Log Revision Log

Revision 1.2 - (download) (annotate)
Tue Nov 29 21:17:15 2011 UTC (8 years, 6 months ago) by disz
Branch: MAIN
CVS Tags: mgrast_release_3_1_2, mgrast_dev_12152011
Changes since 1.1: +8 -53 lines
New interafce fixups

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

# This file is part of an application created with create-new-page.
# The implementation module is FigKernelPackages/ServFIGfam.pm.
# The SeedViewer page module is SeedViewer/WebPage/SV_ServFIGfam.pm.
# The CGI script is FigWebServices/serv_FIGfam.cgi.
# The SeedViewer url is http://yourseed/seedviewer.cgi?page=SV_ServFIGfam
# The CGI url is http://yourseed/serv_FIGfam.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 $user_name = $cgi->param("user");

my $my_url = "serv_FIGfam.cgi";

my($html, $title) = ServFIGfam::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