// Copyright (c) 1997-2009 Nokia Corporation and/or its subsidiary(-ies).

// All rights reserved.

// This component and the accompanying materials are made available

// under the terms of "Eclipse Public License v1.0"

// which accompanies this distribution, and is available

// at the URL "http://www.eclipse.org/legal/epl-v10.html".

//

// Initial Contributors:

// Nokia Corporation - initial contribution.

//

// Contributors:

//

// Description:

//

#include "FAXSERV.H"

#include "fax_reversebytes.h"

#include "FAXMODEM.H"

#include "FAXMDRV.H"

#include "FAXLOG.H"

const TInt KClass20HangupStatusTimer=20;	// < Time used to wait for final +FHS: report.  Was 5s, but typical GSM delays range between 4s and 10s.

// this module has two parts

// first receive routines rx

// second transmit routines tx

/********************************************************************/

CFaxModemDriver* CFaxClass20::NewLC(TFaxServerSessionSettings * aFaxServerSessionSettings, RFax::TProgress & aProgress)

	{

	CFaxModemDriver* self = new(ELeave) CFaxClass20;

	CleanupStack::PushL(self);

	self->ConstructL(aFaxServerSessionSettings, aProgress);

	return self;

	}

CFaxModemDriver* CFaxClass20::NewL(TFaxServerSessionSettings * aFaxServerSessionSettings, RFax::TProgress & aProgress)

	{

	CFaxModemDriver* self = NewLC(aFaxServerSessionSettings, aProgress);

	CleanupStack::Pop();

	return self;

	}

/********************************************************************/

