#define PERL_NO_GET_CONTEXT
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#include "ppport.h"

int validate (char*, char*, char*);
int senddata (char*, char*, char*, char*);
int decode (char*, char*, char*);


MODULE = mebil::ERiC::mERiC		PACKAGE = mebil::ERiC::mERiC		

int 
c_validate(char* datenart_vers, char* xml_file, char* config_path) 
	CODE:
		   RETVAL = validate(datenart_vers, xml_file, config_path);
		   //RETVAL = 5;
	OUTPUT:
		   RETVAL

int 
c_submit(char* datenart_vers, char* xml_file, char* config_path, char* PIN)
	CODE:
		   RETVAL = senddata(datenart_vers, xml_file, config_path, PIN);
	OUTPUT:
		   RETVAL

int 
c_decode(char* base24data, char* PIN, char* config_file)
	CODE:
		   RETVAL = decode(base24data, PIN, config_file);
	OUTPUT:
		   RETVAL