/[suikacvs]/messaging/newsportal/thread.php
Suika

Contents of /messaging/newsportal/thread.php

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (hide annotations) (download)
Sat Dec 1 11:51:33 2001 UTC (23 years ago) by wakaba
Branch: MAIN
Changes since 1.1: +4 -5 lines
*** empty log message ***

1 wakaba 1.1 <? header("Expires: ".gmdate("D, d M Y H:i:s",time()+7200)." GMT");
2    
3     $url=explode("/",$PATH_INFO);
4     $group=$url[1];
5     if (!isset($url[2])) {
6     header('Location: '.$group.'/index.html'); //.$URL.'/index.html');
7     echo "nix";
8     exit;
9     } else {
10     $pagestring=$url[2];
11     if (eregi('^.*_.*\.html',$pagestring)) {
12     $first=substr($pagestring,0,strpos($pagestring,'_'));
13     $last=str_replace('.html','',
14     substr($pagestring,strpos($pagestring,'_')+1));
15     }
16     }
17     include "config.inc";
18     $title.= ' - '.$group;
19     include "body.inc"; ?>
20    
21 wakaba 1.2 <h1 id="top"><?php echo $group; ?></h1>
22 wakaba 1.1
23 wakaba 1.2 <p class="navi">
24 wakaba 1.1 <? if (!$readonly)
25     echo '[<a href="../../'.$file_post.'?newsgroups='.urlencode($group).'&amp;type=new">'.$text_thread["button_write"]."</a>] ";
26     echo '[<a href="../../'.$file_groups.'">'.$text_thread["button_grouplist"].'</a>]';
27     ?>
28     </p>
29    
30     <?
31     include("$file_newsportal");
32     $ns=OpenNNTPconnection($server,$port);
33     flush();
34     if ($ns != false) {
35     $headers = readOverview($ns,$group,1);
36     $article_count=count($headers);
37     if ($articles_per_page != 0) {
38     if ((!isset($first)) || (!isset($last))) {
39     if ($startpage=="first") {
40     $first=1;
41     $last=$articles_per_page;
42     } else {
43     $first=$article_count - (($article_count -1) % $articles_per_page);
44     $last=$article_count;
45     }
46     }
47 wakaba 1.2 echo '<p class="page">';
48 wakaba 1.1 showPageSelectMenu(count($headers),$first);
49     echo '</p>';
50     } else {
51     $first=0;
52     $last=$article_count;
53     }
54     showHeaders($headers,$group,$first,$last);
55     closeNNTPconnection($ns);
56     }
57     ?>
58    
59 wakaba 1.2 <p class="backnavi"><a href="#top"><? echo $text_thread["button_top"];?></a></p>
60 wakaba 1.1
61     <? include "footer.inc"; ?>

admin@suikawiki.org
ViewVC Help
Powered by ViewVC 1.1.24