From cc48058dfc9130525c099b676ca8a89faaa90b58 Mon Sep 17 00:00:00 2001
From: Timo Benk <benk@b1-systems.de>
Date: Tue, 5 Apr 2016 11:40:56 +0200
Subject: [PATCH] [backend] bs_publish: unpublished hook added

---
 src/backend/bs_publish | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/src/backend/bs_publish b/src/backend/bs_publish
index 0e1a9a8f6bb..24e086b7f0b 100755
--- a/src/backend/bs_publish
+++ b/src/backend/bs_publish
@@ -2135,6 +2135,23 @@ publishprog_done:
     }
   }
 
+  # support for regex usage in $BSConfig::unpublishedhook
+  my $unpublish_prp = $prp;
+  if ($BSConfig::unpublishedhook_use_regex || $BSConfig::unpublishedhook_use_regex) {
+    for my $key (sort {$b cmp $a} keys %{$BSConfig::unpublishedhook}) {
+      if ($prp =~ /^$key/) {
+        $unpublish_prp = $key;
+        last;
+      }
+    }
+  }
+  if ($BSConfig::unpublishedhook && $BSConfig::unpublishedhook->{$unpublish_prp}) {
+    my $hook = $BSConfig::unpublishedhook->{$unpublish_prp};
+    $hook = [ $hook ] unless ref $hook;
+    print "    calling unpublished hook @$hook\n";
+    qsystem(@$hook, $prp, $extrep, @db_deleted) && warn("    @$hook failed: $?\n");
+  }
+
   # support for regex usage in $BSConfig::publishedhook
   my $publish_prp = $prp;
   if ($BSConfig::publishedhook_use_regex || $BSConfig::publishedhook_use_regex) {