Info 1985:
FNEWS(2)#47 to (2)#52 in 1985 doesn't exist by Fido historians..
There is no strict weeks numbering before 1996, so the unpublished issues on 28th January, 11th and 25th February, 8th and 22th March and 8th April '85 results in 6 missing FNews at the end of the year.";
// FIDONEWS : (($year==1987)
$exception["type"][1]="3";
$exception["year"][1]=1987;
$exception["days"][1]="338,345,352,359";
$exception["note"][1]= " Info 1987:
FNEWS(4)#49 to (4)#52 in 1987 doesn't exist by Fido historians.
There is no strict weeks numbering before 1996, so the unpublished issues on 16th March, 22th June, 18th and 25th October '87 results in 4 missing FNews at the end of the year.";
// NODELIST : (($year==1987) && ($day==219)
$exception["type"][2]="1,2";
$exception["year"][2]=1987;
$exception["days"][2]="219";
$exception["note"][2]= " Info 1987:
The first Nodediff was 1987/219 per the author of MakeNl.";
// R24 pointlist : ((($slct==33) || ($slct==34)) && (($year==1992) && ($day==157))
$exception["type"][3]="33,34";
$exception["year"][3]=1992;
$exception["days"][3]="157";
$exception["note"][3]= " Info:
R24 Fakenet pointlist format change
from R24old to R24 Net-Fake-Region segments.
Only full POINTS24 list distribution.
No DIFF distribution this week.";
// R24 pointlist : ($slct>30) && ($slct<35)) && (($year==1993) && ($day==176)
// 173/1993 R24 reorganization results in a 3 year split
// of R24 into R24 Classic and R24 Light till 215/1996
$exception["type"][4]="31,32,33,34";
$exception["year"][4]=1993;
$exception["days"][4]="176";
$exception["note"][4]= " Info:
R24 reorganization in 1993
Distribution stops for a few weeks.
R24 was split to Fido Classic and Fido Light
(listed in the official Nodelist).
Fido Classic exists for about 3 years
and patched the official Nodelists with the
R24 structure before Nodelist#176/1993.
See also directory Region.24 in the
Fido-History-Project archive.
There are two POINTS24 distributions this time.
One for Classic, one for Light.
Here you'll find the Light distribution.";
// NODELIST : ($year==1993) && ($day==176) ) ||
$exception["type"][5]="1,2";
$exception["year"][5]=1993;
$exception["days"][5]="176";
$exception["note"][5]= " Info #176/1993:
R24 reorganization results in a 3 year split of R24 into R24 Classic and R24 Light until 215/1996.";
// FIDONEWS : (($year==1996)
$exception["type"][6]="3";
$exception["year"][6]=1996;
$exception["days"][6]="159,166,173,180"; // "23,24,25,26";
$exception["note"][6]= " Info 1996:
FNEWS(13)#23 to (13)#26 issue wasn't published in 1996. Next issue: FIDO1327.NWS.
Note from Jim Barchuk:
... the editor changes from Donald Tees to Chris Baker. Donald sort of 'faded out', and it took that long to get Chris installed as the new editor. Chris chose to not use contiguous issue numbers, but to make the numbers match the 'week number of the year'.";
// NODELIST : ($year==1997) && ($day==122)
// 122/1997 missing zone,2, line
$exception["type"][7]="1,2";
$exception["year"][7]=1997;
$exception["days"][7]="122";
$exception["note"][7]= " Info #122/1997:
Zone 2 Nodelist exception:
Zone,2,.. line missing
results in Zone 2 nodes becomes Zone 0 nodes.
A 2nd Nodediff.122 was distributed with filedate 2.5.1997 and filetime 10:30.
Fixed with Diff #122/2.
This version in the Fido-History-Project archive is the fixed version.";
// FIDONEWS : (($year==2000)
$exception["type"][8]="3";
$exception["year"][8]=2000;
$exception["days"][8]="14";
$exception["note"][8]= " Info 2000:
FNEWS(17)#02 has a naming error: FNEWS1802
but publishing date is correct.
Renamed to FNEWS1702.NWS.";
// R24 pointlist : ((($slct==31) || ($slct==32)) && (($year==2001) && ($day==173)) )
$exception["type"][9]="31,32";
$exception["year"][9]=2001;
$exception["days"][9]="173";
$exception["note"][9]= " Info:
R24PNT and R24PNT_D starts official distribution and starts inclusion into the Z2PNT list.
There is no R24PNT_D Diff before.";
// NODELIST : 2005 35
// 035/2005 ? zone 4 problem with 0Ah within lines
// results in compile problem by some compilers
$exception["type"][10]="1,2";
$exception["year"][10]=2005;
$exception["days"][10]="35";
$exception["note"][10]= " Info #035/2005:
Zone 4 problem with 0Ah within Nodelist lines results in compile problems by some compilers.";
// NODELIST : 2005 42
// 042/2005 2 different diffs distributed, results in confusion
$exception["type"][11]="1,2";
$exception["year"][11]=2005;
$exception["days"][11]="42";
$exception["note"][11]= " Info #042/2005:
2 different Diffs distributed, results in confusion.";
// NODELIST : (($year==2006) && ((($day>310) && ($day<343))
// 314/2006 2 different diffs distribution results in
// confusion
$exception["type"][12]="1,2";
$exception["year"][12]=2006;
$exception["days"][12]="314";
$exception["note"][12]= " Info #314/2006:
2 different Diffs distributed, results in confusion.";
// 321,328,335,342/2006 after disc-crash late distribution, and confusion
// about 2 different #314 diffs
$exception["type"][13]="1,2";
$exception["year"][13]=2006;
$exception["days"][13]="321,328,335,342";
$exception["note"][13]= " Info #321-342/2006:
After a disc crash on Wards system #321, #328, #335, #342 is late distributed. There are some confusions about 2 different #314 diffs that was now (late) identified.";
// NODELIST : ($year==2006) && ($day==286)
// 286/2006 region46.293 segment naming problem ends
// in missing r46, so 2 different diffs are
// distributed, that results in confusion
$exception["type"][14]="1,2";
$exception["year"][14]=2006;
$exception["days"][14]="286";
$exception["note"][14]= " Info #286/2006:
Region46.293 Segment naming problem ends in missing R46, DIFF redistributed so 2 different Diffs are distributed, that results in confusion.";
// NODELIST : ($slct==1) || ($slct==2)
// ($year==2007) && ($day==75))
// 075/2007 missing zone,2, and zone,4, lines
$exception["type"][15]="1,2";
$exception["year"][15]=2007;
$exception["days"][15]="75";
$exception["note"][15]= " Info:
Zone 2 Nodelist exception:
Zone,2,.. and Zone,4,.. lines missing
results in Zone 2 nodes becomes Zone 0 nodes
and Zone 4 nodes becomes Zone 3 nodes.
Fixed in #082.";
// NODELIST, POINTLISTS, FIDONEWS EXCEPTIONS -- End
$today = getdate();
$actyear = $today['year'];
$lastyear = $actyear;
$reqpath="/archiv";
$basepath="/pub/fidohist/";
$basepath2= "Q:/SERVICE/0_ARCHIV";
$datum=mktime(0,0,0,01,06,1984); // startdate 6.1.1984
// skip to start year?
// if startyear > actyear do nothing
if ($code_criterion<2) {
$startyear=1984;
} else {
if ($code_criterion==3) {
$startyear=1984;
} else {
if ($zone_criterion==20) {
// z2pnt
$startyear=2001;
} else {
if (($zone_criterion==30)) {
// r24
// formats: Fake, Boss
$startyear=1989;
} else {
if (($zone_criterion==40)) {
// r28
// formats: Fidouser, Boss
$startyear=1997;
} else {
if (($zone_criterion==50)) {
// r31
// formats: V7, Boss
$startyear=1998;
} else {
if (($zone_criterion==60)) {
// r23
// formats: Boss, Fake
$startyear=1992;
$lastyear =2005;
} else {
if (($zone_criterion==70)) {
// r34
// formats: Boss, Fake
$startyear=2001;
} else {
if (($zone_criterion==80)) {
// r46
// formats: Poss
$startyear=2007;
} else {
if (($zone_criterion==90)) {
// r50
// formats: Poss
$startyear=2006;
} else {
if (($zone_criterion==100)) {
// r29
// formats: Boss, V7
$startyear=1997;
$lastyear =2001;
}
}
}
}
}
}
}
}
}
}
}
$fidoyear = ($startyear-1984)+1;
$testyear=date("Y",$datum);
if ($testyear<$startyear) {
while ($year<$startyear-1) {
$sikdatum = $datum;
$year=date("Y",$datum);
$tyr = $year;
$fidoyear=($tyr - 1984)+1;
$day=date("z",$datum)+1; // ???
$week=1;
$sikday = $day;
while (($day<367) && (date("Y",$datum)==$tyr)) {
$day=$day+7;
$week++;
$datum=mktime(0,0,0,date("m",$datum),date("d",$datum)+7,date("Y",$datum));
}
}
}
$year=date("Y",$datum);
$dovos = false;
$dov = "";
$year2 = $year;
while ($year2<=$actyear) {
if (substr($year2,3,1)=="0") {
$dov .= "
$year2 ";
} else {
if ($dovos) {
$dov .= "| $year2 ";
} else {
$dovos = true;
$dov .= "$year2 ";
}
}
$year2++;
}
echo "Index:
".$dov."\n";
?>
|
|
Legend
| | links in black | = file can be viewed now |
| | links in white | = file has not be found by Fido historians |
| | links in yellow | = file scheduled to be added to collection |
| | links in red | = exceptions, addtl. info available |
| | 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;
}
}
} else {
if ($zone_criterion==80) {
// r46
// formats: Poss
$tmpp[0]=sprintf("pntlist/r46/%04d/Poss",$year);
$tmpp[1]=sprintf("pntlist/r46/%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] = "R46
Pointlist";
$workdir[$counts][2] = "Poss";
$workdir[$counts][3] = 81;
$tmpd=$basepath2.$basepath.$tmpp[1];
if (is_dir($tmpd)) { // Nodediff dir exists
$counts++;
$workdir[$counts][0] = $tmpp[1];
$workdir[$counts][1] = "R46
Pointdiff";
$workdir[$counts][2] = "Poss";
$workdir[$counts][3] = 82;
}
} else {
$counts++;
$workdir[$counts][0] = $tmpp[0];
$workdir[$counts][1] = "R46
Pointlist";
$workdir[$counts][2] = "Poss";
$workdir[$counts][3] = 81;
}
} else {
if ($zone_criterion==90) {
// r50
// formats: Poss
$tmpp[0]=sprintf("pntlist/r50/%04d/Poss",$year);
$tmpp[1]=sprintf("pntlist/r50/%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] = "R50
Pointlist";
$workdir[$counts][2] = "Poss";
$workdir[$counts][3] = 91;
$tmpd=$basepath2.$basepath.$tmpp[1];
if (is_dir($tmpd)) { // Nodediff dir exists
$counts++;
$workdir[$counts][0] = $tmpp[1];
$workdir[$counts][1] = "R50
Pointdiff";
$workdir[$counts][2] = "Poss";
$workdir[$counts][3] = 92;
}
} else {
$counts++;
$workdir[$counts][0] = $tmpp[0];
$workdir[$counts][1] = "R50
Pointlist";
$workdir[$counts][2] = "Poss";
$workdir[$counts][3] = 91;
}
} else {
if ($zone_criterion==100) {
// r29
// formats: Boss, V7
$tmpp[0]=sprintf("pntlist/29/%04d/Boss",$year);
$tmpp[1]=sprintf("pntlist/29/%04d/Boss/diff",$year);
$tmpp[2]=sprintf("pntlist/r29/%04d/v7",$year);
$tmpp[3]=sprintf("pntlist/r29/%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] = "R29
Pointlist";
$workdir[$counts][2] = "Boss";
$workdir[$counts][3] = 101;
$tmpd=$basepath2.$basepath.$tmpp[1];
if (is_dir($tmpd)) { // Nodediff dir exists
$counts++;
$workdir[$counts][0] = $tmpp[1];
$workdir[$counts][1] = "R29
Pointdiff";
$workdir[$counts][2] = "Boss";
$workdir[$counts][3] = 102;
}
} else {
$counts++;
$workdir[$counts][0] = $tmpp[0];
$workdir[$counts][1] = "R29
Pointlist";
$workdir[$counts][2] = "Boss";
$workdir[$counts][3] = 101;
}
$tmpd=$basepath2.$basepath.$tmpp[2];
if (is_dir($tmpd)) { // Nodelist dir exists
$counts++;
$workdir[$counts][0] = $tmpp[2];
$workdir[$counts][1] = "R29
Pointlist";
$workdir[$counts][2] = "Points,V7";
$workdir[$counts][3] = 103;
$tmpd=$basepath2.$basepath.$tmpp[3];
if (is_dir($tmpd)) { // Nodediff dir exists
$counts++;
$workdir[$counts][0] = $tmpp[3];
$workdir[$counts][1] = "R29
Pointdiff";
$workdir[$counts][2] = "Points,V7";
$workdir[$counts][3] = 104;
}
}
}
}
}
}
}
}
}
}
}
}
}
// $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;
}
}
$fnwsex = False;
while ((($day<367) && (date("Y",$datum)==$tyr)) || ($fnwsex)) {
$fnwsex = False;
if ($slct==3) {
if ((($year==1984) && ($week<48)) || (($year==1993) && ($week==53)) || (($year==1986) && ($week==52)) || (($year==1988) && ($week==53)) || (($year==1999) && ($week==53)) || (($year==2004) && ($week==53)) ) {
// 1993/53 results in mismatch between nodediff day friday publishing
// and fidonews publishing day on sunday #52/1993 is 26th Dec. 1993
// same happens in 1986 #51 in 86 is published 29th Dec
// same happens in 1988 #52 in 88 is published 26th Dec
$printday=" ";
$printweek=" ";
} else {
if (($year==1984)) {
$printday=$day;
$printweek=$week-47;
} else {
$printday=$day;
$printweek=$week;
}
}
} else {
// some exceptions, no daynumber display
if (($year==1984) && ($day<153)) {
$printday=" ";
$printweek=" ";
} else {
if (($slct==32) && ($year==2001) && ($day<180)) {
$printday=" ";
$printweek=" ";
} else {
if (($slct==34) && (($year==1992) && ($day==157)) ) {
$printday=" ";
$printweek=" ";
} else {
// regular daynumber display
$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
// $filename2=sprintf("pntlist/r24/%04d/Fake/p24%s%03d.zip",$year,substr($year,2,2),$day);
$filename=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));
} else {
if ($slct==81) {
// r46pnt poss list
$filename=sprintf("pntlist/r46/%04d/Poss/pnt46reg.z%s",$year, substr("00".$day,strlen($day),2));
} else {
if ($slct==82) {
// r46pnt poss diff
$filename=sprintf("pntlist/r46/%04d/Poss/diff/pnt46dif.z%s",$year, substr("00".$day,strlen($day),2));
} else {
if ($slct==91) {
// r50pnt poss list
$filename=sprintf("pntlist/r50/%04d/Poss/r50pnt.z%s",$year, substr("00".$day,strlen($day),2));
} else {
if ($slct==92) {
// r50pnt poss diff
$filename=sprintf("pntlist/r50/%04d/Poss/diff/r50pnt_d.z%s",$year, substr("00".$day,strlen($day),2));
} else {
if ($slct==101) {
// r29pnt Boss %s substr("00".$day,strlen($day),2)
//$filename=sprintf("pntlist/r29/%04d/Boss/r29pnt_b.%03d",$year, $day);
$filename=sprintf("pntlist/r29/%04d/Boss/r29pnt_b.z%s",$year, substr("00".$day,strlen($day),2));
} else {
if ($slct==103) {
// r29pnt Point,V7 z%s substr("00".$day,strlen($day),3)
//$filename=sprintf("pntlist/r29/%04d/V7/r29pnt_p.%03d",$year, $day);
$filename=sprintf("pntlist/r29/%04d/V7/r29pnt_p.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;
}
$srch[0]=$slct;
$srch[1]=$year;
$srch[2]=$day;
$fnd = excep_find($srch,$exception);
if ($fnd>-1) {
// Exceptions
$printday="$printday".$exception["note"][$fnd]."";
$printweek="$printweek";
} else {
if ((((($year==1987) && ($day>212)) OR (($year>1987))) ) && ($slct!=3)) {
// DEFAULT
$printday="$printday";
$printweek="$printweek";
} else {
$printday="$printday";
$printweek="$printweek";
}
}
} else {
$srch[0]=$slct;
$srch[1]=$year;
$srch[2]=$day;
$fnd = excep_find($srch,$exception);
if ($fnd>-1) {
// Exceptions
$printday="$printday".$exception["note"][$fnd]." ";
$printweek="$printweek".$exception["note"][$fnd]." ";
} else {
if (($year>$actyear-1)) {
$printday="".$printday."\n";
$printweek="".$printweek."\n";
} else {
$printday="".$printday."\n";
$printweek="".$printweek."\n";
}
}
}
} else {
if (file_exists($basepath2.$filename)) {
$srch[0]=$slct;
$srch[1]=$year;
$srch[2]=$day;
$fnd = excep_find($srch,$exception);
if ($fnd>-1) {
// Exceptions
$printday="$printday".$exception["note"][$fnd]."";
$printweek="$printweek".$exception["note"][$fnd]."";
} else {
if ((((($year==1987) && ($day>212)) OR (($year>1987))) ) && ($slct!=3)) {
// DEFAULT
$printday="$printday";
$printweek="$printweek";
} else {
$printday="$printday";
$printweek="$printweek";
}
}
} else {
$srch[0]=$slct;
$srch[1]=$year;
$srch[2]=$day;
$fnd = excep_find($srch,$exception);
if ($fnd>-1) {
// Exceptions
$printday="$printday".$exception["note"][$fnd]." ";
$printweek="$printweek".$exception["note"][$fnd]." ";
} else {
if (($year>$actyear-1)) {
$printday="".$printday."\n";
$printweek="".$printweek."\n";
} else {
$printday="".$printday."\n";
$printweek="".$printweek."\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++;
if (($slct==3) && ((($year==1990) && ($week==53)) || (($year==1996) && ($week==53)) || (($year==2000) && ($week==53)) || (($year==2001) && ($week==53)) )) {
$fnwsex = True;
} else {
$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; Gero Dirk Lachner - @ geros-castle
|
|
|