/usr/local/lp/apps/malre/scripts/ Current File: //usr/local/lp/apps/malre/scripts/header.pl

#! /usr/bin/perl
### Pipe in text, it comes out as a header

if ( ! -t STDIN ) {
	while (<STDIN>) {
		my $_line = $_;
		chomp( $_line );
		my $v_len = length( $_line ) + 6;
		print "\n#" . ( "=" x $v_len ) . "#\n";
		print "#== " . $_line . " ==#\n";
		print "#" . ( "=" x $v_len ) . "#\n\n";
	}
}