Output file. Forgot to commit it earlier.

Tom


git-svn-id: http://svn.cactuscode.org/flesh/trunk@84 17b73243-c579-4c4c-a9d2-2d5706c11dac

1 files changed, 27 insertions, 0 deletions

diff --git a/lib/sbin/output_config.pl b/lib/sbin/output_config.pl
new file mode 100644
index 00000000..b0d70b9a
--- /dev/null
+++ b/lib/sbin/output_config.pl
@@ -0,0 +1,27 @@
+#! /usr/bin/perl -s
+#/*@@
+#  @file      output_config.pl
+#  @date      Tue Jan 19 18:59:59 1999
+#  @author    Tom Goodale
+#  @desc 
+#  Outputs all configuration data
+#  @enddesc 
+#@@*/
+
+sub OutputFile
+{
+  local($directory, $file, @data) = @_;
+
+  open(OUT, ">$directory/$file") || die "Can't open $file in $directory\n";
+
+  foreach $line (@data)
+  {
+    print OUT "$line\n";
+  }
+
+  close OUT;
+
+}
+
+1;
+