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
|
# btssoap.rb - ruby interface for Debian BTS SOAP engine
# Copyright (C) 2006-2008 Junichi Uekawa <dancer@debian.org>
# Copyright (C) 2009-2014 Francesco Poli <invernomuto@paranoici.org>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
require 'soap/rpc/driver'
require 'debian/bug'
module Debian
module BTSSOAP
class StringArray < Array; end
class Soap
def initialize(host = "bugs.debian.org", port = 80)
@server="http://#{host}:#{port}/cgi-bin/soap.cgi"
@ns = 'Debbugs/SOAP/'
@drv = SOAP::RPC::Driver.new(@server, @ns)
@drv.wiredump_dev = STDOUT if $DEBUG
@drv.add_method('get_status','bugnumber')
# the number of options should be variable, but I don't know how it should be done
@drv.add_method('get_bugs','keyvalue')
@drv.options["protocol.http.connect_timeout"] = 999
@drv.options["protocol.http.send_timeout"] = 999
@drv.options["protocol.http.receive_timeout"] = 999
# define StringArray
@map = SOAP::Mapping::Registry.new
@map.set(StringArray, SOAP::SOAPArray,
SOAP::Mapping::Registry::TypedArrayFactory,
{ :type => XSD::XSDString::Type })
@drv.mapping_registry = @map
end
def get_bugs(*param)
### soap interface to get bugs with matching key/value.
@drv.get_bugs(param)
end
def get_status(sa, ma_copies = nil)
### soap interface to get bug status matching the bug number(s). sa is an array of strings. ma_copies is the multiarch map.
get_status = Debian::Bugs.new
if sa.size == 0
puts "No bugs to fetch" if $DEBUG
else
puts "fetching #{sa.join(" ")}.. " if $DEBUG
# get the SOAP driver to send 'get_status'
@drv.get_status(sa).each { |bugnum, res|
# parse the received information, given from the server
p res if $DEBUG
if ma_copies.nil?
packages = [res.package]
else
packages = res.package.split(/[ \t?,()]+/)
end
packages.each { |pkg_name|
if ma_copies.nil?
keys = [pkg_name]
else
keys = ma_copies[pkg_name]
end
if ( keys != nil )
keys.each { |pkg_key|
newbug = Debian::Bug.new(pkg_key,
bugnum.to_s,
res.severity,
res.pending,
res.subject.gsub(/\r/,''),
res.tags.split(" "),
res.mergedwith.to_s.split(" "),
Time::at(res.date.to_i))
newbug.found =
res.found.keys.join(" ") if res.found.kind_of?(Hash)
newbug.fixed =
res.fixed.keys.join(" ") if res.fixed.kind_of?(Hash)
get_status << newbug
}
end
}
}
end
get_status
end
end
end
end
|
