28 Апрель 2011

Мой первый скрипт с Bitrix API — очистка форума

Перекидываю форум с PHPBB на Битрикс — благо конверторы писать с нуля не придётся — спасибо Долганину Антону за его статью Переезжаем с phpBB на форум Битрикс. Экспериментирую на тестовом форуме, поэтому перед наполнением, его нужно было почистить.
Собственно реализация этой небольшой ТЗ, созданная мной буквально за 5 минут (а битрикс то весьма удобен!):

<?php
set_time_limit(0);
ignore_user_abort();

require($_SERVER["DOCUMENT_ROOT"]."/bitrix/modules/main/include/prolog_before.php");

if (CModule::IncludeModule("forum")) {
	// clear topics
	$db_res = CForumTopic::GetList(array(), array());
	while ($ar_res = $db_res->Fetch()) {
		echo 'deleted -'.$ar_res["TITLE"].'<br>';
		CForumTopic::Delete($ar_res["ID"]);
	}
	// clear forums
	$db_Forum = CForumNew::GetList(array(), array());
	while ($ar_Forum = $db_Forum->Fetch()) {
		CForumNew::Delete($ar_Forum["ID"]);
		echo 'deleted - '.$ar_Forum["NAME"].'<br>';
	}

       //clear users (кроме меня)
       $rsUser = CUser::GetList($by="ID", $order="DESC", array());
       while ($arU = $rsUser->GetNext()) {
	echo $arU["NAME"]."<br>";
	if($arU["ID"]>1) {
		CUser::Delete($arU["ID"]);
		echo "deleted<br>";
	} else {
		echo "stay<br>";
	}
}

}
?>

<?php

set_time_limit(0);

ignore_user_abort();

require($_SERVER["DOCUMENT_ROOT"]."/bitrix/modules/main/include/prolog_before.php");

if (CModule::IncludeModule("forum")) {

// clear topics

$db_res = CForumTopic::GetList(array(), array());

while ($ar_res = $db_res->Fetch()) {

echo 'deleted -'.$ar_res["TITLE"].' ';

CForumTopic::Delete($ar_res["ID"]);

}

// clear forums

$db_Forum = CForumNew::GetList(array(), array());

while ($ar_Forum = $db_Forum->Fetch()) {

CForumNew::Delete($ar_Forum["ID"]);

echo 'deleted - '.$ar_Forum["NAME"].' ';

}

//clear users (кроме меня)

$rsUser = CUser::GetList($by="ID", $order="DESC", array());

while ($arU = $rsUser->GetNext()) {

echo $arU["NAME"]." ";

if($arU["ID"]>1) {

CUser::Delete($arU["ID"]);

echo "deleted ";

} else {

echo "stay ";

}

Запись опубликована on 28.04.2011 at 12:39 and is filed under Программирование. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.

1 On 29.04.2011, Андрей Пилюгин said:

Антон польщён 🙂
Код можно немного оптимизировать в последней проходочке. Вот так:
//clear users (кроме меня)
$rsUser = CUser::GetList($by=»ID», $order=»DESC», array(«!ID»=>1));
while ($arU = $rsUser->GetNext()) {
echo $arU[«NAME»].»»;
CUser::Delete($arU[«ID»]);
echo «deleted»;
}

2 On 29.04.2011, GTAlex said:

Согласен, условие сразу в фильтр запихать — было бы правильнее.
Андрей, а ты чё — мой блог читаешь ? 🙂

Пн	Вт	Ср	Чт	Пт	Сб	Вс
« Мар
1	2	3	4	5	6	7
8	9	10	11	12	13	14
15	16	17	18	19	20	21
22	23	24	25	26	27	28
29	30

Мой первый скрипт с Bitrix API — очистка форума

У нас 2 комментария на запись “Мой первый скрипт с Bitrix API — очистка форума”

Оставить комментарий