listupsite.cgi?kt=renew&max=10&mode=2

js seawave.jp collected 2026-10-07 15:29:26 UTC 1,087 bytes, 42 lines download raw bytes

1#!/usr/bin/perl
2#ªperlÌpXð©ªÌÂ«Éí¹Ä«¼µÜ·B
3# pickup_site.cgi [755] yomi.cgi Æ¯¶Æ±ëÉAbv[hB
4#
5# Yomi-Search Ver 4.19 p AhI\tg
6#	o^TCgð_ÉsbNAbv\¦·éB
7#	Z : [email protected]
8#	LastUpdate : 2003/03/24
9#
10require 'pl/cfg.cgi';
11require 'pl/temp.cgi';
12require 'pl/ys4sitepickup.cgi';
13
14# p[^ðæ¾·éB
15&form_decode;
16
17# TCgÌsbNAbvÆ^O¶¬B
18$pickup_tag = &SitePickUpper($FORM{kt}, $FORM{max}, 2, 0);
19$pickup_tag =~ s/\n//g;
20$pickup_tag =~ s/'/&#039/g;
21
22#
23# JavaScriptÅsbNAbvO\¦B
24#
25print "Content-type: text/plain\n\n";
26print "<!--\n";
27print "document.write(\'$pickup_tag\')\;\n";
28print "//-->\n";
29exit;
30
31###########################################
32# tH[f[^ÌfR[h(&form_decode)
33# Yomi-SearchÌ¯¼ÖÌVvÅB
34sub form_decode{
35	if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $form, $ENV{'CONTENT_LENGTH'}); }
36	else { $form = $ENV{'QUERY_STRING'}; }
37	@pairs = split(/&/,$form);
38	foreach $pair (@pairs) {
39		($name, $value) = split(/=/, $pair);
40		$FORM{$name} = $value;
41	}
42}

Line numbers count LF bytes from the start of the resource, as the search results do. Vendor segments are library code the classifier recognised; they are stored but not indexed. Bytes are shown as Latin1 characters, one per byte.