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
|
# ==== Purpose ====
#
# The same as 'connection $rpl_connection_name', but it can also
# prints the connection name. The connection is printed if $rpl_debug
# is set, or if rpl_connection.inc is not called between two
# invocations of begin_include_file.inc/end_include_file.inc.
# Otherwise the connection name is not printed.
#
#
# ==== Usage ====
#
# --let $rpl_connection_name= master
# [--let $rpl_connection_silent= 1]
# [--let $rpl_debug= 1]
# --source include/rpl_connection.inc
#
# Parameters:
# $rpl_connection_name
# Name of the connection to connect to.
#
# $rpl_connection_silent
# Only print the connection name if $rpl_debug is set.
#
# $rpl_connection_silent_if_same
# Only print the connection name if it differs from the previous
# one, or if $rpl_debug is set.
#
# $rpl_debug
# By default, the connection name is printed only when this file
# is sourced from a top-level test script. If $rpl_debug is set,
# the connection name is also printed whenever auxiliary files
# like rpl_init.inc change connection.
if (!$rpl_connection_name)
{
--die ERROR IN TEST: you must set $rpl_connection_name before sourcing rpl_connection.inc
}
# Print connection name if $rpl_debug is set.
# Otherwise, if we are outside any include file: if silent don't
# print; if silent_if_same and connection does not change don't print;
# otherwise print.
--let $_rc_print_connection_name= 0
if (!$_include_file_depth)
{
--let $_rc_print_connection_name= 1
if ($rpl_connection_silent_if_same)
{
if ($rpl_connection_name == $CURRENT_CONNECTION)
{
--let $_rc_print_connection_name= 0
}
}
if ($rpl_connection_silent)
{
--let $_rc_print_connection_name= 0
}
}
if ($rpl_debug)
{
--let $_rc_print_connection_name= 1
}
if ($_rc_print_connection_name)
{
--echo [connection $rpl_connection_name]
}
--connection $rpl_connection_name
--let $rpl_connection_name=
|
