B DCE ゲートウェイ アプリケーション

サンプル コード B-1 simpdce.acf

[explicit_handle]interface changecase
{
}

サンプル コード B-2 dceepv.c

#include <simpdce.h>   /* IDL コンパイラによって生成されるヘッダ */
#include <dce/rpcexc.h> /* RAISE マクロ */
static void myto_upper(rpc_binding_handle_t hdl, idl_char *str);
static void myto_lower(rpc_binding_handle_t hdl, idl_char *str);
/*
 * マネージャのエントリ ポイント ベクトルは、
 * 有効な DCE バインド ハンドルを生成して DCE サーバに送れるように定義されます。
 * Tuxedo TxRPC はハンドルをサポートしないので、エントリ ポイント関数への入力ハンドルは、
 * 常に NULL になることに注意してください。
 */
 /* 2 つのオペレーションを持つマネージャ エントリ ポイント ベクトル */
changecase_v1_0_epv_t changecase_v1_0_s_epv = {
  myto_upper,
  myto_lower
};
int dobind(rpc_binding_handle_t *hdl);

void
myto_upper(rpc_binding_handle_t hdl, idl_char *str)
{
  rpc_binding_handle_t handle;
  if (dobind(&handle) 0) {  /* サーバ用のバインド ハンドルを取得 */
   userlog("binding failed");
   RAISE(rpc_x_invalid_binding);
  }
  to_upper(handle, str);   /* DCE クライアント スタブを呼び出す */
}

void
myto_lower(rpc_binding_handle_t hdl, idl_char *str)
{
  rpc_binding_handle_t handle;
  if (dobind(&handle) 0) {  /* サーバ用のバインド ハンドルを取得 */
   userlog("binding failed");
   RAISE(rpc_x_invalid_binding);
  }
  to_lower(handle, str);   /* DCE クライアント スタブを呼び出す */
}

サンプル コード B-3 dcemgr.c

#include <stdio.h>
#include <ctype.h>
#include "simpdce.h"    /* IDL コンパイラによって生成されるヘッダ */
#include <dce/rpcexc.h> /* RAISE マクロ */
#include <dce/dce_error.h> /* dce_error_inq_text を呼び出すために必要 */
#include <dce/binding.h>  /* レジストリにバインド */
#include <dce/pgo.h>    /* レジストリ インタフェース */
#include <dce/secidmap.h> /* グローバル名をプリンシパル名に変換 */
void
checkauth(rpc_binding_handle_t handle)
{
  int error_stat;
  static unsigned char error_string[dce_c_error_string_len];
  sec_id_pac_t *pac;           /* クライアント パッケージ */
  unsigned_char_t *server_principal_name; /* 要求されるサーバ プリンシパル */
  unsigned32  protection_level;     /* 保護レベル */
  unsigned32  authn_svc;         /* 認証サービス */
  unsigned32  authz_svc;         /* 認可サービス */
  sec_rgy_handle_t rgy_handle;
  error_status_t status;
  /*
   * クライアントがこの呼び出しのために選択した認証パラメータを
   * チェックします。
   */
   rpc_binding_inq_auth_client(
     handle,           /* 入力ハンドル */
     (rpc_authz_handle_t *)&pac,  /* 返されるクライアント パッケージ */
     &server_principal_name,    /* 返される要求サーバのプリンシパル */
     &protection_level,      /* 返される保護レベル */
     &authn_svc,          /* 返される認証サービス */
     &authz_svc,    /* 返される認可サービス */
     &status);
  if (status != rpc_s_ok) {
     dce_error_inq_text(status, error_string, &error_stat);
     fprintf(stderr, "%s %s\n", "inq_auth_client failed",
       error_string);
     RAISE(rpc_x_invalid_binding);
     return;
  }
  /*
   * 呼び出し側が、必要な
   * 保護レベル、認証レベルおよび認可レベルを指定していることを確認します。
   */
  if (protection_level != rpc_c_protect_level_pkt_integ ││
    authn_svc != rpc_c_authn_dce_secret ││
    authz_svc != rpc_c_authz_dce) {
      fprintf(stderr, "not authorized");
      RAISE(rpc_x_invalid_binding);
      return;
    }
    return;
}
void
to_upper(rpc_binding_handle_t handle, idl_char *str)
{
  idl_char *p;
  checkauth(handle);
  /* ACL または参照モニタ チェックはここで実行できます */
  
  /* 大文字に変換 */
  for (p=str; *p != '\0 '; p++)
    *p = toupper((int)*p);
  return;
}
void
to_lower(rpc_binding_handle_t handle, idl_char *str)
{
  idl_char *p;
  checkauth(handle);
  /* ACL または参照モニタ チェックはここで実行できます */
  /* 小文字に変換 */
  for (p=str; *p != '\0 '; p++)
    *p = tolower((int)*p);
  return;
}

