Skip Menu |

This queue is for tickets about the Net-SugarCRM CPAN distribution.

Report information
The Basics
Id: 112024
Status: resolved
Priority: 0/
Queue: Net-SugarCRM

People
Owner: Nobody in particular
Requestors: joelgomezb [...] gmail.com
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



Subject:
Date: Sun, 14 Feb 2016 14:40:13 -0430
To: bug-Net-SugarCRM [...] rt.cpan.org
From: Joel Gómez <joelgomezb [...] gmail.com>
Hi, I wrote this code in my perl proyect: #!/usr/bin/perl -w use Net::SugarCRM; use Data::Dumper; package Test; use Crypt::Digest::MD5 qw( :all ); our $login='admin'; our $pass=md5_hex('admin'); our $url='http://localhost/SugarCE/service/v4_1/rest.php'; package MyPackage; my $s = Net::SugarCRM->new(url=>$Test::url, restuser=>$Test::login, restpasswd=> $Test::pass ); but i have this message: logging out for user admin which was not logged in, not doing anything i'm using SugarCRM *6.5.22 *and installed Net::SugarCRM the last version in CPAN. Any Suggests? Regards -- www.joelgomez.org.ve Linux User #435411
Subject: Error Loggin SugarCRM
Date: Sun, 14 Feb 2016 14:44:41 -0430
To: bug-Net-SugarCRM [...] rt.cpan.org
From: Joel Gómez <joelgomezb [...] gmail.com>
Hi, I wrote this code in my perl proyect: #!/usr/bin/perl -w use Net::SugarCRM; use Data::Dumper; package Test; use Crypt::Digest::MD5 qw( :all ); our $login='admin'; our $pass=md5_hex('admin'); our $url='http://localhost/SugarCE/service/v4_1/rest.php'; package MyPackage; my $s = Net::SugarCRM->new(url=>$Test::url, restuser=>$Test::login, restpasswd=> $Test::pass ); but i have this message: logging out for user admin which was not logged in, not doing anything i'm using SugarCRM *6.5.22 *and installed Net::SugarCRM the last version in CPAN. Debian Linux and This is perl 5, version 22, subversion 1 (v5.22.1) Any Suggests? Regards -- www.joelgomez.org.ve Linux User #435411
Hi, thanks for trying this out: Could you try this? my $s = Net::SugarCRM->new(url=>$Test::url, restuser=>$Test::login, restpasswd=> md5_hex($Test::pass)); Also it automatically logs out when $s get's destroyed. Try also this: use Net::SugarCRM; use Data::Dumper; package Test; use Crypt::Digest::MD5 qw( :all ); our $login='admin'; our $pass=md5_hex('admin'); our $url='http://localhost/SugarCE/service/v4_1/rest.php'; package MyPackage; my $s = Net::SugarCRM->new(url=>$Test::url, restuser=>$Test::login, restpasswd=> $Test::pass ); print Dumper($s);
Subject: Re: [rt.cpan.org #112024] Error Loggin SugarCRM
Date: Mon, 15 Feb 2016 11:28:34 -0430
To: bug-Net-SugarCRM [...] rt.cpan.org
From: Joel Gómez <joelgomezb [...] gmail.com>
It works very well. THX. :D 2016-02-15 6:49 GMT-04:30 Nito Martinez via RT <bug-Net-SugarCRM@rt.cpan.org Show quoted text
>:
Show quoted text
> <URL: https://rt.cpan.org/Ticket/Display.html?id=112024 > > > Hi, > > thanks for trying this out: > > Could you try this? > > my $s = Net::SugarCRM->new(url=>$Test::url, restuser=>$Test::login, > restpasswd=> md5_hex($Test::pass)); > > > Also it automatically logs out when $s get's destroyed. > > Try also this: > > use Net::SugarCRM; > use Data::Dumper; > > package Test; > > use Crypt::Digest::MD5 qw( :all ); > our $login='admin'; > our $pass=md5_hex('admin'); > our $url='http://localhost/SugarCE/service/v4_1/rest.php'; > > package MyPackage; > my $s = Net::SugarCRM->new(url=>$Test::url, restuser=>$Test::login, > restpasswd=> $Test::pass > ); > print Dumper($s); > > >
-- www.joelgomez.org.ve Linux User #435411