Chapter 6   Examples of Custom SAFs


This chapter discusses examples of custom Sever Application Functions (SAFs) for each directive in the request-response process. You may wish to use these examples as the basis for implementing your own custom SAFs. For more information about creating your own custom SAFs, see Chapter 4 "Creating Custom SAFs."

Before writing custom SAFs, you should be familiar with the request-response process (discussed in Chapter 1 "Basics of Server Operation") and the role of the configuration file obj.conf (discussed in Chapter 2 "Syntax and Use of obj.conf").

Before writing your own SAF, check if an existing SAF serves your purpose. The pre-defined SAFs are discussed in Chapter 3 "Predefined SAFs and the Request Handling Process."

For a list of the NSAPI functions for creating new SAFs, see Chapter 5 "NSAPI Function Reference."

This chapter has the following sections:

• Examples in the Build

• AuthTrans Example

• NameTrans Example

• PathCheck Example

• ObjectType Example

• Service Example

• AddLog Example

• Quality of Service Examples

Examples in the Build

---

The nsapi/examples/ or plugins/nsapi/examples subdirectory within the server installation directory contains examples of source code for SAFs.

You can use the example.mak makefile in the same directory to compile the examples and create a library containing the functions in all the example files.

To test an example, load the examples shared library into the iPlanet Web Server by adding the following directive in the Init section of magnus.conf:

Init fn=load-modules shlib=examples.so/dll funcs=function1,function2,function3

The funcs parameter specifies the functions to load from the shared library.

If the example uses an initialization function, be sure to specify the initialization function in the funcs argument to load-modules, and also add an Init directive to call the initialization function.

For example, the PathCheck example implements the restrict-by-acf function, which is initialized by the acf-init function. The following directive loads both these functions:

Init fn=load-modules yourlibrary funcs=acf-init,restrict-by-acf

The following directive calls the acf-init function during server initialization:

Init fn=acf-init file=extra-arg

To invoke the new SAF at the appropriate step in the response handling process, add an appropriate directive in the object to which it applies, for example:

PathCheck fn=restrict-by-acf

After adding new Init directives to magnus.conf, you always need to restart the iPlanet Web Server to load the changes, since Init directives are only applied during server initialization.

AuthTrans Example

---

This simple example of an AuthTrans function demonstrate how to use your own custom ways of verifying that the username and password that a remote client provided is accurate. This program uses a hard coded table of usernames and passwords and checks a given user's password against the one in the static data array. The userdb parameter is not used in this function.

AuthTrans directives work in conjunction with PathCheck directives. Generally, an AuthTrans function checks if the username and password associated with the request are acceptable, but it does not allow or deny access to the request -- it leaves that to a PathCheck function.

AuthTrans functions get the username and password from the headers associated with the request. When a client initially makes a request, the username and password are unknown so the AuthTrans function and PathCheck function work together to reject the request, since they can't validate the username and password. When the client receives the rejection, the usual response is for it to pop up a dialog box asking the user for their username and password, and then the client submits the request again, this time including the username and password in the headers.

In this example, the hardcoded-auth function, which is invoked during the AuthTrans step, checks if the username and password correspond to an entry in the hard-coded table of users and passwords.

Installing the Example

To install the function on the iPlanet Web Server, add the following Init directive to magnus.conf to load the compiled function:

Init fn=load-modules shlib=yourlibrary funcs=hardcoded-auth

Inside the default object in obj.conf add the following AuthTrans directive:

AuthTrans fn=basic-auth auth-type="basic" userfn=hardcoded-auth userdb=unused

Note that this function does not actually enforce authorization requirements, it only takes given information and tells the server if it's correct or not. The PathCheck function require-auth performs the enforcement, so add the following PathCheck directive also:

PathCheck fn=require-auth realm="test realm" auth-type="basic"

Source Code

The source code for this example is in the auth.c file in the nsapi/examples/ or plugins/nsapi/examples subdirectory of the server root directory.

#include "nsapi.h"

typedef struct {
   char *name;
   char *pw;
} user_s;

static user_s user_set[] = {
   {"joe", "shmoe"},
   {"suzy", "creamcheese"},
   {NULL, NULL}
};

#include "frame/log.h"

#ifdef __cplusplus
extern "C"
#endif

