. HTML-Tabellen korrigieren (wml::std::box) mit fix-Target
[infodrom.org/www.infodrom.org] / src / News / index.wml
1 #include <basic.style>
2 #include "../index-tools.pl"
3
4 <html>
5 <head><title>Infodrom Oldenburg - News</title></head>
6
7 <body-tag>
8
9 <h1 align=center><font face="Helvetica,Arial">Infodrom Oldenburg</font><hr width=90% align=center></h1>
10
11 <: main_menu (('Infodrom','Linux','Debian','Linx','Projects','News')); :>
12
13 <font face="Helvetica,Arial">
14 <?
15   $dbh = pg_pconnect ("kuolema", "5432", "web")
16                or die("Unable to connect to SQL server");
17
18   pg_exec ($dbh, "SET DateStyle = 'ISO'") or die("Datenbank-Abfrage!");
19
20   if ($id > 0) {
21     $query = "SELECT * FROM news WHERE id = '$id'";
22     $sth = pg_exec ($dbh, $query);
23
24     if (pg_NumRows ($sth) > 0) {
25       $row = pg_fetch_array ($sth, 0);
26       if ($row['deleted'] == 0) {
27         $date = explode (" ", $row['releasedate']);
28         $date = explode ("-", $date[0]);
29         $date = sprintf ("%d.%d.%d", $date[2], $date[1], $date[0]);
30
31         printf ("<h3>%s</h3>", $row['subject']);
32         printf ("<h5>Von <a href=\"mailto:%s\">%s</a>, %s</h5>", $row['email'], $row['author'], $date);
33         printf ("<b>%s</b><p>", $row['teaser']);
34         echo ereg_replace ("<newline>", "
35 ", ereg_replace ("<newline><newline>","<p>", ereg_replace ("
36 ", "<newline>", $row['body'])));
37
38
39       }
40     }
41     echo "<p><a href=\"shownews.php3\">Ältere Nachrichten</a><p>";
42   } else {
43     $query = "SELECT id,subject,author,releasedate,teaser,body FROM news "
44            . "WHERE deleted = 0 AND releasedate < now() AND teaser <> '' "
45            . "ORDER BY releasedate DESC,insertd DESC";
46     $sth = pg_exec ($dbh, $query) or die("Datenbank-Abfrage!");
47
48     for ($nr=0; $nr < pg_NumRows ($sth); $nr++) {
49       $row = pg_fetch_array ($sth, $nr);
50       $date = explode (" ", $row['releasedate']);
51       $date = explode ("-", $date[0]);
52       $date = sprintf ("%d.%d.%d", $date[2], $date[1], $date[0]);
53       printf ("<b>%s</b><br>%s", $row['subject'], $row['teaser']);
54       if (strlen ($row['body']) > 0) {
55         printf (" <a href=\"shownews.php3?id=%d\"><phpmehr></a>", $row['id']);
56       }
57       printf ("<br>(<font size=\"-1\">%s, %s</font>)<p>", $row['author'], $date);
58
59     }
60   }
61 ?>
62 </font>
63
64 <page-footer>
65 </body>
66 </html>
67
68 # Local variables:
69 # mode: indented-text
70 # mode: auto-fill
71 # mode: iso-accents
72 # end: