You are in: IBM i Technology Updates  > Web Integration on i > IBM HTTP Server for i > Introduction > CGI programming example > C API programming example

/*

    This C source file is for compiling into the sample program
    APISAMPLE.PGM.  It invokes the configuration file APIs
    contained in SRVPGM QHTTPSVR/QZHBCONF to read in
    a configuration file, and either replace an existing PORT
    directive or to add a new one.

    This code is written by IBM, and is intended only as a sample.
    There is no implied support for this code, and it is not
    a part of any IBM product.  It can be freely copied, modified
    and used in any way desired.

*/


#include <stdio.h>
#include <stdlib.h>

#include <qusec.h>      /* For errcode structure */
#include <qzhbconf.h>   /* For group file API's */

int main (int argc, char **argv)
{
    Qus_EC_t errcode;               /* Error code structure */
    unsigned char configname10[10]; /* Config name */
    unsigned int cfghdl;            /* Handle for config file */
    unsigned int getlock = 1;       /* Argument to request a write lock */
    unsigned char valstr[100];      /* Value string argument */
    unsigned int vallen;            /* Length argument */
    unsigned int numtofind = 0;     /* Will be searching for last directive */
    unsigned int casesense = 0;     /* Case insensitive search */
    unsigned int writecfg = 1;      /* Write config back out */
    unsigned int dirhdl;            /* Handle for a directive */

    if (argc <= 2 || strlen(argv[1]) > 10 || atoi(argv[2]) < 1) {
        printf("usage:  call lib/prog 'configname' 'portnumber'\n");
        return 1;
    }

    /* Get config name into a 10 character format */
    strncpy((char *) configname10, "          ", 10);
    strncpy((char *) configname10, argv[1], strlen(argv[1]));

    /* Set up error code structure */
    errcode.Bytes_Provided = sizeof(Qus_EC_t);

    /* Open the config - program will end if error occurs */
    QzhbOpenConfig(configname10, &getlock, &cfghdl, NULL);

    /* Search for the last PORT directive in the file */
    strcpy((char *) valstr, "port");
    vallen = strlen((char *) valstr);
    QzhbFindDirective(&cfghdl, valstr, &vallen, NULL,
                      &numtofind, &casesense, &dirhdl,
                     (unsigned char *) &errcode);

    /* Build string containing what we want the PORT directive to look like */
    sprintf((char *) valstr, "Port %s", argv[2]);
    vallen = strlen((char *) valstr);

    /* If found a PORT directive, replace it with our new value */
    if (errcode.Bytes_Available == 0) {
	/* Replace existing directive, letting error end the program */
        QzhbReplaceDirective(&cfghdl, &dirhdl,
                             valstr, &vallen, NULL);
        printf("Replaced existing PORT directive in configuration %s with: %s\n",
               argv[1], valstr);
    }

    /* If did not find the PORT directive, we want to add a new one */
    else {
        unsigned int insertpos = 4;  /* Automatic positioning */
	/* Add new directive, letting error end the program */
        QzhbAddDirective(&cfghdl, valstr, &vallen,
                         &insertpos, NULL, &dirhdl, NULL);
        printf("Added new PORT directive in configuration %s as: %s\n",
               argv[1], valstr);
    }

    /* Close config and write contents back out */
    QzhbCloseConfig(&cfghdl, &writecfg, NULL);

    return 0;
}