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
|
use Ace::Browser::LocalSiteDefs '$HTML_PATH';
# ========= DIRECTORIES =========
# base of all our scripts
#$ROOT = '/movies';
$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 = 'stein.cshl.org';
# ========= $PORT =========
# Port number to connect to
$PORT = 200008;
# ========= $STYLESHEET =========
# stylesheet to use
$STYLESHEET = "$DOCROOT/stylesheets/moviedb.css";
# ========= $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 = (
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 = (
movie => {
url => "$ROOT/moviedb/movie",
label => 'Movie Report',
},
person => {
url => "$ROOT/moviedb/person",
label => 'Person Profile',
},
tree => {
'url' => "generic/tree",
'label' => 'Tree Display',
},
pic => {
'url' => "generic/pic",
'label' => 'Graphic Display',
},
xml => {
'url' => "generic/xml",
'label' => 'XML Display',
},
);
# ========= %CLASSES =========
# displays to show
%CLASSES = (
Person => ['person'],
Movie => ['movie'],
# default is a special "dummy" class to fall back on
Default => [ qw/tree xml pic/ ],
);
# ========= &URL_MAPPER =========
# mapping from object type to URL. Return empty list to fall through
# to default.
sub URL_MAPPER {
my ($display,$name,$class) = @_;
return;
}
# ========= $BANNER =========
# Banner HTML
# This will appear at the top of each page.
$BANNER = <<END;
<center><span class=banner><font size=+3>Movie Database (Test)</font></span></center><p>
END
# ========= PRIVACY STATEMENT
$PRINT_PRIVACY_STATEMENT = 1;
# ========= FEEDBACK STATEMENT
@FEEDBACK_RECIPIENTS = (
[ " $ENV{SERVER_ADMIN}", 'general complaints and suggestions', 1 ]
);
# ========= $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>',
'Movie' => 'Movie Title',
'Person' => 'Person (author/actor/director)',
'Director' => 'Director',
'Author' => 'Author',
'Actor' => 'Actor',
'Book' => 'Book');
1;
|
