File: 740

package info (click to toggle)
pcp 7.1.0-1
  • links: PTS
  • area: main
  • in suites: forky, sid
  • size: 252,748 kB
  • sloc: ansic: 1,483,656; sh: 182,366; xml: 160,462; cpp: 83,813; python: 24,980; perl: 18,327; yacc: 6,877; lex: 2,864; makefile: 2,738; awk: 165; fortran: 60; java: 52
file content (84 lines) | stat: -rwxr-xr-x 1,665 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
#!/bin/sh
# PCP QA Test No. 740
# Exercise transfer of pid, uid, gid from client to PMDA
# when using Unix domain sockets.
#
# Copyright (c) 2013 Red Hat.
#

seq=`basename $0`
echo "QA output created by $seq"

# get standard environment, filters and checks
. ./common.product
. ./common.filter
. ./common.check

_get_libpcp_config
$unix_domain_sockets || _notrun "No unix domain socket support available"

status=1	# failure is the default!
trap "cd $here; rm -rf $tmp.*; exit \$status" 0 1 2 3 15

rm -f $seq.out
case $PCP_PLATFORM
in
    darwin)
	ln $seq.out.darwin $seq.out || exit 1
	;;
    *)
	ln $seq.out.default $seq.out || exit 1
	;;
esac

_filter()
{
    grep -i attribute | \
    sed \
	-e "s/processid=$pid/processid=PID/" \
	-e '/processid=/{
/processid=PID/!d
}' \
	-e "s/groupid=$gid/groupid=GID/" \
	-e '/groupid=/{
/groupid=GID/!d
}' \
	-e "s/userid=$uid/userid=UID/" \
	-e '/userid=/{
/userid=UID/!d
}' \
	-e '/ctx=[0-9][0-9]*/s//ctx=N/' \
	-e '/pmdasample([0-9][0-9]*)/s//pmdasample(PID)/' \
	-e 's/^\[[A-Z].. [A-Z]..  *[0-9][0-9]* ..:..:..]/[DATETIME]/'
}

# real QA test starts here
if ! _service pmcd restart >/dev/null 2>&1; then _exit 1; fi
_wait_for_pmcd || _exit 1

# store to enable verbose attribute diagnostics
pmstore sample.control "auth"

# let pmdasample complete setup
for i in 1 2 3 4 5 6 7 8 9 10
do
    [ -f $PCP_LOG_DIR/pmcd/sample.log ] && break
    pmsleep 0.5
done
pmsleep 0.5

# unix domain fetch (with attribute transfer)
pminfo -h unix: sample.long.one &
pid=$!
uid=`id -u`
gid=`id -g`
wait $!

cat $PCP_LOG_DIR/pmcd/sample.log \
| tee -a $seq_full \
| _filter
pmstore sample.control ""

# success, all done
status=0
exit