-
Notifications
You must be signed in to change notification settings - Fork 14
/
junction.pl
56 lines (53 loc) · 2.71 KB
/
junction.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
################## 各処理へ移動 ##################
use strict;
#use warnings;
use utf8;
our $ver = "1.11.001";
my $mode = param('mode');
if($mode eq 'register'){
if(param('id')) { require $set::lib_register; } #登録処理
else { require $set::lib_form; } #新規登録フォーム
}
elsif($mode eq 'option'){
if(param('name')) { require $set::lib_register; } #オプション変更処理
else { require $set::lib_form; } #オプションフォーム
}
elsif($mode eq 'passchange'){
require $set::lib_register; #パスワード変更処理
}
elsif($mode eq 'login') {
if(param('id')) { &log_in(param('id'),param('password')); } #ログイン
else { require $set::lib_form; } #ログインフォーム
}
elsif($mode eq 'reminder') {
if(param('id')) { require $set::lib_reminder; } #メール送信
else { require $set::lib_form; } #リマインダフォーム
}
elsif($mode eq 'reset') {
if(param('password')) { require $set::lib_reminder; } #パスリセット処理
else { require $set::lib_form; } #パスリセットフォーム
}
elsif($mode eq 'making') {
if(param('make')) { require $set::lib_making; } #キャラクター作成
else { require $set::lib_list_make; } #キャラクター作成フォーム
}
elsif($mode eq 'logout') { &log_out; } #ログアウト
elsif($mode eq 'option') { require $set::lib_form; } #オプション
elsif($mode eq 'blanksheet') { require $set::lib_edit; } #ブランクシート
elsif($mode eq 'edit') { require $set::lib_edit; } #編集
elsif($mode eq 'copy') { require $set::lib_edit; } #コピー
elsif($mode eq 'convert') { require $set::lib_edit; } #コンバート編集
elsif($mode eq 'convertform'){ require $set::lib_form; } #コンバートフォーム
elsif($mode eq 'make') { require $set::lib_save; } #新規作成
elsif($mode eq 'save') { require $set::lib_save; } #更新
elsif($mode eq 'delete') { require $set::lib_delete; } #削除
elsif($mode eq 'img-delete') { require $set::lib_delete; } #画像削除
elsif($mode eq 'palette') { require $set::lib_palette; }#チャットパレット表示
elsif($mode eq 'json') { require $set::lib_json; } #外部アプリ連携
elsif(param('id')) { require $set::lib_view; } #シート表示
elsif(param('url')) { require $set::lib_view; } #シート表示(コンバート)
else {
if (param('type') eq 'm' && $set::lib_list_mons){ require $set::lib_list_mons; }
elsif(param('type') eq 'i' && $set::lib_list_item){ require $set::lib_list_item; }
else { require $set::lib_list_char; }
} #一覧表示