modules/perlscript/mod_iface.c File Reference

#include <stdio.h>
#include <stdlib.h>
#include <eggdrop/eggdrop.h>

Go to the source code of this file.

Functions
int	perlscript_init ()
int	perlscript_destroy ()
char *	real_perl_cmd (char *text)
int	log_error (char *msg)
static int	party_perl (partymember_t *p, char *nick, user_t *u, char *cmd, char *text)
static int	perlscript_close (int why)
EXPORT_SCOPE int	perlscript_LTX_start (egg_module_t *modinfo)
Variables
static const char	rcsid [] = "$Id: mod_iface.c,v 1.19 2005-12-28 17:27:31 sven Exp $"
script_module_t	my_script_interface
event_owner_t	perl_owner
static bind_list_t	my_party_cmds []

---

Function Documentation

int log_error

(

char *

msg

)

Definition at line 36 of file mod_iface.c.

References _, LOG_MISC, and putlog().

Referenced by my_load_script(), and my_perl_callbacker().

{
  putlog(LOG_MISC, "*", _("Perl error: %s"), msg);
  return(0);
}

static int party_perl	(	partymember_t *	p,
		char *	nick,
		user_t *	u,
		char *	cmd,
		char *	text
	)			[static]

Definition at line 43 of file mod_iface.c.

References _, BIND_RET_LOG, egg_isowner(), user::handle, partymember_write(), and real_perl_cmd().

{
  char *retval;

  /* You must be owner to use this command. */
  if (!u || !egg_isowner(u->handle)) {
    partymember_write(p, _("Sorry, you must be a permanent owner to use this command."), -1);
    return(BIND_RET_LOG);
  }

  if (!text) {
    partymember_write(p, _("Syntax: .perl <perlexpression>"), -1);
    return(0);
  }

  retval = real_perl_cmd(text);
  partymember_write(p, retval, -1);
  free(retval);
  return(0);
}

static int perlscript_close

(

int

why

)

[static]

Definition at line 69 of file mod_iface.c.

References bind_rem_list(), perlscript_destroy(), and script_unregister_module().

Referenced by perlscript_LTX_start().

{
  bind_rem_list("party", my_party_cmds);

  /* Destroy interpreter. */
  perlscript_destroy();

  script_unregister_module(&my_script_interface);

  return(0);
}

int perlscript_destroy

(

)

Definition at line 539 of file perlscript.c.

References ginterp.

Referenced by perlscript_close().

{
  PL_perl_destruct_level = 1;
  perl_destruct(ginterp);
  perl_free(ginterp);
  return(0);
}

int perlscript_init

(

)

Definition at line 529 of file perlscript.c.

References ginterp, init_xs_stuff(), and NULL.

Referenced by perlscript_LTX_start().

{
  char *embedding[] = {"", "-e", "0"};

  ginterp = perl_alloc();
  perl_construct(ginterp);
  perl_parse(ginterp, init_xs_stuff, 3, embedding, NULL);
  return(0);
}

int perlscript_LTX_start

(

egg_module_t *

modinfo

)

Definition at line 83 of file mod_iface.c.

References egg_module::author, bind_add_list(), egg_module::close_func, egg_module::description, event_owner_b::module, egg_module::name, perlscript_close(), perlscript_init(), script_playback(), script_register_module(), and egg_module::version.

{
  perl_owner.module = modinfo;

  modinfo->name = "perlscript";
  modinfo->author = "eggdev";
  modinfo->version = "1.0.0";
  modinfo->description = "provides perl scripting support";
  modinfo->close_func = perlscript_close;

  /* Initialize interpreter. */
  perlscript_init();

  script_register_module(&my_script_interface);
  script_playback(&my_script_interface);

  bind_add_list("party", my_party_cmds);
  return(0);
}

char* real_perl_cmd

(

char *

text

)

Definition at line 504 of file perlscript.c.

References egg_mprintf().

Referenced by party_perl().

{
  SV *result;
  char *msg, *retval;
  int len;

  result = eval_pv(text, FALSE);
  if (SvTRUE(ERRSV)) {
    msg = SvPV(ERRSV, len);
    retval = egg_mprintf("Perl error: %s", msg);
  }
  else {
    msg = SvPV(result, len);
    retval = egg_mprintf("Perl result: %s\n", msg);
  }

  return(retval);
}

---

Variable Documentation

bind_list_t my_party_cmds[] [static]

Initial value:

 {
  {"n", "perl", party_perl},
  {0}
}

Definition at line 64 of file mod_iface.c.

script_module_t my_script_interface

Definition at line 50 of file perlscript.c.

event_owner_t perl_owner

Definition at line 58 of file perlscript.c.

const char rcsid[] = "$Id: mod_iface.c,v 1.19 2005-12-28 17:27:31 sven Exp $" [static]

Definition at line 21 of file mod_iface.c.