Net::SSLeay 을 사용한 ssl connection

use Net::SSLeay qw(get_https post_https sslcat make_headers make_form);

# get method 
($page, $response, @headers) = get_https('dnshopadmin.shop.daum.net', 443, '/bo2/login/Login');
  for ($i = 0; $i < $#headers; $i+=2) {
     print "$headers[$i] = " . $headers[$i+1] . "\n";
  }

  print "\n=========================\n";

#post method
($page, $response, @headers) = post_https('dnshopadmin.shop.daum.net', 443, '/bo2/login/LoginCheck', '',
               make_form(
                ret_url  => "/bo2/login/Main",         
         login_type => "comp",
  usrid   => $https_user,
  password  => $https_pass,
               ));
              
  for ($i = 0; $i < $#headers; $i+=2) {
     print "$headers[$i] = " . $headers[$i+1] . "\n";
  }

open-ssl의 version 변경

1.12 interpark도 ssl을 도입했음
1. ppm install http://theoryx5.uwinnipeg.ca/ppms/Crypt-SSLeay.ppd
설치 후

2. ppm을 사용해서 삭제

3. open ssl 재 설치
perl Configure VC-WIN32 --prefix=c:/openssl
ms\do_ms
nmake -f ms\ntdll.mak

테스트 실행 무지 긴장 된다.
nmake -f ms\ntdll.mak test

설치 중 여기까진 이상이 없군
nmake -f ms\ntdll.mak install

파일들을 복사하고 마지막으로 update까지 실행
perl util\mkdef.pl crypto ssl update

4. 다시 ppm을 사용하여 Crypt::SSleay를 설치
ppm install http://theoryx5.uwinnipeg.ca/ppms/Crypt-SSLeay.ppd



다음의 open ssl이 바뀌었나?

1. Crypt::SSLeay 을 ppm을 사용해 삭제 함

window용
ppm install http://theoryx5.uwinnipeg.ca/ppms/Crypt-SSLeay.ppd


2. open ssl 설치
  perl Configure VC-WIN32 --prefix=c:/openssl 을 실행했더니
  c:/som/openssl밑에 설치 됨
  실행 명령 리스트
  ms\do_ms
  nmake -f ms\ntdll.mak
  : 이전에 Crypt를 삭제 하기 전에는 오류가 발생했으나 정상 작동 함
   nmake -f ms\ntdll.mak test
   nmake -f ms\ntdll.mak install

   기존의 디렉토리에 복사
   $ copy /b inc32\openssl\*       c:\openssl\include\openssl
   $ copy /b out32dll\ssleay32.lib c:\openssl\lib
   $ copy /b out32dll\libeay32.lib c:\openssl\lib
   $ copy /b out32dll\ssleay32.dll c:\openssl\bin
   $ copy /b out32dll\libeay32.dll c:\openssl\bin
   $ copy /b out32dll\openssl.exe  c:\openssl\bin

3. Crypt::SSLeay 을 ppm을 사용해 재 설치

   다음은 Server: Apache/1.3.33 (Unix) Resin/2.1.12 mod_ssl/2.8.22 OpenSSL/0.9.7e 를 사용중
   설치된 OpenSSL은 openssl-0.9.8d 임 맞춰 봐야겠음

영감님의 전성기는 언제 입니까?

전 지금입니다. 읍~~
농구 정말 좋아 합니다. 읍~~

오늘을 살아가는 나도 매일매일을 전성기로 만들어야겠다. 흠흠

기독교도들에 대한 명언 - 이상봉 ㅋㅋ

블로그 돌아다니면서 본건데 나름 공감이 가네요.

기독교도들은 이승도 모르면서 저승에 대해 다 알고 있는 듯이 설치고,
제 마음도 모르면서 하늘의 뜻을 다 알고 있는 듯이 설치고,
사랑이 뭔지도 모르면서 하느님의 사랑을 알고 있다고 설치고,
같은 인간끼리 대화도 하지 못하면서
하느님과 언제나 대화를 하고 있다고 떠들고,
죄는 사람에게 저질러 놓고서
하느님 앞에 죄인이라고 떠들고,
이세상에 살고 있으면서 이 세상의 잣대로
자기를 판단하지 말라고 떠드는 자들의 집합체이다.

[이상봉-재미 철학자]

javascript 시간표시 분, 초, 밀리세컨드

<SCRIPT LANGUAGE="JAVASCRIPT">
<!--

var d = new Date();
var curr_hour = d.getHours();
var curr_min = d.getMinutes();

var curr_sec = d.getSeconds();
var curr_msec = d.getMilliseconds();

