ViewVC Help
View File | Revision Log | Show Annotations | Root Listing
root/Genquire/Genquire.pl
Revision: 1.5
Committed: Tue Apr 22 19:18:03 2003 UTC (13 years, 2 months ago) by markw
Branch: MAIN
CVS Tags: Release4, HEAD
Changes since 1.4: +4 -2 lines
Log Message:
all changes made for a pre-compiled Windows version

Line File contents
1 #!/usr/bin/perl
2 use vars qw (
3 $WORKING_DIR
4 $TEMP_DIR
5 $DATA_SOURCES
6 $PLUGINS_DIR
7 $GQINIT
8 $BROWSER
9 $BLAST_URL
10 $BLAST_CONFIG
11 );
12 BEGIN {
13
14 do "genquire.conf";
15
16 }
17
18 use strict;
19 use Tk;
20 use GenquireINIT;
21 require Bio::Tk::BioTkPerl8_1; # requires version 0.81 of BioTkPerl (can be obtained from BioPerl)
22
23
24 Begin();
25 MainLoop;
26
27 #______________________________________________________________________________
28
29 sub Begin {
30
31 $GQINIT = GenquireINIT->new(
32 DATA_SOURCES => $DATA_SOURCES,
33 TEMP_DIR => $TEMP_DIR,
34 WORKING_DIR => $WORKING_DIR,
35 PLUGINS_DIR => $PLUGINS_DIR,
36 BLAST_URL => $BLAST_URL,
37 BLAST_CONFIG => $BLAST_CONFIG,
38 BROWSER => $BROWSER,
39 );
40
41 $GQINIT or die "failed to find a correctly formatted genquire.conf file\n";
42
43
44 }
45
46
47
48