1 files changed, 23 insertions, 0 deletions
diff --git a/source4/build/smb_build/dump.pl b/source4/build/smb_build/dump.pl
new file mode 100644
index 0000000000..e4ee3ceea2
--- /dev/null
+++ b/source4/build/smb_build/dump.pl
@@ -0,0 +1,23 @@
+###########################################################
+### SMB Build System					###
+### - the dump & debug functions 			###
+###							###
+###  Copyright (C) Stefan (metze) Metzmacher 2004	###
+###  Released under the GNU GPL				###
+###########################################################
+
+use Data::Dumper;
+sub _dump_ctx($)
+{
+	my $ctx = shift;
+
+	open (DUMP,"> config.smb_build.dump");
+	
+	print DUMP Dumper($ctx);
+
+	close(DUMP);
+
+	return;
+}
+
+_dump_ctx($SMB_BUILD_CTX);