TInt CFaxClass20::RxConnectL()

	{

	__FLOG_FAXSRV( _L8("CFaxClass20::RxConnectL entering"));

	CheckCadenceExportL (_L8 ("AT+FNR=1,1,1,0\r"));

	if ((iModem->GetMatchL (_L8 ("OK"), 5)) == 0)

		return (KFaxErrModemNotWorking);

	CheckCadenceExportL(_L8("AT+FCC=?\r"));

	if (!(iModem->ImportL (iResults, 35)))

		return (KFaxErrModemNotWorking);

	iModem->iOurMessage.Format (_L8 ("%S"), &iResults);

	iModem->ProgressUpdateL ();

	ParseResults (iResults);

	iModem->GetMatchL (_L8 ("OK"), 2);

	if (iFaxServerSessionSettings->iRxResolution == EFaxNormal)

		iModem->iProgress.iResolution = EFaxNormal;

	else

		iModem->iProgress.iResolution = EFaxFine;

	if (iFaxServerSessionSettings->iRxCompression == EModifiedRead)

		iModem->iProgress.iCompression = EModifiedRead;

	else

		iModem->iProgress.iCompression = EModifiedHuffman;

	iActualFaxSpeed = iModem->iProgress.iSpeed;

	if (iActualFaxSpeed > iFaxServerSessionSettings->iMaxSpeed)

		iActualFaxSpeed = iFaxServerSessionSettings->iMaxSpeed;

	if (iFaxServerSessionSettings->iPreferredECM == 0)

		iModem->iProgress.iECM = 0;

	iResults.Copy(_L8("AT+FCC=0,0,0,2,0,0,0,0\r"));

	iResults[7] = (TUint8) (iResults[7] + iModem->iProgress.iResolution);

	iResults[9] = (TUint8) (((iActualFaxSpeed / 2400) - 1) + '0');

	iResults[15] = (TUint8) (iResults[15] + iModem->iProgress.iCompression);

	iResults[17] = (TUint8) (iModem->iProgress.iECM + '0');

	CheckCadenceExportL(iResults);

	if ((iModem->GetMatchL(_L8("OK"), 3)) == 0)

		{

		return (KFaxErrModemNotWorking);

		}

	CheckCadenceExportL(_L8 ("AT+FAA=0\r"));

	if ((iModem->GetMatchL(_L8("OK"), 5)) == 0)

		{

		return (KFaxErrNoReceiveMode);

		}

	TBuf8<RCall::KFaxIdUserNameMaxSize> narrowBuf;

	narrowBuf.Copy(iFaxServerSessionSettings->iFaxId);	 // convert from unicode to narrow

	//-- By Dmitry Lyokhin. concerns PIA-58ELQK defect.

	if( narrowBuf.Length() < 1 )

		{

		narrowBuf.Append(' ');

		}

	if (iFaxServerSessionSettings->iMode & KFaxPoll)

		{

		iModem->ExportL(_L8 ("AT+FSP=1\r"));

		if ((iModem->GetMatchL(_L8("OK"), 5)) == 0)

			{

			return (KFaxPollingUnsupported);

			}

		iModem->ExportL(_L8("AT+FPI=\""));

		iModem->ExportL(narrowBuf);

		iModem->ExportL(_L8 ("\"\r"));

		if ((iModem->GetMatchL(_L8("OK"), 3)) == 0)

			{

			return (KFaxPollingUnsupported);

			}

		}

	else

		{

		CheckCadenceExportL(_L8("AT+FCR=1\r"));

		if ((iModem->GetMatchL(_L8("OK"), 5)) == 0)

			{

			return (KFaxErrNoReceiveMode);

			}

		CheckCadenceExportL(_L8("AT+FLI=\""));

		iModem->ExportL(narrowBuf);

		iModem->ExportL(_L8("\"\r"));

		if ((iModem->GetMatchL(_L8("OK"), 3)) == 0)

			{

			return (KFaxErrModemNotWorking);

			}

		}

	if (iFaxServerSessionSettings->iMode & KFaxWaitForRing)

		{

//		while ((iModem->GetMatchL(_L8("RING"), 3)) == 0);

//		iTimeOfLastRing.UniversalTime();

		}

	else

		{

		if ((iFaxServerSessionSettings->iMode & KFaxOffHook) == 0)

			{

			DialFaxOnDemandL();

			}

		}

	if ((iFaxServerSessionSettings->iMode & KFaxPoll) == 0)

		{

		CheckCadenceExportL(_L8("ATA\r"));

		}

	iModem->iProgress.iPhase = ECallEstablishment;

	TInt pollDocsAvailable = 0;

	for (;;)

		{

		if(!(iModem->ImportL(iResults, 35)))

			{

			return KFaxErrCannotAnswer;

			}

		iModem->iOurMessage.Format(_L8("%S"), &iResults);

		iModem->ProgressUpdateL();

		if ((iResults.FindF(_L8("NO DIALTONE"))) >= 0 ||

			iResults.FindF(_L8("NO DIAL TONE")) >= 0)

			return (KFaxErrNoDialTone);

		if ((iResults.FindF(_L8("BUSY"))) >= 0)

			return (KFaxErrBusy);

		if ((iResults.FindF(_L8("NO ANSWER"))) >= 0)

			return (KFaxErrNoAnswer);

		if ((iResults.FindF(_L8("NO CARRIER"))) >= 0)

			return (KFaxErrNoCarrier);

		if ((iResults.FindF(_L8("OK"))) >= 0)

			break;

		if ((iResults.FindF(_L8("FHS"))) >= 0)

			return (KFaxErrPrematureHangup);

		if ((iResults.FindF(_L8("FCO"))) >= 0)

			iModem->iProgress.iPhase = ESessionNegotiation;

		else if ((iResults.FindF(_L8("FPO"))) >= 0)

			pollDocsAvailable = 1;

		else if ((iResults.FindF(_L8("FTI"))) >= 0)

			ExtractAnswerback(iResults);

		else if ((iResults.FindF(_L8("FCS"))) >= 0)

			ParseResults(iResults);

		}

	if ((iFaxServerSessionSettings->iMode & KFaxPoll) && (pollDocsAvailable == 0))

		return (KFaxNothingToPoll);

	iModem->iOurMessage.Format(_L8 ("about to receive fax"));

	iModem->ProgressUpdateL();

	return RxPrePageL();

	}

/********************************************************************/

