#!/usr/bin/perl
#use utf8;
use strict;
use CGI;
use Encode;
use PDF::Create;
use POSIX qw(
floor
ceil
);
use Opals::Context;
use Time::localtime;
use Opals::Date qw(
date_parse
date_today
date_text
date_f005
);
use Opals::Template qw(
tmpl_read
tmpl_write
tmpl_preference
);
use Opals::Locale qw(
loc_getMsgFile
loc_write
);
use JSON;
use Opals::Mail qw(
mail_send
);
my $dbh = Opals::Context->dbh();
END { $dbh->disconnect(); }
my $request=getRquest();
my $cgi = CGI->new;
my $input = $cgi->Vars();
my $pref =tmpl_preference($dbh);
my $libname = decode('utf8', $pref->{'libname'});
my $dateToday = date_f005();
$dateToday =~ s/([\d]{4})([\d]{2})([\d]{2})[\d]+\.(0|1)/$1-$2-$3/;
my $todayStr = date_text($dateToday,1,$pref->{"lang"} );
my $email =$request->{"email"};
$email =~ s/ +/,/g;
$email =~ s/;+/,/g;
$email =~ s/,+/,/g;
$email =~ s/(^,|,$)//g;
my $subject =$request->{"subject"};
my $cont .= "";
$cont .= "";
$cont .= "";
$cont .= "";
$cont .= "$todayStr
";
$cont .= "$libname
Overdue Items Reminder
";
$cont .= $request->{"content"}. "";
my $status =mail_send($pref, $email,$subject , $cont);
my $rs={status=>$status};
print "Content-type: application/json\n\n";
print to_json($rs);
#------------------------------------------------------------------------------
sub getRquest{
my $request={};
if ($ENV{'REQUEST_METHOD'} eq "POST") {
my $json ="";
while () {
$json .= $_;
}
$request = decode_json($json);
}
return $request;
}