NSAPI_PUBLIC int hardcoded_auth(pblock *param, Session *sn, Request *rq)
{
   /* Parameters given to us by auth-basic */
   char *pwfile = pblock_findval("userdb", param);
   char *user = pblock_findval("user", param);
   char *pw = pblock_findval("pw", param);

   /* Temp variables */
   register int x;

   for(x = 0; user_set[x].name != NULL; ++x) {

      /* If this isn't the user we want, keep going */
      if(strcmp(user, user_set[x].name) != 0) continue;

      /* Verify password */
      if(strcmp(pw, user_set[x].pw)) {
         log_error(LOG_SECURITY, "hardcoded-auth", sn, rq,
            "user %s entered wrong password", user);
         /* This will cause the enforcement function to ask */
         /* user again */
         return REQ_NOACTION;
      }

      /* If we return REQ_PROCEED, the username will be accepted */
      return REQ_PROCEED;
   }

   /* No match, have it ask them again */
   log_error(LOG_SECURITY, "hardcoded-auth", sn, rq,
      "unknown user %s", user);
   return REQ_NOACTION;
}

NameTrans Example

---

The ntrans.c file in the nsapi/examples/ or plugins/nsapi/examples subdirectory of the server root directory contains source code for two example NameTrans functions:

• explicit_pathinfo

  This example allows the use of explicit extra path information in a URL.

• https_redirect

  This example redirects the URL if the client is a particular version of Netscape Navigator.

This section discusses the first example. Look at the source code in ntrans.c for the second example.

---

Note

The main thing that a NameTrans function usually does is to convert the logical URL in ppath in rq->vars to a physical pathname. However, the example discussed here, explicit_pathinfo, does not translate the URL into a physical pathname, it changes the value of the requested URL. See the second example, https_redirect, in ntrans.c for an example of a NameTrans function that converts the value of ppath in rq->vars from a URL to a physical pathname.

---

The explicit_pathinfo example allows URLs to explicitly include extra path information for use by a CGI program. The extra path information is delimited from the main URL by a specified separator, such as a comma.

For example:

http://server-name/cgi/marketing,/jan/releases/hardware

In this case, the URL of the requested resource (which would be a CGI program) is http://server-name/cgi/marketing and the extra path information to give to the CGI program is /jan/releases/hardware.

When choosing a separator, be sure to pick a character that will never be used as part of the real URL.

The explicit_pathinfo function reads the URL, strips out everything following the comma and puts it in the path-info field of the vars field in the request object (rq->vars). CGI programs can access this information through the PATH_INFO environment variable.

One side effect of explicit_pathinfo is that the SCRIPT_NAME CGI environment variable has the separator character tacked on the end.

Normally NameTrans directives return REQ_PROCEED when they change the path so that the server does not process any more NameTrans directives. However, in this case we want name translation to continue after we have extracted the path info, since we have not yet translated the URL to a physical pathname.

Installing the Example

To install the function on the iPlanet Web Server, add the following Init directive to magnus.conf to load the compiled function:

Init fn=load-modules shlib=yourlibrary funcs=explicit-pathinfo

Inside the default object in obj.conf add the following NameTrans directive:

NameTrans fn=explicit-pathinfo separator=","

This NameTrans directive should appear before other NameTrans directives in the default object.

Source Code

This example is in the ntrans.c file in the nsapi/examples/ or plugins/nsapi/examples subdirectory of the server root directory.

#include "nsapi.h"

#include <string.h> /* strchr */
#include "frame/log.h" /* log_error */

#ifdef __cplusplus
extern "C"
#endif

NSAPI_PUBLIC int explicit_pathinfo(pblock *pb, Session *sn, Request *rq)
{
   /* Parameter: The character to split the path by */
   char *sep = pblock_findval("separator", pb);

   /* Server variables */
   char *ppath = pblock_findval("ppath", rq->vars);

   /* Temp var */
   char *t;

   /* Verify correct usage */
   if(!sep) {
      log_error(LOG_MISCONFIG, "explicit-pathinfo", sn, rq,
         "missing parameter (need root)");
      /*    When we abort, the default status code is 500 Server
         Error */
      return REQ_ABORTED;
   }

   /* Check for separator. If not there, don't do anything */
   t = strchr(ppath, sep[0]);
   if(!t)
      return REQ_NOACTION;

   /* Truncate path at the separator */
   *t++ = '\0';
   /* Assign path information */
   pblock_nvinsert("path-info", t, rq->vars);

   /*    Normally NameTrans functions return REQ_PROCEED when they
      change the path. However, we want name translation to
      continue after we're done. */
   return REQ_NOACTION;
}

