moved obsolete 2.4.x-mod_md branch to attic (4faaa807) · Commits · CYBER - Cyber Security / TS 103 523 MSP / TLMSP / TLMSP Apache Httpd

2.4.x-mod_md/.gdbinit

0 → 100644

+513 −0

Original line number	Original line	Diff line number	Diff line
			# gdb macros which may be useful for folks using gdb to debug
			# apache. Delete it if it bothers you.

			define dump_table
			set $t = (apr_table_entry_t )((apr_array_header_t )$arg0)->elts
			set $n = ((apr_array_header_t *)$arg0)->nelts
			set $i = 0
			while $i < $n
			if $t[$i].val == (void *)0L
			printf "[%u] '%s'=>NULL\n", $i, $t[$i].key
			else
			printf "[%u] '%s'='%s' [%p]\n", $i, $t[$i].key, $t[$i].val, $t[$i].val
			end
			set $i = $i + 1
			end
			end
			document dump_table
			Print the key/value pairs in a table.
			end

			define dump_skiplist
			set $sl = (apr_skiplist *)$arg0
			set $m = $sl->bottom
			printf "skiplist@%p: size=%lu: height=%d\n", $sl, $sl->size, $sl->height
			while ($m)
			printf "(%p,%.12lx)", $m, $m->data
			set $u = $m->up
			while ($u)
			printf " (%p,%.12lx)", $u, $u->data
			set $u = $u->up
			end
			printf "\n"
			set $m = $m->next
			end
			end
			document dump_skiplist
			Print the nodes/values in a skiplist
			end

			define dump_string_hash
			set $h = $arg0->array
			set $n = $arg0->max
			set $i = 0
			while $i < $n
			set $ent = $h[$i]
			while $ent != (void *)0L
			printf "'%s' => '%p'\n", $ent->key, $ent->val
			set $ent = $ent->next
			end
			set $i = $i + 1
			end
			end
			document dump_string_hash
			Print the entries in a hash table indexed by strings
			end

			define dump_string_shash
			set $h = $arg0->array
			set $n = $arg0->max
			set $i = 0
			while $i < $n
			set $ent = $h[$i]
			while $ent != (void *)0L
			printf "'%s' => '%s'\n", $ent->key, $ent->val
			set $ent = $ent->next
			end
			set $i = $i + 1
			end
			end
			document dump_string_shash
			Print the entries in a hash table indexed by strings with string values
			end

			define ro
			run -DONE_PROCESS
			end

			define dump_string_array
			set $a = (char *)((apr_array_header_t )$arg0)->elts
			set $n = (int)((apr_array_header_t *)$arg0)->nelts
			set $i = 0
			while $i < $n
			printf "[%u] '%s'\n", $i, $a[$i]
			set $i = $i + 1
			end
			end
			document dump_string_array
			Print all of the elements in an array of strings.
			end

			define printmemn
			set $i = 0
			while $i < $arg1
			if $arg0[$i] < 0x20 \|\| $arg0[$i] > 0x7e
			printf "~"
			else
			printf "%c", $arg0[$i]
			end
			set $i = $i + 1
			end
			end

			define print_bkt_datacol
			# arg0 == column name
			# arg1 == format
			# arg2 == value
			# arg3 == suppress header?
			set $suppressheader = $arg3

			if !$suppressheader
			printf " "
			printf $arg0
			printf "="
			else
			printf " \| "
			end
			printf $arg1, $arg2
			end

			define dump_bucket_ex
			# arg0 == bucket
			# arg1 == suppress header?
			set $bucket = (struct apr_bucket *)$arg0
			set $sh = $arg1
			set $refcount = -1

			print_bkt_datacol "bucket" "%-9s" $bucket->type->name $sh
			printf "(0x%08lx)", (unsigned long)$bucket
			print_bkt_datacol "length" "%-6ld" (long)($bucket->length) $sh
			print_bkt_datacol "data" "0x%08lx" $bucket->data $sh

			if !$sh
			printf "\n "
			end

			if (($bucket->type == &apr_bucket_type_eos) \|\| \
			($bucket->type == &apr_bucket_type_flush))

			# metadata buckets, no content
			print_bkt_datacol "contents" "%c" ' ' $sh
			printf " "
			print_bkt_datacol "rc" "n/%c" 'a' $sh

			else
			if ($bucket->type == &ap_bucket_type_error)

			# metadata bucket, no content but it does have an error code in it
			print_bkt_datacol "contents" "%c" ' ' $sh
			set $status = ((ap_bucket_error *)$bucket->data)->status
			printf " (status=%3d) ", $status
			print_bkt_datacol "rc" "n/%c" 'a' $sh

			else
			if (($bucket->type == &apr_bucket_type_file) \|\| \
			($bucket->type == &apr_bucket_type_pipe) \|\| \
			($bucket->type == &apr_bucket_type_socket))

			# buckets that contain data not in memory (ie not printable)

			print_bkt_datacol "contents" "[unprintable%c" ']' $sh
			printf " "
			if $bucket->type == &apr_bucket_type_file
			set $refcount = ((apr_bucket_refcount *)$bucket->data)->refcount
			print_bkt_datacol "rc" "%d" $refcount $sh
			end

			else
			if (($bucket->type == &apr_bucket_type_heap) \|\| \
			($bucket->type == &apr_bucket_type_pool) \|\| \
			($bucket->type == &apr_bucket_type_mmap) \|\| \
			($bucket->type == &apr_bucket_type_transient) \|\| \
			($bucket->type == &apr_bucket_type_immortal))

			# in-memory buckets

			if $bucket->type == &apr_bucket_type_heap
			set $refcount = ((apr_bucket_refcount *)$bucket->data)->refcount
			set $p = (apr_bucket_heap *)$bucket->data
			set $data = $p->base+$bucket->start

			else
			if $bucket->type == &apr_bucket_type_pool
			set $refcount = ((apr_bucket_refcount *)$bucket->data)->refcount
			set $p = (apr_bucket_pool *)$bucket->data
			if !$p->pool
			set $p = (apr_bucket_heap *)$bucket->data
			end
			set $data = $p->base+$bucket->start

			else
			if $bucket->type == &apr_bucket_type_mmap
			# is this safe if not APR_HAS_MMAP?
			set $refcount = ((apr_bucket_refcount *)$bucket->data)->refcount
			set $p = (apr_bucket_mmap *)$bucket->data
			set $data = ((char *)$p->mmap->mm)+$bucket->start

			else
			if (($bucket->type == &apr_bucket_type_transient) \|\| \
			($bucket->type == &apr_bucket_type_immortal))
			set $data = ((char *)$bucket->data)+$bucket->start

			end
			end
			end
			end

			if $sh
			printf " \| ["
			else
			printf " contents=["
			end
			set $datalen = $bucket->length
			if $datalen > 17
			printmem $data 17
			printf "..."
			set $datalen = 20
			else
			printmemn $data $datalen
			end
			printf "]"
			while $datalen < 20
			printf " "
			set $datalen = $datalen + 1
			end

			if $refcount != -1
			print_bkt_datacol "rc" "%d" $refcount $sh
			else
			print_bkt_datacol "rc" "n/%c" 'a' $sh
			end

			else
			# 3rd-party bucket type
			print_bkt_datacol "contents" "[unknown%c" ']' $sh
			printf " "
			print_bkt_datacol "rc" "n/%c" 'a' $sh
			end
			end
			end
			end

			printf "\n"

			end

			define dump_bucket
			dump_bucket_ex $arg0 0
			end
			document dump_bucket
			Print bucket info
			end

			define dump_brigade
			set $bb = (apr_bucket_brigade *)$arg0
			set $bucket = $bb->list.next
			set $sentinel = ((char *)((&($bb->list)) \
			- ((size_t) &((struct apr_bucket *)0)->link)))
			printf "dump of brigade 0x%lx\n", (unsigned long)$bb

			printf " \| type (address) \| length \| "
			printf "data addr \| contents \| rc\n"
			printf "----------------------------------------"
			printf "----------------------------------------\n"

			if $bucket == $sentinel
			printf "brigade is empty\n"
			end

			set $j = 0
			while $bucket != $sentinel
			printf "%2d", $j
			dump_bucket_ex $bucket 1
			set $j = $j + 1
			set $bucket = $bucket->link.next
			end
			printf "end of brigade\n"
			end
			document dump_brigade
			Print bucket brigade info
			end

			define dump_filters
			set $f = $arg0
			while $f
			printf "%s(0x%lx): ctx=0x%lx, r=0x%lx, c=0x%lx\n", \
			$f->frec->name, (unsigned long)$f, (unsigned long)$f->ctx, \
			$f->r, $f->c
			set $f = $f->next
			end
			end
			document dump_filters
			Print filter chain info
			end

			define dump_filter_chain
			set $r = $arg0
			set $f = $r->output_filters
			while $f
			if $f == $r->output_filters
			printf "r->output_filters =>\n"
			end
			if $f == $r->proto_output_filters
			printf "r->proto_output_filters =>\n"
			end
			if $f == $r->connection->output_filters
			printf "r->connection->output_filters =>\n"
			end

			printf " %s(0x%lx): type=%d, ctx=0x%lx, r=%s(0x%lx), c=0x%lx\n", \
			$f->frec->name, (unsigned long)$f, $f->frec->ftype, (unsigned long)$f->ctx, \
			$f->r == $r ? "r" : ($f->r == 0L ? "null" : \
			($f->r == $r->main ? "r->main" : \
			($r->main && $f->r == $r->main->main ? "r->main->main" : "????"))), \
			$f->r, $f->c

			set $f = $f->next
			end
			end
			document dump_filter_chain
			Print filter chain info given a request_rec pointer
			end

			define dump_process_rec
			set $p = $arg0
			printf "process_rec=0x%lx:\n", (unsigned long)$p
			printf " pool=0x%lx, pconf=0x%lx\n", \
			(unsigned long)$p->pool, (unsigned long)$p->pconf
			end
			document dump_process_rec
			Print process_rec info
			end

			define dump_server_rec
			set $s = $arg0
			printf "name=%s:%d\n", \
			$s->server_hostname, $s->port
			dump_process_rec($s->process)
			end
			document dump_server_rec
			Print server_rec info
			end

			define dump_servers
			set $s = $arg0
			while $s
			dump_server_rec($s)
			printf "\n"
			set $s = $s->next
			end
			end
			document dump_servers
			Print server_rec list info
			end

			define dump_request_tree
			set $r = $arg0
			set $i
			while $r
			printf "r=(0x%lx): uri=%s, handler=%s, r->main=0x%lx\n", \
			$r, $r->unparsed_uri, $r->handler ? $r->handler : "(none)", $r->main
			set $r = $r->main
			end
			end

			define dump_allocator
			printf "Allocator current_free_index = %d, max_free_index = %d\n", \
			($arg0)->current_free_index, ($arg0)->max_free_index
			printf "Allocator free list:\n"
			set $i = 0
			set $max =(sizeof $arg0->free)/(sizeof $arg0->free[0])
			set $kb = 0
			while $i < $max
			set $node = $arg0->free[$i]
			if $node != 0
			printf " #%2d: ", $i
			while $node != 0
			printf "%d, ", ($node->index + 1) << 12
			set $kb = $kb + (($node->index + 1) << 2)
			set $node = $node->next
			end
			printf "ends.\n"
			end
			set $i = $i + 1
			end
			printf "Sum of free blocks: %dkiB\n", $kb
			end
			document dump_allocator
			Print status of an allocator and its freelists.
			end

			define dump_one_pool
			set $p = $arg0
			set $size = 0
			set $free = 0
			set $nodes = 0
			set $node = $arg0->active
			set $done = 0
			while $done == 0
			set $size = $size + (($node->index + 1) << 12)
			set $free = $free + ($node->endp - $node->first_avail)
			set $nodes = $nodes + 1
			set $node = $node->next
			if $node == $arg0->active
			set $done = 1
			end
			end
			printf "Pool '"
			if $p->tag
			printf "%s", $p->tag
			else
			printf "no tag"
			end
			printf "' [%p]: %d/%d free (%d blocks)\n", $p, $free, $size, $nodes
			end

			define dump_all_pools
			set $root = $arg0
			while $root->parent
			set $root = $root->parent
			end
			dump_pool_and_children $root
			end
			document dump_all_pools
			Dump the whole pool hierarchy starting from apr_global_pool. Requires an arbitrary pool as starting parameter.
			end

			python

			from __future__ import print_function

			class DumpPoolAndChilds (gdb.Command):
			"""Dump the whole pool hierarchy starting from the given pool."""

			def __init__ (self):
			super (DumpPoolAndChilds, self).__init__ ("dump_pool_and_children", gdb.COMMAND_USER)

			def _allocator_free_blocks(self, alloc):
			salloc = "%s" % (alloc)
			if self.total_free_blocks.get(salloc) != None:
			return self.total_free_blocks[salloc]
			i = 0
			dalloc = alloc.dereference()
			max =(dalloc['free'].type.sizeof)/(dalloc['free'][0].type.sizeof)
			kb = 0
			while i < max:
			node = dalloc['free'][i]
			if node != 0:
			while node != 0:
			noded = node.dereference()
			kb = kb + ((int(noded['index']) + 1) << 2)
			node = noded['next']
			i = i + 1
			self.total_free_blocks[salloc] = kb
			return kb


			def _dump_one_pool(self, arg):
			size = 0
			free = 0
			nodes = 0
			darg = arg.dereference()
			active = darg['active']
			node = active
			done = 0
			while done == 0:
			noded = node.dereference()
			size = size + ((int(noded['index']) + 1) << 12)
			free = free + (noded['endp'] - noded['first_avail'])
			nodes = nodes + 1
			node = noded['next']
			if node == active:
			done = 1
			if darg['tag'] != 0:
			tag = darg['tag'].string()
			else:
			tag = "No tag"
			print("Pool '%s' [%s]: %d/%d free (%d blocks) allocator: %s free blocks in allocator: %i kiB" % (tag, arg, free, size, nodes, darg['allocator'], self._allocator_free_blocks(darg['allocator'])))
			self.free = self.free + free
			self.size = self.size + size
			self.nodes = self.nodes + nodes

			def _dump(self, arg, depth):
			pool = arg
			print("%c" % (depth 4 + 1, " "), end="")
			self._dump_one_pool(pool)
			if pool['child'] != 0:
			self._dump(pool['child'], depth + 1)
			s = pool['sibling']
			if s != 0:
			self._dump(s, depth)

			def invoke (self, arg, from_tty):
			pool = gdb.parse_and_eval(arg)
			self.free = 0
			self.size = 0
			self.nodes = 0
			self.total_free_blocks = {}
			self._dump(pool, 0)
			print("Total %d/%d free (%d blocks)" % (self.free, self.size, self.nodes))
			sum = 0
			for key in self.total_free_blocks:
			sum = sum + self.total_free_blocks[key]
			print("Total free allocator blocks: %i kiB" % (sum))

			DumpPoolAndChilds ()
			end
			document dump_pool_and_children
			Dump the whole pool hierarchy starting from the given pool.
			end

			# Set sane defaults for common signals:
			handle SIGPIPE noprint pass nostop
			handle SIGUSR1 print pass nostop

