Ertuğrul Erata
GitHub
+138866
-138694
File diff suppressed because it is too large
Load Diff
@@ -1 +1 @@
|
|||||||
dc5632deff225beeaf6c964845071a0bef49d1f4
|
9b73d0676312cfc437701a07be601e1de84d5439
|
||||||
Binary file not shown.
@@ -1 +1 @@
|
|||||||
9e2556e56d6270bf5bd53f0bebf918c0d63f6ad7
|
4fc8a550c7626ff4b3aa6cb4a0bb501a23a62e04
|
||||||
@@ -0,0 +1,54 @@
|
|||||||
|
#!/usr/bin/python
|
||||||
|
# -*- coding: utf-8 -*-
|
||||||
|
#
|
||||||
|
# Licensed under the GNU General Public License, version 3.
|
||||||
|
# See the file http://www.gnu.org/licenses/gpl.txt
|
||||||
|
|
||||||
|
from pisi.actionsapi import shelltools
|
||||||
|
from pisi.actionsapi import pisitools
|
||||||
|
from pisi.actionsapi import autotools
|
||||||
|
from pisi.actionsapi import get
|
||||||
|
|
||||||
|
def setup():
|
||||||
|
pisitools.dosed("configure.ac", "-Werror")
|
||||||
|
pisitools.dosed("Makefile.am", "-Werror")
|
||||||
|
autotools.autoreconf("-vfi")
|
||||||
|
|
||||||
|
autotools.configure("--enable-sqlite \
|
||||||
|
--enable-pie \
|
||||||
|
--disable-docs \
|
||||||
|
--disable-publican \
|
||||||
|
--disable-crash \
|
||||||
|
--disable-silent-rules \
|
||||||
|
--docdir=/%s/%s \
|
||||||
|
--without-rpm" % (get.docDIR(), get.srcNAME()))
|
||||||
|
|
||||||
|
def build():
|
||||||
|
autotools.make()
|
||||||
|
|
||||||
|
def install():
|
||||||
|
autotools.rawInstall("DESTDIR=%s" % get.installDIR())
|
||||||
|
|
||||||
|
pisitools.dodir("/var/cache/systemtap")
|
||||||
|
pisitools.dodir("/run/systemtap")
|
||||||
|
pisitools.dodir("/var/log/stap-server")
|
||||||
|
pisitools.dodir("/etc/logrotate.d")
|
||||||
|
pisitools.dodir("/etc/stap-server/conf.d")
|
||||||
|
pisitools.dodir("/etc/systemtap/conf.d")
|
||||||
|
pisitools.dodir("/etc/systemtap/script.d")
|
||||||
|
|
||||||
|
pisitools.dobin("stap-prep")
|
||||||
|
|
||||||
|
pisitools.domove("/var/run/stap-server", "/run/")
|
||||||
|
pisitools.removeDir("var/run")
|
||||||
|
|
||||||
|
shelltools.copytree("testsuite", "%s/usr/share/systemtap" % get.installDIR())
|
||||||
|
|
||||||
|
pisitools.insinto("/etc/logrotate.d", "initscript/logrotate.stap-server", "stap-server")
|
||||||
|
pisitools.insinto("/etc/conf.d", "initscript/config.stap-server", "stap-server")
|
||||||
|
pisitools.insinto("/etc/systemtap", "initscript/config.systemtap", "config")
|
||||||
|
|
||||||
|
# Clean uprobes directory
|
||||||
|
#autotools.make("-C %s/usr/share/systemtap/runtime/uprobes clean" % get.installDIR())
|
||||||
|
|
||||||
|
pisitools.dodoc("COPYING", "HACKING", "INTERNALS", "README.*")
|
||||||
@@ -0,0 +1,31 @@
|
|||||||
|
#/usr/bin/python
|
||||||
|
|
||||||
|
import os
|
||||||
|
|
||||||
|
LOGFILE = "/var/log/stap-server/log"
|
||||||
|
|
||||||
|
permissions = {
|
||||||
|
"/usr/share/systemtap/runtime/uprobes" : ["0775", "root:stap-server"],
|
||||||
|
LOGFILE : ["0664", "stap-server:stap-server"],
|
||||||
|
}
|
||||||
|
|
||||||
|
# TODO
|
||||||
|
# If it does not already exist, as stap-server, generate the certificate
|
||||||
|
# used for signing and for ssl.
|
||||||
|
#if test ! -e ~stap-server/.systemtap/ssl/server/stap.cert; then
|
||||||
|
# runuser -s /bin/sh - stap-server -c %{_libexecdir}/%{name}/stap-gen-cert >/dev/null
|
||||||
|
# Authorize the certificate as a trusted ssl peer and as a trusted signer
|
||||||
|
# on the local host.
|
||||||
|
# %{_libexecdir}/%{name}/stap-authorize-cert ~stap-server/.systemtap/ssl/server/stap.cert %{_sysconfdir}/systemtap/ssl/client >/dev/null
|
||||||
|
# %{_libexecdir}/%{name}/stap-authorize-cert ~stap-server/.systemtap/ssl/server/stap.cert %{_sysconfdir}/systemtap/staprun >/dev/null
|
||||||
|
#fi
|
||||||
|
|
||||||
|
def postInstall(fromVersion, fromRelease, toVersion, toRelease):
|
||||||
|
if not os.path.exists(LOGFILE):
|
||||||
|
open(LOGFILE, "w").write("")
|
||||||
|
|
||||||
|
for _file, perms in permissions.items():
|
||||||
|
# The list above is general, some paths may not exist depending on the configuration
|
||||||
|
if os.path.exists(_file):
|
||||||
|
os.system("/bin/chown -R %s %s" % (perms[1], _file))
|
||||||
|
os.system("/bin/chmod %s %s" % (perms[0], _file))
|
||||||
@@ -0,0 +1,12 @@
|
|||||||
|
#!/bin/bash
|
||||||
|
#
|
||||||
|
# stap-server init.d script for the systemtap compile server
|
||||||
|
#
|
||||||
|
# chkconfig: - 00 99
|
||||||
|
# description: The systemtap compile server provides a centralized and secure \
|
||||||
|
# environment for compiling systemtap scripts.
|
||||||
|
# config: /etc/sysconfig/stap-server
|
||||||
|
# config: /etc/stap-server/conf.d
|
||||||
|
|
||||||
|
# Call the installed stap-server script.
|
||||||
|
STAP_USER=stap-server ${exec_prefix}/bin/stap-server "$@"
|
||||||
@@ -0,0 +1,749 @@
|
|||||||
|
#!/bin/bash
|
||||||
|
#
|
||||||
|
# systemtap Startup script for SystemTap scripts
|
||||||
|
#
|
||||||
|
# chkconfig: - 00 99
|
||||||
|
# description: SystemTap is a programmable kernel/application tracing tool.
|
||||||
|
# config: /etc/systemtap/config
|
||||||
|
# config: /etc/systemtap/conf.d
|
||||||
|
### BEGIN INIT INFO
|
||||||
|
# Provides: SystemTap scripts startup
|
||||||
|
# Required-Start: $local_fs
|
||||||
|
# Required-Stop: $local_fs
|
||||||
|
# Short-Description: Start and stop SystemTap scripts
|
||||||
|
# Description: SystemTap is a programmable kernel/application tracing tool.
|
||||||
|
### END INIT INFO
|
||||||
|
|
||||||
|
# Source function library.
|
||||||
|
if [ -f /etc/rc.d/init.d/functions ]; then
|
||||||
|
# Red Hat init functions
|
||||||
|
. /etc/rc.d/init.d/functions
|
||||||
|
else
|
||||||
|
# Default init functions
|
||||||
|
success () {
|
||||||
|
echo -n "OK"
|
||||||
|
}
|
||||||
|
failure () {
|
||||||
|
echo -n "FAILED"
|
||||||
|
}
|
||||||
|
fi
|
||||||
|
|
||||||
|
prog=systemtap
|
||||||
|
|
||||||
|
# Commands
|
||||||
|
STAP=${exec_prefix}/bin/stap
|
||||||
|
STAPRUN=${exec_prefix}/bin/staprun
|
||||||
|
UNAME=/bin/uname
|
||||||
|
LSMOD=/sbin/lsmod
|
||||||
|
|
||||||
|
# Path setup
|
||||||
|
SCRIPT_PATH=/etc/systemtap/script.d
|
||||||
|
CONFIG_PATH=/etc/systemtap/conf.d
|
||||||
|
CACHE_PATH=/var/cache/systemtap
|
||||||
|
STAT_PATH=/run/systemtap
|
||||||
|
TEMP_PATH=/tmp
|
||||||
|
LOG_FILE=/var/log/systemtap.log
|
||||||
|
|
||||||
|
# FAIL unless all scripts succeeded to run
|
||||||
|
PASSALL=yes
|
||||||
|
|
||||||
|
# Always follows script dependencies
|
||||||
|
RECURSIVE=no
|
||||||
|
|
||||||
|
# Automatically recompile scripts if caches are old or do not exist.
|
||||||
|
AUTOCOMPILE=yes
|
||||||
|
|
||||||
|
# Start these scripts by default. If omitted, all scripts are started.
|
||||||
|
DEFAULT_START=
|
||||||
|
|
||||||
|
# Allow cache only scripts
|
||||||
|
ALLOW_CACHEONLY=no
|
||||||
|
|
||||||
|
# Optional settings
|
||||||
|
CONFIG=/etc/systemtap/config
|
||||||
|
SCRIPTS=
|
||||||
|
KRELEASE=`uname -r`
|
||||||
|
OPT_RECURSIVE=
|
||||||
|
OPT_SCRIPTS=
|
||||||
|
OPTS=
|
||||||
|
OPT_ASSUMEYES=
|
||||||
|
|
||||||
|
echo_usage () {
|
||||||
|
echo $"Usage: $prog {start|stop|status|restart|compile|cleanup|condrestart|try-restart|reload|force-reload} [option]"
|
||||||
|
echo $"Options:"
|
||||||
|
echo $" -c configfile : specify config file"
|
||||||
|
echo $" -r kernelrelease: specify kernel release version"
|
||||||
|
echo $" -R : recursively dependency checking"
|
||||||
|
echo $" -y : answer yes for all questions."
|
||||||
|
echo $" script(s) : specify systemtap scripts"
|
||||||
|
}
|
||||||
|
|
||||||
|
#-----------------------------------------------------------------
|
||||||
|
# Helper functions
|
||||||
|
#-----------------------------------------------------------------
|
||||||
|
log () { # message
|
||||||
|
echo `LC_ALL=en date +"%b %e %T"`": $1" >> "$LOG_FILE"
|
||||||
|
}
|
||||||
|
clog () { # message [-n]
|
||||||
|
echo $2 "$1"
|
||||||
|
log "$1"
|
||||||
|
}
|
||||||
|
slog () { # message
|
||||||
|
logger "$1" # if syslogd is running, this message will be sent to syslog.
|
||||||
|
log "$1"
|
||||||
|
}
|
||||||
|
logex () { # command
|
||||||
|
eval log \"Exec: $@\"
|
||||||
|
"$@" >> "$LOG_FILE" 2>&1
|
||||||
|
return $?
|
||||||
|
}
|
||||||
|
do_warning () { # message
|
||||||
|
slog "Warning: $1"
|
||||||
|
warning "$1"
|
||||||
|
}
|
||||||
|
do_failure () { # message
|
||||||
|
slog "Error: $1"
|
||||||
|
failure "$1"
|
||||||
|
}
|
||||||
|
do_success () { # message
|
||||||
|
log "Pass: $1"
|
||||||
|
success "$1"
|
||||||
|
}
|
||||||
|
# Normalize options
|
||||||
|
check_bool () { # value
|
||||||
|
case $1 in
|
||||||
|
n|N|no|No|NO|0)
|
||||||
|
return 0;;
|
||||||
|
y|Y|yes|Yes|YES|1)
|
||||||
|
return 1;;
|
||||||
|
*)
|
||||||
|
return 2;;
|
||||||
|
esac
|
||||||
|
}
|
||||||
|
ask_yesno () { # message
|
||||||
|
local yn ret=2
|
||||||
|
[ "$OPT_ASSUMEYES" ] && return 1
|
||||||
|
while [ $ret -eq 2 ]; do
|
||||||
|
echo -n "$1 [y/N]: "
|
||||||
|
read yn
|
||||||
|
[ -z "$yn" ] && return 0
|
||||||
|
check_bool $yn
|
||||||
|
ret=$?
|
||||||
|
done
|
||||||
|
return $ret
|
||||||
|
}
|
||||||
|
|
||||||
|
#------------------------------------------------------------------
|
||||||
|
# Parameter parsing and setup options
|
||||||
|
#------------------------------------------------------------------
|
||||||
|
parse_args () { # arguments
|
||||||
|
while [ -n "$1" ]; do
|
||||||
|
case "$1" in
|
||||||
|
-c)
|
||||||
|
CONFIG=$2
|
||||||
|
shift 1
|
||||||
|
;;
|
||||||
|
-r)
|
||||||
|
KRELEASE=$2
|
||||||
|
shift 1
|
||||||
|
;;
|
||||||
|
-R)
|
||||||
|
OPT_RECURSIVE=1
|
||||||
|
;;
|
||||||
|
-y)
|
||||||
|
OPT_ASSUMEYES=1
|
||||||
|
;;
|
||||||
|
--)
|
||||||
|
;;
|
||||||
|
*)
|
||||||
|
OPT_SCRIPTS=$OPT_SCRIPTS\ $1
|
||||||
|
;;
|
||||||
|
esac
|
||||||
|
shift 1
|
||||||
|
done
|
||||||
|
}
|
||||||
|
|
||||||
|
CMD=$1
|
||||||
|
shift 1
|
||||||
|
OPTS=`getopt -s bash -u -o 'r:c:Ry' -- $@`
|
||||||
|
if [ $? -ne 0 ]; then
|
||||||
|
slog "Error: Argument parse error: $@"
|
||||||
|
failure $"parse error"
|
||||||
|
echo_usage
|
||||||
|
exit 3
|
||||||
|
fi
|
||||||
|
parse_args $OPTS
|
||||||
|
|
||||||
|
# Include configs
|
||||||
|
. "$CONFIG"
|
||||||
|
|
||||||
|
for f in "$CONFIG_PATH"/*.conf; do
|
||||||
|
if [ -f "$f" ]; then
|
||||||
|
. "$f"
|
||||||
|
fi
|
||||||
|
done
|
||||||
|
|
||||||
|
check_bool $PASSALL
|
||||||
|
PASSALL=$?
|
||||||
|
check_bool $RECURSIVE
|
||||||
|
RECURSIVE=$?
|
||||||
|
if [ "$OPT_RECURSIVE" ]; then # -r option overrides RECURSIVE.
|
||||||
|
RECURSIVE=1
|
||||||
|
fi
|
||||||
|
check_bool $AUTOCOMPILE
|
||||||
|
AUTOCOMPILE=$?
|
||||||
|
CACHE_PATH="$CACHE_PATH/$KRELEASE"
|
||||||
|
|
||||||
|
check_bool $ALLOW_CACHEONLY
|
||||||
|
ALLOW_CACHEONLY=$?
|
||||||
|
|
||||||
|
__get_all_scripts () {
|
||||||
|
local s
|
||||||
|
if [ $ALLOW_CACHEONLY -eq 1 ]; then
|
||||||
|
for s in "$CACHE_PATH"/*.ko; do
|
||||||
|
if [ -f "$s" ]; then
|
||||||
|
basename "$s" | sed s/\.ko$//g
|
||||||
|
fi
|
||||||
|
done
|
||||||
|
fi
|
||||||
|
for s in "$SCRIPT_PATH"/*.stp; do
|
||||||
|
if [ -f "$s" ]; then
|
||||||
|
basename "$s" | sed s/\.stp$//g
|
||||||
|
fi
|
||||||
|
done
|
||||||
|
}
|
||||||
|
|
||||||
|
get_all_scripts() {
|
||||||
|
__get_all_scripts | sort | uniq
|
||||||
|
}
|
||||||
|
|
||||||
|
if [ -z "$OPT_SCRIPTS" ]; then
|
||||||
|
SCRIPTS=`get_all_scripts | xargs`
|
||||||
|
RECURSIVE=1
|
||||||
|
else
|
||||||
|
SCRIPTS="$OPT_SCRIPTS"
|
||||||
|
fi
|
||||||
|
|
||||||
|
#------------------------------------------------------------------
|
||||||
|
# Main routine
|
||||||
|
#------------------------------------------------------------------
|
||||||
|
NR_FAILS=0
|
||||||
|
might_fail () { # message exitcode
|
||||||
|
if [ $PASSALL -eq 1 ]; then
|
||||||
|
do_failure "$1"
|
||||||
|
echo
|
||||||
|
[ -z "$2" ] && exit 1
|
||||||
|
exit $2
|
||||||
|
else
|
||||||
|
log "Warning: "$1
|
||||||
|
NR_FAILS=$((NR_FAILS+1))
|
||||||
|
return 0
|
||||||
|
fi
|
||||||
|
}
|
||||||
|
might_success () { # message
|
||||||
|
if [ $NR_FAILS -ne 0 ]; then
|
||||||
|
log "Warning: $NR_FAILS failure occurred."
|
||||||
|
do_warning "$1"
|
||||||
|
else
|
||||||
|
do_success "$1"
|
||||||
|
fi
|
||||||
|
return 0
|
||||||
|
}
|
||||||
|
|
||||||
|
get_all_runnings () {
|
||||||
|
local f
|
||||||
|
for f in "$STAT_PATH"/*; do
|
||||||
|
if [ -f "$f" ]; then
|
||||||
|
basename "$f"
|
||||||
|
fi
|
||||||
|
done
|
||||||
|
}
|
||||||
|
|
||||||
|
get_daemon_pid () { # script
|
||||||
|
cat "$STAT_PATH/$1"
|
||||||
|
}
|
||||||
|
|
||||||
|
# Check whether a script is running. Returns:
|
||||||
|
# 0: running
|
||||||
|
# 4: running, but no pidfile
|
||||||
|
# 3: not running
|
||||||
|
# 1: not running, but pidfile remains
|
||||||
|
check_running () { # script
|
||||||
|
local m f
|
||||||
|
f="$STAT_PATH/$1"
|
||||||
|
m=`$LSMOD | grep "^$1 "`
|
||||||
|
if [ -n "$m" ]; then
|
||||||
|
[ -f "$f" ] && return 0 # running
|
||||||
|
return 4 # another script is running
|
||||||
|
else
|
||||||
|
[ -f "$f" ] && return 1 # dead, but pidfile remains
|
||||||
|
return 3 # dead
|
||||||
|
fi
|
||||||
|
}
|
||||||
|
|
||||||
|
# check whether a script cache need to be updated.
|
||||||
|
check_cache () { # script opts
|
||||||
|
local s tmp tmp2
|
||||||
|
s=$1; shift 1
|
||||||
|
[ ! -f "$CACHE_PATH/$s.ko" -o ! -f "$CACHE_PATH/$s.opts" ] && return 1
|
||||||
|
if [ $ALLOW_CACHEONLY -ne 1 -o -f "$SCRIPT_PATH/$s.stp" ]; then
|
||||||
|
[ "$SCRIPT_PATH/$s.stp" -nt "$CACHE_PATH/$s.ko" ] && return 2
|
||||||
|
fi
|
||||||
|
tmp=`head -n 1 "$CACHE_PATH/$s.opts"`
|
||||||
|
tmp2=`$UNAME -a`
|
||||||
|
[ "$tmp" != "$tmp2" ] && return 3
|
||||||
|
tmp=`tail -n 1 "$CACHE_PATH/$s.opts"`
|
||||||
|
tmp2="$*"
|
||||||
|
[ "$tmp" != "$tmp2" ] && return 4
|
||||||
|
return 0
|
||||||
|
}
|
||||||
|
|
||||||
|
stap_getopt () { # opts
|
||||||
|
local ret
|
||||||
|
# TODO: support quoted options
|
||||||
|
getopt -s bash -u \
|
||||||
|
-l 'kelf,kmap::,ignore-vmlinux,ignore-dwarf,vp:' \
|
||||||
|
-o 'hVvtp:I:e:o:R:r:m:kgPc:x:D:bs:uqwl:d:L:FS:' -- $@
|
||||||
|
ret=$?
|
||||||
|
[ $ret -ne 0 ] && slog "Failed to parse parameters. ($@)"
|
||||||
|
return $ret
|
||||||
|
}
|
||||||
|
|
||||||
|
get_compile_opts () { # opts
|
||||||
|
local opts o skip
|
||||||
|
opts=`stap_getopt $*`
|
||||||
|
[ $? -ne 0 ] && return 1
|
||||||
|
skip=0
|
||||||
|
for o in $opts; do
|
||||||
|
if [ $skip -ne 0 ]; then skip=0; continue; fi
|
||||||
|
case $o in
|
||||||
|
-p|-m|-r|-c|-x|-e|-s|-o|-S)
|
||||||
|
skip=1 ;;
|
||||||
|
-h|-V|-k|-F)
|
||||||
|
;;
|
||||||
|
*)
|
||||||
|
echo -n $o" " ;;
|
||||||
|
esac
|
||||||
|
done
|
||||||
|
}
|
||||||
|
|
||||||
|
get_run_opts () { # normalized_opts
|
||||||
|
local opts o show mode
|
||||||
|
opts=`stap_getopt $*`
|
||||||
|
[ $? -ne 0 ] && return 1
|
||||||
|
mode='-L'
|
||||||
|
show=0
|
||||||
|
for o in $opts; do
|
||||||
|
case $o in
|
||||||
|
-c|-x|-s|-o|-S)
|
||||||
|
[ $o == '-s' ] && o='-b'
|
||||||
|
[ $o == '-o' ] && mode='-D'
|
||||||
|
echo -n $o" "
|
||||||
|
show=1
|
||||||
|
;;
|
||||||
|
*)
|
||||||
|
if [ $show -ne 0 ]; then
|
||||||
|
echo -n $o" "
|
||||||
|
show=0
|
||||||
|
fi
|
||||||
|
;;
|
||||||
|
esac
|
||||||
|
done
|
||||||
|
echo -n $mode
|
||||||
|
}
|
||||||
|
|
||||||
|
prepare_cache_dir () {
|
||||||
|
if [ ! -d "$CACHE_PATH" ]; then
|
||||||
|
logex mkdir -p "$CACHE_PATH"
|
||||||
|
[ $? -ne 0 ] && return 1
|
||||||
|
fi
|
||||||
|
return 0
|
||||||
|
}
|
||||||
|
|
||||||
|
prepare_stat_dir () {
|
||||||
|
if [ ! -d "$STAT_PATH" ]; then
|
||||||
|
logex mkdir -p "$STAT_PATH"
|
||||||
|
[ $? -ne 0 ] && return 1
|
||||||
|
fi
|
||||||
|
return 0
|
||||||
|
}
|
||||||
|
|
||||||
|
compile_script () { # script checkcache
|
||||||
|
local opts f tmpdir ret
|
||||||
|
eval f="$SCRIPT_PATH/$1.stp"
|
||||||
|
if [ ! -f "$f" ]; then
|
||||||
|
if [ $ALLOW_CACHEONLY -eq 1 ]; then
|
||||||
|
clog "Warning: no script file($f). Use compiled cache."
|
||||||
|
return 0
|
||||||
|
else
|
||||||
|
clog "Error: no script file($f)."
|
||||||
|
return 1
|
||||||
|
fi
|
||||||
|
fi
|
||||||
|
|
||||||
|
eval opts=\$$1_OPT
|
||||||
|
opts=`get_compile_opts $opts`
|
||||||
|
[ $? -ne 0 ] && return 2
|
||||||
|
|
||||||
|
if [ "$2" = "check" ]; then
|
||||||
|
check_cache $1 $opts
|
||||||
|
[ $? -eq 0 ] && return 0 # already compiled
|
||||||
|
if [ $AUTOCOMPILE -eq 0 ]; then
|
||||||
|
slog "No valid cache for $1"
|
||||||
|
return 1
|
||||||
|
fi
|
||||||
|
fi
|
||||||
|
|
||||||
|
clog " Compiling $1 ... " -n
|
||||||
|
tmpdir=`mktemp -d -p "$TEMP_PATH" cache.XXXXXXXX`
|
||||||
|
if [ $? -ne 0 ]; then
|
||||||
|
clog "Failed to create temporary directory."
|
||||||
|
return 1
|
||||||
|
fi
|
||||||
|
pushd "$tmpdir" &> /dev/null
|
||||||
|
logex $STAP -m "$1" -p4 -r $KRELEASE $opts "$f"
|
||||||
|
ret=$?
|
||||||
|
if [ $ret -eq 0 ]; then
|
||||||
|
$UNAME -a > "$1.opts"
|
||||||
|
echo $opts >> "$1.opts"
|
||||||
|
logex mv "$1.ko" "$1.opts" "$CACHE_PATH/"
|
||||||
|
ret=$?
|
||||||
|
else
|
||||||
|
slog "Failed to compile script($1)."
|
||||||
|
fi
|
||||||
|
popd &> /dev/null
|
||||||
|
rm -rf $tmpdir
|
||||||
|
[ $ret -eq 0 ] && clog "done" || clog "error"
|
||||||
|
return $ret
|
||||||
|
}
|
||||||
|
|
||||||
|
# dependency resolver
|
||||||
|
__SORTED=
|
||||||
|
__follow_dependency () { # script requesters
|
||||||
|
local opts r reqs s ret
|
||||||
|
s=$1
|
||||||
|
shift 1
|
||||||
|
r=`echo \ $*\ | grep \ $s\ `
|
||||||
|
if [ -n "$r" ]; then
|
||||||
|
might_fail $"Dependency loop detected on $s"
|
||||||
|
return 1
|
||||||
|
fi
|
||||||
|
r=`echo \ $__SORTED\ | grep \ $s\ `
|
||||||
|
[ -n "$r" ] && return 0 # already listed up
|
||||||
|
eval reqs=\$${s}_REQ
|
||||||
|
if [ -n "$reqs" ]; then
|
||||||
|
for r in $reqs; do
|
||||||
|
__follow_dependency $r $s $*
|
||||||
|
ret=$?
|
||||||
|
if [ $ret -ne 0 ]; then
|
||||||
|
return $ret # if one of requires failed, we can't run this script.
|
||||||
|
fi
|
||||||
|
done
|
||||||
|
fi
|
||||||
|
echo -n "$s "
|
||||||
|
return 0
|
||||||
|
}
|
||||||
|
|
||||||
|
sort_dependency () { # scripts
|
||||||
|
local s r=0
|
||||||
|
__SORTED=
|
||||||
|
for s in $*; do
|
||||||
|
__SORTED="$__SORTED "`__follow_dependency $s`
|
||||||
|
[ $? -ne 0 ] && return 1
|
||||||
|
done
|
||||||
|
echo $__SORTED
|
||||||
|
return 0
|
||||||
|
}
|
||||||
|
|
||||||
|
start_script () { # script
|
||||||
|
local tmpdir s=$1 ret count=0
|
||||||
|
check_running $s
|
||||||
|
ret=$?
|
||||||
|
[ $ret -eq 0 ] && return 0 # already running
|
||||||
|
if [ $ret -eq 4 ]; then
|
||||||
|
clog "$s is dead, but another script is running."
|
||||||
|
return 4
|
||||||
|
fi
|
||||||
|
|
||||||
|
compile_script $s check
|
||||||
|
ret=$?
|
||||||
|
[ $ret -ne 0 ] && return $ret
|
||||||
|
|
||||||
|
eval opts=\$${s}_OPT
|
||||||
|
opts=`get_run_opts $opts`
|
||||||
|
[ $? -ne 0 ] && return 2
|
||||||
|
|
||||||
|
clog " Starting $1 ... " -n
|
||||||
|
tmpdir=`mktemp -d -p "$TEMP_PATH" cache.XXXXXXXX` # bz7097
|
||||||
|
if [ $? -ne 0 ]; then
|
||||||
|
clog "Failed to create temporary directory."
|
||||||
|
return 1
|
||||||
|
fi
|
||||||
|
pushd "$tmpdir" &> /dev/null
|
||||||
|
eval log \"Exec: $STAPRUN $opts $CACHE_PATH/$s.ko\"
|
||||||
|
$STAPRUN $opts "$CACHE_PATH/$s.ko" 2>> "$LOG_FILE" > ./pid
|
||||||
|
ret=$?
|
||||||
|
|
||||||
|
# When the staprun '-D' option (run in background as a daemon) is
|
||||||
|
# used, staprun detaches from the terminal and *then* prints the new
|
||||||
|
# pid. So, it is possible to check the ./pid file before it has
|
||||||
|
# been written. To avoid this, wait a bit (if necessary).
|
||||||
|
while [ $count -lt 10 ]; do
|
||||||
|
# when the file exists and has a size > 0, quit
|
||||||
|
[ -s ./pid ] && break
|
||||||
|
sleep 1
|
||||||
|
count=`expr $count + 1`
|
||||||
|
done
|
||||||
|
|
||||||
|
[ x`cat ./pid` = x ] && echo 0 > ./pid
|
||||||
|
if [ $ret -eq 0 ]; then
|
||||||
|
logex cp -f ./pid "$STAT_PATH/$s"
|
||||||
|
fi
|
||||||
|
popd &> /dev/null
|
||||||
|
rm -rf "$tmpdir"
|
||||||
|
[ $ret -eq 0 ] && clog "done" || clog "error"
|
||||||
|
return $ret
|
||||||
|
}
|
||||||
|
|
||||||
|
start () {
|
||||||
|
local start_scripts s ret
|
||||||
|
clog $"Starting $prog: " -n
|
||||||
|
|
||||||
|
start_scripts=$SCRIPTS
|
||||||
|
if [ -n "$DEFAULT_START" -a -z "$OPT_SCRIPTS" ]; then
|
||||||
|
start_scripts="$DEFAULT_START"
|
||||||
|
fi
|
||||||
|
|
||||||
|
if [ -z "$start_scripts" ]; then
|
||||||
|
do_warning $"No scripts exist."
|
||||||
|
return 5 # program is not installed
|
||||||
|
fi
|
||||||
|
|
||||||
|
prepare_stat_dir
|
||||||
|
if [ $? -ne 0 ]; then
|
||||||
|
do_failure $"Failed to make stat directory ($STAT_PATH)"
|
||||||
|
return 1
|
||||||
|
fi
|
||||||
|
prepare_cache_dir
|
||||||
|
if [ $? -ne 0 ]; then
|
||||||
|
do_failure $"Failed to make cache directory ($CACHE_PATH)"
|
||||||
|
return 1
|
||||||
|
fi
|
||||||
|
|
||||||
|
if [ $RECURSIVE -eq 1 ]; then
|
||||||
|
start_scripts=`sort_dependency $start_scripts`
|
||||||
|
if [ $? -ne 0 ]; then
|
||||||
|
do_failure $"Failed to sort dependency"
|
||||||
|
return 6 # program is not configured
|
||||||
|
fi
|
||||||
|
fi
|
||||||
|
for s in $start_scripts; do
|
||||||
|
start_script "$s"
|
||||||
|
ret=$?
|
||||||
|
if [ $ret -ne 0 ]; then
|
||||||
|
might_fail $"Failed to run \"$s\". ($ret)"
|
||||||
|
fi
|
||||||
|
done
|
||||||
|
might_success $"$prog startup"
|
||||||
|
return 0
|
||||||
|
}
|
||||||
|
|
||||||
|
stop_script () { # script
|
||||||
|
local p f count=0
|
||||||
|
|
||||||
|
f="$STAT_PATH/$1"
|
||||||
|
while [ $count -lt 10 ]; do
|
||||||
|
check_running "$1"
|
||||||
|
ret=$?
|
||||||
|
|
||||||
|
# If the module is isn't running, we're done.
|
||||||
|
[ $ret -eq 3 ] && return 0
|
||||||
|
# If the module isn't loaded but the pidfile remains, remove the
|
||||||
|
# old pidfile and return.
|
||||||
|
if [ $ret -eq 1 ]; then
|
||||||
|
rm -f $f
|
||||||
|
return 0
|
||||||
|
fi
|
||||||
|
|
||||||
|
# Try to either kill the stap process that is handling the
|
||||||
|
# module (which will cause the module to be unloaded) or use
|
||||||
|
# staprun to delete the module. (Note that staprun will only
|
||||||
|
# delete systemtap modules.)
|
||||||
|
p=`get_daemon_pid $1`
|
||||||
|
if [ $p -ne 0 ]; then
|
||||||
|
logex kill -TERM $p
|
||||||
|
else
|
||||||
|
logex $STAPRUN -d "$1"
|
||||||
|
fi
|
||||||
|
[ $? -ne 0 ] && return 1
|
||||||
|
|
||||||
|
# At this point the module should be unloaded, but the pidfile
|
||||||
|
# will still be present. If so, remove the pidfile and return.
|
||||||
|
# Otherwise, wait a bit for the module to unload and try again.
|
||||||
|
check_running "$1"
|
||||||
|
ret=$?
|
||||||
|
[ $ret -eq 3 ] && return 0
|
||||||
|
if [ $ret -eq 1 ]; then
|
||||||
|
rm -f $f
|
||||||
|
return 0
|
||||||
|
fi
|
||||||
|
sleep 1
|
||||||
|
count=`expr $count + 1`
|
||||||
|
done
|
||||||
|
|
||||||
|
do_failure $"Failed to stop script \"$1\" after $count attempts"
|
||||||
|
return 1
|
||||||
|
}
|
||||||
|
|
||||||
|
stop () {
|
||||||
|
local stop_scripts s sl=
|
||||||
|
clog $"Stopping $prog: " -n
|
||||||
|
stop_scripts=$SCRIPTS
|
||||||
|
[ -z "$OPT_SCRIPTS" ] && stop_scripts=`get_all_runnings`
|
||||||
|
if [ $RECURSIVE -eq 1 ]; then
|
||||||
|
stop_scripts=`sort_dependency $stop_scripts`
|
||||||
|
if [ $? -ne 0 ]; then
|
||||||
|
do_failure $"Failed to sort dependency"
|
||||||
|
return 6 # program is not configured
|
||||||
|
fi
|
||||||
|
fi
|
||||||
|
for s in $stop_scripts; do
|
||||||
|
sl="$s $sl"
|
||||||
|
done
|
||||||
|
for s in $sl; do
|
||||||
|
stop_script $s
|
||||||
|
[ $? -ne 0 ] && might_fail $"Failed to stop \"$s\". "
|
||||||
|
done
|
||||||
|
might_success $"$prog stopping "
|
||||||
|
return 0
|
||||||
|
}
|
||||||
|
|
||||||
|
rh_status () {
|
||||||
|
local status_scripts s pid ret r
|
||||||
|
status_scripts=$SCRIPTS
|
||||||
|
[ -z "$status_scripts" ] && status_scripts=`get_all_runnings`
|
||||||
|
ret=3
|
||||||
|
if [ -z "$status_scripts" ] ; then
|
||||||
|
echo "No systemtap scripts are present"
|
||||||
|
return $ret
|
||||||
|
fi
|
||||||
|
for s in $status_scripts; do
|
||||||
|
check_running $s
|
||||||
|
r=$?
|
||||||
|
[ $ret -ne 0 ] && ret=$r
|
||||||
|
case $r in
|
||||||
|
0)
|
||||||
|
pid=`get_daemon_pid $s`
|
||||||
|
[ $pid -ne 0 ] && pid="($pid)" || pid=
|
||||||
|
echo $"$s$pid is running..." ;;
|
||||||
|
1|3) echo $"$s is stopped" ;;
|
||||||
|
4) echo $"$s is dead, but another script is running.";;
|
||||||
|
esac
|
||||||
|
done
|
||||||
|
return $ret
|
||||||
|
}
|
||||||
|
|
||||||
|
rh_status_q () {
|
||||||
|
rh_status >/dev/null 2>&1
|
||||||
|
return $?
|
||||||
|
}
|
||||||
|
|
||||||
|
compile () {
|
||||||
|
local s ss
|
||||||
|
clog $"Compiling systemtap scripts: " -n
|
||||||
|
prepare_cache_dir
|
||||||
|
if [ $? -ne 0 ]; then
|
||||||
|
do_failure $"Failed to make cache directory ($CACHE_PATH)"
|
||||||
|
return 1
|
||||||
|
fi
|
||||||
|
for s in $SCRIPTS; do
|
||||||
|
ss="$ss "`ls "$CACHE_PATH/$s.ko" "$CACHE_PATH/$s.opts" 2> /dev/null`
|
||||||
|
done
|
||||||
|
ss=`echo -n $ss`
|
||||||
|
if [ "$ss" ]; then
|
||||||
|
clog "Updating caches: $ss"
|
||||||
|
ask_yesno "Do you really want to update above caches"
|
||||||
|
[ $? -eq 0 ] && return 0
|
||||||
|
fi
|
||||||
|
for s in $SCRIPTS; do
|
||||||
|
compile_script $s nocheck
|
||||||
|
[ $? -ne 0 ] && might_fail $"$s compilation failed "
|
||||||
|
done
|
||||||
|
might_success $"$prog compiled "
|
||||||
|
return 0
|
||||||
|
}
|
||||||
|
|
||||||
|
# Cleanup caches
|
||||||
|
cleanup () {
|
||||||
|
local s ss ret
|
||||||
|
clog $"Cleaning up systemtap scripts: " -n
|
||||||
|
if [ ! -d "$CACHE_PATH" ]; then
|
||||||
|
do_success "no cache"
|
||||||
|
return 0
|
||||||
|
fi
|
||||||
|
|
||||||
|
for s in $SCRIPTS; do
|
||||||
|
ss="$ss "`ls "$CACHE_PATH/$s.ko" "$CACHE_PATH/$s.opts" 2> /dev/null`
|
||||||
|
done
|
||||||
|
ss=`echo -n $ss`
|
||||||
|
if [ "$ss" ]; then
|
||||||
|
echo "Removing caches: $ss"
|
||||||
|
ask_yesno "Do you really want to remove above caches"
|
||||||
|
[ $? -eq 0 ] && return 0
|
||||||
|
for s in $SCRIPTS; do
|
||||||
|
logex rm -f "$CACHE_PATH/$s.ko" "$CACHE_PATH/$s.opts"
|
||||||
|
[ $? -ne 0 ] && might_fail $"failed to clean cache $s.ko"
|
||||||
|
done
|
||||||
|
might_success "done"
|
||||||
|
return 0
|
||||||
|
fi
|
||||||
|
}
|
||||||
|
|
||||||
|
# Restart scripts
|
||||||
|
function restart () {
|
||||||
|
stop
|
||||||
|
echo # we need a newline
|
||||||
|
start
|
||||||
|
return $?
|
||||||
|
}
|
||||||
|
|
||||||
|
RETVAL=0
|
||||||
|
|
||||||
|
case $CMD in
|
||||||
|
start)
|
||||||
|
start
|
||||||
|
RETVAL=$?
|
||||||
|
;;
|
||||||
|
stop)
|
||||||
|
stop
|
||||||
|
RETVAL=$?
|
||||||
|
;;
|
||||||
|
restart|force-reload|reload)
|
||||||
|
restart
|
||||||
|
RETVAL=$?
|
||||||
|
;;
|
||||||
|
status)
|
||||||
|
rh_status
|
||||||
|
exit $?
|
||||||
|
;;
|
||||||
|
compile)
|
||||||
|
compile
|
||||||
|
RETVAL=$?
|
||||||
|
;;
|
||||||
|
cleanup)
|
||||||
|
cleanup
|
||||||
|
RETVAL=$?
|
||||||
|
;;
|
||||||
|
condrestart|try-restart)
|
||||||
|
rh_status_q || exit 0
|
||||||
|
restart
|
||||||
|
RETVAL=$?
|
||||||
|
;;
|
||||||
|
*)
|
||||||
|
echo_usage
|
||||||
|
RETVAL=3
|
||||||
|
;;
|
||||||
|
esac
|
||||||
|
|
||||||
|
echo
|
||||||
|
exit $RETVAL
|
||||||
@@ -0,0 +1,10 @@
|
|||||||
|
--- ./runtime/linux/access_process_vm.h 2017-02-17 18:37:01.000000000 +0100
|
||||||
|
+++ /usr/share/systemtap/runtime/linux/access_process_vm.h 2017-08-09 11:47:50.332532411 +0200
|
||||||
|
@@ -4,6 +4,7 @@
|
||||||
|
* we copied and pasted it here. Fortunately, everything it calls is exported.
|
||||||
|
*/
|
||||||
|
#include <linux/pagemap.h>
|
||||||
|
+#include <linux/sched/mm.h>
|
||||||
|
#include <asm/cacheflush.h>
|
||||||
|
|
||||||
|
static int
|
||||||
@@ -0,0 +1,11 @@
|
|||||||
|
--- ./runtime/stp_utrace.c 2017-02-17 18:37:01.000000000 +0100
|
||||||
|
+++ /usr/share/systemtap/runtime/stp_utrace.c 2017-08-09 11:59:21.542501780 +0200
|
||||||
|
@@ -1105,7 +1105,7 @@
|
||||||
|
*/
|
||||||
|
spin_lock_irq(&target->sighand->siglock);
|
||||||
|
if (likely(task_is_stopped(target)))
|
||||||
|
- __set_task_state(target, TASK_TRACED);
|
||||||
|
+ set_current_state(TASK_TRACED);
|
||||||
|
spin_unlock_irq(&target->sighand->siglock);
|
||||||
|
} else if (utrace->resume > UTRACE_REPORT) {
|
||||||
|
utrace->resume = UTRACE_REPORT;
|
||||||
@@ -0,0 +1,2 @@
|
|||||||
|
d /run/stap-server 0755 root root
|
||||||
|
d /run/systemtap 0755 root root
|
||||||
@@ -0,0 +1,109 @@
|
|||||||
|
<?xml version="1.0" ?>
|
||||||
|
<!DOCTYPE PISI SYSTEM "http://www.pisilinux.org/projeler/pisi/pisi-spec.dtd">
|
||||||
|
<PISI>
|
||||||
|
<Source>
|
||||||
|
<Name>systemtap</Name>
|
||||||
|
<Homepage>http://sourceware.org/systemtap/</Homepage>
|
||||||
|
<Packager>
|
||||||
|
<Name>PisiLinux Community</Name>
|
||||||
|
<Email>admins@pisilinux.org</Email>
|
||||||
|
</Packager>
|
||||||
|
<License>GPLv2+</License>
|
||||||
|
<IsA>app:console</IsA>
|
||||||
|
<Summary>Instrumentation System</Summary>
|
||||||
|
<Description>systemtap is an instrumentation system for systems running Linux 2.6. Developers can write instrumentation to collect data on the operation of the system.</Description>
|
||||||
|
<Archive sha1sum="cd4482870015b9429f9945588ea8846d4ace20d1" type="targz">ftp://sourceware.org/pub/systemtap/releases/systemtap-3.2.tar.gz</Archive>
|
||||||
|
<BuildDependencies>
|
||||||
|
<Dependency>python-devel</Dependency>
|
||||||
|
<Dependency>sqlite-devel</Dependency>
|
||||||
|
<Dependency>readline-devel</Dependency>
|
||||||
|
<Dependency>ncurses-devel</Dependency>
|
||||||
|
<Dependency>libxml2-devel</Dependency>
|
||||||
|
<Dependency>json-c-devel</Dependency>
|
||||||
|
<Dependency>boost-devel</Dependency>
|
||||||
|
<Dependency>nss-devel</Dependency>
|
||||||
|
<Dependency>python-setuptools</Dependency>
|
||||||
|
</BuildDependencies>
|
||||||
|
<Patches>
|
||||||
|
</Patches>
|
||||||
|
</Source>
|
||||||
|
|
||||||
|
<Package>
|
||||||
|
<Name>systemtap</Name>
|
||||||
|
<RuntimeDependencies>
|
||||||
|
<Dependency>readline</Dependency>
|
||||||
|
<Dependency>sqlite</Dependency>
|
||||||
|
<Dependency>python</Dependency>
|
||||||
|
<Dependency>nspr</Dependency>
|
||||||
|
<Dependency>nss</Dependency>
|
||||||
|
<Dependency>elfutils</Dependency>
|
||||||
|
<Dependency>libgcc</Dependency>
|
||||||
|
</RuntimeDependencies>
|
||||||
|
<Files>
|
||||||
|
<Path fileType="config">/etc</Path>
|
||||||
|
<Path fileType="executable">/usr/bin</Path>
|
||||||
|
<Path fileType="library">/usr/lib</Path>
|
||||||
|
<Path fileType="man">/usr/share/man</Path>
|
||||||
|
<Path fileType="doc">/usr/share/doc</Path>
|
||||||
|
<Path fileType="data">/run/systemtap</Path>
|
||||||
|
<Path fileType="data">/run/stap-server</Path>
|
||||||
|
<Path fileType="data">/etc/logrotate.d</Path>
|
||||||
|
<Path fileType="data">/var/log/stap-server</Path>
|
||||||
|
<Path fileType="data">/var/cache/systemtap</Path>
|
||||||
|
<Path fileType="localedata">/usr/share/locale</Path>
|
||||||
|
<Path fileType="data">/usr/share/systemtap/tapset</Path>
|
||||||
|
<Path fileType="data">/usr/share/systemtap/runtime</Path>
|
||||||
|
<Path fileType="executable">/usr/libexec/systemtap</Path>
|
||||||
|
<Path fileType="config">/usr/lib/tmpfiles.d/systemtap.conf</Path>
|
||||||
|
<Path fileType="data">/usr/share/systemtap/examples</Path>
|
||||||
|
</Files>
|
||||||
|
<AdditionalFiles>
|
||||||
|
<AdditionalFile owner="root" permission="0644" target="/usr/lib/tmpfiles.d/systemtap.conf">tmpfiles.conf</AdditionalFile>
|
||||||
|
</AdditionalFiles>
|
||||||
|
<Provides>
|
||||||
|
<COMAR script="package.py">System.Package</COMAR>
|
||||||
|
</Provides>
|
||||||
|
</Package>
|
||||||
|
|
||||||
|
<Package>
|
||||||
|
<Name>systemtap-testsuite</Name>
|
||||||
|
<Summary>Testsuite allows testing of the entire SystemTap toolchain without having to rebuild from sources</Summary>
|
||||||
|
<RuntimeDependencies>
|
||||||
|
<Dependency release="current">systemtap</Dependency>
|
||||||
|
<Dependency release="current">systemtap-sdt-devel</Dependency>
|
||||||
|
</RuntimeDependencies>
|
||||||
|
<Files>
|
||||||
|
<Path fileType="data">/usr/share/systemtap/testsuite</Path>
|
||||||
|
</Files>
|
||||||
|
</Package>
|
||||||
|
|
||||||
|
<Package>
|
||||||
|
<Name>systemtap-sdt-devel</Name>
|
||||||
|
<Summary>Static probe support tools</Summary>
|
||||||
|
<RuntimeDependencies>
|
||||||
|
<Dependency release="current">systemtap</Dependency>
|
||||||
|
<Dependency>python-devel</Dependency>
|
||||||
|
<Dependency>sqlite-devel</Dependency>
|
||||||
|
<Dependency>readline-devel</Dependency>
|
||||||
|
<Dependency>ncurses-devel</Dependency>
|
||||||
|
<Dependency>libxml2-devel</Dependency>
|
||||||
|
<Dependency>json-c-devel</Dependency>
|
||||||
|
<Dependency>boost-devel</Dependency>
|
||||||
|
<Dependency>nss-devel</Dependency>
|
||||||
|
</RuntimeDependencies>
|
||||||
|
<Files>
|
||||||
|
<Path fileType="executable">/usr/bin/dtrace</Path>
|
||||||
|
<Path fileType="header">/usr/include</Path>
|
||||||
|
</Files>
|
||||||
|
</Package>
|
||||||
|
|
||||||
|
<History>
|
||||||
|
<Update release="1">
|
||||||
|
<Date>2017-11-24</Date>
|
||||||
|
<Version>3.2</Version>
|
||||||
|
<Comment>First release</Comment>
|
||||||
|
<Name>Osman Erkan</Name>
|
||||||
|
<Email>osman.erkan@pisilinux.org</Email>
|
||||||
|
</Update>
|
||||||
|
</History>
|
||||||
|
</PISI>
|
||||||
@@ -0,0 +1,18 @@
|
|||||||
|
<?xml version="1.0" ?>
|
||||||
|
<PISI>
|
||||||
|
<Source>
|
||||||
|
<Name>systemtap</Name>
|
||||||
|
<Summary xml:lang="tr">Enstrümantasyon sistemi</Summary>
|
||||||
|
<Description xml:lang="tr">systemtap Linux 2.6 üzerinde çalışan sistemler için tasarlanmış bir enstrümantasyon altyapısıdır. Geliştiriciler, systemtap kullanarak, çalışmakta olan işletim sistemiyle ilgili veri toplamak için özel araçlar yazabilirler.</Description>
|
||||||
|
</Source>
|
||||||
|
|
||||||
|
<Package>
|
||||||
|
<Name>systemtap-sdt-devel</Name>
|
||||||
|
<Summary xml:lang="tr">systemtap için statik deney desteği araçları</Summary>
|
||||||
|
</Package>
|
||||||
|
|
||||||
|
<Package>
|
||||||
|
<Name>systemtap-devel</Name>
|
||||||
|
<Summary xml:lang="tr">systemtap için geliştirme dosyaları</Summary>
|
||||||
|
</Package>
|
||||||
|
</PISI>
|
||||||
Reference in New Issue
Block a user