0001#!/usr/bin/perl
0002require './jcode.pl';#REQUIRE JCODE LIBRARY
0003#use kcatch qw(source);#KCATCH
0004
0005
0006#FORESMUNDI GENERATOR SCRIPT DEFINE
0007$ScriptName		= 'GENERATOR';			#SCRIPT NAME
0008$Version		= 'ICHI';				#VERSION
0009$BuildNumber		= '.20010305';			#BUILD NUMBER
0010$ScriptPath		= './generator.cgi';		#SCRIPT PATH
0011$GenerateOriginPath	= './generator.csv';		#GENERATE ORIGIN
0012$Manufacturer		= 'FORESMUNDI';		#MANUFACTURER
0013$ManufacturerURL	= 'http://www.archi-map.net/about_us_07.htm';
0014$Author			= 'm921320@mediawars.ne.jp, kimura@radika.com';#I AM EXPECTING THAT YOU WILL  DEVELOP THIS SCRIPT WITH US.
0015$SearchMethod 		= 'or';				#DEFAULT SEARCH METHOD
0016$LayoutStyle		= 1;				#DEFAULT LAYOUT STYLE
0017$DoYouSeeDebug	= 0;				#0 OR 1(SEE) MESSAGES
0018$DoYouSeeConnection	= 1;				#0 OR 1(SEE) HYPERLINKS
0019
0020
0021#DECODE REQUEST EXECUTE FIRST
0022	if ($ENV{'REQUEST_METHOD'} eq 'POST') {#ENVIRONMENT
0023		if ($ENV{'CONTENT_LENGTH'} > 51200) { &MakeErrorReport("Your sentence was too long."); }
0024		read(STDIN, $Buffer, $ENV{'CONTENT_LENGTH'});
0025		} else { $Buffer = $ENV{'QUERY_STRING'};
0026	}
0027	if ($Buffer) {#REGULATE
0028		$Buffer =~ s/<[^>]*(>|$)//g;#KILL HTML TAGS
0029		@Pairs = split(/&/, $Buffer);
0030		foreach $Pair (@Pairs) {
0031			($FieldName,$Value) = split(/=/, $Pair);
0032			$Value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;#DECODE URL ENCODE
0033			&jcode::convert(\$Value, 'sjis');#DECODE JAPANESE CHARACTOR TO SJIS
0034			$FieldName =~ tr/A-Z/a-z/;#LOWER CASE
0035			$Form{$FieldName} = $Value;
0036		}
0037	}
0038
0039
0040#PREFERENCE
0041	if ($Form{'style'}) {$LayoutStyle = $Form{'style'};}
0042
0043
0044#FOR THE PAGE
0045	print "Content-type: text/html\n
0046<html>
0047<head>
0048<META HTTP-EQUIV=\"Content-type\" CONTENT=\"text/html; charset=Shift_JIS\">
0049<META NAME=\"GENERATOR\" content=\"FORESMUNDI GENERATOR $Version$BuildNumber\">\n\n
0050<STYLE type=\"text/css\">
0051<!--
0052a	{font-size: 10pt; font-family: Verdana, Arial, Helvetica; text-decoration: underLine}
0053p	{font-size: 10pt; font-family: Verdana, Arial, Helvetica}
0054li	{font-size: 10pt; font-family: Verdana, Arial, Helvetica}
0055td	{font-size: 10pt; font-family: Verdana, Arial, Helvetica}
0056pre	{font-size: 10pt; font-family: Verdana, Arial, Helvetica}
0057a:hover	{color:#FF0000;}
0058-->
0059</STYLE>\n\n\n";
0060
0061
0062#DEBUG DUMP
0063	if ($Form{'debug'} ne '')	{
0064		$DoYouSeeDebug = $Form{'debug'};#SET DEBUG
0065		print "<p><i><font color=\"yellow\"><b><font size=\"5\">DebugMode $ScriptName</font></b><br>$Buffer/$Form{'word'} $GenerateOriginPath $ENV{'HTTP_COOKIE'}</b></font></i></p>\n";#DEBUG MESSAGES
0066	}
0067
0068
0069#LINE QUERY FORM LINE QUERY HOW LINE FOOTER
0070	#LINE QUERY FORM 1
0071	if ($Form{'queryform'}) {$QueryForm = $Form{'queryform'};}
0072	if ($Form{'word'}) {$Word = $Form{'word'};}
0073	$LineQueryForm = "<a name=\"queryform\"></a><form action=\"$ScriptPath\" method=\"GET\">
0074<div align=\"center\">
0075  <table border=\"0\" cellspacing=\"\">
0076    <tr>
0077      <td nowrap align=\"center\" valign=\"middle\"><input type=\"text\" name=\"word\" size=\"8\" value=\"$Word\" style=\"font-family: Verdana, Arial, Helvetica\"></td>
0078      <td nowrap align=\"center\" valign=\"middle\"><input type=\"image\" border=\"0\" src=\"./arrow.gif\" width=\"19\" height=\"16\" alt=\"search\" align=\"middle\"></td>
0079    </tr>
0080  </table>
0081</div>
0082</form>\n\n\n";
0083	#LINE QUERY FORM 2
0084	if($QueryForm eq '2') {$LineQueryForm = "<a name=\"queryform\"></a>
0085<form action=\"$ScriptPath\" method=\"GET\">
0086<div align = \"center\"><table border=\"0\" cellspacing=\"1\">
0087  <tr>
0088    <td nowrap><b>SearchField</b></td>
0089    <td nowrap><b>SearchKeyWords</b></td>
0090    <td nowrap><b>OR</b></td>
0091    <td nowrap><b>AND</b></td>
0092    <td nowrap><b></b></td>
0093  </tr>
0094    <td nowrap><select name=\"field\" style=\"font-family: Verdana, Arial, Helvetica\">
0095        <option value=\"*\">*</option>
0096        <option value=\"documentno\">01.DocumentNo</option>
0097        <option value=\"architecturehead\">02.ArchitectureHead</option>
0098        <option value=\"architecture\">03.Architecture</option>
0099        <option value=\"architecturejp\">04.ArchitectureJp</option>
0100        <option value=\"architecturejpkana\">05.ArchitectureJpKana</option>
0101        <option value=\"url\">06.URL</option>
0102        <option value=\"photograph\">07.Photograph</option>
0103        <option value=\"country\">08.Country</option>
0104        <option value=\"countryjp\">09.CountryJp</option>
0105        <option value=\"location\">10.Location</option>
0106        <option value=\"locationjp\">11.LocationJp</option>
0107        <option value=\"architecthead\">12.ArchitectHead</option>
0108        <option value=\"architect\">13.Architect</option>
0109        <option value=\"architectjp\">14.ArchitectJp</option>
0110        <option value=\"architecturetype\">15.ArchitectureType</option>
0111        <option value=\"architecturetypejp\">16.ArchitectureTypeJp</option>
0112        <option value=\"author\">17.Author</option>
0113        <option value=\"preparationdate\">18.PreparationDate</option>
0114        <option value=\"vague\">19.Vague</option></select></td>
0115    <td nowrap><input type=\"text\" name=\"word\" size=\"30\" value=\"$Word\" style=font-size: 14pt; font-family: Verdana, Arial, Helvetica\"></td>
0116    <td nowrap><input type=\"radio\" value=\"or\" checked name=\"searchmethod\"></td>
0117    <td nowrap><input type=\"radio\" value=\"and\" name=\"searchmethod\"></td>
0118    <td nowrap><input type=\"image\" border=\"0\" src=\"./arrow.gif\" width=\"19\" height=\"16\" alt=\"search\" align=\"middle\"></td>
0119  </tr>
0120</table></div>
0121</form>\n\n\n";}
0122	#LINE FOOTER
0123	$LineFooter = "<p align=\"center\"><a href=\"$ManufacturerURL\" target=\"_top\">$ScriptName</a> <a href=\"$ScriptPath?view=code\" target=\"_top\">CODE</a></p>\n\n\n</body></html>";
0124
0125
0126#PERIOD
0127	if ($Form{'period'}) {
0128		open(IN,"$GenerateOriginPath") || &MakeErrorReport("Open Error : $GenerateOriginPath");#GENERATE ORIGN
0129		@Lines = <IN>;
0130		close(IN);
0131		print "<title>ARCHITECTURALMAP</title>\n";
0132		print "</head>\n\n\n";
0133		print "<body bgcolor=\"#000000\" background=\"\" text=\"#FFFFFF\" link=\"#336699\" vlink=\"#B0C4DE\">\n\n\n";
0134		($Sec,$Min,$Hour,$Mday,$Mon,$Year,$Wday,$yday,$isdst) = localtime(time - $Form{'period'}*24*60*60); $Mon++; $Year += 1900;#PERIOD SECOND
0135		$Period = sprintf("%04d%02d%02d",$Year,$Mon,$Mday);
0136		($Sec,$Min,$Hour,$Mday,$Mon,$Year,$Wday,$yday,$isdst) = localtime(time); $Mon++; $Year += 1900;#TODAY  SECOND
0137		$Today = sprintf("%04d%02d%02d",$Year,$Mon,$Mday);
0138		$Applicable = 0;#SET ZERO
0139		$LastRecordPreparationDate = 0;#SET FAULT AT FIRST
0140		foreach $LineNo (1 .. $#Lines) {#LOOP LAST RECORD DAY
0141			@Fields{'documentno','architecturehead','architecture','architecturejp','architecturejpkana','url','photograph','country','countryjp','location','locationjp','architecthead','architect','architectjp','architecturetype','architecturetypejp','author','preparationdate','vague'} = split(/,/, $Lines[$LineNo]);#SPLIT LINE
0142			if (!$LastRecordPreparationDate && $Fields{'preparationdate'} <= $Today) {
0143				$LastRecordPreparationDate = $Fields{'preparationdate'};
0144				$LastRecordDocumentNo = $Fields{'documentno'};
0145				last;
0146			}
0147		}
0148		$Year = substr($LastRecordPreparationDate,0,4);#CALENDAR
0149		$Mon = substr($LastRecordPreparationDate,4,2);
0150		$Mday = substr($LastRecordPreparationDate,6,2);
0151		@Month = ('Nothing','January','February','March','April','May','June','July','August','September','October','November','December');
0152		$MyString = '';&jcode::convert(\$MyString, 'sjis','euc');
0153		print "<p align=\"center\"><b>NUMERO $LastRecordDocumentNo $Month[$Mon] $Mday $Year</b></p>\n";
0154		print "<p align=\"center\"><b><a href=\"$ScriptPath?vibration=1\" target=\"main\">$MyString</b></a></p>\n<hr noshade size=\"1\">\n\n\n";
0155		$Applicable = 0;#APPLICABLE ZERO
0156		foreach $LineNo (1 .. $#Lines) {#LOOP PREPARATIONDATE
0157			@Fields{'documentno','architecturehead','architecture','architecturejp','architecturejpkana','url','photograph','country','countryjp','location','locationjp','architecthead','architect','architectjp','architecturetype','architecturetypejp','author','preparationdate','vague'} = split(/,/, $Lines[$LineNo]);#SPLIT LINE
0158			#if ($Period <= $Fields{'preparationdate'} && $Fields{'preparationdate'} <= $Today || $Applicable < 4) {
0159			if($Fields{'preparationdate'} <= $Today){
0160				if($Period <= $Fields{'preparationdate'} || $Applicable < 4) {
0161					$Applicable++;
0162					if ($DoYouSeeDebug) {
0163						print "<p><font color=\"yellow\"><i>if ($Period <= $Fields{'preparationdate'} && $Fields{'preparationdate'} <= $Today) {} #$Applicable $_</i></font></p>\n";
0164					}
0165					&MakeLineContent($Lines[$LineNo], $LayoutStyle);
0166					print $LineContent;
0167				}
0168				if ($Period >= $Fields{'preparationdate'} && $Applicable > 4) {last;}#EXIT LOOP FOR THE QUICKNESS
0169			}
0170		}
0171		#print "<p align=\"center\">The reason why the documents of the architectures which you were looking for didn't exist here may be because it passed for more than one month after documents were contributed.</p><p align=\"center\">You'll be able to seek for the documents about the architectures which weren't here in the <b><a href=\"../a_map/map_index_00.htm\" target=\"_top\">index page.</a></b> there're $TotalRecordNumber documents at present.</p><p align=\"center\"><b><a href=\"../a_map/history.htm\" target=\"_top\">History</a></b> of the site.</p><p align=\"center\"><b><a href=\"../a_map/index.htm\" target=\"_top\">Homepage.</a></b></p>\n";
0172		print $LineFooter;
0173		exit;#EXIT PROCESS
0174	}
0175
0176
0177#VIBRATION
0178	if ($Form{'vibration'}) {#DISPLAY AT RANDOM
0179		open(IN,"$GenerateOriginPath") || &MakeErrorReport("Open Error : $GenerateOriginPath");
0180		@Lines = <IN>;
0181		close(IN);
0182		srand;#SET RANDOM SEED
0183		$Vibration = int(rand($#Lines));#VIBRATION LINE
0184		@Fields{'documentno','architecturehead','architecture','architecturejp','architecturejpkana','url','photograph','country','countryjp','location','locationjp','architecthead','architect','architectjp','architecturetype','architecturetypejp','author','preparationdate','vague'} = split(/,/, $Lines[$Vibration]);#SPLIT LINE
0185		#print "<title>$Fields{'architecture'} $Fields{'architecturejp'}</title>\n";
0186		print "<title>$ScriptName</title>\n";
0187		print "</head>\n\n\n";
0188		print "<body bgcolor=\"#000000\" background=\"\" text=\"#FFFFFF\" link=\"#336699\" vlink=\"#B0C4DE\">\n\n\n";
0189		if ($DoYouSeeDebug) {print "<p><font color=\"yellow\"><i>$#Lines $Vibration $Fields{'documentno'}</i></font></p>\n";}
0190		foreach (1 .. $Form{'vibration'}) {
0191			&MakeLineContent($Lines[$Vibration], $LayoutStyle);
0192			print $LineContent;
0193			$Vibration = int(rand($#Lines));#NEXT VIBRATION LINE
0194		}
0195		#print "<p align=\"center\">The Architecture which I recommend only to you secretly.</p>\n\n\n";
0196		print $LineFooter;
0197		exit;#EXIT PROCESS
0198	}
0199
0200
0201#SEARCH WORD
0202	if ($Form{'word'}) {
0203
0204		#Modify bigin 2008/10/25 Yoshihiro Nakazoe
0205		$SearchWordShow_str = $Form{'word'};
0206		&jcode::convert(\$SearchWordShow_str, 'sjis','euc');
0207		#Modify end
0208
0209		open(IN,"$GenerateOriginPath") || &MakeErrorReport("Open Error : $GenerateOriginPath");
0210		@Lines = <IN>;
0211		close(IN);
0212		print "<title>$ScriptName</title>\n";
0213		print "</head>\n\n\n";
0214		if ($LayoutStyle eq 1) {print "<body bgcolor=\"#000000\" background=\"\" text=\"#FFFFFF\" link=\"#336699\" vlink=\"#B0C4DE\">\n\n\n";}
0215		if ($LayoutStyle eq 2) {print "<body bgcolor=\"#FFFFFF\" background=\"\" text=\"#000000\" link=\"#336699\" vlink=\"#B0C4DE\">\n\n\n";}
0216		if ($LayoutStyle eq 3) {print "<body bgcolor=\"#FFFFFF\" background=\"\" text=\"#000000\" link=\"#336699\" vlink=\"#B0C4DE\">\n\n\n";}
0217		$Applicable = 0;#SET APPLICABLE COUNT ZERO
0218		$Word = $Form{'word'};#JAPANESE CODE
0219		&jcode::convert(\$Word, 'euc','sjis');			#01 CONVERT TO EUC 20010304
0220
0221
0222		&jcode::tr(\$Word, '--ڣ-','0-9A-Za-z-');	#02 AGAINST 2BYTE ALPHABET NUMERICAL
0223		&jcode::tr(\$Word, 'ܡá','+&|?~     ');		#03 AGAINST 2BYTE SPECIAL
0224		&jcode::tr(\$Word, 'A-Z','a-z');				#04 LOWER CASE
0225		if (index($Word,'|') >= 0) {$SearchMethod = 'or';}		#06 OR
0226		if (index($Word,'&') >= 0) {$SearchMethod = 'and';}		#07 AND
0227		if ($Form{'searchmethod'}) {$SearchMethod = $Form{'searchmethod'};}#08 QUERYSTRING
0228
0229		#Modify bigin 2008/10/25 Yoshihiro Nakazoe
0230#		$Word =~ s/(\++)|(\&+)|(\|)|(?)/ /g;				#09 PLUS AND BAR TO SPACE
0231		#Modify end
0232
0233		$Word =~ s/^\s//g;						#10 KILL FIRST PLUS
0234		&jcode::convert(\$Word, 'sjis','euc');			#11 CONVERT TO SJIS
0235		@Pairs = split(/\s+/, $Word);				#12 SPLIT SEARCH WORDS
0236		foreach $LineNo (1 .. $#Lines) {
0237			$Flag=0;#SET FLAG ZERO
0238			foreach (@Pairs) {
0239				$_ =~ tr/A-Z/a-z/;#LOWER CASE PAIR
0240				$LinePlus = $Lines[$LineNo];
0241				if ($Form{'field'} && $Form{'field'} ne 'everything' && $Form{'field'} ne '*') {
0242					@Fields{'documentno','architecturehead','architecture','architecturejp','architecturejpkana','url','photograph','country','countryjp','location','locationjp','architecthead','architect','architectjp','architecturetype','architecturetypejp','author','preparationdate','vague'} = split(/,/, $Lines[$LineNo]);#SPLIT LINE
0243					$Form{'field'} =~ tr/A-Z/a-z/;#LOWER CASE
0244					$LinePlus = $Fields{$Form{'field'}};#ONLY FIELD
0245				}
0246				$LinePlus =~ s/\s+//g;#REMOVE SPACE
0247				$LinePlus =~ tr/A-Z/a-z/;#LOWER CASE EVERYTHING
0248				if (index($LinePlus,$_) >= 0) {#HAVE OR HAVE NOT
0249					$Flag=1;#FLAG STANDS UP
0250					if ($SearchMethod eq 'or') {$last;}#OR
0251				} else {
0252					if ($SearchMethod eq 'and') {$Flag=0; last;}#AND
0253				}
0254			}
0255			if ($Flag) {
0256				$Applicable++;
0257
0258				#Modify bigin 2008/10/25 Yoshihiro Nakazoe
0259				if ($DoYouSeeDebug) {print "<p><i><font color=\"yellow\">$Lines[$LineNo]</p><p>$LinePlus @Pairs $SearchMethod #$Applicable</font></i></p>\n";}
0260				#Modify end
0261
0262				&MakeLineContent($Lines[$LineNo], $LayoutStyle);
0263				print $LineContent;
0264			}
0265		}
0266		$SearchMethod =~ tr/a-z/A-Z/;
0267		&jcode::convert(\$Word, 'euc','sjis');			#11 CONVERT TO SJIS
0268
0269		#Modify bigin 2008/10/25 Yoshihiro Nakazoe
0270		$SQL = "SELECT * FROM AMAP WHERE * \~\* \'".$SearchWordShow_str."\' $SearchMethod";
0271		if ($Form{'field'}) {$SQL = "SELECT * FROM AMAP WHERE $Form{'field'} \~\* '".$SearchWordShow_str."' $SearchMethod";}
0272		#modify end
0273
0274		print "<p align=\"center\"><a name=\"applicable\"></a>$Applicable DOCUMENT(S) EXISTED.  $SQL</p>\n";
0275
0276		if ($QueryForm || $Form{'word'}) {print $LineQueryForm;}#WHEN WORD
0277		if ($Applicable eq 0) {print "<p align=\"center\">You may be able to seek for the documents about the architectures from these.</p><p align=\"center\">index by <b><a href=\"$ScriptPath\?queryindex=1\" target=\"_top\">ARCHITECTURES</a></b><br>index by <b><a href=\"$ScriptPath\?queryindex=2\" target=\"_top\">ARCHITECT</a></b><br>index by <b><a href=\"$ScriptPath\?queryindex=3\" target=\"_top\">ARCHITECTURE TYPES</a></b></p>\n\n\n";}
0278		print $LineFooter;
0279		#WHEN NO APPLICABLE INVESTIGATE THE CAUSE OF ZERO
0280		if (0) {
0281			$QueryLogPath = './query.csv';#QUERYLOG PATH
0282			$QueryLogMaximum = 44;#QUERYLOG MAXIMUM
0283			$LockPath = './lock';#LOCK
0284			$Retry = 5;#TIMES
0285			while (!symlink(".", $LockPath)) {
0286				if (--$Retry <= 0) {
0287					&MakeErrorReport("Locked : $LockPath");
0288					if (-e $LockPath) {unlink($LockPath);}
0289					exit;EMERGENCY EXIT
0290				}
0291				sleep(1);
0292			}
0293			open(IN,"$QueryLogPath") || &MakeErrorReport("Open Error : $QueryLogPath");#QUERYLOG OPEN
0294			#open(IN,"./query2.csv") || &MakeErrorReport("Open Error : $QueryLogPath");#QUERYLOG OPEN
0295			@Lines = <IN>;
0296			close(IN);
0297			while($QueryLogMaximum <= @Lines) {pop(@Lines);}#POP OVER
0298			$RemoteHost = $ENV{'REMOTE_HOST'};#REMOTE HOST
0299			if (!$RemoteHost || $RemoteHost eq $ENV{'REMOTE_ADDR'}) {
0300				$RemoteHost = gethostbyaddr(pack("C4", split(/\./, $ENV{'REMOTE_ADDR'})), 2);
0301				if ($RemoteHost eq '') {$RemoteHost = $ENV{'REMOTE_ADDR'};}
0302			}
0303			$HttpUserAgent = $ENV{'HTTP_USER_AGENT'};
0304			if (!$HttpUserAgent) {$HttpUserAgent = 'SecretServiceAgent';}
0305			($Sec,$Min,$Hour,$Mday,$Mon,$Year,$Wday,$yday,$isdst) = localtime(time); $Mon++; $Year += 1900;#TODAY  SECOND
0306			$Now = sprintf("%04d%02d%02d %02d:%02d:%02d",$Year,$Mon,$Mday,$Hour,$Min,$Sec);
0307			unshift(@Lines, "$Now,$RemoteHost,$HttpUserAgent,$Reffer,$Form{'word'},$Form{'field'},$SearchMethod,$Applicable\r\n");#ONE RECORD
0308			open(OUT,">$QueryLogPath");
0309			print OUT @Lines;
0310			close(OUT);
0311			#chmod(0666,$QueryLogPlusPath);#CHMOD 666
0312			if (-e $LockPath) {unlink($LockPath);}
0313		}
0314		exit;#EXIT PROCESS
0315	}
0316
0317
0318#QUERY INDEX
0319	if ($Form{'queryindex'}) {
0320		if ($Form{'queryindex'} eq '1') {#QUERY INDEX 1 ARCHITECTURES
0321			$BoltPath = '../map_index_04.htm';#GLUE THIS FILE TO THE GENERATOR
0322			open(INBolt,"$BoltPath") || &MakeErrorReport("Open Error : $BoltPath");
0323			@INBoltLines = <INBolt>;
0324			close(INBolt);
0325			foreach (@INBoltLines) {#LOOP ALPHABETICALLY
0326				$_ =~ s/(<\!doctype.*)|(<html>)|(<\/html>)|(<head>)|(<\/head>)|(<meta.*)|(<\/body>)|(<base target.*)|(<BASE TARGET.*)|(<\!--webbot.*)//g;
0327				$_ =~ s/^\n//;
0328				print $_;
0329			}
0330			open(IN,"$GenerateOriginPath") || &MakeErrorReport("Open Error : $GenerateOriginPath");
0331			@Lines = <IN>;
0332			close(IN);
0333			print "\n\n\n<p align=\"center\"><b>\n";
0334			foreach (A .. Z) {print "<a href=\"#$_\">$_</a>\n";}#LOOP ALPHABETICALLY
0335			print "</b></p>\n\n\n<p>";
0336			foreach (A .. Z) {
0337				print "<p align=\"center\"><a name=\"$_\"></a><a href=\"$ScriptPath?field=architecturehead&word=$_&searchmethod=and\" target=\"main\"><b><font size=\"5\">$_</font></b></a></p>\n<p>\n";
0338				foreach $LineNo (1 .. $#Lines) {#SEEK ALPHABETICALLY
0339					@Fields{'documentno','architecturehead','architecture','architecturejp','architecturejpkana','url','photograph','country','countryjp','location','locationjp','architecthead','architect','architectjp','architecturetype','architecturetypejp','author','preparationdate','vague'} = split(/,/, $Lines[$LineNo]);#SPLIT LINE
0340					if (index($Fields{'architecturehead'},$_) >= 0) {#HAVE OR HAVE NOT AND PUSH LINEPLUS
0341						push(@LinesPlus,$Line);
0342						if ($Fields{'architecture'}) {$Architecture{"$Fields{'architecture'} $Fields{'architecturejp'} "} = '';}#MAKE AN ARCHITECT LIST
0343					}
0344				}
0345				@Architecture = keys %Architecture;
0346				@Architecture = sort @Architecture;#KEYS ARRANGE
0347				print "<blockquote><p>\n";
0348				foreach $Architecture (@Architecture) {print "$Architecture";}#KEYS LOOP
0349				print "</p></blockquote>\n\n\n";#CLOSE BLOCKQUOTE
0350				%Architecture = <>;#CLEAR
0351				@LinesPlus = <>;#CLEAR
0352			}
0353			print "<hr noshade size=\"1\">\n\n\n";
0354			print $LineFooter;
0355			exit;#EXIT PROCESS
0356		}
0357		if ($Form{'queryindex'} eq '2') {#QUERY INDEX ARCHITECT
0358			open(IN,"$GenerateOriginPath") || &MakeErrorReport("Open Error : $GenerateOriginPath");
0359			@Lines = <IN>;
0360			close(IN);
0361			$BoltPath = '../map_index_03.htm';#GLUE THIS FILE TO THE GENERATOR
0362			open(INBolt,"$BoltPath") || &MakeErrorReport("Open Error : $BoltPath");
0363			@INBoltLines = <INBolt>;
0364			close(INBolt);
0365			foreach (@INBoltLines) {#LOOP ALPHABETICALLY
0366				$_ =~ s/(<\!doctype.*)|(<html>)|(<\/html>)|(<head>)|(<\/head>)|(<\/body>)|(<base target.*)|(<BASE TARGET.*)|(<\!--webbot.*)//g;
0367				$_ =~ s/^\n//;
0368				print $_;
0369			}
0370			print "\n\n\n<p align=\"center\"><b>\n";
0371			foreach (A .. Z) {print "<a href=\"#$_\">$_</a>\n";}#ALPHABETICALLY
0372			print "</b></p>\n\n\n<p>";
0373			foreach (A .. Z) {
0374				print "<p align=\"center\"><a name=\"$_\"></a><b><font size=\"5\">$_</font></b><p>\n";
0375				foreach $LineNo (1 .. $#Lines) {#SEEK ALPHABETICALLY
0376					@Fields{'documentno','architecturehead','architecture','architecturejp','architecturejpkana','url','photograph','country','countryjp','location','locationjp','architecthead','architect','architectjp','architecturetype','architecturetypejp','author','preparationdate','vague'} = split(/,/, $Lines[$LineNo]);#SPLIT LINE
0377					if (index($Fields{'architecthead'},$_) >= 0) {#HAVE OR HAVE NOT AND PUSH LINEPLUS
0378						push(@LinesPlus,$Line);
0379						if ($Fields{'architect'}) {$Architect{$Fields{'architect'}} = "$Fields{'architect'} $Fields{'architectjp'}";}#MAKE AN ARCHITECT LIST
0380					}
0381				}
0382				@Architect = keys %Architect;
0383				@Architect = sort @Architect;#KEYS ARRANGE
0384				print "<ul>\n";
0385				foreach $Architect (@Architect) {#KEYS LOOP
0386					$ArchitectPlus = $Architect{"$Architect"};
0387					$ArchitectNoand = $Architect;
0388					$ArchitectNoand =~ s/\&/ /s;
0389					print "  <li><b><a href=\"$ScriptPath?field=architect&word=$ArchitectNoand&searchmethod=and\" target=\"main\">$ArchitectPlus</a></b><br>";
0390					foreach $Line (@LinesPlus) {
0391						@Fields{'documentno','architecturehead','architecture','architecturejp','architecturejpkana','url','photograph','country','countryjp','location','locationjp','architecthead','architect','architectjp','architecturetype','architecturetypejp','author','preparationdate','vague'} = split(/,/, $Line);#SPLIT LINE
0392						#@Fields = split(/,/, $Line);#FIELDS
0393						if ($Fields{'architect'} eq $Architect) {
0394							print "$Fields{'architecture'} $Fields{'architecturejp'} ";
0395						}
0396					}
0397					print "</li>\n";#CLOSE LI
0398				}
0399				print "</ul>\n\n\n";
0400				%Architect = <>;#CLEAR
0401				@LinesPlus = <>;#CLEAR
0402			}
0403			print "<hr noshade size=\"1\">\n\n\n";
0404			print $LineFooter;
0405			exit;#EXIT PROCESS
0406		}
0407		if ($Form{'queryindex'} eq '3') {#QUERY INDEX ARCHITECTURE TYPES
0408			open(IN,"$GenerateOriginPath") || &MakeErrorReport("Open Error : $GenerateOriginPath");
0409			@Lines = <IN>;
0410			close(IN);
0411			$BoltPath = '../map_index_05.htm';#GLUE THIS FILE TO THE GENERATOR
0412			open(INBolt,"$BoltPath") || &MakeErrorReport("Open Error : $BoltPath");
0413			@INBoltLines = <INBolt>;
0414			close(INBolt);
0415			foreach (@INBoltLines) {#LOOP ALPHABETICALLY
0416				$_ =~ s/(<\!doctype.*)|(<html>)|(<\/html>)|(<head>)|(<\/head>)|(<\/body>)|(<base target.*)|(<BASE TARGET.*)|(<\!--webbot.*)//g;
0417				$_ =~ s/^\n//;
0418				print $_;
0419			}
0420			print "\n\n\n";
0421			#DEFINE TYPES
0422			$ArchitectureTypes = 'Houses,Apartment/Condominium,Commercial Building,Office,Hotel/Inn,Banquet Room/Wedding Hall,Government Office Building,Educational Facilities,Community Center/Cultural Center,Hall/Music Hall,Museum/Art Museum/Memorial Museum,Library,Gymnasium/Sports Facilities,Medical Facilities/Welfare Facilities,Sanitary Facilities/Bathhouse,Bank/Post Office/Telephone Office,Prison,Training Institution,Research Institution,Factory Building/Warehouse,Port/Airport,Station Building/Parking Structure,Power Station/Water Service,Bridge,Tower/Lighthouse,Church/Religious House,Temple/Mosque,Palace/Guesthouse/Castle/Mausoleum,Shinto Shrine,Buddhist Temple,Tea-Ceremony Room/Tea House,Yard/Garden/Park,Crematorium/Funeral hall/Cemetery,Complex,Urban Planning/Landscape/Ruin,Monument/Artwork,Event/Festival,Industrial Product';
0423			$ArchitectureTypesJp = ',罻,ȻߡŹ,̳ꡦե,,졦ѡƥ롼ࡦ뺧,ģ,ع,ߥ˥ƥ󥿡ʸ󥿡,ۡ롦,Ѵۡʪۡǰ,޽,ΰۡݡĻ,±ʡ,ߡ,ԡ͹ضɡö,ƹ̳,,,졦Ҹ,,ؼˡХߥʥ롦־,ȯŽꡦƻ,,㡦,񡦽ƻ,¡⥹,¡дۡ롦,,ʩ,㼼,ࡦ,졦ؾ졦,ʣ,ԻԷײ衦ʡޤʤߡ,ǰꡦȥ,Ի׻,';
0424			&jcode::convert(\$ArchitectureTypesJp, 'sjis','euc');
0425			#&jcode'convert(*ArchitectureTypesJp,'sjis','euc');
0426			@ArchitectureTypes = split(/,/, $ArchitectureTypes);
0427			@ArchitectureTypesJp = split(/,/, $ArchitectureTypesJp);
0428			print "\n\n\n<p align=\"center\"><b>\n";
0429			foreach (0 .. $#ArchitectureTypes) {print "<a href=\"#$ArchitectureTypes[$_]\">$ArchitectureTypes[$_]</a>\n";}#TYPES
0430			print "</b></p>\n\n\n<p>";
0431			foreach (0 .. $#ArchitectureTypes) {#LOOP TYPES
0432				print "<p align=\"center\"><b><a name=\"$ArchitectureTypes[$_]\"></a><a href=\"$ScriptPath?field=architecturetype&word=$ArchitectureTypes[$_]&searchmethod=and\" target=\"main\"><font size=\"5\">$ArchitectureTypes[$_]</font><br>$ArchitectureTypesJp[$_]</a></b>\n";
0433				foreach $LineNo (1 .. $#Lines) {#SEEK TYPES
0434					@Fields{'documentno','architecturehead','architecture','architecturejp','architecturejpkana','url','photograph','country','countryjp','location','locationjp','architecthead','architect','architectjp','architecturetype','architecturetypejp','author','preparationdate','vague'} = split(/,/, $Lines[$LineNo]);#SPLIT LINE
0435					if (index($Fields{'architecturetype'},$ArchitectureTypes[$_]) >= 0) {#HAVE OR HAVE NOT AND PUSH LINEPLUS
0436						push(@LinesPlus,$Line);
0437						if ($Fields{'architecturetype'}) {$ArchitectureType{"$Fields{'architecture'} $Fields{'architecturejp'} "} = '';}#MAKE ARCHITECTURETYPE LIST
0438					}
0439				}
0440				@ArchitectureType = keys %ArchitectureType;
0441				@ArchitectureType = sort @ArchitectureType;#KEYS ARRANGE
0442				print "<blockquote><p>\n";
0443				foreach $ArchitectureType (@ArchitectureType) {print "$ArchitectureType \n";}
0444				print "</p></blockquote>\n\n\n";#CLOSE BLOCKQUOTE
0445				%ArchitectureType = <>;#CLEAR
0446				@LinesPlus = <>;#CLEAR
0447			}
0448			print "<hr noshade size=\"1\">\n\n\n";
0449			print $LineFooter;
0450			exit;#EXIT PROCESS
0451		}
0452		if ($Form{'queryindex'} eq '4') {#QUERY INDEX 4 KEYS
0453			open(IN,"$GenerateOriginPath") || &MakeErrorReport("Open Error : $GenerateOriginPath");
0454			@Lines = <IN>;
0455			close(IN);
0456			print "<title>$ScriptName</title>\n";
0457			print "</head>\n\n\n";
0458			print "<body bgcolor=\"#000000\" background=\"\" text=\"#FFFFFF\" link=\"#336699\" vlink=\"#B0C4DE\">\n\n\n";
0459			print "<p><i><font color=\"yellow\"><b><font size=\"5\">DebugMode $ScriptName Values $GenerateOriginPath</font></b></font></i></p>\n";
0460			foreach $LineNo (1 .. $#Lines) {
0461				@Fields{'documentno','architecturehead','architecture','architecturejp','architecturejpkana','url','photograph','country','countryjp','location','locationjp','architecthead','architect','architectjp','architecturetype','architecturetypejp','author','preparationdate','vague'} = split(/,/, $Lines[$LineNo]);#SPLIT LINE
0462				#@Fields = split(/,/, $Line);#FIELDS
0463				$ArchitectPlus{"$Fields{'architect'},$Fields{'architectjp'}"} += 1;
0464				$Country{"$Fields{'country'},$Fields{'countryjp'}"} += 1;
0465				$ArchitectureType{"$Fields{'architecturetype'},$Fields{'architecturetypejp'}"} += 1;
0466				$Author{"$Fields{'author'}"} += 1;
0467				$PreparationDate{"$Fields{'preparationdate'}"} += 1;
0468				$Fields{'vague'} =~ s/\n//;
0469				$Vague{"$Fields{'vague'}"} += 1;
0470			}
0471			#ARCHITECT
0472			print "<p><b><font size=\"5\">Architect</b></font></p>\n";
0473			@ArchitectPlusKey = keys %ArchitectPlus;
0474			@ArchitectPlusKey = sort @ArchitectPlusKey;
0475			print "<pre>\n";
0476			foreach (0 .. $#ArchitectPlusKey) {
0477				$_ = sprintf("%04d",$_);
0478				print "<font color=\"gray\">$_,</font>$ArchitectPlusKey[$_],$ArchitectPlus{$ArchitectPlusKey[$_]}\n";
0479			}
0480			print "</pre>\n";
0481			print "<hr noshade size=\"1\">\n\n\n";
0482			#COUNTRY
0483			print "<p><b><font size=\"5\">Country</b></font></p>\n";
0484			@CountryKey = keys %Country;
0485			@CountryKey = sort @CountryKey;
0486			print "<pre>\n";
0487			foreach (0 .. $#CountryKey) {
0488				$_ = sprintf("%04d",$_);
0489				print "<font color=\"gray\">$_,</font>$CountryKey[$_],$Country{$CountryKey[$_]}\n";
0490			}
0491			print "</pre>\n";
0492			print "<hr noshade size=\"1\">\n\n\n";
0493			#ARCHITECTURE TYPES
0494			print "<p><b><font size=\"5\">ArchitectureType</b></font></p>\n";
0495			@ArchitectureTypeKey = keys %ArchitectureType;
0496			@ArchitectureTypeKey = sort @ArchitectureTypeKey;
0497			print "<pre>\n";
0498			foreach (0 .. $#ArchitectureTypeKey) {
0499				$_ = sprintf("%04d",$_);
0500				print "<font color=\"gray\">$_,</font>$ArchitectureTypeKey[$_],$ArchitectureType{$ArchitectureTypeKey[$_]}\n";
0501			}
0502			print "</pre>\n";
0503			print "<hr noshade size=\"1\">\n\n\n";
0504			#AUTHOR
0505			print "<p><b><font size=\"5\">Author</b></font></p>\n";
0506			@AuthorKey = keys %Author;
0507			@AuthorKey = sort @AuthorKey;
0508			print "<pre>\n";
0509			foreach (0 .. $#AuthorKey) {
0510				$_ = sprintf("%04d",$_);
0511				print "<font color=\"gray\">$_,</font>$AuthorKey[$_],$Author{$AuthorKey[$_]}\n";
0512			}
0513			print "</pre>\n";
0514			print "<hr noshade size=\"1\">\n\n\n";
0515			#PREPARATIONDATE
0516			print "<p><b><font size=\"5\">PreparationDate</b></font></p>\n";
0517			@PreparationDateKey = keys %PreparationDate;
0518			@PreparationDateKey = sort @PreparationDateKey;
0519			@PreparationDateKey = reverse @PreparationDateKey;
0520			print "<pre>\n";
0521			foreach (0 .. $#PreparationDateKey) {
0522				$_ = sprintf("%04d",$_);
0523				print "<font color=\"gray\">$_,</font>$PreparationDateKey[$_],$PreparationDate{$PreparationDateKey[$_]}\n";
0524			}
0525			print "</pre>\n";
0526			print "<hr noshade size=\"1\">\n\n\n";
0527			#VAGUE
0528			print "<p><b><font size=\"5\">Vague</b></font></p>\n";
0529			@VagueKey = keys %Vague;
0530			@VagueKey = sort @VagueKey;
0531			print "<pre>\n";
0532			foreach (0 .. $#VagueKey) {
0533				$_ = sprintf("%04d",$_);
0534				print "<font color=\"gray\">$_,</font>$VagueKey[$_],$Vague{$VagueKey[$_]}\n";
0535			}
0536			print "</pre>\n";
0537			print "<hr noshade size=\"1\">\n\n\n";
0538			print $LineFooter;
0539			exit;#EXIT PROCESS
0540		}
0541	}
0542#VIEW
0543	if ($Form{'view'}) {#VIEW CODE
0544		if ($Form{'view'} eq 'code') {
0545			print "<title>$ScriptName</title>\n";
0546			print "</head>\n\n\n";
0547			print "<body bgcolor=\"#000000\" background=\"\" text=\"#FFFFFF\" link=\"#336699\" vlink=\"#B0C4DE\">\n\n\n";
0548			open(IN,"$ScriptPath") || &MakeErrorReport("Open Error : $ScriptPath");
0549			@Lines = <IN>;
0550			close(IN);
0551			#print "<p><i><font color=\"yellow\"><b><font size=\"5\">DebugMode $ScriptName BLOOD SWET &CODE</font></b></font></i></p>\n";
0552			print "<pre>\n";
0553			local($[) = 1;
0554			foreach (1 .. $#Lines) {
0555				$Lines[$_] =~s/</</g;
0556				$Lines[$_] =~s/>/>/g;
0557				$Lines[$_] =~s/#(.*)/<font color=\"red\"><b>#$1<\/b><\/font>/g;#MARK COMMENT Why couldn't I remove red?
0558				$Lines[$_] =~s/sub (.*)/<font color=\"yellow\"><b>sub $1<\/b><\/font>/g;#MARK SUBROUTINE
0559				$Lines[$_] =~s/\$/<b>\$<\/b>/g;#MARK VARIABLE
0560				$_ = sprintf("%04d",$_);
0561				print "<font color=\"gray\">$_</font>$Lines[$_]";
0562			}
0563			print "</pre>\n";
0564			print "<hr noshade size=\"1\">\n\n\n";
0565			print $LineFooter;
0566			exit;#EXIT PROCESS
0567		}
0568		if ($Form{'view'} eq 'list') {#VIEW LIST
0569			print "<title>$ScriptName</title>\n";
0570			print "</head>\n\n\n";
0571			print "<body bgcolor=\"#000000\" background=\"\" text=\"#FFFFFF\" link=\"#336699\" vlink=\"#B0C4DE\">\n\n\n";
0572			open(IN,"$GenerateOriginPath") || &MakeErrorReport("Open Error : $GenerateOriginPath");
0573			@Lines = <IN>;
0574			close(IN);
0575			foreach $LineNo (1 .. $#Lines) {
0576				&MakeLineContent($Lines[$LineNo], $LayoutStyle);
0577				print $LineContent;
0578			}
0579			print $LineFooter;
0580			exit;#EXIT PROCESS
0581		}
0582		if ($Form{'view'}) {#VIEW MATRIX MAKE A TABLE
0583			if ($Form{'view'} eq 'query' || $Form{'view'} eq 'error') {$GenerateOriginPath = './query.csv';}
0584			print "<title>$ScriptName</title>\n";
0585			print "</head>\n\n\n";
0586			print "<body bgcolor=\"#000000\" background=\"\" text=\"#FFFFFF\" link=\"#336699\" vlink=\"#B0C4DE\">\n\n\n";
0587			open(IN,"$GenerateOriginPath") || &MakeErrorReport("Open Error : $GenerateOriginPath");
0588			@Lines = <IN>;
0589			close(IN);
0590			print "<p><i><font color=\"yellow\"><b><font size=\"5\">DebugMode $ScriptName Matrix $GenerateOriginPath</font></b></font></i></p>\n";
0591			print "<p><table border=\"1\" cellspacing=\"0\"><tr>\n";
0592			foreach (@Lines) {
0593				$_ =~ s/([^=^\"]|^)(http\:\/\/[\w\.\~\-\/\?\&\=\;\#\:\%]+)/$1<a href=\"$2\" target=\"_top\">$2<\/a>/g;#MAKE HYPER LINK
0594				$_ =~s/,/<\/td><td nowrap>/g;
0595				print "<tr><td nowrap>$_</td></tr>\n\n\n";
0596				}
0597			print "</table></p>\n\n\n";
0598			print $LineFooter;
0599			exit;#EXIT PROCESS
0600		}
0601	}
0602
0603
0604#NO QUERY SRING
0605	if (1) {
0606		print "<title>$ScriptName</title>\n";
0607		print "</head>\n\n\n";
0608		print "<body bgcolor=\"#000000\" background=\"\" text=\"#FFFFFF\" link=\"#336699\" vlink=\"#B0C4DE\">\n\n\n";
0609		if ($QueryHow) {print $LineQueryHow;}
0610		print $LineQueryForm;
0611		print "<hr noshade size=\"1\">\n\n\n";
0612		print $LineFooter;
0613		exit;#EXIT PROCESS
0614	}
0615
0616
0617#FUNCTION MAKE AN ERROR REPORT
0618	sub MakeErrorReport {
0619		print "<hr noshade size=\"1\">\n";
0620		print "<p align=\"center\"><b>AN ERROR OCCURTED.</b></p>\n";
0621		print "<p align=\"center\"><font color=\"red\"><b>$_[0]</font></b></p>\n";
0622	}
0623
0624
0625#FUNCTION MAKE A LINE CONTENT
0626	sub MakeLineContent {
0627		if ($LayoutStyle eq 1 || $LayoutStyle eq 2) {#LAYOUT STYLE 1 BLACK / 2 WHITE
0628			@Fields{'documentno','architecturehead','architecture','architecturejp','architecturejpkana','url','photograph','country','countryjp','location','locationjp','architecthead','architect','architectjp','architecturetype','architecturetypejp','author','preparationdate','vague'} = split(/,/, $_[0]);#SPLIT LINE
0629			if ($Fields{'architect'})	{$Fields{'architect'} .= "<br>";}
0630			if ($Fields{'architectjp'})	{$Fields{'architectjp'} .= "<br>";}
0631			if (!$Fields{'url'})	{$Fields{'url'} = './error.html';}
0632			if (!$Fields{'photograph'} || !$DoYouSeeConnection)	{@Fields{'photograph'} ='./error.gif';}
0633			$LineContent = "<p align=\"center\"><a name=\"$Fields{'documentno'}\"></a>
0634<a href=\"$Fields{'url'}\" target=\"_top\"><img border=\"4\" src=\"$Fields{'photograph'}\" alt=\"$Fields{'architecture'} $Fields{'architecturejp'}\"></a></p>
0635<p><b>$Fields{'architecture'}</b><br>
0636$Fields{'location'} $Fields{'country'}<br>
0637$Fields{'architect'}
0638<b>$Fields{'architecturejp'}</b><br>
0639$Fields{'countryjp'} $Fields{'locationjp'}<br>
0640$Fields{'architectjp'}
0641$Fields{'author'} $Fields{'documentno'}</p>
0642<hr noshade size=\"1\">\n\n\n";
0643		}
0644		if ($LayoutStyle eq 3) {#LAYOUT STYLE 3 WHITE
0645			&jcode::convert(\$Line, 'euc','sjis');#CONVERT TO EUC
0646			@Fields{'documentno','architecturehead','architecture','architecturejp','architecturejpkana','url','photograph','country','countryjp','location','locationjp','architecthead','architect','architectjp','architecturetype','architecturetypejp','author','preparationdate','vague'} = split(/,/, $_[0]);#SPLIT LINE
0647			if (!$Fields{'url'})	{$Fields{'url'} = "./error.html";}
0648			if (!$Fields{'photograph'} || !$DoYouSeeConnection) {$Fields{'photograph'} ='./error.gif';}
0649			$LineContent = "<p><a name=\"$Fields{'documentno'}\"></a>
0650<table border=\"0\" cellspacing=\"14\">
0651  <tr>
0652    <td valign=\"top\" width=\"140\"><a href=\"$Fields{'url'}\" target=\"_top\"><img border=\"1\" src=\"$Fields{'photograph'}\" alt=\"$Fields{'architecture'}\"></a></td>
0653    <td valign=\"top\">
0654    <p>Architecture Name : <a href=\"$Fields{'url'}\" target=\"_top\"><b>$Fields{'architecture'}</b></a><br>
0655      Architecture Type : $Fields{'architecturetype'}<br>
0656      Architect : $Fields{'architect'}<br>
0657      Location : $Fields{'location'}<br>
0658      Country : $Fields{'country'}<br>
0659      Note : $Fields{'note'}<br>
0660      Author : $Fields{'author'}<br>
0661      Preparation Date : $Fields{'preparationdate'}<br>
0662      Document Number : $Fields{'documentno'}</p>
0663      <p>ʪ̾ : <a href=\"$Fields{'url'}\" target=\"_top\"><b>$Fields{'architecturejp'}</b></a><br>
0664      եꥬ : $Fields{'architecturejpkana'}<br>
0665      Ūڤ : $Fields{'architecturetypejp'}<br>
0666      ̾ : $Fields{'locationjp'}<br>
0667      ߷׼̾ : $Fields{'architectjp'}<br>
0668      ̾ : $Fields{'countryjp'}<br>
0669       : $Fields{'note'}<br>
0670      ʸ : $Fields{'author'}<br>
0671       : $Fields{'preparationdate'}<br>
0672      ʸֹ : $Fields{'documentno'}</p>
0673  </tr>
0674</table>
0675<hr noshade size=\"1\">\n\n\n";
0676		&jcode::convert(\$LineContent, 'sjis','euc');#CONVERT TO SJIS
0677		}
0678	}

GENERATOR CODE