\"Reklama.Ru."; $DEFAULT_PART=1; $SESSIONID=time().$$; @months=('Января', 'Февраля', 'Марта', 'Апреля', 'Мая', 'Июня', 'Июля', 'Августа', 'Сентября', 'Октября', 'Ноября', 'Декабря'); $READ_GROUP='confreader'; $WRITE_GROUP='confwriter'; $MODERATOR_GROUP='confmoderator'; $IS_READER=0; $IS_WRITER=0; $IS_MODERATOR=0; $dbconnect=1; $columns = 3; $forum=1; #include ../../inc/dbiconnect.inc #include ../../inc/head2.inc #$DB = DBI->connect("DBI:$DBD:$DBNAME",$DBUSER,$DBUSERPASS) || ($dbconnect=0); ## If connected to DB if ($dbconnect) { ## If connected to DB $remote_user=$ENV{'REMOTE_USER'}; $q_remote_user=$DB->quote($remote_user); $query="select groupname from group_member where login=$q_remote_user"; #print $query."
\n"; $result = $DB->prepare($query) or die "Can't prepare query: $query\n"; $result->execute or die "Can't execute query: $query\n"; while ($data_hash=$result->fetchrow_hashref) { push(@groups,$data_hash->{'groupname'}); if ($data_hash->{'groupname'} eq $READ_GROUP) { $IS_READER=1; } if ($data_hash->{'groupname'} eq $WRITE_GROUP) { $IS_WRITER=1; } if ($data_hash->{'groupname'} eq $MODERATOR_GROUP) { $IS_MODERATOR=1; } } if (($part=$CGI_PARAMS->param('part')) eq '') { $part=$DEFAULT_PART; } if (defined($CGI_PARAMS->param('add')) && defined($CGI_PARAMS->param('name')) && ($CGI_PARAMS->param('name') ne '') && defined($CGI_PARAMS->param('sessionid')) && ($CGI_PARAMS->param('sessionid') ne '') && $IS_WRITER) { $PASSED_SESSIONID=$CGI_PARAMS->param('sessionid'); ######### Determining id sessionid presents ######### $query="select id from forum_thread where sessionid=$PASSED_SESSIONID"; #print $query."
\n"; $result = $DB->prepare($query) or die "Can't prepare query: $query\n"; $result->execute or die "Can't execute query: $query\n"; if (!$result->rows) { ######### Thread creation ######### $query="insert into forum_thread (id, partid, threadname, login, sessionid, time, inform) values ("; $query.="NULL, $part, "; $query.=$DB->quote($CGI_PARAMS->param('name')).", "; $query.="$q_remote_user, "; $query.="\'$PASSED_SESSIONID\', now(), 1) "; #print $query."
\n"; $result = $DB->prepare($query) or die "Can't prepare query: $query\n"; $result->execute or die "Can't execute query: $query\n"; } } if ($IS_READER) { $query="select * from forum_part where id=$part"; #print $query."
\n"; $result = $DB->prepare($query) or die "Can't prepare query: $query\n"; $result->execute or die "Can't execute query: $query\n"; !>  
Темы раздела "fetchrow_hashref) { $forum=$data_hash->{'forumid'}; print "{'id'}."\">".$data_hash->{'partname'}.""; } !>":

\n"; $result = $DB->prepare($query) or die "Can't prepare query: $query\n"; $result->execute or die "Can't execute query: $query\n"; $data_hash=$result->fetchrow_hashref !>

Создать новую тему в разделе «{'partname'}; !>»

Название темы:

Текст сообщения:

URL:

Разделы конференций:
\n"; $result = $DB->prepare($query) or die "Can't prepare query: $query\n"; $result->execute or die "Can't execute query: $query\n"; while ($data_hash=$result->fetchrow_hashref) { if ($data_hash->{'id'} eq $part) { !> << {'partname'}!>
{'id'}."\" class=\"white\">".$data_hash->{'partname'}."
\n"; } } !>

finish; $DB->disconnect; } else { !> ОШИБКА: Нет доступа к базе данных