function Main()
{
    global $site;
    global $tmpl;
    global $date_format;
    $sRetHtml = '';
    $oBlogs = new BxDolBlogs(true);
    $oBlogs->bAdminMode = true;
    $oBlogs->sCommonCSS = <<<EOF
<link href="{$site['url']}templates/tmpl_{$tmpl}/css/blogs_common.css" rel="stylesheet" type="text/css" />
EOF;
    $sRetHtml .= $oBlogs->GenCommandForms();
    switch ($_REQUEST['action']) {
        //print functions
        case 'top_blogs':
            $sRetHtml .= $oBlogs->GenBlogLists('top');
            break;
        case 'show_member_blog':
            $sRetHtml .= $oBlogs->GenMemberBlog();
            break;
        case 'top_posts':
            $sRetHtml .= $oBlogs->GenPostLists('top');
            break;
        case 'new_post':
            $sRetHtml .= $oBlogs->AddNewPostForm();
            break;
        case 'show_member_post':
            $sRetHtml .= $oBlogs->GenPostPage();
            break;
        case 'search_by_tag':
            $sRetHtml .= $oBlogs->GenSearchResult();
            break;
            //forms of editing
        //forms of editing
        case 'add_category':
            $sRetHtml .= $oBlogs->GenEditCategoryForm();
            break;
        case 'edit_category':
            $iCategoryID = (int) $_REQUEST['categoryID'];
            $sRetHtml .= $oBlogs->GenEditCategoryForm($iCategoryID);
            break;
        case 'edit_post':
            $iPostID = (int) $_POST['EditPostID'];
            $sRetHtml .= $oBlogs->AddNewPostForm($iPostID);
            break;
            //non safe functions
        //non safe functions
        case 'create_blog':
            $sRetHtml .= $oBlogs->ActionCreateBlog();
            break;
        case 'edit_blog':
            $sRetHtml .= $oBlogs->ActionEditBlog();
            $iOwnerID = (int) $_REQUEST['EOwnerID'];
            $sRetHtml .= $oBlogs->GenMemberBlog($iOwnerID);
            break;
        case 'delete_blog':
            $sRetHtml .= $oBlogs->ActionDeleteBlogSQL();
            $sRetHtml .= $oBlogs->GenBlogLists('last');
            break;
        case 'addcategory':
            $sRetHtml .= $oBlogs->ActionUpdateCategory();
            $iOwnerID = (int) $_REQUEST['OwnerID'];
            $_REQUEST['category'] = mysql_insert_id();
            $sRetHtml .= $oBlogs->GenMemberBlog($iOwnerID);
            break;
        case 'editcategory':
            $sRetHtml .= $oBlogs->ActionUpdateCategory(TRUE);
            $iOwnerID = (int) $_REQUEST['OwnerID'];
            $_REQUEST['category'] = mysql_insert_id();
            $sRetHtml .= $oBlogs->GenMemberBlog($iOwnerID);
            break;
        case 'delete_category':
            $sRetHtml .= $oBlogs->ActionDeleteCategory();
            $iOwnerID = (int) $_REQUEST['OwnerID'];
            $sRetHtml .= $oBlogs->GenMemberBlog($iOwnerID);
            break;
        case 'del_img':
            $sRetHtml .= $oBlogs->ActionDelImg();
            $sRetHtml .= $oBlogs->GenPostPage();
            break;
        case 'add_post':
            $arrPostAdv = $oBlogs->GetPostArrByPostValues();
            $arrErr = $oBlogs->GetCheckErrors($arrPostAdv);
            if (empty($arrErr)) {
                $iLastID = -1;
                $sRetHtml .= $oBlogs->ActionAddNewPost($iLastID);
                $_REQUEST['post_id'] = $iLastID;
                $sRetHtml .= $oBlogs->GenPostPage();
            } else {
                $sRetHtml .= $oBlogs->AddNewPostForm(-1, $arrErr);
            }
            break;
        case 'post_updated':
            $iPostID = (int) $_POST['EditedPostID'];
            $arrPostAdv = $oBlogs->GetPostArrByPostValues();
            $arrErr = $oBlogs->GetCheckErrors($arrPostAdv);
            if (empty($arrErr)) {
                $sRetHtml .= $oBlogs->ActionEditPost();
                $_REQUEST['post_id'] = $iPostID;
                $sRetHtml .= $oBlogs->GenPostPage();
            } else {
                $sRetHtml .= $oBlogs->AddNewPostForm($iPostID, $arrErr);
            }
            break;
        case 'delete_post':
            $iOwnerID = (int) $_REQUEST['DOwnerID'];
            $sRetHtml .= $oBlogs->ActionDeletePost();
            $sRetHtml .= $oBlogs->GenMemberBlog($iOwnerID);
            break;
            /*case 'addcomment':
            			$sRetHtml .= $oBlogs->ActionAddBlogComment();
            			$iPostID = (int)($_POST['CommPostID']);
            			$iOwnerID = (int)($_POST['ownerID']);
            			$_REQUEST['post_id'] = $iPostID;
            			$sRetHtml .= $oBlogs->GenPostPage();
            			break;
            		case 'editcomment':
            			$sRetHtml .= $oBlogs->ActionEditComment();
            			$iPostID = (int)($_POST['EPostID']);
            			$iOwnerID = (int)($_POST['ownerID']);
            			$_REQUEST['post_id'] = $iPostID;
            			$sRetHtml .= $oBlogs->GenPostPage();
            			break;
            		case 'delete_comment':
            			$sRetHtml .= $oBlogs->ActionDeleteComment();
            			$iPostID = (int)($_POST['DPostID']);
            			$iOwnerID = (int)($_POST['ownerID']);
            			$_REQUEST['post_id'] = $iPostID;
            			$sRetHtml .= $oBlogs->GenPostPage();
            			break;*/
        /*case 'addcomment':
        			$sRetHtml .= $oBlogs->ActionAddBlogComment();
        			$iPostID = (int)($_POST['CommPostID']);
        			$iOwnerID = (int)($_POST['ownerID']);
        			$_REQUEST['post_id'] = $iPostID;
        			$sRetHtml .= $oBlogs->GenPostPage();
        			break;
        		case 'editcomment':
        			$sRetHtml .= $oBlogs->ActionEditComment();
        			$iPostID = (int)($_POST['EPostID']);
        			$iOwnerID = (int)($_POST['ownerID']);
        			$_REQUEST['post_id'] = $iPostID;
        			$sRetHtml .= $oBlogs->GenPostPage();
        			break;
        		case 'delete_comment':
        			$sRetHtml .= $oBlogs->ActionDeleteComment();
        			$iPostID = (int)($_POST['DPostID']);
        			$iOwnerID = (int)($_POST['ownerID']);
        			$_REQUEST['post_id'] = $iPostID;
        			$sRetHtml .= $oBlogs->GenPostPage();
        			break;*/
        default:
            $sRetHtml .= $oBlogs->GenBlogLists('last');
            break;
    }
    print $sRetHtml;
}
function profile_delete($ID)
{
    global $MySQL;
    global $dir;
    global $site;
    global $logged;
    $ID = (int) $ID;
    if (!$ID) {
        return false;
    }
    if (!getProfileInfo($ID)) {
        return false;
    }
    modules_del($ID);
    db_res("DELETE FROM `VKisses` WHERE `ID` = '{$ID}' OR `Member` = '{$ID}'");
    db_res("DELETE FROM `Profiles` WHERE `ID` = '{$ID}'");
    if (!mysql_affected_rows()) {
        return false;
    }
    db_res("DELETE FROM `BlockList` WHERE `ID` = '{$ID}' OR `Profile` = '{$ID}';");
    db_res("DELETE FROM `ProfilesTrack` WHERE `Member` = '{$ID}' OR `Profile` = '{$ID}'");
    db_res("DELETE FROM `Messages` WHERE Recipient = {$ID} ");
    db_res("DELETE FROM `Guestbook` WHERE Recipient = {$ID} ");
    db_res("DELETE FROM `aff_members` WHERE idProfile = {$ID}");
    db_res("DELETE FROM `HotList` WHERE ID = {$ID} OR Profile = {$ID}");
    db_res("DELETE FROM `FriendList` WHERE ID = {$ID} OR Profile = {$ID}");
    db_res("DELETE FROM `BlockList` WHERE ID = {$ID} OR Profile = {$ID}");
    db_res("DELETE FROM `BoughtContacts` WHERE `IDBuyer` = {$ID} OR `IDContact` = {$ID}");
    db_res("DELETE FROM `ProfileMemLevels` WHERE `IDMember` = {$ID}");
    db_res("DELETE FROM `ProfilesComments` WHERE `Sender` = {$ID} OR `Recipient` = {$ID}");
    db_res("DELETE FROM `ProfilesPolls` WHERE `id_profile` = {$ID}");
    db_res("DELETE FROM `Tags` WHERE `ID` = {$ID} AND `Type` = 'profile'");
    db_res("DELETE FROM `GroupsMembers` WHERE `memberID` = {$ID}");
    // delete profile votings
    require_once BX_DIRECTORY_PATH_CLASSES . 'BxDolVoting.php';
    $oVotingProfile = new BxDolVoting('profile', 0, 0);
    $oVotingProfile->deleteVotings($ID);
    // delete profile comments
    require_once BX_DIRECTORY_PATH_CLASSES . 'BxDolCmts.php';
    $oCmts = new BxDolCmts('profile', $ID);
    $oCmts->onObjectDelete();
    // delete all comments in all comments' systems, this user posted
    $oCmts->onAuthorDelete($ID);
    // Clean gallery
    $albumsRes = db_res("SELECT `ID` FROM `GalleryAlbums` WHERE `IDMember` = {$ID}");
    while ($albumArr = mysql_fetch_assoc($albumsRes)) {
        $albumID = $albumArr['ID'];
        $objectsRes = db_res("SELECT `Filename`, `ThumbFilename` FROM `GalleryObjects` WHERE `IDAlbum` = {$albumID}");
        while ($objectArr = mysql_fetch_assoc($objectsRes)) {
            @unlink("{$dir['gallery']}{$objectArr['Filename']}");
            if (strlen($objectArr['ThumbFilename']) && file_exists("{$dir['gallery']}{$objectArr['ThumbFilename']}")) {
                @unlink("{$dir['gallery']}{$objectArr['ThumbFilename']}");
            }
        }
        db_res("DELETE FROM `GalleryObjects` WHERE `IDAlbum` = {$albumID}");
    }
    db_res("DELETE FROM `GalleryAlbums` WHERE `IDMember` = {$ID}");
    // Clean customizations
    $customArr = db_arr("SELECT `BackgroundFilename` FROM `ProfilesSettings` WHERE `IDMember` = {$ID}");
    if (strlen($customArr['BackgroundFilename']) && file_exists($dir['profileImage'] . $customArr['BackgroundFilename']) && is_file($dir['profileImage'] . $customArr['BackgroundFilename'])) {
        unlink($dir['profileImage'] . $customArr['BackgroundFilename']);
    }
    db_res("DELETE FROM `ProfilesSettings` WHERE `IDMember` = {$ID}");
    // delete media
    $rMedia = db_res("SELECT `med_id`, `med_file`, `med_type` FROM `media` WHERE `med_prof_id` = {$ID}");
    $oVotingMedia = new BxDolVoting('media', 0, 0);
    while ($aMedia = mysql_fetch_assoc($rMedia)) {
        switch ($aMedia['med_type']) {
            case 'photo':
                $medDir = $dir['profileImage'] . $ID . "/";
                @unlink($medDir . 'icon_' . $aMedia['med_file']);
                @unlink($medDir . 'photo_' . $aMedia['med_file']);
                @unlink($medDir . 'thumb_' . $aMedia['med_file']);
                break;
            case 'audio':
                $medDir = $dir['profileSound'] . $ID . "/";
                @unlink($medDir . $aMedia['med_file']);
                break;
            case 'video':
                $medDir = $dir['profileVideo'] . $ID . "/";
                @unlink($medDir . $aMedia['med_file']);
                break;
        }
        // delete media voting
        $oVotingMedia->deleteVotings($aMedia['med_id']);
    }
    $aMem = array();
    $aMedia = array('photo', 'music', 'video');
    foreach ($aMedia as $sVal) {
        $oMedia = new BxDolSharedMedia($sVal, $site, $dir, $aMem);
        $oMedia->deleteUserGallery($ID, $logged);
    }
    db_res("DELETE FROM `media` WHERE `med_prof_id` = {$ID}");
    @rmdir($dir['profileImage'] . $ID);
    @rmdir($dir['profileVideo'] . $ID);
    @rmdir($dir['profileSound'] . $ID);
    //Clean blogs
    $aBlog = db_arr("SELECT `ID` FROM `Blogs` WHERE `OwnerID` = {$ID}");
    $iBlogID = $aBlog['ID'];
    if ($iBlogID > 0) {
        //Clean blogs
        $oBlogs = new BxDolBlogs(TRUE);
        $oBlogs->bAdminMode = TRUE;
        (int) ($_REQUEST['DeleteBlogID'] = $iBlogID);
        $oBlogs->ActionDeleteBlogSQL();
    }
    //delete user classifieds
    $oClassifieds = new BxDolClassifieds();
    $oClassifieds->bAdminMode = TRUE;
    $oClassifieds->DeleteProfileAdvertisement($ID);
    //delete user events
    $oEvents = new BxDolEvents();
    $oEvents->bAdminMode = TRUE;
    $oEvents->DeleteProfileEvents($ID);
    //delete cache file
    $sCacheFile = $dir['cache'] . 'user' . $ID . '.php';
    @unlink($sCacheFile);
    reparseObjTags('profile', $ID);
}