lan_ip_user.c

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

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

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

static const char *_Cn1 = "cusr"; static _SQCURSOR *_SQ1 = 0;
#line 1 "lan_ip_user.ec"
#include <stdio.h>
#include <string.h>
#include <sys/types.h>
/* 
 * $include sqlca;
 */
#line 4 "lan_ip_user.ec"
#line 1 "/opt/informix/incl/esql/sqlca.h"

























#ifndef SQLCA_INCL

#define SQLCA_INCL

struct sqlca_s
    {
    long sqlcode;
    char sqlerrm[72];
    char sqlerrp[8];
    long sqlerrd[6];
		
		
		
		
		
		
    struct sqlcaw_s
	{
	char sqlwarn0;
	char sqlwarn1;

	char sqlwarn2;

	char sqlwarn3;

	char sqlwarn4;

	char sqlwarn5;
	char sqlwarn6;
	char sqlwarn7;
	} sqlwarn;
    };









#ifdef VMS
noshare
#endif
extern struct sqlca_s sqlca;

extern long SQLCODE;

#define SQLNOTFOUND 100

#endif
#line 5 "lan_ip_user.ec"


void main(){

/*
 *  $string g_login_id[21];
 */
#line 9 "lan_ip_user.ec"
char g_login_id[21];
/*
 *  $string g_password[11];
 */
#line 10 "lan_ip_user.ec"
char g_password[11];
/*
 *  $string g_zt[2];
 */
#line 11 "lan_ip_user.ec"
char g_zt[2];
 char g_cmd[50];
 int  re=-1;

/*
 *   $database scs_internet@ONLINE;
 */
#line 15 "lan_ip_user.ec"
  {
#line 15 "lan_ip_user.ec"
  _iqdbase("scs_internet@ONLINE", 0);
#line 15 "lan_ip_user.ec"
  }

  if  (sqlca.sqlcode<0) {
    printf("database is error! %d\n ",sqlca.sqlcode);
    exit(-1);
    }
/*
 *   $declare cusr cursor for select login_id,password,zt from p_user_temp;
 */
#line 21 "lan_ip_user.ec"
  {
#line 21 "lan_ip_user.ec"
  static const char *sqlcmdtxt[] =
#line 21 "lan_ip_user.ec"
    {
#line 21 "lan_ip_user.ec"
    " select login_id , password , zt from p_user_temp",
    0
    };
#line 21 "lan_ip_user.ec"
#line 21 "lan_ip_user.ec"
  _SQ1 = _iqlocate_cursor(_Cn1, 0, 0);
#line 21 "lan_ip_user.ec"
  _iqcdcl(_SQ1, _Cn1, sqlcmdtxt, (struct sqlda *)0, (struct sqlda *)0, 0);
#line 21 "lan_ip_user.ec"
  }
/*
 *   $open  cusr;
 */
#line 22 "lan_ip_user.ec"
  {
#line 22 "lan_ip_user.ec"
#line 22 "lan_ip_user.ec"
  _SQ1 = _iqlocate_cursor(_Cn1, 0, 0);
#line 22 "lan_ip_user.ec"
  _iqdcopen(_SQ1, (struct sqlda *)0, (char *)0, (char *)0, 0);
#line 22 "lan_ip_user.ec"
  }
  while(1){
       re=-1;
/*
 *        $fetch cusr into $g_login_id,$g_password,$g_zt;
 */
#line 25 "lan_ip_user.ec"
  {
#line 25 "lan_ip_user.ec"
  static struct sqlvar_struct _sqobind[] = 
    {
      { 109, 21, 0, 0, 0, 0, 0, 0, 0 },
      { 109, 11, 0, 0, 0, 0, 0, 0, 0 },
      { 109, 2, 0, 0, 0, 0, 0, 0, 0 },
#line 25 "lan_ip_user.ec"
    };
  static struct sqlda _SD0 = { 3, _sqobind, 0, 3, 0 };
  static _FetchSpec _FS1 = { 0, 1, 0 };
#line 25 "lan_ip_user.ec"
  _sqobind[0].sqldata = g_login_id;
#line 25 "lan_ip_user.ec"
  _sqobind[1].sqldata = g_password;
#line 25 "lan_ip_user.ec"
  _sqobind[2].sqldata = g_zt;
#line 25 "lan_ip_user.ec"
  _SQ1 = _iqlocate_cursor(_Cn1, 0, 0);
#line 25 "lan_ip_user.ec"
  _iqcftch(_SQ1, (struct sqlda *)0, &_SD0, (char *)0, &_FS1);
#line 25 "lan_ip_user.ec"
  }
       if (sqlca.sqlcode==100) break;
       printf("get user login_id :%s  g_password :%s g_zt %s\n",g_login_id,
                     g_password,g_zt);


       switch (g_zt[0]){
          case '0':
                  sprintf(g_cmd,"lan_ip_adduser %s %s informix",g_login_id,g_password);

                  re=system(g_cmd);
                  break;
          case '1':
                  sprintf(g_cmd,"lan_ip_deleteuser %s ",g_login_id,g_password);
                  re=system(g_cmd);
                  break;
          case '2':
                  sprintf(g_cmd,"lan_ip_modifyuserop %s %s",g_login_id,g_password);
                  re=system(g_cmd);
                  break;

          default: break;
        }

     if (re==0){
/*
 *       $update p_user_temp set zt="o" where login_id=$g_login_id;
 */
#line 50 "lan_ip_user.ec"
  {
#line 50 "lan_ip_user.ec"
  static const char *sqlcmdtxt[] =
#line 50 "lan_ip_user.ec"
    {
#line 50 "lan_ip_user.ec"
    " update p_user_temp set zt = 'o' where login_id = ?",
    0
    };
#line 50 "lan_ip_user.ec"
  static _SQSTMT _SQ0 = {0};
  static struct sqlvar_struct _sqibind[] = 
    {
      { 109, 21, 0, 0, 0, 0, 0, 0, 0 },
#line 50 "lan_ip_user.ec"
    };
#line 50 "lan_ip_user.ec"
#line 50 "lan_ip_user.ec"
  _sqibind[0].sqldata = g_login_id;
  _iqstmnt(&_SQ0, sqlcmdtxt, 1, _sqibind, (char *)0);
#line 50 "lan_ip_user.ec"
  }
      }

   }
/*
 *   $close  cusr;
 */
#line 54 "lan_ip_user.ec"
  {
#line 54 "lan_ip_user.ec"
#line 54 "lan_ip_user.ec"
  _SQ1 = _iqlocate_cursor(_Cn1, 0, 0);
#line 54 "lan_ip_user.ec"
  _iqclose(_SQ1);
#line 54 "lan_ip_user.ec"
  }
/*
 *   $delete from p_user_temp where zt="o";
 */
#line 55 "lan_ip_user.ec"
  {
#line 55 "lan_ip_user.ec"
  static const char *sqlcmdtxt[] =
#line 55 "lan_ip_user.ec"
    {
#line 55 "lan_ip_user.ec"
    " delete from p_user_temp where zt = 'o'",
    0
    };
#line 55 "lan_ip_user.ec"
  static _SQSTMT _SQ0 = {0};
#line 55 "lan_ip_user.ec"
  _iqstmnt(&_SQ0, sqlcmdtxt, 0, (char *)0, (char *)0);
#line 55 "lan_ip_user.ec"
  }
/*
 *   $close database;
 */
#line 56 "lan_ip_user.ec"
  {
#line 56 "lan_ip_user.ec"
  _iqdbclose();
#line 56 "lan_ip_user.ec"
  }
}