END
}

sub DeleteData{
&LimitAccess;
&Err_Msg_Back('Deleting permission denied') if($cfg{'g_norm'}==1);

dbmopen %ct_data,$ct_file,0666 or Err_Msg_Back("wowboard error:\\n$msg{'eOpen'}");

&getIndex(\@indexes );
$inum=&findKey(\@indexes ,$in{'c'},$in{'i'});
&Err_Msg_Back('Data Not Found') if($inum<0);
&Err_Msg_Back($msg{'undeletable'}) if($ct_data{$indexes[$inum].'ch'}>0);
$passwd=crypt($in{'passwd'},substr($ct_data{$indexes[$inum].'pa'},0,2));
&Err_Msg_Back($msg{'ePasswd'}) if($passwd ne $ct_data{$indexes[$inum].'pa'});

unlink "$gcfg{updir}/".$ct_data{$indexes[$inum].'up'};
unlink "$data_directory/".$ct_data{$indexes[$inum].'ct'};
($del_th,$del_ch)=@ct_data{$indexes[$inum].'th',$indexes[$inum].'ch'};

if($del_th){
for($i=$inum-1;$i>=0;$i--){
if($ct_data{$indexes[$i].'th'}==$del_th-1){
$ct_data{$indexes[$i].'ch'}--;
last;
}
}
}

@indexes=(@indexes[0..($inum-1),($inum+1)..$#indexes]);
&saveIndex(\@indexes );

delete $ct_data{$indexes[$inum].'na',$indexes[$inum].'pa',$indexes[$inum].'em',
$indexes[$inum].'ti',$indexes[$inum].'da',$indexes[$inum].'we',
$indexes[$inum].'tm',$indexes[$inum].'co',$indexes[$inum].'do',$indexes[$inum].'ct',
$indexes[$inum].'re',$indexes[$inum].'up',$indexes[$inum].'ch',$indexes[$inum].'th'};

&Refresh("?kw=$in{'kw'}&bd=".&UrlEncode($in{'bd'})."&c=$in{'u'}");
}

sub DataWrite{
&LimitAccess;
&Err_Msg_Back('Permission denied') if($cfg{'g_nowr'}+$cfg{'g_nore'}+$cfg{'g_nomd'}==3);

$in{'id'}=~s/^[ \t]+//o;
$in{'id'}=~s/[ \t]+/ /g;
$in{'id'}=~s/$in{'title'}=~s/^[ \t]+//o;
$in{'title'}=~s/[ \t]+/ /g;
$in{'title'}=~s/$in{'email'}=~s/[ \t]+//g;
$in{'email'}=~s/$in{'content'}=~s/\t/ /g;

&Err_Msg_Back($msg{'wTitle'}) if ($in{'title'} eq '');
&Err_Msg_Back($msg{'wContent'}) if ($in{'content'} eq '');
&Err_Msg_Back($msg{'wScript'}) if ($in{'content'} =~/<[sS][cC][rR][iI][pP][tT]/);

local($sec,$min,$hour,$day,$mon,$year,$wday,@tmp)=localtime(time);
$mon=$mon+1;

$mon="0".$mon if($mon<10);
$day="0".$day if($day<10);
$hour="0".$hour if($hour<10);
$min="0".$min if($min<10);

$in{'content'}=~s/\r//g;

&SendMail($in{'email'},$in{'saddr'},
"$in{'id'}".($in{'email'}?"($in{'email'})":'').$msg{'sReply'},
"$msg{'title'}: $in{'title'}\n\n$in{'content'}\n") if($in{'smail'} eq 'yes');

&getIndex(\@indexes );

dbmopen %ct_data,$ct_file,0666 or Err_Msg_Back("wowboard error:\\n$msg{'eOpen'}");

if($in{'fix'}){
$inum=&findKey(\@indexes ,$in{'c'},$in{'i'});
&Err_Msg_Back('Data Not Found') if($inum<0);

$passwd=crypt($in{'passwd'},substr($ct_data{$indexes[$inum].'pa'},0,2));
&Err_Msg_Back($msg{'ePasswd'}) if($passwd ne $ct_data{$indexes[$inum].'pa'});

@ct_data{$indexes[$inum].'na',$indexes[$inum].'em',$indexes[$inum].'ti',
$indexes[$inum].'da',$indexes[$inum].'we',$indexes[$inum].'tm'}
=($in{'id'},$in{'email'},$in{'title'},"$year/$mon/$day",$wday,"$hour:$min:$sec");
if(open(CFILE,"> $data_directory/".$ct_data{$indexes[$inum].'ct'})){
print CFILE $in{'content'};
close CFILE;
}
&Refresh("?kw=".&UrlEncode($in{'kw'})."&bd=".&UrlEncode($in{'bd'}));
exit;
}
$in{'passwd'}=($in{'passwd'}?crypt($in{'passwd'},chr(rand(25)+65).chr(rand(25)+65)):'*');

$upname=$cgi_cfn{'upfile'};
if(($upname ne '')&&($gcfg{updir})&&($cfg{'g_noup'}==0)&&(-s $cgi_sfn{'upfile'})){
$upname=~s/.+\\//g;
$upname=~s/.+\///g;
$upname=~s/\s/\_/g;
$realname=$upname;
$i=0;
while(-e "$gcfg{updir}/$upname"){
$i++;
$upname="$i\_$upname";
}
if(open (SFILE, "< $cgi_sfn{'upfile'}")){
if(open (FILE, "> $gcfg{updir}/$upname")){
$buf='';
binmode(SFILE);
binmode(FILE);
while(read(SFILE,$buf,8192)){
print FILE $buf;
}
close(FILE);
close(SFILE);
}else{
close(SFILE);
unlink "$cgi_sfn{'upfile'}";
&Err_Msg_Back($msg{'eSave'});
}
}else{
unlink "$cgi_sfn{'upfile'}";
&Err_Msg_Back($msg{'eRead'});
}
}
unlink "$cgi_sfn{'upfile'}";

$new_filename=rand(99999999);
while(-e "$data_directory/$new_filename.txt"){
$new_filename++;
}
$newindex=(sort {$b <=> $a} @indexes)[0]+1;
if($in{'reply'}){
$inum=&findKey(\@indexes ,$in{'c'},$in{'i'});
&Err_Msg_Back('Data Not Found') if($inum<0);

$ct_data{$indexes[$inum].'ch'}++;
$thread=$ct_data{$indexes[$inum].'th'}+1;
@indexes=(@indexes[0..$inum],$newindex,@indexes[$inum+1..$#indexes]);
}else{
$thread=0;
@indexes=($newindex,@indexes);
}
&saveIndex(\@indexes );
@ct_data{$newindex.'na',$newindex.'pa',$newindex.'em',$newindex.'ti',$newindex.'da',
$newindex.'we',$newindex.'tm',$newindex.'co',$newindex.'do',$newindex.'ct',
$newindex.'re',$newindex.'up',$newindex.'ch',$newindex.'th'}
=($in{'id'},$in{'passwd'},$in{'email'},$in{'title'},"$year/$mon/$day",$wday,
"$hour:$min:$sec",0,0,$new_filename.'.txt',$realname,$upname,0,$thread);

if(open(CFILE,"> $data_directory/$new_filename.txt")){
print CFILE $in{'content'};
close CFILE;
}
&Refresh("?kw=".&UrlEncode($in{'kw'})."&bd=".&UrlEncode($in{'bd'}));
}

sub PrintHead{
return &PrintHeader
."\n\\n\n"

.&ReadFilePrint($head_file)
."\\n";
}

sub ShowBoard{
$image_dir=&checkIcon($cfg{icon});
local($total_data,$fore,$back,$total_line,$fp,$bp,$undeletable=1);
local(@nums,@indexes,@idxs,@id,@email,@title,@date,@weekday,@realname,@upname,@count,@dcount,@thread);

local @col1=('num','file','dcount','title','count','date','name');
local @col2=('size','tback','bback','tfore','bfore','show');

&fetchIndex('board');
$ttbgimage=($cfg{ttbgimg}?" background='background/$cfg{ttbgimg}'":'');
$tbbgimage=($cfg{tbbgimg}?" background='background/$cfg{tbbgimg}'":'');
local $print_str=&PrintHead;
$print_str.=&print_table;
$print_str.=&Button('board') if($cfg{'show_button'} ne 'none');
print "$print_str\";
}

sub print_table{

$return_str="