From: Colin Watson <cjwatson@chiark.greenend.org.uk>
Date: Thu, 23 Oct 2003 16:20:27 +0000 (+0000)
Subject: get-var: Remove. I think this used to be part of the public_html build
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~cjwatson/git?p=bin.git;a=commitdiff_plain;h=7fa2f50e2953afba6747ef216fa54cac6ebc7173

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.
---

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 (<>);
-}