#
# Copyright 2007 Penn State University
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
#     http://www.apache.org/licenses/LICENSE-2.0
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.
#
#!/usr/bin/perl -w
package HeaderParse::API::Parser;
use strict;
use utf8;
use HeaderParse::API::ParserMethods;
use IO::Handle;
use HeaderParse::Config::API_Config;
use vars qw($ServerURL $repositoryLocation $algVersion);


sub extractHeader {
    my ($textFile) = @_;

    my $jobID;
    while($jobID = rand(time)) {
	unless(-f $offlineD."$jobID") {
	    last;
	}
    }

    my ($status, $msg, $rXML) = _parseHeader($textFile, $jobID);

    if ($status <= 0) {
      my $error = "Error: $msg";
	    return \$error;
    }
    else {
      return \$rXML;
    }
}

sub _parseHeader{
    my ($fileID, $jobID) = @_;
    my ($header, $faultMessage, $rResponse, $success, $papertext);

    my $status = 1;
    my $msg = "";

    my $file = $fileID;

    if (! -e $file) {
	return fatal("File does not exist: $file");
    }

    open(IN, "<:utf8", $file) or
	return fatal("Could not open file: $file");
    {
	local $/ = undef;
	$papertext = <IN>;
    }
    close IN;

    ($faultMessage, $header) =
        &HeaderParse::API::ParserMethods::ExtractHeaderInformation(\$papertext);
    if(!length($faultMessage)){
        $rResponse =
	    &HeaderParse::API::ParserMethods::Parse($header, $jobID);
	if ($rResponse eq "0") {
	    return fatal("Timeout while parsing");
	}
	return ($status, $msg, $rResponse);

    } else{
        #error occured while extracing the header
	return fatal("file $file: $faultMessage");
    }

}

sub fatal {
    my ($msg) = @_;
    return (0, $msg, undef);
}

1;