/usr/local/stat_watch/scripts/ Current File: //usr/local/stat_watch/scripts/fold_out.pl
#! /usr/bin/perl
### given a file name, or series of file names, or piped in data, fold print those files

use strict;
use warnings;

my $d_progdir = '####INSTALLATION_DIRECTORY####/scripts';
### If this has not been set
if ( substr( $d_progdir, 0, 1 ) eq "#" ) {
	### Discover the command that started the script
	my $v_command = $^X . " " . __FILE__;
	### Discover where the program directory is
	my @progdir = split( m/\//, __FILE__ );
	### Remove the file name
	pop( @progdir );
	### Go up one directory
	pop( @progdir );
	$d_progdir = join( "/", @progdir ) . "/";
}

if ( substr($d_progdir, 0, 1) ne "/" ) {
	$d_progdir = __FILE__;
	$d_progdir = ( readlink($d_progdir) || $d_progdir );
	my @progdir = split( m/\//, $d_progdir );
	pop( @progdir );
	$d_progdir = join( "/", @progdir );
}

require( $d_progdir . '/modules/fold_print.pm' );

### First print anything piped in
if ( ! -t STDIN ) {
	my $v_message = '';
	while (<STDIN>) {
		$v_message .= $_;
	}
	print fn_fold_print($v_message);
}

### Then print any files that were given
if (@ARGV) {
	fn_print_files(@ARGV);
}