サンプル コード B-4 rpcsimp.mk

CC=cc
CFLAGS=
TIDL=$(TUXDIR)/bin/tidl
LIBTRPC=-ltrpc
all: client server
# Tuxedo クライアント
client: simp.h simp_cstub.o
  CC=$(CC) CFLAGS=$(CFLAGS) $(TUXDIR)/bin/buildclient -oclient \
    -fclient.c -fsimp_cstub.o -f$(LIBTRPC)
#
# Tuxedo サーバ省略
#
# Tuxedo ゲートウェイ例
# 上記の Tuxedo クライアントとゲートウェイ サーバおよび DCE サーバを使用
#
#
# Alpha FLAGS/LIBS
#DCECFLAGS=-D_SHARED_LIBRARIES -Dalpha -D_REENTRANT -w -I. \
  -I/usr/include/dce -I$(TUXDIR)/include
#DCELIBS=-ldce -lpthreads -lc_r -lmach -lm
#
#
# HPUX FLAGS/LIBS
#DCECFLAGS=-Aa -D_HPUX_SOURCE -D_REENTRANT -I. \
  -I/usr/include/reentrant -I${TUXDIR}/include
#DCELIBS=-Wl,-Bimmediate -Wl,-Bnonfatal -ldce -lc_r -lm
#
IDL=idl
ALL2=client simpgw dceserver
all2: $(ALL2)
# Tuxedo から DCE へのゲートウェイ
simpdce.idl: simp.idl
  rm -f simpdce.idl
  ln simp.idl simpdce.idl
gwinit.c: dceserver.c
  rm -f gwinit.c
  ln dceserver.c gwinit.c
gwinit.o: gwinit.c
  $(CC) -c $(DCECFLAGS) -DTPSVRINIT gwinit.c
dceepv.o: dceepv.c simpdce.h
   $(CC) -c $(DCECFLAGS) dceepv.c
dcebind.o: dcebind.c simpdce.h
  $(CC) -c $(DCECFLAGS) dcebind.c
simpgw: simpdce.idl gwinit.o dcebind.o dceepv.o
  blds_dce -i -no_mepv -o simpgw -f -g -f gwinit.o -f \ 
    dcebind.o -f dceepv.o simpdce.idl
# DCE サーバ
simpdce_sstub.o simpdce.h: simpdce.idl
  $(IDL) -client none -keep object simpdce.idl
dceserver.o: dceserver.c simpdce.h
  $(CC) -c $(DCECFLAGS) dceserver.c
dcemgr.o: dcemgr.c simpdce.h
  $(CC) -c $(DCECFLAGS) dcemgr.c
dceserver: simpdce_sstub.o dceserver.o dcemgr.o
  $(CC) dceserver.o simpdce_sstub.o dcemgr.o -o dceserver \ 
    $(DCELIBS)
# クリーンアップ
clean::
  rm -f *.o server $(ALL2) ULOG.* TUXCONFIG
  rm -f stderr stdout *stub.c *.h simpdce.idl gwinit.c
clobber: clean