home *** CD-ROM | disk | FTP | other *** search
/ Internet Magazine 2003 May / INTERNET103.ISO / pc / software / windows / building / php_nuke / html / blocks / block-random_headlines.php < prev    next >
Encoding:
PHP Script  |  2002-09-16  |  2.8 KB  |  59 lines
  1. <?php
  2.  
  3. /************************************************************************/
  4. /* PHP-NUKE: Web Portal System                                          */
  5. /* ===========================                                          */
  6. /*                                                                      */
  7. /* Copyright (c) 2002 by Francisco Burzi                                */
  8. /* http://phpnuke.org                                                   */
  9. /*                                                                      */
  10. /* This program is free software. You can redistribute it and/or modify */
  11. /* it under the terms of the GNU General Public License as published by */
  12. /* the Free Software Foundation; either version 2 of the License.       */
  13. /************************************************************************/
  14.  
  15. if (eregi("block-Random_Headlines.php", $PHP_SELF)) {
  16.     Header("Location: index.php");
  17.     die();
  18. }
  19.  
  20. global $prefix, $multilingual, $currentlang, $dbi, $tipath, $user, $cookie;
  21.  
  22. $r_options = "";
  23. if (isset($cookie[4])) { $r_options .= "&mode=$cookie[4]"; }
  24. if (isset($cookie[5])) { $r_options .= "&order=$cookie[5]"; }
  25. if (isset($cookie[6])) { $r_options .= "&thold=$cookie[6]"; }
  26.  
  27. if ($multilingual == 1) {
  28.     $querylang = "AND (alanguage='$currentlang' OR alanguage='')"; /* the OR is needed to display stories who are posted to ALL languages */
  29. } else {
  30.     $querylang = "";
  31. }
  32.  
  33. $result = sql_query("select * from ".$prefix."_topics", $dbi);
  34. $numrows = sql_num_rows($result, $dbi);
  35. if ($numrows > 1) {
  36.     $result = sql_query("select topicid from ".$prefix."_topics", $dbi);
  37.     while (list($topicid) = sql_fetch_row($result, $dbi)) {
  38.     $topic_array .= "$topicid-";
  39.     }
  40.     $r_topic = explode("-",$topic_array);
  41.     mt_srand((double)microtime()*1000000);
  42.     $numrows = $numrows-1;
  43.     $topic = mt_rand(0, $numrows);
  44.     $topic = $r_topic[$topic];
  45. } else {
  46.     $topic = 1;
  47. }
  48.  
  49. $result = sql_query("select sid, title from ".$prefix."_stories where topic='$topic' $querylang order by sid DESC limit 0,9", $dbi);
  50. $res = sql_query("select topicimage, topictext from ".$prefix."_topics where topicid='$topic'", $dbi);
  51. list($topicimage, $topictext) = sql_fetch_row($res, $dbi);
  52. $content = "<br><center><a href=\"modules.php?name=News&new_topic=$topic\"><img src=\"$tipath$topicimage\" border=\"0\" alt=\"$topictext\" title=\"$topictext\"></a><br>[ <a href=\"modules.php?name=Search&topic=$topic\">$topictext</a> ]</center><br>";
  53. $content .= "<table border=\"0\" width=\"100%\">";
  54. while(list($sid, $title) = sql_fetch_row($result, $dbi)) {
  55.     $content .= "<tr><td valign=\"top\"><strong><big>·</big></strong></td><td><a href=\"modules.php?name=News&file=article&sid=$sid$r_options\">$title</a></td></tr>";
  56. }
  57. $content .= "</table>";
  58.  
  59. ?>