¾È³çÇϼ¼¿ä.
Ç»¸® °Ô½ÃÆÇÀ» Çѹø ½ÇÇàÇغ¸°íÀÚ Çϴµ¥ ½ÇÇàÀÌ ¿µ µÇÁö ¾Ê´Â±º¿ä.
¿©±â CGI¼Ò½º°¡ Àִµ¥... ¾îµð¸¦ °íÃÄ¾ß ÇÏ´ÂÁö ¾Ë·ÁÁÖ½Ã¸é °¨»çÇÏ°Ú½À´Ï´Ù.

½Ã½ºÅÛ Á¤º¸
À©µµ¿ì 2000 ¼­¹ö
IIS 5.0
ActivePerl-5.6.0.618-MSWin32-x86-multi-thread(c:\perl)
±âº» Å×½ºÆ® : Åë°ú(ÀÌ»ó¾øÀ½)
÷ºÎ¹®¼­ : ¿øº» ¾ÐÃàÆÄÀÏ


======================================================================

#!/usr/bin/perl

$ver = 'PURYBBS EX ver 1.1';
$title = "PURY BBS";

# purybbs.log¿¡ ÃÖ°í·Î µé¾î°¥ ¼ö ÀÖ´Â ±ÛÀÇ ¼öÀÔ´Ï´Ù. 500-600»çÀ̸¦ ÃßõÇÕ´Ï´Ù
# ÀÌ ¼öÄ¡¸¦ ÃÊ°úÇϸé óÀ½ÀÇ ±ÛºÎÅÍ Â÷·Ê´ë·Î Çϳª¾¿ backup.log¿¡ ¹Ð¸®°Ô µË´Ï´Ù
$max = 1000;

# Æнº¿öµå ÀÔ·Â
$pass = 'PURY';

# 0: ¼Õ´Ôµµ ´ä±Û´Ù´Â °ÍÀÌ °¡´É
# 1: admin¸¸ ´ä±ÛÀ» ´Þ ¼ö ÀÖÀ½ 
$adminonly=0;

# iconÆú´õ À̸§
$icon_dir = "icon";

# Where ºÎºÐ¿¡ µé¾î°¡´Â °ª
@COLORS = ('clear','panic');

# 0: ¾ÆÀÌÄÜ ¾²Áö ¾ÊÀ½
# 1: ¾ÆÀÌÄÜ »ç¿ë
$icon_mode = 1;

# Lock ±â´É »ç¿ë °ü·Ã
# 0: ¾²Áö ¾ÊÀ½ [ºñÃßõ]
# 1: Symlink ÇÔ¼ö [¼­¹ö°¡ Linux,Unix ȯ°æÀ϶§]
# 2: Open ÇÔ¼ö [¼­¹ö°¡ WinNT ȯ°æÀ϶§]
$lockkey = 2;
$lockfile = "purybbs.lock";
$lock_dir = "lock";

$reverse = 0;
$res_sort = 0;

# Reply PlugÀÇ »çÀÌ¿¡ µé¾î°¡´Â ij¸¯ÅÍ, ±× »ö»ó ¼³Á¤
$arrowchar = ' - ';
$arrowcolor = 'white';

# È­¸é¿¡ ³ª¿À´Â Reply PlugÀÇ °³¼ö
# ´ä±ÛÀÌ 1-2À϶§´Â warning1, 3-4À϶§´Â warning2, 5-6À϶§´Â warning3,
# 7-9À϶§´Â warning4,10Àº warning5ÀÇ »ö»óÀ¸·Î ¼ýÀÚ°¡ ÂïÈü´Ï´Ù.
$rppluglimit = 20;
$warning1 = '#68A4E0';
$warning2 = '#68A4E0';
$warning3 = '#68A4E0';
$warning4 = '#68A4E0';
$warning5 = '#68A4E0';

$get_remotehost = 0;

# ű׻ç¿ë ¿©ºÎ
# 1·Î Çϸé Àü¿ø »ç¿ë °¡´É, 0À¸·Î ÇßÀ» ¶§´Â admin¸¸ »ç¿ë °¡´É
# ...ÀÌÁö¸¸ ¾Æ·¡ÀÇ tagname¿¡ ÀÔ·ÂµÈ À̸§À¸·Î ±ÛÀ» ¾²¸é ÅÂ±× »ç¿ë °¡´É
# [adminÀÌ º¹¼ö°³ÀÇ Àü¿ë ¾ÆÀÌÄÜÀ» ¾µ ¶§¸¦ À§ÇÑ Name µðÅØÆ®ÀÔ´Ï´Ù ]
# name µðÅØÆ®¸¦ ¿øÇϽÃÁö ¾ÊÀ¸¸é ¾Æ¹« °ªµµ ÀÔ·ÂÇÏÁö ¾ÊÀ¸½Ã¸é µË´Ï´Ù.
$tagkey = 1;
$tagname='';
$script  = "purybbs.cgi";
$logfile = "purybbs.log";
$backupfile = "backup.log";

$method = 'POST';

# ÇÑ ÆäÀÌÁö¿¡ ³ª¿À´Â ±ÛÀÇ ¼ö
$pagelog = 10;

# ÇöÀç purybbs.cgi°¡ µé¾îÀÖ´Â Æú´õÀÇ Àý´ë °æ·Î
# http://localhost/purybbs/purybbs.cgi°°Àº ½ÄÀ¸·Î ±âÀÔ
$base_url = ".";

# 0: ÀÚµ¿¸µÅ© »ç¿ë ¾ÈÇÔ
# 1: ±Û Áß¿¡ http ÁÖ¼Ò°¡ ³ª¿À¸é ±×°ÍÀ» ÀÚµ¿À¸·Î ¸µÅ©½ÃÄÑ ÁÜ
$autolink = 1;

$lockfile = "$lock_dir\/$lockfile";
$accentcolor="#68A4E0";

# ÀԷ»çÇ× Çʼö¿©ºÎ
# 0Àº ºñÇʼö 1Àº Çʼö
$usesubject = 0;
$usepass = 1;

# Ç÷¯±× Á¾·ù¼±ÅÃ
# 1Àº ±âÁ¸, 0Àº ŸÀÔ2
$plugtype = 0;

# ´ä±Û ±âº» Á¦¸ñ
# <-sub->´Â ¿ø·¡ ±ÛÀÇ Á¦¸ñÀ» ÀǹÌÇÔ
$resub = '[RE] <-sub->';

# ¾ÆÀÌÄÜ º¸±â ¸ðµå ¿É¼Ç
# 0Àº ±×³É º¸±â, 1Àº º¸¸é¼­ ¼±Åà °¡´É
$viewtype = 1;

# ÀÛ¼ºÀÏ ±â·Ï ±âÁØ
# 0Àº ÃÖÃÊ ÀÛ¼ºÀÏ, 1Àº ÃÖÈÄ ¼öÁ¤ÀÏ
$lastdate = 1;

# ±ÛÀÚ º¯È¯ ¸ñ·Ï
@replace = ('\[<>[','\]<>]');

