package EPrints::Plugin::MePrints::MePrintsHandler;

use strict;
use warnings;

our @ISA = qw/ EPrints::Plugin /;

use EPrints;
use EPrints::Apache::AnApache;

sub handler
{
	my( $r ) = @_;

	my $uri = $r->uri;

	if( $uri =~ m! ^\/profile\/([0-9a-zA-Z]+)(.*)$ !x )
	{
		my $repository = $EPrints::HANDLE->current_repository;
		return DECLINED if( !defined $repository );

		# MePrints enabled for this repo?
		return DECLINED unless( $repository->config( "meprints_enabled" ) );

		my $user;
		my $user_identifier = $1;

		if( $repository->config( "meprints_profile_with_username" ) )
		{
			if( $user_identifier =~ m! ^([a-zA-Z0-9]+)$ !x )
			{
				# Handle a username.
				$user = $repository->user_by_username( $1 );
			}
		}
		else
		{
			if( $user_identifier =~ m! ^([0-9]+)$ !x )
			{
				# Handle the userid.
				$user = $repository->user( $1 );
			}
		}		
		
		if( defined $user )
		{
			if( $user->can_request_view_profile( $repository ) )
			{
				&send_user_profile_page( $repository, $user );
				return OK;
			}
			else
			{
				return FORBIDDEN
			}
		}
	
		# Since the user has not been found they do not exist.
		# As a user profile was requested it is not appropriate
		# to continue to attempt parsing. The lack of any return
		# raises a 404 error which is handled in the standard 
		# way.
		
	}

	return DECLINED;
	
}

sub send_user_profile_page
{
        my ( $repository, $user ) = @_;

	&update( $repository, $user );

	my $page = $user->localpath."/index.page";
        return unless( -e $page );

        my $fh;
        open( $fh, "$page" );

        my $html = "";

        if( defined $fh )
        {
                my $buffer;
                while( read( $fh, $buffer, 4096 ) )
                {
                        $html .= $buffer;
                }
                close( $fh );
        }

        if(length $html)
        {
                my $xml = undef;
                eval{
                        my $tmp_xml = EPrints::XML::parse_xml_string( "<fragment>".$html."</fragment>" );
			my @frags = $tmp_xml->getElementsByTagName( "fragment" );
			if( scalar(@frags) )
			{
				my $frag = $frags[0];
				$xml = $repository->make_doc_fragment;
				foreach my $node ($frag->childNodes)
				{
					$xml->appendChild( $node );
				}
			}

                };

                unless( defined $xml )
                {
                        $repository->log( "MePrints error: failed to parse the static user profile." );
                        return;
                }

#  EPrints Services/pjw 2011-01-31 http://servicesjira.eprints.org:8080/browse/EDGE-58
                $repository->prepare_page({ title => $repository->html_phrase( "meprints:profile:title" ),  page => $xml });
                $repository->send_page();
        }

        return;
}

sub update
{
	my( $repository, $user ) = @_;

	my $targetfile = $user->localpath()."/index.html";

	# if targetfile does not exist, we need to generate the profile
	if( -e $targetfile )
	{
		my $timestampfile = $repository->config( "variables_path" )."/meprints.timestamp";
		my $need_to_update = 0;
		if( -e $timestampfile )
		{
			my $poketime = (stat( $timestampfile ))[9];
			my $targettime = (stat( $targetfile ))[9];
			if( $targettime < $poketime ) { $need_to_update = 1; }
		}

		return unless $need_to_update;
	}
	$user->generate_static();
}

1;