From 0bbfcf7adc18b90d43a960923c8bf67fc41bcaa3 Mon Sep 17 00:00:00 2001
From: hg <4683435+hgtw@users.noreply.github.com>
Date: Mon, 23 Oct 2023 23:39:19 -0400
Subject: [PATCH] [Perl] Reload perl quests on zone bootup (#3648)

Perl wasn't implementing quest interface's Init which is called by
Zone::Bootup. This should fix zone's that were in standby not using the
latest version of perl plugin scripts.
---
 zone/embparser.cpp | 5 +++++
 zone/embparser.h   | 1 +
 2 files changed, 6 insertions(+)

diff --git a/zone/embparser.cpp b/zone/embparser.cpp
index ebcbf6612..b76de0b82 100644
--- a/zone/embparser.cpp
+++ b/zone/embparser.cpp
@@ -205,6 +205,11 @@ PerlembParser::~PerlembParser()
 	safe_delete(perl);
 }
 
+void PerlembParser::Init()
+{
+	ReloadQuests();
+}
+
 void PerlembParser::ReloadQuests()
 {
 	try {
diff --git a/zone/embparser.h b/zone/embparser.h
index 6377e194a..1fdd8f7ca 100644
--- a/zone/embparser.h
+++ b/zone/embparser.h
@@ -133,6 +133,7 @@ public:
 
 	virtual void AddVar(std::string name, std::string val);
 	virtual std::string GetVar(std::string name);
+	virtual void Init() override;
 	virtual void ReloadQuests();
 	virtual uint32 GetIdentifier() { return 0xf8b05c11; }