bfdump.pl

#!/usr/bin/env perl

use strict;
use warnings;
use 5.010;
use BuildForge::Services;
use Try::Tiny;
use Config::Simple;

my $cfg    = Config::Simple->new( $0 . '.cfg' );
my $server = $cfg->param('server');
my $user   = $cfg->param('user');
my $pass   = $cfg->param('pass');

my ($conn);
$conn = try { BuildForge::Services::Connection->new($server) }
catch {
    say "Error connecting to $server ... Bailing.\n";
    exit(1);
};
my $token = try { $conn->authUser( $user, $pass ) }
catch {
    say "Could not authenticate to $server ... Bailing.\n";
    try { $conn->close() };
    exit(1);
};

# No need to logout, just close connection
try { $conn->close() };