From 0d342f0aee3f2f800e486c0051dabe718a7b2841 Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Wed, 23 Mar 2011 11:14:27 +0100
Subject: I don't like nxhtml

---
 emacs.d/nxhtml/tests/in/question49234.sh | 41 --------------------------------
 1 file changed, 41 deletions(-)
 delete mode 100644 emacs.d/nxhtml/tests/in/question49234.sh

(limited to 'emacs.d/nxhtml/tests/in/question49234.sh')

diff --git a/emacs.d/nxhtml/tests/in/question49234.sh b/emacs.d/nxhtml/tests/in/question49234.sh
deleted file mode 100644
index 3596046..0000000
--- a/emacs.d/nxhtml/tests/in/question49234.sh
+++ /dev/null
@@ -1,41 +0,0 @@
-#!/bin/ksh
-. /bin/shared/.mkt.cfg
-
-
-STORE_TMP=/tmp/stores.txt
-cd /spool/xml
-
-rm -f $STORE_TMP
-
-bteq << EOF
-.SESSIONS 1
-.LOGON $UserId,$Password;
-
-.EXPORT DATA FILE "$STORE_TMP"
-select division_id,store_id,
-trim(store)||' '||trim(store_addr_line2_txt)||', '||
-trim(store_city)
-from stores
-where status_id='A'
- and division_id in (517,1920,2445)
-order by division_id,store_city,store_id;
-
-.EXIT 0
-EOF
-
-perl <<EOF > $1
-print qq(<?xml version="1.0" encoding="utf-8"?>\n<stores>);
-open IN, '<$STORE_TMP';
-while (read IN,\$info, 12) {
- my (\$div, \$s) = unpack 'x2 i i', \$info;  # read binary nums
- \$_ = <IN>;   # Read store name
- chop;     # Remove newline
- s/(\w+)/\u\L\$1/g; # Title case
- s/&/&amp;/g;  # Fix ampersands
- s/"/&quot;/g; # Fix quotes
- printf qq(<s d="%02d" i="%d" n="%s"/>\n),\$div,\$s,\$_;
-}
-print "</stores>";
-EOF
-
-rm $STORE_TMP
-- 
cgit v1.2.3-54-g00ecf