#!/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
 
Interaction Network Navigation
 
    Please select interaction datasets, and then start to navigate the network from one node.
 
    Please select the interaction datasets   BIND/DIP/MIPS
  Two Hybrid
  In vivo pull down
HTML11 if ($new_inter) { print '  New Dataset'; } print ''; print ''; print <
    Please input the orf name of one gene
   
HTML2 exit;