sub CheckOutputFormat
{ my $Ok = 1 ;
if ($OutputFormat ne 'standard')
{ my @OutputFormat = split(/,/,$OutputFormat) ;
788 foreach my $F (@OutputFormat)
{ if (defined($OutputFormats{lc $F}))
{ my $OF = $OutputFormats{lc $F} ;
next if (",$FullFormat," =~ /\,$OF\,/) ;
if ($FullFormat) { $FullFormat .= "," }
$FullFormat .= "$OutputFormats{lc $F}" }
else
{ $Ok = 0 } }
if (!$Ok)
{ print $Help{output} }
elsif ($FullFormat)
{ print OPT "\\setupoutput[$FullFormat]\n" } }
unless ($FullFormat)
{ $FullFormat = $OutputFormat } } # 'standard' to terminal
Is my texexec.pl correct??