Page MenuHomeDevCentral

Bugzilla.tcl
No OneTemporary

Bugzilla.tcl

# .tcl source scripts/Nasqueron/Bugzilla.tcl
package require SOAP
package require rpcvar
package require http
package require tls
http::register https 443 ::tls::socket
bind dcc - bug dcc:bug
#
# Bugzilla structures
#
namespace import -force rpcvar::typedef
typedef {
login string
password string
remember boolean
} userLoginRequest
#
# Bugzilla libraries
#
namespace eval ::Bugzilla:: {
proc endpoint {server} {
return [registry get bugzilla.$server.url]/xmlrpc.cgi
}
proc login {server} {
global errorInfo
if [catch { ::Bugzilla::${server}::UserLogin [list \
login [registry get bugzilla.$server.username] \
password [registry get bugzilla.$server.password] \
remember 1 \
] } reply] {
error [lindex [split $errorInfo \n] 0]
}
return $reply
}
proc version {server} {
::Bugzilla::${server}::BugzillaVersion
}
}
#
# XML-RPC procedures
#
foreach bzServer [registry get bugzilla.servers] {
namespace eval ::Bugzilla::${bzServer} { }
XMLRPC::create ::Bugzilla::${bzServer}::UserLogin -name "User.login" -proxy [Bugzilla::endpoint $bzServer] -params {login userLoginRequest}
XMLRPC::create ::Bugzilla::${bzServer}::BugzillaVersion -name "Bugzilla.version" -proxy [Bugzilla::endpoint $bzServer]
}
#
# Userland
#
proc dcc:bug {handle idx arg} {
}

File Metadata

Mime Type
text/plain
Expires
Thu, Dec 26, 03:40 (20 h, 6 m)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
2314224
Default Alt Text
Bugzilla.tcl (1 KB)

Event Timeline