sub signD2L {
        my ($method, $path, $timestamp, $key) = @_;

        my $data = uc($method) . "&" . lc($path) . "&" . $timestamp;

        my $token = hmac_sha256_base64($data, $key);
        $token =~ s/\+/\-/gi;
        $token =~ s/\//_/gi;
        $token =~ s/\=//gi;

        return($token);
}

sub D2LbuildURL {
        my ($path, $method, $getParams) = @_;

       my $timestamp = time;
        my %d2l = D2LConfig();

        my $appSigned =  signD2L($method, $path, $timestamp, $d2l{appKey});
        my $userSigned =  signD2L($method, $path, $timestamp, $d2l{userKey});

        my $url = $d2l{base} . $path . "?" . "x_t=$timestamp" . "&x_a=$d2l{appID}" . "&x_c=$appSigned" . "&x_b=$d2l{userID}" . "&x_d=$userSigned";

        $url .= $getParams;

        return($url);
}