✨ 追加: [MS] マモノスクランブル用ディレクトリ

- 大事なものが抜けていました

ms/config.cgi.default

@@ -0,0 +1,64 @@
+#################### 基本設定 ####################
+use strict;
+use utf8;
+
+package set;
+
+## ●管理ユーザーID
+ # 指定したIDは全シートの閲覧と編集ができます。
+  our $masterid = '';
+
+## ●登録キー
+ # 新規登録をする際に必要な文字列。空欄なら誰でも登録可能。荒らし対策。
+  our $registerkey = '';
+
+## ●タイトル
+ # ページ左上のタイトル
+  our $title = 'ゆとシートⅡ for MS';
+
+## ●画像関係
+ # キャラクター画像のファイルサイズ上限(単位byte)
+  our $image_maxsize = 1024 * 1024 * 1;
+
+## ●削除関係
+ # データを削除するとき、バックアップも削除 する=1 しない=0
+  our $del_back = 0;
+
+## ●グループ設定
+ # ["ID", "ソート順(空欄で非表示)", "分類名", "分類の説明文"],
+ # 選択時はここで書いた順番、キャラ一覧(グループ別)ではソート順で数字が小さい方から表示されます
+ # 増減OK
+  our @groups = (
+    ["pc",  "01", "ＰＣ", "プレイヤーキャラクター"],
+    ["npc", "99", "ＮＰＣ", "ノンプレイヤーキャラクター"],
+
+   # ["A", "01", "キャンペーン「A」", "GM：○○"],
+   # ["B", "02", "キャンペーン「B」", "GM：××"],
+   # ["", "", "", ""],
+  );
+
+ # デフォルトのグループID
+  our $group_default = 'pc';
+
+ # トップページのキャラクター最大表示数（1グループあたり／無制限=0）
+  our $list_maxline = 0; 
+
+ # グループ個別表示時や検索結果表示時の1ページあたりの最大表示数（0で全部表示）
+  our $pagemax = 0;
+
+## ●保存時の送信モード
+ # Base64にして送信するかどうか
+ #（ロリポップなどでファイアウォールに引っ掛かる場合、「1」（=ON）にする）
+  our $base64mode = 0;
+
+## ●ログイン関係ファイル
+ # ユーザー情報・ログイン状態はデフォルトでは別システム（別ディレクトリ）でも共通です。
+ # ユーザー情報・ログイン状態を別にしたい場合、以下の設定にしてください（コメントアウト#を解除ください）。
+ # our $userfile    = './data/users.cgi';       # ユーザー一覧ファイル
+ # our $login_users = './data/login_users.cgi'; # ログイン情報保存ファイル
+ # our $tokenfile   = './data/token.cgi';       # 一時トークン保存ファイル
+
+
+## 上記以外の設定は lib/config-default.pl を参照してください。 ##
+
+1;

ms/index.cgi

@@ -0,0 +1,27 @@
+#!/usr/bin/perl
+####################################
+##        ゆとシートⅡ for MS     ##
+##          by ゆとらいず工房     ##
+##    https://yutorize.2-d.jp     ##
+####################################
+use strict;
+#use warnings;
+use utf8;
+use open ":utf8";
+binmode STDOUT, ':utf8';
+use CGI::Carp qw(fatalsToBrowser);
+use CGI qw/:all/;
+use Fcntl;
+
+### 設定読込 #########################################################################################
+our $core_dir = '../_core';
+use lib '../_core/module';
+
+require $core_dir.'/lib/ms/config-default.pl';
+require './config.cgi';
+require $core_dir.'/lib/subroutine.pl';
+require $core_dir.'/lib/ms/subroutine-sub.pl';
+
+require $core_dir.'/lib/junction.pl';
+
+exit;

ms/oauth.cgi

@@ -0,0 +1,43 @@
+#!/usr/bin/perl
+
+use strict;
+use utf8;
+use CGI::Carp qw(fatalsToBrowser);
+use CGI qw/:all/;
+
+our $core_dir = '../_core';
+use lib '../_core/module';
+
+require $core_dir.'/lib/ms/config-default.pl';
+require './config.cgi';
+require $core_dir.'/lib/subroutine.pl';
+require $core_dir.'/lib/oauth.pl';
+
+print "Content-type: text/html\n";
+
+my $token = &getAccessToken(param("code"));
+
+if ($token) {
+  my @userinfo = &getUserInfo($token);
+
+  if ( ($set::oauth_service eq 'Discord') && (@set::oauth_discord_login_servers) ) {
+    if ( &isDiscordServerIncluded($token, @set::oauth_discord_login_servers) ) {
+      # 指定したサーバに所属している
+    } else {
+      &error("サーバに所属していないため利用できません");
+      exit;
+    }
+  }
+
+  if (! &isIdExist($userinfo[0]) ) {
+    &registerUser(@userinfo);
+  }
+
+  my $token = &generateToken();
+  print &registerToken($userinfo[0], $token);
+  print "Location: ./\n\n";
+} else {
+  &error("ログインに失敗しました。やり直してみてください");
+}
+
+