Guru's
I have the following code in my script. I want to print the output in plain
ASCII text. If I use blockquote() it prints in the RTF format and I lose all
the space formatting. Is there any way I can change this to print in plain
ASCII text??
TIA.
Bal.
sub showdetails {
my $self = shift;
#Get CGI query object
my $q = $self->query();
my $app = $q->param("app");
my $tdir =$q->param("tdir");
my $yrs =$q->param("yrs");
my $dts =$q->param("dts");
my $rep = $tdir. "\\\\" . $app . "\\\\" . $yrs . "\\\\" . $dts;
my $output = '';
$output .= $q->start_html();
$output .= $q->header('text/plain');
open(FH, $rep );
while (<FH>){
chomp;
$output .= $q->blockquote("$_");
}
$output .= $q->end_html();
close(FH);
return $output;
}
---------------------------------------------------------------------
Web Archive: http://www.mail-archive.com/[email protected]/
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
