-
Notifications
You must be signed in to change notification settings - Fork 0
/
UploadParent.pl
119 lines (102 loc) · 5.91 KB
/
UploadParent.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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
#===================================================================
# データベースへのアップロード
#-------------------------------------------------------------------
# (C) 2019 @white_mns
#===================================================================
# モジュール呼び出し ---------------#
require "./source/Upload.pm";
require "./source/lib/time.pm";
# パッケージの使用宣言 ---------------#
use strict;
use warnings;
require LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;
# 変数の初期化 ---------------#
use FindBin qw($Bin);
use lib "$Bin";
use ConstData_Upload; #定数呼び出し
my $timeChecker = TimeChecker->new();
# 実行部 ---------------------------#
$timeChecker->CheckTime("start \t");
&Main;
$timeChecker->CheckTime("end \t");
$timeChecker->OutputTime();
$timeChecker = undef;
# 宣言部 ---------------------------#
sub Main {
my $result_no = $ARGV[0];
my $generate_no = $ARGV[1];
my $upload = Upload->new();
if (!defined($result_no) || !defined($generate_no) || $result_no !~ /^[0-9]+$/ || $generate_no !~ /^[0-9]+$/) {
print "Error:Unusual ResultNo or GenerateNo\n";
return;
}
$upload->DBConnect();
$upload->DeleteSameResult("uploaded_checks", $result_no, $generate_no);
if (ConstData::EXE_DATA) {
&UploadData($upload, ConstData::EXE_DATA_PROPER_NAME, "proper_names", "./output/data/proper_name.csv");
&UploadData($upload, ConstData::EXE_DATA_SKILL_DATA, "skill_data", "./output/data/skill_data.csv");
&UploadData($upload, ConstData::EXE_DATA_LEARNABLE_SKILL, "learnable_skills", "./output/data/learnable_skill.csv");
}
if (ConstData::EXE_CHARA) {
&UploadResult($upload, $result_no, $generate_no, ConstData::EXE_CHARA_NAME, "names", "./output/chara/name_");
&UploadResult($upload, $result_no, $generate_no, ConstData::EXE_CHARA_PROFILE, "profiles", "./output/chara/profile_");
&UploadResult($upload, $result_no, $generate_no, ConstData::EXE_CHARA_STATUS, "statuses", "./output/chara/status_");
&UploadResult($upload, $result_no, $generate_no, ConstData::EXE_CHARA_ITEM, "items", "./output/chara/item_");
&UploadResult($upload, $result_no, $generate_no, ConstData::EXE_CHARA_SKILL, "skills", "./output/chara/skill_");
&UploadResult($upload, $result_no, $generate_no, ConstData::EXE_CHARA_EVENT, "events", "./output/chara/event_");
&UploadResult($upload, $result_no, $generate_no, ConstData::EXE_CHARA_EVENT_PROCEED, "event_proceeds", "./output/chara/event_proceed_");
&UploadResult($upload, $result_no, $generate_no, ConstData::EXE_CHARA_SEARCH, "searches", "./output/chara/search_");
}
if (ConstData::EXE_BATTLE) {
&UploadResult($upload, $result_no, $generate_no, ConstData::EXE_BATTLE_PARTY, "parties", "./output/battle/party_");
&UploadResult($upload, $result_no, $generate_no, ConstData::EXE_BATTLE_PARTY_INFO, "party_infos", "./output/battle/party_info_");
&UploadResult($upload, $result_no, $generate_no, ConstData::EXE_BATTLE_CURRENT_PLACE, "current_places", "./output/battle/current_place_");
&UploadResult($upload, $result_no, $generate_no, ConstData::EXE_BATTLE_ITEM_GET, "item_gets", "./output/battle/item_get_");
&UploadResult($upload, $result_no, $generate_no, ConstData::EXE_BATTLE_ENEMY_PARTY_INFO, "enemy_party_infos", "./output/battle/enemy_party_info_");
&UploadResult($upload, $result_no, $generate_no, ConstData::EXE_BATTLE_ENEMY, "enemies", "./output/battle/enemy_");
&UploadResult($upload, $result_no, $generate_no, ConstData::EXE_BATTLE_RESULT, "battle_results", "./output/battle/battle_result_");
&UploadResult($upload, $result_no, $generate_no, ConstData::EXE_BATTLE_SMITH, "smiths", "./output/battle/smith_");
}
if (ConstData::EXE_NEW) {
&UploadResult($upload, $result_no, $generate_no, ConstData::EXE_NEW_EVENT, "new_events", "./output/new/event_");
&UploadResult($upload, $result_no, $generate_no, ConstData::EXE_NEW_PLACE, "new_places", "./output/new/place_");
&UploadResult($upload, $result_no, $generate_no, ConstData::EXE_NEW_ENEMY, "new_enemies", "./output/new/enemy_");
}
&UploadResult($upload, $result_no, $generate_no, 1, "uploaded_checks", "./output/etc/uploaded_check_");
print "result_no:$result_no,generate_no:$generate_no\n";
return;
}
#-----------------------------------#
# 結果番号に依らないデータをアップロード
#-----------------------------------#
# 引数|アップロードオブジェクト
# アップロード定義
# テーブル名
# ファイル名
##-----------------------------------#
sub UploadData {
my ($upload, $is_upload, $table_name, $file_name) = @_;
if ($is_upload) {
$upload->DeleteAll($table_name);
$upload->Upload($file_name, $table_name);
}
}
#-----------------------------------#
# 更新結果データをアップロード
#-----------------------------------#
# 引数|アップロードオブジェクト
# 更新番号
# 再更新番号
# アップロード定義
# テーブル名
# ファイル名
##-----------------------------------#
sub UploadResult {
my ($upload, $result_no, $generate_no, $is_upload, $table_name, $file_name) = @_;
if($is_upload) {
$upload->DeleteSameResult($table_name, $result_no, $generate_no);
$upload->Upload($file_name . $result_no . "_" . $generate_no . ".csv", $table_name);
}
}