/* mod_iface.c: perlscript module interface
 *
 * Copyright (C) 2002, 2003, 2004 Eggheads Development Team
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License
 * as published by the Free Software Foundation; either version 2
 * of the License, or (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
 */

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

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

/* Stuff from perlscript.c. */
extern int perlscript_init();
extern int perlscript_destroy();
extern script_module_t my_script_interface;
extern char *real_perl_cmd(char *text);
extern event_owner_t perl_owner;

/* Log an error message. */
int log_error(char *msg)
{
	putlog(LOG_MISC, "*", _("Perl error: %s"), msg);
	return(0);
}

/* A stub for the .perl command. */
static int party_perl(partymember_t *p, char *nick, user_t *u, char *cmd, char *text)
{
	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 bind_list_t my_party_cmds[] = {
	{"n", "perl", party_perl},
	{0}
};

static int perlscript_close(int why)
{
	bind_rem_list("party", my_party_cmds);

	/* Destroy interpreter. */
	perlscript_destroy();

	script_unregister_module(&my_script_interface);

	return(0);
}

EXPORT_SCOPE int perlscript_LTX_start(egg_module_t *modinfo);

int perlscript_LTX_start(egg_module_t *modinfo)
{
	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);
}