#include "base/util.h" /* is_mozilla */
#include "frame/protocol.h" /* protocol_status */
#include "base/shexp.h" /* shexp_cmp */

#ifdef __cplusplus
extern "C"
#endif

NSAPI_PUBLIC int https_redirect(pblock *pb, Session *sn, Request *rq)
{
   /* Server Variable */
   char *ppath = pblock_findval("ppath", rq->vars);
   /* Parameters */
   char *from = pblock_findval("from", pb);
   char *url = pblock_findval("url", pb);
   char *alt = pblock_findval("alt", pb);
   /* Work vars */
   char *ua;

   /* Check usage */
   if((!from) || (!url)) {
      log_error(LOG_MISCONFIG, "https-redirect", sn, rq,
         "missing parameter (need from, url)");
      return REQ_ABORTED;
   }
   /*    Use wildcard match to see if this path is one we should
      redirect */
   if(shexp_cmp(ppath, from) != 0)
      return REQ_NOACTION; /* no match */

   /*    Sigh. The only way to check for SSL capability is to
      check UA */
   if(request_header("user-agent", &ua, sn, rq) == REQ_ABORTED)
      return REQ_ABORTED;

   /*    The is_mozilla function checks for Mozilla version 0.96
      or greater */
   if(util_is_mozilla(ua, "0", "96")) {
      /* Set the return code to 302 Redirect */
      protocol_status(sn, rq, PROTOCOL_REDIRECT, NULL);
      /*    The error handling functions use this to set the
         Location: */
      pblock_nvinsert("url", url, rq->vars);
      return REQ_ABORTED;
   }

   /* No match. Old client. */

   /* If there is an alternate document specified, use it. */
   if(alt) {
      pb_param *pp = pblock_find("ppath", rq->vars);
      /* Trash the old value */
      FREE(pp->value);
      /*    We must dup it because the library will later free
         this pblock */
      pp->value = STRDUP(alt);
      return REQ_PROCEED;
   }
   /* Else do nothing */
   return REQ_NOACTION;
}

PathCheck Example

---

The example in this section demonstrates how to implement a custom SAF for performing path checks. This example simply checks if the requesting host is on a list of allowed hosts.

The Init function acf-init loads a file containing a list of allowable IP addresses with one IP address per line. The PathCheck function restrict_by_acf gets the IP address of the host that is making the request and checks if it is on the list. If the host is on the list, it is allowed access otherwise access is denied.

For simplicity, the stdio library is used to scan the IP addresses from the file.

Installing the Example

To load the shared object containing your functions add the following line in the Init section of the magnus.conf file:

Init fn=load-modules yourlibrary funcs=acf-init,restrict-by-acf

To call acf-init to read the list of allowable hosts, add the following line to the Init section in magnus.conf. (This line must come after the one that loads the library containing acf-init).

Init fn=acf-init file=fileContainingHostsList

To execute your custom SAF during the request-response process for some object, add the following line to that object in the obj.conf file:

PathCheck fn=restrict-by-acf

Source Code

The source code for this example is in pcheck.c in the nsapi/examples/ or plugins/nsapi/examples subdirectory within the server root directory.

#include "nsapi.h"

/*    Set to NULL to prevent problems with people not calling
   acf-init */
static char **hosts = NULL;

#include <stdio.h>
#include "base/daemon.h"
#include "base/util.h" /* util_sprintf */
#include "frame/log.h" /* log_error */
#include "frame/protocol.h" /* protocol_status */

/* The longest line we'll allow in an access control file */
#define MAX_ACF_LINE 256

/* Used to free static array on restart */
#ifdef __cplusplus
extern "C"
#endif

NSAPI_PUBLIC void acf_free(void *unused)
{
   register int x;

   for(x = 0; hosts[x]; ++x)
      FREE(hosts[x]);
   FREE(hosts);
   hosts = NULL;
}

#ifdef __cplusplus
extern "C"
#endif

