adding callback stuff, still gotta test it

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@8241 d0543943-73ff-0310-b7d9-9358b9ac24b2

src/mod/languages/mod_perl/freeswitch_perl.h

@@ -1,22 +1,48 @@
-#ifndef FREESWITCH_PYTHON_H
-#define FREESWITCH_PYTHON_H
+#ifndef FREESWITCH_LUA_H
+#define FREESWITCH_LUA_H
+
+extern "C" {
+#ifdef __ICC
+#pragma warning (disable:1419)
+#endif
+#ifdef _MSC_VER
+#include <perlibs.h>
+#pragma comment(lib, PERL_LIB)
+#endif
+
+#include <EXTERN.h>
+#include <perl.h>
+#include <switch.h>
+}
 
 #include <switch_cpp.h>
 
-
 class Session : public CoreSession {
  private:
+	virtual void do_hangup_hook();
+	PerlInterpreter *getPERL();
+	PerlInterpreter *my_perl;
+	int hh;
+	int mark;
  public:
     Session();
     Session(char *uuid);
     Session(switch_core_session_t *session);
     ~Session();        
-
+	
 	virtual bool begin_allow_threads();
 	virtual bool end_allow_threads();
 	virtual void check_hangup_hook();
-	virtual switch_status_t run_dtmf_callback(void *input, switch_input_type_t itype);
 
+	virtual switch_status_t run_dtmf_callback(void *input, switch_input_type_t itype);
+	void setInputCallback(char *cbfunc, char *funcargs);
+	void setHangupHook(char *func);
+	bool ready();
+	
+	char *cb_function;
+	char *cb_arg;
+	char *hangup_func_str;
+	void setPERL(PerlInterpreter *pi);
 };
 
 #endif