e54b36f8a5
git-svn-id: https://svn.code.sf.net/p/flaim/code/trunk@413 0109f412-320b-0410-ab79-c3e0c5ffbbe6
1339 lines
29 KiB
C++
1339 lines
29 KiB
C++
//-------------------------------------------------------------------------
|
|
// Desc: Class for editing database records via HTTP web pages.
|
|
// Tabs: 3
|
|
//
|
|
// Copyright (c) 2002-2006 Novell, Inc. All Rights Reserved.
|
|
//
|
|
// This program is free software; you can redistribute it and/or
|
|
// modify it under the terms of version 2 of the GNU General Public
|
|
// License as published by the Free Software Foundation.
|
|
//
|
|
// This program is distributed in the hope that it will be useful,
|
|
// but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
// GNU General Public License for more details.
|
|
//
|
|
// You should have received a copy of the GNU General Public License
|
|
// along with this program; if not, contact Novell, Inc.
|
|
//
|
|
// To contact Novell about this file by physical or electronic mail,
|
|
// you may find current contact information at www.novell.com
|
|
//
|
|
// $Id: imonrec.cpp 12334 2006-01-23 12:45:35 -0700 (Mon, 23 Jan 2006) dsanders $
|
|
//-------------------------------------------------------------------------
|
|
|
|
#include "flaimsys.h"
|
|
|
|
/*********************************************************
|
|
Desc: This function handles the ProcessRecord request.
|
|
**********************************************************/
|
|
RCODE F_ProcessRecordPage::display(
|
|
FLMUINT uiNumParams,
|
|
const char ** ppszParams)
|
|
{
|
|
RCODE rc = FERR_OK;
|
|
F_Session * pFlmSession = m_pFlmSession;
|
|
HFDB hDb;
|
|
FLMUINT uiContainer;
|
|
FLMUINT uiDrn;
|
|
char szTmp [128];
|
|
char * pTmp = &szTmp[ 0];
|
|
FLMBOOL bReadOnly;
|
|
char szDbKey[ F_SESSION_DB_KEY_LEN];
|
|
|
|
|
|
// We need to check our session.
|
|
if (!pFlmSession)
|
|
{
|
|
printErrorPage( m_uiSessionRC, TRUE, "No session available for this request");
|
|
goto Exit;
|
|
}
|
|
|
|
// There are several fields on the form that we require, regardless of
|
|
// the action that is being taken.
|
|
|
|
// The hDb (Database File Handle)
|
|
if (RC_BAD( rc = getDatabaseHandleParam( uiNumParams, ppszParams, pFlmSession, &hDb, szDbKey)))
|
|
{
|
|
printErrorPage( rc, TRUE, "Invalid Database Handle");
|
|
goto Exit;
|
|
}
|
|
|
|
// ReadOnly flag
|
|
szTmp[ 0] = '\0';
|
|
bReadOnly = TRUE;
|
|
|
|
// The value may be in the URL or in a form.
|
|
if (RC_BAD( rc = ExtractParameter( uiNumParams,
|
|
ppszParams,
|
|
"ReadOnly",
|
|
sizeof( szTmp),
|
|
szTmp)))
|
|
{
|
|
getFormValueByName( "ReadOnly",
|
|
&pTmp, sizeof( szTmp), NULL);
|
|
}
|
|
|
|
if (szTmp[ 0])
|
|
{
|
|
if (f_stricmp( szTmp, "FALSE") == 0)
|
|
{
|
|
bReadOnly = FALSE;
|
|
}
|
|
}
|
|
|
|
|
|
// The Record Drn
|
|
szTmp[ 0] = '\0';
|
|
|
|
if (RC_BAD( rc = ExtractParameter( uiNumParams,
|
|
ppszParams,
|
|
"DRN",
|
|
sizeof( szTmp),
|
|
szTmp)))
|
|
{
|
|
getFormValueByName( "DRN",
|
|
&pTmp, sizeof( szTmp), NULL);
|
|
}
|
|
|
|
if (szTmp[ 0])
|
|
{
|
|
uiDrn = f_atoud( szTmp);
|
|
}
|
|
else
|
|
{
|
|
rc = RC_SET( FERR_INVALID_PARM);
|
|
printErrorPage( rc, TRUE, "Record DRN is Missing");
|
|
goto Exit;
|
|
}
|
|
|
|
|
|
// The Container number
|
|
szTmp[ 0] = '\0';
|
|
|
|
if (RC_BAD( rc = ExtractParameter( uiNumParams,
|
|
ppszParams,
|
|
"container",
|
|
sizeof( szTmp),
|
|
szTmp)))
|
|
{
|
|
getFormValueByName( "container",
|
|
&pTmp, sizeof( szTmp), NULL);
|
|
}
|
|
|
|
if (szTmp[ 0])
|
|
{
|
|
uiContainer = f_atoud( szTmp);
|
|
}
|
|
else
|
|
{
|
|
rc = RC_SET( FERR_INVALID_PARM);
|
|
printErrorPage( rc, TRUE, "Record Container is missing");
|
|
goto Exit;
|
|
}
|
|
|
|
// The Action to perform
|
|
|
|
szTmp[ 0] = '\0';
|
|
|
|
if (RC_BAD( rc = ExtractParameter( uiNumParams,
|
|
ppszParams,
|
|
"Action",
|
|
sizeof( szTmp),
|
|
szTmp)))
|
|
{
|
|
getFormValueByName( "Action",
|
|
&pTmp, sizeof( szTmp), NULL);
|
|
}
|
|
|
|
if (szTmp[ 0])
|
|
{
|
|
if (f_stricmp( szTmp, "Add") == 0)
|
|
{
|
|
addRecord( pFlmSession, hDb, szDbKey, uiDrn, uiContainer, bReadOnly);
|
|
}
|
|
else if (f_stricmp( szTmp, "New") == 0)
|
|
{
|
|
newRecord( pFlmSession, hDb, szDbKey, uiDrn, uiContainer, bReadOnly);
|
|
}
|
|
else if (f_stricmp( szTmp, "Delete") == 0)
|
|
{
|
|
deleteRecord( pFlmSession, hDb, szDbKey, uiDrn, uiContainer, bReadOnly);
|
|
}
|
|
else if (f_stricmp( szTmp, "Modify") == 0)
|
|
{
|
|
modifyRecord( pFlmSession, hDb, szDbKey, uiDrn, uiContainer, bReadOnly);
|
|
}
|
|
else if (f_stricmp( szTmp, "Retrieve") == 0)
|
|
{
|
|
retrieveRecord( pFlmSession, hDb, szDbKey, uiDrn, uiContainer, bReadOnly);
|
|
}
|
|
else if (f_stricmp( szTmp, "InsertSibling") == 0)
|
|
{
|
|
insertField( pFlmSession, hDb, szDbKey, uiDrn, uiContainer, bReadOnly, INSERT_NEXT_SIB);
|
|
}
|
|
else if (f_stricmp( szTmp, "InsertChild") == 0)
|
|
{
|
|
insertField( pFlmSession, hDb, szDbKey, uiDrn, uiContainer, bReadOnly, INSERT_FIRST_CHILD);
|
|
}
|
|
else if (f_stricmp( szTmp, "Copy") == 0)
|
|
{
|
|
copyField( pFlmSession, hDb, szDbKey, uiDrn, uiContainer, bReadOnly);
|
|
}
|
|
else if (f_stricmp( szTmp, "Clip") == 0)
|
|
{
|
|
clipField( pFlmSession, hDb, szDbKey, uiDrn, uiContainer, bReadOnly);
|
|
}
|
|
else
|
|
{
|
|
rc = RC_SET( FERR_INVALID_PARM);
|
|
printErrorPage( rc, TRUE, "Invalid Action on Form");
|
|
goto Exit;
|
|
}
|
|
}
|
|
|
|
|
|
Exit:
|
|
|
|
fnEmit();
|
|
|
|
return( rc);
|
|
|
|
}
|
|
|
|
/*********************************************************
|
|
Desc: Adds the record to the database. The fields in the
|
|
current form identify the data to add.
|
|
**********************************************************/
|
|
void F_ProcessRecordPage::addRecord(
|
|
F_Session * pFlmSession,
|
|
HFDB hDb,
|
|
const char * pszDbKey,
|
|
FLMUINT uiDrn,
|
|
FLMUINT uiContainer,
|
|
FLMBOOL bReadOnly)
|
|
{
|
|
RCODE rc = FERR_OK;
|
|
FlmRecord * pRec = NULL;
|
|
FLMUINT uiAutoTrans;
|
|
|
|
// We first need to reconsitute the record.
|
|
if (RC_BAD( rc = constructRecord( uiDrn, uiContainer, &pRec, hDb)))
|
|
{
|
|
goto Exit;
|
|
}
|
|
|
|
uiAutoTrans = FLM_AUTO_TRANS | FLM_NO_TIMEOUT;
|
|
if (RC_BAD( rc = FlmRecordAdd( hDb, uiContainer, &uiDrn, pRec, uiAutoTrans)))
|
|
{
|
|
displayRecordPage( pFlmSession, hDb, pszDbKey, pRec, bReadOnly,rc);
|
|
goto Exit;
|
|
}
|
|
|
|
// Retrieve the new record to display.
|
|
retrieveRecord( pFlmSession, hDb, pszDbKey, uiDrn, uiContainer, bReadOnly, FO_EXACT);
|
|
|
|
Exit:
|
|
|
|
if( pRec)
|
|
{
|
|
pRec->Release();
|
|
}
|
|
|
|
|
|
return;
|
|
}
|
|
|
|
|
|
/*********************************************************
|
|
Desc: Creates a new record. This is a record that does not
|
|
exist in the database. Do not store the record yet.
|
|
**********************************************************/
|
|
void F_ProcessRecordPage::newRecord(
|
|
F_Session * pFlmSession,
|
|
HFDB hDb,
|
|
const char * pszDbKey,
|
|
FLMUINT uiDrn,
|
|
FLMUINT uiContainer,
|
|
FLMBOOL bReadOnly)
|
|
{
|
|
RCODE rc = FERR_OK;
|
|
FlmRecord * pRec = NULL;
|
|
char szTmp[ 128];
|
|
F_NameTable * pNameTable = NULL;
|
|
FLMUINT uiType;
|
|
FLMUINT uiTagNum;
|
|
void * pvField = NULL;
|
|
char * pTmp = &szTmp[0];
|
|
|
|
// Start with a new record.
|
|
|
|
if( (pRec = f_new FlmRecord) == NULL)
|
|
{
|
|
rc = RC_SET( FERR_MEM);
|
|
printErrorPage( rc, TRUE, "Failed to create new record");
|
|
goto Exit;
|
|
}
|
|
|
|
pRec->setID( uiDrn);
|
|
pRec->setContainerID( uiContainer);
|
|
|
|
// Get the tag number for the root field.
|
|
if (RC_BAD( rc = getFormValueByName( "fieldlist", &pTmp, sizeof( szTmp), NULL)))
|
|
{
|
|
printErrorPage( rc, TRUE, "Root field type could not be determined");
|
|
goto Exit;
|
|
}
|
|
uiTagNum = f_atoud( szTmp);
|
|
|
|
|
|
if (RC_BAD( rc = pFlmSession->getNameTable( hDb, &pNameTable)))
|
|
{
|
|
printErrorPage( rc, TRUE, "Could not get a Name Table");
|
|
goto Exit;
|
|
}
|
|
|
|
// Get the field type from the name table.
|
|
if (!pNameTable->getFromTagNum( uiTagNum, NULL, szTmp, sizeof( szTmp), NULL, &uiType))
|
|
{
|
|
rc = RC_SET( FERR_INVALID_PARM);
|
|
printErrorPage( rc, TRUE, "Invalid field selected");
|
|
goto Exit;
|
|
}
|
|
|
|
// Create the root field.
|
|
if (RC_BAD( rc = pRec->insertLast( 0, uiTagNum, uiType, &pvField)))
|
|
{
|
|
printErrorPage( rc, TRUE, "Error occurred inserting field into record");
|
|
goto Exit;
|
|
}
|
|
|
|
if (RC_BAD( rc))
|
|
{
|
|
goto Exit;
|
|
}
|
|
|
|
// Retrieve the new record to display.
|
|
displayRecordPage( pFlmSession, hDb, pszDbKey, pRec, bReadOnly, rc);
|
|
|
|
Exit:
|
|
|
|
if( pRec)
|
|
{
|
|
pRec->Release();
|
|
}
|
|
|
|
return;
|
|
}
|
|
|
|
|
|
/*********************************************************
|
|
Desc: Modifies (updates) the record identified by the Drn & Container
|
|
and presents it to the client.
|
|
**********************************************************/
|
|
void F_ProcessRecordPage::modifyRecord(
|
|
F_Session * pFlmSession,
|
|
HFDB hDb,
|
|
const char * pszDbKey,
|
|
FLMUINT uiDrn,
|
|
FLMUINT uiContainer,
|
|
FLMBOOL bReadOnly)
|
|
{
|
|
RCODE rc = FERR_OK;
|
|
FlmRecord * pRec = NULL;
|
|
FLMUINT uiAutoTrans;
|
|
|
|
// We first need to reconsitute the record.
|
|
|
|
if (RC_BAD( rc = constructRecord( uiDrn, uiContainer, &pRec, hDb)))
|
|
{
|
|
goto Exit;
|
|
}
|
|
|
|
uiAutoTrans = FLM_AUTO_TRANS | FLM_NO_TIMEOUT;
|
|
if (RC_BAD( rc = FlmRecordModify( hDb, uiContainer, uiDrn, pRec, uiAutoTrans)))
|
|
{
|
|
displayRecordPage( pFlmSession, hDb, pszDbKey, pRec, bReadOnly, rc);
|
|
goto Exit;
|
|
}
|
|
|
|
// Retrieve the new record to display.
|
|
retrieveRecord( pFlmSession, hDb, pszDbKey, uiDrn, uiContainer, bReadOnly, FO_EXACT);
|
|
|
|
Exit:
|
|
|
|
if( pRec)
|
|
{
|
|
pRec->Release();
|
|
}
|
|
|
|
|
|
return;
|
|
}
|
|
|
|
/*********************************************************
|
|
Desc: Builds a new record from the data in the form
|
|
**********************************************************/
|
|
RCODE F_ProcessRecordPage::constructRecord(
|
|
FLMUINT uiDrn,
|
|
FLMUINT uiContainer,
|
|
FlmRecord ** ppRec,
|
|
HFDB hDb)
|
|
{
|
|
RCODE rc = FERR_OK;
|
|
FlmRecord * pRec;
|
|
char szTmp[ 128];
|
|
char * pTmp;
|
|
FLMUINT uiFieldCount;
|
|
FLMUINT uiFieldCounter;
|
|
char * pszFldValue = NULL;
|
|
|
|
flmAssert( ppRec);
|
|
|
|
// Start with a new record.
|
|
|
|
if( (pRec = f_new FlmRecord) == NULL)
|
|
{
|
|
rc = RC_SET( FERR_MEM);
|
|
goto Exit;
|
|
}
|
|
|
|
pRec->setID( uiDrn);
|
|
pRec->setContainerID( uiContainer);
|
|
|
|
pTmp = &szTmp[ 0];
|
|
|
|
getFormValueByName( "FieldCount",
|
|
&pTmp, sizeof( szTmp), NULL);
|
|
|
|
if (szTmp[ 0])
|
|
{
|
|
uiFieldCount = f_atoud( szTmp);
|
|
}
|
|
else
|
|
{
|
|
rc = RC_SET( FERR_INVALID_PARM);
|
|
printErrorPage( rc, TRUE, "Field Count missing or invalid");
|
|
goto Exit;
|
|
}
|
|
|
|
// Now we need to get each of the fields, beginning at level 0
|
|
|
|
for ( uiFieldCounter = 0; uiFieldCounter < uiFieldCount; uiFieldCounter++)
|
|
{
|
|
// Retrieve the next field.
|
|
FLMUINT uiLevel;
|
|
FLMUINT uiType;
|
|
FLMUINT uiTag;
|
|
void * pvField = NULL;
|
|
|
|
if (RC_BAD( rc = extractFieldInfo( uiFieldCounter, &pszFldValue,
|
|
&uiLevel, &uiType, &uiTag)))
|
|
{
|
|
printErrorPage( rc, TRUE, "Error occurred retrieving field data from form");
|
|
goto Exit;
|
|
}
|
|
|
|
// Insert the field into the record.
|
|
if (RC_BAD( rc = pRec->insertLast( uiLevel, uiTag, uiType, &pvField)))
|
|
{
|
|
printErrorPage( rc, TRUE, "Error occurred inserting field into record");
|
|
goto Exit;
|
|
}
|
|
|
|
// Set the data value
|
|
switch( uiType)
|
|
{
|
|
case FLM_TEXT_TYPE:
|
|
{
|
|
// Store as unicode
|
|
rc = storeUnicodeField( pRec, pvField, pszFldValue);
|
|
break;
|
|
}
|
|
case FLM_NUMBER_TYPE:
|
|
{
|
|
// Store as UINT or INT
|
|
rc = storeNumberField( pRec, pvField, pszFldValue);
|
|
break;
|
|
}
|
|
case FLM_BINARY_TYPE:
|
|
{
|
|
// Store after converting from hex display
|
|
rc = storeBinaryField( pRec, pvField, pszFldValue);
|
|
break;
|
|
}
|
|
case FLM_CONTEXT_TYPE:
|
|
{
|
|
// Store as a RecPointer
|
|
if (pszFldValue && *pszFldValue != '\0')
|
|
{
|
|
rc = pRec->setRecPointer( pvField,
|
|
(unsigned long)f_atoud( pszFldValue));
|
|
}
|
|
break;
|
|
}
|
|
case FLM_BLOB_TYPE:
|
|
{
|
|
// Store a Blob object...
|
|
rc = storeBlobField( pRec, pvField, pszFldValue, hDb);
|
|
break;
|
|
}
|
|
}
|
|
|
|
if (RC_BAD( rc))
|
|
{
|
|
goto Exit;
|
|
}
|
|
f_free( &pszFldValue);
|
|
}
|
|
|
|
|
|
Exit:
|
|
|
|
if (RC_BAD(rc))
|
|
{
|
|
if (pRec)
|
|
{
|
|
pRec->Release();
|
|
pRec = NULL;
|
|
}
|
|
}
|
|
|
|
if (pszFldValue)
|
|
{
|
|
f_free( &pszFldValue);
|
|
}
|
|
|
|
*ppRec = pRec;
|
|
|
|
|
|
return( rc);
|
|
}
|
|
|
|
|
|
/*********************************************************
|
|
Desc:
|
|
**********************************************************/
|
|
RCODE F_ProcessRecordPage::extractFieldInfo(
|
|
FLMUINT uiFieldCounter,
|
|
char ** ppucBuf,
|
|
FLMUINT * puiLevel,
|
|
FLMUINT * puiType,
|
|
FLMUINT * puiTag)
|
|
{
|
|
RCODE rc = FERR_OK;
|
|
char szField[50];
|
|
char szTmp[ 128];
|
|
char * pTmp;
|
|
|
|
// field value first. This call will allocate a buffer for us that will
|
|
// need to be freed later! If we get an FERR_NOT_FOUND error,
|
|
// then ignore it.
|
|
|
|
f_sprintf( (char *)szField, "field%u", (unsigned)uiFieldCounter);
|
|
*ppucBuf = NULL;
|
|
|
|
if (RC_OK( rc = getFormValueByName( szField, ppucBuf, 0, NULL)))
|
|
{
|
|
fcsDecodeHttpString( *ppucBuf);
|
|
}
|
|
else if (rc != FERR_NOT_FOUND)
|
|
{
|
|
goto Exit;
|
|
}
|
|
|
|
|
|
pTmp = &szTmp[ 0];
|
|
|
|
// fieldLevel next.
|
|
f_sprintf( (char *)szField, "fieldLevel%u", (unsigned)uiFieldCounter);
|
|
if (RC_BAD( rc = getFormValueByName( szField, &pTmp, sizeof( szTmp), NULL)))
|
|
{
|
|
goto Exit;
|
|
}
|
|
*puiLevel = f_atoud( szTmp);
|
|
|
|
// fieldType next
|
|
f_sprintf( (char *)szField, "fieldType%u", (unsigned)uiFieldCounter);
|
|
if (RC_BAD( rc = getFormValueByName( szField, &pTmp, sizeof( szTmp), NULL)))
|
|
{
|
|
goto Exit;
|
|
}
|
|
*puiType = f_atoud( szTmp);
|
|
|
|
// fieldTag next
|
|
f_sprintf( (char *)szField, "fieldTag%u", (unsigned)uiFieldCounter);
|
|
if (RC_BAD( rc = getFormValueByName( szField, &pTmp, sizeof( szTmp), NULL)))
|
|
{
|
|
goto Exit;
|
|
}
|
|
*puiTag = f_atoud( szTmp);
|
|
|
|
Exit:
|
|
|
|
return( rc);
|
|
|
|
}
|
|
|
|
/*********************************************************
|
|
Desc: Deletes the record identified by the Drn & Container
|
|
and presents it to the client.
|
|
**********************************************************/
|
|
void F_ProcessRecordPage::deleteRecord(
|
|
F_Session * pFlmSession,
|
|
HFDB hDb,
|
|
const char * pszDbKey,
|
|
FLMUINT uiDrn,
|
|
FLMUINT uiContainer,
|
|
FLMBOOL bReadOnly)
|
|
{
|
|
RCODE rc = FERR_OK;
|
|
RCODE uiRc;
|
|
FLMUINT uiAutoTrans;
|
|
FlmRecord * pRec = NULL;
|
|
|
|
if (RC_OK( rc = FlmRecordRetrieve(
|
|
hDb, uiContainer, uiDrn, FO_EXACT, (FlmRecord **)&pRec, &uiDrn)))
|
|
{
|
|
uiAutoTrans = FLM_AUTO_TRANS | FLM_NO_TIMEOUT;
|
|
if (RC_BAD( rc = FlmRecordDelete( hDb, uiContainer, uiDrn, uiAutoTrans)))
|
|
{
|
|
uiRc = rc;
|
|
if (RC_BAD( rc = constructRecord( uiDrn, uiContainer, &pRec, hDb)))
|
|
{
|
|
printErrorPage( rc, TRUE, "Failed to delete record");
|
|
goto Exit;
|
|
}
|
|
displayRecordPage( pFlmSession, hDb, pszDbKey, pRec, bReadOnly, uiRc);
|
|
goto Exit;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
uiRc = rc;
|
|
if (RC_BAD( rc = constructRecord( uiDrn, uiContainer, &pRec, hDb)))
|
|
{
|
|
printErrorPage( rc, TRUE, "Failed to delete record. Invalid Record");
|
|
goto Exit;
|
|
}
|
|
displayRecordPage( pFlmSession, hDb, pszDbKey, pRec, bReadOnly, uiRc);
|
|
goto Exit;
|
|
}
|
|
|
|
// This will present an empty record page since the record is no longer there.
|
|
retrieveRecord( pFlmSession, hDb, pszDbKey, 0, uiContainer, bReadOnly);
|
|
|
|
Exit:
|
|
|
|
if (pRec)
|
|
{
|
|
pRec->Release();
|
|
}
|
|
|
|
return;
|
|
}
|
|
|
|
/*********************************************************
|
|
Desc: Retrieves the record identified by the Drn & Container
|
|
and presents it to the client.
|
|
**********************************************************/
|
|
void F_ProcessRecordPage::retrieveRecord(
|
|
F_Session * pFlmSession,
|
|
HFDB hDb,
|
|
const char * pszDbKey,
|
|
FLMUINT uiDrn,
|
|
FLMUINT uiContainer,
|
|
FLMBOOL bReadOnly,
|
|
FLMUINT uiFlag)
|
|
{
|
|
RCODE rc = FERR_OK;
|
|
FlmRecord * pRec = NULL;
|
|
char szTmp[ 20];
|
|
char * pTmp = &szTmp[ 0];
|
|
FLMUINT uiFlags = FO_EXACT;
|
|
|
|
if (uiFlag == 0xFFFFFFFF)
|
|
{
|
|
// Get the flags
|
|
if (RC_OK( rc = getFormValueByName( "flags", &pTmp, sizeof( szTmp), NULL)))
|
|
{
|
|
uiFlags = f_atoud( szTmp);
|
|
}
|
|
}
|
|
else
|
|
{
|
|
uiFlags = uiFlag;
|
|
}
|
|
|
|
rc = FlmRecordRetrieve( hDb, uiContainer, uiDrn, uiFlags, (FlmRecord **)&pRec, &uiDrn);
|
|
if ((rc == FERR_NOT_FOUND) && (uiDrn == 0))
|
|
{
|
|
rc = FERR_OK;
|
|
}
|
|
|
|
displayRecordPage( pFlmSession, hDb, pszDbKey, pRec, bReadOnly, rc);
|
|
|
|
if (pRec)
|
|
{
|
|
pRec->Release();
|
|
}
|
|
|
|
return;
|
|
}
|
|
|
|
/*********************************************************
|
|
Desc: Insert a new field at the specified location.
|
|
**********************************************************/
|
|
void F_ProcessRecordPage::insertField(
|
|
F_Session * pFlmSession,
|
|
HFDB hDb,
|
|
const char * pszDbKey,
|
|
FLMUINT uiDrn,
|
|
FLMUINT uiContainer,
|
|
FLMBOOL bReadOnly,
|
|
FLMUINT uiInsertAt)
|
|
{
|
|
RCODE rc = FERR_OK;
|
|
FlmRecord * pRec = NULL;
|
|
char szTmp[ 128];
|
|
F_NameTable * pNameTable = NULL;
|
|
FLMUINT uiType;
|
|
FLMUINT uiTagNum;
|
|
void * pvField = NULL;
|
|
char * pTmp = &szTmp[0];
|
|
FLMUINT uiFldCnt;
|
|
FLMUINT uiSelectedField;
|
|
FLMUINT uiLoop;
|
|
|
|
// Reconstruct the record.
|
|
if (RC_BAD( rc = constructRecord( uiDrn, uiContainer, &pRec, hDb)))
|
|
{
|
|
goto Exit;
|
|
}
|
|
|
|
|
|
// Get the field count so we know whether to look for the selected field.
|
|
if (RC_BAD( rc = getFormValueByName( "FieldCount", &pTmp, sizeof( szTmp), NULL)))
|
|
{
|
|
printErrorPage( rc, TRUE, "Could not retrieve the record field count");
|
|
goto Exit;
|
|
}
|
|
uiFldCnt = f_atoud( szTmp);
|
|
|
|
if (uiFldCnt == 1)
|
|
{
|
|
uiSelectedField = 0;
|
|
}
|
|
else
|
|
{
|
|
// We need to get the actual selected field
|
|
if (RC_BAD( rc = getFormValueByName( "radioSel", &pTmp, sizeof( szTmp), NULL)))
|
|
{
|
|
printErrorPage( rc, TRUE, "Could not retrieve the selected field");
|
|
goto Exit;
|
|
}
|
|
uiSelectedField = f_atoud( szTmp);
|
|
}
|
|
|
|
// Get the tag number for the new field.
|
|
if (RC_BAD( rc = getFormValueByName( "fieldlist", &pTmp, sizeof( szTmp), NULL)))
|
|
{
|
|
printErrorPage( rc, TRUE, "Selected field type could not be determined");
|
|
goto Exit;
|
|
}
|
|
uiTagNum = f_atoud( szTmp);
|
|
|
|
|
|
if (RC_BAD( rc = pFlmSession->getNameTable( hDb, &pNameTable)))
|
|
{
|
|
printErrorPage( rc, TRUE, "Could not get a Name Table");
|
|
goto Exit;
|
|
}
|
|
|
|
// Get the new field type from the name table.
|
|
if (!pNameTable->getFromTagNum( uiTagNum, NULL, szTmp, sizeof( szTmp), NULL, &uiType))
|
|
{
|
|
rc = RC_SET( FERR_INVALID_PARM);
|
|
printErrorPage( rc, TRUE, "Invalid field selected");
|
|
goto Exit;
|
|
}
|
|
|
|
|
|
// Start at the root
|
|
pvField = pRec->root();
|
|
for (uiLoop = 0; uiLoop < uiSelectedField; uiLoop++)
|
|
{
|
|
pvField = pRec->next( pvField);
|
|
}
|
|
|
|
|
|
// Insert the child
|
|
if (RC_BAD( rc = pRec->insert( pvField, uiInsertAt, uiTagNum, uiType, &pvField)))
|
|
{
|
|
displayRecordPage( pFlmSession, hDb, pszDbKey, pRec, bReadOnly, rc);
|
|
goto Exit;
|
|
}
|
|
|
|
// Display the new record to display.
|
|
displayRecordPage( pFlmSession, hDb, pszDbKey, pRec, bReadOnly, rc);
|
|
|
|
Exit:
|
|
|
|
if( pRec)
|
|
{
|
|
pRec->Release();
|
|
}
|
|
|
|
return;
|
|
}
|
|
|
|
/*********************************************************
|
|
Desc:
|
|
**********************************************************/
|
|
void F_ProcessRecordPage::copyField(
|
|
F_Session * pFlmSession,
|
|
HFDB hDb,
|
|
const char * pszDbKey,
|
|
FLMUINT uiDrn,
|
|
FLMUINT uiContainer,
|
|
FLMBOOL bReadOnly)
|
|
{
|
|
RCODE rc = FERR_OK;
|
|
FlmRecord * pRec = NULL;
|
|
char szTmp[ 128];
|
|
void * pvOrigField = NULL;
|
|
void * pvMarkerField = NULL;
|
|
char * pTmp = &szTmp[0];
|
|
FLMUINT uiFldCnt;
|
|
FLMUINT uiSelectedField;
|
|
FLMUINT uiLoop;
|
|
|
|
// Reconstruct the record.
|
|
if (RC_BAD( rc = constructRecord( uiDrn, uiContainer, &pRec, hDb)))
|
|
{
|
|
goto Exit;
|
|
}
|
|
|
|
|
|
// Get the field count so we know whether to look for the selected field.
|
|
if (RC_BAD( rc = getFormValueByName( "FieldCount", &pTmp, sizeof( szTmp), NULL)))
|
|
{
|
|
displayRecordPage( pFlmSession, hDb, pszDbKey, pRec, bReadOnly, rc);
|
|
goto Exit;
|
|
}
|
|
uiFldCnt = f_atoud( szTmp);
|
|
|
|
if (uiFldCnt == 1)
|
|
{
|
|
uiSelectedField = 0;
|
|
}
|
|
else
|
|
{
|
|
// We need to get the actual selected field
|
|
if (RC_BAD( rc = getFormValueByName( "radioSel", &pTmp, sizeof( szTmp), NULL)))
|
|
{
|
|
displayRecordPage( pFlmSession, hDb, pszDbKey, pRec, bReadOnly, rc);
|
|
goto Exit;
|
|
}
|
|
uiSelectedField = f_atoud( szTmp);
|
|
}
|
|
|
|
// Start at the root
|
|
pvOrigField = pRec->root();
|
|
|
|
// Scan to the selected field.
|
|
for ( uiLoop = 0; uiLoop < uiSelectedField; uiLoop++)
|
|
{
|
|
pvOrigField = pRec->next( pvOrigField);
|
|
}
|
|
|
|
// Now find where to begin inserting the copy of this field.
|
|
pvMarkerField = pRec->nextSibling( pvOrigField);
|
|
|
|
if (!pRec->isLast( pvOrigField) && pvMarkerField == NULL && !pRec->hasChild( pvOrigField))
|
|
{
|
|
pvMarkerField = pRec->next( pvOrigField);
|
|
}
|
|
|
|
// Copy/Insert fields from the OrigField to the MarkerField. If the MarkerField is
|
|
// NULL, then add to the end of the record (i.e. after the last field).
|
|
if (RC_BAD( rc = copyFieldsFromTo( pRec, pvOrigField, pvMarkerField)))
|
|
{
|
|
displayRecordPage( pFlmSession, hDb, pszDbKey, pRec, bReadOnly, rc);
|
|
goto Exit;
|
|
}
|
|
|
|
// Retrieve the new record to display.
|
|
displayRecordPage( pFlmSession, hDb, pszDbKey, pRec, bReadOnly, rc);
|
|
|
|
Exit:
|
|
|
|
if( pRec)
|
|
{
|
|
pRec->Release();
|
|
}
|
|
|
|
return;
|
|
}
|
|
|
|
|
|
|
|
/*********************************************************
|
|
Desc:
|
|
**********************************************************/
|
|
RCODE F_ProcessRecordPage::copyFieldsFromTo(
|
|
FlmRecord * pRec,
|
|
void * pvOrigField,
|
|
void * pvMarkerField)
|
|
{
|
|
RCODE rc = FERR_OK;
|
|
const FLMBYTE * pSrcData = NULL;
|
|
FLMBYTE * pDestData = NULL;
|
|
void * pvField = NULL;
|
|
void * pvSrcField = NULL;
|
|
FLMUINT uiFldCount;
|
|
FLMUINT uiType;
|
|
FLMUINT uiFldId;
|
|
FLMUINT uiLength;
|
|
FLMUINT uiSrcLevel;
|
|
FLMUINT uiTargetLevel;
|
|
|
|
for( uiFldCount = 0, pvField = pvOrigField;
|
|
pvField != pvMarkerField; uiFldCount++)
|
|
{
|
|
pvField = pRec->next( pvField);
|
|
}
|
|
|
|
pvSrcField = pvOrigField;
|
|
for (pvField = pvOrigField ; uiFldCount > 0; uiFldCount--)
|
|
{
|
|
uiFldId = pRec->getFieldID( pvSrcField);
|
|
uiType = pRec->getDataType( pvSrcField);
|
|
uiLength = pRec->getDataLength( pvSrcField);
|
|
uiSrcLevel = pRec->getLevel( pvSrcField);
|
|
uiTargetLevel = pRec->getLevel( pvField);
|
|
|
|
if (uiSrcLevel == uiTargetLevel)
|
|
{
|
|
// Insert as the next sibling
|
|
if (RC_BAD( rc = pRec->insert( pvField, INSERT_NEXT_SIB, uiFldId, uiType, &pvField)))
|
|
{
|
|
goto Exit;
|
|
}
|
|
}
|
|
else if (uiSrcLevel > uiTargetLevel)
|
|
{
|
|
if (RC_BAD( rc = pRec->insert( pvField, INSERT_LAST_CHILD, uiFldId, uiType, &pvField)))
|
|
{
|
|
goto Exit;
|
|
}
|
|
}
|
|
else // if (uiTargetLevel > uiSrcLevel)
|
|
{
|
|
pvField = pRec->parent( pvField);
|
|
|
|
// Insert as the next sibling
|
|
|
|
if( RC_BAD( rc = pRec->insert( pvField, INSERT_NEXT_SIB,
|
|
uiFldId, uiType, &pvField)))
|
|
{
|
|
goto Exit;
|
|
}
|
|
}
|
|
|
|
pSrcData = pRec->getDataPtr( pvSrcField);
|
|
|
|
if( RC_BAD( rc = pRec->allocStorageSpace( pvField, uiType, uiLength,
|
|
0, 0, 0, &pDestData, NULL)))
|
|
{
|
|
goto Exit;
|
|
}
|
|
|
|
f_memcpy( pDestData, pSrcData, uiLength);
|
|
pvSrcField = pRec->next( pvSrcField);
|
|
}
|
|
|
|
Exit:
|
|
|
|
return( rc);
|
|
}
|
|
|
|
/*********************************************************
|
|
Desc:
|
|
**********************************************************/
|
|
void F_ProcessRecordPage::clipField(
|
|
F_Session * pFlmSession,
|
|
HFDB hDb,
|
|
const char * pszDbKey,
|
|
FLMUINT uiDrn,
|
|
FLMUINT uiContainer,
|
|
FLMBOOL bReadOnly)
|
|
{
|
|
RCODE rc = FERR_OK;
|
|
FlmRecord * pRec = NULL;
|
|
char szTmp[ 128];
|
|
void * pvField = NULL;
|
|
char * pTmp = &szTmp[0];
|
|
FLMUINT uiFldCnt;
|
|
FLMUINT uiSelectedField;
|
|
FLMUINT uiLoop;
|
|
|
|
// Reconstruct the record.
|
|
if (RC_BAD( rc = constructRecord( uiDrn, uiContainer, &pRec, hDb)))
|
|
{
|
|
goto Exit;
|
|
}
|
|
|
|
|
|
// Get the field count so we know whether to look for the selected field.
|
|
if (RC_BAD( rc = getFormValueByName( "FieldCount", &pTmp, sizeof( szTmp), NULL)))
|
|
{
|
|
displayRecordPage( pFlmSession, hDb, pszDbKey, pRec, bReadOnly, rc);
|
|
goto Exit;
|
|
}
|
|
uiFldCnt = f_atoud( szTmp);
|
|
|
|
if (uiFldCnt == 1)
|
|
{
|
|
uiSelectedField = 0;
|
|
}
|
|
else
|
|
{
|
|
// We need to get the actual selected field
|
|
if (RC_BAD( rc = getFormValueByName( "radioSel", &pTmp, sizeof( szTmp), NULL)))
|
|
{
|
|
displayRecordPage( pFlmSession, hDb, pszDbKey, pRec, bReadOnly, rc);
|
|
goto Exit;
|
|
}
|
|
uiSelectedField = f_atoud( szTmp);
|
|
}
|
|
|
|
// Start at the root
|
|
pvField = pRec->root();
|
|
|
|
// Scan to the selected field.
|
|
for ( uiLoop = 0; uiLoop < uiSelectedField; uiLoop++)
|
|
{
|
|
pvField = pRec->next( pvField);
|
|
}
|
|
|
|
if (RC_BAD( rc = pRec->remove( pvField)))
|
|
{
|
|
displayRecordPage( pFlmSession, hDb, pszDbKey, pRec, bReadOnly, rc);
|
|
goto Exit;
|
|
}
|
|
|
|
// Display the new record to display.
|
|
displayRecordPage( pFlmSession, hDb, pszDbKey, pRec, bReadOnly, rc);
|
|
|
|
Exit:
|
|
|
|
if (pRec)
|
|
{
|
|
pRec->Release();
|
|
}
|
|
|
|
return;
|
|
}
|
|
|
|
|
|
/*********************************************************
|
|
Desc: Converts a string in the form XX XX XX XX (a hex
|
|
representation of a binary stream to a binary stream
|
|
again, then stores it in the provided field.
|
|
**********************************************************/
|
|
RCODE F_ProcessRecordPage::storeBinaryField(
|
|
FlmRecord * pRec,
|
|
void * pvField,
|
|
const char * pszFldValue)
|
|
{
|
|
RCODE rc = FERR_OK;
|
|
F_DynamicBuffer * pBuf = NULL;
|
|
const char * pszTmp;
|
|
FLMBOOL bHaveFirstNibble = FALSE;
|
|
FLMBYTE ucVal = 0;
|
|
FLMUINT uiNibble;
|
|
|
|
if (pszFldValue == '\0' || *pszFldValue == '\0')
|
|
{
|
|
goto Exit;
|
|
}
|
|
|
|
if ((pBuf = f_new F_DynamicBuffer) == NULL)
|
|
{
|
|
rc = RC_SET( FERR_MEM);
|
|
printErrorPage( rc, TRUE, "Failed to allocate dynamic buffer to store binary field");
|
|
goto Exit;
|
|
}
|
|
|
|
pszTmp = pszFldValue;
|
|
while( *pszTmp)
|
|
{
|
|
if (*pszTmp >= '0' && *pszTmp <= '9')
|
|
{
|
|
uiNibble = (FLMUINT)(*pszTmp - '0');
|
|
}
|
|
else if (*pszTmp >= 'a' && *pszTmp <= 'f')
|
|
{
|
|
uiNibble = (FLMUINT)(*pszTmp - 'a' + 10);
|
|
}
|
|
else if (*pszTmp >= 'A' && *pszTmp <= 'F')
|
|
{
|
|
uiNibble = (FLMUINT)(*pszTmp - 'A' + 10);
|
|
}
|
|
else
|
|
{
|
|
pszTmp++;
|
|
continue;
|
|
}
|
|
if (bHaveFirstNibble)
|
|
{
|
|
ucVal += (FLMBYTE)uiNibble;
|
|
if (RC_BAD( rc = pBuf->addChar( ucVal)))
|
|
{
|
|
printErrorPage( rc, TRUE, "Failed to convert binary hex stream");
|
|
goto Exit;
|
|
}
|
|
bHaveFirstNibble = FALSE;
|
|
}
|
|
else
|
|
{
|
|
ucVal = (FLMBYTE)(uiNibble << 4);
|
|
bHaveFirstNibble = TRUE;
|
|
}
|
|
pszTmp++;
|
|
}
|
|
|
|
// See if we ended on an odd number of nibbles.
|
|
|
|
if (bHaveFirstNibble)
|
|
{
|
|
if (RC_BAD( rc = pBuf->addChar( ucVal)))
|
|
{
|
|
printErrorPage( rc, TRUE, "Failed to convert binary hex stream");
|
|
goto Exit;
|
|
}
|
|
}
|
|
if (pBuf->getBufferSize())
|
|
{
|
|
if (RC_BAD( rc = pRec->setBinary( pvField, (void *)pBuf->printBuffer(),
|
|
pBuf->getBufferSize())))
|
|
{
|
|
printErrorPage( rc, TRUE, "Failed to set BINARY value");
|
|
goto Exit;
|
|
}
|
|
}
|
|
|
|
Exit:
|
|
|
|
if (pBuf)
|
|
{
|
|
pBuf->Release();
|
|
}
|
|
|
|
return( rc);
|
|
}
|
|
|
|
|
|
/*********************************************************
|
|
Desc:
|
|
**********************************************************/
|
|
RCODE F_ProcessRecordPage::storeUnicodeField(
|
|
FlmRecord * pRec,
|
|
void * pvField,
|
|
const char * pszFldValue)
|
|
{
|
|
RCODE rc = FERR_OK;
|
|
FLMUNICODE * puzBuf = NULL;
|
|
FLMUINT uiBufSize = 0;
|
|
FLMUINT uiLen;
|
|
|
|
// If there is no data, then just return.
|
|
if (pszFldValue == '\0' || *pszFldValue == '\0')
|
|
{
|
|
goto Exit;
|
|
}
|
|
|
|
if (RC_BAD( rc = tokenGetUnicode( pszFldValue, (void **)&puzBuf, &uiLen,
|
|
&uiBufSize)))
|
|
{
|
|
printErrorPage( rc, TRUE, "Failed to parse UNICODE from ASCII buffer");
|
|
goto Exit;
|
|
}
|
|
|
|
if (RC_BAD( rc = pRec->setUnicode( pvField, puzBuf)))
|
|
{
|
|
printErrorPage( rc, TRUE, "Failed to set UNICODE value");
|
|
goto Exit;
|
|
}
|
|
|
|
Exit:
|
|
|
|
if (puzBuf)
|
|
{
|
|
f_free( &puzBuf);
|
|
}
|
|
|
|
return( rc);
|
|
}
|
|
|
|
/*********************************************************
|
|
Desc:
|
|
**********************************************************/
|
|
RCODE F_ProcessRecordPage::storeNumberField(
|
|
FlmRecord * pRec,
|
|
void * pvField,
|
|
const char * pszFldValue)
|
|
{
|
|
RCODE rc = FERR_OK;
|
|
FLMUINT uiVal;
|
|
FLMINT iVal;
|
|
|
|
if (pszFldValue == '\0' || *pszFldValue == '\0')
|
|
{
|
|
goto Exit;
|
|
}
|
|
|
|
// If this is a negative value, then we will store it as an INT
|
|
if (*pszFldValue == '-')
|
|
{
|
|
iVal = f_atoi( pszFldValue);
|
|
if (RC_BAD( rc = pRec->setINT( pvField, iVal)))
|
|
{
|
|
printErrorPage( rc, TRUE, "Failed to set INT field in record");
|
|
goto Exit;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
uiVal = f_atoud( pszFldValue);
|
|
if (RC_BAD( rc = pRec->setUINT( pvField, uiVal)))
|
|
{
|
|
printErrorPage( rc, TRUE, "Failed to set UINT field in record");
|
|
goto Exit;
|
|
}
|
|
}
|
|
|
|
Exit:
|
|
|
|
return( rc);
|
|
}
|
|
|
|
|
|
/*********************************************************
|
|
Desc:
|
|
**********************************************************/
|
|
RCODE F_ProcessRecordPage::storeBlobField(
|
|
FlmRecord * pRec,
|
|
void * pvField,
|
|
const char * pszFldValue,
|
|
HFDB hDb)
|
|
{
|
|
RCODE rc = FERR_OK;
|
|
FlmBlob * pBlob = NULL;
|
|
|
|
if (pszFldValue == '\0' || *pszFldValue == '\0')
|
|
{
|
|
goto Exit;
|
|
}
|
|
|
|
if ((pBlob = f_new FlmBlobImp) == NULL)
|
|
{
|
|
rc = RC_SET( FERR_MEM);
|
|
printErrorPage( rc, TRUE, "Failed to allocate new Blob object");
|
|
goto Exit;
|
|
}
|
|
|
|
|
|
if(RC_BAD( rc = pBlob->referenceFile( hDb, pszFldValue, TRUE)))
|
|
{
|
|
printErrorPage( rc, TRUE, "Failed to create new Blob object");
|
|
goto Exit;
|
|
}
|
|
|
|
if(RC_BAD( rc = pRec->setBlob( pvField, pBlob)))
|
|
{
|
|
printErrorPage( rc, TRUE, "Failed to store Blob object in Record");
|
|
goto Exit;
|
|
}
|
|
|
|
Exit:
|
|
|
|
if (pBlob)
|
|
{
|
|
pBlob->Release();
|
|
pBlob = NULL;
|
|
}
|
|
|
|
return( rc);
|
|
}
|
|
|
|
/*********************************************************
|
|
Desc:
|
|
**********************************************************/
|
|
void F_ProcessRecordPage::displayRecordPage(
|
|
F_Session * pFlmSession,
|
|
HFDB hDb,
|
|
const char * pszDbKey,
|
|
FlmRecord * pRec,
|
|
FLMBOOL bReadOnly,
|
|
RCODE uiRc)
|
|
{
|
|
RCODE rc = FERR_OK;
|
|
FLMUINT uiContext = 0;
|
|
F_NameTable * pNameTable = NULL;
|
|
char szTmp[128];
|
|
char * pTmp = &szTmp[0];
|
|
FLMUINT uiTagNum = 0;
|
|
FLMUINT uiFlags = FO_EXACT;
|
|
|
|
// Get the name table.
|
|
if (RC_BAD( rc = pFlmSession->getNameTable( hDb, &pNameTable)))
|
|
{
|
|
printErrorPage( rc, TRUE, "Could not get a Name Table");
|
|
goto Exit;
|
|
}
|
|
|
|
// Get the tag number for the currently selected field.
|
|
if (RC_OK( rc = getFormValueByName( "fieldlist", &pTmp, sizeof( szTmp), NULL)))
|
|
{
|
|
uiTagNum = f_atoud( szTmp);
|
|
}
|
|
|
|
// Get the flags
|
|
if (RC_OK( rc = getFormValueByName( "flags", &pTmp, sizeof( szTmp), NULL)))
|
|
{
|
|
uiFlags = f_atoud( szTmp);
|
|
}
|
|
|
|
// Begin the document.
|
|
stdHdr();
|
|
|
|
fnPrintf( m_pHRequest, HTML_DOCTYPE);
|
|
fnPrintf( m_pHRequest, "<html>\n");
|
|
fnPrintf( m_pHRequest, "<HEAD><TITLE>Database iMonitor - Record Display</TITLE>\n");
|
|
printRecordStyle();
|
|
printStyle();
|
|
fnPrintf( m_pHRequest, "</HEAD>\n");
|
|
fnPrintf( m_pHRequest, "<body>\n");
|
|
|
|
|
|
printTableStart( "Record Manager (Traditional)", 1, 100);
|
|
printTableEnd();
|
|
|
|
if (RC_BAD( uiRc))
|
|
{
|
|
fnPrintf( m_pHRequest, "<font color=red>Return Code = 0x%04X, %s</font>\n",
|
|
(unsigned)uiRc, FlmErrorString( uiRc));
|
|
}
|
|
|
|
printRecord( pszDbKey, pRec, pNameTable, &uiContext, bReadOnly, uiTagNum, uiFlags);
|
|
|
|
fnPrintf( m_pHRequest, "</body>\n");
|
|
|
|
Exit:
|
|
|
|
return;
|
|
|
|
}
|