contrib/new_mini_epn.c File Reference

#include <EXTERN.h>
#include <perl.h>
#include "epn_icinga.h"

Defines

#define DO_CLEAN   "0"
#define MAX_INPUT_CHARS   1024
#define DO_READLINE
#define INIT_TERM_READLINE

Functions

void run_plugin (char *command_line)
SV * my_eval_pv (char *pv)
char * get_command_line (void)
void init_term_readline (void)
void init_embedded_perl (void)
void deinit_embedded_perl (void)
int main (int argc, char **argv, char **env)

Variables

static PerlInterpreter * my_perl = NULL

Define Documentation

#define DO_CLEAN   "0"

#define DO_READLINE

Value:

"$_ = defined($term) "                              \
    "        ? $term->readline($prompt) "               \
    "        : do    { "                                \
    "                    print $prompt; "               \
    "                    chomp($_ = <>); "              \
    "                    $_; "                          \
    "                }; "                               \
    "die qq(That's all folks.\\n) "                     \
    "    unless $_ && ! /^\\s*$/ ; "                    \
    "$_; "

#define INIT_TERM_READLINE

Value:

"use vars qw($term $prompt $OUT); "                 \
                                                        \
    "eval { require Term::ReadLine; }; "                \
    "unless ($@) { "                                    \
    "    $term = new Term::ReadLine 'new_mini_epn'; "   \
    "} else { "                                         \
    "    warn qq(Install Term::ReadLine for arrow key access to history, filename completion etc.); " \
    "} "                                                \
                                                        \
    "$OUT = $term->OUT "                                \
    "    if defined($term); "                           \
    "$prompt = 'plugin command line: '; "

#define MAX_INPUT_CHARS   1024


Function Documentation

void deinit_embedded_perl ( void   ) 

char* get_command_line ( void   ) 

void init_embedded_perl ( void   ) 

void init_term_readline ( void   ) 

int main ( int  argc,
char **  argv,
char **  env 
)

SV* my_eval_pv ( char *  pv  ) 

void run_plugin ( char *  command_line  ) 


Variable Documentation

PerlInterpreter* my_perl = NULL [static]


Generated on Wed Mar 30 17:22:22 2011 for icinga-core by  doxygen 1.4.7