[問題]商人物语index.cgi显示不正常.

[3312270947]

出来后是白屏.不管怎么弄这是.大大能解答一下吗.
我用的LITESERVE+PERL.运行网络大航海也没问题,
可是为什么白屏呢?难道是日文没翻译的关系?

[3312270947]

#!/usr/bin/perl
# トップ画面 2004/01/20 由來

require './_config.cgi';
RequireFile('inc-func.cgi');
RequireFile('inc-version.cgi');

Turn();

GetQuery();
GetCookie();
SetCookieSession();
DataRead();

$username=$Q{nm} ? $Q{nm} : $COOKIE{USERNAME};
$password=$Q{pw} ? $Q{pw} : $COOKIE{PASSWORD};
$lform="";
if (!$MOBILE)
{
$lform.=GetTagA('【新規店舗オープン】<small>残り'.($MAX_USER-$DTusercount).'名様</small>',"action.cgi?key=new") if $MAX_USER>$DTusercount;
$lform.='【新規店舗オープン】<small>現在満員</small>' if $MAX_USER<=$DTusercount;
$lform.=($MAX_MOVE_USER>$DTusercount)?('<small>（移転：残り'.($MAX_MOVE_USER-$DTusercount).'名様）</small>'):('<small>（移転：現在満員）</small>') if $MOVETOWN_ENABLE;
$lform.="<br>";
}
$DISP{MENU} =~ s/#SKINNEW#/$lform/;
$DISP{MENU} =~ s/#SKINNAME#/$username/;
$DISP{MENU} =~ s/#SKINPW#/$password/;
$DISP{MENU} =~ s/#SKINCOMMENT#/$TITLE_COMMENT/;

$DT={};
$DT->{id}=-1;
$GUEST_USER=1;
RequireFile('inc-html-top.cgi') if (!$MOBILE);

$DISP{BOTTOM} =~ s/#SKINVER#/$BASE_VERSION/;
$DISP{BOTTOM} =~ s/#SKINEDIT#/$ITEM_VERSION/;
$DISP{BOTTOM} =~ s/#SKINMAIL#/$ADMIN_EMAIL/;

OutSkin();
exit;

sub GetCookie
{
foreach(split(/\s*;\s*/,$ENV{HTTP_COOKIE}))
{
@_=split(/=/);
$COOKIE{$_[0]}=$_[1];
next if $_[0] ne 'shop';
foreach(split(/,/,$_[1]))
{
@_=split(/:/);
$COOKIE{$_[0]}=$_[1];
}
}
}
这是我的index.cgi文件.