#!/usr/bin/perl

use strict;
use warnings;
use lib qw(lib);
use CGI qw(Accept);
use JSON;
use Scalar::Util qw(blessed);
use RDF::Trine qw(statement iri literal blank);
use RDF::Trine::Error qw(:try);
use RDF::Trine::Namespace qw(rdf dc xsd);

use constant {
	PASS	=> 'pass',
	FAIL	=> 'fail',
};

use constant {
	TEST_SD_REQ_RETURNS_RDF			=> 'returns-rdf',
	TEST_SD_REQ_ENDPOINT_TRIPLE		=> 'has-endpoint-triple',
	TEST_SD_REQ_CONFORMS_TO_SCHEMA	=> 'conforms-to-schema',
	###
	TEST_SD_OPT_TYPED_SERVICE		=> 'typed-service',
	TEST_SD_OPT_TYPED_DATASET		=> 'typed-dataset',
	TEST_SD_OPT_TYPED_NAMEDGRAPH	=> 'typed-named-graph',
	TEST_SD_OPT_TYPED_GRAPH			=> 'typed-graph',
	TEST_SD_OPT_RECOGNIZED_LANG		=> 'recognized-language',
	TEST_SD_OPT_DATASET_WITH_GRAPH	=> 'dataset-with-graph',
};

use constant REQUIRED_TESTS	=> (TEST_SD_REQ_RETURNS_RDF(), TEST_SD_REQ_ENDPOINT_TRIPLE(), TEST_SD_REQ_CONFORMS_TO_SCHEMA());
use constant OPTIONAL_TESTS	=> (TEST_SD_OPT_TYPED_SERVICE(), TEST_SD_OPT_TYPED_DATASET(), TEST_SD_OPT_TYPED_NAMEDGRAPH(), TEST_SD_OPT_TYPED_GRAPH(), TEST_SD_OPT_DATASET_WITH_GRAPH(), TEST_SD_OPT_RECOGNIZED_LANG());

use constant DESCRIPTION => {
	TEST_SD_REQ_RETURNS_RDF()			=> 'GET on endpoint returns RDF',
	TEST_SD_REQ_ENDPOINT_TRIPLE()		=> 'Service description contains a matching sd:endpoint triple',
	TEST_SD_REQ_CONFORMS_TO_SCHEMA()	=> 'Service description conforms to schema',
	###
	TEST_SD_OPT_TYPED_SERVICE()			=> 'All potential service are typed as sd:Service',
	TEST_SD_OPT_TYPED_DATASET()			=> 'All potential datasets are typed as sd:Dataset',
	TEST_SD_OPT_TYPED_NAMEDGRAPH()		=> 'All potential named graphs are typed as sd:NamedGraph',
	TEST_SD_OPT_TYPED_GRAPH()			=> 'All potential graphs are typed as sd:Graph',
	TEST_SD_OPT_DATASET_WITH_GRAPH()	=> 'All datasets have either a default or a named graph',
	TEST_SD_OPT_RECOGNIZED_LANG()		=> 'Recognized sd:supportedLanguage IRI',
};

our $VALIDATOR_IRI	= 'http://www.w3.org/2009/sparql/sdvalidator#validator';
my $earl			= RDF::Trine::Namespace->new( 'http://www.w3.org/ns/earl#' );
my $sd				= RDF::Trine::Namespace->new( 'http://www.w3.org/ns/sparql-service-description#' );
my $sdtest			= RDF::Trine::Namespace->new( 'http://www.w3.org/2009/sparql/docs/tests/data-sparql11/service-description/manifest#' );
my $q				= new CGI;

run($q);

sub run {
	my $q	= shift;
	my $url		= $q->param('url');
	my $opt		= $q->param('bp') ? 1 : 0;
	
	if ($url) {
		my $res	= validate($url, $opt);
		show_results($url, $res, $opt, $q);
	} else {
		print $q->header( -type => 'text/html', -charset => 'utf-8');
		print_html_header();
		print_form('', '');
		print_html_footer();
	}
}

sub passed {
	my $res		= shift;
	my $test	= shift;
	my $type	= test_type($test);
	return ($res->{$type}{$test}{result} eq PASS);
}

sub test_messages {
	my $res		= shift;
	my $test	= shift;
	my $type	= test_type($test);
	my $msg		= $res->{$type}{$test}{message};
	if (ref($msg)) {
		return @$msg;
	} else {
		return ($msg);
	}
}

