".$text_error["error:"]."
"; } else { if ($ns != false) { fputs($ns,"mode reader\r\n"); $weg=lieszeile($ns); // and once more if (substr($weg,0,2) != "20") { echo "".$text_error["error:"]."
"; } } if ((isset($server_auth_user)) && (isset($server_auth_pass)) && ($server_auth_user != "")) { fputs($ns,"authinfo user $server_auth_user\r\n"); $weg=lieszeile($ns); fputs($ns,"authinfo pass $server_auth_pass\r\n"); $weg=lieszeile($ns); if (substr($weg,0,3) != "281") { echo "".$text_error["error:"]."
"; echo "".$text_error["auth_error"]."
"; } } } if ($ns==false) echo "".$text_error["connection_failed"]."
"; return $ns; } /* * Close a NNTP connection * * $ns: the handle of the connection */ function closeNNTPconnection(&$ns) { if ($ns != false) { fputs($ns,"quit\r\n"); fclose($ns); } } /* * Validates an email adress * * $address: a string containing the email-address to be validated * * returns true if the address passes the tests, false otherwise. */ function validate_email($address) { global $validate_email; $return=true; if (($validate_email >= 1) && ($return == true)) $return = (ereg('^[-!#$%&\'*+\\./0-9=?A-Z^_A-z{|}~]+'.'@'. '[-!#$%&\'*+\\/0-9=?A-Z^_A-z{|}~]+\.'. '[-!#$%&\'*+\\./0-9=?A-Z^_A-z{|}~]+$',$address)); if (($validate_email >= 2) && ($return == true)) { $addressarray=address_decode($address,"garantiertungueltig"); $return=checkdnsrr($addressarray[0]["host"],"MX"); if (!$return) $return=checkdnsrr($addressarray[0]["host"],"A"); } return($return); } /* * decodes a block of 7bit-data in uuencoded format to it's original * 8bit format. * The headerline containing filename and permissions doesn't have to * be included. * * $data: The uuencoded data as a string * * returns the 8bit data as a string * * Note: this function is very slow and doesn't recognize incorrect code. */ function uudecode_line($line) { $data=substr($line,1); $length=ord($line[0])-32; $decoded=""; for ($i=0; $i<(strlen($data)>>2); $i++) { $pack=substr($data,$i<<2,4); $upack=""; $bitmaske=0; for ($o=0; $o<4; $o++) { $g=((ord($pack[3-$o])-32)); if ($g==64) $g=0; $bitmaske=$bitmaske | ($g << (6*$o)); } $schablone=255; for ($o=0; $o<3; $o++) { $c=($bitmaske & $schablone) >> ($o << 3); $schablone=($schablone << 8); $upack=chr($c).$upack; } $decoded.=$upack; } $decoded=substr($decoded,0,$length); return $decoded; } function uudecode($data) { $d=explode("\n",$data); $u=""; for ($i=0; $i| # | ".$text_groups["newsgroup"]. " | ".$text_groups["description"]." |
| "; echo "$g->count | "; echo ''.$g->name." | \n"; echo "$g->description |
".$text_error["error:"]."
"; echo "".$text_thread["no_such_group"]."
"; flush(); } else { $infofilename=$spooldir."/".$groupname."-info.txt"; $spoolopenmodus="n"; if (!((file_exists($infofilename)) && (file_exists($spoolfilename)))) { $spoolopenmodus="w"; } else { $infofile=fopen($infofilename,"r"); $oldid=fgets($infofile,100); if (trim($oldid) != $idstring) { echo "\n"; $spoolopenmodus="w"; } $oldgroupinfo=explode(" ",trim(fgets($infofile,200))); fclose($infofile); if ($groupinfo[3] < $oldgroupinfo[1]) { $spoolopenmodus="w"; } if ($maxarticles == 0) { if ($groupinfo[2] != $oldgroupinfo[0]) $spoolopenmodus="w"; } else { if ($groupinfo[2] > $oldgroupinfo[0]) $spoolopenmodus="w"; } if (($spoolopenmodus == "n") && ($groupinfo[3] > $oldgroupinfo[1])) $spoolopenmodus="a"; } if ($spoolopenmodus=="a") { $firstarticle=$oldgroupinfo[1]+1; $lastarticle=$groupinfo[3]; } if ($spoolopenmodus=="w") { $firstarticle=$groupinfo[2]; $lastarticle=$groupinfo[3]; } if ($spoolopenmodus != "n") { if ($maxarticles != 0) { if ($spoolopenmodus == "w") { $firstarticle=$lastarticle-$maxarticles+1; if ($firstarticle < $groupinfo[2]) $firstarticle=$groupinfo[2]; } else { if ($lastarticle-$oldgroupinfo[0]+1 > $maxarticles + $maxarticles_extra) { $firstarticle=$lastarticle-$maxarticles+1; $spoolopenmodus="w"; } } } if (($maxfetch!=0) && (($lastarticle-$firstarticle+1) > $maxfetch)) { if ($spoolopenmodus=="w") { $tofetch=($initialfetch != 0) ? $initialfetch : $maxfetch; $lastarticle=$firstarticle+$tofetch-1; } else { $lastarticle=$firstarticle+$maxfetch-1; } } } echo "\n"; if ($spoolopenmodus != "w") $headers=loadThreadData($groupname); if ($spoolopenmodus != "n") { fputs($von,"xover ".$firstarticle."-".$lastarticle."\r\n"); // and read the overview $tmp=liesZeile($von); if (substr($tmp,0,3) == "224") { $zeile=liesZeile($von); while ($zeile != ".") { $article=interpretOverviewLine($zeile,$overviewformat,$groupname); $headers[$article->id]=$article; if($poll) { echo $article->number.", "; flush(); read_message($article->number,0,$groupname); } $zeile=lieszeile($von); } } if (file_exists($spoolfilename)) unlink($spoolfilename); if (count($headers)>0) { $infofile=fopen($infofilename,"w"); if ($spoolopenmodus=="a") $firstarticle=$oldgroupinfo[0]; fputs($infofile,$idstring."\n"); fputs($infofile,$firstarticle." ".$lastarticle."\r\n"); fclose($infofile); reset($headers); $c=current($headers); // read one article for ($i=0 ; $i<=count($headers)-1 ; $i++) { if (($c->isAnswer == false) && (isset($c->references[0]))) { // is the article an answer to an // other article? $o=count($c->references)-1; $ref=$c->references[$o]; while (($o >= 0) && (!isset($headers[$ref]))) { // try to find a $ref=$c->references[$o]; // matching article $o--; // to the reference } if ($o >= 0) { // found a matching article? $c->isAnswer=true; // so the Article is an answer $headers[$c->id]=$c; $headers[$ref]->answers[]=$c->id; // the referenced article gets // the ID of the article } } $c=next($headers); } reset($headers); saveThreadData($headers,$groupname); } } return((isset($headers)) ? $headers : false); } } /* * Read the Overview. * Format of the overview-file: * message-id * date * subject * author * email * references */ function mycompare($a,$b) { global $thread_sorting; if ($a->date==$b->date) $r=0; $r=($a->date<$b->date) ? -1 : 1; return $r*$thread_sorting; } function readOverview(&$von,$groupname,$readmode = 1,$poll=false) { global $text_error, $maxarticles; global $spooldir,$thread_sorting; if (!testGroup($groupname)) { echo $text_error["read_access_denied"]; return; } if ($von == false) return false; if (($von!=false) && ($readmode > 0)) $articles=rebuildOverview($von,$groupname,$poll); if ((isset($articles)) && ($articles)) { if (($thread_sorting != 0) && (count($articles)>0)) uasort($articles,'mycompare'); return $articles; } else { return false; } } function str_change($str,$pos,$char) { return(substr($str,0,$pos).$char.substr($str,$pos+1,strlen($str)-$pos)); } function formatDate($c) { global $age_count,$age_time,$age_color,$date_format; $return=""; $currentTime=time(); $color=""; if ($age_count > 0) for($t = $age_count; $t >= 1; $t--) if ($currentTime - $c->date < $age_time[$t]) $color = $age_color[$t]; if ($color != "") $return .= ''; if (!isset($date_format)) $date_format = "d.m."; $return .= date($date_format,$c->date); // format the date if ($color != "") $return .= ''; return($return); } function calculateTree($newtree,$depth,$num,$liste,$c) { if ((isset($c->answers[0])) && (count($c->answers)>0)) { $newtree.="*"; } else { if ($depth == 1) { $newtree.="o"; } else { $newtree.="-"; } } if (($num == count($liste)-1) && ($depth>1)) { $newtree=str_change($newtree,$depth-2,"`"); } return($newtree); } /* * Format the message-tree * Zeichen im Baum: * o : leerer Kasten k1.gif * * : Kasten mit Zeichen drin k2.gif * i : vertikale Linie I.gif * - : horizontale Linie s.gif * + : T-Stueck T.gif * ` : Winkel L.gif */ function formatTreeGraphic($newtree) { global $imgdir; $return=""; for ($o=0 ; $o| '.$thread_fontPre.formatDate($c)." ".$thread_fontPost." | "; echo "".$thread_fontPre.formatTreeGraphic($newtree).$thread_fontPost." | "; if ($thread_showSubject) echo ''.$thread_fontPre." ".formatSubject($c,$group)." "; if ($thread_showAuthor) echo "(".formatAuthor($c).")".$thread_fontPost." | "; echo "
| ".formatTreeGraphic($newtree)." | "; if ($thread_showSubject) echo ''.$thread_fontPre." ".formatSubject($c,$group).$thread_fontPost." | "; echo "
| ".$text_thread["date"]." | "; if ($thread_showSubject) echo "".$text_thread["subject"]." | "; if ($thread_showAuthor) { echo ""; echo " | ".$text_thread["author"]." | \n"; } echo "
\n";
if(count($head->references)){
$refs = $head->references;
array_walk($refs, 'escape_regex');
$msgidregex = "(<|news:)(".join("|", $refs).")(>)?";
$msgidregex = str_replace("><", "|", $msgidregex);
}
$body=split("\n",$body);
for ($i=0; $i<=count($body)-1; $i++) {
// $b=textwrap($body[$i],80,"\n");
// if ((strpos(substr($b,0,strpos($b," ")),'>') != false ) ||
// (strcmp(substr($b,0,1),'>') == 0) ||
// (strcmp(substr($b,0,1),':') == 0)) {
// echo "".html_parse(htmlspecialchars($b))."\n";
// } else {
// echo html_parse(htmlspecialchars($b)."\n");
// }
// echo $body[$i]."\n";
$b=$body[$i];
echo uri_to_link(htmlspecialchars($b)."\n", $group, $msgidregex);
}
echo "\n\n";
} else {
echo $body;
}
}
if ($article_showthread > 0) {
}
}
function escape_regex(&$value, $key){
$value = QuoteMeta(substr($value, 1, -1));
}
/*
* Encode lines with 8bit-characters to quote-printable
*
* $line: the to be encoded line
*
* the function returns a sting containing the quoted-printable encoded
* $line
*/
function quoted_printable_encode($line) {
$qp_table=array(
'=00', '=01', '=02', '=03', '=04', '=05',
'=06', '=07', '=08', '=09', '=0A', '=0B',
'=0C', '=0D', '=0E', '=0F', '=10', '=11',
'=12', '=13', '=14', '=15', '=16', '=17',
'=18', '=19', '=1A', '=1B', '=1C', '=1D',
'=1E', '=1F', '_', '!', '"', '#',
'$', '%', '&', "'", '(', ')',
'*', '+', ',', '-', '.', '/',
'0', '1', '2', '3', '4', '5',
'6', '7', '8', '9', ':', ';',
'<', '=3D', '>', '=3F', '@', 'A',
'B', 'C', 'D', 'E', 'F', 'G',
'H', 'I', 'J', 'K', 'L', 'M',
'N', 'O', 'P', 'Q', 'R', 'S',
'T', 'U', 'V', 'W', 'X', 'Y',
'Z', '[', '\\', ']', '^', '=5F',
'', 'a', 'b', 'c', 'd', 'e',
'f', 'g', 'h', 'i', 'j', 'k',
'l', 'm', 'n', 'o', 'p', 'q',
'r', 's', 't', 'u', 'v', 'w',
'x', 'y', 'z', '{', '|', '}',
'~', '=7F', '=80', '=81', '=82', '=83',
'=84', '=85', '=86', '=87', '=88', '=89',
'=8A', '=8B', '=8C', '=8D', '=8E', '=8F',
'=90', '=91', '=92', '=93', '=94', '=95',
'=96', '=97', '=98', '=99', '=9A', '=9B',
'=9C', '=9D', '=9E', '=9F', '=A0', '=A1',
'=A2', '=A3', '=A4', '=A5', '=A6', '=A7',
'=A8', '=A9', '=AA', '=AB', '=AC', '=AD',
'=AE', '=AF', '=B0', '=B1', '=B2', '=B3',
'=B4', '=B5', '=B6', '=B7', '=B8', '=B9',
'=BA', '=BB', '=BC', '=BD', '=BE', '=BF',
'=C0', '=C1', '=C2', '=C3', '=C4', '=C5',
'=C6', '=C7', '=C8', '=C9', '=CA', '=CB',
'=CC', '=CD', '=CE', '=CF', '=D0', '=D1',
'=D2', '=D3', '=D4', '=D5', '=D6', '=D7',
'=D8', '=D9', '=DA', '=DB', '=DC', '=DD',
'=DE', '=DF', '=E0', '=E1', '=E2', '=E3',
'=E4', '=E5', '=E6', '=E7', '=E8', '=E9',
'=EA', '=EB', '=EC', '=ED', '=EE', '=EF',
'=F0', '=F1', '=F2', '=F3', '=F4', '=F5',
'=F6', '=F7', '=F8', '=F9', '=FA', '=FB',
'=FC', '=FD', '=FE', '=FF');
// are there "forbidden" characters in the string?
for($i=0; $i