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

Contents of /messaging/newsportal/thread.php

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1.1.1 - (show annotations) (download) (vendor branch)
Sat Dec 1 11:17:31 2001 UTC (23 years ago) by wakaba
Branch: suika
CVS Tags: initial
Changes since 1.1: +0 -0 lines
Error occurred while calculating annotation data.

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