2.4.x-mod_md/ABOUT_APACHE

0 → 100644

+244 −0

File added.

Preview size limit exceeded, changes collapsed.

2.4.x-mod_md/Apache-apr2.dsw

0 → 100644

+3009 −0

File added.

Preview size limit exceeded, changes collapsed.

2.4.x-mod_md/Apache.dsw

0 → 100644

+3550 −0

File added.

Preview size limit exceeded, changes collapsed.

2.4.x-mod_md/BuildAll.dsp

0 → 100644

+97 −0

Original line number	Original line	Diff line number	Diff line
			# Microsoft Developer Studio Project File - Name="BuildAll" - Package Owner=<4>
			# Microsoft Developer Studio Generated Build File, Format Version 6.00
			# DO NOT EDIT

			# TARGTYPE "Win32 (x86) External Target" 0x0106

			CFG=BuildAll - Win32 Debug
			!MESSAGE This is not a valid makefile. To build this project using NMAKE,
			!MESSAGE use the Export Makefile command and run
			!MESSAGE
			!MESSAGE NMAKE /f "BuildAll.mak".
			!MESSAGE
			!MESSAGE You can specify a configuration when running NMAKE
			!MESSAGE by defining the macro CFG on the command line. For example:
			!MESSAGE
			!MESSAGE NMAKE /f "BuildAll.mak" CFG="BuildAll - Win32 Debug"
			!MESSAGE
			!MESSAGE Possible choices for configuration are:
			!MESSAGE
			!MESSAGE "BuildAll - Win32 Release" (based on "Win32 (x86) External Target")
			!MESSAGE "BuildAll - Win32 Debug" (based on "Win32 (x86) External Target")
			!MESSAGE

			# Begin Project
			# PROP AllowPerConfigDependencies 0
			# PROP Scc_ProjName ""
			# PROP Scc_LocalPath ""

			!IF "$(CFG)" == "BuildAll - Win32 Release"

			# PROP BASE Use_Debug_Libraries 0
			# PROP BASE Output_Dir ""
			# PROP BASE Intermediate_Dir ""
			# PROP BASE Cmd_Line "NMAKE /f makefile.win"
			# PROP BASE Rebuild_Opt "/a"
			# PROP BASE Target_File "\Apache2\bin\httpd.exe"
			# PROP BASE Bsc_Name ".\Browse\BuildAll.bsc"
			# PROP BASE Target_Dir ""
			# PROP Use_Debug_Libraries 0
			# PROP Output_Dir ""
			# PROP Intermediate_Dir ""
			# PROP Cmd_Line "NMAKE /f makefile.win INSTDIR="\Apache2" LONG=Release _dummy"
			# PROP Rebuild_Opt ""
			# PROP Target_File "\Apache2\bin\httpd.exe"
			# PROP Bsc_Name ".\Browse\httpd.bsc"
			# PROP Target_Dir ""

			!ELSEIF "$(CFG)" == "BuildAll - Win32 Debug"

			# PROP BASE Use_Debug_Libraries 1
			# PROP BASE Output_Dir ""
			# PROP BASE Intermediate_Dir ""
			# PROP BASE Cmd_Line "NMAKE /f makefile.win"
			# PROP BASE Rebuild_Opt "/a"
			# PROP BASE Target_File "\Apache2\bin\httpd.exe"
			# PROP BASE Bsc_Name ".\Browse\BuildAll.bsc"
			# PROP BASE Target_Dir ""
			# PROP Use_Debug_Libraries 1
			# PROP Output_Dir ""
			# PROP Intermediate_Dir ""
			# PROP Cmd_Line "NMAKE /f makefile.win INSTDIR="\Apache2" LONG=Debug _dummy"
			# PROP Rebuild_Opt ""
			# PROP Target_File "\Apache2\bin\httpd.exe"
			# PROP Bsc_Name ".\Browse\httpd.bsc"
			# PROP Target_Dir ""

			!ENDIF

			# Begin Target

			# Name "BuildAll - Win32 Release"
			# Name "BuildAll - Win32 Debug"

			!IF "$(CFG)" == "BuildAll - Win32 Release"

			!ELSEIF "$(CFG)" == "BuildAll - Win32 Debug"

			!ENDIF

			# Begin Source File

			SOURCE=.\os\win32\BaseAddr.ref
			# End Source File
			# Begin Source File

			SOURCE=.\CHANGES
			# End Source File
			# Begin Source File

			SOURCE=.\Makefile.win
			# End Source File
			# Begin Source File

			SOURCE=.\STATUS
			# End Source File
			# End Target
			# End Project

Admin message