検索結果(詳細)
データの内容
項目 | 値 |
<%
my $message = $bbs->{message};
$message =~ s/\n/
/g;
foreach my $dbcol (@{ $dbi->{dbcol}{bbs} }) {
next if($dbcol->{name} eq 'passwd'); %>
<% print $dbcol->{print} %> |
<% print ($dbcol->{name} eq 'message' ?
$message : $bbs->{ $dbcol->{name} })
%> |
<%
} %>
システム内部の情報
<%
my $syswarn = [ split(/\n/, $system->{system_warning}) ];
my ($w_name, $w_msg);
foreach my $w (@$syswarn) {
($w_name, $w_msg) = (split(/\x1D/, $w))[1,2];
$w = ($w_name ? "$w_name: " : "") . $w_msg;
}
$syswarn = join('
', @$syswarn); %>
項目 | 値 |
<%
my $active = $system->{system_state}
eq $dbi->{db}{sysstate}{active} ? 1 : 0;
foreach my $i (0 .. $#{ $dbi->{db}{syscol} }) {
my $sysname = $dbi->{db}{syscol}[$i]{name}; %>
<% print $syspr->{$sysname} %> | <%
my $value = $system->{$sysname};
$value = $dbi->{misc}{sysprint_state}[$value]
if($sysname =~ m/^system_(pre_)?state$/ and defined $value);
$value = $syswarn if($sysname eq 'system_warning');
$value .= " (→ 詳細表示)"
if($sysname =~ m/^system_(pre|next)_rid$/ and defined $value);
$value .= " (→ {system_did}\">有効なデータの詳細表示)"
if($sysname =~ m/^system_did$/ and $var{actid} ne 'null'
and not $active);
print "$value |
\n";
} %>