#!/usr/bin/perl use strict; use CGI qw(:standard); my $cgi = new CGI; my $new_inter = $cgi->param("inter_new"); my $new_categ = $cgi->param("categ_new"); print "Content-type: text/html\n\n"; print < Graph properties calculation
Yale Gerstein Lab
Topology of Networks
 
HTML1 print ''; print ''; print ''; print ''; print ''; print <
'; print ''; print ' Home '; print ''; print ' Upload '; print ''; print ' Calculation '; print ''; print ' Navigation '; print ''; print ' Visualization
 
Topology Parameters Calculation
 
    Please select interaction datasets and category datasets, and then calculate the topology parameters within different categories.
 
[optional] The decription of the file
Please input your email where you can get the report of the calculation
    Please select the interaction datasets   BIND/DIP/MIPS
  Two Hybrid
  In vivo pull down
HTML11 if ($new_inter) { print '  New Dataset'; } print <
    Please select the category dataset   Expression levels
  Protein Length
HTML2 if ($new_categ) { print '  New Category
'; } print ''; print ''; print <
   
HTML3 exit;