summaryrefslogtreecommitdiffstats
path: root/testsuite/systemtap.samples/tcp_connections.stp
diff options
context:
space:
mode:
authorDave Brolley <brolley@redhat.com>2009-02-02 16:00:01 -0500
committerDave Brolley <brolley@redhat.com>2009-02-02 16:00:01 -0500
commitd777f0978faec5ee006deb83a15dec707e920c01 (patch)
treed3014c81bf9bb89785fda9028292826065b100e8 /testsuite/systemtap.samples/tcp_connections.stp
parentf9cf4e363d1372324bf83ca7fc0531319975cb18 (diff)
parent0d65057a8a8b418568a18eb394d3e57f5a8051a5 (diff)
downloadsystemtap-steved-d777f0978faec5ee006deb83a15dec707e920c01.tar.gz
systemtap-steved-d777f0978faec5ee006deb83a15dec707e920c01.tar.xz
systemtap-steved-d777f0978faec5ee006deb83a15dec707e920c01.zip
Merge branch 'master' of git://sources.redhat.com/git/systemtap
Conflicts: ChangeLog NEWS
Diffstat (limited to 'testsuite/systemtap.samples/tcp_connections.stp')
-rw-r--r--testsuite/systemtap.samples/tcp_connections.stp49
1 files changed, 0 insertions, 49 deletions
diff --git a/testsuite/systemtap.samples/tcp_connections.stp b/testsuite/systemtap.samples/tcp_connections.stp
deleted file mode 100644
index a4449b60..00000000
--- a/testsuite/systemtap.samples/tcp_connections.stp
+++ /dev/null
@@ -1,49 +0,0 @@
-#! stap
-
-%{
-#include <linux/version.h>
-#include <net/sock.h>
-#include <net/tcp.h>
-
-#if LINUX_VERSION_CODE < KERNEL_VERSION(2,6,11)
-#define LPORT (inet->inet.num)
-#define DADDR (&inet->inet.daddr)
-#else
-#define LPORT (inet->num)
-#define DADDR (&inet->daddr)
-#endif
-%}
-
-function get_local_port:long(sock)
-%{
- unsigned long ptr = (unsigned long) THIS->sock;
-
- struct inet_sock *inet = (struct inet_sock *) ptr;
- THIS->__retvalue = (long long) LPORT;
-%}
-
-function get_ip_source:string(sock)
-%{
- unsigned long ptr = (unsigned long) THIS->sock;
- struct inet_sock *inet = (struct inet_sock *) ptr;
- unsigned char addr[4];
- memcpy(addr, DADDR, sizeof(addr));
- sprintf(THIS->__retvalue, "%d.%d.%d.%d",
- addr[0], addr[1], addr[2], addr[3]);
-
-%}
-
-
-probe begin {
- log ("UID\tCMD\t\tPID\t\tPORT\tIP_SOURCE")
-}
-
-probe kernel.function("tcp_accept").return {
- sock = $return
- if (sock != 0)
- log(sprint(uid())."\t".
- execname()."\t\t".
- sprint(pid())."\t\t ".
- sprint(get_local_port(sock))."\t".
- get_ip_source(sock))
-}