From cd4a12a1ee80b3515551ba4a19fc0c71e4af3596 Mon Sep 17 00:00:00 2001
From: Chris Palmer <palmer@tabroom.com>
Date: Mon, 13 Nov 2023 21:03:57 -0500
Subject: [PATCH] Better deploy script that does not actually fail

---
 doc/utility/deploy | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/doc/utility/deploy b/doc/utility/deploy
index f198d080f8..b1dafcd5fb 100755
--- a/doc/utility/deploy
+++ b/doc/utility/deploy
@@ -1,9 +1,7 @@
 #!/usr/bin/perl -w
 
-use DateTime;
-
 my @prod_servers = ("tabroom-www1", "tabroom-www2");
-my $now = DateTime->now;
+my $now = `/bin/date`;
 
 foreach my $server (@prod_servers) {
 	print "\n\nDEPLOYING MASON TO ".$server." at $now \n\n";
@@ -14,7 +12,7 @@ foreach my $server (@prod_servers) {
 	print "\n\n";
 
 	print "\n\nDEPLOYING INDEXCARDS TO ".$server." at $now \n\n";
-	my $result = `ssh tabroom\@$server \"cd /www/indexcards; git pull" `;
+	$result = `ssh tabroom\@$server \"cd /www/indexcards; git pull" `;
 	chomp $result;
 
 	if ($result eq "Already up to date.") {