document.write(curr_hour + ":" + curr_min + ":" 
+ curr_sec + ":" + curr_msec);

//-->
</SCRIPT>

혜승과 홈에버 다녀 옴

까르프가 홈에버로 바뀌었다길래 다녀왔다.
확실히 예전보다 인테리어나 모든 면이 화려해 진건 사실이었다.

하지만 ..비싸다는거..까르프 돌아와줘~~~

Win32::OLE를 사용해 Recordset 객체 생성

#
# date OLE 생성
#
use Win32::OLE::Variant;
  
use Win32::OLE qw(in with);

# global 변수 정의
my $m_RS;

# 초기화
if ( &init() )
{
# 초기화 완료 후 data가져오기 실행해야 함
&queryData();
}

# 초기화
# date: 2006.11.24 - jk.ryu
sub init()
{
print "초기화 시작\n";

eval { $m_RS = Win32::OLE->new('ADODB.Recordset'); };   # creates a recordset
die "Recordset 생성 실패" if $@;

return true;
}

참아야 하느니라..

참아라..

Win32::IE::Mechanize 사용한 form 내용 확인

  use Win32::IE::Mechanize;

  my $url = "http://";    
  $ie->get( $url );

  # form의 정보 조회
  @webforms = $ie->forms;
  my $f = $webforms[0] or die "Couldn't get first form!\n";
  my @items = $f->inputs;
 
  #    or die "Couldn't get items in first form!\n";
  #
  ## iterate through items, prompt user, commit actions
  foreach my $item (@items) {
      # show item info
      my $sender = $item->name;
      print "$sender";
      print "\n";
  }

미래를 경영하라

PSF (Professional Service Firm) 가 되어라!!!

서비스란 무엇인가? 2006.11.20

흠..온갖 귀챦은 것들이 서비스란 표현으로 설명될 수 있음

GE 인더스트리얼 시스템즈
  차단기를 만들던 GE는 지금은 통합 시설 서비스를 판매하며 차단기를 덤으로 주고 있다.

지멘스
  의료 산업에 프로그램 서비스 제공하는 업체중 세계 최고이다

UPS
  공급 사슬 활동에 필요한 모든 비즈니스 수행

홈디포
  상품판매 업체에서 홈서비스 판매업체로 변화 - 가옥 개조에 들어가는 모든 비용을 긁어모  음 => 잔디와 정원관리, 지안청소, 위락시설 설치및 유지보수, 보안시스템등을 한자리에서 파매한다 이는 일에 찌든 맞벌이 부부에겐 반가운 소식.

건설업체들
  시설관리 서비스(건물에서 발생하는 모든 귀챦은 업무를 대행)를 제공하는 업체들의 시대가 올 것이다, 액센츄어가 EDS의 턴키 IS관리에 맞먹는 턴키 시설 관리 서비스를 제공하고자 힘쓰고 있다.

융합 및 통합에 힘쓰는 업체들..

소유하지 말고 모든걸 빌려 쓰라..? 왜?
  신발까지도 빌려쓰라..비용이 더 드는걸? 흠흠..몰까?

PSF가 제공하는 것
  제약회사 임상 서비스 - 래드언트리서치
  제약회사 리서치
  자동차 프로토타입 제작 서비스
  콜센터 관리
  학교 운영
교도소 운영
  턴키방식의 물류관리
  직원의 복리후생관리
  모든 종류의 시설관리
 
왜 ??
  전자 인사관리 부서가 왜 필요하지?
  모든 정보가 공유되고 개방되어 자신의 일을 스스로 관리하는게 가능?

PSF의 네가지 룰
  1. 상품화
  2. 웹화
  3. 잘할 수 없으면 외주
  4. 정말로 잘할 수 있으면 세계 최고가 되어라.

인사부서가 그냥 인사부서로 남을 것인가?
  세계 최고의 인재를 구성하는 팀...와 멋지다.

=> 시장을 장악해버릴 멋진 통합 서비스..-> 상품화 미친듯이..
    뭐든 상품화 해버려야 한다.

지식산업의 인간의 완성형은 => 프로젝트를 추진하는 인간

마찰없는 조직?
  문제 있는 조직일 수 있다? => 흠흠

[win] 비프음 제거

HKEY_CURRENT_USER\Control Panel\Sound
* Sound 라는 키가 보이지 않으면 새로 만들어 줍니다.
오른쪽 창에서 등록-문자열 값(S)
키 이름: Beep
기본값 : NO

아 첫 글입니다.

첫 글 앞으로 어떻게 채워나가야 할지..
네이버에서 이사왔죠 왠지 네이버는 답답한 기분이 들어서 ..