<?php
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# Project: Mom's Strong Start Guille Project (PID: 35680)
# Script: edps_fu.php
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
date_default_timezone_set('America/New_York');
# I. Variables:
 include '/var/www/html/twh.musc.edu/momStrong-pid35680/config.php';
# - - - - - - - - - - - - - - - - - - - - - - - - - #
# A. Twilio PHP Helper Library
 $dir='/var/www/html/twh.musc.edu/twilio-php-master';
 require $dir.'/Twilio/autoload.php';
 use Twilio\Rest\Client;
# - - - - - - - - - - - - - - - - - - - - #
# B. Mom Strong Start Twilio Account:
 $sid = $TWILIO_GLOBAL['sid'];
 $token = $TWILIO_GLOBAL['token'];
 $twilio_num=$TWILIO_GLOBAL['twilio_num'];
# - - - - - - - - - - - - - - - - - - - - #
# C. REDCap API Variables:
 $REDCAP_TOKEN=$REDCAP_GLOBAL['REDCAP_TOKEN'];
 $API_URL=$REDCAP_GLOBAL['API_URL'];
$log_file='/var/www/html/twh.musc.edu/momStrong-pid35680/logs/edps_fu.log';
$logging=fopen($log_file, 'a');
# - - - - - - - - - - - - - - - - - - - - - #
# Logging Record Details: 
$timestamp=time();
$timestamp_log=date("Y-m-d:H:i",$timestamp);
$ts_log="# - - - - - - - - - - - - - - - - - - - - - - - - #\n".$timestamp_log."\n";
fwrite($logging, $ts_log);
# - - - - - - - - - - - - - - - - - - - - #
# D. Command Options Passed:
 $options=getopt(null,array("record:","event:","cell_num:"));
 $RECORD=$options['record'];
 $EVENT=$options['event'];
 $cell_num=$options['cell_num'];
$log_details0=" Record ID: ".$RECORD."\n Event: ".$EVENT."\n Cell: ".$cell_num."\n";
fwrite($logging,$log_details0);
# - - - - - - - - - - - - - - - - - - - - #
  $DATA_EDPS=array('token'=>$REDCAP_TOKEN,'content' => 'record','format' => 'json',
    'type' => 'flat','records' => $RECORD,'events'=>array($EVENT));
# - - - - - - - - - - - - - - - - - - #
# Curl Commands
  $exp = curl_init();
  curl_setopt($exp, CURLOPT_URL, $API_URL);
  curl_setopt($exp, CURLOPT_POSTFIELDS, http_build_query($DATA_EDPS, '', '&'));
  curl_setopt($exp, CURLOPT_RETURNTRANSFER, true);
  curl_setopt($exp, CURLOPT_SSL_VERIFYPEER, FALSE);
  curl_setopt($exp, CURLOPT_VERBOSE, 0);
  curl_setopt($exp, CURLOPT_FOLLOWLOCATION, true);
  curl_setopt($exp, CURLOPT_AUTOREFERER, true);
  curl_setopt($exp, CURLOPT_MAXREDIRS, 10);
  curl_setopt($exp, CURLOPT_CUSTOMREQUEST, "POST");
  curl_setopt($exp, CURLOPT_FRESH_CONNECT, 1);
  $output2 = curl_exec($exp);
  $edps_fu_list=json_decode($output2, true);
  curl_close($exp);
# - - - - - - - - - - - - - - - - - - - - - - - - - #
# Only Process EDPS Follow-up Survey Responses if it's 
# Complete; i.e. "Submitted": 
  $edps_complete=$edps_fu_list[0]['edpsnidamaaafollowup_complete'];
