From 7fa2f50e2953afba6747ef216fa54cac6ebc7173 Mon Sep 17 00:00:00 2001
From: Colin Watson <cjwatson@chiark.greenend.org.uk>
Date: Thu, 23 Oct 2003 16:20:27 +0000
Subject: [PATCH] get-var: Remove. I think this used to be part of the
 public_html build process in some evil way back when it used SSI, but it
 hasn't been for a long time.

---
 get-var | 20 --------------------
 1 file changed, 20 deletions(-)
 delete mode 100755 get-var

diff --git a/get-var b/get-var
deleted file mode 100755
index 9b8f930..0000000
--- a/get-var
+++ /dev/null
@@ -1,20 +0,0 @@
-#! /usr/bin/perl -wn
-BEGIN {
-  unless (defined ($var = shift)) {
-    print STDERR "Usage: $0 var-name\n";
-    exit 1;
-  }
-}
-if (/^\Q$var\E=/) {
-  s/^\Q$var\E=//;
-  print, last unless /^'/;
-  do {
-    $quotes = (grep /'/g, (split //, $_)) % 3;
-    $inside = $quotes ... $quotes;
-    s/^'// if $inside == 1;
-    s/'$// if $quotes == 2 || $inside =~ /E0$/;
-    s/'\\''/'/g;
-    print;
-    last if $quotes == 2 || $inside =~ /E0$/;
-  } while (<>);
-}
-- 
2.30.2