¾È³çÇϼ¼¿ä...

À̱ÛÀ» ÀÐ°í³ª¼­ ȨÆäÀÌÁö¿¡ ¼­Ä¡Ã¢À» ´Þ·Á°í cgi¸¦ ´Ù¿î¹Þ¾Æ ¼öÁ¤À» ÇÏ¿´´Âµ¥µµ °è¼ÓÇؼ­ ¿¡·¯°¡ ¹ß»ýÇÕ´Ï´Ù. ´©°¡Á» µµ¿ÍÁÖ¼¼¿ä
ȨÆäÀÌÁö´Â http://www.enen89.pe.krÀ̱¸¿ä ¼³Ä¡ÇÑ °÷Àº home/enen89/lsearch ÀÔ´Ï´Ù.

#!/usr/bin/perl
#############################################################################
#·ÎÄà ¼­Ä¡¿£Áø 0.1
#ÀúÀÛ±Ç: À±¼®¹ü
#¿¬¶ôó:http://ychat.iksan.ac.kr
#ÀúÀ۱ǼÒÀ¯:À±¼®¹ü
###############################################################################

$base_dir = "/home/enen89";
$base_url = "http://www.enen89.pe.kr";
@search_dir = ( , address , board , html , html/ham1 , html/ham2 , html/ham3 , html/ham4 , html/ham5 , html/ham6 , html/ham7 , data , data/envi , data/envi/en1 , data/envi/en2 , data/envi/en3 ,);
$cgi_url = "http://www.enen89.pe.kr/lsearch/index.cgi";
$logo = "$baase_url/lsearch/logo.gif";
@type = ( html , htm , txt );

############################################################################
&get_data;

if($FORM{ keyword } eq "") {
print "Content-Type: text/html

";
print "
";
print "

";
print "
";
print "
";
exit;
}

else {
@result = ();
@thred = ();

foreach $temp(@search_dir) {
opendir(DIR, "$base_dir/$temp");
@dirs = readdir(DIR);
closedir(DIR);

foreach $list(@dirs) {

$flag = 0;
foreach $match(@type) {
if($list =~ /$match/) {
$flag = 1;
last;
}
}

if($flag == 1) {

open(AA, "$base_dir/$temp/$list");
@a = ;
close(AA);

foreach $line (@a) {
if($line =~ /
";

$i = 0;
$to1 = $#result;
$tot = $to1+1;

print "

";
print "
";
foreach $prt(@result) {
print "
";
print "
";
$i++;
}
print "

ãÀº °á°ú $tot °³

$prt

$thred[$i]

---

";
exit;


###############################################################
sub get_data {
if ($ENV{ QUERY_STRING } ne "") {
@pairs = split(/&/, $ENV{ QUERY_STRING });
}
else {
$buffer = "";
read(STDIN, $buffer, $ENV{ CONTENT_LENGTH });
@pairs=split(/&/,$buffer);
}
foreach $pair (@pairs)
{
@a = split(/=/,$pair);
$name=$a[0];
$value=$a[1];
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/~!/ ~!/g;
$value =~ s/+/ /g;
# $value =~ s/ //g;
$value =~ s/ //g;
push (@data,$name);
push (@data, $value);
}
%FORM=@data;
%FORM;
}
######################################