메타검색을 만들기 위한 file함수 및 fsockopen함수를 이용 검색 예제 소스


http://dev.previl.net/index.php?channel=down&code=down&pmode=view&no=14

fsockopen이용해 file함수 처럼 사용하기
http://dev.previl.net/index.php?channel=tip&code=tip&pmode=view&no=11



php의 file()과 같은 기능을 하는 함수 입니다.

$test =  getURLPage("http://previl.net");
$test는 1~xxx라인까지 내용을 배열로 저장합니다.

p.s : previl.net의 내용을 그대로 보여주기 위해서는 $test= join("\r\n",$test); 이렇게 다시 배열을 합치면 됩니다.


/*
###############################################
    ::: file() 기능함수 :::         
    사용방법 : getURLPage("사이트주소");
    ex) $test =  getURLPage("http://previl.net");
###############################################
*/

function getURLPage($url) {

    if(!$tmp = parse_url($url)) return 0;
    if($tmp['scheme'] != "http") return 0;
    $host = $tmp['host'];
    $port = ($tmp['port']) ? $tmp['port'] : 80;
    $path = ($tmp['path']) ? $tmp['path'] : "/";
    $para = ($tmp['query']) ? $tmp['query'] : "";

    $fp = @fsockopen($host, $port, &$errno, &$errstr, 10);
    if(!$fp) return 0;

    $header = "GET ".$path.$para." HTTP/1.0\r\n";
    $header .= "Host: ".$host."\r\n";
    $header .= "User-agent: PHP/HTTP_CLASS\r\n";
    $header .= "\r\n";

    fputs($fp,$header);

    $ret = Array();
    while(!feof($fp)) {
        $ctr=fgets($fp, 1024);
        if ($ok) $ret[]= $ctr;
        if (strstr($ctr, "HTTP/1.1 404") && !$ok) break;
        if (strstr($ctr, "Content-Type: text/html")) $ok=1;
    }

    fclose($fp);

    return $ret ;

}

