watson-perl
watson-perl copied to clipboard
Only basic http auth, get OAuth for Bitbucket [watson]
filename : watson line # : 1613 tag : todo md5 : 0bb963a4d16f768c23520c03dbb8fbfd
# [todo] - Only basic http auth, get OAuth for Bitbucket
# Bitbucket OAuth needs to redirect to some grant access page
# Not sure how to do that with a CLI, basic HTTP auth for now
sub bitbucketSetup {
# JSON Response var
my $js;
# Set remote setup to one so password isn't asked for in Bitbucket parseConfig section
# Crappy fix, won't need this when OAuth is implemented for Bitbucket
$REMOTESETUP = 1;
# [fixme] - Same code as header just without wprint, make modular
print(BOLD "------------------------------\n");
print(BOLD "watson", RESET);
print(" - ");
print(BOLD YELLOW "inline issue manager\n", RESET);
print(BOLD "------------------------------\n\n");