Help updated; moved some use statements

This commit is contained in:
dataking 2016-09-26 22:45:43 -07:00
parent b9d7172a7f
commit 35d7a91b72

View File

@ -9,9 +9,7 @@ use Term::ANSIColor;
use Getopt::Long qw( :config no_ignore_case bundling ); use Getopt::Long qw( :config no_ignore_case bundling );
use Data::Dumper; use Data::Dumper;
#use Spreadsheet::WriteExcel; #use Spreadsheet::WriteExcel;
use Excel::Writer::XLSX;
#use File::Basename; #use File::Basename;
use HTML::HTMLDoc;
my ($help,$verbose,$excel,$output,$pdf); my ($help,$verbose,$excel,$output,$pdf);
GetOptions( GetOptions(
@ -148,6 +146,7 @@ delete($lynis_report_data{'tests_executed'});
#print Dumper(\%warnings); #print Dumper(\%warnings);
if ($excel) { if ($excel) {
use Excel::Writer::XLSX;
my $i = 0; my $i = 0;
# do the Excel thing.... # do the Excel thing....
my $wb = Excel::Writer::XLSX->new($output); my $wb = Excel::Writer::XLSX->new($output);
@ -1980,6 +1979,7 @@ END
} }
if ($pdf) { if ($pdf) {
use HTML::HTMLDoc;
my $htmlobj = new HTML::HTMLDoc(); my $htmlobj = new HTML::HTMLDoc();
$htmlobj->set_input_file($htmldoc); $htmlobj->set_input_file($htmldoc);
my $pdfdoc = $htmlobj->generate_pdf(); my $pdfdoc = $htmlobj->generate_pdf();
@ -2007,8 +2007,7 @@ Where:
-h|--help Display this useful message, then exit. -h|--help Display this useful message, then exit.
-v|--verbose Display more detailed output. This is typically used for -v|--verbose Display more detailed output. This is typically used for
debugging, but may provide insight when running into problems. debugging, but may provide insight when running into problems.
-E|--excel Output the report in Microsoft Excel binary format. This -E|--excel Output the report in Microsoft Excel binary format.
options is not yet implemented (NYI).
-o|--output Specifies the output file to print the report to. -o|--output Specifies the output file to print the report to.
END END