vBadvanced CMPS + Latest Topics + Non VB .php files

[SaN-DeeP]

Hi Guys,
I am impressed by the way VB CMPS Latest Topics Display an example is shown on vbadvanced.com.

I would like to know how can i display the same on non vbulletin php pages ? and also control various properties for same. ?

Original Hack Thread: https://vborg.vbsupport.ru/showthread.php?t=65797

Code for latesttopics.php file from the above hack:

<?php
// ++=========================================================================++
// || vBadvanced CMPS 1.0.0												   ||
// || ? 2003-2004 vBadvanced.com & PlurPlanet, LLC - All Rights Reserved	  ||
// || This file may not be redistributed in whole or significant part.		||
// || http://vbadvanced.com												   ||
// ++ ========================================================================++
// ######################### Latest Forum Topics #########################
if ($vba_options['portal_threads_maxthreads'])
{
 $inforums = '';
 if ($vba_options['portal_threads_forumids'])
 {
  if (!empty($forumperms))
  {
   $inforums = array();
   $threadsforums = explode(',', $vba_options['portal_threads_forumids']);
   foreach ($threadsforums AS $tforum)
   {
	if (!in_array($tforum, $forumperms))
	{
	 $inforums[] = $tforum;
	}
   }
   if (!empty($inforums))
   {
	$inforums = implode(',', $inforums);
   }
  }
  else
  {
   $inforums = $vba_options['portal_threads_forumids'];
  }
  if ($inforums)
  {
   $inforums = 'AND thread.forumid IN (' . $inforums . ')';
  }
 }
 $foruminfo['allowratings'] = $vba_options['portal_threads_showrating'];
 $show['lastpost'] = $vba_options['portal_threads_lastpost'];
 if ($vba_options['portal_threads_showsubscribed'] AND $bbuserinfo['userid'])
 {
  $query['subfields'] = ', NOT ISNULL(subscribethread.subscribethreadid) AS subscribed';
  $query['subjoin'] = 'LEFT JOIN ' . TABLE_PREFIX . 'subscribethread AS subscribethread ON (subscribethread.threadid = thread.threadid AND subscribethread.userid = ' . $bbuserinfo['userid'] . ')';
 }
 if ($vba_options['portal_threads_showpreview'] AND $vboptions['threadpreview'])
 {
  $query['previewfields'] = ', post.pagetext AS preview';
  $query['previewjoin'] = 'LEFT JOIN ' . TABLE_PREFIX . 'post AS post ON (post.postid = thread.firstpostid)';
 }
 if ($vba_options['portal_threads_showforum'])
 {
  $query['forumfields'] = ',thread.forumid, forum.title AS forumtitle';
  $query['forumjoin'] = 'LEFT JOIN ' . TABLE_PREFIX . 'forum AS forum ON (thread.forumid = forum.forumid)';
 }
 if ($vba_options['portal_threads_showicon'])
 {
  $query['iconfields'] = ', thread.iconid AS threadiconid, iconpath AS threadiconpath';
  $query['iconjoin'] = 'LEFT JOIN ' . TABLE_PREFIX . 'icon USING (iconid)';
 }
  $threads = $DB_site->query("
	SELECT 
	" . iif($vba_options['portal_threads_showrating'], 'IF(votenum >= ' . $vboptions['showvotes'] . ', votenum, 0) AS votenum, IF(votenum >= ' . $vboptions['showvotes'] . ' AND votenum != 0, votetotal / votenum, 0) AS voteavg,') . "
	thread.threadid, thread.title, thread.replycount, postusername, postuserid, thread.dateline AS postdateline, IF(views <= thread.replycount, thread.replycount+1, views) AS views, thread.lastposter, thread.lastpost, pollid
	$query[iconfields]
   $query[forumfields]
   $query[previewfields]
   $query[subfields]
   FROM " . TABLE_PREFIX . "thread as thread
   $query[iconjoin]
   $query[forumjoin]
   $query[previewjoin]
   $deljoin
   $query[subjoin]
   WHERE open <> '10' AND thread.visible = 1 $iforumperms $inforums $notdeleted 
   ORDER BY lastpost DESC 
   LIMIT $vba_options[portal_threads_maxthreads]
 ");
  while ($thread = $DB_site->fetch_array($threads))
  {
  if (strlen($thread['title']) > $vba_options['portal_threads_maxchars'] AND $vba_options['portal_threads_maxchars'])
  {
   $thread['title'] = fetch_trimmed_title($thread['title'], $vba_options['portal_threads_maxchars']);
  }
  $thread = process_thread_array($thread, '', $vba_options['portal_threads_showicon']);
  $getbgrow = getrowcolor();
  eval('$threadbits .= "' . fetch_template('adv_portal_latesttopicbits') . '";');
  }
 eval('$home[$mods[\'modid\']][\'content\'] = "' . fetch_template('adv_portal_latesttopics') . '";');
  $DB_site->free_result($threads);
  unset($thread, $threadbits, $foruminfo, $query, $inforums);
}
?>

Regards,
Sandy...

[AN-net]

well its not too hard you can just include that file into your page and use it

[SaN-DeeP]

Originally Posted by AN-net

well its not too hard you can just include that file into your page and use it

AN-NET i am sorry, I forgot the basics now

Please help

Regards,

[SaN-DeeP]

bumping back to get attention.

Regards,

[SaN-DeeP]

i wonder if this is possible from anyone ??

[Tigga]

Originally Posted by AN-net

well its not too hard you can just include that file into your page and use it

Not really... You also need to require global.php, replace the $vba_option variables and hardcode the values, plus probably change a bit of code to get it away from the moudle system in vBa.