FM / network

/usr/share/systemtap/examples/network

Name	Size	Mode	Actions
autofs4.meta	397	0644	edit dl rm
autofs4.stp	4167	0755	edit dl rm
connect_stat.meta	404	0644	edit dl rm
connect_stat.stp	1019	0755	edit dl rm
dropwatch.meta	494	0644	edit dl rm
dropwatch.stp	900	0755	edit dl rm
netdev.meta	389	0644	edit dl rm
netdev.stp	1458	0755	edit dl rm
netfilter_drop.meta	630	0644	edit dl rm
netfilter_drop.stp	1156	0755	edit dl rm
netfilter_summary.meta	587	0644	edit dl rm
netfilter_summary.stp	591	0755	edit dl rm
netfilter_summary.txt	2873	0644	edit dl rm
netfilter_summary_json.meta	511	0644	edit dl rm
netfilter_summary_json.stp	1070	0644	edit dl rm
nettop.meta	519	0644	edit dl rm
nettop.stp	989	0755	edit dl rm
nettop.txt	953	0644	edit dl rm
net_xmit_json.meta	453	0644	edit dl rm
net_xmit_json.stp	1801	0644	edit dl rm
nfsd-recent.meta	423	0644	edit dl rm
nfsd-recent.stp	442	0755	edit dl rm
nfsd-trace.meta	314	0644	edit dl rm
nfsd-trace.stp	701	0644	edit dl rm
nfsd-trace.txt	876	0644	edit dl rm
nfsdtop.meta	405	0644	edit dl rm
nfsdtop.stp	3385	0755	edit dl rm
nfsd_unlink.meta	479	0644	edit dl rm
nfsd_unlink.stp	523	0755	edit dl rm
packet_contents.meta	550	0644	edit dl rm
packet_contents.stp	216	0755	edit dl rm
packet_contents.txt	2066	0644	edit dl rm
sk_stream_wait_memory.meta	742	0644	edit dl rm
sk_stream_wait_memory.stp	999	0755	edit dl rm
socket-trace.meta	702	0644	edit dl rm
socket-trace.stp	222	0755	edit dl rm
socktop	9144	0755	edit dl rm
socktop.meta	548	0644	edit dl rm
socktop.txt	4135	0644	edit dl rm
stp_dump.meta	339	0644	edit dl rm
stp_dump.stp	568	0644	edit dl rm
stp_dump.txt	1632	0644	edit dl rm
tcpdumplike.meta	381	0644	edit dl rm
tcpdumplike.stp	581	0755	edit dl rm
tcpipstat.meta	725	0644	edit dl rm
tcpipstat.stp	18247	0755	edit dl rm
tcpipstat.txt	898	0644	edit dl rm
tcp_connections.meta	625	0644	edit dl rm
tcp_connections.stp	361	0755	edit dl rm
tcp_init_cwnd.meta	589	0644	edit dl rm
tcp_init_cwnd.stp	343	0755	edit dl rm
tcp_retransmission.meta	286	0644	edit dl rm
tcp_retransmission.stp	1182	0644	edit dl rm
tcp_trace.meta	684	0644	edit dl rm
tcp_trace.stp	19095	0755	edit dl rm
tcp_trace.txt	3465	0644	edit dl rm
who_sent_it.meta	583	0644	edit dl rm
who_sent_it.stp	477	0644	edit dl rm
who_sent_it.txt	803	0644	edit dl rm

Edit: /usr/share/systemtap/examples/network/netfilter_drop.stp (1156B)

#!/usr/bin/stap

global drop_count

probe begin {

// Make sure the protocol is either UDP or TCP
  // and the number of packets is positive.
  if ((@1 != "TCP" && @1 != "UDP" && @1 != "ALL") || ($2 <0))
  {
    printf("Please enter \"TCP\", \"UDP\" or \"ALL\" on the command line, followed by the number of packets to drop.\n")
    exit()
  }
  else
    printf("Dropping packets! Ctrl-C to exit.\n")
}

probe netfilter.ipv4.local_in {

// If the protocol matches that specified (or ALL),
  // make sure we have not exceeded the number
  // provided, then drop the packet.
  if(convert_protocol(protocol) == @1 || @1 == "ALL") {
    if(@count(drop_count[@1]) >= $2 && $2 != 0)
      exit()
    else {
      $verdict = nf_drop
      drop_count[@1]<<<length
    }
  }
}

probe end {

foreach (proto in drop_count)
    printf("%d %s packets dropped, %d total bytes\n",
        @count(drop_count[proto]), proto, @sum(drop_count[proto]))
}

// Convert numerical protocol to string equivalent
function convert_protocol (proto_n){

proto_s = "Other"
  if(proto_n == 6)
    proto_s = "TCP"
  else if (proto_n == 17)
    proto_s = "UDP"

return proto_s
}

#!/usr/bin/stap global drop_count probe begin { // Make sure the protocol is either UDP or TCP // and the number of packets is positive. if ((@1 != "TCP" && @1 != "UDP" && @1 != "ALL") || ($2 <0)) { printf("Please enter \"TCP\", \"UDP\" or \"ALL\" on the command line, followed by the number of packets to drop.\n") exit() } else printf("Dropping packets! Ctrl-C to exit.\n") } probe netfilter.ipv4.local_in { // If the protocol matches that specified (or ALL), // make sure we have not exceeded the number // provided, then drop the packet. if(convert_protocol(protocol) == @1 || @1 == "ALL") { if(@count(drop_count[@1]) >= $2 && $2 != 0) exit() else { $verdict = nf_drop drop_count[@1]<<