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
|
require 'uri'
=begin
# class overwrites aka monkey patches
# hack: store sinatra instance in global var $url_provider to make url_for and halt methods accessible
before {
raise "should not happen, url provider already differently initialized "+
$url_provider.request.host.to_s+" != "+self.request.host.to_s if
$url_provider and $url_provider.request.host!=self.request.host and
$url_provider.request.script_name!=self.request.script_name
$url_provider = self
# stupid internet explorer does not ask for text/html, add this manually
request.env['HTTP_ACCEPT'] += ";text/html" if request.env["HTTP_USER_AGENT"]=~/MSIE/
request.env['HTTP_ACCEPT']=request.params["media"] if request.params["media"]
}
# Error handling
# Errors are logged as error and formated according to acccept-header
# Non OpenTox::Errors (defined in error.rb) are handled as internal error (500), stacktrace is logged
# IMPT: set sinatra settings :show_exceptions + :raise_errors to false in config.ru, otherwise Rack::Showexceptions takes over
error Exception do
error = request.env['sinatra.error']
# log error message and backtrace to logfile
LOGGER.error error.class.to_s+": "+error.message
LOGGER.error ":\n"+error.backtrace.join("\n")
actor = "#{request.env['rack.url_scheme']}://#{request.env['HTTP_HOST']}#{request.env['REQUEST_URI']}"
rep = OpenTox::ErrorReport.create(error, actor)
case request.env['HTTP_ACCEPT']
when /rdf/
content_type 'application/rdf+xml'
halt error.http_code,rep.to_rdfxml
when /html/
content_type 'text/html'
halt error.http_code,(OpenTox.text_to_html rep.to_yaml, @subjectid)
else
content_type 'application/x-yaml'
halt error.http_code,rep.to_yaml
end
end
class Sinatra::Base
def return_task( task )
raise "http_code == nil" unless task.http_code!=nil
case request.env['HTTP_ACCEPT']
when /rdf/
response['Content-Type'] = "application/rdf+xml"
halt task.http_code,task.to_rdfxml
when /yaml/
response['Content-Type'] = "application/x-yaml"
halt task.http_code,task.to_yaml # PENDING differs from task-webservice
when /html/
response['Content-Type'] = "text/html"
halt task.http_code,OpenTox.text_to_html(task.to_yaml, @subjectid)
else # default /uri-list/
response['Content-Type'] = "text/uri-list"
if task.completed?
halt task.http_code,task.resultURI+"\n"
else
halt task.http_code,task.uri+"\n"
end
end
end
end
=end
class String
def task_uri?
self.uri? && !self.match(/task/).nil?
end
def dataset_uri?
self.uri? && !self.match(/dataset/).nil?
end
def self.model_uri?
self.uri? && !self.match(/model/).nil?
end
def uri?
begin
u = URI::parse(self)
return (u.scheme!=nil and u.host!=nil)
rescue URI::InvalidURIError
return false
end
end
def underscore
self.gsub(/::/, '/').
gsub(/([A-Z]+)([A-Z][a-z])/,'\1_\2').
gsub(/([a-z\d])([A-Z])/,'\1_\2').
tr("-", "_").
downcase
end
end
require 'logger'
# logging
#class Logger
class OTLogger < Logger
def pwd
path = Dir.pwd.to_s
index = path.rindex(/\//)
return path if index==nil
path[(index+1)..-1]
end
def trace()
lines = caller(0)
n = 2
line = lines[n]
while (line =~ /spork.rb/ or line =~ /create/ or line =~ /overwrite.rb/)
n += 1
line = lines[n]
end
index = line.rindex(/\/.*\.rb/)
return line if index==nil
line[index..-1]
end
def format(msg)
pwd.ljust(18)+" :: "+msg.to_s+" :: "+trace
end
def debug(msg)
super format(msg)
end
def info(msg)
super format(msg)
end
def warn(msg)
super format(msg)
end
def error(msg)
super format(msg)
end
end
# make migration from datamapper more straightforward
=begin
class Ohm::Model
def self.get(id)
self[id]
end
end
=end
|
