Form based upon: nodelist_search.php Version 1.2
Copyright © 2003 Jerry Schwartz 1:142/928 and WriteByNight
Nodelist lister script adopted from The FidoNet Showcase Project
Modified for Nodelist/Nodediff/Pointlist/Pointdiffs listing by U.Schroeter, 2007
|
||||||||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| ".date("Y",$datum)." | "; echo " ".$listtype."list";
if ($ptype!="") {
echo " (".$ptype.")\n"; } echo " | \n";
} else {
echo "".date("Y",$datum)." | "; echo " ".$listtype."list";
if ($ptype!="") {
echo " (".$ptype.")\n"; } echo " | \n";
}
// $file = trim($p);
// if (is_dir($file)) {
// $vldpath = 1;
// }
// // if (file_exists($file)) {
// $file = trim($p)."FILES.BBS";
// if (file_exists($file)) {
// $vldfbbs = 1;
// }
if ($day!=1) {
if ((($year==1987) && ($day>212)) OR (($year>1987)) ) {
echo ""; } else { echo " | "; } echo " | \n"; // echo "\n"; $teller=1; } else { $teller=0; } while (($day<367) && (date("Y",$datum)==$tyr)) { if (($year==1984) && ($day<153)) { $printday=" "; } else { $printday=$day; } $filename2=""; if ($code_criterion<2) { $filename=sprintf("nodelist/%04d/nl%02s-%03d.zip",$year,substr($year,2,2),$day); $dbgfn = $filename; // $filename=substr_replace($filename,'Z',-3,1); $filename=$basepath.$filename; } else { if ($zone_criterion==20) { // z2pnt $filename=sprintf("pntlist/z2/%04d/Poss/z2pnt.z%s",$year, substr("00".$day,strlen($day),2)); $dbgfn = $filename; // $filename=substr_replace($filename,'Z',-3,1); $filename=$basepath.$filename; } else { if ($zone_criterion==30) { // r24 // formats: Fake, Boss $filename=sprintf("pntlist/r24/%04d/Boss/r24pnt.z%s",$year, substr("00".$day,strlen($day),2)); $dbgfn = $filename; // $filename=substr_replace($filename,'Z',-3,1); $filename=$basepath.$filename; } else { if ($zone_criterion==31) { // r28 // formats: Fidouser, Boss $filename=sprintf("pntlist/r28/%04d/Boss/p28-list.z%s",$year, substr("00".$day,strlen($day),2)); $dbgfn = $filename; // $filename=substr_replace($filename,'Z',-3,1); $filename=$basepath.$filename; } else { if ($zone_criterion==32) { // r31 // formats: V7, Boss $filename=sprintf("pntlist/r31/%04d/Boss/r31pnt.z%s",$year, substr("00".$day,strlen($day),2)); $dbgfn = $filename; // $filename=substr_replace($filename,'Z',-3,1); $filename=$basepath.$filename; } else { if ($zone_criterion==40) { // r24 // formats: Fake // P24yyDDD.ZIP or POINTS24.Zdd $filename=sprintf("pntlist/r24/%04d/Fake/p24%s%03d.zip",$year,substr($year,2,2),$day); $filename2=sprintf("pntlist/r24/%04d/Fake/points24.z%s",$year, substr("00".$day,strlen($day),2)); $dbgfn = $filename; // $filename=substr_replace($filename,'Z',-3,1); $filename=$basepath.$filename; $filename2=$basepath.$filename2; } else { if ($zone_criterion==50) { // r31 // formats: v7 $filename=sprintf("pntlist/r31/%04d/v7/point4d.a%s",$year, substr("00".$day,strlen($day),2)); $dbgfn = $filename; // $filename=substr_replace($filename,'Z',-3,1); $filename=$basepath.$filename; } else { if ($zone_criterion==60) { // r28 // formats: fidouser $filename=sprintf("pntlist/r28/%04d/fidouser/pointl%s.zip",$year, substr("00".$day,strlen($day),2)); $dbgfn = $filename; // $filename=substr_replace($filename,'Z',-3,1); $filename=$basepath.$filename; } } } } } } } } if ($filename2!="") { if ((file_exists($basepath2.$filename)) OR (file_exists($basepath2.$filename2))) { $fnrq = ""; if ((file_exists($basepath2.$filename))) { $fnrq = $filename; } else { $fnrq = $filename2; } if ((($year==1987) && ($day>212)) OR (($year>1987)) ) { $printday="$printday"; } else { $printday="$printday"; } } else { if (($year>2006)) { $printday="".$day."\n"; } } } else { if (file_exists($basepath2.$filename)) { if ((($year==1987) && ($day>212)) OR (($year>1987)) ) { $printday="$printday"; } else { $printday="$printday"; } } else { if (($year>2006)) { $printday="".$day."\n"; } } } if ((($year==1987) && ($day>212)) OR (($year>1987)) ) { echo " | "; } else { echo " | "; } echo $printday." | \n"; $day=$day+7; $datum=mktime(0,0,0,date("m",$datum),date("d",$datum)+7,date("Y",$datum)); $teller++; if ($teller>9) { echo "||||||||||||||||||
| "; } else { echo " | "; } echo " | \n"; $teller++; } } echo " ".$listtype."diff";
if ($ptype!="") {
echo "| ";
} else {
echo " | ";
}
echo " | \n";
// echo " | \n";
$teller=1;
} else {
$teller=0;
}
while (($day<367) && (date("Y",$datum)==$tyr)) {
if (($year==1984) && ($day<153)) {
$printday=" ";
} else {
$printday=$day;
}
// $filename=sprintf("nodelist/%04d/nl%02s-%03d.zip",$year,substr($year,2,2),$day);
// 00 1 3-2 = 1
// 00 12 4-2 = 2
// 00 123 5-2 = 3
// 01 23
// $filename=sprintf("nodelist/%04d/diff/nodediff.z%s",$year, substr("00".$day,strlen($day),2));
// $dbgfn = $filename;
// // $filename=substr_replace($filename,'Z',-3,1);
// $filename=$basepath.$filename;
if ($code_criterion<2) {
$filename=sprintf("nodelist/%04d/diff/nodediff.z%s",$year, substr("00".$day,strlen($day),2));
$dbgfn = $filename;
// $filename=substr_replace($filename,'Z',-3,1);
$filename=$basepath.$filename;
} else {
if ($zone_criterion==20) {
// z2pnt
$filename=sprintf("pntlist/z2/%04d/Poss/diff/z2pnt_d.z%s",$year, substr("00".$day,strlen($day),2));
$dbgfn = $filename;
// $filename=substr_replace($filename,'Z',-3,1);
$filename=$basepath.$filename;
} else {
if ($zone_criterion==30) {
// r24
// formats: Fake, Boss
$filename=sprintf("pntlist/r24/%04d/Boss/diff/r24pnt_d.z%s",$year, substr("00".$day,strlen($day),2));
$dbgfn = $filename;
// $filename=substr_replace($filename,'Z',-3,1);
$filename=$basepath.$filename;
} else {
if ($zone_criterion==31) {
// r28
// formats: Fidouser, Boss
$filename=sprintf("pntlist/r28/%04d/Boss/Diff/p28-diff.z%s",$year, substr("00".$day,strlen($day),2));
$dbgfn = $filename;
// $filename=substr_replace($filename,'Z',-3,1);
$filename=$basepath.$filename;
} else {
if ($zone_criterion==32) {
// r31
// formats: V7, Boss
$filename=sprintf("pntlist/r31/%04d/Boss/diff/r31pnt_d.z%s",$year, substr("00".$day,strlen($day),2));
$dbgfn = $filename;
// $filename=substr_replace($filename,'Z',-3,1);
$filename=$basepath.$filename;
} else {
if ($zone_criterion==40) {
// r24
// formats: fake
$filename=sprintf("pntlist/r24/%04d/fake/diff/pr24diff.z%s",$year, substr("00".$day,strlen($day),2));
$dbgfn = $filename;
// $filename=substr_replace($filename,'Z',-3,1);
$filename=$basepath.$filename;
} else {
if ($zone_criterion==50) {
// r31
// formats: v7
$filename=sprintf("pntlist/r31/%04d/v7/diff/point4dd.z%s",$year, substr("00".$day,strlen($day),2));
$dbgfn = $filename;
// $filename=substr_replace($filename,'Z',-3,1);
$filename=$basepath.$filename;
} else {
if ($zone_criterion==60) {
// r28
// formats: fidouser
$filename=sprintf("pntlist/r28/%04d/fidouser/diff/pointl%s.zip",$year, substr("00".$day,strlen($day),2));
$dbgfn = $filename;
// $filename=substr_replace($filename,'Z',-3,1);
$filename=$basepath.$filename;
}
}
}
}
}
}
}
}
if (file_exists($basepath2.$filename)) {
if ((($year==1987) && ($day>212)) OR (($year>1987)) ) {
$printday="$printday";
} else {
$printday="$printday";
}
} else {
if (($year>2006)) {
$printday="".$day."\n";
}
}
if ((($year==1987) && ($day>212)) OR (($year>1987)) ) {
echo "";
} else {
echo " | ";
}
echo $printday." | \n";
$day=$day+7;
$datum=mktime(0,0,0,date("m",$datum),date("d",$datum)+7,date("Y",$datum));
$teller++;
if ($teller>9) {
echo "\n";
} else {
echo " | ";
}
echo " | \n";
$teller++;
}
}
echo "\n";
echo " | nodediff | \n";
echo " | \n";
$teller=1;
while ($day<367) {
if (($year==1984) && ($day<153)) {
$printday=" ";
} else {
$printday=$day;
}
$filename=sprintf("nodelist/%04d/nodediff.%03d",$year,$day);
$filename=substr_replace($filename,'Z',-3,1);
$filename=$basepath.$filename;
if (file_exists($filename)) {
$printday="$printday";
echo "".$printday." | ";
$day=$day+7;$teller++;$datum=mktime(0,0,0,date("m",$datum),date("d",$datum)+7,date("Y",$datum));
if ($teller>9) {
echo "\n"; //echo $year." \n"; $tmnth = date("n",$datum); $tday = date("j",$datum); $tyr = date("Y",$datum); //$year=$tyr+1; flush(); } ?> |
|
|
Ruth Argust - The Original FidoNet Nodelist Archives @ The Great White South BBS (Archive: 550 not available) Tony Campbell - FOTI Nodelist / Nodediff Archive Page @ TheLitterBox BBS Frank Robbins - The FidoNet Showcase Project Michael Cronsten - Swedisch Fidonet Gisbert Rudolph - Fido History Project (2) Ulrich Schroeter - Fidonet Archive - Fido History Project (3) @ Ambrosia60 Steven Leeman - Fidonet Archive - Reorganized @ skynetbbs Alex Woick - Wombaz; Michiel v.d. Vlist @ vlist.eu
| | |||||||||