TInt CFaxClass20::RxPrePageL()

	{

	__FLOG_FAXSRV( _L8("CFaxClass20::RxPrePageL entering"));

	iModem->ExportL(_L8 ("AT+FDR\r"));

	for (;;)

		{

		if (!(iModem->ImportL (iResults, 35)))

			return (KFaxErrCannotConnect);

		iModem->iOurMessage.Format (_L8 ("%S"), &iResults);

		iModem->ProgressUpdateL ();

		if ((iResults.FindF (_L8 ("ERROR"))) >= 0)

			return (KFaxErrNoReceiveMode);

		if ((iResults.FindF (_L8 ("FHS"))) >= 0)

			return (KFaxErrPrematureHangup);

		if ((iResults.FindF (_L8 ("CONNECT"))) >= 0)

			break;

		if ((iResults.FindF (_L8 ("FCS"))) >= 0)

			ParseResults (iResults);

		}

	iModem->TxcharL (Kdc2);

	return (RxStartPageL ());

}

/********************************************************************/

TInt CFaxClass20::RxPostPageL ()

{

    __FLOG_FAXSRV( _L8("CFaxClass20::RxPostPageL entering"));

	iModem->iProgress.iPhase = EPostPageStatus;

	iModem->ProgressUpdateL ();

	for (;;)

		{

		if (iModem->iProgress.iECM == 0)

			{

			if (!(iModem->ImportL (iResults, 20)))

				return (KFaxErrModemResponse);

			}

        else

            {

            // coverity[check_return]

            iModem->ImportL (iResults, 0x7fff);     // no timeout if ECM enabled

            }

		iModem->iOurMessage.Format (_L8 ("%S"), &iResults);

		iModem->ProgressUpdateL ();

		if ((iResults.FindF (_L8 ("OK"))) >= 0)

			return (KFaxErrPrematureOK);

		if ((iResults.FindF (_L8 ("FHS"))) >= 0)

			return (KFaxErrPrematureHangup);

		if ((iResults.FindF (_L8 ("FET"))) >= 0)

			break;

		}

	if (iModem->GetMatchL (_L8 ("OK"), 5) == 0)

		return (KFaxErrNoFinalOK);

	if ((iResults.FindF (_L8 ("0"))) >= 0)

		{

		iModem->iOurMessage.Format (_L8 ("page %u successfully received"), iModem->iProgress.iPage);

		iModem->ProgressUpdateL ();

		return (RxPrePageL ());

		}

	if ((iResults.FindF (_L8 ("1"))) >= 0)

		{

		iModem->iOurMessage.Format (_L8 ("page %u successfully received : end of document"), iModem->iProgress.iPage);

		iModem->ProgressUpdateL ();

		iModem->iOurMessage.Format (_L8 ("Next fax awaited"));

		iModem->ProgressUpdateL ();

		return (RxPrePageL ());

		}

	if ((iResults.FindF (_L8 ("2"))) >= 0)

		{

		iModem->iOurMessage.Format (_L8 ("Final page %u successfully received"), iModem->iProgress.iPage);

		iModem->ProgressUpdateL ();

		iModem->iProgress.iPhase = EDisconnection;

		iModem->ExportL (_L8 ("AT+FDR\r"));

		if (iModem->GetMatchL (_L8 ("FHS"), KClass20HangupStatusTimer) == 0)

			return (KFaxErrNoHangup);

		if (iModem->GetMatchL (_L8 ("OK"), 5) == 0)

			return (KFaxErrNoFinalOK);

		return (KErrNone);

		}

	return (KFaxErrUnknownPageCode);

}

/********************************************************************/

TInt CFaxClass20::TxConnectL ()

