1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
|
use Ace::Browser::LocalSiteDefs '$HTML_PATH';
# ========= DIRECTORIES =======
# base of all our scripts
$ROOT = '/cgi-bin/ace';
# base of our html files
$DOCROOT = '/ace';
# base of our icons
$ICONS = "$DOCROOT/ico";
# base of our images
$IMAGES = "$DOCROOT/images";
# ========= $HOST =========
# name of the host to connect to
$HOST = 'localhost';
# ========= $PORT =========
# Port number to connect to
$PORT = 2005;
# ========= $STYLESHEET =========
# stylesheet to use
$STYLESHEET = "$DOCROOT/stylesheets/aceperl.css";
# ========= $USERNAME =========
# Username for connections (none)
$USERNAME = '';
# ========= $PASSWORD =========
# Password for connections (none)
$PASSWORD = '';
# ========= $PICTURES ==========
# Where to write temporary picture files to:
# The URL and the physical location, which must be writable
# by the web server. This is meaningless under Apache::Modperl.
# Otherwise the value is determined by Makefile.PL
@PICTURES = ($IMAGES => "$HTML_PATH/images");
# ========= @SEARCHES =========
# search scripts available
# NOTE: the order is important
@SEARCHES = (
'searches/basic' => 'Basic Search',
'searches/text' => 'Text Search',
'searches/browser' => 'Class Browser',
'searches/query' => 'Acedb Query',
);
@SEARCHES = (
basic => {
name => 'Basic Search',
url => "$ROOT/searches/basic",
},
text => {
name => 'Text Search',
url =>"$ROOT/searches/text",
},
browser => {
name => 'Class Browser',
url => "$ROOT/searches/browser",
},
query => {
name => 'Acedb Query',
url => "$ROOT/searches/query",
},
);
$SEARCH_ICON = "$ICONS/unknown.gif";
# ========= %HOME =========
# Home page URL
@HOME = (
$DOCROOT => 'Home Page'
);
# ========= %DISPLAYS =========
# displays to show
%DISPLAYS = (
tree => {
'url' => "generic/tree",
'label' => 'Tree Display',
'icon' => "$ICONS/text.gif" },
pic => {
'url' => "generic/pic",
'label' => 'Graphic Display',
'icon' => "$ICONS/image2.gif" },
xml => {
'url' => "generic/xml",
'label' => 'XML Display',
'icon' => "$ICONS/text.gif" },
model => {
'url' => "generic/model",
'label' => 'AceDB Schema',
'icon' => "$ICONS/text.gif" },
);
# ========= %CLASSES =========
# displays to show
%CLASSES = (
# default is a special "dummy" class to fall back on
Default => [ qw/tree pic model xml/ ],
);
# ========= &URL_MAPPER =========
# mapping from object type to URL. Return empty list to fall through
# to default.
sub URL_MAPPER {
my ($display,$name,$class) = @_;
# Small Ace inconsistency: Models named "#name" should be
# transduced to Models named "?name"
$name = "?$1" if $class eq 'Model' && $name=~/^\#(.*)/;
my $n = CGI::escape("$name"); # looks superfluous, but avoids Ace::Object name conversions errors
my $c = CGI::escape($class);
# pictures remain pictures
if ($display eq 'pic') {
return ('pic' => "name=$n&class=$c");
}
# otherwise display it with a tree
else {
return ('tree' => "name=$n&class=$c");
}
}
# ========= $BANNER =========
# Banner HTML
# This will appear at the top of each page.
$BANNER = <<END;
<span class=banner><font size=+3>Simple Database</font></span>
END
# ========= $FOOTER =========
# Footer HTML
# This will appear at the bottom of each page
$FOOTER = '';
# configuration for the "basic" seqarch script
@BASIC_OBJECTS =
('Any' => '<i>Anything</i>',
'Locus' => 'Confirmed Gene',
'Predicted_gene' => 'Predicted Gene',
'Sequence' => 'Sequence (any)',
'Genome_sequence', => 'Sequence (genomic)',
'Author' => 'Author',
'Genetic_map' => 'Genetic Map',
'Sequence_map' => 'Sequence Map',
'Clone' => 'Clone'
);
1;
|
