summaryrefslogtreecommitdiff
path: root/tools/HPMHookGen
diff options
context:
space:
mode:
authorAndrei Karas <akaras@inbox.ru>2014-11-09 22:33:48 +0300
committerAndrei Karas <akaras@inbox.ru>2014-11-15 11:47:30 +0300
commit9a69be89a34798208eff05b04756a992f35f5117 (patch)
treecd65208036e8ffb8eecd9024e450f3a630bd44db /tools/HPMHookGen
parentc60c9292886f436eb12d4042a05af1e462705e3d (diff)
downloadhercules-9a69be89a34798208eff05b04756a992f35f5117.tar.gz
hercules-9a69be89a34798208eff05b04756a992f35f5117.tar.bz2
hercules-9a69be89a34798208eff05b04756a992f35f5117.tar.xz
hercules-9a69be89a34798208eff05b04756a992f35f5117.zip
Fix HPM hook generation script for support new interfaces.
Diffstat (limited to 'tools/HPMHookGen')
-rwxr-xr-xtools/HPMHookGen/HPMHookGen.pl7
1 files changed, 6 insertions, 1 deletions
diff --git a/tools/HPMHookGen/HPMHookGen.pl b/tools/HPMHookGen/HPMHookGen.pl
index 71bd8f245..57e50e0b6 100755
--- a/tools/HPMHookGen/HPMHookGen.pl
+++ b/tools/HPMHookGen/HPMHookGen.pl
@@ -3,7 +3,8 @@
# Copyright (c) Hercules Dev Team, licensed under GNU GPL.
# See the LICENSE file
-use strict;
+# disabled strict because it show warning and failing
+#use strict;
use warnings;
use XML::Simple;
@@ -272,6 +273,8 @@ foreach my $file (@files) { # Loop through the xml files
$key = "bg";
} elsif ($key =~ /guild_storage/) {
$key = "gstorage";
+ } elsif ($key =~ /inter_homunculus/) { # to avoid replace to homun
+ $key = "inter_homunculus";
} elsif ($key =~ /homunculus/) {
$key = "homun";
} elsif ($key =~ /irc_bot/) {
@@ -280,6 +283,8 @@ foreach my $file (@files) { # Loop through the xml files
$key = "logs";
} elsif ($key =~ /pc_groups_interface/) {
$key = "pcg";
+ } elsif ($key =~ /char_interface/) {
+ $key = "chr";
} else {
$key =~ s/_interface//;
}