#!/usr/bin/perl

 #

 # DW::Controller::RPC::CutExpander

 #

 # AJAX endpoint that returns the expanded text for a cut tag.

 #

 # Author:

 #      Allen Petersen

 #

 # Copyright (c) 2009-2011 by Dreamwidth Studios, LLC.

 #

 # This program is free software; you may redistribute it and/or modify it under

 # the same terms as Perl itself. For a copy of the license, please reference

 # 'perldoc perlartistic' or 'perldoc perlgpl'.

 #

 package DW::Controller::RPC::CutExpander;

 use strict;

 use warnings;

 use DW::Routing;

 use JSON;

 DW::Routing->register_string( "/__rpc_cuttag", \&cutexpander_handler, app => 1, user => 1, format => 'json' );

 sub cutexpander_handler {

     my $opts = shift;

     # gets the request and args

     my $r = DW::Request->get;

     my $args = $r->get_args;

     my $remote = LJ::get_remote();

     # error handler

     my $error_out = sub {

        my ( $code, $message ) = @_;

        $r->status( $code );

        $r->print( objToJson( { error => $message } ) );

        return $r->OK;

     };

     if ( $args->{ditemid} && $args->{journal} && $args->{cutid} ) {

         # all parameters are included; get the entry.

         my $ditemid = $args->{ditemid};

         my $uid = LJ::get_userid( $args->{journal} );

         my $entry = $uid ? LJ::Entry->new( $uid, ditemid => $ditemid ) : undef;

         # FIXME: This returns 200 due to old library, Make return proper when we are jQuery only.

         return $error_out->( 200, BML::ml( "error.nopermission" ) ) unless $entry;

         # make sure the user can read the entry

         if ( $entry->visible_to( $remote ) ) {

             my $text = load_cuttext( $entry, $remote, $args->{cutid} );

             # FIXME: temporary fix.

             # remove some unicode characters that could cause the returned JSON to break

             # like in LJ::ejs, but we don't need to escape quotes, etc (objToJson does that)

             $text =~ s/\xE2\x80[\xA8\xA9]//gs;

             $r->print( objToJson( { text => $text } ) );

             return $r->OK;

         }

     }

     # FIXME: This returns 200 due to old library, Make return proper when we are jQuery only.

     return $error_out->( 200, BML::ml( "error.nopermission" ) );

 }

 # loads the cutttext for the given entry

 sub load_cuttext {

     my ( $entry_obj, $remote, $cutid ) = @_;

     # most of this is taken from S2->Entry_from_entryobj, modified for this

     # more limited purpose.

     my $get = {};

     my $subject = "";

     my $anum = $entry_obj->anum;

     my $jitemid = $entry_obj->jitemid;

     my $ditemid = $entry_obj->ditemid;

     # $journal: journal posted to

     my $journalid = $entry_obj->journalid;

     my $journal = LJ::load_userid( $journalid );

     # is style=mine used?  or if remote has it on and this entry is not part of

     # their journal.  if either are yes, it needs to be added to comment links

     my %opt_stylemine = $remote && $remote->prop( 'opt_stylemine' ) && $remote->id != $journalid ? ( style => 'mine' ) : ();

     my $style_args = LJ::viewing_style_args( %$get, %opt_stylemine );

     #load and prepare text of entry

     my $text = LJ::CleanHTML::quote_html( $entry_obj->event_raw, $get->{nohtml} );

     LJ::item_toutf8( $journal, \$subject, \$text ) if $LJ::UNICODE && $entry_obj->props->{unknown8bit};

     my $suspend_msg = $entry_obj && $entry_obj->should_show_suspend_msg_to( $remote ) ? 1 : 0;

     # cleaning the entry text: cuts and such

     my $cleanhtml_opts = { cuturl => LJ::item_link( $journal, $jitemid, $anum, $style_args ),

         journal => $journal->username,

         ditemid => $ditemid,

         suspend_msg => $suspend_msg,

         unsuspend_supportid => $suspend_msg ? $entry_obj->prop( 'unsuspend_supportid' ) : 0,

         preformatted => $entry_obj->prop( "opt_preformatted" ),

         cut_retrieve => $cutid, 

     };

     LJ::CleanHTML::clean_event( \$text, $cleanhtml_opts );

     LJ::expand_embedded( $journal, $jitemid, $remote, \$text );

     return $text;

 }

 1;