-
Notifications
You must be signed in to change notification settings - Fork 0
/
popopopoon.cgi
60 lines (47 loc) · 1.44 KB
/
popopopoon.cgi
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
#!/usr/bin/perl
#====================================================================================================
#
# リセットします
#
#====================================================================================================
use strict;
use warnings;
use lib './lib';
use utf8;
no warnings 'once';
#デバッグ用
use CGI::Carp qw(fatalsToBrowser);
#use Data::Dumper;
# CGIの実行結果を終了コードとする
exit(main());
sub main
{
# モジュールロード
require('./module/mysql.pl');
require('./module/error.pl');
my $SQL = new MySQL;
my $ERROR = new ERROR;
$SQL->sqlSet('setting.ini');
# SQLログイン
if ( !$SQL->sqlLogin() ) {
return $ERROR->DispError($SQL, 300);
}
# 実行したいコマンド類
my @prepare = (
"DELETE FROM `log` WHERE 1",
"UPDATE `plugica`.`plugica` SET `name` = '', `balance` = '500' WHERE `plugica`.`IDm` = '01270063568F6084'",
"UPDATE `plugica`.`plugica` SET `name` = '', `ID` = '' WHERE `plugica`.`IDm` = '010102121A103418'",
);
print "Content-type: text/html; charset=UTF-8\n\n";
print "<h1>ぽぽぽぽーん</h1>\n";
print "<h2>実行したコマンド</h2>\n";
print "<pre>\n";
foreach my $sql ( @prepare ) {
$SQL->{'DBH'}->selectall_arrayref($sql);
print $sql."\n";
}
print "</pre>\n";
print "<p>とりあえず完了です</p>\n";
print '<img src="/img/po/2.jpg">';
$SQL->end();
}