#!/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"); my $clear = $cgi->param("clear"); print "Content-type: text/html\n\n"; if ($clear) { system ("rm $new_inter"); system ("rm $new_categ"); $new_inter = $new_categ = ''; } print < Graph properties calculation
Yale Gerstein Lab
HTML1 print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; if ((!$new_inter)&&(!$new_categ)) { print <
Topology of Networks
 
'; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print '
'; print ''; print ' Home '; print ''; print ' Upload '; print ''; print ' Calculation '; print ''; print ' Navigation '; print ''; print ' Visualization
'; print '
 
'; print ' Upload Datasets '; print '
 
    Please use this form to upload your own datasets. All the datasets should be in appropriate format.
 
Upload your new interaction datasets.
Click here to see the requirements to its format.
Upload your new category datasets.
Click here to see the requirements to its format.
   
HTML2 } else { print ''; print ''; print 'Warning: You have already uploaded some datasets. You will lose them if you want to upload some new datasets. Do you want to continue anyway?'; print ''; print ''; print ''; print ' '; print ''; print ''; print ''; print '   '; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print '
'; print ' Turn back Please, I will keep on using my old datasets'; print ''; print ' Continue Please, I want to upload some new datasets'; print '
'; print ''; print ''; print ''; print ''; print ''; print ''; }