lib/sbin/output_config.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

#! /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";
  $dataout = "";

  foreach $line (@data)
  {
    $dataout .= "$line\n";
  }

  &WriteFile("$directory/$file",$dataout);
#  close OUT;

}

1;