From 1624d1d57db3cfde3b4f42a55580f5a1e742f28e Mon Sep 17 00:00:00 2001 From: ultramage Date: Sat, 26 Jul 2008 20:45:57 +0000 Subject: Merged the /loginmerge branch (topic:192754) * the login server storage, ipban and logging systems have been abstracted and now provide a common interface; the rest has been merged into a single login server core (no more login/login_sql duplicity) * storage systems are now added via compiler options (WITH_SQL / WITH_TXT) * multiple storage engines can be compiled in at the same time, and the config option account.engine defines which one will be used. * due to MySQL autoincrement limitations, accounts with id '0' will not be supported; account IDs from this point on should start from '1'. * login_log() functions now again record IP addresses in dotted format, not as 4-byte integers (undo from r6868). * removed config options that defined column names in the login table * removed `memo` and `error message` columns from login db/savefile * moved `loginlog` table to the logs database * added sql files upgrade_svn12975.sql and upgrade_svn12975_log.sql * due to changes to the login table layout, I added an !optional! sql file (upgrade_svn12975_view.sql) that will provide a certain degree of backwards compatibility with existing software; read the instructions inside carefully! * moved third-party includes/libs to a separate directory * updated project files / makefiles Changed the way GM levels are handled * removed conf/gm_account.txt * added the gm level column to the txt savefile (after 'email' column) * gm level information is now transferred along with account data For open problems see bugreport:1889. git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@13000 54d463be-8e91-2dee-dedb-b68131a5f0ec --- tools/cgi/addaccount.cgi | 204 ----------------------------------------------- 1 file changed, 204 deletions(-) delete mode 100644 tools/cgi/addaccount.cgi (limited to 'tools/cgi/addaccount.cgi') diff --git a/tools/cgi/addaccount.cgi b/tools/cgi/addaccount.cgi deleted file mode 100644 index 2134a78a3..000000000 --- a/tools/cgi/addaccount.cgi +++ /dev/null @@ -1,204 +0,0 @@ -#!/usr/bin/perl - -#========================================================================= -# addaccount.cgi ver.1.00 -# ladminをラップした、アカウントを作成するCGI。 -# ladmin ver.1.04での動作を確認。 -# -# ** 設定方法 ** -# -# - 下の$ladmin変数にladminへのパスを設定すること。 -# - UNIX系OSで使用する場合はladminと共に改行コードを変換すること、また -# ファイル先頭行をperlの正しいパスにすること。例> $ which perl -# - サーバープログラムやブラウザによっては $cgiuri にこのファイルへの -# 完全なURIをセットしなければならない場合もある。 -# - perlにパスが通っていない場合は $perl をperlへの正しいパスにすること。 -# - 他は普通のCGIと同じです。（実行権やcgi-binフォルダなど） -# -# ** その他 ** -# addaccount.cgi をブラウザで開くとサンプルHTML（そのまま使えます）が -# 開きます。また、このcgiはブラウザから送られるAccept-Languageが -# jaで始まっていればメッセージの一部を日本語に変換します。 -# (IEならインターネットオプションの言語設定で一番上に日本語を置く) -# それ以外の場合は英語のまま出力します。 -#------------------------------------------------------------------------- - -my($ladmin) = "../ladmin"; # ladminのパス(おそらく変更が必要) - -my($cgiuri) = "./addaccount.cgi"; # このファイルのURI -my($perl) = "perl"; # perlのコマンド名 - - - -#--------------------------- 設定ここまで -------------------------------- - - - - - - -use strict; -use CGI; - -my($cgi)= new CGI; -my(%langconv)=( - 'Athena login-server administration tool.*' => '', - 'logged on.*' => '', -); - -# ----- 日本語環境なら変換テーブルをセット ----- -if($ENV{'HTTP_ACCEPT_LANGUAGE'}=~/^ja/){ - my(%tmp)=( - 'Account \[(.+)\] is successfully created.*' - => 'アカウント "$1" を作成しました.', - 'Account \[(.+)\] creation failed\. same account exists.*' - => 'アカウント "$1" は既に存在します.', - 'Illeagal charactor found in UserID.*' - => 'IDの中に不正な文字があります.', - 'Illeagal charactor found in Password.*' - => 'Passwordの中に不正な文字があります.', - 'input UserID 4-24 bytes.' - => 'IDは半角4〜24文字で入力してください.', - 'input Password 4-24 bytes.' - => 'Passwordは半角4〜24文字で入力してください.', - 'Illeagal gender.*' - => '性別がおかしいです.', - 'Cant connect to login server.*' - => 'ログインサーバーに接続できません.', - 'login error.*' - => 'ログインサーバーへの管理者権限ログインに失敗しました', - "Can't execute ladmin.*" - => 'ladminの実行に失敗しました', - 'UserID "(.+)" is already used.*' - => 'ID "$1" は既に使用されています.', - 'You can use UserID \"(.+)\".*' - => 'ID "$1" は使用可能です.', - - 'account making' =>'アカウント作成', - '\>UserID' =>'>ＩＤ', - '\>Password' =>'>パスワード', - '\>Gender' =>'>性別', - '\>Male' =>'>男性', - '\>Female' =>'>女性', - '\"Make Account\"' =>'"アカウント作成"', - '\"Check UserID\"' =>'"IDのチェック"', - ); - map { $langconv{$_}=$tmp{$_}; } keys (%tmp); -} - -# ----- 追加 ----- -if( $cgi->param("addaccount") ){ - my($userid)= $cgi->param("userid"); - my($passwd)= $cgi->param("passwd"); - my($gender)= lc(substr($cgi->param("gender"),0,1)); - if(length($userid)<4 || length($userid)>24){ - HttpError("input UserID 4-24 bytes."); - } - if(length($passwd)<4 || length($passwd)>24){ - HttpError("input Password 4-24 bytes."); - } - if($userid=~/[^0-9A-Za-z\@\_\-\']/){ - HttpError("Illeagal charactor found in UserID."); - } - if($passwd=~/[\x00-\x1f\x80-\xff\']/){ - HttpError("Illeagal charactor found in Password."); - } - if($gender!~/[mf]/){ - HttpError("Gender error."); - } - open PIPE,"$perl $ladmin --add $userid $gender $passwd |" - or HttpError("Can't execute ladmin."); - my(@msg)=; - close PIPE; - HttpMsg(@msg); -} -# ----- 存在チェック ----- -elsif( $cgi->param("check") ){ - my($userid)= $cgi->param("userid"); - if(length($userid)<4 || length($userid)>24){ - HttpError("input UserID 4-24 bytes."); - } - if($userid=~/[^0-9A-Za-z\@\_\-\']/){ - HttpError("Illeagal charactor found in UserID."); - } - open PIPE,"$perl $ladmin --search --regex \\b$userid\\b |" - or HttpError("Can't execute ladmin."); - my(@msg)=; - close PIPE; - if(scalar(@msg)==6 && (split /[\s\0]+/,substr($msg[4],11,24))[0] eq $userid){ - HttpMsg("NG : UserID \"$userid\" is already used."); - }elsif(scalar(@msg)==5){ - HttpMsg("OK : You can use UserID \"$userid\""); - } - HttpError("ladmin error ?\n---output---\n",@msg); -} - -# ----- フォーム ----- -else{ - print LangConv( <<"EOM" ); -Content-type: text/html\n - - - Athena account making cgi - - -

Athena account making cgi

-
- - - - - - - - - - - - - - - - -
UserID
Password
Gender - Male - Female -
- - -
-
- - -EOM - exit; -} - -sub LangConv { - my(@lst)= @_; - my($a,$b,@out)=(); - foreach $a(@lst){ - foreach $b(keys %langconv){ - $a=~s/$b/$langconv{$b}/g; - my($rep1)=$1; - $a=~s/\$1/$rep1/g; - } - push @out,$a; - } - return @out; -} - -sub HttpMsg { - my($msg)=join("", LangConv(@_)); - $msg=~s/\n/
\n/g; - print LangConv("Content-type: text/html\n\n"),$msg; - exit; -} - -sub HttpError { - my($msg)=join("", LangConv(@_)); - $msg=~s/\n/
\n/g; - print LangConv("Content-type: text/html\n\n"),$msg; - exit; -} - -- cgit v1.2.3-60-g2f50