---

�O �� �V10 1- �� ����

---

[293]����������PHP 2009/09/28(��) 12:01:39 ID:sIvV3gxc
bbs.cgi�ݒ�
�ݒu�ꏊ�FCORESERVER.JP
/public_html/����/bbs18/test/
�y���g�z
#!/usr/local/bin/perl

# POST�f�[�^��ǂݍ���
read(STDIN, $post, $ENV{'CONTENT_LENGTH'});

# ���[�U�G�[�W�F���g�I�u�W�F�N�g�𐶐�����
use LWP::UserAgent;
$ua = new LWP::UserAgent;
$ua->agent($ENV{HTTP_USER_AGENT});

# ���N�G�X�g�𐶐�����
my $req = new HTTP::Request POST => '��������://�h���C��/bbs18/test/bbs.cgi';#������URL�ɏ��������Ă�������
$req->header(Cookie => "NAME=name");
$req->header(Referer => "��������://�h���C��/perl/");
$req->header(Via => "ThroughTheLookingGlass " . $ENV{REMOTE_ADDR});
$req->content_type('application/x-www-form-urlencoded');
$req->content($post);

# ���N�G�X�g�����[�U�G�[�W�F���g�ɓn���A���X�|���X���󂯎��
my $res = $ua->request($req);

# ���X�|���X�̓��e���m�F����
print "Content-type: text/html\n\n";
if ($res->is_success) {
print $res->content;
}

---

�O �� ����

---

r.php ver2.5 (2005/03/28)