データファイルが一部破損する

Question

ネット上で配布されているCGIを使っているのですが
登録数が200を超えたあたりから、古いデータ(data.dat)が100個ほど消えてしまいました。
ただコピペしただけなのでなぜ消えたのかわかりません。
どこか直せばいい所があるのでしょうか？

$max = 25;	# テーブル1つあたりの人数
$max_table = 2;	# 1ページに表示するテーブルの数

$checkname = 0;

$makeindex = 0;

$formmail = 1;

$adminmail = 0;			# 0：送らない  1：新規投稿の場合のみ  2：修正の時のみ 3：新規投稿と修正の時
$mailfor = '[e-mail]';	# 送り先メールアドレス。送らないときは変更の必要無し
$mailfrom = 'Formmail';		# 差出人欄に表示するアドレス。これは変更しなくてもOK

$usetag = 1;

@errtag = ('table','script','meta','form','!--','embed','html','body','tr','td','th','noscript','style');

$autolink = 1;

$show_host = 0;

# 訪問者が入力したURLに飛ぶときは・・・0:同じ窓で表示 1:別窓表示
$target = 1;

# 日付は年まで取得する？(0=月まで 1=年まで) 
$getyear = 0;

# 詳細表示ページで、前後のNoの人へのリンクを表示するするか？
#  (0=表示しない 1=上部にのみ表示 2=下部にのみ表示 3=上下に表示) 
$numlink = 3;

# 曜日の表示法。変更例→ @wday_array = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');　←こんな感じ
@wday_array = ('日','月','火','水','木','金','土');

# 登録者が自分で削除を行った場合の設定
# 0：削除自体不可能にする(削除フォーム非表示)
# 1：完全削除（再登録は不可能になるが、ログは軽くなる）
# 2：欠番状態にする（再登録可）
# 3：1と2で選択可
$deltype = 2;

# 項目入力フォームと、コメント入力フォームの幅
$item_wid = 30;		# 項目入力フォーム
$com_wid = 60;		# コメント入力フォーム

# データベース風に使う場合は、$namaeを「情報」や「データ」としてもいいかも。
# スクリプト中の「名前」とという単語をすべて置きかえます。
$namae = '名前';

# 背景画像の設定(http://～でOK)
$background = '';


#--------------------------------
# ファイル・フォルダへのパス設定
#--------------------------------
# cgi-lib.plへのパス（同じフォルダならこのまま）
require './cgi-lib.pl';

# jcode.plへのパス（同じフォルダならこのまま）
$jcodepath = './jcode.pl';

# tool.cgiへのパス（同じフォルダならこのまま）
$uppath = './tool.cgi';

$sendmail="/usr/sbin/sendmail";

$stylepath = './style.css';

$cgipath = './list.cgi';

$datapath = "./data.dat";

$imgdir = './img/';


$main_title = 'Miniりすと';

# タイトルに画像を使いたい場合は以下を設定
$t_img= '';			# タイトル画像をURLで指定
$twid = 135;			# 　〃　の横幅(ピクセル指定)
$thei = 80;			# 　〃　の縦幅(　〃　)


$usedeny = 0;
@deny = ("xxx.xxx.com","123.456.789.*","");	# 対象のホスト名（IPアドレス）

# アクセス制限に引っ掛かる場合は・・・(0:名簿の閲覧自体禁止 1:閲覧はできるけど投稿できない)
$denytype = 0;

# アクセス制限に引っ掛かった場合のコメント。
$denycom = '現在利用できません';

$base_url = '';

$method = 'POST';


$locktype = 0;

$lockfile = "list.loc";		# ロックファイル名
$lockdir = "lock/";		# ロックファイルディレクトリ（パーミッションは777or755）

$encode = 1;

$location = 1;

$imgdir2 = '';		# 通常は空のままでOK


&decode;
$lockfile = "$lockdir$lockfile";		# ロックファイルを定義
if(!$imgdir2){ $imgdir2 = $imgdir; }		# CGI専用サーバーでの利用を考慮
if($usedeny && !$denytype){ &host_check; }	# アクセス制限

if($mode eq "") { &index; }
elsif ($mode eq "show") { &show; }
elsif ($mode eq "view") { &show; }

require "$uppath";	# 滅多に使わないサブルーチン入れ読み込み
if ($mode eq "add") { &add; }
elsif ($mode eq "find") { &find; }
elsif ($mode eq "addform") { &form; }
elsif ($mode eq "editform"){ &form; }
elsif ($mode eq "send_form") { &send_form; }
elsif ($mode eq "admin") { &admin; }
elsif ($mode eq "edit"){ &edit; }
elsif ($mode eq "c_pass") { &edit; }
elsif ($mode eq "c_img") { &edit; }
elsif ($mode eq "c_name") { &edit; }
elsif ($mode eq "del") { &edit; }
elsif ($mode eq "download") { &download; }
elsif ($mode eq "send") { &send; }
elsif ($mode eq "make") { &make; }
elsif ($mode eq "remake") { &remake; }
else{ &index; }
exit;


# ------------ #
# デコード処理 #
# ------------ #
sub decode{
&ReadParse;
if(%in){ require "$jcodepath"; }
while (($key,$val) = each %in) {
	if ($key ne "upfile") {
		&jcode'convert(*val, "sjis", "", "z");

		# タグ処理
		# 全て許可
   		if($usetag == 2) {
			if($in{'kill_tag'} && $key eq "comment"){
				$val =~ s/</&lt;/g;
				$val =~ s/>/&gt;/g;
				$val =~ s/\"/&quot;/g;
			}
			foreach ( @errtag ){
				if ($value =~ /<$_(.|\n)*>/i) {	 &error("利用できないタグが含まれています"); }
			}
		}
		else {
			# コメントのみタグ許可
			if($usetag == 1 && $key eq "comment"){
				if($in{'kill_tag'}){
					$val =~ s/</&lt;/g;
					$val =~ s/>/&gt;/g;
					$val =~ s/\"/&quot;/g;
				}
				else{
					foreach ( @errtag ){
					if ($value =~ /<$_(.|\n)*>/i) {	 &error("利用できないタグが含まれています");	}
					}
				}
			}
			# 全て不可
			else{
				$val =~ s/</&lt;/g;
				$val =~ s/>/&gt;/g;
				$val =~ s/\"/&quot;/g;
			}
		}

		# 区切り文字の”,”があれば"，”に変換
		$val =~ s/\,/，/g;

		# 改行処理
		if ($key eq "comment") {
			$val =~ s/\r\n/<br>/g;
			$val =~ s/\r/<br>/g;
			$val =~ s/\n/<br>/g;
		}
		else {
			$val =~ s/\r//g;
			$val =~ s/\n//g;
		}

		if($autolink && $key eq "comment"){
			$val =~ s/([^=^\"]|^)(http\:[\w.\~\-/?\&+\=\:\@\%\;\#\%]+)/$1<a href=\"$2\" target='_blank'>$2</a>/g;
		}
	}
	$in{$key} = $val;
}
$mode = $in{'mode'};
$sort = $in{'sort'};
$in{'url'} =~ s/^http\:////;
}

Comments

[ockeghem]

処理の肝心な部分のソースが開示されていないようです。
また、「ネット上で配布されているCGI」の出典を示して下さい。