|
|
 |
클라우드태그
Javascript PHP asp css mysql html jquery image Mobile API slide 게시판 메뉴
|
 |
| 현재접속자 명 |
 |
|
|
|
|
|
|
 3 |
| |
 544 |
| |
 2000-07-10 15:56:01 |
|
  |
|
|
 닉네임
|
Anonymous |
이메일
|
|
|
제목
|
다운받은 내용 보냅니다 |
|
내용
|
|
[다운받은 낙서장 일부거든요] 화면에 나올수 있게 도와주세요... #!/usr/bin/perl ################################################## # # #프로그램 : 신호철, gif파일 : 하지영 # #Homepage : any.to/cybershin, hereim.corea.to # #작성일자 : 99/11/10 # # # ################################################## $YourHomeURL = " http://home.hanmir.com/~7bar/";#여기에 홈페이지 상위메뉴를 적어주세엽 umask(0111); $Act = ""; $Method = $ENV{ REQUEST_METHOD }; if ($Method eq "GET") { $buffer = $ENV{ QUERY_STRING }; ($ValueName, $Act) = split(/=/,$buffer); } if ($Method eq "POST") { @list=(); $c = 0; read(STDIN, $QueryString, $ENV{ CONTENT_LENGTH }); @NameValuePairs = split (/&/, $QueryString); foreach $NameValue (@NameValuePairs) { ($Name, $Value) = split (/=/,$NameValue); $Value =~tr/ / /; $Value =~ s/%([dA-Fa-f][dA-Fa-f])/pack("C",hex($1))/eg; $list[$c] = $Value; $c =1; } $temp = pack("a1a1a300",$list[0],$list[1],$list[2]); $DocFile = "./doc.txt"; open(FILE,$DocFile); $docs = ;
close(FILE);
$docs ;
open(FILE,">$DocFile");
print FILE $docs;
close(FILE);
open(FILE,">$docs.txt");
print FILE $temp;
close(FILE);
$Act="";
}
&HTMLheader;
if ($Act eq "write") {
print << "ENDofFILE";
：：：낙서장：：：
| | |
