11 my $dbh = DBI->connect($remoteglotconf::dbistr, $remoteglotconf::dbiuser, $remoteglotconf::dbipass)
13 $dbh->{RaiseError} = 1;
16 my $password = Encode::decode_utf8($cgi->param('password'));
17 if (!defined($password) || $password ne $remoteglotconf::adminpass) {
18 print CGI->header(-type=>'text/plain; charset=utf-8', -status=>'403 Denied');
23 if ($cgi->param('move') eq 'null') {
24 $dbh->do('DELETE FROM game_extensions WHERE fen=? AND history=? AND player_w=? AND player_b=?',
26 Encode::decode_utf8($cgi->param('fen')),
27 Encode::decode_utf8($cgi->param('history')),
28 Encode::decode_utf8($cgi->param('player_w')),
29 Encode::decode_utf8($cgi->param('player_b')));
31 $dbh->do('INSERT INTO game_extensions ( fen, history, player_w, player_b, ts, next_move ) VALUES ( ?, ?, ?, ?, CURRENT_TIMESTAMP, ? )',
33 Encode::decode_utf8($cgi->param('fen')),
34 Encode::decode_utf8($cgi->param('history')),
35 Encode::decode_utf8($cgi->param('player_w')),
36 Encode::decode_utf8($cgi->param('player_b')),
37 Encode::decode_utf8($cgi->param('move')));
39 system("sudo", "/usr/bin/touch", $remoteglotconf::target);
41 print CGI->header(-type=>'text/plain; charset=utf-8');