sub test_type {
	my $test	= shift;
	foreach my $t (REQUIRED_TESTS) {
		return 'required' if ($test eq $t);
	}
	return 'optional';
}

sub add_result {
	my $res		= shift;
	my $test	= shift;
	my $status	= shift;
	my $mesg	= shift;
	my $type	= test_type($test);
	my $desc	= DESCRIPTION->{ $test };
	$res->{$type}{$test}	= { result => $status, description => $desc };
	if ($mesg) {
		$res->{$type}{$test}{ message }	= $mesg;
	}
}

sub update_result {
	my $res		= shift;
	my $test	= shift;
	my $status	= shift;
	my $mesg	= shift;
	my $type	= test_type($test);
	my $desc	= DESCRIPTION->{ $test };
	if (exists($res->{$test})) {
		my $result	= $res->{$type}{$test}{result};
		if ($result eq PASS and $status eq FAIL) {
			$res->{$type}{$test}{result}	= FAIL;
		}
		if ($mesg) {
			push(@{ $res->{$type}{$test}{ message } }, $mesg);
		}
	} else {
		$res->{$type}{$test}	= { result => $status, description => $desc };
		if ($mesg) {
			$res->{$type}{$test}{ message }	= [ $mesg ];
		}
	}
}

sub validate {
	my $url		= shift;
	my $opt		= shift;
	my $model	= RDF::Trine::Model->new();
	my $res		= {};
	my $pass	= 0;
	
	try {
		RDF::Trine::Parser->parse_url_into_model( $url, $model );
		add_result( $res, TEST_SD_REQ_RETURNS_RDF, PASS );
		$pass	= 1;
	} catch RDF::Trine::Error::ParserError with {
		my $e	= shift;
		add_result( $res, TEST_SD_REQ_RETURNS_RDF, FAIL, "Error: " . $e->text );
	};
	
	if ($pass) {
		{
			my $iri	= iri($url);
			my $iter	= $model->get_statements( undef, $sd->endpoint, $iri );
			my @st		= $iter->get_all();
			if (scalar(@st) ) {
				add_result( $res, TEST_SD_REQ_ENDPOINT_TRIPLE, PASS );
			} else {
				add_result( $res, TEST_SD_REQ_ENDPOINT_TRIPLE, FAIL );
			}
		}
		
		{
			my @ng	= $model->subjects( $rdf->type, $sd->NamedGraph );
			my @bad;
			foreach my $n (@ng) {
				my @names	= $model->objects( $n, $sd->name );
				if (scalar(@names) == 0) {
					push(@bad, $n);
				}
			}
			if (scalar(@bad)) {
				my @strings	= map { $_->as_ntriples } @bad;
				my $msg	= sprintf("NamedGraphs do not have a sd:name value: %s", join(', ', @strings));
				update_result( $res, TEST_SD_REQ_CONFORMS_TO_SCHEMA, FAIL, $msg );
			} else {
				update_result( $res, TEST_SD_REQ_CONFORMS_TO_SCHEMA, PASS );
			}
		}
	}
	
	if ($opt) {
		optional_tests($res, $model);
	}
	
	return $res;
}

