Commit abea14f5 authored by Kevin Harms's avatar Kevin Harms

Add a verbose flag to retain the temporary LaTeX files.


git-svn-id: https://svn.mcs.anl.gov/repos/darshan/trunk@339 3b7491f3-a168-0410-bf4b-c445ed680a29
parent 69e2fca7
......@@ -16,12 +16,10 @@ use Number::Bytes::Human qw(format_bytes);
my $gnuplot = "";
my $tmp_dir = tempdir( CLEANUP => 1 );
#my $tmp_dir = tempdir( CLEANUP => 0 );
#print "tmp dir: $tmp_dir\n";
my $orig_dir = getcwd;
my $output_file = "summary.pdf";
my $verbose_flag = 0;
my $input_file = "";
my %access_hash = ();
my @access_size = ();
......@@ -34,6 +32,12 @@ my $total_job_bytes = 0;
process_args();
my $tmp_dir = tempdir( CLEANUP => !$verbose_flag );
if ($verbose_flag)
{
print "verbose: $tmp_dir\n";
}
# find a darshan-parser executable somewhere
my $darshan_parser = "";
if(-x "$FindBin::Bin/../bin/darshan-parser")
......@@ -1246,11 +1250,12 @@ sub process_file_record
sub process_args
{
use vars qw( $opt_help $opt_output );
use vars qw( $opt_help $opt_output $opt_verbose );
Getopt::Long::Configure("no_ignore_case", "bundling");
GetOptions( "help",
"output=s");
"output=s",
"verbose");
if($opt_help)
{
......@@ -1263,6 +1268,11 @@ sub process_args
$output_file = $opt_output;
}
if($opt_verbose)
{
$verbose_flag = $opt_verbose;
}
# there should only be one remaining argument: the input file
if($#ARGV != 0)
{
......@@ -1284,6 +1294,8 @@ Usage: $PROGRAM_NAME <options> input_file
--help Prints this help message
--output Specifies a file to write pdf output to
(defaults to ./summary.pdf)
--verbose Prints and retains tmpdir used for LaTeX output
Purpose:
This script reads a Darshan output file generated by a job and
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment