"; print "foltia:新規アカウント登録 "; }//end function printtitle() printtitle(); ?>

新規アカウント登録


新規アカウント登録をします。

\n"; }else{ //すでにそのユーザが存在しているかどうか確認 if ($username != ""){ $query = " SELECT count(memberid) FROM foltia_envpolicy WHERE foltia_envpolicy.name = ? "; // $isaccountexist = m_query($con, $query, "DBクエリに失敗しました"); $isaccountexist = sql_query($con, $query, "DBクエリに失敗しました",array($username)); $isaccountexistncount = $isaccountexist->fetchColumn(0); if ($isaccountexistncount == 0){ //valid }else{ $errflag = 1; $errmsg = "そのユーザ名は既に使われています。"; } } if ($userpasswd == ""){ $errflag = 2; $errmsg = "パスワードが不適切です。半角英数を指定して下さい。"; } if ($errflag == 0){ // next midを探す $query = " SELECT max(memberid) FROM foltia_envpolicy "; $rs = m_query($con, $query, "DBクエリに失敗しました"); $maxid = $rs->fetchColumn(0); if ($maxid) { $nextcno = $maxid + 1; }else{ $nextcno = 1; } //登録 //INSERT if ($demomode){ }else{ /* ユーザクラス 0:特権管理者 1:管理者:予約削除、ファイル削除が出来る 2:利用者:EPG追加、予約追加が出来る 3:ビュアー:ファイルダウンロードが出来る 4:ゲスト:インターフェイスが見れる */ $remotehost = gethostbyaddr($_SERVER['REMOTE_ADDR']); $query = " insert into foltia_envpolicy values ( ?,'2',?,?,now(),?)"; //print "$query
\n"; // $rs = m_query($con, $query, "DBクエリに失敗しました"); $rs = sql_query($con, $query, "DBクエリに失敗しました",array($nextcno,$username,$userpasswd,$remotehost)); print "次のアカウントを登録しました。
ログイン名:$username
パスワード:$userpasswd"; if ($environmentpolicytoken != ""){ print "+セキュリティコード
\n"; } print "ログイン
\n"; print " "; $oserr = system("$toolpath/perl/envpolicyupdate.pl"); exit; }//endif デモモード }else{//errorフラグあったら print "$errmsg / $errflag
\n"; }//end if エラーじゃなければ }//end if "" ?>

登録ユーザ名: (半角英数のみ)

登録パスワード: (半角英数のみ)