sub optional_tests {
	my $res		= shift;
	my $model	= shift;
	
	# TEST_SD_OPT_TYPED_SERVICE
	test_types(
		$res,
		$model,
		TEST_SD_OPT_TYPED_SERVICE,
		$sd->Service,
		"Services are not explicitly typed as sd:Service",
		domains	=> [$sd->endpoint, $sd->feature, $sd->defaultEntailmentRegime, $sd->defaultSupportedEntailmentProfile, $sd->extensionFunction, $sd->extensionAggregate, $sd->languageExtension, $sd->supportedLanguage, $sd->propertyFeature, $sd->defaultDataset, $sd->availableGraphs, $sd->resultFormat, $sd->inputFormat],
	);

	# TEST_SD_OPT_TYPED_DATASET
	my @datasets	= test_types(
		$res,
		$model,
		TEST_SD_OPT_TYPED_DATASET,
		$sd->Dataset,
		"Datasets are not explicitly typed as sd:Dataset",
		domains	=> [$sd->defaultGraph],
		ranges	=> [$sd->defaultDataset],
	);

	# TEST_SD_OPT_TYPED_NAMEDGRAPH
	test_types(
		$res,
		$model,
		TEST_SD_OPT_TYPED_NAMEDGRAPH,
		$sd->NamedGraph,
		"NamedGraphs are not explicitly typed as sd:NamedGraph",
		domains	=> [$sd->entailmentRegime, $sd->supportedEntailmentProfile, $sd->name, $sd->graph],
		ranges	=> [$sd->namedGraph],
	);

	# TEST_SD_OPT_TYPED_GRAPH
	test_types(
		$res,
		$model,
		TEST_SD_OPT_TYPED_GRAPH,
		$sd->Graph,
		"Graphs are not explicitly typed as sd:Graph",
		ranges	=> [$sd->defaultGraph, $sd->graph],
	);
	
	# TEST_SD_OPT_RECOGNIZED_LANG
	{
		my @langs	= $model->objects( undef, $sd->supportedLanguage );
		my $recognized	= 0;
		foreach my $l (@langs) {
			next unless ($l->isa('RDF::Trine::Node::Resource'));
			my $iri	= $l->uri_value;
			$recognized++ if ($iri =~ m[^http://www[.]w3[.]org/ns/sparql-service-description#SPARQL(10Query|11Query|11Update)$]);
		}
		if ($recognized) {
			add_result( $res, TEST_SD_OPT_RECOGNIZED_LANG, PASS );
		} else {
			my $msg	= "No recognized SPARQL 1.0 or 1.1 sd:Language instances are used with the sd:supportedLanguage property";
			add_result( $res, TEST_SD_OPT_RECOGNIZED_LANG, FAIL, $msg );
		}
	}
	
	# TEST_SD_OPT_DATASET_WITH_GRAPH
	{
		my @bad;
		foreach my $ds (@datasets) {
			my $graphs	= $model->count_statements( $ds, $sd->defaultGraph );
			my $named	= $model->count_statements( $ds, $sd->namedGraph );
			my $total	= $graphs + $named;
			if ($total == 0) {
				push(@bad, $ds);
			}
		}
		
		if (scalar(@bad)) {
			my @strings	= map { $_->as_ntriples } @bad;
			my $msg	= sprintf("Datasets do not have a default graph or any named graphs: %s", join(', ', @strings));
			add_result( $res, TEST_SD_OPT_DATASET_WITH_GRAPH, FAIL, $msg );
		} else {
			add_result( $res, TEST_SD_OPT_DATASET_WITH_GRAPH, PASS );
		}
	}
}

sub test_types {
	my $res		= shift;
	my $model	= shift;
	my $test	= shift;
	my $type	= shift;
	my $error	= shift;
	my %props	= @_;
	
	my @candidates;
	if (my $props = $props{ domains }) {
		push(@candidates, map { $model->subjects($_) } @$props);
	}
	if (my $props = $props{ ranges }) {
		push(@candidates, map { $model->objects(undef, $_) } @$props);
	}
	
	my @bad;
	my %seen;
	my @return_candidates;
	foreach my $s (@candidates) {
		next if ($seen{ $s->as_string }++);
		push(@return_candidates, $s);
		my $count	= $model->count_statements( $s, $rdf->type, $type );
		if ($count == 0) {
			push(@bad, $s);
		}
	}
	
	if (scalar(@bad)) {
		my @strings	= map { $_->as_ntriples } @bad;
		my $msg	= sprintf("$error: %s", join(', ', @strings));
		add_result( $res, $test, FAIL, $msg );
	} else {
		add_result( $res, $test, PASS );
	}
	
	return @return_candidates;
}

sub show_results {
	my $url	= shift;
	my $res	= shift;
	my $opt	= shift;
	my $q	= shift;
	my @accept;
	push(@accept, { type => 'text/html', value => Accept('text/html') } );
	push(@accept, { type => 'application/json', value => Accept('application/json') } );
	push(@accept, { type => 'application/rdf+xml', value => Accept('application/rdf+xml') } );
	push(@accept, { type => 'text/turtle', value => Accept('text/turtle') } );
	push(@accept, { type => 'text/plain', value => Accept('text/plain') } );
	@accept	= sort { $b->{value} <=> $a->{value} || $b->{type} eq 'html' } @accept;
	my $a	= $accept[0];
	my $tested	= ($q->param('software')) ? iri($q->param('software')) : iri($url);
	if ($a->{type} eq 'text/html') {
		print $q->header( -type => 'text/html', -charset => 'utf-8');
		html_results($url, $tested, $res, $opt);
	} elsif ($a->{type} eq 'application/json') {
		my $data	= { endpoint => $url, results => $res };
		if (length($tested)) {
			$data->{software}	= $tested;
		}
		print $q->header( -type => $a->{type}, -charset => 'utf-8');
		print JSON->new->utf8->pretty->encode($data);
	} elsif ($a->{type} =~ m#^((application/rdf[+]xml)|(text/(turtle|plain)))$#) {
		print $q->header( -type => $a->{type}, -charset => 'utf-8');
		my $map		= RDF::Trine::NamespaceMap->new( { rdf => $rdf, earl => $earl, sdtest => $sdtest, dc => $dc } );
		my $type;
		if ($a->{type} =~ /turtle/) {
			$type	= 'turtle';
		} elsif ($a->{type} =~ /xml/) {
			$type	= 'rdfxml';
		} else {
			$type	= 'ntriples';
		}
		my $s		= RDF::Trine::Serializer->new( $type, namespaces => $map );
		rdf_results($url, $tested, $res, $s, $opt);
	} else {
		print $q->header( -type => 'text/plain', -charset => 'utf-8');
		print "should emit $a->{type}";
	}
}

sub results_model {
	my $url		= shift;
	my $tested	= shift;
	my $res		= shift;
	my $s		= shift;
	my $opt		= shift;
	my $model	= RDF::Trine::Model->new();
	my ($sec, $min, $hour, $day, $mon, $year)	= gmtime();
	$mon++;
	$year	+= 1900;
	my $time	= sprintf('%04d-%02d-%02dT%02d:%02d:%02dZ', $year, $mon, $day, $hour, $min, $sec);
	my $by		= iri($VALIDATOR_IRI);
	my @tests	= (REQUIRED_TESTS);
	if ($opt) {
		push(@tests, OPTIONAL_TESTS);
	}
	
	foreach my $test (@tests) {
		my $type	= test_type($test);
		my $desc	= DESCRIPTION->{ $test };
		no warnings 'uninitialized';
		my $status	= ($res->{$type}{$test}{result} eq PASS) ? $earl->pass : $earl->fail;
		
		my $a		= blank();
		my $r		= blank();
		$model->add_statement( statement($a, $rdf->type, $earl->Assertion) );
		$model->add_statement( statement($a, $earl->assertedBy, $by) );
		$model->add_statement( statement($a, $earl->subject, $tested) );
		$model->add_statement( statement($a, $earl->result, $r) );
		$model->add_statement( statement($a, $earl->test, $sdtest->$test()) );
		$model->add_statement( statement($r, $rdf->type, $earl->TestResult) );
		$model->add_statement( statement($r, $earl->outcome, $status) );
		$model->add_statement( statement($r, $dc->date, literal($time, undef, $xsd->dateTime)) );
		my @msg		= test_messages($res, $test);
		foreach my $m (@msg) {
			next unless (defined($m));
			my $st	= statement($r, $earl->info, literal($m));
			$model->add_statement( $st );
		}
	}
	return $model;
}

sub rdf_results {
	my $url		= shift;
	my $tested	= shift;
	my $res		= shift;
	my $s		= shift;
	my $opt		= shift;
	my $model	= results_model($url, $tested, $res, $s, $opt);
	$s->serialize_model_to_file( \*STDOUT, $model );
}

sub html_results {
	my $url	= shift;
	my $tested	= shift;
	my $res	= shift;
	my $opt		= shift;
	print_html_header();
	print_form($url, $tested);
	
	my $req_total	= 0;
	my $req_passed	= 0;
	my $req_failed	= 0;
	foreach my $test (REQUIRED_TESTS) {
		$req_total++;
		if (passed($res, $test)) {
			$req_passed++;
		} else {
			$req_failed++;
		}
	}
	
	my $opt_total	= 0;
	my $opt_passed	= 0;
	my $opt_failed	= 0;
	if ($opt) {
		foreach my $test (OPTIONAL_TESTS) {
			$opt_total++;
			if (passed($res, $test)) {
				$opt_passed++;
			} else {
				$opt_failed++;
			}
		}
	}
	
	my $total	= $req_total + $opt_total;
	my $passed	= $req_passed + $opt_passed;
	my $failed	= $req_failed + $opt_failed;
	
	my $req_class;
	if ($req_total == $req_passed) {
		$req_class	= 'pass';
	} elsif ($req_total == $req_failed) {
		$req_class	= 'fail';
	} else {
		$req_class	= 'fail';
	}
	
	my $opt_class;
	if ($opt) {
		if ($opt_total == $opt_passed) {
			$opt_class	= 'pass';
		} elsif ($opt_total == $opt_failed) {
			$opt_class	= 'fail';
		} else {
			$opt_class	= 'fail';
		}
	}
	
	if ($total == $passed) {
		print qq[<h1 id="summary" class="pass">All tests passed</h1>\n];
	} elsif ($req_total == $req_failed) {
		print qq[<h1 id="summary" class="fail">All required tests failed</h1>\n];
	} elsif ($req_total == $req_passed) {
		print qq[<h1 id="summary" class="warn">All required tests passed, but some tests failed</h1>\n];
	} else {
		print qq[<h1 id="summary" class="warn">Some tests failed</h1>\n];
	}
	
	print <<"END";
	<table>
		<tr>
			<th>Test</th>
			<th>Passed tests</th>
		</tr>
		<tr>
			<td><a href="#required">Required Tests</a></td>
			<td class="${req_class}">${req_passed}/${req_total}</td>
		</tr>
END
	if ($opt) {
		print <<"END";
		<tr>
			<td><a href="#optional">Best Practice Tests</a></td>
			<td class="${opt_class}">${opt_passed}/${opt_total}</td>
		</tr>
	</table>
END
	}
	
	print <<"END";
	<h2 id="required">Required Tests</h2>
	<ul>
END
	foreach my $test (REQUIRED_TESTS) {
		my $type	= test_type($test);
		my $desc	= DESCRIPTION->{ $test };
		no warnings 'uninitialized';
		my $status	= ($res->{$type}{$test}{result} eq PASS) ? qq[<abbr title="pass">✔ PASS</abbr>] : qq[<abbr title="fail">✘ FAIL</abbr>];
		my @msg		= test_messages($res, $test);
		my $msg		= scalar(@msg) ? join("<br/>", @msg) : '';
		my $class	= ($res->{$type}{$test}{result} eq PASS) ? 'pass' : 'fail';
		print <<"END";
		<li>
			<span class="${class}">${status}</span> ${desc}
END
		if (length($msg)) {
			print qq[\t\t\t<span class="details">$msg</span>\n];
		}
		
		print <<"END";
		</li>
END
	}
	print qq[\t</ul>\n];



	if ($opt) {
		print <<"END";
	<h2 id="required">Best Practice Tests</h2>
	<ul>
END
		foreach my $test (OPTIONAL_TESTS) {
			my $type	= test_type($test);
			my $desc	= DESCRIPTION->{ $test };
			no warnings 'uninitialized';
			my $status	= ($res->{$type}{$test}{result} eq PASS) ? qq[<abbr title="pass">✔ PASS</abbr>] : qq[<abbr title="fail">✘ FAIL</abbr>];
			my @msg		= test_messages($res, $test);
			my $msg		= scalar(@msg) ? join("<br/>", @msg) : '';
			my $class	= ($res->{$type}{$test}{result} eq PASS) ? 'pass' : 'fail';
			print <<"END";
		<li>
			<span class="${class}">${status}</span> ${desc}
END
			if (length($msg)) {
				print qq[\t\t\t<span class="details">$msg</span>\n];
			}
		
			print <<"END";
		</li>
END
		}
		print qq[\t</ul>\n];
	}
	
	print_html_footer();
}

sub print_form {
	my $url			= shift;
	my $software	= shift;
	if (blessed($software)) {
		$software	= $software->uri_value;
	}
	print <<"END";
	<form action="" method="get">
		SPARQL Endpoint: <input name="url" id="url" type="text" size="40" value="$url" /><br/>
		Implementation software IRI: <input name="software" id="software" type="text" size="40" value="$software" /><br/>
		<input name="bp" id="bp" type="checkbox" value="1" /> Run best-practices tests<br/>
		<input name="submit" id="submit" type="submit" value="Submit" />
	</form>
END
}

sub print_html_header {
	print <<"END";
<!DOCTYPE html>
<html lang="en">
<head>
	<meta charset="utf-8" />
	<title>SPARQL Service Description Report</title>
	<style type="text/css" title="text/css">
<!--
.fail {
	color: red;
}

#summary {
	text-align: center;
}

#summary.pass {
	color: white;
	background-color: green;
}

#summary.warn {
	color: white;
	background-color: orange;
}

