-
Notifications
You must be signed in to change notification settings - Fork 2
/
application.rb
158 lines (154 loc) · 4.33 KB
/
application.rb
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
#!/usr/bin/env ruby
# XmlConv::Application -- xmlconv -- 10.05.2012 -- yasaka@ywesee.com
# XmlConv::Application -- xmlconv -- 29.09.2011 -- mhatakeyama@ywesee.com
# XmlConv::Application -- xmlconv2 -- 07.06.2004 -- hwyss@ywesee.com
require 'sbsm/drbserver'
require 'xmlconv/state/global'
require 'xmlconv/util/invoicer'
require 'xmlconv/util/polling_manager'
require 'xmlconv/util/session'
require 'xmlconv/util/transaction'
require 'xmlconv/util/validator'
require 'thread'
require 'odba'
require 'xmlconv/model/bdd'
module XmlConv
module Util
class Application
attr_reader :transactions, :failed_transactions
include ODBA::Persistable
ODBA_EXCLUDE_VARS = ['@next_transaction_id', '@id_mutex']
def initialize
@transactions = []
@failed_transactions = []
end
def init
@id_mutex = Mutex.new
end
def execute(transaction)
_execute(transaction)
transaction.notify
rescue Exception => error
## survive notification failure
end
def _execute(transaction)
transaction.transaction_id = next_transaction_id
transaction.execute
transaction.postprocess
rescue Exception => error
transaction.error = error
ensure
ODBA.transaction {
transaction.odba_store
@transactions.push(transaction)
@transactions.odba_isolated_store
}
end
def next_transaction_id
@id_mutex.synchronize {
@next_transaction_id ||= @transactions.collect { |transaction|
transaction.transaction_id.to_i
}.max.to_i
@next_transaction_id += 1
}
end
def transaction(transaction_id)
transaction_id = transaction_id.to_i
if((last_id = @transactions.last.transaction_id) \
&& (last_id >= transaction_id))
start = (transaction_id - last_id - 1)
if(start + @transactions.size < 0)
start = 0
end
@transactions[start..-1].each { |trans|
return trans if(trans.transaction_id == transaction_id)
}
end
end
def send_invoice(time_range, date = Date.today)
transactions = @transactions.select { |trans|
time_range.include?(trans.commit_time)
}
Util::Invoicer.run(time_range, transactions, date)
end
def export_orders(first=Time.local(1990,1,1), last=Time.local(2037,1,1), output_file=nil)
range=Range.new(first, last)
output_file ||= "/home/ywesee/xmlconv_export/xmlconv_export.csv"
open(output_file, "w") do |f|
self.transactions.reverse.each do |t|
if range.include?(t.commit_time)
f.print t.output
end
end
end
end
end
end
end
class XmlConvApp < SBSM::DRbServer
ENABLE_ADMIN = true
SESSION = XmlConv::Util::Session
VALIDATOR = XmlConv::Util::Validator
POLLING_INTERVAL = 60 #* 15
attr_reader :polling_thread, :dispatch_queue, :dispatcher_thread
def initialize
@system = ODBA.cache.fetch_named('XmlConv', self) {
XmlConv::Util::Application.new
}
@system.init
@dispatch_queue = Queue.new
if(self::class::POLLING_INTERVAL)
start_polling
end
start_dispatcher
start_invoicer if XmlConv::CONFIG.run_invoicer
super(@system)
end
def dispatch(transaction)
@dispatch_queue.push(transaction)
end
def execute_with_response(transaction)
begin
@system.execute(transaction)
rescue Exception => e
puts "rescued #{e.class}"
end
transaction.response.to_s
end
def start_dispatcher
@dispatcher_thread = Thread.new {
Thread.current.abort_on_exception = true
loop {
@system.execute(@dispatch_queue.pop)
}
}
end
def start_invoicer
@invoicer_thread = Thread.new {
Thread.current.abort_on_exception = true
loop {
this_month = Date.today
next_month = this_month >> 1
strt = Time.local(this_month.year, this_month.month)
stop = Time.local(next_month.year, next_month.month)
sleep(stop - Time.now)
@system.send_invoice(strt...stop)
}
}
end
def start_polling
@polling_thread = Thread.new {
Thread.current.abort_on_exception = true
loop {
begin
XmlConv::Util::PollingManager.new(@system).poll_sources
rescue Exception => exc
XmlConv::LOGGER.error(XmlConv::CONFIG.program_name) {
[exc.class, exc.message].concat(exc.backtrace).join("\n")
}
end
sleep(self::class::POLLING_INTERVAL)
}
}
end
end