NSAPI_PUBLIC int acf_init(pblock *pb, Session *sn, Request *rq)
{
   /* Parameter */
   char *acf_file = pblock_findval("file", pb);

   /* Working variables */
   int num_hosts;
   FILE *f;
   char err[MAGNUS_ERROR_LEN];
   char buf[MAX_ACF_LINE];

   /*    Check usage. Note that Init functions have special
      error logging */
   if(!acf_file) {
      util_sprintf(err, "missing parameter to acf_init
         (need file)");
      pblock_nvinsert("error", err, pb);
      return REQ_ABORTED;
   }

   f = fopen(acf_file, "r");

   /* Did we open it? */
   if(!f) {
      util_sprintf(err, "can't open access control file %s (%s)",
         acf_file, system_errmsg());
      pblock_nvinsert("error", err, pb);
      return REQ_ABORTED;
   }

   /* Initialize hosts array */
   num_hosts = 0;
   hosts = (char **) MALLOC(1 * sizeof(char *));
   hosts[0] = NULL;

   while(fgets(buf, MAX_ACF_LINE, f)) {
      /* Blast linefeed that stdio helpfully leaves on there */
      buf[strlen(buf) - 1] = '\0';
      hosts = (char **) REALLOC(hosts, (num_hosts + 2) *
         sizeof(char *));
      hosts[num_hosts++] = STRDUP(buf);
      hosts[num_hosts] = NULL;
   }

   fclose(f);

   /* At restart, free hosts array */
   daemon_atrestart(acf_free, NULL);

   return REQ_PROCEED
}

#ifdef __cplusplus
extern "C"
#endif

NSAPI_PUBLIC int restrict_by_acf(pblock *pb, Session *sn, Request *rq)
{
   /* No parameters */

   /* Working variables */
   char *remip = pblock_findval("ip", sn->client);
   register int x;

   if(!hosts) {
      log_error(LOG_MISCONFIG, "restrict-by-acf", sn, rq,
         "restrict-by-acf called without call to acf-init");
      /*    When we abort, the default status code is 500 Server
         Error */
      return REQ_ABORTED;
   }

   for(x = 0; hosts[x] != NULL; ++x) {
      /* If they're on the list, they're allowed */
      if(!strcmp(remip, hosts[x]))
      return REQ_NOACTION;
   }

   /* Set response code to forbidden and return an error. */
   protocol_status(sn, rq, PROTOCOL_FORBIDDEN, NULL);
   return REQ_ABORTED;
}

ObjectType Example

---

The example in this section demonstrates how to implement html2shtml, a custom SAF that instructs the server to treat a .html file as a .shtml file if a .shtml version of the requested file exists.

A well-behaved ObjectType function checks if the content type is already set, and if so, does nothing except return REQ_NOACTION.

if(pblock_findval("content-type", rq->srvhdrs))    return REQ_NOACTION;

The main thing an ObjectType directive needs to do is to set the content type (if it is not already set). This example sets it to magnus-internal/parsed-html in the following lines:

/* Set the content-type to magnus-internal/parsed-html */ pblock_nvinsert("content-type", "magnus-internal/parsed-html",    rq->srvhdrs);

The html2shtml function looks at the requested file name. If it ends with .html, the function looks for a file with the same base name, but with the extension .shtml instead. If it finds one, it uses that path and informs the server that the file is parsed HTML instead of regular HTML. Note that this requires an extra stat call for every HTML file accessed.

Installing the Example

To load the shared object containing your function, add the following line in the Init section of the magnus.conf file:

Init fn=load-modules shlib=yourlibrary funcs=html2shtml

To execute the custom SAF during the request-response process for some object, add the following line to that object in the obj.conf file:

ObjectType fn=html2shtml

Source Code

The source code for this example is in otype.c in the nsapi/examples/ or plugins/nsapi/examples subdirectory within the server root directory.

#include "nsapi.h"

#include <string.h> /* strncpy */
#include "base/util.h"

#ifdef __cplusplus
extern "C"
#endif

NSAPI_PUBLIC int html2shtml(pblock *pb, Session *sn, Request *rq)
{
   /* No parameters */

   /* Work variables */
   pb_param *path = pblock_find("path", rq->vars);
   struct stat finfo;
   char *npath;
   int baselen;

   /* If the type has already been set, don't do anything */
   if(pblock_findval("content-type", rq->srvhdrs))
      return REQ_NOACTION;

   /*    If path does not end in .html, let normal object types
      do their job */
   baselen = strlen(path->value) - 5;
   if(strcasecmp(&path->value[baselen], ".html") != 0)
      return REQ_NOACTION;

   /* 1 = Room to convert html to shtml */
   npath = (char *) MALLOC((baselen + 5) + 1 + 1);
   strncpy(npath, path->value, baselen);
   strcpy(&npath[baselen], ".shtml");

   /* If it's not there, don't do anything */
   if(stat(npath, &finfo) == -1) {
      FREE(npath);
      return REQ_NOACTION;
   }

   /* Got it, do the switch */
   FREE(path->value);
   path->value = npath;

   /*    The server caches the stat() of the current path.
      Update it. */
   (void) request_stat_path(NULL, rq);

   pblock_nvinsert("content-type", "magnus-internal/parsed-html",
      rq->srvhdrs);
   return REQ_PROCEED;
}

Service Example

---

This section discusses a very simple Service function called simple_service. All this function does is send a message in response to a client request. The message is initialized by the init_simple_service function during server initialization.

For a more complex example, see the file service.c in the examples directory, which is discussed in "More Complex Service Example."

Installing the Example

To load the shared object containing your functions add the following line in the Init section of the magnus.conf file:

Init fn=load-modules shlib=yourlibrary funcs=simple-service-init,simple-service

To call the simple-service-init function to initialize the message representing the generated output, add the following line to the Init section in magnus.conf. (This line must come after the one that loads the library containing simple-service-init).

Init fn=simple-service-init generated-output="<H1>Generated output msg</H1>"

To execute the custom SAF during the request-response process for some object, add the following line to that object in the obj.conf file:

Service type="text/html" fn=simple-service

The type="text/html" argument indicates that this function is invoked during the Service stage only if the content-type has been set to text/html.

Source Code

#include <nsapi.h>

static char *simple_msg = "default customized content";

/* This is the initialization function.
 * It gets the value of the generated-output parameter
 * specified in the Init directive in magnus.conf
*/
NSAPI_PUBLIC int init-simple-service(pblock *pb, Session *sn,
Request *rq)
{
   /* Get the message from the parameter in the directive in
    * magnus.conf
   */
   simple_msg = pblock_findval("generated-output", pb);   
   return REQ_PROCEED;

}

/* This is the customized Service SAF.
 * It sends the "generated-output" message to the client.
*/
NSAPI_PUBLIC int simple-service(pblock *pb, Session *sn, Request *rq)
{    
   int return_value;
   char msg_length[8];   

   /* Use the protocol_status function to set the status of the
   * response before calling protocol_start_response.
   */
   protocol_status(sn, rq, PROTOCOL_OK, NULL);

   /* Although we would expect the ObjectType stage to
   * set the content-type, set it here just to be
   * completely sure that it gets set to text/html.
   */
   param_free(pblock_remove("content-type", rq->srvhdrs));
   pblock_nvinsert("content-type", "text/html", rq->srvhdrs);

   /* If you want to use keepalive, need to set content-length header.   
   * The util_itoa function converts a specified integer to a
   * string, and returns the length of the string. Use this
   * function to create a textual representation of a number.
   */

   util_itoa(strlen(simple_msg), msg_length);
   pblock_nvinsert("content-length", msg_length, rq->srvhdrs);

   /* Send the headers to the client*/
   return_value = protocol_start_response(sn, rq);
   if (return_value == REQ_NOACTION) {
      /* HTTP HEAD instead of GET */
      return REQ_PROCEED;
   }

   /* Write the output using net_write*/
   return_value = net_write(sn->csd, simple_msg,
      strlen(simple_msg));
   if (return_value == IO_ERROR) {
      return REQ_EXIT;
   }

   return REQ_PROCEED;

}

More Complex Service Example

The send-images function is a custom SAF which replaces the doit.cgi demonstration available on the iPlanet home pages. When a file is accessed as /dir1/dir2/something.picgroup, the send-images function checks if the file is being accessed by a Mozilla/1.1 browser. If not, it sends a short error message. The file something.picgroup contains a list of lines, each of which specifies a filename followed by a content-type (for example, one.gif image/gif).

To load the shared object containing your function, add the following line at the beginning of the magnus.conf file:

Init fn=load-modules shlib=yourlibrary funcs=send-images

Also, add the following line to the mime.types file:

type=magnus-internal/picgroup exts=picgroup

To execute the custom SAF during the request-response process for some object, add the following line to that object in the obj.conf file (send-images takes an optional parameter, delay, which is not used for this example):

Service method=(GET|HEAD) type=magnus-internal/picgroup fn=send-images

The source code is in service.c in the nsapi/examples/ or plugins/nsapi/examples subdirectory within the server root directory.

AddLog Example

---

The example in this section demonstrates how to implement brief-log, a custom SAF for logging only three items of information about a request: the IP address, the method, and the URI (for example, 198.93.95.99 GET /jocelyn/dogs/homesneeded.html).

Installing the Example

To load the shared object containing your functions add the following line in the Init section of the magnus.conf file:

Init fn=load-modules shlib=yourlibrary funcs=brief-init,brief-log

To call brief-init to open the log file, add the following line to the Init section in magnus.conf. (This line must come after the one that loads the library containing brief-init).

Init fn=brief-init file=/tmp/brief.log

To execute your custom SAF during the AddLog stage for some object, add the following line to that object in the obj.conf file:

AddLog fn=brief-log

Source Code

The source code is in addlog.c is in the nsapi/examples/ or plugins/nsapi/examples subdirectory within the server root directory.

#include "nsapi.h"

#include "base/daemon.h" /* daemon_atrestart */
#include "base/file.h" /* system_fopenWA, system_fclose */
#include "base/util.h" /* sprintf */

/* File descriptor to be shared between the processes */
static SYS_FILE logfd = SYS_ERROR_FD;

#ifdef __cplusplus
extern "C"
#endif

NSAPI_PUBLIC void brief_terminate(void *parameter)
{
   system_fclose(logfd);
   logfd = SYS_ERROR_FD;
}

#ifdef __cplusplus
extern "C"
#endif

NSAPI_PUBLIC int brief_init(pblock *pb, Session *sn, Request *rq)
{
   /* Parameter */
   char *fn = pblock_findval("file", pb);

   if(!fn) {
      pblock_nvinsert("error", "brief-init: please supply a
         file name", pb);
      return REQ_ABORTED;
   }

   logfd = system_fopenWA(fn);
   if(logfd == SYS_ERROR_FD) {
      pblock_nvinsert("error", "brief-init: please supply a
         file name", pb);
      return REQ_ABORTED;
   }

   /* Close log file when server is restarted */
   daemon_atrestart(brief_terminate, NULL);
   return REQ_PROCEED;
}

#ifdef __cplusplus
extern "C"
#endif

NSAPI_PUBLIC int brief_log(pblock *pb, Session *sn, Request *rq)
{
   /* No parameters */

   /* Server data */
   char *method = pblock_findval("method", rq->reqpb);
   char *uri = pblock_findval("uri", rq->reqpb);
   char *ip = pblock_findval("ip", sn->client);

   /* Temp vars */
   char *logmsg;
   int len;

   logmsg = (char *)
   MALLOC(strlen(ip) + 1 + strlen(method) + 1 + strlen(uri) +
      1 + 1);
   len = util_sprintf(logmsg, "%s %s %s\n", ip, method, uri);
   /* The atomic version uses locking to prevent interference */
   system_fwrite_atomic(logfd, logmsg, len);
   FREE(logmsg);

   return REQ_PROCEED;
}

Quality of Service Examples

---

The code for the qos-handler and qos-error SAFs is provided as an example in case you want to define your own SAFs for quality of service handling.

For more information, see the Performance Tuning, Sizing, and Scaling Guide for iPlanet Web Server.

Installing the Example

Inside the default object in obj.conf, add the following AuthTrans and Error directives:

AuthTrans fn=qos-handler ... Error fn=qos-error code=503

Source Code

The source code for this example is in the qos.c file in the plugins/nsapi/examples subdirectory of the server root directory.

#include "frame/log.h"
#include "frame/http.h"
#include "safs/qos.h"

/*-----------------------------------------------------------------------------
decode : internal function used for parsing of QOS values in pblock
-----------------------------------------------------------------------------*/
void decode(const char* val, PRInt32* var, pblock* pb)
{
char* pbval;
if ( (!var) || (!val) || (!pb) )
return;
pbval = pblock_findval(val, pb);
if (!pbval)
return;
*var = atoi(pbval);
}
/*-----------------------------------------------------------------------------
qos_error
This function is meant to be an error handler for an HTTP 503 error code,
which is returned by qos_handler when QOS limits are exceeded and enforced
This sample function just prints out a message about which limits were exceeded.
-----------------------------------------------------------------------------*/
NSAPI_PUBLIC int qos_error(pblock *pb, Session *sn, Request *rq)
{
char error[1024] = "";

PRBool ours = PR_FALSE;

PRInt32 vs_bw = 0, vs_bwlim = 0, vs_bw_ef = 0,
vs_conn = 0, vs_connlim = 0, vs_conn_ef = 0,
vsc_bw = 0, vsc_bwlim = 0, vsc_bw_ef = 0,
vsc_conn = 0, vsc_connlim = 0, vsc_conn_ef = 0,
srv_bw = 0, srv_bwlim = 0, srv_bw_ef = 0,
srv_conn = 0, srv_connlim = 0, srv_conn_ef = 0;

   pblock* apb = rq->vars;

   decode("vs_bandwidth", &vs_bw, apb);
   decode("vs_connections", &vs_conn, apb);

   decode("vs_bandwidth_limit", &vs_bwlim, apb);
   decode("vs_bandwidth_enforced", &vs_bw_ef, apb);

   decode("vs_connections_limit", &vs_connlim, apb);
   decode("vs_connections_enforced", &vs_conn_ef, apb);

   decode("vsclass_bandwidth", &vsc_bw, apb);
   decode("vsclass_connections", &vsc_conn, apb);

   decode("vsclass_bandwidth_limit", &vsc_bwlim, apb);
   decode("vsclass_bandwidth_enforced", &vsc_bw_ef, apb);

   decode("vsclass_connections_limit", &vsc_connlim, apb);
   decode("vsclass_connections_enforced", &vsc_conn_ef, apb);

   decode("server_bandwidth", &srv_bw, apb);
   decode("server_connections", &srv_conn, apb);

   decode("server_bandwidth_limit", &srv_bwlim, apb);
   decode("server_bandwidth_enforced", &srv_bw_ef, apb);

   decode("server_connections_limit", &srv_connlim, apb);
   decode("server_connections_enforced", &srv_conn_ef, apb);

   if ((vs_bwlim) && (vs_bw>vs_bwlim))
{
      /* VS bandwidth limit was exceeded, display it */
      ours = PR_TRUE;
      sprintf(error, "<P>Virtual server bandwidth limit of %d .
      Current VS bandwidth : %d . <P>", &vs_bwlim, vs_bw);
};

if ((vs_connlim) && (vs_conn>vs_connlim))
{
      /* VS connection limit was exceeded, display it */
      ours = PR_TRUE;
      sprintf(error, "<P>Virtual server connection limit of %d .
      Current VS connections : %d . <P>", &vs_connlim, vs_conn);
};

if ((vsc_bwlim) && (vsc_bw>vsc_bwlim))
{
      /* VSCLASS bandwidth limit was exceeded, display it */
      ours = PR_TRUE;
      sprintf(error, "<P>Virtual server class bandwidth limit of %d
      . Current VSCLASS bandwidth : %d . <P>", &vsc_bwlim, vsc_bw);
};

if ((vsc_connlim) && (vsc_conn>vsc_connlim))
{
      /* VSCLASS connection limit was exceeded, display it */
      ours = PR_TRUE;
      sprintf(error, "<P>Virtual server class connection limit of
      %d . Current VSCLASS connections : %d . <P>", &vsc_connlim,
      vsc_conn);
};

if ((srv_bwlim) && (srv_bw>srv_bwlim))
{
      /* SERVER bandwidth limit was exceeded, display it */
      ours = PR_TRUE;
      sprintf(error, "<P>Global bandwidth limit of %d . Current
      bandwidth : %d . <P>", &srv_bwlim, srv_bw);
};

if ((srv_connlim) && (srv_conn>srv_connlim))
{
      /* SERVER connection limit was exceeded, display it */
      ours = PR_TRUE;
      sprintf(error, "<P>Global connection limit of %d . Current
      connections : %d . <P>", &srv_connlim, srv_conn);
};

if (ours)
{
      /* this was really a QOS failure, therefore send the error
      page */
pblock_nvreplace("content-type", "text/html", rq->srvhdrs);

protocol_start_response(sn, rq);
net_write(sn->csd, error, strlen(error));
return REQ_PROCEED;
}
else
{
      /* this 503 didn't come from a QOS SAF failure, let someone
      else handle it */
      return REQ_PROCEED;
};
}

/*-----------------------------------------------------------------------------
qos_handler

This is an NSAPI AuthTrans function

It examines the QOS values in the request and compare them to the QOS limits.

It does several things :
1) It will log errors if the QOS limits are exceeded.
2) It will return REQ_ABORTED with a 503 error code if the QOS limits are exceeded,
and the QOS limits are set to be enforced. Otherwise it will return REQ_PROCEED

-----------------------------------------------------------------------------*/

NSAPI_PUBLIC int qos_handler(pblock *pb, Session *sn, Request *rq)
{
PRBool ok = PR_TRUE;

PRInt32 vs_bw = 0, vs_bwlim = 0, vs_bw_ef = 0,
vs_conn = 0, vs_connlim = 0, vs_conn_ef = 0,
vsc_bw = 0, vsc_bwlim = 0, vsc_bw_ef = 0,
vsc_conn = 0, vsc_connlim = 0, vsc_conn_ef = 0,
srv_bw = 0, srv_bwlim = 0, srv_bw_ef = 0,
srv_conn = 0, srv_connlim = 0, srv_conn_ef = 0;

pblock* apb = rq->vars;

decode("vs_bandwidth", &vs_bw, apb);
decode("vs_connections", &vs_conn, apb);

decode("vs_bandwidth_limit", &vs_bwlim, apb);
decode("vs_bandwidth_enforced", &vs_bw_ef, apb);

decode("vs_connections_limit", &vs_connlim, apb);
decode("vs_connections_enforced", &vs_conn_ef, apb);

decode("vsclass_bandwidth", &vsc_bw, apb);
decode("vsclass_connections", &vsc_conn, apb);

decode("vsclass_bandwidth_limit", &vsc_bwlim, apb);
decode("vsclass_bandwidth_enforced", &vsc_bw_ef, apb);

decode("vsclass_connections_limit", &vsc_connlim, apb);
decode("vsclass_connections_enforced", &vsc_conn_ef, apb);

decode("server_bandwidth", &srv_bw, apb);
decode("server_connections", &srv_conn, apb);

decode("server_bandwidth_limit", &srv_bwlim, apb);
decode("server_bandwidth_enforced", &srv_bw_ef, apb);

decode("server_connections_limit", &srv_connlim, apb);
decode("server_connections_enforced", &srv_conn_ef, apb);

if ((vs_bwlim) && (vs_bw>vs_bwlim))
{
      /* bandwidth limit was exceeded, log it */
      ereport(LOG_FAILURE, "Virtual server bandwidth limit of %d
      exceeded. Current VS bandwidth : %d", &vs_bwlim, vs_bw);

if (vs_bw_ef)
{
         /* and enforce it */
         ok = PR_FALSE;
};
};

if ((vs_connlim) && (vs_conn>vs_connlim))
{
      /* connection limit was exceeded, log it */
      ereport(LOG_FAILURE, "Virtual server connection limit of %d
      exceeded. Current VS connections : %d", &vs_connlim,
      vs_conn);

if (vs_conn_ef)
{
         /* and enforce it */
         ok = PR_FALSE;
};
};

if ((vsc_bwlim) && (vsc_bw>vsc_bwlim))
{
      /* bandwidth limit was exceeded, log it */
      ereport(LOG_FAILURE, "Virtual server class bandwidth limit of
      %d exceeded. Current VSCLASS bandwidth : %d", &vsc_bwlim,
         vsc_bw);

if (vsc_bw_ef)
{
         /* and enforce it */
         ok = PR_FALSE;
};
};

if ((vsc_connlim) && (vsc_conn>vsc_connlim))
{
      /* connection limit was exceeded, log it */
      ereport(LOG_FAILURE, "Virtual server class connection limit
      of %d exceeded. Current VSCLASS connections : %d",
      &vsc_connlim, vsc_conn);

if (vsc_conn_ef)
{
         /* and enforce it */
         ok = PR_FALSE;
};
};


if ((srv_bwlim) && (srv_bw>srv_bwlim))
{
      /* bandwidth limit was exceeded, log it */
      ereport(LOG_FAILURE, "Global bandwidth limit of %d exceeded.
      Current global bandwidth : %d", &srv_bwlim, srv_bw);

if (srv_bw_ef)
{
         /* and enforce it */
         ok = PR_FALSE;
};
};

if ((srv_connlim) && (srv_conn>srv_connlim))
{
      /* connection limit was exceeded, log it */
      ereport(LOG_FAILURE, "Global connection limit of %d exceeded.
      Current global connections : %d", &srv_connlim, srv_conn);

if (srv_conn_ef)
{
         /* and enforce it */
         ok = PR_FALSE;
};
};

if (ok)
{
      return REQ_PROCEED;
}
else
{
      /* one of the limits was exceeded
      therefore, we set HTTP error 503 "server too busy" */
      protocol_status(sn, rq, PROTOCOL_SERVICE_UNAVAILABLE, NULL);
      return REQ_ABORTED;
};
}