chiark / gitweb /
get-var: Remove. I think this used to be part of the public_html build
authorColin Watson <cjwatson@chiark.greenend.org.uk>
Thu, 23 Oct 2003 16:20:27 +0000 (16:20 +0000)
committerColin Watson <cjwatson@chiark.greenend.org.uk>
Thu, 23 Oct 2003 16:20:27 +0000 (16:20 +0000)
process in some evil way back when it used SSI, but it hasn't been for a
long time.

get-var [deleted file]

diff --git a/get-var b/get-var
deleted file mode 100755 (executable)
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 (<>);
-}