#summary.fail {
	color: white;
	background-color: red;
}

.pass {
	color: green;
}

.details {
	display: block;
	width: 50%;
	border: 1px dashed #000;
	padding: 2px 1em;
	background-color: #ffa;
}

table {
	width: 100%;
	border-collapse: collapse;
}

th {
	border-bottom: 3px double #000;
}

td {
	border: 1px solid #999;
}

-->
</style>
</head>
<body>
END
}

sub print_html_footer {
	print <<"END";
</body>
</html>
END
}
<style>
li[data-testid="exclude_keyword"],div[data-testid="popular-brands"],.merNavigationBottom,.kbzInU,div[data-testid="checkout-button-container"],[text="やることリスト"],mer-navigation-bottom,.gvxzwb,.merNavigationTopMenuItem,.primary__f49ba1aa,mer-information-bubble[variant="transition"],.end-section,
mer-tab-item[value="/my_list"],nav[slot="end"],[name=purchase],footer,
div[data-location="item_details:comment:post_button"],[data-testid="open-buyee-link"],[data-testid="cross-border-banner"],
a[href="/sell"],a[href="/todos"],div[data-testid="signin-signup-nav"],
a[data-location="home:recommend:component:banner"],.dcoyNT,.ciiiJf
,div[data-testid="tabs"]
,.hOIbEM,.kIprYY,.iLHBEC,.kuXucX,[data-testid="bid-button-container"],
.bIHcey,.bihhIE

