Page Menu
Home
DevCentral
Search
Configure Global Search
Log In
Files
F3938464
Bugzilla.tcl
No One
Temporary
Actions
View File
Edit File
Delete File
View Transforms
Subscribe
Mute Notifications
Award Token
Flag For Later
Size
1 KB
Referenced Files
None
Subscribers
None
Bugzilla.tcl
View Options
# .tcl source scripts/Daeghrefn/Bugzilla.tcl
package
require XMLRPC
package
require SOAP
package
require rpcvar
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
Details
Attached
Mime Type
text/plain
Expires
Thu, Dec 26, 02:20 (18 h, 19 m)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
2314300
Default Alt Text
Bugzilla.tcl (1 KB)
Attached To
Mode
rVIPERSERV ViperServ scripts [legacy Mercurial repo]
Attached
Detach File
Event Timeline
Log In to Comment