/usr/local/lp/apps/malre/scripts/ Current File: //usr/local/lp/apps/malre/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 = __FILE__;
$d_progdir = ( readlink($d_progdir) || $d_progdir );
my @progdir = split( m/\//, $d_progdir );
pop( @progdir );
$d_progdir = join( "/", @progdir );

require( $d_progdir . '/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);
}