{display:none !important;}

.merNavigationTop .navigationTop__6d8930f1{justify-content:center !important;}
#shuntong-buy{cursor: pointer;border:0;display:none;height: 33px;width:190px;background-color: rgb(255 1 17);color: #fff;border-radius: 3px;}
#translation{display: none;}
#translation>select {
        appearance: none;
        -webkit-appearance: none;
        -moz-appearance: none;
        border: 1px solid #f5f4f4;
        border-radius: 4px;
        height: 2.2em;
        padding: 0 24px 0 8px;
        font-family: inherit;
        color: #666;
        cursor: pointer;
        position: relative;
        background: url('data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAMAAADXqc3KAAAASFBMVEUAAAD////Nzc3Nzc3V1dXNzc3MzMzMzMzMzMzNzc3Ozs7j4+PMzMzMzMzMzMzPz8/MzMzNzc3Ozs7Ozs7MzMzNzc3Nzc3Nzc1mbvnCAAAAGHRSTlMAAymOBrtVs9RlPgnPltxPlWwvRJzBt+CSuXutAAAAM0lEQVR4nGMYBbgALycjiGIUZEaTEBLl4WJgEOZgZcLQwybOLsbHj800bhEBFqo7cfACACvdARau8cpxAAAAAElFTkSuQmCC') no-repeat right center;
    }
