crontab

엇?...

저는

http://bbs.kldp.org/viewtopic.php?p=96316#96316

이글에 대한 답변으로 올릴 생각으로 제 machine의 crontab에 간단한 perl script 걸어 놓았는데...

시간이 되어도 답변이 올라오지 않자.. 실패했다라고 생각했는데.. 답글이 아니고 새글로 올라왔군요... 하하..

#!/usr/bin/perl

use IO::Socket;

#Made by Hojin Choi <pynoos@orgio.net>
use MIME::Base64;
my( $server ) = "211.39.143.150";

sleep 10;
$socket = IO::Socket::INET->new( PeerAddr=>$server, PeerPort=>80, Proto=>'tcp' ) or die "$!";
$socket->print(
'POST http://bbs.kldp.org/posting.php HTTP/1.0
Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-powerpoint, applicati
on/vnd.ms-excel, application/msword, */*
Referer: http://bbs.kldp.org/posting.php?mode=newtopic&f=8
Accept-Language: en-us,ko;q=0.5
Content-Type: application/x-www-form-urlencoded
Proxy-Connection: Keep-Alive
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; 앳파일 (atfile.com); .NET CLR 1.0.3705)
Host: bbs.kldp.org
Content-Length: 436
Pragma: no-cache
Cookie: XXXXXXXXXXXXXXXXXXXXXXXXXXXXX

subject=crontab&addbbcode18=%23444444&addbbcode20=12&helpbox=%B1%DB%B2%C3%BB%F6%3A+%5Bcolor%3Dred%5D%B9%AE%C0%DA%5B%2Fcolor%5D++%C6%
C1%3A+%BB%E7%BF%EB%B9%E6%BD%C4+color%3D%23FF0000&message=11%3A11%BA%D0%BF%A1+%BF%C3%B8%AE%B4%C2+%B1%DB%C0%D4%B4%CF%B4%D9.%0D%0AGool 
luck.&attach_sig=on&notify=on&topictype=0&add_attachment_body=0&posted_attachments_body=0&poll_title=&add_poll_option_text=&poll_len
gth=&mode=newtopic&f=8&post=%C1%A6%C3%E2');
while( $_ = $socket->getline() )
{
        print $_;
}

cookie 부분은 지우고 올립니다.
sleep 10이 있는 것은 제 machine이 10초정도 빠르다고 대략 측정되어.. 넣은 부분입니다.