[アップデートが必要です。]
アップデートするには以下のボタンを押してください。
[アップデート済みです。]
); } print qq(TOP ≫
#!/usr/local/bin/perl # ↑のパスは設置するサーバーの環境に合わせて変更してください。 # ◆このCGIファイルについて # このCGIファイルは「まろやか投稿小説ぐれーと」をVer2.30にアップデートする際に必要なファイルです。 # Ver2.30から感想数などの追加項目に伴い、Ver2.20a以前のデータ引継ぎに限りこのファイルの実行が必須となります。 # このファイルは拡張子を.cgiにリネームして、mtsg.cgi等があるディレクトリと同じ場所にアップロードし、 # パーミッションを755(もしくはサーバー環境に合わせて)にし、アクセスしてください。 #### ファイルパス #### $config = './config.ini'; # 設定ファイル $configdat = './config.dat'; # 設定データファイル #〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜 ####■ 以下スクリプト ■#### if (!(-e $config)) { die "Error: $configオープンエラー"; } else { require $config; } if (!(-e $jcode)) { die "Error: $jcodeオープンエラー"; } else { require $jcode; } if (!(-e $cgilib)) { die "Error: $cgilibオープンエラー"; } else { require $cgilib; } if (!(-e $system)) { die "Error: $systemオープンエラー"; } else { require $system; } &config_read; # 設定データ読み込み %FORM = &decode; # デコード if ($FORM{'mode'} eq 'update') { &update; } else { ⊤ } exit; #〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜 # ▼ トップ #〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜 sub top { # 全小説ファイル読み込み my @allnovel = &file_read("$allnovel"); &header("Ver2.30アップデート"); print qq(
[アップデートが必要です。]
アップデートするには以下のボタンを押してください。
[アップデート済みです。]
); } print qq(TOP ≫
正常にアップデートが完了しました。
TOP ≫