/etc/dotlrn/install/functions.sh is in dotlrn 2.5.0+dfsg2-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
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 | #!/bin/sh
# Access config parameters in the TCL file through this function
get_config_param () {
echo "source $config_file; puts -nonewline [set $1]" | tclsh
}
create_override_config_file () {
server=$1
config_file=$2
override_config_file=/tmp/config-$server-$$.tcl
# Only write the source_config_file if this hasn't already been done
if [ ! -a $override_config_file ]; then
echo "set server $server" > $override_config_file
cat $config_file | egrep -v '^[[:space:]]*set[[:space:]]+server[[:space:]]+' >> $override_config_file
export config_file=$override_config_file
fi
}
# present an interactive continue prompt.
# Quit the script if user chooses no.
prompt_continue () {
interactive=$1
if [ "$interactive" = "yes" ]; then
echo "Continue? (y/n)"
read continue
if [ "$continue" = "n" ]; then
echo "$0: exiting on users request"
exit
fi
fi
}
# convert y, Y, t, and T to true and other values to false
parameter_true () {
case "$1" in
[yY]*|[tT]*)
true
;;
*)
false
;;
esac
}
# peter_marklund/lars: ps|grep for pid of process using full path of executable
grep_for_pid(){
echo `ps auwx | grep $1 | grep -v grep | awk '{print $2}'`
}
|