아래에 어떤 분이 군면제와 북한상황에 대해 글 올리셨기에 나름 군면제에 대해 올립니다.
(http://sir.co.kr/bbs/board.php?bo_table=cm_free&wr_id=309838&cc=0)


자세한 자료 조사해 봤습니다. - 공식언론자료인용(단, 2009년 자료는 아닙니다. 아직 없음)
---------------------------------------------------------------------------------------

1. 일반인 면제율 : 4%, 국회의원 본인 군면제율 : 24%(5배), 2세 군면제율 : 12%(2배)



2. 일반인 현역 입영비율 : 86%, 국회의원 및 고위공직자 포함 입영비율 : 46%

3. 본인 면제사유 :
- 감옥(독제정권 때 수감) : 야당 비율이 높다.
- 질병( 디스크, 수술 등) : 한나라당 비율이 높다.

4. 의원 2세의 면제 사유 :
- 87%가 질병으로 인한 면제 : 한나라당 아들들이 야당에 비해 3배로 질병이 많음.

5. 각 정당별 국방정책과 현재 상황 :
- 야당 : 복지와 언론자유 옹호정책 - 감옥 등의 사유를 제외하면 입영비율이 높다.
- 여당 : 안보를 강조하고 대북한 전쟁 강경 정책 - 군면제 비율이 높고 유난히 아픈 사람들이 많음.
(안보강경론자 중에서도 이런 경우가 많으나 국회의원 실명거론을 피하기 위하여 패스..)

6. 이명박정부 고위장관급 3명 중 1명 꼴로(33.3%) 군면제

7. 이명박정부 장차관급 군면제율 :
- 노무현정부 때부터 공개해 온 자를 포함했을 경우 - 8.8%
- 이명박정부에 의해 임명된 자를 합류할 경우 - 18.6% (면제율이 2배로 급상승)
- 대를 이어서 부자가 함께 면제된 장차관급도 3명.
- 이명박정부 초대 국무위원 후보자 13명 가운데 6명(38%) 군면제 : 신의 아들 클럽.

8. 이대통령측 면제 변론 : " '기관지 확장증' 사유로 인해 군대는 정말 가고 싶었지만 신체검사에서 탈락해 갈 수가 없었다" => 언론의혹 : 현대건설, 해외출장.. 그 체력으로 가능??

9. 원세훈 후보 면제 변론 : 무종으로 인하여 면제 받았으나 35세까지 예비군 훈련 받았다. => 74년 공무원신체검사 통과 후 76년 군신체검사 면제??

10. 우리나라 대통령 중 정상적으로 군생활을 모두 마친 사람은 군인대통령을 제외할 때 단 한명
: 박정희, 전두환, 노태우 대통령은 원래 군인이었다가 정권을 무력 점거한 경우이고, 그 외 일반인 중 정상입대자는 노무현대통령 단 1명 뿐임.
(그럼에도 불구하고 단 한명 뿐인 병장 노대통령은 군면제자들로부터 아직도 좌익, 빨갱이로 불리워지고 있음.. 먼훗날 역사책에 뭐라 기록될지 상당히 재밌어 보이는 현상임.)



이래도 전쟁을 누가 해야 하고 누가 죽어야 하는지 모르겠습니까?
아직도 장미빛 현혹에 눈을 가리고 살아오신 분들께는 이런 절망적인 자료를 드리게 된 것을 죄송스럽게 생각합니다. ^^;;

아.. 참고로, 전쟁 3년 지속시 여기 회원분들 중 대부분이 죽어야 할 운명을 가진 나이라는 거 잘 알고 계시죠??

아래 어떤 분께서 문의하셔서, 나름대로 찾아 봤습니다.
우리나라의 음악 저작권은 작곡자(작사자)가 죽은지 50년이 되어야 합니다.
그리고, 작곡은 하지 않고 연주자만 한 경우 그 음반이 발매된 이후 50년이 지나야 합니다.
발매는 최초로 발매된 때를 말합니다.(저작권법에 의하면, 음반에 음이 맨 처음 고정된 때)

발매된 지 50년 지난 앨범들 꽤 많이 있습니다.
대표적으로 몇 가지만 적어 드립니다.

- 바흐 무반주 첼로 조곡 - 파블로 카잘스 연주(1930년~39년 녹음)
- 브람스 및 엘가 첼로 협주곡, 부르흐 콜니드라이 등 - 파블로 카잘스 연주(1933년 녹음)
- 베토벤 첼로 소나타 전곡 - 파블로 카잘스(1930년~39년 녹음)
- 베토벤 교향곡 4번,5번,6번,7번 - 푸르트벵글러 지휘(1943년~44년 녹음)
- 베토벤 교향곡 3번, 9번 - 푸르트벵글러 지휘(1945년 녹음)
- 베토벤 교향곡 2번 - 토스카니니 지휘
- 쇼팽 녹턴 - 아루트르 루빈스타인 연주(1937년 녹음)
- 브람스 파가니니 주제에 의한 변주곡 - 빌헬름 박하우스 연주(1929년 녹음)
- 브람스 피아노 협주곡 1번 - 빌헬름 박하우스 연주(1932년 녹음)
- 그리그 피아노 협주곡 16번 - 빌헬름 박하우스 연주(1933년 녹음)
- 모짜르트 피아노 협주곡 26번 - 빌헬름 박하우스 연주(1940년 녹음)
- 오페라 라 보엠 전곡 - 토스카니니 지휘(1946년 녹음)
- 비외탕 바이올린 협주곡, 베토벤 바이올린 협주곡(토스카니니 지휘) - 야샤 하이페츠 연주
- The Virtuoso Hdifetz(바이올린 소품 19곡 모음) - 야샤 하이페츠 연주
- Jascha Heifetz(비탈리 사콘느, 비예니아프스키 등 수록) - 야샤 하이페츠 연주
- 비탈리 사콘느 등 바로크&낭만파 소품 모음 - 나탄 밀스타인 연주(1936~40년 녹음)
- 라흐마니노프 피아노협주곡 1번~4번 - 라흐마니노프 본인 연주(1929년~41년 녹음)
- 베토벤 피아노 소나타 전곡 - 아르투르 슈나벨 연주(1927년 녹음)
- 쇼팽 전집 - 알프레드 코르토 연주(1933년 녹음)
- 바흐 평균율 클라이버 전곡 - 에드윈 피셔 연주(1933년~36년 녹음)
- 바흐 골드베르크 변주곡 - 글렌 굴드 연주(1955년 녹음)
- 베토벤 바이올린 소나타 5번,9번,10번 - 프리츠 크라이슬러 연주
- 베토벤 피아노 소나타집 - 아르투르 슈나벨 연주(1933~35년 녹음)
- 차이코프스키 교향곡 4번,5번,6번 - 빌렘 멩겔베르그 지휘(1928~37년 녹음)
- 바흐 마테 수난곡 - 빌렘 멩겔베르그 지휘(1939년 녹음)
- 쇼팽 왈츠, 녹턴 - 디누 리파티 연주
- 모짜르트 피아노 협주곡 21번 - 디누 리파티 연주
- 베토벤 피아노 협주곡 1번,5번, 피아노소나타 23번(열정) - 발터 기제킹 연주
- 모짜르트 피아노 협주곡 9번, 피아노소나타 17번 - 발터 기제킹 연주
- 드뷔시 전집 - 발터 기제킹 연주
- 세고비아 초기 명연집(바흐,알베니즈 등) - 안드레스 세고비아 연주(1927~39년 녹음)
- 오페라 나비부인 - 카라얀 지휘 - 마리아 칼라스(소프라노,초초상 역할)(1955년8월 녹음)
- 오페라 아리아 모음집 - 베냐미노 질리(벨칸토 테너)
- 오페라 아리아 모음집 - 페루치오 탈리아비니(테너)
- 오페라 아리아 모음집 - 유시 비욜링(테너)
- 오페라 아리아 모음집 - 지우세페 디스테파노(테너)(1944년~50년대 녹음)
- 슈베르트 겨울나그네 - 게르하르트 휘슈(바리톤)(1933년 녹음)

이 외에도 찾아보면 많이 있을 듯 합니다...^^


클래식 말고 재즈 앨범이나 샹송,칸초네 등도 잘 찾아 보면 꽤 있습니다.

재즈앨범은 1959년7월17일 사망한 빌리 홀리데이를 추천합니다.
이제 2개월 정도만 기다리면 되겠네요..^^
장고라인하르트(재즈 기타리스트) 전집도 추천합니다.
프랑스의 최고 샹송가수 에디트 피아프는 1963년 사망했군요..조금만 기다리면

스누피 이용한 시작페이지의 파싱



관련페이지 : http://sir.co.kr/bbs/board.php?bo_table=cm_free&wr_id=323120
다운 필요한 것 : Snoopy.class.php (36.9K)




//파일 저장
if (!function_exists('file_put_contents')) {

  function file_put_contents($filename, $data) {

    $f = @fopen($filename, 'w');
    if (!$f) {
      return false;
    }
    else {
      $bytes = fwrite($f, $data);
      fclose($f);
      return $bytes;
    }
  }
}



//파일읽기
if (!function_exists('file_get_contents')){

  function file_get_contents($filename){

    $fhandle = fopen($filename, "r");
    $fcontents = fread($fhandle, filesize($filename));
    fclose($fhandle);

    return $fcontents;
  }
}



//htmlspecialchars  한것 디코딩
if (!function_exists('htmlspecialchars_decode')) {

  function htmlspecialchars_decode($string, $quote_style = ENT_COMPAT) {

    return strtr($string, array_flip(get_html_translation_table(HTML_SPECIALCHARS, $quote_style)));
  }
}



//캐시 파일 읽어오기
function cache_read($cache_file, $time){

  if (!is_file($cache_file)) return '';

  if (filemtime($cache_file) < time() - $time) return '';

  $result = file_get_contents($cache_file);

  return $result;
}



//캐시 파일 저장하기
function cache_save($cache_file, $text){

  $result = file_put_contents($cache_file, $text);

  return $result;
}



//캐시 파일 삭제하기
function cache_del($cache_dir, $time){

  $d = dir($cache_dir);

  while (false !== ($entry = $d->read())) {

    if (preg_match("`^\.`", $entry)) continue;

    $cache_dir2 = $cache_dir . '/' . $entry;
    if (is_dir($cache_dir2)) {

      cache_del($cache_dir2, $time);
    }
    else {

      if (filemtime($cache_dir2) < time() - $time) unlink($cache_dir2);
    }
  }

  $d->close();
}



//스누피 기본 세팅
function set_sp($proxy=''){

  $sp = new Snoopy();

  $sp->rawheaders["Pragma"] = "no-cache";
  $sp->offsiteok = false;
  $sp->expandlinks = false;

  if (!empty($proxy)) {

    list($sp->proxy_host , $sp->proxy_port) = explode(':', $proxy);
    $sp->proxy_host = trim($sp->proxy_host);
    $sp->proxy_port = trim($sp->proxy_port);

    if (!empty($sp->proxy_host) && !empty($sp->proxy_port) && is_numeric($sp->proxy_port)) {

      $sp->_isproxy = true;
    }
  }

  return $sp;
}



//스누피 페이지 읽음, get
function fetch_sp(&$sp, $url, $referer=''){

  if (!empty($referer)) $sp->referer = $referer;

  if (!$sp->fetch($url)) return false;
  $sp->setcookies();

  return true;
}



//스누피 페이지 읽음, post
function submit_sp(&$sp, $url, $data, $referer=''){

  if (!empty($referer)) $sp->referer = $referer;

  if (!$sp->submit($url, $data)) return false;
  $sp->setcookies();

  return true;
}



//간단하게 웹페이지 읽어옴
function read_simple($url, $referer='', $proxy=''){

  $sp = set_sp($proxy);

  if (!fetch_sp(&$sp, $url, $referer)) return 'fail : fetch : ' . $url;

  $results = $sp->results;
  unset($sp);

  return $results;
}

프레임 사용시 F5 눌렀을때 인덱스로 않가게 하기



// 프레임 고정
$LastModified = gmdate("D d M Y H:i:s", filemtime($HTTP_SERVER_VARS[SCRIPT_FILENAME]));
header("Last-Modified: $LastModified GMT");
header("ETag: "$LastModified"");
// 프레임 고정 끝