#!/usr/local/bin/perl -w

use strict;
use Inline C => Config =>
	    LIBS => "-lpdadminapi",
	    PREFIX => 'my_',
	    INC  => "-I/usr/include/PolicyDirector";
use Inline C => << 'END_C';

#include <ivadminapi.h>
/* So named in case there is some conflict of which I am unaware
 */
int my_create_context( char* user, char* passwd ) {
    ivadmin_context ctx;
    ivadmin_response rsp;
    unsigned long status;
    int i;

    printf("Establising context as %s (%s)\n", user,
					       passwd );
/* This is the call that is failing */
    status = ivadmin_context_createdefault(user,passwd,&ctx,&rsp);

    if ( ivadmin_response_getok(rsp) ) {
	printf("ivadmin_context_createdefault succeeded\n" );
    }
    else {
	for(i=0; i<ivadmin_response_getcount(rsp);i++) {
	    printf( "ivadmin_context_createdefault : (%d) %s\n",
	    ivadmin_response_getcode( rsp, i ),
	    ivadmin_response_getmessage( rsp, i ) );
	}
    }
    ivadmin_free( rsp );
    return status;
}
END_C

my ( $foo, $user, $passwd );

$user = 'xxxxxxxx';
$passwd = 'xxxxxxxx';

$foo = create_context( $user, $passwd );

print "status = $foo\n";