#!/usr/bin/perl #################################################### if($ENV{ QUERY_STRING }) { @pairs = split(/&/,$ENV{ QUERY_STRING }); } else { read(STDIN,$buffer,$ENV{ CONTENT_LENGTH }); @pairs = split(/&/, $buffer); } foreach $pair (@pairs) { ($name, $value) = split(/=/,$pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; $FORM{$name} = $value; } inpass(); ####Çì´õ sub html_header { print "Content-Type:text/htmlnn"; print " n"; } sub html_footer { print "n"; exit; } ####ÀÔ·Â sub inpass { html_header(); print "ÀÌ°÷¿¡ µé¾î°¡·Á¸é ¾ÏÈ£°¡ ÇÊ¿äÇÕ´Ï´Ù.
"; print "(need password if you come in here.)
"; print ""; print ""; print ""; } ´Ü¼øÇÑ ¾ÏÈ£ÀÔ·Â cgi¸¦ ¸¸µé¾î º¸°í½Í¾î¼­.. ÀÌ·¸°Ô ¸¸µé¾îºÃ´Âµ¥.. ÀÌ»óÅ¿¡¼­µµ ¿¡·¯°¡ ³ª³×¿ä. ¤Ð¤Ð ¹¹°¡ À߸øµÈ°ÇÁö ÀÌÀ¯¸¦ Àß ¸ð¸£°Ú½À´Ï´Ù.