#!/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
 
Sub-network Visualization
 
    Please select interaction datasets and maximum path length before claculate all the possible paths between two nodes.
 
    The MAXIMUM path length
    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 first ORF
    Pleast input the second ORF
   
HTML2 exit;