From 27eff56994e296d9c6991445c166420570dcd83e Mon Sep 17 00:00:00 2001
From: Iain C Docherty <iain@iain-docherty.com>
Date: Wed, 30 Mar 2016 15:33:21 -0400
Subject: [PATCH] Try to auto deploy pt and pt-reboot server code

---
 bin/deploy.pl | 20 +++++++++++++++++++-
 1 file changed, 19 insertions(+), 1 deletion(-)

diff --git a/bin/deploy.pl b/bin/deploy.pl
index 0003cba0..cdbb577e 100755
--- a/bin/deploy.pl
+++ b/bin/deploy.pl
@@ -156,7 +156,25 @@ END_TEXT
             # pull already done locally
         }
         when ('Lacuna-Server-Open') {
-            # pull already done locally
+            my $restart_server = 0;
+            # Reboot code
+            if ($branch eq "pt-reboot") {
+                chdir('/data/Lacuna-Server'');
+                system("git", "pull", "origin", "pt-reboot");
+                $restart_server = 1;
+            }
+
+            # Legacy code
+            elsif ($branch eq "pt") {
+                chdir('/data/Lacuna-Server-Open'');
+                system("git", "pull", "origin", "pt");
+                $restart_server = 1;
+            }
+
+            if ($restart_server) {
+                chdir('/data/Lacuna-Server-Private/bin');
+                system("./startqa.sh");
+            }
         }
         when ('Lacuna-Assets') {
             my $bucket = $branch_config->{bucket};
-- 
2.51.2