#!/usr/bin/perl

use strict;
use CGI;
use JSON;
use POSIX qw(
    strftime
);

use Opals::Context;
use Opals::Template qw(
    tmpl_preference
);
#use Opals::User qw(
#    user_accessAllowed
#);

use Opals::Mail qw(
    mail_send
);

my $dbh = Opals::Context->dbh();
my $pref = tmpl_preference($dbh);
my $cgi = CGI->new;

my $referer = $ENV{'HTTP_REFERER'};
my $host = $ENV{'SERVER_NAME'};

my $rs = {status => 1}; # failed by default

if ($referer=~ m/$host/
    #&& user_accessAllowed($dbh,$cgi,$ENV{'SCRIPT_NAME'})
    ) {
  my $request = getRequest();

  my $content = '';
  foreach my $hr (@{$request->{'data'}}) {
    foreach my $rid (@{$hr->{'rids'}}) {
      $content .= "http://$hr->{'host'}/bin/search/recDetailPage?rid=$rid<br/>";
    }
  }

  my $date = strftime('%F', localtime);
  mail_send($pref,
      $request->{'toField'},
      "Library Web App - Selected Items $date",#$request->{'subject'},
      $content
      );
  $rs = {status => 0}; # successful
}

print "Content-type: text/plain\n\n";
print to_json($rs);


#======================================================================
sub getRequest{
  my $request = {};

  if (lc($ENV{'REQUEST_METHOD'}) eq 'json') {
    my $json = '';
    while (<STDIN>) {
      $json .= $_;
    }
    $request = decode_json($json);
  }

  return $request;
}