Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
emulab
emulab-devel
Commits
14994372
Commit
14994372
authored
Aug 20, 2013
by
Robert Ricci
Browse files
Additional cleanup
parent
55fdffa5
Changes
1
Hide whitespace changes
Inline
Side-by-side
tools/git/gitmaild
View file @
14994372
...
...
@@ -204,15 +204,19 @@ sub run_gitmail($) {
# TODO: Error checking
sub
call_gitlab_api
($)
{
my
(
$call
)
=
@_
;
# Hardcode API v3 for now
my
$url
=
$BASEURL
.
"
api/v3
"
.
$call
.
"
?private_token=
"
.
$TOKEN
;
# Super simple, make the call
my
$request
=
HTTP::
Request
->
new
(
GET
=>
$url
);
my
$ua
=
LWP::
UserAgent
->
new
;
my
$response
=
$ua
->
request
(
$request
);
if
(
$verbose
)
{
print
"
Response:
"
.
$response
->
as_string
.
"
\n
";
}
# Error checking
# TODO: Error checking
return
decode_json
(
$response
->
content
);
}
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment