diff options
author | Tom Willemsen | 2011-03-23 11:14:27 +0100 |
---|---|---|
committer | Tom Willemsen | 2011-03-23 11:14:27 +0100 |
commit | 0d342f0aee3f2f800e486c0051dabe718a7b2841 (patch) | |
tree | 1f55afabb8f4876dbe564f7ed5d8e573ddc78df3 /emacs.d/nxhtml/tests/in/question49234.sh | |
parent | d4510153b17625a3dd2f1852cc6392fc26efecf6 (diff) | |
download | dotfiles-0d342f0aee3f2f800e486c0051dabe718a7b2841.tar.gz dotfiles-0d342f0aee3f2f800e486c0051dabe718a7b2841.zip |
I don't like nxhtml
Diffstat (limited to 'emacs.d/nxhtml/tests/in/question49234.sh')
-rw-r--r-- | emacs.d/nxhtml/tests/in/question49234.sh | 41 |
1 files changed, 0 insertions, 41 deletions
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/&/&/g; # Fix ampersands - s/"/"/g; # Fix quotes - printf qq(<s d="%02d" i="%d" n="%s"/>\n),\$div,\$s,\$_; -} -print "</stores>"; -EOF - -rm $STORE_TMP |