{

    __FLOG_FAXSRV( _L8("CFaxClass20::TxConnectL entering"));

	iModem->ExportL (_L8 ("AT+FNR=1,1,1,0\r"));

	if ((iModem->GetMatchL (_L8 ("OK"), 5)) == 0)

		return (KFaxErrModemNotWorking);

	TBuf8<RCall::KFaxIdUserNameMaxSize> narrowBuf;

	narrowBuf.Copy(iFaxServerSessionSettings->iFaxId);	 // convert from unicode to narrow

	//-- By Dmitry Lyokhin. concerns PIA-58ELQK defect.

	if( narrowBuf.Length() < 1 ) narrowBuf.Append(' ');

	iModem->ExportL (_L8 ("AT+FLI=\""));

	iModem->ExportL (narrowBuf);

	iModem->ExportL (_L8 ("\"\r"));

	if ((iModem->GetMatchL (_L8 ("OK"), 3)) == 0)

		return (KFaxErrModemNotWorking);

	iModem->ExportL (_L8 ("AT+FCC=?\r"));

	if (!(iModem->ImportL (iResults, 35)))

		return (KFaxErrModemNotWorking);

	iModem->iOurMessage.Format (_L8 ("%S"), &iResults);

	iModem->ProgressUpdateL ();

	ParseResults (iResults);

	iModem->GetMatchL (_L8 ("OK"), 2);

	iActualFaxSpeed = iModem->iProgress.iSpeed;

	if (iActualFaxSpeed > iFaxServerSessionSettings->iMaxSpeed)

		iActualFaxSpeed = iFaxServerSessionSettings->iMaxSpeed;

	if (iFaxServerSessionSettings->iPreferredECM == 0)

		iModem->iProgress.iECM = 0;

	iResults.Copy (_L8 ("AT+FCC=0,0,0,2,0,0,0,0\r"));

	iResults[7] = (TUint8) (iResults[7] + iFaxServerSessionSettings->iTxResolution);

	iResults[9] = (TUint8) (((iActualFaxSpeed / 2400) - 1) + '0');

	// added to support 2Dfaxing using class 2.0

	if (iModem->iProgress.iCompression)

		iResults[15] = (TUint8) (iResults[15] + iFaxServerSessionSettings->iTxCompression);

	else

		iResults[15] = (TUint8) (iResults[15] + EModifiedHuffman);

	//iResults[15] = (TUint8) (iResults[15] + iFaxServerSessionSettings->iTxCompression);

	iResults[17] = (TUint8) (iModem->iProgress.iECM + '0');

	iModem->ExportL (iResults);

	if ((iModem->GetMatchL (_L8 ("OK"), 3)) == 0)

		return (KFaxErrModemNotWorking);

	iModem->ExportL (_L8 ("ATD"));

	if ((iFaxServerSessionSettings->iMode & KFaxOffHook) == 0)

		iModem->ExportL (iFaxServerSessionSettings->iPhoneNumber);

	iModem->TxcharL (Kreturn);

	iModem->iProgress.iPhase = ECallEstablishment;

	for (;;)

		{

		if (!(iModem->ImportL (iResults, KDialTimeout)))

			return (KFaxErrNoDial);

		iModem->iOurMessage.Format (_L8 ("%S"), &iResults);

		iModem->ProgressUpdateL ();

		if ((iResults.FindF (_L8 ("NO DIALTONE"))) >= 0 ||

			iResults.FindF (_L8 ("NO DIAL TONE")) >= 0)

			return (KFaxErrNoDialTone);

		if ((iResults.FindF (_L8 ("BUSY"))) >= 0)

			return (KFaxErrBusy);

		if ((iResults.FindF (_L8 ("NO ANSWER"))) >= 0)

			return (KFaxErrNoAnswer);

		if ((iResults.FindF (_L8 ("NO CARRIER"))) >= 0)

			return (KFaxErrNoCarrier);

		if ((iResults.FindF (_L8 ("FHS"))) >= 0)

			return (KFaxErrNoNegotiate);

		if ((iResults.FindF (_L8 ("OK"))) >= 0)

			break;

		if ((iResults.FindF (_L8 ("FCO"))) >= 0)

			iModem->iProgress.iPhase = ESessionNegotiation;

		else if ((iResults.FindF (_L8 ("FCI"))) >= 0)

			ExtractAnswerback (iResults);

		}

	return (TxPrePageL ());

}

/********************************************************************/

TInt CFaxClass20::TxPrePageL ()

{

    __FLOG_FAXSRV(_L8("CFaxClass20::TxPrePageL entering"));

	iModem->ExportL (_L8 ("AT+FDT\r"));

	for (;;)

		{

		if (!(iModem->ImportL (iResults, 30)))

			return (KFaxErrNoNegotiate);

		iModem->iOurMessage.Format (_L8 ("%S"), &iResults);

		iModem->ProgressUpdateL ();

		if ((iResults.FindF (_L8 ("FHS"))) >= 0)

			return (KFaxErrNoNegotiate);

		if ((iResults.FindF (_L8 ("CONNECT"))) >= 0)

			break;

		if ((iResults.FindF (_L8 ("FCS"))) >= 0)

			ParseResults (iResults);

		}

	for (;;)

		{

		TInt XonTimeoutSec = CLK_TCK * 3; 

		if ((iModem->RxcharWaitL(XonTimeoutSec)) == 0)

			{

			break;

			}

		if (iModem->iReadone[0] == Kxon)

			{

			break;

			}

		}

	return (TxStartPageL());

}

