DestE情報/OSSスクリプト変換

最低限必要な改造

サブルーチン読み込み部 変更前
 require 'ebs_sub1.cgi';
変更後
 一般系OSS
 require 'dest_ebs_convert.cgi';
 
 管理系OSS
 require 'admin_de_convert.cgi';

毎に必要な改造

  • クッキー読み込み 変更前
     @pair = split(/;/, $ENV{'HTTP_COOKIE'});
     foreach (@pair) {my($key, $value) = split(/=/, $_);$DUMMY{$key} = $value;}
     @pairs = split(/,/, $DUMMY{EB});
     foreach (@pairs) {my($key, $value) = split(/:/, $_);$COOKIE{$key} = $value;}
    
    変更後
     &get_cookie;
     %COOKIE = %cookie;
    
  • パスワード確認 変更前
     crypt ($FORM{'pass'},eb);
    
    変更後
     crypt ($FORM{'pass'},dest);
    
  • ロック処理 変更前
     &LOCK;
     &UNLOCK;
    
    変更後
     &Lock;
     &UnLock;