<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>Fidonet NodeList/Pointlist(s)/Fidonews Archive</TITLE>
<META http-equiv=Content-Type content="text/html; charset=windows-1252">
<STYLE TYPE="text/css"><!--
A:active { FONT-FAMILY: arial; FONT-SIZE: 12px; FONT-WEIGHT: bold; COLOR: #00CCFF; TEXT-DECORATION: none }
A:link { FONT-FAMILY: arial; FONT-SIZE: 12px; FONT-WEIGHT: bold; COLOR: #00CCFF; TEXT-DECORATION: none }
A:visited { FONT-FAMILY: arial; FONT-SIZE: 12px; FONT-WEIGHT: bold; COLOR: #00CCFF; TEXT-DECORATION: none }
A.wb:hover { FONT-FAMILY: arial; FONT-SIZE: 12px; FONT-WEIGHT: bold; COLOR: #FFFFFF; BACKGROUND-COLOR: #0000FF; TEXT-DECORATION: none }
A.srch:active { FONT-FAMILY: arial; FONT-SIZE: 12px; FONT-WEIGHT: bold; COLOR: #000000; TEXT-DECORATION: none }
A.srch:link { FONT-FAMILY: arial; FONT-SIZE: 12px; FONT-WEIGHT: bold; COLOR: #000000; TEXT-DECORATION: none }
A.srch:visited { FONT-FAMILY: arial; FONT-SIZE: 12px; FONT-WEIGHT: bold; COLOR: #000000; TEXT-DECORATION: none }
A.srch:hover { FONT-FAMILY: arial; FONT-SIZE: 12px; FONT-WEIGHT: bold; COLOR: #FFFFFF; BACKGROUND-COLOR: #0000FF; TEXT-DECORATION: none }
A.s2:active { FONT-FAMILY: arial; FONT-SIZE: 12px; FONT-WEIGHT: bold; COLOR: #000000; TEXT-DECORATION: none }
A.s2:link { FONT-FAMILY: arial; FONT-SIZE: 12px; FONT-WEIGHT: bold; COLOR: #000000; TEXT-DECORATION: none }
A.s2:visited { FONT-FAMILY: arial; FONT-SIZE: 12px; FONT-WEIGHT: bold; COLOR: #000000; TEXT-DECORATION: none }
A.s2:hover { FONT-FAMILY: arial; FONT-SIZE: 12px; FONT-WEIGHT: bold; COLOR: #FFFF00; BACKGROUND-COLOR: #0000FF; TEXT-DECORATION: none }
BODY { FONT-FAMILY: arial; FONT-SIZE: 12px; FONT-WEIGHT: bold; COLOR: #FFFFFF; BACKGROUND-COLOR : #104375; SCROLLBAR-FACE-COLOR: #104375; SCROLLBAR-SHADOW-COLOR: #104375; SCROLLBAR-HIGHLIGHT-COLOR: #104375; SCROLLBAR-3DLIGHT-COLOR: #6699CC; SCROLLBAR-DARKSHADOW-COLOR: #000000; SCROLLBAR-TRACK-COLOR: #104375; SCROLLBAR-ARROW-COLOR: #FFFFFF; TEXT-DECORATION: none }
TABLE, TR, TH { FONT-FAMILY: arial; FONT-SIZE: 12px; FONT-WEIGHT: bold; COLOR: #000000; TEXT-DECORATION: none }
.header { FONT-FAMILY: arial; FONT-SIZE: 26px; FONT-WEIGHT: bold; COLOR: #FFFFFF; TEXT-DECORATION: none }
.heading { FONT-FAMILY: arial; FONT-SIZE: 16px; FONT-WEIGHT: bold; COLOR: #FFAA00; TEXT-DECORATION: none }
.headPara { FONT-FAMILY: arial; FONT-SIZE: 12px; FONT-WEIGHT: bold; COLOR: #FFFF00; TEXT-DECORATION: underline }
.smallTextB { FONT-FAMILY: arial; FONT-SIZE: 12px; FONT-WEIGHT: bold; COLOR: #000000; TEXT-DECORATION: none }
.smallTextY { FONT-FAMILY: arial; FONT-SIZE: 12px; FONT-WEIGHT: bold; COLOR: #FFFF00; TEXT-DECORATION: none }
.smallTextFade { FONT-FAMILY: arial; FONT-SIZE: 12px; FONT-WEIGHT: normal; COLOR: #BBBBBB; TEXT-DECORATION: none }
.smallerTextWh { FONT-FAMILY: arial; FONT-SIZE: 10px; FONT-WEIGHT: normal; COLOR: #FFFFFF; TEXT-DECORATION: none }
--></STYLE>
</HEAD>
<BODY bgcolor=#104375 text=#FFFFFF leftmargin=0 topmargin=0 marginheight=0 marginwidth=0>
<?php
$version = "4.1"; // 19.3.2007
$_POST = $HTTP_POST_VARS;
$code_criterion=intval($_POST['code_criterion']);
$zone_criterion=intval($_POST['zone_criterion']);
$Clear_Fields=$_POST['Clear_Fields'];
if ($Clear_Fields=="Clear") {
$code_criterion=0;
$zone_criterion=0;
}
if ($code_criterion==1) {
$zone_criterion=0;
} else {
if ($code_criterion==3) {
$zone_criterion=0;
} else {
if (($code_criterion==2) && ($zone_criterion==0)) {
$zone_criterion=20;
}
}
}
//echo "[".$code_criterion."]<br>\n";
//echo "[".$zone_criterion."]<br>\n";
?>
<center><FONT class="header">- Fidonet NodeList / Pointlist(s) / Fidonews Archive -</FONT>
<br>
<DIV ALIGN="CENTER">
<FORM NAME="criteria" METHOD="POST"
ACTION="nodelist.php">
<TABLE BGCOLOR="#FFCCCC" CELLPADDING="3" BORDER="1" CAPTION="Search Criteria">
<TR VALIGN="TOP">
<TD VALIGN="MIDDLE" ALIGN="CENTER"><IMG
SRC="/images/fido_dog.gif" HEIGHT="44" BORDER="0"></TD>
<TD VALIGN="TOP" ALIGN="LEFT">
<TABLE BGCOLOR="#FFcccc" CELLPADDING="0" CELLSPACING="0">
<TR>
<TD>
<FIELDSET><LEGEND>List(s)</LEGEND>
<TABLE CELLPADDING="3" CELLSPACING="0">
<TR VALIGN="TOP">
<TD VALIGN="TOP" ALIGN="LEFT">
<?php if ($code_criterion==1) { ?>
<INPUT TYPE="radio" NAME="code_criterion" VALUE="1" checked> Nodelist/Nodediff</TD>
<?php } else { ?>
<INPUT TYPE="radio" NAME="code_criterion" VALUE="1"> Nodelist/Nodediff</TD>
<?php } ?>
<?php if ($code_criterion==2) { ?>
<TD VALIGN="TOP" ALIGN="LEFT"><INPUT TYPE="radio" NAME="code_criterion" VALUE="2" checked> Pointlist/Pointdiff</TD>
<?php } else { ?>
<TD VALIGN="TOP" ALIGN="LEFT"><INPUT TYPE="radio" NAME="code_criterion" VALUE="2" > Pointlist/Pointdiff</TD>
<?php } ?>
<?php if ($code_criterion==3) { ?>
<TD VALIGN="TOP" ALIGN="LEFT"><INPUT TYPE="radio" NAME="code_criterion" VALUE="3" checked> Fidonews</TD>
<?php } else { ?>
<TD VALIGN="TOP" ALIGN="LEFT"><INPUT TYPE="radio" NAME="code_criterion" VALUE="3" > Fidonews</TD>
<?php } ?>
</TR>
</TABLE> </FIELDSET></TD>
</TR>
</TABLE></TD>
</TR>
<TR>
<TD VALIGN="MIDDLE" ALIGN="CENTER"> <TABLE BGCOLOR="#FFcccc" CELLPADDING="1" CELLSPACING="0">
<TR><TD ALIGN="CENTER"><INPUT TYPE="SUBMIT"
NAME="Submit_button" CHECKED="CHECKED" VALUE="Select"></TD></TR>
<TR><TD ALIGN="CENTER"><INPUT TYPE="SUBMIT" NAME="Clear_Fields" VALUE="Clear"></TD></TR></TABLE>
</TD>
<TD VALIGN="TOP" ALIGN="LEFT">
<FIELDSET><LEGEND>Pointlist Selection</LEGEND>
<TABLE CELLPADDING="3" CELLSPACING="0">
<TR VALIGN="TOP">
<TD VALIGN="TOP" ALIGN="LEFT">
<select name="zone_criterion">
<?php
echo "<option value=\"0\"";
if ($zone_criterion==0) { echo " selected"; }
echo ">select Pointlist</option>\n";
echo "<option value=\"20\"";
if ($zone_criterion==20) { echo " selected"; }
echo ">Zone 2 (Poss)</option>\n";
echo "<option value=\"60\"";
if ($zone_criterion==60) { echo " selected"; }
echo ">Region 23 (Boss, Fake)</option>\n";
echo "<option value=\"30\"";
if ($zone_criterion==30) { echo " selected"; }
echo ">Region 24 (Boss, Fake)</option>\n";
echo "<option value=\"40\"";
if ($zone_criterion==40) { echo " selected"; }
echo ">Region 28 (Boss, Fidouser)</option>\n";
echo "<option value=\"50\"";
if ($zone_criterion==50) { echo " selected"; }
echo ">Region 31 (Boss, V7)</option>\n";
?>
</select>
</TD>
</TR>
</TABLE> </FIELDSET>
</TD>
</TR>
</TABLE></FORM></DIV>
<P ALIGN="CENTER"><FONT SIZE="1" color="#ffffff">Form based upon: <a class="external" target="_blank" href="http://www.writebynight.com/nodelist_search.php"><FONT SIZE="1">nodelist_search.php</font></a> Version 1.2<BR>Copyright © 2003 <A HREF="mailto:jerryschwartz@comfortable.com"><FONT SIZE="1">Jerry Schwartz</font></A> 1:142/928 and WriteByNight<br>
Nodelist lister script adopted from <a class="external" href="http://www.winramturbo.com/fnsp/arch-nodelist-diff.htm"><FONT SIZE="1">The FidoNet Showcase Project</font></a><br>
Modified for Nodelist/Nodediff/Pointlist/Pointdiffs and Fidonews listing by U.Schroeter, 2007, (v<?php echo $version ?>)</FONT><P>
<TABLE bgcolor=#D2B48C border=1 width=65%>
<TR>
<TH colspan=12 bgcolor=#A52A2A height=5></TH>
</TR><TR>
<TH bgcolor=#FFCC90 align=left colspan=12>
<center><FONT color=#A52A2A>Legend</FONT></center>
<table border="0" width="100%">
<tr><td> </td><td>links in black</td><td>= file can be viewed now</td></tr>
<tr><td> </td><td><FONT color=#FFFFFF>links in white</font></td><td><FONT color=#FFFFFF>= file has not be found by Fido historians</FONT></td></tr>
<tr><td> </td><td><FONT color=#FF0000>links in red</font></td><td><FONT color=#FF0000>= file scheduled to be added to collection</FONT></td></tr>
<tr><td> </td><td bgcolor=#338899><FONT color=#FFFF00>Background dark</font></td><td><FONT color=#FFFF00>= pre makenl distributions</FONT></td></tr>
<tr><td> </td><td bgcolor=#66cccc valign="top"><FONT color=#FFFF00>Background light</font></td><td><FONT color=#FFFF00>= regular makenl distribution since #219/1987</FONT></td></tr>
</table>
</TH>
</TR><TR>
<TH colspan=12 bgcolor=#A52A2A height=5></TH>
</TR>
<tr>
<?
$today = getdate();
$actyear = $today['year'];
$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;
$fidoyear = 1;
} else {
if ($code_criterion==3) {
$startyear=1984;
$fidoyear = 1;
} else {
if ($zone_criterion==20) {
// z2pnt
$startyear=2001;
$fidoyear = 18;
} else {
if (($zone_criterion==30)) {
// r24
// formats: Fake, Boss
$startyear=1989;
$fidoyear = 6;
} else {
if (($zone_criterion==40)) {
// r28
// formats: Fidouser, Boss
$startyear=1997;
$fidoyear = 14;
} else {
if (($zone_criterion==50)) {
// r31
// formats: V7, Boss
$startyear=1998;
$fidoyear = 15;
} else {
if (($zone_criterion==60)) {
// r23
// formats: Boss, Fake
$startyear=1992;
$fidoyear = 9;
}
}
}
}
}
}
}
$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));
}
}
}
while ($year<$actyear) {
$sikdatum = $datum;
$year=date("Y",$datum);
$tyr = $year;
$fidoyear=($tyr - 1984)+1;
echo "<a href='#y$year'>$year</a> ";
$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<br>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<br>Pointdiff";
$workdir[$counts][2] = "Poss";
$workdir[$counts][3] = 22;
}
} else {
$counts++;
$workdir[$counts][0] = $tmpp[0];
$workdir[$counts][1] = "Z2<br>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<br>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<br>Pointdiff";
$workdir[$counts][2] = "Boss";
$workdir[$counts][3] = 32;
}
} else {
$counts++;
$workdir[$counts][0] = $tmpp[0];
$workdir[$counts][1] = "R24<br>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<br>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<br>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<br>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<br>Pointdiff";
$workdir[$counts][2] = "Boss";
$workdir[$counts][3] = 42;
}
} else {
$counts++;
$workdir[$counts][0] = $tmpp[0];
$workdir[$counts][1] = "R28<br>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<br>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<br>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<br>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<br>Pointdiff";
$workdir[$counts][2] = "Boss";
$workdir[$counts][3] = 52;
}
} else {
$counts++;
$workdir[$counts][0] = $tmpp[0];
$workdir[$counts][1] = "R31<br>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<br>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<br>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<br>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<br>Pointdiff";
$workdir[$counts][2] = "Boss";
$workdir[$counts][3] = 62;
}
} else {
$counts++;
$workdir[$counts][0] = $tmpp[0];
$workdir[$counts][1] = "R23<br>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<br>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<br>Pointdiff";
$workdir[$counts][2] = "Fakenet";
$workdir[$counts][3] = 64;
}
}
}
}
}
}
}
}
}
// $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 "<a href='#y$year'>$year</a> ";
$day=date("z",$datum)+1; // ???
$week=1;
// $sikday = $day;
if ($slct==3) {
$listtype.="<br>[".$fidoyear."]";
}
if ($j==1) {
echo "<TH rowspan=".(6*$counts)." bgcolor=#A52A2A> <FONT class=smallTextY ><a name=\"y$year\">".date("Y",$datum)."</a></FONT> </TH>";
}
echo "<TH rowspan=6 bgcolor=#338899> ".$listtype;
if ($ptype!="") {
echo "<br>(".$ptype.")\n";
}
echo "</TH>\n";
if ($slct==3) {
$teller=0;
} else {
if ($day!=1) {
if ((($year==1987) && ($day>212)) OR (($year>1987)) ) {
echo "<TH bgcolor=#66cccc><FONT color=#FFFFff>";
} else {
echo "<TH bgcolor=#338899><FONT color=#FFFFFF>";
}
echo " </FONT></TH>\n";
// echo "<TH bgcolor=#338899><FONT color=#FFFFFF> </FONT></TH>\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));
}
}
}
}
}
}
}
}
}
}
}
}
}
}
}
}
}
}
}
}
}
$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="<a href=\"".$reqpath.$fnrq."\" class=srch>$printday</a>";
$printweek="<a href=\"".$reqpath.$fnrq."\" class=srch>$printweek</a>";
} else {
if (((($year==1987) && ($day>212)) OR (($year>1987))) ) {
$printday="<a href=\"".$reqpath.$fnrq."\" class=s2>$printday</a>";
$printweek="<a href=\"".$reqpath.$fnrq."\" class=s2>$printweek</a>";
} else {
$printday="<a href=\"".$reqpath.$fnrq."\" class=srch>$printday</a>";
$printweek="<a href=\"".$reqpath.$fnrq."\" class=srch>$printweek</a>";
}
}
} else {
if (($year>2006)) {
$printday="<FONT color=#FF0000>".$day."</FONT>\n";
$printweek="<FONT color=#FF0000>".$week."</FONT>\n";
}
}
} else {
if (file_exists($basepath2.$filename)) {
if ($slct==3) {
$printday="<a href=\"".$reqpath.$filename."\" class=srch>$printday</a>";
$printweek="<a href=\"".$reqpath.$filename."\" class=srch>$printweek</a>";
} else {
if (((($year==1987) && ($day>212)) OR (($year>1987))) ) {
$printday="<a href=\"".$reqpath.$filename."\" class=s2>$printday</a>";
$printweek="<a href=\"".$reqpath.$filename."\" class=s2>$printweek</a>";
} else {
$printday="<a href=\"".$reqpath.$filename."\" class=srch>$printday</a>";
$printweek="<a href=\"".$reqpath.$filename."\" class=srch>$printweek</a>";
}
}
} else {
if (($year>2006)) {
$printday="<FONT color=#FF0000>".$day."</FONT>\n";
$printweek="<FONT color=#FF0000>".$week."</FONT>\n";
}
}
}
if ($slct==3) {
echo "<TH bgcolor=#338899><FONT color=#FFFFFF>";
echo $printweek."</FONT></TH>\n";
} else {
if ((($year==1987) && ($day>212)) OR (($year>1987)) ) {
echo "<TH bgcolor=#66cccc><FONT color=#FFFFff>";
} else {
echo "<TH bgcolor=#338899><FONT color=#FFFFFF>";
}
echo $printday."</FONT></TH>\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 "</tr>\n<tr>";
$teller=0;
}
}
if ($teller<10) {
while ($teller<10) {
if ($slct==3) {
echo "<TH bgcolor=#338899><FONT color=#FFFFFF>";
} else {
if ((($year==1987) && ($day>212)) OR (($year>1987)) ) {
echo "<TH bgcolor=#66cccc><FONT color=#FFFFff>";
} else {
echo "<TH bgcolor=#338899><FONT color=#FFFFFF>";
}
}
echo " </FONT></TH>\n";
$teller++;
}
}
echo "</tr>\n";
}
echo "<TR>\n";
echo "<TH colspan=12 bgcolor=#A52A2A height=5></TH>\n";
echo "</TR>\n";
$tmnth = date("n",$datum);
$tday = date("j",$datum);
$tyr = date("Y",$datum);
//$year=$tyr+1;
flush();
}
?>
</tr>
<TH colspan=12> </TH>
</TR><TR>
<TH colspan=12 bgcolor=#A52A2A height=5></TH>
</TR><TR>
<TH bgcolor=black align=left colspan=12>
<center><FONT color=#FFFFFF>Credits - Original Collection of File
Archives</FONT></center>
<FONT class=smallTextFade>
ftp://ftp.fidonet.org/fidonet/fido-history - FIDO-HISTORY PROJECT (The Original) @ ftp.fidonet.org
(Offline)<br>
Ruth Argust - <A href="http://www.rcat.com/fido_public/"
class=wb> The Original FidoNet Nodelist Archives </A>@ The Great
White South BBS<br> (Archive: 550 not available)<br>
Tony Campbell - <A
href="http://www.textfiles.com/fidonet-on-the-internet/nodediff.htm"
class=wb> FOTI Nodelist / Nodediff Archive Page </A>@ TheLitterBox
BBS<br>
Frank Robbins - <A
href="http://www.winramturbo.com/fnsp/arch-nodelist-diff.htm" class=wb>The
FidoNet Showcase Project</a><br>
Michael Cronsten - <A href="http://www.fidonet.m.nu/nodlistor_diffar/"
class=wb> Swedisch Fidonet</A><br>
Gisbert Rudolph - <a href="ftp://ftp.grudolph.de/pub/fidohist/"
class=wb> Fido History Project (2)</a><br>
Ulrich Schroeter - <a
href="ftp://ambrosia60.dnsalias.net/service/0_ARCHIV" class=wb> Fidonet
Archive - Fido History Project (3)</a> @ Ambrosia60<br>
Steven Leeman - <a href="http://www.fido.be/nodelist.php" class=wb> Fidonet
Archive - Reorganized</a> @ skynetbbs<br>
Alex Woick - Wombaz; Michiel v.d. Vlist @ vlist.eu
</FONT>
</TH>
</TR><TR>
<TH colspan=12 bgcolor=#A52A2A height=5></TH>
</TR>
</TABLE>
</center>
</body>
</html>