Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.kosmofizika.ru/includes/forum/showmessage.msn Дата изменения: Mon Oct 31 10:41:00 2005 Дата индексирования: Tue Oct 2 02:29:11 2012 Кодировка: koi8-r

>

% if (defined $title) { % } % if ($r_email) { % } <% $title %>  Author:  <%$r_author%>  E-Mail:  <%$r_email%>  Date:  <%$r_time%>  Subject:  <%$r_subj%> Message <%$r_body%>

<%INIT>
my ($r_author, $r_email, $r_subj, $r_body, $r_time);

return -1 if (!defined $id || $id !~ /^\d+$/);

my $dbh=$m->comp('/includes/dbcon.msn');
return -1 unless $dbh;

my $sth = $dbh->prepare("SELECT * FROM $tree WHERE id=$id");
if (! $sth) {
$m->out("Error: " . $dbh->errstr . "
");
return;
}
if (! $sth->execute()) {
$m->out("Error: " . $dbh->errstr . "
");
return;
}
if(my $ref = $sth->fetchrow_hashref ) {
my $sth1 = $dbh->prepare("SELECT * FROM $resource_table WHERE id=".$ref->{resource});
if (! $sth1) {
$m->out("Error: " . $dbh->errstr . "
");
return -1;
}
if (! $sth1->execute()) {
$m->out("Error: " . $dbh->errstr . "
");
return -1;
}
if (my $ref1 = $sth1->fetchrow_hashref) {
$r_author = $ref1->{author} if (defined $ref1->{author});
$r_email = $ref1->{email} if (defined $ref1->{email});
$r_subj = $ref1->{subj} if (defined $ref1->{subj});
$r_body = $ref1->{body} if (defined $ref1->{body});
$r_body =~ s/\r\n/
\n/g;
$r_time = $ref1->{mtime} if (defined $ref1->{mtime});
my ($y,$m,$d,$h,$min)=($r_time =~ /^(\d{4})(\d\d)(\d\d)(\d\d)(\d\d)/);
$r_time = "$y-$m-$d $h:$min";
} else {
$sth1->finish;
$m->out("Внутренняя ошибка #3 форума!");
return -1;
}
$sth1->finish;
} else {
$sth->finish;
$m->out("Внутренняя ошибка #4 форума!");
return -1;
}
$sth->finish;


<%ARGS>
$tree
$resource_table
$id => undef
$title => undef
$width => undef


<%DOC>
$tree - tree to add message
$resource_table - resource table to add message
$id - id of message to show in tree
$width - width of form