Re: [Arsperl-users] SLES9 + ARSPerl 1.82

[Christoph S. <chr...@po...>]

Sure ;-)
Here it comes...:

sub mycatch {
        print ("catching call");
}

(my $ars_connect = new ARS(
               -server => $hostname,
                -username =>$username,
                -password =>$pass,
                -catch => { ARS::AR_RETURN_ERROR => "main::mycatch",
                            ARS::AR_RETURN_WARNING => "main::mycatch",
                            ARS::AR_RETURN_FATAL => "main::mycatch"
                          },
                -debug => undef)) || die $ars_errstr;

# Parse command line parameters
# Load the qualifier structure
(my $qual = ars_LoadQualifier($ars_connect->ctrl,$scheme, "('Primary 
Hostname' = \"welcmap2\")")) ||
        die "error in ars_LoadQualifier";

# Retrieve all of the entry-id's for the schema.
my %entries = ars_GetListEntry($ars_connect->ctrl, $scheme, $qual, 0);

foreach my $entry_id (sort keys %entries)
{
        (my %vals = ars_GetEntry($ars_connect->ctrl, $scheme , 
$entry_id)) || die $ars_errstr;
     
        foreach my $key  (sort {$a <=> $b} keys %vals)
        {
                if ($vals{$key})
                {
                        print "$key : $vals{$key}\n";
                }
        }
}

# Log out of the server.
ars_Logoff($ars_connect->ctrl);


No, i dont' have a solaris machine to try.....only HP-UX...

Cheers

------------------------------------------
Christoph Schumacher
Porsche Information-Kommunikation-Services
Competence Center UNIX
Porschestrasse
D-71287 Weissach
------------------------------------------




Richard Hellier schrieb:

>Christoph,	
>	Any chance of seeing the script, please?
>
>Cheers,
>
>Richard.
>
>PS: do you have a Solaris machine to try as well?
>
>-----Original Message-----
>From: ars...@ar...
>[mailto:ars...@ar...] On Behalf Of Christoph Schumacher
>Sent: 12 April 2005 15:42
>To: ars...@ar...
>Subject: [Arsperl-users] SLES9 + ARSPerl 1.82
>
>Hi !
>
>I've compiled ARSperl 1.82 successfully with API9 for use with Remedy 
>5.0.1.
>I've written a small skript for asking our database per GetListEntry and 
>GetEntry with dummy identifier (1=1), but nothing is returned.
>If the script is called on a windows machine (ARSperl 1.4x) it succeeds 
>and returns correct result. On my SLES9 Linux machine the script returns 
>0 but does not return any values from the database .... how to debug the 
>api or is it a fault of mine ??
>
>Thanks for the help.
>
>  
>