Testsuite: revert some of the modernish Perl constructs
[exim.git] / test / aux-fixed / showenv
1 #! /bin/sh
2
3 # This script outputs certain information about the environment, for use when
4 # testing pipe transports.
5
6 cmd=/usr/xpg4/bin/id
7 [ -x $cmd ] || cmd=id
8 name=`$cmd -un`
9
10 echo Test pipe script
11 echo Running as: $name
12 echo ------------------
13 echo Args:
14 while [ "$1" != "" ]; do
15   echo "  $1"
16   shift
17 done
18 echo ----------current-----------
19 pwd
20 echo ----------env-----------
21 echo A=$A
22 echo B=$B
23 echo C=$C
24 echo COLON=$COLON
25 echo DOMAIN=$DOMAIN
26 echo HOME=$HOME
27 echo LOCAL_PART=$LOCAL_PART
28 echo LOCAL_PART_PREFIX=$LOCAL_PART_PREFIX
29 echo LOCAL_PART_SUFFIX=$LOCAL_PART_SUFFIX
30 echo LOGNAME=$LOGNAME
31 echo ME=$ME
32 echo MESSAGE_ID=$MESSAGE_ID
33 echo PATH=$PATH
34 echo QUALIFY_DOMAIN=$QUALIFY_DOMAIN
35 echo RECIPIENT=$RECIPIENT
36 echo SENDER=$SENDER
37 echo SHELL=$SHELL
38 echo USER=$USER
39 echo ----------cat-----------
40 cat
41 echo ------------------
42