$log_details1="EDPS FU Status: ".$edps_complete."\n";
fwrite($logging,$log_details1);
  if($edps_complete=='2') {
   $record_id=$edps_fu_list[0]['record_id'];
   $risk_cat=$edps_fu_list[0]['txt_risk_cat'];
   $substance_risk=$edps_fu_list[0]['clinic_risk_cat___3'];
   $edps_calc=$edps_fu_list[0]['calc_fu'];
# - - - - - - - - - - - - - - - - - - #
# Determine Risk Category Prevention and Positive Depression: 
   if($edps_calc!=''){
    $clinic_risk_cat___1 = ($edps_calc>=9)? '1' : '0';
    if($risk_cat!='1' && $edps_calc>=9){
     $risk_cat='1';
     }
    $clinic_risk_cat___2 = ($edps_calc<9)? '1' : '0';
    if(($risk_cat!='3' || $risk_cat!='4') && $risk_cat!='2' && $edps_calc<9){
     $risk_cat='2';
     }
    $import_info=array('record_id'=>$record_id,'redcap_event_name'=>$EVENT,
     	'clinic_risk_cat___1'=>$clinic_risk_cat___1, 'clinic_risk_cat___2'=>$clinic_risk_cat___2,'txt_risk_cat'=>$risk_cat);
    $import=json_encode(array($import_info));
    $DATA_IMPORT=array('token'=>$REDCAP_TOKEN,'content'=>'record', 'format'=>'json','type'=>'flat','data'=>$import);
    $imp = curl_init();
    curl_setopt($imp, CURLOPT_URL, $API_URL);
    curl_setopt($imp, CURLOPT_POSTFIELDS, http_build_query($DATA_IMPORT, '', '&'));
    curl_setopt($imp, CURLOPT_RETURNTRANSFER, true);
    curl_setopt($imp, CURLOPT_SSL_VERIFYPEER, FALSNE);
    curl_setopt($imp, CURLOPT_VERBOSE, 0);
    curl_setopt($imp, CURLOPT_FOLLOWLOCATION, true);
    curl_setopt($imp, CURLOPT_AUTOREFERER, true);
    curl_setopt($imp, CURLOPT_MAXREDIRS, 10);
    curl_setopt($imp, CURLOPT_CUSTOMREQUEST, "POST");
    curl_setopt($imp, CURLOPT_FRESH_CONNECT, 1);
    curl_exec($imp);
    curl_close($imp);
    }   
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# Determine Risk Category and Send Text Messages w/ Twilio API:
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
   $client = new Client($sid, $token);
# - - - - - - - - - - - - - - - - - - - - - #
# Positive Depression Text Messages
   if($risk_cat=='1') {
    $client->messages->create($cell_num, array("body"=>$TXT_GLOBAL['pos_txt_1'],"from"=>$twilio_num));
    $client->messages->create($cell_num,array("body"=>$TXT_GLOBAL['pos_contact_txt'],"from"=>$twilio_num));
    sleep(1);
    $client->messages->create($cell_num,array("body"=>$TXT_GLOBAL['safety_txt'],"from"=>$twilio_num));
    }
# - - - - - - - - - - - - - - - - - - - - - #
# Prevention Text Messages:
   if ($risk_cat=='2'){
# Build & send Twilio text message:
    $client->messages->create($cell_num, array("body"=>$TXT_GLOBAL['prev_txt_1'],"from"=>$twilio_num));
    $client->messages->create($cell_num,array("body"=>$TXT_GLOBAL['prev_contact_txt'],"from"=>$twilio_num));
    sleep(1);
    $client->messages->create($cell_num,array("body"=>$TXT_GLOBAL['safety_txt'],"from"=>$twilio_num));
    }
# - - - - - - - - - - - - - - - - - - - - - #
# Substance and Domestic Abuse Messages:
   if ($risk_cat=='3' || $risk_cat=='4'){
    $client->messages->create($cell_num, array("body"=>$TXT_GLOBAL['sars_txt_1'],"from"=>$twilio_num));
    $client->messages->create($cell_num,array("body"=>$TXT_GLOBAL['sars_contact_txt'],"from"=>$twilio_num));
    sleep(1);
    $client->messages->create($cell_num,array("body"=>$TXT_GLOBAL['safety_txt'],"from"=>$twilio_num));
    }
# - - - - - - - - - - - - - - - - - - - - - #
# SAR Text Messages:
   if ($substance_risk=='1'){
    $substance_cat='';
    $nida_q2=$edps_fu_list[0]['nida_q2_fu']; $nida_q3=$edps_fu_list[0]['nida_q3_fu']; $fu_q6=$edps_fu_list[0]['fu_q6_ans'];
    # Opioids
     if ($nida_q2!='0' || $nida_q3!='0') {
     $substance_cat='1';
     $import_info_1=array('record_id'=>$record_id,'redcap_event_name'=>$EVENT,'clinic_risk_sub_cat'=>$substance_cat);
     $import_1=json_encode(array($import_info_1));
     $DATA_IMPORT_1=array('token'=>$REDCAP_TOKEN,'content'=>'record', 'format'=>'json','type'=>'flat','data'=>$import_1);
     $imp = curl_init();
     curl_setopt($imp, CURLOPT_URL, $API_URL);
     curl_setopt($imp, CURLOPT_POSTFIELDS, http_build_query($DATA_IMPORT_1, '', '&'));
     curl_setopt($imp, CURLOPT_RETURNTRANSFER, true);
     curl_setopt($imp, CURLOPT_SSL_VERIFYPEER, FALSNE);
     curl_setopt($imp, CURLOPT_VERBOSE, 0);
     curl_setopt($imp, CURLOPT_FOLLOWLOCATION, true);
     curl_setopt($imp, CURLOPT_AUTOREFERER, true);
     curl_setopt($imp, CURLOPT_MAXREDIRS, 10);
     curl_setopt($imp, CURLOPT_CUSTOMREQUEST, "POST");
     curl_setopt($imp, CURLOPT_FRESH_CONNECT, 1);
     curl_exec($imp);
     curl_close($imp);
     }
    else {
     # Tobacco
     if ($fu_q6=='1') {
      $substance_cat='0';
      # Import into REDCap #
     $import_info1=array('record_id'=>$record_id,'redcap_event_name'=>$EVENT,'clinic_risk_sub_cat'=>$substance_cat);
     $import1=json_encode(array($import_info1));
     $DATA_IMPORT1=array('token'=>$REDCAP_TOKEN,'content'=>'record', 'format'=>'json','type'=>'flat','data'=>$import1);
     $imp = curl_init();
     curl_setopt($imp, CURLOPT_URL, $API_URL);
     curl_setopt($imp, CURLOPT_POSTFIELDS, http_build_query($DATA_IMPORT1, '', '&'));
     curl_setopt($imp, CURLOPT_RETURNTRANSFER, true);
     curl_setopt($imp, CURLOPT_SSL_VERIFYPEER, FALSE);
     curl_setopt($imp, CURLOPT_VERBOSE, 0);
     curl_setopt($imp, CURLOPT_FOLLOWLOCATION, true);
     curl_setopt($imp, CURLOPT_AUTOREFERER, true);
     curl_setopt($imp, CURLOPT_MAXREDIRS, 10);
     curl_setopt($imp, CURLOPT_CUSTOMREQUEST, "POST");
     curl_setopt($imp, CURLOPT_FRESH_CONNECT, 1);
     curl_exec($imp);
     curl_close($imp);
      }
     }
    }
    # Substance and Domestic Abuse Messages:
/*   if ($risk_cat=='3' || $risk_cat=='4'){
    $client->messages->create($cell_num, array("body"=>$TXT_GLOBAL['sars_txt_1'],"from"=>$twilio_num));
    $client->messages->create($cell_num,array("body"=>$TXT_GLOBAL['sars_contact_txt'],"from"=>$twilio_num));
    sleep(1);
    $client->messages->create($cell_num,array("body"=>$TXT_GLOBAL['sars_safety_txt'],"from"=>$twilio_num));
    }
*/
# - - - - - - - - - - - - - - - - - - - - - #
   } #if EDPS Followup COMPLETE
  else {
   exit();
   }
fclose($logging);
?>