|
Legend
| | links in black | = file can be viewed now |
| | links in white | = file has not be found by Fido historians |
| | links in red | = file scheduled to be added to collection |
| | Background dark | = pre makenl distributions |
| | Background light | = regular makenl distribution since #219/1987 |
|
|
$year ";
// $label = "";
$label = "";
$day=date("z",$datum)+1; // ???
$week=1;
$sikday = $day;
$listtype = "Node";
$ptype = "";
$tmpp[2] = "";
$tmpp[3] = "";
$counts = 0;
$workdir[0][0] = "";
$workdir[1][0] = "";
$workdir[2][0] = "";
$workdir[3][0] = "";
$workdir[4][0] = "";
$workdir[0][1] = "";
$workdir[1][1] = "";
$workdir[2][1] = "";
$workdir[3][1] = "";
$workdir[4][1] = "";
// if dir doesnt exist, include list dir
if ($code_criterion==3) {
// fidonews
$tmpp[0]=sprintf("fidonews/%04d",$year);
$tmpp[1]="";
$tmpd=$basepath2.$basepath.$tmpp[0];
if (is_dir($tmpd)) { // fidonews dir exists
$counts++;
$workdir[$counts][0] = $tmpp[0];
$workdir[$counts][1] = "Fidonews";
$workdir[$counts][2] = "";
$workdir[$counts][3] = 3;
}
} else {
if ($code_criterion<2) {
$tmpp[0]=sprintf("nodelist/%04d",$year);
$tmpp[1]=sprintf("nodelist/%04d/diff",$year);
$tmpd=$basepath2.$basepath.$tmpp[0];
if (is_dir($tmpd)) { // Nodelist dir exists
$counts++;
$workdir[$counts][0] = $tmpp[0];
$workdir[$counts][1] = "Nodelist";
$workdir[$counts][2] = "";
$workdir[$counts][3] = 1;
$tmpd=$basepath2.$basepath.$tmpp[1];
if (is_dir($tmpd)) { // Nodediff dir exists
$counts++;
$workdir[$counts][0] = $tmpp[1];
$workdir[$counts][1] = "Nodediff";
$workdir[$counts][2] = "";
$workdir[$counts][3] = 2;
}
} else {
$counts++;
$workdir[$counts][0] = $tmpp[0];
$workdir[$counts][1] = "Nodelist";
$workdir[$counts][2] = "";
$workdir[$counts][3] = 1;
}
} else {
if ($zone_criterion==20) {
// z2pnt
$tmpp[0]=sprintf("pntlist/z2/%04d/Poss",$year);
$tmpp[1]=sprintf("pntlist/z2/%04d/Poss/diff",$year);
$tmpd=$basepath2.$basepath.$tmpp[0];
if (is_dir($tmpd)) { // Nodelist dir exists
$counts++;
$workdir[$counts][0] = $tmpp[0];
$workdir[$counts][1] = "Z2
Pointlist";
$workdir[$counts][2] = "Poss";
$workdir[$counts][3] = 21;
$tmpd=$basepath2.$basepath.$tmpp[1];
if (is_dir($tmpd)) { // Nodediff dir exists
$counts++;
$workdir[$counts][0] = $tmpp[1];
$workdir[$counts][1] = "Z2
Pointdiff";
$workdir[$counts][2] = "Poss";
$workdir[$counts][3] = 22;
}
} else {
$counts++;
$workdir[$counts][0] = $tmpp[0];
$workdir[$counts][1] = "Z2
Pointlist";
$workdir[$counts][2] = "Poss";
$workdir[$counts][3] = 21;
}
} else {
if ($zone_criterion==30) {
// r24
// formats: Boss, Fake
$tmpp[0]=sprintf("pntlist/r24/%04d/Boss",$year);
$tmpp[1]=sprintf("pntlist/r24/%04d/Boss/diff",$year);
$tmpp[2]=sprintf("pntlist/r24/%04d/Fake",$year);
$tmpp[3]=sprintf("pntlist/r24/%04d/Fake/diff",$year);
$tmpd=$basepath2.$basepath.$tmpp[0];
if (is_dir($tmpd)) { // Nodelist dir exists
$counts++;
$workdir[$counts][0] = $tmpp[0];
$workdir[$counts][1] = "R24
Pointlist";
$workdir[$counts][2] = "Boss";
$workdir[$counts][3] = 31;
$tmpd=$basepath2.$basepath.$tmpp[1];
if (is_dir($tmpd)) { // Nodediff dir exists
$counts++;
$workdir[$counts][0] = $tmpp[1];
$workdir[$counts][1] = "R24
Pointdiff";
$workdir[$counts][2] = "Boss";
$workdir[$counts][3] = 32;
}
} else {
$counts++;
$workdir[$counts][0] = $tmpp[0];
$workdir[$counts][1] = "R24
Pointlist";
$workdir[$counts][2] = "Boss";
$workdir[$counts][3] = 31;
}
$tmpd=$basepath2.$basepath.$tmpp[2];
if (is_dir($tmpd)) { // Nodelist dir exists
$counts++;
$workdir[$counts][0] = $tmpp[2];
$workdir[$counts][1] = "R24
Pointlist";
$workdir[$counts][2] = "Fakenet";
$workdir[$counts][3] = 33;
$tmpd=$basepath2.$basepath.$tmpp[3];
if (is_dir($tmpd)) { // Nodediff dir exists
$counts++;
$workdir[$counts][0] = $tmpp[3];
$workdir[$counts][1] = "R24
Pointdiff";
$workdir[$counts][2] = "Fakenet";
$workdir[$counts][3] = 34;
}
}
} else {
if ($zone_criterion==40) {
// r28
// formats: Fidouser, Boss
$tmpp[0]=sprintf("pntlist/r28/%04d/Boss",$year);
$tmpp[1]=sprintf("pntlist/r28/%04d/Boss/diff",$year);
$tmpp[2]=sprintf("pntlist/r28/%04d/fidouser",$year);
$tmpp[3]=sprintf("pntlist/r28/%04d/fidouser/diff",$year);
$tmpd=$basepath2.$basepath.$tmpp[0];
if (is_dir($tmpd)) { // Nodelist dir exists
$counts++;
$workdir[$counts][0] = $tmpp[0];
$workdir[$counts][1] = "R28
Pointlist";
$workdir[$counts][2] = "Boss";
$workdir[$counts][3] = 41;
$tmpd=$basepath2.$basepath.$tmpp[1];
if (is_dir($tmpd)) { // Nodediff dir exists
$counts++;
$workdir[$counts][0] = $tmpp[1];
$workdir[$counts][1] = "R28
Pointdiff";
$workdir[$counts][2] = "Boss";
$workdir[$counts][3] = 42;
}
} else {
$counts++;
$workdir[$counts][0] = $tmpp[0];
$workdir[$counts][1] = "R28
Pointlist";
$workdir[$counts][2] = "Boss";
$workdir[$counts][3] = 41;
}
$tmpd=$basepath2.$basepath.$tmpp[2];
if (is_dir($tmpd)) { // Nodelist dir exists
$counts++;
$workdir[$counts][0] = $tmpp[2];
$workdir[$counts][1] = "R28
Pointlist";
$workdir[$counts][2] = "Fidouser";
$workdir[$counts][3] = 43;
$tmpd=$basepath2.$basepath.$tmpp[3];
if (is_dir($tmpd)) { // Nodediff dir exists
$counts++;
$workdir[$counts][0] = $tmpp[3];
$workdir[$counts][1] = "R28
Pointdiff";
$workdir[$counts][2] = "Fidouser";
$workdir[$counts][3] = 44;
}
}
} else {
if ($zone_criterion==50) {
// r31
// formats: V7, Boss
$tmpp[0]=sprintf("pntlist/r31/%04d/Boss",$year);
$tmpp[1]=sprintf("pntlist/r31/%04d/Boss/diff",$year);
$tmpp[2]=sprintf("pntlist/r31/%04d/v7",$year);
$tmpp[3]=sprintf("pntlist/r31/%04d/v7/diff",$year);
$tmpd=$basepath2.$basepath.$tmpp[0];
if (is_dir($tmpd)) { // Nodelist dir exists
$counts++;
$workdir[$counts][0] = $tmpp[0];
$workdir[$counts][1] = "R31
Pointlist";
$workdir[$counts][2] = "Boss";
$workdir[$counts][3] = 51;
$tmpd=$basepath2.$basepath.$tmpp[1];
if (is_dir($tmpd)) { // Nodediff dir exists
$counts++;
$workdir[$counts][0] = $tmpp[1];
$workdir[$counts][1] = "R31
Pointdiff";
$workdir[$counts][2] = "Boss";
$workdir[$counts][3] = 52;
}
} else {
$counts++;
$workdir[$counts][0] = $tmpp[0];
$workdir[$counts][1] = "R31
Pointlist";
$workdir[$counts][2] = "Boss";
$workdir[$counts][3] = 51;
}
$tmpd=$basepath2.$basepath.$tmpp[2];
if (is_dir($tmpd)) { // Nodelist dir exists
$counts++;
$workdir[$counts][0] = $tmpp[2];
$workdir[$counts][1] = "R31
Pointlist";
$workdir[$counts][2] = "Points,V7";
$workdir[$counts][3] = 53;
$tmpd=$basepath2.$basepath.$tmpp[3];
if (is_dir($tmpd)) { // Nodediff dir exists
$counts++;
$workdir[$counts][0] = $tmpp[3];
$workdir[$counts][1] = "R31
Pointdiff";
$workdir[$counts][2] = "Points,V7";
$workdir[$counts][3] = 54;
}
}
} else {
if ($zone_criterion==60) {
// r23
// formats: Boss, Fake
$tmpp[0]=sprintf("pntlist/r23/%04d/Boss",$year);
$tmpp[1]=sprintf("pntlist/r23/%04d/Boss/diff",$year);
$tmpp[2]=sprintf("pntlist/r23/%04d/Fake",$year);
$tmpp[3]=sprintf("pntlist/r23/%04d/Fake/diff",$year);
$tmpd=$basepath2.$basepath.$tmpp[0];
if (is_dir($tmpd)) { // Nodelist dir exists
$counts++;
$workdir[$counts][0] = $tmpp[0];
$workdir[$counts][1] = "R23
Pointlist";
$workdir[$counts][2] = "Boss";
$workdir[$counts][3] = 61;
$tmpd=$basepath2.$basepath.$tmpp[1];
if (is_dir($tmpd)) { // Nodediff dir exists
$counts++;
$workdir[$counts][0] = $tmpp[1];
$workdir[$counts][1] = "R23
Pointdiff";
$workdir[$counts][2] = "Boss";
$workdir[$counts][3] = 62;
}
} else {
$counts++;
$workdir[$counts][0] = $tmpp[0];
$workdir[$counts][1] = "R23
Pointlist";
$workdir[$counts][2] = "Boss";
$workdir[$counts][3] = 61;
}
$tmpd=$basepath2.$basepath.$tmpp[2];
if (is_dir($tmpd)) { // Nodelist dir exists
$counts++;
$workdir[$counts][0] = $tmpp[2];
$workdir[$counts][1] = "R23
Pointlist";
$workdir[$counts][2] = "Fakenet";
$workdir[$counts][3] = 63;
$tmpd=$basepath2.$basepath.$tmpp[3];
if (is_dir($tmpd)) { // Nodediff dir exists
$counts++;
$workdir[$counts][0] = $tmpp[3];
$workdir[$counts][1] = "R23
Pointdiff";
$workdir[$counts][2] = "Fakenet";
$workdir[$counts][3] = 64;
}
}
} else {
if ($zone_criterion==70) {
// r34
// formats: Boss, Fake
$tmpp[0]=sprintf("pntlist/r34/%04d/Boss",$year);
$tmpp[1]=sprintf("pntlist/r34/%04d/Boss/diff",$year);
$tmpp[2]=sprintf("pntlist/r34/%04d/Fake",$year);
$tmpp[3]=sprintf("pntlist/r34/%04d/Fake/diff",$year);
$tmpd=$basepath2.$basepath.$tmpp[0];
if (is_dir($tmpd)) { // Nodelist dir exists
$counts++;
$workdir[$counts][0] = $tmpp[0];
$workdir[$counts][1] = "R34
Pointlist";
$workdir[$counts][2] = "Boss";
$workdir[$counts][3] = 71;
$tmpd=$basepath2.$basepath.$tmpp[1];
if (is_dir($tmpd)) { // Nodediff dir exists
$counts++;
$workdir[$counts][0] = $tmpp[1];
$workdir[$counts][1] = "R34
Pointdiff";
$workdir[$counts][2] = "Boss";
$workdir[$counts][3] = 72;
}
} else {
$counts++;
$workdir[$counts][0] = $tmpp[0];
$workdir[$counts][1] = "R34
Pointlist";
$workdir[$counts][2] = "Boss";
$workdir[$counts][3] = 71;
}
$tmpd=$basepath2.$basepath.$tmpp[2];
if (is_dir($tmpd)) { // Nodelist dir exists
$counts++;
$workdir[$counts][0] = $tmpp[2];
$workdir[$counts][1] = "R34
Pointlist";
$workdir[$counts][2] = "Fakenet";
$workdir[$counts][3] = 73;
$tmpd=$basepath2.$basepath.$tmpp[3];
if (is_dir($tmpd)) { // Nodediff dir exists
$counts++;
$workdir[$counts][0] = $tmpp[3];
$workdir[$counts][1] = "R34
Pointdiff";
$workdir[$counts][2] = "Fakenet";
$workdir[$counts][3] = 74;
}
}
}
}
}
}
}
}
}
}
// $tmpp=$basepath2.$basepath.$tmpp;
// for i = 1 to counts
// check directorys to list
// nodelist/nodediff?
// pointlist format 1, format 1 diff?, format 2, format 2 diff? (upto 4)
for ($j=1; $j <= $counts; $j++) {
$tmpd = $workdir[$j][0];
$listtype = $workdir[$j][1];
$ptype = $workdir[$j][2];
$slct = $workdir[$j][3];
// Reset
$datum = $sikdatum;
$year=date("Y",$datum);
$tyr = $year;
$fidoyear=($tyr - 1984)+1;
// echo "$year ";
$day=date("z",$datum)+1; // ???
$week=1;
// $sikday = $day;
if ($slct==3) {
$listtype.="
[".$fidoyear."]";
}
if ($j==1) {
echo " | | ".date("Y",$datum)." | ";
echo " ".$listtype;
} else {
echo " |
|---|
".$listtype;
}
if ($ptype!="") {
echo "
(".$ptype.")\n";
}
echo " | \n";
if ($slct==3) {
$teller=0;
} else {
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 ($slct==3) {
if (($year==1984) && ($week<48)) {
$printday=" ";
$printweek=" ";
} else {
if (($year==1984)) {
$printday=$day;
$printweek=$week-47;
} else {
$printday=$day;
$printweek=$week;
}
}
} else {
if (($year==1984) && ($day<153)) {
$printday=" ";
$printweek=" ";
} else {
$printday=$day;
$printweek=$week;
}
}
$filename2="";
if ($slct==1) {
$filename=sprintf("nodelist/%04d/nl%02s-%03d.zip",$year,substr($year,2,2),$day);
} else {
if ($slct==2) {
$filename=sprintf("nodelist/%04d/diff/nodediff.z%s",$year, substr("00".$day,strlen($day),2));
} else {
if ($slct==3) {
if (($year==1984)) {
$filename=sprintf("fidonews/%04d/fido%s%s.nws",$year,$fidoyear, substr("00".($week-47),strlen(($week-47)),2));
} else {
$filename=sprintf("fidonews/%04d/fido%s%s.nws",$year,$fidoyear, substr("00".$week,strlen($week),2));
}
} else {
if ($slct==21) {
// z2pnt poss list
$filename=sprintf("pntlist/z2/%04d/Poss/z2pnt.z%s",$year, substr("00".$day,strlen($day),2));
} else {
if ($slct==22) {
// z2pnt poss diff
$filename=sprintf("pntlist/z2/%04d/Poss/diff/z2pnt_d.z%s",$year, substr("00".$day,strlen($day),2));
} else {
if ($slct==31) {
// r24
// formats: Boss list
$filename=sprintf("pntlist/r24/%04d/Boss/r24pnt.z%s",$year, substr("00".$day,strlen($day),2));
} else {
if ($slct==32) {
// r24
// formats: Boss diff
$filename=sprintf("pntlist/r24/%04d/Boss/diff/r24pnt_d.z%s",$year, substr("00".$day,strlen($day),2));
} else {
if ($slct==41) {
// r28
// formats: Boss list
$filename=sprintf("pntlist/r28/%04d/Boss/p28-list.z%s",$year, substr("00".$day,strlen($day),2));
} else {
if ($slct==42) {
// r28
// formats: Boss diff
$filename=sprintf("pntlist/r28/%04d/Boss/Diff/p28-diff.z%s",$year, substr("00".$day,strlen($day),2));
} else {
if ($slct==51) {
// r31
// formats: Boss list
$filename=sprintf("pntlist/r31/%04d/Boss/r31pnt.z%s",$year, substr("00".$day,strlen($day),2));
} else {
if ($slct==52) {
// r31
// formats: Boss diff
$filename=sprintf("pntlist/r31/%04d/Boss/diff/r31pnt_d.z%s",$year, substr("00".$day,strlen($day),2));
} else {
if ($slct==33) {
// r24
// formats: Fake list
// 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));
} else {
if ($slct==34) {
// r24
// formats: fake diff
$filename=sprintf("pntlist/r24/%04d/fake/diff/pr24diff.z%s",$year, substr("00".$day,strlen($day),2));
} else {
if ($slct==53) {
// r31
// formats: v7 list
$filename=sprintf("pntlist/r31/%04d/v7/point4d.a%s",$year, substr("00".$day,strlen($day),2));
} else {
if ($slct==54) {
// r31
// formats: v7 diff (not avail)
$filename=sprintf("pntlist/r31/%04d/v7/diff/point4dd.z%s",$year, substr("00".$day,strlen($day),2));
} else {
if ($slct==43) {
// r28
// formats: fidouser list
$filename=sprintf("pntlist/r28/%04d/fidouser/pointl%s.zip",$year, substr("00".$day,strlen($day),2));
} else {
if ($slct==44) {
// r28
// formats: fidouser diff (not avail)
$filename=sprintf("pntlist/r28/%04d/fidouser/diff/pointl%s.zip",$year, substr("00".$day,strlen($day),2));
} else {
if ($slct==61) {
// r23
// formats: Boss list
$filename=sprintf("pntlist/r23/%04d/Boss/r23pnt.z%s",$year, substr("00".$day,strlen($day),2));
} else {
if ($slct==62) {
// r23
// formats: Boss diff
$filename=sprintf("pntlist/r23/%04d/Boss/diff/r23pnt_d.z%s",$year, substr("00".$day,strlen($day),2));
} else {
if ($slct==63) {
// r23
// formats: Fake list
// DK-POINT.Zdd
$filename=sprintf("pntlist/r23/%04d/Fake/dk-point.z%s",$year, substr("00".$day,strlen($day),2));
} else {
if ($slct==64) {
// r23
// formats: fake diff
$filename=sprintf("pntlist/r23/%04d/fake/diff/dkp-diff.z%s",$year, substr("00".$day,strlen($day),2));
} else {
if ($slct==71) {
// r34
// formats: Boss list
$filename =sprintf("pntlist/r34/%04d/Boss/ptlstr34.z%s",$year, substr("00".$day,strlen($day),2));
$filename2=sprintf("pntlist/r34/%04d/Boss/ptlstr34.l%s",$year, substr("00".$day,strlen($day),2));
} else {
if ($slct==72) {
// r34
// formats: Boss diff
$filename=sprintf("pntlist/r34/%04d/Boss/diff/ptdifr34.z%s",$year, substr("00".$day,strlen($day),2));
} else {
if ($slct==73) {
// r34
// formats: Fake list
$filename =sprintf("pntlist/r34/%04d/Fake/pointr34.z%s",$year, substr("00".$day,strlen($day),2));
$filename2=sprintf("pntlist/r34/%04d/Fake/pointr34.l%s",$year, substr("00".$day,strlen($day),2));
} else {
if ($slct==74) {
// r34
// formats: fake diff
$filename=sprintf("pntlist/r34/%04d/fake/diff/pdiffr34.z%s",$year, substr("00".$day,strlen($day),2));
}
}
}
}
}
}
}
}
}
}
}
}
}
}
}
}
}
}
}
}
}
}
}
}
}
$filename=$basepath.$filename;
if ($filename2!="") {
$filename2=$basepath.$filename2;
if ((file_exists($basepath2.$filename)) OR (file_exists($basepath2.$filename2))) {
$fnrq = "";
if ((file_exists($basepath2.$filename))) {
$fnrq = $filename;
} else {
$fnrq = $filename2;
}
if ($slct==3) {
$printday="$printday";
$printweek="$printweek";
} else {
if (((($year==1987) && ($day>212)) OR (($year>1987))) ) {
$printday="$printday";
$printweek="$printweek";
} else {
$printday="$printday";
$printweek="$printweek";
}
}
} else {
if (($year>2006)) {
$printday="".$day."\n";
$printweek="".$week."\n";
}
}
} else {
if (file_exists($basepath2.$filename)) {
if ($slct==3) {
$printday="$printday";
$printweek="$printweek";
} else {
if (((($year==1987) && ($day>212)) OR (($year>1987))) ) {
$printday="$printday";
$printweek="$printweek";
} else {
$printday="$printday";
$printweek="$printweek";
}
}
} else {
if (($year>2006)) {
$printday="".$day."\n";
$printweek="".$week."\n";
}
}
}
if ($slct==3) {
echo "";
echo $printweek." | \n";
} else {
if ((($year==1987) && ($day>212)) OR (($year>1987)) ) {
echo "";
} else {
echo " | ";
}
echo $printday." | \n";
}
$day=$day+7;
$week++;
$datum=mktime(0,0,0,date("m",$datum),date("d",$datum)+7,date("Y",$datum));
$teller++;
if ($teller>9) {
echo "
|---|
\n";
$teller=0;
}
}
if ($teller<10) {
while ($teller<10) {
if ($slct==3) {
echo "| ";
} else {
if ((($year==1987) && ($day>212)) OR (($year>1987)) ) {
echo " | ";
} else {
echo " | ";
}
}
echo " | \n";
$teller++;
}
}
echo " \n";
}
echo "\n";
echo " | \n";
echo " \n";
$tmnth = date("n",$datum);
$tday = date("j",$datum);
$tyr = date("Y",$datum);
//$year=$tyr+1;
flush();
}
?>
| |
|
Credits - Original Collection of File
Archives
ftp://ftp.fidonet.org/fidonet/fido-history - FIDO-HISTORY PROJECT (The Original) @ ftp.fidonet.org
(Offline)
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
|
|
|