#shuntong-share{cursor: pointer;display:none;height: 33px;width:190px;color: rgb(255 1 17);border-radius: 3px;border: 1px solid rgb(255 1 17)}
#shuntong-collect{cursor: pointer;display:none;height: 33px;width:190px;color: rgb(255 1 17);border-radius: 3px;border: 1px solid rgb(255 1 17)}
#shuntong-style{z-index:9999;position: fixed;right: 3%;top:15%;}
#shuntong-style>div{margin-top: 20px}
.shuntong-userinfo{z-index:9999;position: fixed;top:2%;right: 0;text-align: center;width: 20%;height: 8%;color: #7a7a7a
        }
.shuntong-userinfo>span{margin-left: 3%}
.shuntong-userinfo img{position: relative;top:5px}
</style>
<div id="shuntong-style">
    <div id="translation">
        <span>&nbsp;<img src="/static/img/fanyi.png" width="25" height="25" alt="" style="position: relative;top:6px">&nbsp;翻译：</span>
    </div>
    <div>
        <button id="shuntong-share">查看mercari原页面</button>
    </div>
    <div>
        <button id="shuntong-collect" onclick="collect()">收藏该商品</button>
    </div>
    <div>
        <button id="shuntong-buy" onclick="createOrder()">立即下单</button>
    </div>
