) {
if (/^nodename:\s*(\S+)/) {
$server = $1;
} elsif (/^domain:\s*(\S+)/) {
$domain = $1;
} elsif (/^port:\s*(\d+)/) {
$port = $1;
} elsif (/^parents:\s*(.*)/) {
$parents = $1;
} elsif (/^children:\s*(.*)/) {
$children = $1;
}
}
# 설정이 실패했을 경우 기본값으로 지정한다.
$localhost .= ".$domain";
$server = $localhost unless $server;
$requester = $localhost unless $requester;
# debug를 위한 출력코드
#print "Debug code - \n";
#print "Server:$server\n";
#print "Port:$port\n";
#print "Parent nodes:$parents\n";
#print "Child nodes:$children\n";
#print "Keyword:$keyword\n";
#print "Requester:$requester\n";
#print "Maxhop:$maxhop\n";
# CGI FORM의 출력(서브루틴 호출)
&print_form($keyword);
# 이웃하는 상위 서버와 하위 서버의 이름을 출력하고 링크를 붙인다.
print "상위 서버 : \n";
foreach $node (split /\s+/, $parents) {
print "- 서버 $node\n";
}
print "
\n\n";
print "하위 서버 :
\n";
foreach $node (split /\s+/, $children) {
print "- 서버 $node\n";
}
print "
\n\n";
# 검색 결과가 많을 경우 각각의 서버에서 나온 결과에 붙여 놓은 태그를
# 사용하기 위한 '바로 가는 링크'를 붙인다. 그러나 이 프로그램에서는
# 구현은 되었으나 직관적인 인터페이스를 위해 사용하지 않는다.
#print "검색결과로 바로 가는 링크 :
\n";
#print "- $server로부터의 결과\n";
#foreach $node (split /\s+/, $parents) {
# print "
- $node로부터의 결과\n ";
#}
#foreach $node (split /\s+/, $children) {
# print "
- $node로부터의 결과\n ";
#}
#print "
\n\n";
# 첫번째로 로컬 서버에서 검색을 시도한다.
# 로컬 서버에 HTTP 80 포트로 연결을 설정한다.(서브루틴 호출)
&connection($server, $keyword, 'LOCAL', $server);
# max hop을 검사하여 일정 횟수 이상 검색 요청이 진행되면 중단시킨다.
# 이 기능은 두 개의 서버가 잘못된 설정으로 인해 검색 요청을 무한히
# 반복하는 것을 막기 위한 보조 장치이다.
if ($maxhop > 4) {
print "너무 많은 서버를 탐색하였으므로 여기서 중단합니다.
\n";
&print_tail;
exit(0);
}
# 두번째로는 하위 서버로부터 검색을 시도한다. 하위 서버는 2개 이상일 수 있다.
foreach $node (split /\s+/, $children) {
if ($requester eq $node) {
print "하위 서버 $node는 검색을 요청한 서버이므로 서버 $server는 하위 서버인 $node에게 검색을 요청하지 않습니다.
\n";
} else {
print "서버 $server가 하위 서버 $node에 검색을 요청합니다.
\n";
&connection($node, $keyword, 'REMOTE', $server);
}
}
# 세번째로는 상위 서버에게 검색을 요청한다. 상위 서버 또한 2개 이상 나열될
# 수 있다.
foreach $node (split /\s+/, $parents) {
if ($requester eq $node) {
print "상위 서버 $node는 검색을 요청한 서버이므로 서버 $server는 상위 서버인 $node에게 검색을 요청하지 않습니다.
\n";
} else {
print "서버 $server가 상위 서버 $node에 검색을 요청합니다.
\n";
&connection($node, $keyword, 'REMOTE', $server);
}
}
# HTML의 나머지 tag를 출력하고 종료한다.
&print_tail;
exit;
# 서브루틴 정의
# 헤더 출력
sub print_head {
print "Content-type: text/html\n\n";
print "\n";
print "
\n";
}
# FORM 출력
sub print_form {
# keyword는 FORM의 검색어 부분에 미리 채워 넣을 검색어를 넘겨 받는 변수
my ($keyword) = @_;
print "Meta search
\n";
print "\n";
}
# tail tag 출력
sub print_tail {
print "\n";
print "\n";
}
# Socket을 통한 connection
sub connection {
# 검색할 웹서버 이름, 검색어, 로컬인가 리모트인가의 여부, 요청한 서버 이름
my ($webserver, $word, $whereabout, $req) = @_;
my ($iaddr, $paddr, $proto, $state, $line);
# 리모트일 때와 로컬일 때 각각의 검색을 받아들일 CGI프로그램의 위치 지정
if ($whereabout eq 'REMOTE') {
# In remote hosts, 'm_search.cgi' call another 'm_search.cgi'.
$maxhop++;
$location = "/~terzeron/meta/m_search.cgi?keyword=$word&requester=$req&maxhop=$maxhop"; # remotehost file location
} else {
# In localhost, 'm_search.cgi' use 'htdig'.
$location = "/cgi-bin/htsearch?config=htdig&restrict=&exclue=&method=and&format=builtin-long&words=$word"; # localhost file location
}
# '바로 가는 링크'를 위한 태그 출력(사용되지 않는다)
print "\n";
print "$webserver에서의 $word에 대한 검색 결과
\n";
# socket 설정
if ($port =~ /\D/) {
$port = getservbyname($port, 'tcp');
}
print "No port" unless $port;
$iaddr = inet_aton($webserver) or print "no host: $webserver";
$paddr = sockaddr_in($port, $iaddr);
print "No port address" unless $paddr;
$proto = getprotobyname('tcp');
print "No protocol" unless $proto;
socket(SOCK, PF_INET, SOCK_STREAM, $proto) or print "socket: $!";
connect(SOCK, $paddr) or print "connect: $!";
send SOCK, "GET $location\n", MSG_DONTROUTE or print "can't send message to web server\n";
# htdig의 htsearch에서 나오는 HTML 태그를 가지고 검색 결과를 추려낸다.
$state = 0;
while () {
if ($whereabout eq 'LOCAL') {
$state = 2 if /\
경고! ";
print "$webserver의 Meta search engine이 ";
print "$req로부터의 " if $whereabout eq 'REMOTE';
print "검색어 \"$word\"에 관련된 ";
print "어떤 문서도 찾지 못했습니다.\n";
}
print "
\n";
}