IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Changeset 8715


Ignore:
Timestamp:
Aug 30, 2006, 3:43:18 PM (20 years ago)
Author:
jhoblitt
Message:

check the return result of PS::IPP::Metadata::Config->parse()

Location:
trunk/ippScripts/scripts
Files:
10 edited

Legend:

Unmodified
Added
Removed

  • trunk/ippScripts/scripts/detrend_calc_norm.pl

    r8488 r8715  
    3838   
    3939    # Parse the output
    40     my $metadata = $mdcParser->parse(join "", @$stdout_buf); # Parsed metadata
     40    my $metadata = $mdcParser->parse(join "", @$stdout_buf)
     41        or die "unable to parse metadata config doc";
    4142    $files = parse_md_list($metadata);
    4243}
    … …  
    7475    die "Unable to perform ppNormCalc: $error_code\n"
    7576        if not $success;
    76     $norms = $mdcParser->parse(join "", @$stdout_buf); # Parsed metadata
     77    $norms = $mdcParser->parse(join "", @$stdout_buf)
     78        or die "unable to parse metadata config doc";
    7779}
    7880

  • trunk/ippScripts/scripts/detrend_create_resid.pl

    r8609 r8715  
    9191    close $statsFile;
    9292    my $mdcParser = PS::IPP::Metadata::Config->new;     # Parser for metadata config files
    93     my $metadata = $mdcParser->parse(join "", @contents); # Metadata from the stats
     93    my $metadata = $mdcParser->parse(join "", @contents)
     94        or die "unable to parse metadata config doc";
    9495    $stats = PS::IPP::Metadata::Stats->new(); # Stats parser
    9596    $stats->parse($metadata) or die "Unable to find all values in statistics output.\n";

  • trunk/ippScripts/scripts/detrend_process.pl

    r8616 r8715  
    7373    close $statsFile;
    7474    my $mdcParser = PS::IPP::Metadata::Config->new;     # Parser for metadata config files
    75     my $metadata = $mdcParser->parse(join "", @contents); # Metadata from the stats
     75    my $metadata = $mdcParser->parse(join "", @contents)
     76        or die "unable to parse metadata config";
    7677    $stats = PS::IPP::Metadata::Stats->new(); # Stats parser
    7778    $stats->parse($metadata) or die "Unable to find all values in statistics output.\n";

  • trunk/ippScripts/scripts/detrend_reject_exp.pl

    r8614 r8715  
    5555        run(command => $command, verbose => 1);
    5656    die "Unable to perform dettool -processed: $error_code\n" if not $success;
    57     my $metadata = $mdcParser->parse(join "", @$stdout_buf); # Parsed metadata
     57    my $metadata = $mdcParser->parse(join "", @$stdout_buf)
     58        or die "unable to parse metadata config doc";
    5859    $exposures = parse_md_list($metadata);
    5960}

  • trunk/ippScripts/scripts/detrend_reject_imfile.pl

    r8612 r8715  
    7676        run(command => $command, verbose => 1);
    7777    die "Unable to perform dettool -processed: $error_code\n" if not $success;
    78     my $metadata = $mdcParser->parse(join "", @$stdout_buf); # Parsed metadata
     78    my $metadata = $mdcParser->parse(join "", @$stdout_buf)
     79        or die "unable to parse metadata config doc";
    7980    $files = parse_md_list($metadata);
    8081}

  • trunk/ippScripts/scripts/detrend_stack.pl

    r8714 r8715  
    5151        run(command => $command, verbose => 1);
    5252    die "Unable to perform dettool -processed: $error_code\n" if not $success;
    53     my $metadata = $mdcParser->parse(join "", @$stdout_buf); # Parsed metadata
     53    my $metadata = $mdcParser->parse(join "", @$stdout_buf)
     54        or die "unable to parse metadata config doc";
    5455    $files = parse_md_list($metadata);
    5556}
    … …  
    8586    close $statsFile;
    8687    my $mdcParser = PS::IPP::Metadata::Config->new;     # Parser for metadata config files
    87     my $metadata = $mdcParser->parse(join "", @contents); # Metadata from the stats
     88    my $metadata = $mdcParser->parse(join "", @contents)
     89        or die "unable to parse metadata config doc";
    8890    $stats = PS::IPP::Metadata::Stats->new(); # Stats parser
    8991    $stats->parse($metadata) or die "Unable to find all values in statistics output.\n";

  • trunk/ippScripts/scripts/mdc2list.pl

    r8115 r8715  
    3434my @input = <$inFile>;          # Contents of the metadata config file
    3535my $mdcParser = PS::IPP::Metadata::Config->new; # Parser for metadata config files
    36 my $md = $mdcParser->parse(join "", @input); # The parsed metadata
     36my $md = $mdcParser->parse(join "", @input)
     37        or die "unable to parse metadata config doc";
    3738my $hashes = mds2hashes($md);   # An array of hashes
    3839foreach my $pending (@$hashes) {

  • trunk/ippScripts/scripts/phase0exp.pl

    r8713 r8715  
    6767        run(command => $command, verbose => 1);
    6868    die "Unable to perform p0tool on exposure id $expid: $error_code\n" if not $success;
    69     my $metadata = $mdcParser->parse(join "", @$stdout_buf); # Parsed metadata
     69    my $metadata = $mdcParser->parse(join "", @$stdout_buf)
     70            or die "unable to parse metadata config doc";
    7071    $imfiles = parse_md_list($metadata); # Data for imfiles
    7172}

  • trunk/ippScripts/scripts/phase0imfile.pl

    r8710 r8715  
    6767    # Parse the output
    6868    my $mdcParser = PS::IPP::Metadata::Config->new;        # Parser for metadata config files
    69     my $metadata = $mdcParser->parse(join "", @$stdout_buf);
     69    my $metadata = $mdcParser->parse(join "", @$stdout_buf)
     70            or die "unable to parse metadata config doc";
    7071    my @constants = keys %{CONSTANTS()}; # List of constants to parse out
    7172    my @variables = keys %{VARIABLES()}; # List of variables to parse out

  • trunk/ippScripts/scripts/phase2.pl

    r8620 r8715  
    5555    close $statsFile;
    5656    my $mdcParser = PS::IPP::Metadata::Config->new;     # Parser for metadata config files
    57     my $metadata = $mdcParser->parse(join "", @contents); # Metadata from the stats
     57    my $metadata = $mdcParser->parse(join "", @contents)
     58            or die "unable to parse metadata config doc";
    5859    $stats = PS::IPP::Metadata::Stats->new(); # Stats parser
    5960    $stats->parse($metadata) or die "Unable to find all values in statistics output.\n";
Note: See TracChangeset for help on using the changeset viewer.