</div>
<script src="/static/js/jquery.min.js"></script>
<script src="/static/layer/layer.js"></script>
<script src="/static/js/transl.js?a=1"></script>
<script src="/static/js/listenview.js"></script>
<script>
if (!localStorage.getItem("privateKey")) {
    localStorage.setItem("ab.storage.messagingSessionStart.7817acf4-d956-4487-94c6-992397584c5c", "{\"v\":1676186741513}")
    localStorage.setItem("i18nextLng", "ja")
    localStorage.setItem("logDuplication", "{\"SCREEN_DISPLAY:home:recommend\":1676187611683,\"EXPERIMENT_CHECK:CAMP1-4935_privacy_consent_web\":1676187615282,\"EXPERIMENT_CHECK:HC-388_help_center_top_release\":1676187611644,\"EXPERIMENT_CHECK:NSMUG-1107_web_product_page\":1676187611644,\"EXPERIMENT_CHECK:CAMP1-5001_web_to_app_onboarding\":1676187611648,\"EXPERIMENT_CHECK:NSMUG-450_list_view_in_serp\":1676187615840}")
    localStorage.setItem("mercari.braze-agent.brazeSession", "{\"lastBrazeSessionId\":null}")
    localStorage.setItem("mercari.braze-agent.lastActivity", "27936460")
    localStorage.setItem("mercari.braze-agent.screen", "{\"visited\":{\"timeline\":false,\"item_detail\":false}}")
    localStorage.setItem("mercari.braze-agent.user", "{\"registeredAt\":null}")
    localStorage.setItem("privateKey", "{\"crv\":\"P-256\",\"d\":\"hW3BnFuLq5lJqFLKVicbe5DBDyVQ-OVSx735QCqZn8c\",\"ext\":true,\"key_ops\":[\"sign\"],\"kty\":\"EC\",\"x\":\"RUiG4wM7HtWAJT3hT3ahD2lT8FU3l2Q_u0hZf9pyr9k\",\"y\":\"BOGuw2lnx-1vAidetVTUNqh37L34oUKBKaOe1Ai8Jno\"}")
    localStorage.setItem("publicKey", "{\"crv\":\"P-256\",\"ext\":true,\"key_ops\":[\"verify\"],\"kty\":\"EC\",\"x\":\"RUiG4wM7HtWAJT3hT3ahD2lT8FU3l2Q_u0hZf9pyr9k\",\"y\":\"BOGuw2lnx-1vAidetVTUNqh37L34oUKBKaOe1Ai8Jno\"}")
    localStorage.setItem("signIn", "false")
    localStorage.setItem("uuid", "86f32824-7a07-48ac-b3a5-2850f4cec865")
}
let currentCode = localStorage.getItem('userPreferenceCurrencyCode');
if (!currentCode || currentCode != '"JPY"') {
    localStorage.setItem('userPreferenceCurrencyCode', '"JPY"')
}
// caches.keys().then(cacheNames => {
//     cacheNames.forEach(cacheName => {
//         caches.delete(cacheName);
//     });
// });
document.cookie = 'country_code=;expires=Thu, 01 Jan 1970 00:00:00 GMT;path=/';
</script>
<script>
goodsInfo = {}

