#!/usr/bin/php -q
<?php

	function WriteLog ($line)
	{
	  $log = fopen("/var/log/asterisk/agi.log", "a+");
	  $date_time = date ("d/m/Y H:i:s", time ());
	  fputs($log, "${date_time}: ${line}\n");
	  fflush($log);
	  fclose ($log);
	}


	function SendEmail ($to, $filename)
    {
        $from = "SunISP Voicemail System";
        $subject = "You have a new voicemail";

        $fileatt = "/var/lib/asterisk/sounds/a2billing/voicemail/messages/" . $filename;
        $fileatttype = "application/wav";
        $fileattname = $filename;

        $headers = "From: $from";

        $file = fopen( $fileatt, 'rb' );
        $data = fread( $file, filesize( $fileatt ) );
        fclose( $file );

        $semi_rand = md5( time() );
        $mime_boundary = "==Multipart_Boundary_x{$semi_rand}x";

        $headers .= "\nMIME-Version: 1.0\n" .
                    "Content-Type: multipart/mixed;\n" .
                    " boundary=\"{$mime_boundary}\"";

        $message = "This is a multi-part message in MIME format.\n\n" .
                "--{$mime_boundary}\n" .
                "Content-Type: text/plain; charset=\"iso-8859-1\"\n" .
                "Content-Transfer-Encoding: 7bit\n\n" .
                $message . "\n\n";

        $data = chunk_split( base64_encode( $data ) );

        $message .= "--{$mime_boundary}\n" .
                 "Content-Type: {$fileatttype};\n" .
                 " name=\"{$fileattname}\"\n" .
                 "Content-Disposition: attachment;\n" .
                 " filename=\"{$fileattname}\"\n" .
                 "Content-Transfer-Encoding: base64\n\n" .
                 $data . "\n\n" .
                 "--{$mime_boundary}--\n";

        if( mail( $to, $subject, $message, $headers ) )
            WriteLog ("The email was sent.");
        else
            WriteLog ("There was an error sending the mail.");
    }
	declare(ticks = 1);
	if (function_exists('pcntl_signal'))
		pcntl_signal(SIGHUP,  SIG_IGN);

	error_reporting(E_ALL ^ (E_NOTICE | E_WARNING));

	include (dirname(__FILE__)."/libs_a2billing/db_php_lib/Class.Table.php");
	include (dirname(__FILE__)."/libs_a2billing/Class.A2Billing.php");
	include (dirname(__FILE__)."/libs_a2billing/Class.RateEngine.php");
	include (dirname(__FILE__)."/libs_a2billing/phpagi_2_14/phpagi.php");
	include (dirname(__FILE__)."/libs_a2billing/phpagi_2_14/phpagi-asmanager.php");


	$charge_callback=0;
	$G_startime = time();
	$agi_date = "Release : 13 August 2006";
	$agi_version = "1.2.3 (BrainCoral)";

	/********** 	 CREATE THE AGI INSTANCE + ANSWER THE CALL		**********/
	$agi = new AGI();

	if ($argc > 1 && is_numeric($argv[1]) && $argv[1] >= 0)
		$cardID = $argv[1];
	else
		$cardID = 0;
	if (($argc > 2) && ($argv[2] >= 0))
		$reason = $argv[2];
	if (strcasecmp ($reason, "BUSY") != 0)
		$reason = "unavailable";
	else
		$reason = "busy";

	$mode = 'standard';
	$ldconfig = 1;

	$A2B = new A2Billing();
	$A2B -> load_conf($agi, NULL, 0, $idconfig);

	$A2B -> CC_TESTING = isset($A2B->agiconfig['debugshell']) && $A2B->agiconfig['debugshell'];

	/* GET THE AGI PARAMETER */
	$A2B -> get_agi_request_parameter ($agi);

	if (!$A2B -> DbConnect())
    {
		$agi-> stream_file('prepaid-final', '#');
		exit;
	}

	$instance_table = new Table();
	$A2B -> set_instance_table ($instance_table);

	// First check if the card ID is passed through the dialplan
	$query = "SELECT DID,email FROM cc_card WHERE (id=" . $cardID . ")";
	$result = $A2B -> instance_table -> SQLExec ($A2B->DBHandle, $query);
	$ok = (is_array($result));

	if (!$ok)
		exit ();

	// Save the DID
	$DID = $result [0][0];
    $email = $result [0][1];
    settype ($email, "string");

/*
	// Ask the caller to enter the customer ID
	while ((!$ok) && ($errorCount < 3))
	{
		$errorCount++;
		$resDTMF = $agi->get_data ("a2billing/voicemail/enter_customer_id", 10000, 10);
		$cardID = $resDTMF ["result"];
		$query = "SELECT id FROM cc_card WHERE (id=" . $cardID . ")";
		$result = $A2B -> instance_table -> SQLExec ($A2B->DBHandle, $query);
		$ok = (is_array($result));
		if (!$ok)
		{
			$agi->stream_file ("a2billing/voicemail/wrong_customer_id");
			if ($errorCount < 3)
				$agi->stream_file ("a2billing/voicemail/try_again");
            else
            {
				$agi->stream_file ("a2billing/voicemail/too_many_errors");
				exit ();
            }
        }
	}
*/
	$busyFile = "/var/lib/asterisk/sounds/a2billing/voicemail/busy/" . $cardID;
	$unavailFile = "/var/lib/asterisk/sounds/a2billing/voicemail/unavailable/" . $cardID;
	if ($reason == "busy")
		$useDefault = !file_exists ($busyFile . ".wav");
	else
		$useDefault = !file_exists ($unavailFile . ".wav");
	if ($useDefault)
	{
		// Play the default message
		$agi->stream_file ("vm-theperson");
        WriteLog ("DID is ${DID}");
		$agi->say_digits ($DID);
		if ($reason == "busy")
		    $agi->stream_file ("vm-isonphone");
		else
		    $agi->stream_file ("vm-isunavail");
	}
	else
		// Play the user recording file
		if ($reason == "busy")
		    $agi->stream_file ($busyFile);
		else
		    $agi->stream_file ($unavailFile);

	// Record the mesasge file
    $msgfilename = time () . "_" . $agi->request[agi_uniqueid];
	$filename = "a2billing/voicemail/messages/" . $msgfilename;
	$agi->stream_file ("vm-intro");

	// Do the recording
    WriteLog ("Starting recording");
    $recordingstart = time ();
    $agi -> set_variable ("RECORDINGSTART", $recordingstart);
    $agi -> set_variable ("RECORDINGFILENAME", $msgfilename);
	$result = $agi->record_file ($filename, "wav", "#", 300000, NULL, 5);
    WriteLog ("Recording result is ${result}");
    $recordingend = time ();
    WriteLog ("Ended recording");

    if (($recordingend - $recordingstart) > 3)
    {
    	// Messages shorter that 3 seconds will be discarded

		// Insert a new record into the database
		$query = "INSERT INTO cc_voicemail (CardNumber,MessageFile,MessageDate,CallerID) VALUES (";
		$query .= $cardID . ",'" . $filename ."','" . date ("Y-m-d H:i:s") . "','" . $agi->request['agi_callerid'] . "')";
		$result = $A2B -> instance_table -> SQLExec ($A2B->DBHandle, $query, 0);

	    if (strlen ($email) > 0)
	    	// Send an email message with an attachement
	        SendEmail ($email, $msgfilename . ".wav");
    }
    else
    {
    	WriteLog ("Message is too short");
    	unlink ("/var/lib/asterisk/sounds/a2billing/voicemail/messages/" . $msgfilename);
    }
?>