/********************************************************************/

//

 // TxPostPageL should return either with

 //

 // a) an error code and iPhase set to RFax::EPostPageStatus, in which case the send returns with the error

 // b) KErrNone and iPhase set to RFax::EDataTransfer, in which case we send the next page

 // c) KErrNone and iPhase set to RFax::EDisconnection, in which case the send returns with KErrNone

 //

TInt CFaxClass20::TxPostPageL ()

{

	if (iModem->iProgress.iCompression == EModifiedRead)

		{

		iModem->iTransmitBuffer.Append (0x00);

		iModem->iTransmitBuffer.Append (0x60);

		iModem->iTransmitBuffer.Append (0x00);

		iModem->iTransmitBuffer.Append (0x0C);

		iModem->iTransmitBuffer.Append (0x80);

		iModem->iTransmitBuffer.Append (0x01);

		iModem->iTransmitBuffer.Append (0x30);

		iModem->iTransmitBuffer.Append (0x00);

		iModem->iTransmitBuffer.Append (0x06);

		iModem->iTransmitBuffer.Append (0xC0);

		}

	else

		{

		for (TInt x = 3; x; x--)

			{

			iModem->iTransmitBuffer.Append (0x0);

			iModem->iTransmitBuffer.Append (0x08);

			iModem->iTransmitBuffer.Append (0x80);

			}

		}

	iModem->iTransmitBuffer.Append (Kdle);

	iModem->iOurMessage.Format (_L8 ("RTC transmitted after %d lines"), iModem->iProgress.iLines);

	iModem->ProgressUpdateL ();

	if (iFaxServerSessionSettings->iTxPages == iModem->iProgress.iPage)

		{

		iModem->iTransmitBuffer.Append (0x2e);

		iModem->iOurMessage.Format (_L8 ("End of document transmitted <dle><eop>"));

		}

	else

		{

		iModem->iTransmitBuffer.Append (0x2c);

		iModem->iOurMessage.Format (_L8 ("End of page %u transmitted <dle><mps>"), iModem->iProgress.iPage);

		}

    __FLOG_FAXSRV( iModem->iOurMessage);

	iModem->CommitTransmitBufferL ();

	iModem->iProgress.iPhase = EPostPageStatus;

	iModem->ProgressUpdateL ();

	while (iModem->Txstat () != 0)

		;

	iModem->Xonoff ();

	// we've just ended phase C data, so we need to wait for the modem to respond with OK or ERROR

	for (;;)

		{

		if (iModem->iProgress.iECM == 0)

			{

			if (!(iModem->ImportL (iResults, (32 * 1024) / (iModem->iProgress.iSpeed / 10))))

				return (KFaxErrCannotEndData);

			}

        else

            {

            // coverity[check_return]

            iModem->ImportL (iResults, 0x7fff);     // no timeout if ECM enabled, but NO CARRIER possible from some mobile phones

            if ((iResults.FindF (_L8 ("NO CARRIER"))) >= 0)

                return (KFaxErrCannotEndData);

            }

		iModem->iOurMessage.Format (_L8 ("%S"), &iResults);

		iModem->ProgressUpdateL ();

		if ((iResults.FindF (_L8 ("ERROR"))) >= 0)

			break;

		if ((iResults.FindF (_L8 ("OK"))) >= 0)

			break;

		}

	if (((iResults.FindF (_L8 ("ERROR"))) >= 0) && (iRepeatPage == 0))

		{

		iModem->iProgress.iPhase = ESessionNegotiation;

		iRepeatPage++;

		iModem->iProgress.iPage--;

		return (TxPrePageL ());

		}

	if (iFaxServerSessionSettings->iTxPages != iModem->iProgress.iPage)

		{

		iRepeatPage = 0;

		return (TxPrePageL ());

		}

	iModem->iProgress.iPhase = EDisconnection;

	return (KErrNone);

}

/********************************************************************/