Source for file read.php

Documentation is available at read.php
<?php
//
// +----------------------------------------------------------------------+
// | PHP Version 4                                                        |
// +----------------------------------------------------------------------+
// | Copyright (c) 1997-2003 The PHP Group                                |
// +----------------------------------------------------------------------+
// | This source file is subject to version 2.0 of the PHP license,       |
// | that is bundled with this package in the file LICENSE, and is        |
// | available at through the world-wide-web at                           |
// | http://www.php.net/license/2_02.txt.                                 |
// | If you did not receive a copy of the PHP license and are unable to   |
// | obtain it through the world-wide-web, please send a note to          |
// | license@php.net so we can mail you a copy immediately.               |
// +----------------------------------------------------------------------+
// | Authors: Alexander Merz <alexmerz@php.net>                           |
// |          Heino H. Gehlsen <heino@gehlsen.dk>                         |
// +----------------------------------------------------------------------+
//
// $Id: read.php,v 1.2.6.1 2005/11/27 21:49:10 heino Exp $
 
$host = 'news.php.net';
$debug = false;
 
?>
<html>
 
<head>
    <title>NNTP <?php echo $host; ?></title>
</head>
 
<body>
<?php
 
if (!isset($_GET['msgid']) and isset($_GET['group'])){
    echo '<font color="red">No message choosed!</font><br>' ;    
}
 
$group = $_GET['group'];
$messageID = $_GET['msgid'];
 
require_once 'Net/NNTP/Client.php';
 
$nntp = new Net_NNTP_Client();
$nntp->setDebug($debug);
 
$posting = $nntp->connect($host);
if (PEAR::isError($posting)) {
    echo '<font color="red">No connection to newsserver!</font><br>';
    die($posting->getMessage());
}
 
$currentgroup = $nntp->selectGroup($group);
if (PEAR::isError($currentgroup)) {
    die('<font color="red">' . $currentgroup->getMessage() . '</font><br>');
}
 
$header = $nntp->getHeader($messageID);
$body = $nntp->getBodyRaw($messageID, true);
 
echo '<h1>Message</h1>';
echo '<hr>';
echo '<h2>Header</h2>';
echo '<pre>';
foreach ($header->getFieldsArray() as $field) {
    echo $field, '<br>';
}              
echo '</pre>';
echo '<hr>';
echo '<h2>Body</h2>';
echo '<form><textarea wrap="off" cols="79", rows="25">', $body, '</textarea></form>';
 
$nntp->quit();
 
?>
</body>
 
</html>