<?php
# - - - - - - - - - - - - - - - - - - - - - #
# Script: surveyLinks_pid17254.php
# Pulls the Survey Links for Current and Previous
# - - - - - - - - - - - - - - - - - - - - - #
# I. Pull All Records that have an empty
# Survey Link Field in the sos form
# PID: 17254
# - - - - - - - - - - - - - - - - - - - - - #
$TOKEN='46E4D608168B2F26394AED7C0457900E';
$API_URL='https://redcap.musc.edu/api/';
#$RECORD = isset($_REQUEST['record']) ? $_REQUEST['record'] : "";
#$INSTRUMENT = isset($_REQUEST['instrument']) ? $_REQUEST['instrument'] : "";
$FIELDS=array('record_id');
$LOGIC='[sos_url]=""';
if($INSTRUMENT=='bmic_sos'){
$RECORD_DATA=array('token'=>$TOKEN,'content'=>'record','format'=>'json',
#       'type'=>'flat','forms'=>array('bmic_sos'),'filterLogic'=>$LOGIC);
        'type'=>'flat','fields'=>$FIELDS,'filterLogic'=>$LOGIC);
$exp = curl_init();
curl_setopt($exp, CURLOPT_URL, $API_URL);
curl_setopt($exp, CURLOPT_POSTFIELDS, http_build_query($RECORD_DATA, '', '&'));
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);
$output=curl_exec($exp);
$record_list=json_decode($output, true);
curl_close($exp);
$json_length=count($record_list);
# - - - - - - - - - - - - - - - - - - - - - #
# II. EXPORT Survey Links from Current Project
# and Past Projects for Each Record
# - - - - - - - - - - - - - - - - - - - - - #
for($x = 0; $x < $json_length; $x++) {
  $RECORD=$record_list[$x]['record_id'];
# - - - - - - - - - - - - - - - - - - - - - - - #
# IIa. EXPORT: 2019 Survey Link for the Record:
  $DATA=array('token'=>$TOKEN,'content'=>'surveyLink','format'=>'csv',
              'instrument'=>'bmic_sos','record'=>$RECORD);
  $exp = curl_init();
  curl_setopt($exp, CURLOPT_URL, $API_URL);
  curl_setopt($exp, CURLOPT_POSTFIELDS, http_build_query($DATA, '', '&'));
  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);
  $survey_link=curl_exec($exp);
  curl_close($exp);
echo $RECORD.":  ".$survey_link."\n";
# - - - - - - - - - - - - - - - - - - - - - - - #
# III. IMPORT: Survey Links to 2019 Project:
# - - - - - - - - - - - - - - - - - - - - - - - #
  $import_info=array('record_id'=>$RECORD,'sos_url'=>$survey_link);
  $import=json_encode(array($import_info));
  $DATA_IMPORT=array('token'=>$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, 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);
} #Instrument: bmic_sos
}

?>