Error when creating new compute object.

[kedarjk]

I'm quite new to using Openstack and Perl.
I've successfully installed Net::OpenStack::Compute module on my openstack server.
Command line tool oscompute is also running successfully.
All the commands of oscompute tool are displaying correct results.

But when I created a simple perl program to use the above module, it gives me error as below.

401 Unauthorized

{"error": {"message": "Could not find project, 2e62f0d0dfd945e7b809ce79d54df887.", "code": 401, "title": "Unauthorized"}} at /usr/local/share/perl5/Net/OpenStack/Compute/AuthRole.pm line 72.

The perl file content is as below:

use Net::OpenStack::Compute;

my $compute = Net::OpenStack::Compute -> new(
auth_url => "http://192.168.1.48:5000/v2.0",
user => "admin",
password => "password",
project_id => "2e62f0d0dfd945e7b809ce79d54df887",

);

I have already checked that project Id that I have entered in the file is correct and that project is accessible through OpenStack Web GUI.

Let me know if there are any other pre-requisites that needs to be fulfilled.

[ironcamel]

@kedarjk, I just tried hitting the Rackspace openstack cloud servers with this code and it worked:

my $compute = Net::OpenStack::Compute->new(
    auth_url     => 'https://identity.api.rackspacecloud.com/v2.0',
    user         => 'admin',
    password     => 'password',
    project_id   => 12345,
    region       => 'ORD',
);

It also worked when I didn't provide a project_id. Can you try commenting out the project_id line and see what happens?