Go Back   EQEmulator Home > EQEmulator Forums > Archives > Archive::Development > Archive::Quests

Archive::Quests Archive area for Quests's posts that were moved here after an inactivity period of 90 days.

 
 
Thread Tools Display Modes
Prev Previous Post   Next Post Next
  #1  
Old 02-27-2004, 05:59 AM
smogo
Discordant
 
Join Date: Jan 2004
Location: 47
Posts: 339
Default perl quest testing addition

here is a small addition to variable displaying ( ala Lurker_005's default.pl). It allows to get ALL exported vars, including qglobals. It is dynamic, so no update should be needed when server changes, and also, it works with all quest files, not only default.pl

Add the following lines in EVENT_SAY :
Code:
   if ($text=~/allvars/i){
      my($pack, $filename, $line, $subr, $has_args, $want_array)=caller(0);

      #get all variables in caller's scope
      no strict 'refs';
      my $package;
        ($package=$subr) =~ s/::\w+// ;
        my $stash = *{$package . '::'}{HASH};
        my $n;
        foreach $n (keys %$stash) {
          my $fullname = $package . '::' . $n;
          if( defined $$fullname){
            $$n=${$fullname};
            quest::say("$n -> $$n (fully $fullname)\n");
          }
        }
   }
Then say 'allvars' to the target.

The output is a bit long, but could prove usefull
Reply With Quote
 


Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

   

All times are GMT -4. The time now is 09:06 PM.


 

Everquest is a registered trademark of Daybreak Game Company LLC.
EQEmulator is not associated or affiliated in any way with Daybreak Game Company LLC.
Except where otherwise noted, this site is licensed under a Creative Commons License.
       
Powered by vBulletin®, Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Template by Bluepearl Design and vBulletin Templates - Ver3.3