#!/usr/bin/perl ############################################## ############################################## # SCRIPT NAME: Page_Code_Documentation.cgi # FUNCTION: Document the Code ############################################## # MINE: Molecular INformation Explorer # Copyright 2000 Dawn Field. All rights reserved. # The CGI-PERL scripts belonging to MINE # may be used and modified freely, but I do # request that this copyright notice remain attached # to this file/source code. If you make modifications # please do not distribute unless # you fully document the modifications. use CGI; require "CGI-MINE.pl"; ################# # START EACH MINE CGI SCRIPT ################# # this redirects the error messages to the user's screen # and is useful for debugging CGI scripts! open (STDERR, ">&STDOUT"); # print errors to screen $| = 1; # flush the print buffer continuously # make a new query object using CGI.pm module $query = new CGI; # print the required header and start the web page print $query->header; print $query->start_html(-title=>'MINE', -bgcolor=>'#D1DFC4' ); # Each time a script is invoked for the first time (or $action undef), # log the visit in the custom MINE server log (see CGI-MINE.pl) # (put this after the header incase an error message is printed) # check value of $action $action = $query->param('action'); if ($action eq undef) {&log();} $debug = ""; # "1" to print, "0" to hide print statements ####### # START THE WEBPAGE ####### # print the MINE menu &menu; # start the basic gray table used for formatting MINE pages # &table_top(); # put the main title of your page here # print "Scripts

"; # print the list of scripts and their brief descriptions using traditional html in a text block (HTML_TEXT) print $var =<

MINE Menu

description

script name

source code

Submit

Create a brand new sequence entry