From 9a69be89a34798208eff05b04756a992f35f5117 Mon Sep 17 00:00:00 2001 From: Andrei Karas Date: Sun, 9 Nov 2014 22:33:48 +0300 Subject: Fix HPM hook generation script for support new interfaces. --- tools/HPMHookGen/HPMHookGen.pl | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) 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//; } -- cgit v1.2.3-70-g09d2