diff options
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 |