async function createOrder() {
    if (document.querySelector('[alt=sold]')) {
        layer.msg('此商品已售出！')
        return
    }
    var tem = location.pathname.split('/');
    goodsId = tem[tem.length - 1];
    
    if ($.isEmptyObject(goodsInfo)) {
        goodsInfo = await $.get('/url-68747470733a2f2f6170692e6d6572636172692e6a70/items/get?id=' + goodsId)
        goodsInfo = goodsInfo.data
    }
    let code = 'seller'
    if (goodsInfo && ('shipping_payer' in goodsInfo)) {
        code = goodsInfo.shipping_payer.code
    }
    if (code === 'buyer') {
        layer.confirm('<b style="color:#000">该订单的日本国内运费是到付，需要客户自行承担</b>', { title:'提示'}, function(index) {
          layer.load(3);
            $.post('/shuntong/createOrder', {goodsId: goodsId}, function (res) {
                layer.closeAll();
                switch (res.code) {
                    case 0:
                        self.location.href = '/shuntong/pay?orderId=' + res.data.orderId
                        break;
                    case -1:
                        window.location.href = '/shuntong/login'
                        break;    
                    case 5:
                        // 弹窗确认
                        layer.confirm(res.msg, { title:'警告'}, function(index) {
                            layer.load(3);
                            $.post('/shuntong/createOrder', {goodsId: goodsId, confirm:"1"}, function (res) {
                                layer.closeAll();
                                switch (res.code) {
                                    case 0:
                                        self.location.href = '/shuntong/pay?orderId=' + res.data.orderId
                                        break;
                                    case -1:
                                        self.location.href = '/shuntong/login'
                                        break;
                                    default:
                                        layer.alert(res.msg, {icon: 2});
                                }
                            }, 'json');
                        });
                        break;
                    default:
                        layer.alert(res.msg, {icon: 2});
                }
            }, "json")
        });
    } else {
        layer.load(3);
        $.post('/shuntong/createOrder', {goodsId: goodsId}, function (res) {
            layer.closeAll();
            switch (res.code) {
                case 0:
                    self.location.href = '/shuntong/pay?orderId=' + res.data.orderId
                    break;
                case -1:
                    window.location.href = '/shuntong/login'
                    break;     
                case 5:
                    // 弹窗确认
                    layer.confirm(res.msg, { title:'警告'}, function(index) {
                        layer.load(3);
                        $.post('/shuntong/createOrder', {goodsId: goodsId, confirm:"1"}, function (res) {
                            layer.closeAll();
                            switch (res.code) {
                                case 0:
                                    self.location.href = '/shuntong/pay?orderId=' + res.data.orderId
                                    break;
                                case -1:
                                    self.location.href = '/shuntong/login'
                                    break;
                                default:
                                    layer.alert(res.msg, {icon: 2});
                            }
                        }, 'json');
                    });
                    break;
                default:
                    layer.alert(res.msg, {icon: 2});
            }
        }, "json")
    }
}
function collect() {
    if (document.querySelector('[alt=sold]')) {
        layer.msg('此商品已售出！')
        return
    }
    var tem = location.pathname.split('/');
    goodsId = tem[tem.length - 1];
    $.post('/shuntong/collect', {goodsId: goodsId}, function (res) {
        layer.closeAll();
        switch (res.code) {
            case 0:
                layer.msg('收藏商品成功', {icon: 1});
                break;
            case -1:
                window.location.href = '/shuntong/login'
                break;               
            default:
                layer.alert(res.msg, {icon: 2});
        }
    }, "json")
}
</script>
<script>
function runCallbackEvery50ms(callback, retry = 10) {
    let count = 0;
    callback()
    const intervalId = setInterval(() => {
        callback();
        count++;
        if (count > retry) {
            clearInterval(intervalId);
        }
    }, 100);
}
    translate.init('translation')
    let addHistoryMethod = new addMethod()
    window.addHistoryListener = addHistoryMethod('historychange');
    history.pushState = addHistoryMethod('pushState');
    history.replaceState = addHistoryMethod('replaceState');
    window.addHistoryListener('history',function() {
        translate.restoreSelectStatus();
        let share = document.getElementById('shuntong-share')
        let collect = document.getElementById('shuntong-collect')
        let buyBtn = document.getElementById('shuntong-buy');
        let fanyi = document.getElementById('translation');
        let style = document.getElementById('shuntong-style');
        //注意这个方法只要路由发生变化就会被触发
        if (location.pathname.slice(0, 5) === '/item') {
            let tem = location.pathname.split('/');
            let goodsId = tem[tem.length - 1];
            $.get('/shuntong/item/status?id=' + goodsId, function (res) {
                if (res.code === 0) {
                  buyBtn.style.display = 'block'
                }
            })
            fanyi.style.display = 'block';
            share.style.display = 'block';
            style.style.display = 'block';
            collect.style.display = 'block';
            share.onclick = function () {
                window.open('https://jp.mercari.com/item/' + goodsId, '_blank');
            }
            // 配送方法
            runCallbackEvery50ms(function () {
                let shopping = document.querySelectorAll('#item-info > section:nth-child(3) > div.sc-4bd02274-0.fmFHWs > div')
                if (shopping.length > 0) {
                    shopping.forEach((item) => {
                        if (/配送の方法/.test(item.textContent)) {
                            item.style.color = '#ff5722'
                            item.style.fontWeight = 'bold'
                            item.style.fontSize = '18px'
                            
                            let leftTitle = item.querySelector('.title__32cba457')
                            if (leftTitle) {
                                leftTitle.style.fontSize = '18px'
                            }
                            
                        }
                    })
                }
            }, 20)
            
        } else {
            // if (location.pathname === "/" || location.pathname === "") {
            //     self.location.href = '/'
            //     return;
            // }
            buyBtn.style.display = 'none';
            share.style.display = 'none';
            fanyi.style.display = 'none';
            style.style.display = 'none';
            collect.style.display = 'none';
            // 强制body样式为空
            runCallbackEvery50ms(function () {
                document.body.setAttribute('style', '')
            }, 20)
        }
    })
</script>