perl quests calling c functions

[m0oni9]

One of the problems with calling a perl quest is that once the script is entered, it lacks the ability to interact with the server that called it. I have a way to fix this, but before I go through the trouble of typing it all out, I'd like to hear feedback.

The basic rundown is this:

1. Create the glue code in c/c++ to tie the zone server and perl together.
2. Create a shared library and a perl module to access it.

Here's one test script I've been using:

use Mytest;

sub EVENT_SAY {
  if ($text =~ /Hail/) {
    quest::say("Me hopes you gots yer club.");
    if (&Mytest::hasItem($charid, 6621)) {
      quest::say("HAR HAR YOU GOTS IT!");
    }
    else
    {
      quest::say("Dat tew BAD. Yew gots no clubs!");
    }
  }
}

BTW, there is also a new exported variable in this example, $charid.

What I'd like to know is if someone (Eglin?) is already working on this, or has a better way to do it. Anyway, if you want more info or not, let me know.