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
|
#!/bin/sh
set -e
. ../../dttools/test/test_runner_common.sh
. ./chirp-common.sh
c="./hostport.$PPID"
ticket=my.ticket
perl=${CCTOOLS_PERL}
check_needed()
{
[ -n "${perl}" ] || return 1
command -v openssl >/dev/null 2>&1
}
prepare()
{
chirp_start local --auth=ticket
echo "$hostport" > "$c"
return 0
}
run()
{
if ! [ -s "$c" ]; then
return 0
fi
hostport=$(cat "$c")
chirp -d all -a unix "$hostport" ticket_create -output "$ticket" -bits 1024 -duration 86400 -subject unix:`whoami` / write
PERL5LIB="$(pwd)/../src/bindings/perl" ${perl} ../src/bindings/perl/chirp_perl_example.pl $hostport $ticket
return 0
}
clean()
{
chirp_clean
rm -f "$c" "$ticket"
return 0
}
dispatch "$@"
# vim: set noexpandtab tabstop=4:
|