ppp_login.c

计费部分源程序。我认为该软件极好

#include <sqlhdr.h>
#include <sqlca.h>
extern _SQCURSOR *_iqnprep();

#if !defined(__STDC__)
#define const 
#endif

#line 1 "ppp_login.ec"
#include "cgi.h"
#include <stdio.h>
char *cgiDebug;


#define INFORMIXDIR "INFORMIXDIR=/opt/informix"
#define SQLRM       "SQLRM=/opt/informix/lib/sqlrmtlitcp"
#define SQLEXEC     "SQLEXEC=/opt/informix/lib/sqlexec"

int cgiMain()
{
/*
 *     $string user_id[20], password[11] ;
 */
#line 12 "ppp_login.ec"
char user_id[20], password[11];
    char *passwd, buff[100];
	FILE *fp;














    putenv(INFORMIXDIR);
    putenv(SQLRM);
    putenv(SQLEXEC);
    cgiHeaderContent("text/html");

/*
 *     $database scs_internet@ONLINE;
 */
#line 34 "ppp_login.ec"
  {
#line 34 "ppp_login.ec"
  _iqdbase("scs_internet@ONLINE", 0);
#line 34 "ppp_login.ec"
  }
    if (sqlca.sqlcode <0 ) cgiPrintf(" error is %d \n",sqlca.sqlcode);
    strcpy(user_id, cgiFormGetVal("userid"));
    passwd=cgiFormGetVal("pswd");

/*
 *     $ select passwd
 *         into $password
 *      from user_info
 *      where login_id=$user_id;
 */
#line 39 "ppp_login.ec"
  {
#line 39 "ppp_login.ec"
  static const char *sqlcmdtxt[] =
#line 39 "ppp_login.ec"
    {
#line 39 "ppp_login.ec"
    " select passwd from user_info where login_id = ?",
    0
    };
#line 42 "ppp_login.ec"
  static _SQCURSOR _SQ0 = {0};
  static struct sqlvar_struct _sqibind[] = 
    {
      { 109, 20, 0, 0, 0, 0, 0, 0, 0 },
#line 42 "ppp_login.ec"
    };
  static struct sqlvar_struct _sqobind[] = 
    {
      { 109, 11, 0, 0, 0, 0, 0, 0, 0 },
#line 42 "ppp_login.ec"
    };
#line 42 "ppp_login.ec"
  _sqibind[0].sqldata = user_id;
#line 42 "ppp_login.ec"
  _sqobind[0].sqldata = password;
#line 42 "ppp_login.ec"
  _iqslct(&_SQ0, sqlcmdtxt, 1, _sqibind, 1, _sqobind, 0);
#line 42 "ppp_login.ec"
  }

    if (!sqlca.sqlcode && !strcmp(passwd,password))
	 FetchHTMLFile("/http_dir/Web/in_10.htm",user_id);
    else{
       cgiHtmlHead("Internet查帐系统");
       cgiPrintf("你的合同号或查帐口令错误，请重新输入\n");
       cgiHtmlTail();
   }
}