r3690: Use perl's 'use' statement to include the build system parts

rather then using "cat"
(This used to be commit 4d018b2b701faa56d7e3bb7634729296b53e0acb)

1 files changed, 32 insertions, 0 deletions

diff --git a/source4/build/smb_build/main.pm b/source4/build/smb_build/main.pm
new file mode 100644
index 0000000000..4df7be7dae
--- /dev/null
+++ b/source4/build/smb_build/main.pm
@@ -0,0 +1,32 @@
+###########################################################
+### SMB Build System					###
+### - the main program					###
+###							###
+###  Copyright (C) Stefan (metze) Metzmacher 2004	###
+###  Released under the GNU GPL				###
+###########################################################
+
+use makefile;
+use depend;
+use smb_build_h;
+use input;
+use config_mk;
+use output;
+use strict;
+
+sub smb_build_main($)
+{
+	my $SMB_BUILD_CTX = shift;
+	check_input($SMB_BUILD_CTX);
+
+	create_depend($SMB_BUILD_CTX);
+
+	create_output($SMB_BUILD_CTX);
+
+	create_makefile_in($SMB_BUILD_CTX);
+
+	create_smb_build_h($SMB_BUILD_CTX);
+
+	return 0;
+}
+1;