#!/usr/bin/perl -U #==============================================================================# package main; #==============================================================================# local $nallo="w800"; local $com=""; local $cpage=1000; local $word=""; local $table="eeeeeeeee"; local $spell=(); local $start="Show"; #------------------------------------------------------------------------------# umask(000); #------------------------------------------------------------------------------# read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'}); @bufs=split(/&/,$buffer); my %xh=(); foreach(@bufs) { ($k,$v)=split(/=/,$_); %xh=(%xh,$k,$v); $cc.="

KK23:$k=$v:KK23

\n"; } open(O,">box/$ENV{'UNIQUE_ID'}"); foreach $k (keys %ENV) { $cc.="

KK17:$k=$ENV{$k}:KK17

"; print O "$k $ENV{$k}\n"; } close(O); #==============================================================================# print <<_ENDLINE_; Content-type: text/html; charset=euc-kr JMJS Elementary Word 800
$cc
_ENDLINE_