# Where ºÎºÐ »ö±ò »ç¿ë ¹üÀ§
# 0Àº »ç¿ë ¾ÊÀ½, 1Àº ¾²±âÆû¿¡¼­¸¸ »ç¿ë, 2´Â ±Ûº¸±âÆû¿¡¼­ »ç¿ë, 3Àº ¸ðµÎ »ç¿ë
$wheremode = 0;

########## ¿©±â¼­ ºÎÅÍ´Â ÀÚ½ÅÀÖ´Â »ç¶÷¸¸ ¼Õ´î °Í ############
&decode;
if ($mode eq "find") { &find; }
if ($mode eq "msg_del") { &msg_del; }
if ($mode eq "msg_edit") { &msg_edit; }
if ($mode eq "edit_msg") { &edit_msg; }
if ($mode eq "reg_edit") { ®_edit; }
if ($mode eq "msg") { ®ist; }
if ($mode eq "res_msg") { &res_msg; }
if ($mode eq "admin") { &admin; }
if ($mode eq "real_del") { &real_del; }
if ($mode eq "admin_del") { &admin_del; }
if ($mode eq "iconview") { &iconview; }

&html_log;

sub html_log {
&get_cookie;

$word = $c_name;

if ($FORM{'page'} eq '') { $page = 0; } else { $page = $FORM{'page'}; }

open(IN,"$logfile") || &error("Can't open $logfile",'NOLOCK');
@lines = ;
close(IN);

open(VSTYLE, "style_v.htm") || &error("Can't open style_v.htm",NOLOCK);
@vstyle1 = ;
close(VSTYLE);

open(VSTYLE, "style_vr.htm") || &error("Can't open style_vr.htm",NOLOCK);
@vstyle2 = ;
close(VSTYLE);

open(RSTYLE, "style_r.htm") || &error("Can't open style_r.htm",NOLOCK);
@rstyle1 = ;
close(RSTYLE);

open(RSTYLE, "style_rr.htm") || &error("Can't open style_rr.htm",NOLOCK);
@rstyle2 = ;
close(RSTYLE);

open(MSTYLE, "style_m.htm") || &error("Can't open style_m.htm",NOLOCK);
@mstyle = ;
close(MSTYLE);

open(WSTYLE, "style_w.htm") || &error("Can't open style_w.htm",NOLOCK);
@wstyle = ;
close(WSTYLE);

open(IN,"replyplg.log") || &error("Can't open replyplg.log");
@rp = ;
close(IN);

open(IN,"icon.dat") || &error("Can't open icon.dat");
@iconfile = ;
close(IN);

shift(@lines);
@new = ();
@reply = ();

$backcount=0;

$temppage=$page;
$temppage2=$pagelog;

$numforreply=0;
$numcount=0;

foreach $line (@lines) {
local($num,$k) = split(/<>/, $line);

if ($k eq "") {
$numcount++;

if ($temppage!=0) { $temppage--; }
else {
if ($temppage2!=0) {
$temppage2--;
$numforreply=$num;
local($num,$k,$dt,$na,$em,$sub,$com,$url,$host,$pw,$color,$icon) = split(/<>/, $line);
push(@new,$line);
}
}
} else {
if ($numforreply==$k) {
local($num,$k,$dt,$na,$em,$sub,$com,$url,$host,$pw,$color,$icon) = split(/<>/, $line);
push(@reply,$line);
}
}
}

@reply = reverse(@reply);

&header;
@mtemp = @mstyle;

$logcount=$numcount;
$logcount="$logcount/$max";

open(IN,"$backupfile") || &error("Can't open $backupfile");
@backup = ;
close(IN);

foreach $line (@backup) {
($knum,$kk) = split(/<>/,$line);
if ($kk eq '') { $backcount++; }
}

$end_data = $numcount - 1;
$page_end = $page + ($pagelog - 1);
$next_line = $page_end + 1;
$back_line = $page - $pagelog;

if ($page_end >= $end_data) { $page_end = $end_data; }

foreach $inline (@mtemp) {
$inline =~ s//$c_name/i;
$inline =~ s//$logcount/i;
$inline =~ s//$backcount/i;

if ($inline =~ //i) {
$count=0;

foreach $rpline (@rp) {
($rpnum,$rpnum2) = split(/<>/, $rpline);
$count++;
if ($rpnum2 >= 0 && $rpnum2 <=2) { print " $arrowchar $rpnum\n"; }
if ($rpnum2 >= 3 && $rpnum2 <=4) { print " $arrowchar $rpnum\n"; }
if ($rpnum2 >= 5 && $rpnum2 <=6) { print " $arrowchar $rpnum\n"; }
if ($rpnum2 >= 7 && $rpnum2 <=9) { print " $arrowchar $rpnum\n"; }
if ($rpnum2 >= 10) { print " $arrowchar $rpnum\n"; }
if ($count eq "$rppluglimit") { last; }
}
}

if ($inline =~ //i) {
print"

\n";
print"\n";
print"\n";

@wtemp = @wstyle;

foreach $winline (@wtemp) {
$winline =~ s//$c_name/i;
$winline =~ s//$c_url/i;
$winline =~ s//$c_email/i;
$winline =~ s//$c_pwd/i;
$winline =~ s///i;
$winline =~ s///i;
print $winline;

if ($winline =~ //i) {
foreach $fileline(@iconfile) {
$fileline =~ s/\n//i;
($filename,$iconname,$iconcolor) = split(/<>/,$fileline);
local($sel) = "";
local($col) = "";
if ($c_icon eq $filename) { $sel=" selected"; }
if ($iconcolor ne "") { $col=" style='color:$iconcolor'"; }
print "$iconname\n";
}
}

if ($winline =~ //i) {
foreach (0 .. $#COLORS) {
($where,$wherecolor) = split(/<>/,$COLORS[$_]);
local($sel) = "";
local($col) = "";
if ($c_color eq $where) { $sel=" selected"; }
if (($wheremode == 1 || $wheremode == 3) && $wherecolor ne "") { $col=" style='color:$wherecolor'"; }
print "$where\n";
}
}
}
foreach $newline(@new) { &printstyle; }
}

if ($inline =~ //i) { &printlink; }
print $inline;
}

&footer;
exit;
}

sub printstyle {
($number,$k,$date,$name,$email,$sub,$comment,$url,$host,$pwd,$color,$icon) = split(/<>/,$newline);

$check=1;

if ($reverse == 0) { @vtemp = @vstyle1; $reverse=1; } else { @vtemp = @vstyle2; $reverse=0; }

if ($name eq $word) { $name="$name"; }
        if ($email) { $email = "E-MAIL";}
if ($icon ne "") { $icon = "
"; }
        if ($url) { $url = "URL";}
if ($autolink) { &auto_link($comment);}

foreach (0 .. $#replace) {
local($org,$res) = split(/<>/, $replace[$_]);
$comment =~ s/$org/$res/g;
}
$comment =~ s/(>>[a-fA-F0-9]+)/$1<\/font>/g;
if ($wheremode == 2 || $wheremode == 3) {
foreach (0 .. $#COLORS) {
($where,$wherecolor) = split(/<>/,$COLORS[$_]);
if ($color eq $where) {
if ($wherecolor ne "") { $color = "$color<\/font>"; }
last;
}
}
}
foreach $vinline (@vtemp) {
$vinline =~ s//$sub/i;
$vinline =~ s//$color/i;
$vinline =~ s//$email/i;
$vinline =~ s//$number/i;
$vinline =~ s//$date/i;
$vinline =~ s//$name/i;
$vinline =~ s//$url/i;
$vinline =~ s//$comment/i;
$vinline =~ s//$icon/i;
$vinline =~ s//$number/i;
$vinline =~ s//$FORM{'page'}/i;
print $vinline;

if ($vinline =~ //i) {
foreach $rline (@reply) {
($rnum,$rk,$rd,$rname,$rem,$rsub,$rcom,$rurl,$rho,$rp,$rc,$ri) = split(/<>/,$rline);
if ($number eq "$rk") {
                                        if ($ri ne "") { $ri = "
"; }
if ($rname eq $word) { $rname="$rname";}
                                        if ($rem) { $rem = "E-MAIL"; }
                                        if ($rurl) { $rurl = "URL"; }
if ($autolink) { &auto_link($rcom); }

if ($reverse == 1) { @rtemp = @rstyle1; } else {@rtemp = @rstyle2; }

foreach(0 .. $#replace) {
local($org,$res) = split(/<>/, $replace[$_]);
$rcom =~ s/$org/$res/g;
}
if ($wheremode == 2 || $wheremode == 3) {
foreach (0 .. $#COLORS) {
($where,$wherecolor) = split(/<>/,$COLORS[$_]);
if ($rc eq $where) {
if ($wherecolor ne "") { $rc = "$rc<\/font>"; }
last;
}
}
}
foreach $rinline (@rtemp) {
$rinline =~ s//$rsub/i;
$rinline =~ s//$rem/i;
$rinline =~ s//$rc/i;
$rinline =~ s//$rd/i;
$rinline =~ s//$rname/i;
$rinline =~ s//$rurl/i;
$rinline =~ s//$rcom/i;
$rinline =~ s//$ri/i;
$rinline =~ s//$page/i;
print $rinline;
}
}
}
}
}
}

sub printlink {
if ($back_line >= 0) { print "new  \n"; }
else { print "new  \n"; }

if ($back_line >= 0) {
$back_line2=$back_line/$pagelog+1;
print "prev  \n";
} else { print "prev  \n"; }

if (($back_line-$pagelog-$pagelog) >= 0) {
$back_line=$back_line-$pagelog-$pagelog;
$back_line2=$back_line/$pagelog+1;
print "{$back_line2}\n";
$back_line=$back_line+$pagelog+$pagelog;
}

if (($back_line-$pagelog) >= 0) {
$back_line=$back_line-$pagelog;
$back_line2=$back_line/$pagelog+1;
print "{$back_line2}\n";
$back_line=$back_line+$pagelog;
}

if ($back_line >= 0) {
$back_line2=$back_line/$pagelog+1;
print "{$back_line2}\n";
}

if ($page == 0 || $back_line >= 0 ) {
$page2=$page/$pagelog+1;
print "{$page2}\n";
}

if ($page_end ne "$end_data") {
$next_line2=$next_line/$pagelog+1;
print "{$next_line2}\n";
}

if (($page_end+$pagelog) < "$end_data") {
$next_line=$next_line + $pagelog;
$next_line2=$next_line/$pagelog+1;
print "{$next_line2}\n";
$next_line=$next_line - $pagelog;
}

if (($page_end+$pagelog+$pagelog) < "$end_data") {
$next_line=$next_line + $pagelog + $pagelog;
$next_line2=$next_line/$pagelog+1;
print "{$next_line2}\n";
$next_line=$next_line - $pagelog - $pagelog;
}

if ($page_end ne "$end_data") {
$next_line2=$next_line/$pagelog+1;
print "  next\n";
} else { print "  next\n";}

if ($page_end ne "$end_data") {
$end_data2=$end_data-$end_data%$pagelog;
print "  old\n";
} else { print "  old\n"; }
}

sub checkset {
if ($base_url ne ".") {
$ref_url = $ENV{'HTTP_REFERER'};
$ref_url =~ s/\?(.|\n)*//ig;
$ref_url =~ s/\%7E/\~/ig;
if ($ref_url && $ref_url !~ $base_url) { &error("¿ÇÁö ¾ÊÀº Á¢¼ÓÀÔ´Ï´Ù",'NOLOCK'); }
}

if ($name eq "") { &error("À̸§À» ÀÔ·ÂÇÏÁö ¾Ê¾Ò½À´Ï´Ù",'NOLOCK'); }
if ($comment eq "") { &error("³»¿ëÀ» ÀÔ·ÂÇÏÁö ¾Ê¾Ò½À´Ï´Ù",'NOLOCK'); }
if ($usesubject && $sub eq "") { &error("Á¦¸ñÀ» ÀÔ·ÂÇÏÁö ¾Ê¾Ò½À´Ï´Ù",'NOLOCK'); }
if ($usepass && $pwd eq "") { &error("¾ÏÈ£¸¦ ÀÔ·ÂÇÏÁö ¾Ê¾Ò½À´Ï´Ù",'NOLOCK'); }
if ($email && $email !~ /(.*)\@(.*)\.(.*)/) { &error("E-MAILÀÇ ³»¿ëÀÌ ¿Ã¹Ù¸£Áö ¾Ê½À´Ï´Ù",'NOLOCK'); }
if ($adminonly && $FORM{'replyflag'} eq 'on') { if ($pwd ne "$pass") { &error("°ü¸®ÀÚ¸¸ ´ä±ÛÀ» ´Þ ¼ö ÀÖµµ·Ï ¼³Á¤µÇ¾î ÀÖ½À´Ï´Ù.",'NOLOCK'); } }

########## admin icon setting ###############
# Àü¿ë¾ÆÀÌÄÜ µî·Ï ·çƾ
# ¾Æ·¡¸¦ ¿¹·Î µé¸é pury¶ó´Â password°¡ ÀԷµɶ§ admin.jpg¶ó´Â ¾ÆÀÌÄÜÀÌ ÂïÈü´Ï´Ù
# ÀÌ ºÎºÐÀ» ¿©·¯ÁÙ ½á¼­ ¿©·¯¸íÀÇ Àü¿ë ¾ÆÀÌÄÜÀ» ¸¸µé ¼ö ÀÖ½À´Ï´Ù 

if ($pwd eq "pury") { $FORM{'icon'}='admin.jpg'; }

####### admin icon setting complete #########

&get_host;
&get_time;

if ($FORM{'cook'} eq 'on') { &set_cookie; }

}

sub regist {
if ($FORM{'skip'} eq 'on') {
$FORM{'resno'}=$FORM{'resno'}+1;
&res_msg;
}

&checkset;

open(IN,"$backupfile") || &error("Can't open $backupfile");
@backup = ;
close(IN);

if ($lockkey == 1) { &lock1; } elsif ($lockkey == 2) { &lock2; }

open(IN,"$logfile") || &error("Can't open $logfile");
@lines = ;
close(IN);

$oya = $lines[0];
$oya =~ s/\n//;
shift(@lines);

local($flag) = 0;

foreach $line (@lines) {
($knum,$kk,$kd,$kname,$kem,$ksub,$kcom) = split(/<>/,$line);
if ($name eq "$kname" && $comment eq "$kcom") { $flag=1; last; }
}

if ($flag) { &error("ÀÌÁßÅõ°í´Â ±ÝÁöÇÏ°í ÀÖ½À´Ï´Ù"); }

if ($FORM{'resno'} eq "") { $oya++; $number=$oya; } else { $number = $oya; }

if ($FORM{'pwd'} ne "") { &passwd_encode($FORM{'pwd'}); }

$new_msg = "$number<>$FORM{'resno'}<>$date<>$name<>$email<>$sub<>$comment<>$url<>$host<>$ango<>$color<>$FORM{'icon'}<>\n";

if ($res_sort && $FORM{'resno'} ne "") {
@res_data = ();
@new = ();

foreach $line (@lines) {
$flag = 0;
($num,$k,$d,$na,$em,$sb,$com,$u,$ho,$p,$c,$ico) = split(/<>/,$line);

if ($k eq "" && $FORM{'resno'} eq "$num") {
$new_line = "$line";
$flag = 1;
} elsif ($k eq "$FORM{'resno'}") {
push(@res_data,$line);
$flag = 1;
}
if ($flag == 0) { push(@new,$line); }
}

unshift(@new,@res_data);
unshift(@new,$new_msg);
unshift(@new,$new_line);

} elsif ($FORM{'resno'} eq "") {
$i = 0;
$stop = 0;

foreach $line (@lines) {
($num,$k,$d,$na,$em,$sb,$com,$u,$ho,$p,$c,$ico)=split(/<>/,$line);
if ($k eq "") { $i++; }
if ($i > $max-1) {
$stop = 1;
if ($k eq "") { $kflag=1; }
push(@past_data,$line);
}
if ($stop == 0) { push(@new,$line); }
}

if ($kflag) {
unshift(@backup,@past_data);

open(OUT,">$backupfile") || &error("Can't write $backupfile");
print OUT @backup;
close(OUT);
}
unshift(@new,$new_msg);
} else {
@res_data = ();
@new = ();

foreach $line (@lines) {
$flag = 0;
($num,$k,$d,$na,$em,$sb,$com,$u,$ho,$p,$c,$ico) = split(/<>/,$line);

if ($k eq "" && $FORM{'resno'} eq "$num") {
$new_line = "$line";
$flag = 2;
}

if ($flag == 0) { push(@new,$line); }
elsif ($flag == 2) {
push(@new,$new_line);
push(@new,$new_msg);
}
}
}

unshift (@new,"$oya\n");

open(OUT,">$logfile") || &error("Can't write $logfile");
print OUT @new;
close(OUT);

if (-e $lockfile) { unlink($lockfile); }

if ($FORM{'replyflag'} eq 'on'){
open(IN,"replyplg.log") || &error("Can't open replyplg.log");
@rp = ;
close(IN);

$FORM{'kazu'}=$FORM{'kazu'}+1;
$newrp = "$FORM{'resno'}<>$FORM{'kazu'}<>\n";
@new = ();

$temprp=$rppluglimit;
push(@new,$newrp);

foreach $line (@rp) {
($num,$k) = split(/<>/,$line);
$temprp--;

if ($FORM{'resno'}!=$num || $plugtype) {
$oldrp = "$num<>$k<>\n";
push(@new,$oldrp);
}
if ($temprp==0) { last; }
}

open(OUT,">replyplg.log") || &error("Can't write replyplg.log");
print OUT @new;
close(OUT);
}

if ($FORM{'asm'} eq 'on') {
$FORM{'resno'}=$FORM{'resno'}+1;
&res_msg;
}
&html_log;
}

sub res_msg {
if ($FORM{'page'} eq '') { $page = 0; } else { $page = $FORM{'page'}; }

open(DB,"$logfile") || &error("Can't open $logfile",'NOLOCK');
@lines = ;
close(DB);

open(MSTYLE, "style_rm.htm") || &error("Can't open style_rm.htm",NOLOCK);
@mstyle = ;
close(MSTYLE);

open(VSTYLE, "style_v.htm") || &error("Can't open style_v.htm",NOLOCK);
@vstyle = ;
close(VSTYLE);

open(RSTYLE, "style_r.htm") || &error("Can't open style_r.htm",NOLOCK);
@rstyle = ;
close(RSTYLE);

open(WSTYLE, "style_w.htm") || &error("Can't open style_w.htm",NOLOCK);
@wstyle = ;
close(WSTYLE);

open(IN,"replyplg.log") || &error("Can't open replyplg.log");
@rp = ;
close(IN);

open(IN,"icon.dat") || &error("Can't open icon.dat");
@iconfile = ;
close(IN);

@lines = splice(@lines,1);

$count=0;
$adminflag=0;

&get_cookie;

$numtemp = 0;
$flag=0;

foreach $line (@lines) {
local($num,$k) = split(/<>/, $line);
if ($num > $numtemp) { $numtemp = $num; }
if ($k eq "" && $FORM{'resno'} eq "$num") {
local($num,$k,$date,$name,$email,$sub,$com,$u,$ho,$p,$c,$ico) = split(/<>/, $line);
$flag=1;
$adminflag=1;
$vnum = $num;
$vk = $k;
$vdate = $date;
$vname = $name;
$vemail = $email;
$vsub = $sub;
$vcom = $com;
$vu = $u;
$vho = $ho;
$vp = $p;
$vc = $c;
$vico = $ico;
} elsif ($k ne "" && $FORM{'resno'} eq "$k") {
local($num,$k,$date,$name,$email,$sub,$com,$u,$ho,$p,$c,$ico) = split(/<>/, $line);
push(@res,$line);
}
}

if ($adminflag == 0) {
if( $FORM{'resno'} == ($numtemp+1)) { &html_log;};
$FORM{'resno'} = $FORM{'resno'}+1;
&res_msg;
}

&header;

@mtemp = @mstyle;

foreach $inline (@mtemp) {
$inline =~ s//$c_name/i;

if ($inline =~ //i) {
$count=0;
foreach $rpline (@rp) {
($rpnum,$rpnum2) = split(/<>/, $rpline);
$count++;
if ($rpnum2 >= 0 && $rpnum2 <=2) { print " $arrowchar $rpnum\n"; }
if ($rpnum2 >= 3 && $rpnum2 <=4) { print " $arrowchar $rpnum\n"; }
if ($rpnum2 >= 5 && $rpnum2 <=6) { print " $arrowchar $rpnum\n"; }
if ($rpnum2 >= 7 && $rpnum2 <=9) { print " $arrowchar $rpnum\n"; }
if ($rpnum2 >= 10) { print " $arrowchar $rpnum\n"; }
if ($count eq "$rppluglimit") { last; }
}
}

$count=0;

if ($inline =~ //i) {
if ($vname eq $c_name) { $vname="$vname";}
if ($vico ne "") { $vico = "
"; }
                        if ($vemail) { $vemail = "E-MAIL"; }
                        if ($vu) { $vu = "URL"; }

if ($autolink) { &auto_link($vcom); }
@vtemp = @vstyle;

foreach (0 .. $#replace) {
local($org,$res) = split(/<>/, $replace[$_]);
$vcom =~ s/$org/$res/g;
}
if ($wheremode == 2 || $wheremode == 3) {
foreach (0 .. $#COLORS) {
($where,$wherecolor) = split(/<>/,$COLORS[$_]);
if ($vc eq $where) {
if ($wherecolor ne "") { $vc = "$vc<\/font>"; }
last;
}
}
}
foreach $vinline (@vtemp) {
$vinline =~ s//$vsub/i;
$vinline =~ s//$vemail/i;
$vinline =~ s//$vc/i;
$vinline =~ s//$vnum/i;
$vinline =~ s//$vdate/i;
$vinline =~ s//$vname/i;
$vinline =~ s//$vu/i;
$vinline =~ s//$vcom/i;
$vinline =~ s//$vico/i;
$vinline =~ s//$FORM{'resno'}/i;
print $vinline;

if ($vinline =~ //i) {
if (@res) {
@res = reverse(@res);
$flag = 0;

foreach $line (@res) {
$count++;
local($num,$k,$date,$name,$email,$sub,$com,$u,$ho,$p,$c,$ico) = split(/<>/,$line);

if ($flag == 0) { $flag=1; }
                                                        if ($ico ne "") { $ico = "
"; }
if ($name eq $c_name) { $name="$name";}
                                                        if ($email) { $email = "E-MAIL"; }
                                                        if ($u) { $u = "URL"; }

if ($autolink) { &auto_link($com); }
@rtemp = @rstyle;

foreach (0 .. $#replace) {
local($org,$res) = split(/<>/, $replace[$_]);
$com =~ s/$org/$res/g;
}
if ($wheremode == 2 || $wheremode == 3) {
foreach (0 .. $#COLORS) {
($where,$wherecolor) = split(/<>/,$COLORS[$_]);
if ($c eq $where) {
if ($wherecolor ne "") { $c = "$c<\/font>"; }
last;
}
}
}
foreach $rinline (@rtemp) {
$rinline =~ s//$sub/i;
$rinline =~ s//$email/i;
$rinline =~ s//$c/i;
$rinline =~ s//$date/i;
$rinline =~ s//$name/i;
$rinline =~ s//$sub/i;
$rinline =~ s//$u/i;
$rinline =~ s//$com/i;
$rinline =~ s//$ico/i;
print $rinline;
}
}
}
}
}

print"\n";
print"\n";
print"\n";
print"\n";
print"\n";
print"\n";
}

if ($inline =~ //i) {
@wtemp = @wstyle;

$resub =~ s/<-sub->/$vsub/i;

foreach $winline (@wtemp) {
$winline =~ s//$resub/i;
$winline =~ s//$c_name/i;
$winline =~ s//$c_url/i;
$winline =~ s//$c_email/i;
$winline =~ s//$c_pwd/i;
$winline =~ s//$accesspoint/i;
$winline =~ s///i;
print $winline;

if ($winline =~ //i) {
foreach $fileline(@iconfile) {
$fileline =~ s/\n//i;
($filename,$iconname,$iconcolor) = split(/<>/,$fileline);
local($sel) = "";
local($col) = "";
if ($c_icon eq $filename) { $sel=" selected"; }
if ($iconcolor ne "") { $col=" style='color:$iconcolor'"; }
print "$iconname\n";
}
}

if ($winline =~ //i) {
foreach (0 .. $#COLORS) {
($where,$wherecolor) = split(/<>/,$COLORS[$_]);
local($sel) = "";
local($col) = "";
if ($c_color eq $where) { $sel=" selected"; }
if (($wheremode == 1 || $wheremode == 3) && $wherecolor ne "") { $col=" style='color:$wherecolor'"; }
                                                print "$where\n";
}
}
}
}
print $inline;
}

&footer;
exit;
}

sub decode {
if ($ENV{'REQUEST_METHOD'} eq "POST") {
if ($ENV{'CONTENT_LENGTH'} > 51200) { &error("±ÛÀÇ ¿ë·®ÀÌ ³Ê¹« Å®´Ï´Ù",'NOLOCK'); }
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else { $buffer = $ENV{'QUERY_STRING'}; }
@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;

if ($value eq $tagname && $value ne '') { $tagkey = 1; }
if ($value eq $pass) { $tagkey = 1; }
}

foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

if ($tagkey == 0) {
$value =~ s/ $value =~ s/>/>/g;
$value =~ s/\"/"/g;
} else {
$value =~ s///g;
$value =~ s/<>/<>/g;
}

if ($name eq 'del') { push(@delete,$value); }
$FORM{$name} = $value;
}

$name    = $FORM{'name'};
$name    =~ s/\r//g;
$name    =~ s/\n//g;
$comment = $FORM{'comment'};
$comment =~ s/\r\n/
/g;
$comment =~ s/\r/
/g;
$comment =~ s/\n/
/g;
$email  = $FORM{'email'};
$email  =~ s/\r//g;
$email  =~ s/\n//g;
$url    = $FORM{'url'};
$url    =~ s/^http\:\/\///;
$url    =~ s/\r//g;
$url    =~ s/\n//g;
$mode    = $FORM{'mode'};
$sub    = $FORM{'sub'};
$sub    =~ s/\r//g;
$sub    =~ s/\n//g;
$pwd    = $FORM{'pwd'};
$pwd    =~ s/\r//g;
$pwd    =~ s/\n//g;
$icon    = $FORM{'icon'};
$color  = $FORM{'color'};
}

sub find {
if ($FORM{'cond'} eq 'w') {&wordsearch;}

if ($FORM{'cond'} eq 'n') {
&header;
$check = 0;

open(VSTYLE, "style_v.htm") || &error("Can't open style_v.htm",NOLOCK);
@vstyle1 = ;
close(VSTYLE);

open(VSTYLE, "style_vr.htm") || &error("Can't open style_vr.htm",NOLOCK);
@vstyle2 = ;
close(VSTYLE);

open(RSTYLE, "style_r.htm") || &error("Can't open style_r.htm",NOLOCK);
@rstyle1 = ;
close(RSTYLE);

open(RSTYLE, "style_rr.htm") || &error("Can't open style_rr.htm",NOLOCK);
@rstyle2 = ;
close(RSTYLE);

open(MSTYLE, "style_sm.htm") || &error("Can't open style_sm.htm",NOLOCK);
@mstyle = ;
close(MSTYLE);

@mtemp = @mstyle;

foreach $inline (@mtemp) {
print $inline;

if ($inline =~ //i) {
if ($FORM{'word'} ne ""){
if ($FORM{'spage'} eq '') { $spage = 0; } else { $spage = $FORM{'spage'}; }

open(DB,"$logfile") || &error("Can't open $logfile",'NOLOCK');
@lines = ;
close(DB);

open(BB,"$backupfile") || &error("Can't open $backupfile",'NOLOCK');
@backuplines = ;
close(BB);

@lines = splice(@lines,1);
push(@lines,@backuplines);
$word = $FORM{'word'};

$flag=0;
$kflag=0;

$numcount=0;
$checknum=0;

@tempnum = ();
@tempnum2 = ();

foreach $line (@lines) {
local($num,$rnum,$date,$name) = split(/<>/, $line);

if ($rnum eq "" && $word eq $name) {
$num1="$num<>\n";
push(@tempnum,$num1);
$checknum=$num;
$numcount++;
}

if ($rnum ne "" && $word eq $name) {
if ($checknum ne $rnum) {
$rnum1="$rnum<>\n";
push(@tempnum,$rnum1);
$checknum=$rnum;
$numcount++;
}
}
}

$end_data = $numcount-1;
$page_end = $spage + ($pagelog - 1);
$next_line = $page_end + 1;
$back_line = $spage - $pagelog;
if ($page_end >= $end_data) { $page_end = $end_data; }

foreach ($spage .. $page_end){
local ($num) = split(/<>/,$tempnum[$_]);
$num="$num\n";
push(@tempnum2,$num);
}

$oya = $tempnum2[0];
$oya =~ s/\n//;
shift(@tempnum2);

foreach $line (@lines) {
local($num,$k) = split(/<>/,$line);

if ($k eq "" && $num < $oya && $num ne "\n"){
$oya = $tempnum2[0];
$oya =~ s/\n//;
if ($oya eq "") { last; }
shift(@tempnum2);
}

if ($num eq $oya && $k eq "") {
local($num,$k,$dt,$na,$em,$sub,$com,$url,$host,$pw,$color,$icon) = split(/<>/,$line);
push(@new,$line);
}

if ($k eq $oya) {
local($num,$k,$dt,$na,$em,$sub,$com,$url,$host,$pw,$color,$icon) = split(/<>/,$line);
push(@reply,$line);
}
}

@reply = reverse(@reply);

foreach $newline (@new) { &printstyle; }
}
}

if ($inline =~ //i) { print "$numcount"; }
if ($inline =~ //i) { print "$word"; }
if ($inline =~ //i) {
if ($back_line >= 0) { print "new \n"; }
else { print "new \n"; }

if ($back_line >= 0) {
$back_line2=$back_line/$pagelog+1;
print "prev  \n";
} else { print "prev  \n"; }

if (($back_line-$pagelog-$pagelog) >= 0) {
$back_line=$back_line-$pagelog-$pagelog;
$back_line2=$back_line/$pagelog+1;
print "{$back_line2}\n";
$back_line=$back_line+$pagelog+$pagelog;
}

if (($back_line-$pagelog) >= 0) {
$back_line=$back_line-$pagelog;
$back_line2=$back_line/$pagelog+1;
print "{$back_line2}\n";
$back_line=$back_line+$pagelog;
}

if ($back_line >= 0) {
$back_line2=$back_line/$pagelog+1;
print "{$back_line2}\n";
}

if ($page == 0 || $back_line >= 0 ) {
$spage2=$spage/$pagelog+1;
print "{$spage2}\n";
}

if ($page_end ne "$end_data") {
$next_line2=$next_line/$pagelog+1;
print "{$next_line2}\n";
}

if (($page_end+$pagelog) < "$end_data") {
$next_line=$next_line + $pagelog;
$next_line2=$next_line/$pagelog+1;
print "{$next_line2}\n";
$next_line=$next_line - $pagelog;
}

if (($page_end+$pagelog+$pagelog) < "$end_data") {
$next_line=$next_line + $pagelog + $pagelog;
$next_line2=$next_line/$pagelog+1;
print "{$next_line2}\n";
$next_line=$next_line - $pagelog - $pagelog;
}

if ($page_end ne "$end_data") {
$next_line2=$next_line/$pagelog+1;
print "  next\n";
} else { print "  next\n"; }

$end_data2 = $end_data - ($end_data%$pagelog);

if ($page_end ne "$end_data") { print " old\n"; }
else { print " old\n"; }
}
}

if ( $check == 0 ) { print"

No Result \n"; }

&footer;
exit;
}
}

sub wordsearch {
&header;

print"
       
";

print"\n";

if ($FORM{'word'} ne ""){
$cond = $FORM{'cond'};
$word = $FORM{'word'};
$word =~ s/\r//g;
$word =~ s/\t//g;
@pairs = split(/ /,$word);

open(DB,"$logfile") || &error("Can't open $logfile",'NOLOCK');
@lines = ;
close(DB);

open(DB,"$backupfile") || &error("Can't open $backupfile",'NOLOCK');
@lines2 = ;
close(DB);

push(@lines,@lines2);

foreach (1 .. $#lines) {
$flag = 0;

foreach $pair (@pairs){
if (index($lines[$_],$pair) >= 0) { $flag = 1; } else { $flag = 0; last;}
}

if ($flag == 1) { push(@new,$lines[$_]); }
}

$count = @new;

print "

Search by Word    °Ë»ö°á°ú $count°Ç\n";
print "   { Return Pury BBS }

\n";

foreach $line (@new) {
($num,$k,$date,$name,$email,$sub,$com,$url,$host,$pw,$color,$icon) = split(/<>/,$line);
print"

\n"; $com =~ s/$word/$word<\/font>/g;                         if ($url) { $url = "http://$url"; }                         if ($email) { $email = "$email"; } if ($k) { $num = "Reply $k"; } else { $num = "Article $num"; } print " "; print "$num\n  "; print "Name: $name  where: $color   icon: $icon $url \n $email \n"; print " $com $date \n"; print " "; print"

\n";
}
print "

\n";
}

&footer;
exit;
}

sub set_cookie {
($secg,$ming,$hourg,$mdayg,$mong,$yearg,$wdayg) = gmtime(time + 60*24*60*60);
$yearg += 1900;

if ($secg  < 10) { $secg  = "0$secg";  }
if ($ming  < 10) { $ming  = "0$ming";  }
if ($hourg < 10) { $hourg = "0$hourg"; }
if ($mdayg < 10) { $mdayg = "0$mdayg"; }

$month = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec')[$mong];
$youbi = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday')[$wdayg];

$date_gmt = "$youbi, $mdayg\-$month\-$yearg $hourg:$ming:$secg GMT";
$cook="name\:$name\,email\:$email\,url\:$url\,pwd\:$pwd\,icon\:$icon\,color\:$color";
print "Set-Cookie: YYBBS=$cook; expires=$date_gmt\n";
}

sub get_cookie {
@pairs = split(/\;/, $ENV{'HTTP_COOKIE'});

foreach $pair (@pairs) {
local($name, $value) = split(/\=/, $pair);
$name =~ s/ //g;
$DUMMY{$name} = $value;
}

@pairs = split(/\,/, $DUMMY{'YYBBS'});

foreach $pair (@pairs) {
local($name, $value) = split(/\:/, $pair);
$COOKIE{$name} = $value;
}

$c_name  = $COOKIE{'name'};
$c_email = $COOKIE{'email'};
$c_url  = $COOKIE{'url'};
$c_pwd  = $COOKIE{'pwd'};
$c_icon  = $COOKIE{'icon'};
$c_color = $COOKIE{'color'};

if ($FORM{'name'})  { $c_name  = $FORM{'name'}; }
if ($FORM{'email'}) { $c_email = $FORM{'email'}; }
if ($FORM{'url'})  { $c_url  = $url; }
if ($FORM{'pwd'})  { $c_pwd  = $FORM{'pwd'}; }
if ($FORM{'icon'})  { $c_icon  = $FORM{'icon'}; }
if ($FORM{'color'}) { $c_color = $FORM{'color'}; }
}

sub error {
if ($_[1] ne '0') { &header; }

if (-e $lockfile && $_[1] eq "") { unlink($lockfile); }

print "

ERROR ! \n"; print " $_[0]\n"; print "

\n";

&footer;
exit;
}

sub admin_del {
if ($FORM{'action'} ne 'admin') { &error("À߸øµÈ ·Î±×ÀÎÀÔ´Ï´Ù",'NOLOCK'); }
if ($FORM{'pass'} ne "$pass") { &error("Æнº¿öµå°¡ Ʋ¸³´Ï´Ù",'NOLOCK'); }

open(DB,$logfile) || &error("Can't open $logfile",'NOLOCK');
@lines = ;
close(DB);

shift(@lines);
@NEW = ();

foreach (@lines) {
($number,$k,$date,$name,$email,$subj,$comment,$url,$host,$pwd) = split(/<>/, $_);
if ($k eq '') { push(@NEW,$_); }
}

@lines = reverse(@lines);

&header;
        print "

{RETURN Pury BBS}\n"; print "\n"; print " \n"; print "DELETE \n"; print "\n"; print " \n"; print "±ÛÀ» ¼±ÅÃÇؼ­ »èÁ¦ÇÕ´Ï´Ù. \n"; print "¿øº» ±ÛÀ» »èÁ¦ÇÏ¸é ´ä±Ûµéµµ ÇÔ²² »ç¶óÁö°Ô µË´Ï´Ù. ÁÖÀÇÇØ ÁֽʽÿÀ. \n"; print " \n";         print "\n";         print "\n";         print "\n";         print "\n";         print "\n"; print " \n"; print "\n"; print "\n"; if ($FORM{'page'} eq '') { $page = 0; } else { $page = $FORM{'page'}; } $end_data = @NEW - 1; $page_end = $page + ($pagelog - 1); if ($page_end >= $end_data) { $page_end = $end_data; } foreach ($page .. $page_end) { ($num,$k,$date,$name,$email,$sub,$com,$url,$host,$pw,$color) = split(/<>/,$NEW[$_]); if ($email) { $name="$name"; } $com =~ s/ / /g; $com =~ s//>/g; if (length($com) > 60) { $com = substr($com,0,58); $com = $com . '..'; }                 print "\n"; print "\n"; print "\n"; print "\n"; foreach (0 .. $#lines) { ($rnum,$rk,$rd,$rname,$rem,$rsub,$rcom,$rurl,$rho,$rp,$rc) = split(/<>/, $lines[$_]); $rcom =~ s/ / /g; $rcom =~ s//\>\;/g; if (length($rcom) > 60) { $rcom=substr($rcom,0,58); $rcom=$rcom . '..'; } if ($num eq "$rk") {                                 print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; } } } print " »èÁ¦ ±Û No Á¦¸ñ ±Û¾´ »ç¶÷ ±Û¾´ ³¯Â¥ ³»¿ë È£½ºÆ® ¸í $num $sub $name $date $com $host $num¿¡ÀÇ ´ä±Û $rname $rd $rcom $rho \n";         print "\n"; $next_line = $page_end + 1; $back_line = $page - $pagelog; if ($back_line >= 0) {                 print "\n"; } if ($page_end ne "$end_data") {                 print "\n"; } print " \n";                 print "\n"; print "\n";                 print "\n";                 print "\n";                 print "\n"; print " \n";                 print "\n"; print "\n";                 print "\n";                 print "\n";                 print "\n"; print "

\n";
&footer;
exit;
}

# admin ¾ÏÈ£ ÀÔ·ÂÀ» ¹Þ¾Æ µéÀÌ´Â ºÎºÐ
sub admin {
&header;
print "

Æнº¿öµå¸¦ ÀÔ·ÂÇØÁÖ¼¼¿ä.

\n";
        print "

\n";
        print "\n";
        print "\n";
        print "\n";
print "

---

\n";
&footer;
exit;
}

sub msg_del {
&header;
        print "

{RETURN Pury BBS}\n"; print "\n"; print " \n"; print "DELETE \n"; print "\n"; print " \n"; print "±Û ÀÛ¼º½ÃÀÇ ¾ÏÈ£¸¦ ÀûÀ¸¸é »èÁ¦µË´Ï´Ù. \n"; print "¿øº» ±ÛÀ» »èÁ¦ÇÏ¸é ´ä±Ûµéµµ ÇÔ²² »ç¶óÁö°Ô µË´Ï´Ù. ÁÖÀÇÇØ ÁֽʽÿÀ. \n"; print " \n";         print " \n";         print "\n";         print "\n"; print "»èÁ¦ ¾ÏÈ£ \n";         print "\n"; print " \n"; &footer; exit; } sub get_time { $ENV{'TZ'} = "JST-9"; ($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime(time); $year += 1900; $mon++; if ($mon  < 10) { $mon  = "0$mon";  } if ($mday < 10) { $mday = "0$mday"; } if ($hour < 10) { $hour = "0$hour"; } if ($min  < 10) { $min  = "0$min";  } if ($sec  < 10) { $sec  = "0$sec";  } $week = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat') [$wday]; $date = "$year\/$mon\/$mday\($week\) $hour\:$min\:$sec"; } sub lock1 { local($retry) = 5; while (!symlink(".", $lockfile)) { if (--$retry <= 0) { &error("LOCK is BUSY"); } sleep(1); } } sub lock2 { local($flag) = 0; foreach (1 .. 5) { if (-e $lockfile) { sleep(1); } else { open(LOCK,">$lockfile"); close(LOCK); $flag = 1; last; } } if ($flag == 0) { &error("LOCK is BUSY"); } } sub passwd_encode { $now = time; ($p1, $p2) = unpack("C2", $now); $wk = $now / (60*60*24*7) + $p1 + $p2 - 8; @saltset = ('a'..'z','A'..'Z','0'..'9','.','/'); $nsalt = $saltset[$wk % 64] . $saltset[$now % 64]; $ango = crypt($_[0], $nsalt); } sub passwd_decode { if ($_[0] =~ /^\$1\$/) { $key = 3; } else { $key = 0; } $check = "no"; if (crypt($plain_text, substr($_[0],$key,2)) eq "$_[0]") { $check = "yes"; } } sub header { print "Content-type: text/html\n\n"; print "\n"; print "\n"; print "\n\n"; } sub footer { print "\n"; } sub auto_link {         $_[0] =~ s/([^=^\"]|^)(http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#]+)/$1$2<\/a>/g; } sub get_host { $host = $ENV{'REMOTE_HOST'}; $addr = $ENV{'REMOTE_ADDR'}; if ($get_remotehost) { if ($host eq "" || $host eq "$addr") { $host = gethostbyaddr(pack("C4", split(/\./, $addr)), 2); } } if ($host eq "") { $host = $addr; } } # ½ÇÁ¦ »èÁ¦ ºÎºÐ sub real_del { if ($FORM{'action'} eq "admin" && $FORM{'pass'} ne "$pass") { &error("¾ÏÈ£°¡ Ʋ¸³´Ï´Ù.",'NOLOCK'); } if ($FORM{'del'} eq "") { &error("üũ¹Ú½ºÀÇ ¼±ÅÃÀÌ ¾ø½À´Ï´Ù.",'NOLOCK'); } if ($lockkey == 1) { &lock1; } elsif ($lockkey == 2) { &lock2; } open(DB,"$logfile") || &error("Can't open $logfile"); @lines = ; close(DB); $oya = $lines[0]; shift(@lines); @new=(); $isreply = 0; if ($FORM{'action'} eq "admin") { foreach $line (@lines) { $dflag=0; ($num,$k,$dt,$name,$email,$sub,$com,$url,$host,$pw) = split(/<>/,$line); foreach $del (@delete) { if ($del eq "$dt") { $dflag = 1; if ($k eq '') { $del_num = $num; $oyaflag=1; } else { $del_num = $k; $isreply=1; } } elsif ($oyaflag && $del_num eq "$k") { $dflag = 1; $isreply = 1; } } if ($dflag == 0) { push(@new,$line); } } } else { foreach $line (@lines) { $dflag = 0; ($num,$k,$dt,$name,$email,$sub,$com,$url,$host,$pw) = split(/<>/,$line); if ($FORM{'del'} eq "$dt") { $dflag = 1; $encode_pwd = $pw; if ($k eq '') { $del_num = $num; $oyaflag=1; } else { $del_num = $k; $isreply=1; } } elsif ($oyaflag && $del_num eq "$k") { $dflag = 1; $isreply = 1; } if ($dflag == 0) { push(@new,$line); } } if ($del_num eq '') { &error("$FORM{'del'} ´ë»ó ±ÛÀ» ãÀ» ¼ö°¡ ¾ø½À´Ï´Ù."); } else { if ($encode_pwd ne '' && $FORM{'del_key'} ne $pass) { $plain_text = $FORM{'del_key'}; &passwd_decode($encode_pwd); if ($check eq 'no') { &error("Æнº¿öµå°¡ Ʋ¸³´Ï´Ù."); } } } } unshift(@new,$oya); open(DB,">$logfile") || &error("Can't write $logfile"); print DB @new; close(DB); @rp_data = (); if ($isreply) { open(IN,"replyplg.log") || &error("Can't open replyplg.log"); @rp = ; close(IN); $rflag = 0; foreach $rpline (@rp) { if ($rflag == 0) { ($rpnum,$rpnum2) = split(/<>/, $rpline); if ($rpnum == $del_num) { if ($oyaflag == 0) { $rpnum2--; if ($rpnum2 >=1) { $new_msg="$rpnum<>$rpnum2<>\n"; push(@rp_data,$new_msg); } } $rflag = 1; } else { push(@rp_data,$rpline); } } else { push(@rp_data,$rpline); } } open(OUT,">replyplg.log") || &error("Can't write replyplg.log"); print OUT @rp_data; close(OUT); } if (-e $lockfile) { unlink($lockfile); } if ($FORM{'action'} eq "admin") { &admin_del; } else { &html_log; } } # ¼öÁ¤ ºÎºÐ sub msg_edit { &header;         print " {RETURN Pury BBS}\n"; print "\n"; print " \n"; print "DELETE \n"; print "\n"; print " \n"; print "±Û ÀÛ¼º½ÃÀÇ ¾ÏÈ£¸¦ Àû°í ¼öÁ¤ÇÕ´Ï´Ù. \n"; print " \n";         print " \n";         print "\n";         print "\n";         print "\n"; print "¾ÏÈ£ \n";         print "\n"; print " \n"; &footer; exit; } # ¼öÁ¤ ·çƾ sub edit_msg { if ($FORM{'editno'} eq "") { &error("¼öÁ¤ÇÒ ±ÛÀÌ ¼±ÅõÇÁö ¾Ê¾Ò½À´Ï´Ù.",'NOLOCK'); } open(DB,"$logfile") || &error("Can't open $logfile"); @lines = ; close(DB); shift(@lines); foreach $line (@lines) { ($num,$k,$dt,$name,$email,$sub,$com,$url,$host,$pw,$color,$icon) = split(/<>/,$line); if ($FORM{'editno'} eq "$dt") { $encode_pwd = $pw; $ed_num = $dt; last; } } if ($ed_num eq '') { &error("$FORM{'editno'} ´ë»ó ±ÛÀ» ãÀ» ¼ö°¡ ¾ø½À´Ï´Ù."); } else { $plain_text = $FORM{'edit_key'}; if ($encode_pwd ne '') { &passwd_decode($encode_pwd); if ($check eq 'no') { if ($plain_text ne $pass) { &error("Æнº¿öµå°¡ Ʋ¸³´Ï´Ù."); } else { $plain_text = ""; $adminlog = "yes"; } } } } # µ¥ÀÌÅÍ, ½ºÅ¸ÀÏ ÆÄÀÏÀ» ºÒ·¯µéÀÓ open(ESTYLE, "style_em.htm") || &error("Can't open style_em.htm",NOLOCK); @estyle = ; close(ESTYLE); open(VSTYLE, "style_v.htm") || &error("Can't open style_v.htm",NOLOCK); @vstyle = ; close(VSTYLE); open(RSTYLE, "style_r.htm") || &error("Can't open style_r.htm",NOLOCK); @rstyle = ; close(RSTYLE); open(WSTYLE, "style_w.htm") || &error("Can't open style_w.htm",NOLOCK); @wstyle = ; close(WSTYLE); open(IN,"icon.dat") || &error("Can't open icon.dat"); @iconfile = ; close(IN); &header; if ($icon ne "") { $icontemp = " "; }         if ($email) { $emailtemp = "E-MAIL";}         if ($url) { $urltemp = "URL";} local($com_temp) = $com; local($color_temp) = $color; if ($autolink) { &auto_link($com_temp);} @etemp = @estyle; $page = $FORM{'page'}; foreach (0 .. $#replace) { local($org,$res) = split(/<>/, $replace[$_]); $com_temp =~ s/$org/$res/g; } if ($wheremode == 2 || $wheremode == 3) { foreach (0 .. $#COLORS) { ($where,$wherecolor) = split(/<>/,$COLORS[$_]); if ($color_temp eq $where) { if ($wherecolor ne "") { $color_temp = "$color_temp<\/font>"; } last; } } } foreach $eline (@etemp) { if ($eline =~ //i) { if ($k eq '') { foreach $vinline (@vstyle) { $vinline =~ s//$sub/i; $vinline =~ s//$color_temp/i; $vin

÷ºÎ ÆÄÀϸñ·Ï ÆÄÀÏ¸í ¿ë·® ´Ù¿î¼ö µî·Ï½Ã°£ 7882-sky.zip 25.21 KB 43 ȸ 2001-07-20 00:14:18

ÀÌÀü°Ô½Ã±Û mysql ¿ë·®Á¦ÇÑÇϴ¹ý°ú mail °èÁ¤ ¿ë·® Á¦ÇÑÇÏ´Â ¹ýÀ» ¾Ë°í ½Í 2001-07-19 23:15:49 ´ÙÀ½°Ô½Ã±Û ÀÌ·± Ä«¿îÅÍ ¼Ò½º ±¸ÇÕ´Ï´Ù. 2001-07-20 11:54:41