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

Contents of /messaging/newsportal/thread.php

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (hide annotations) (download)
Sat Dec 1 11:17:31 2001 UTC (22 years, 11 months ago) by wakaba
Branch: MAIN
Branch point for: suika
Initial revision

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     <a name="top"></a>
22     <h1 align="center"><?php echo $group; ?></h1>
23    
24     <p align="center">
25     <? if (!$readonly)
26     echo '[<a href="../../'.$file_post.'?newsgroups='.urlencode($group).'&amp;type=new">'.$text_thread["button_write"]."</a>] ";
27     echo '[<a href="../../'.$file_groups.'">'.$text_thread["button_grouplist"].'</a>]';
28     ?>
29     </p>
30    
31     <?
32     include("$file_newsportal");
33     $ns=OpenNNTPconnection($server,$port);
34     flush();
35     if ($ns != false) {
36     $headers = readOverview($ns,$group,1);
37     $article_count=count($headers);
38     if ($articles_per_page != 0) {
39     if ((!isset($first)) || (!isset($last))) {
40     if ($startpage=="first") {
41     $first=1;
42     $last=$articles_per_page;
43     } else {
44     $first=$article_count - (($article_count -1) % $articles_per_page);
45     $last=$article_count;
46     }
47     }
48     echo '<p align="center">';
49     showPageSelectMenu(count($headers),$first);
50     echo '</p>';
51     } else {
52     $first=0;
53     $last=$article_count;
54     }
55     showHeaders($headers,$group,$first,$last);
56     closeNNTPconnection($ns);
57     }
58     ?>
59    
60     <p align="right"><a href="#top"><? echo $text_thread["button_top"];?></a></p>
61    
62     <? include "footer.inc"; ?>

admin@suikawiki.org
ViewVC Help
Powered by ViewVC 1.1.24