[Bio] / FigWebServices / DocDirectory.cgi Repository:
ViewVC logotype

Annotation of /FigWebServices/DocDirectory.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.7 - (view) (download)

1 : parrello 1.1 #!/usr/bin/perl -w
2 : olson 1.6 #
3 :     # Copyright (c) 2003-2006 University of Chicago and Fellowship
4 :     # for Interpretations of Genomes. All Rights Reserved.
5 :     #
6 :     # This file is part of the SEED Toolkit.
7 : parrello 1.7 #
8 : olson 1.6 # The SEED Toolkit is free software. You can redistribute
9 :     # it and/or modify it under the terms of the SEED Toolkit
10 : parrello 1.7 # Public License.
11 : olson 1.6 #
12 :     # You should have received a copy of the SEED Toolkit Public License
13 :     # along with this program; if not write to the University of Chicago
14 :     # at info@ci.uchicago.edu or the Fellowship for Interpretation of
15 :     # Genomes at veronika@thefig.info or download a copy from
16 :     # http://www.theseed.org/LICENSE.TXT.
17 :     #
18 :    
19 : parrello 1.1
20 : olson 1.2 use FIG;
21 :    
22 : parrello 1.1 BEGIN {
23 :     # Print the HTML header.
24 :     print "CONTENT-TYPE: text/html\n\n";
25 :     }
26 :    
27 :     =head1 Documentation Directory
28 :    
29 :     This script generates the directory of documentation modules for FIG. The user can
30 :     click on a module name and it will automatically pop up the documentation for that
31 :     module.
32 :    
33 :     =cut
34 :    
35 :     use strict;
36 :     use CGI;
37 :     use Tracer;
38 :     use PageBuilder;
39 :    
40 : olson 1.2 #my $dir = "$FIG_Config::cgi_base/Html/pod_docs";
41 :     #
42 :     # I don't see how the above could have worked. Fixing below
43 :     #
44 :     # RDO
45 : parrello 1.3 #
46 :     # Apparently I mis-interpreted what some of the FIG_Config
47 :     # parameters meant. Sorry.
48 :     #
49 :     # Bruce
50 : olson 1.2
51 :     my $dir = "$FIG_Config::fig/CGI/Html/pod_docs";
52 : parrello 1.1 my $links = "";
53 :     # Open the documentation directory, and build a table of contents for it.
54 :     if (-d $dir) {
55 :     my @files = sort (Tracer::OpenDir($dir, 1));
56 :     for my $file (@files) {
57 :     if ($file =~ /^(.+)\.html$/) {
58 :     my $fileName = $1;
59 : overbeek 1.5 my $cgi = &FIG::cgi_url(-relative => 1);
60 : olson 1.2 $links .= "<a href=\"$cgi/Html/pod_docs/$file\" target=\"mainFrame\">$fileName</a><br>\n";
61 : parrello 1.1 }
62 :     }
63 : parrello 1.7 print PageBuilder::Build("<<$FIG_Config::fig/CGI/Html/DirectoryTemplate.html",
64 : parrello 1.1 { index => $links });
65 :     }
66 :    
67 : olson 1.2 1;

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3