<!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 }

A.s241:active  { FONT-FAMILY: arial; FONT-SIZE: 12px; FONT-WEIGHT: bold; COLOR: #FF0000; TEXT-DECORATION: none }
A.s241:link    { FONT-FAMILY: arial; FONT-SIZE: 12px; FONT-WEIGHT: bold; COLOR: #FF0000; TEXT-DECORATION: none }
A.s241:visited { FONT-FAMILY: arial; FONT-SIZE: 12px; FONT-WEIGHT: bold; COLOR: #FF0000; TEXT-DECORATION: none }
A.s241:hover   { FONT-FAMILY: arial; FONT-SIZE: 12px; FONT-WEIGHT: bold; COLOR: #FFFFFF; BACKGROUND-COLOR: #0000FF; TEXT-DECORATION: none }


#  a.infobox { border-bottom: 1px dashed #c30; text-decoration:none; }
#  a.infobox:hover { cursor:help; color:#c30; background:white; }
#  a.infobox span { visibility:hidden; position:absolute; left:16em;
#                   margin-top:1.5em; padding:1em; text-decoration:none; }
#  a.infobox:hover span { visibility:visible; border:1px solid #c30;
#                         color:blue; background:white; }

#  a.infobox { border-bottom: 1px dashed #c30; text-decoration:none; }
#  a.infobox:hover { cursor:help; color:#c30; background:white; }
#  a.infobox span { display:none; position:absolute; left:16em;
#                   margin-top:0.1em; padding:1em; text-decoration:none; }
#  a.infobox:hover span { display:block; width:20em; text-align:justify;
#                   border:1px solid #c30; color:blue; background:white; }
                         
a.infobox { FONT-FAMILY: arial; FONT-SIZE: 12px; FONT-WEIGHT: bold; COLOR: #FF0000; border-bottom: 1px dashed #c30; text-decoration:none; }
a.infobox:hover { cursor:help; color:#c30; background:white; }
a.infobox span { visibility:hidden; position:absolute; left:16em;
                   margin-top:1.5em; padding:1em; text-decoration:none; }
a.infobox:hover span { visibility:visible; display:block; width:23em; border:1px solid #c30;
                         color:blue; background:white; }

div.infobox { FONT-FAMILY: arial; FONT-SIZE: 12px; FONT-WEIGHT: bold; COLOR: #FF0000; border-bottom: 1px dashed #c30; text-decoration:none; }
div.infobox:hover { cursor:help; color:#c30; background:white; }
div.infobox span { visibility:hidden; position:absolute; left:16em;
                   margin-top:1.5em; padding:1em; text-decoration:none; }
div.infobox:hover span { visibility:visible; display:block; width:23em; border:1px solid #c30;
                         color:blue; background:white; }



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>
<!--[if IE 5]><style type="text/css">

#  a.infobox span { display:none; }
#  a.infobox:hover span { display:block; }

#  a.infobox2:hover span { margin-top:1.5em; width:22em; }

a.infobox span { display:none; }
a.infobox:hover span { display:block; width:23em; }

div.infobox span { display:none; }
div.infobox:hover span { display:block; width:23em; }

</style><![endif]-->




</HEAD>
<!-- BODY bgcolor=#104375 text=#FFFFFF leftmargin=0 topmargin=0 marginheight=0 marginwidth=0 -->
<BODY bgcolor="#104375" text="#FFFFFF" style="margin: 0">

<?php

//  Version History
$version = "5.0";    //   5.5.2007      R24 Pointlists specials, added LASTYEAR for 
//                      //                  R23, R29 stops distribution in 2001, 2005
//                      //                  added R24 pointlists exceptions infos 
//                      //                  added Nodelist Exceptions infos
//                      //                  added global exceptions handling
//                      //                  corrected Fidonews listing with exceptions to
//                      //                  Nodediff publishing
// $version = "4.6";    //   24.4.2007      packed R29 Pointlists                            
// $version = "4.5";    //   23.4.2007      R24 Pointlists specials, added R29 Pointlists
// $version = "4.4";    //   1.4.2007      added R46, R50 Pointlists
// $version = "4.3b";   //    1.4.2007      W3C html validated
// $version = "4.3";    //   31.3.2007      W3C html validated
// $version = "4.2";    //   30.3.2007      added R34 Pointlists
// $version = "4.1";    //   19.3.2007   added R23 Pointlists
// $version = "4.0";    //   13.3.2007   added Fidonews
// $version = "3.0";    //   10.3.2007   combined different Pointlists formats
// $version = "2.0";    //   9.3.2007    Pointlists R24, R28, R31 different formats


       $_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";

$oscript = $_SERVER["REQUEST_URI"];

?>



<center>



  <FONT class="header">- FIDO-HISTORY PROJECT Archive -</FONT><br>
  <table summary="" border="0">
    <tr><td><center><FONT class="heading">(3rd Generation, 1984-2007 ff.)</FONT></center></td></tr>
    <tr><td><FONT class="heading">* NodeList's / NodeDiff's</FONT></td></tr>
    <tr><td><FONT class="heading">* PointList's / PointDiff's</FONT></td></tr>
    <tr><td><FONT class="heading">* Fidonews</FONT></td></tr>
  </table>


<br>


<DIV ALIGN="CENTER"> 
<FORM NAME="criteria" METHOD="POST"
	 ACTION="<?php echo $oscript; ?>"> 
<!-- TABLE summary="" BGCOLOR="#FFCCCC" CELLPADDING="3" BORDER="1" CAPTION="Search Criteria" -->
<TABLE summary="Search Criteria" BGCOLOR="#FFCCCC" CELLPADDING="3" BORDER="1">

  <TR VALIGN="TOP"> 
  <TD VALIGN="MIDDLE" ALIGN="CENTER"><IMG SRC="/images/fido_dog.gif" HEIGHT="44" BORDER="0" alt="Fido dog"></TD> 
  <TD VALIGN="TOP" ALIGN="LEFT"> 
    <TABLE summary="" BGCOLOR="#FFcccc" CELLPADDING="0" CELLSPACING="0"> 
  <TR> 
  <TD> 
    <FIELDSET><LEGEND>List(s)</LEGEND> 
      <TABLE summary="" 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 summary="" 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 summary="" 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 (Denmark) [Boss, Fake]</option>\n";               
               echo "<option value=\"30\"";
               if ($zone_criterion==30) { echo " selected"; }
               echo ">Region 24 (Germany) [Boss, Fake]</option>\n";
               echo "<option value=\"40\"";
               if ($zone_criterion==40) { echo " selected"; }
               echo ">Region 28 (Netherlands, Belgium) [Boss, Fidouser]</option>\n";
               echo "<option value=\"100\"";
               if ($zone_criterion==100) { echo " selected"; }
               echo ">Region 29 (Belgium) [Boss, V7]</option>\n";
               echo "<option value=\"50\"";
               if ($zone_criterion==50) { echo " selected"; }
               echo ">Region 31 (Austria) [Boss, V7]</option>\n";
               echo "<option value=\"70\"";
               if ($zone_criterion==70) { echo " selected"; }
               echo ">Region 34 (Spain) [Boss, Fake]</option>\n";

               echo "<option value=\"80\"";
               if ($zone_criterion==80) { echo " selected"; }
               echo ">Region 46 (Ukraine + Moldova) [Poss]</option>\n";

               echo "<option value=\"90\"";
               if ($zone_criterion==90) { echo " selected"; }
               echo ">Region 50 (Russia) [Poss]</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 &copy; 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 summary="" border="0" width="80%">

<tr><td><center>

<?php

//  Exception system

function excep_find($a,$b) {
   $rval = -1;
   
   if (in_array($a[1],$b["year"])) {
      // while year
      $stop = False;
      $pos = array_search($a[1],$b["year"]);
      while (!$stop) {
         $b2 = explode(",",$b["type"][$pos]);
         $b3 = explode(",",$b["days"][$pos]);

         if ((in_array($a[0],$b2)) && (in_array($a[2],$b3))) {
            $rval = $pos;
            $stop = True;
         } else {
            $pos++;
            if ($a[1]!=$b["year"][$pos]) {
              $stop = True;
            }
         }
      }
   }
   return $rval;
}

//  NODELIST, POINTLISTS, FIDONEWS EXCEPTIONS  -- Begin

//   sort by year

// FIDONEWS : (($year==1985) 

$exception["type"][0]="3";
$exception["year"][0]=1985;
$exception["days"][0]="326,333,340,347,354,361"; // "47,48,49,50,51,52";
$exception["note"][0]= " <b>Info 1985:</b><br />FNEWS(2)#47 to (2)#52 in 1985 doesn't exist by Fido historians..<br />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]= " <b>Info 1987:</b><br />FNEWS(4)#49 to (4)#52 in 1987 doesn't exist by Fido historians.<br />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]= " <b>Info 1987:</b><br />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]= " <b>Info:</b><br />R24 Fakenet pointlist format change<br />from R24old to R24 Net-Fake-Region segments.<br />Only full POINTS24 list distribution.<br />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]= " <b>Info:</b><br />R24 reorganization in 1993<br />Distribution stops for a few weeks.<br />R24 was split to Fido <i>Classic</i> and Fido <i>Light</i><br />(listed in the official Nodelist).<br />Fido <i>Classic</i> exists for about 3 years<br />and patched the official Nodelists with the<br />R24 structure before Nodelist#176/1993.<br />See also directory Region.24 in the<br />Fido-History-Project archive.<br />There are two POINTS24 distributions this time.<br />One for <i>Classic</i>, one for <i>Light</i>.<br />Here you'll find the <i>Light</i> distribution.";

// NODELIST : ($year==1993) && ($day==176) ) ||

$exception["type"][5]="1,2";
$exception["year"][5]=1993;
$exception["days"][5]="176";
$exception["note"][5]= " <b>Info #176/1993:</b><br />R24 reorganization results in a 3 year split of R24 into R24 <i>Classic</i> and R24 <i>Light</i> 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]= " <b>Info 1996:</b><br />FNEWS(13)#23 to (13)#26 issue wasn't published in 1996. Next issue: FIDO1327.NWS.<br />Note from Jim Barchuk:<br />... 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]= " <b>Info #122/1997:</b><br />Zone 2 Nodelist exception:<br />Zone,2,.. line missing<br />results in Zone 2 nodes becomes Zone 0 nodes.<br />A 2nd Nodediff.122 was distributed with filedate 2.5.1997 and filetime 10:30.<br />Fixed with Diff #122/2.<br />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]= " <b>Info 2000:</b><br />FNEWS(17)#02 has a naming error: FNEWS1802<br />but publishing date is correct.<br />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]= " <b>Info:</b><br />R24PNT and R24PNT_D starts official distribution and starts inclusion into the Z2PNT list.<br />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]= " <b>Info #035/2005:</b><br />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]= " <b>Info #042/2005:</b><br />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]= " <b>Info #314/2006:</b><br />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]= " <b>Info #321-342/2006:</b><br />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]= " <b>Info #286/2006:</b><br />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]= " <b>Info:</b><br />Zone 2 Nodelist exception:<br />Zone,2,.. and Zone,4,.. lines missing<br />results in Zone 2 nodes becomes Zone 0 nodes<br />and Zone 4 nodes becomes Zone 3 nodes.<br />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 .= "<br><a class='wb' href='#y$year2'>$year2</a>&nbsp;";
  } else {
      if ($dovos) {
         $dov .= "| <a class='wb' href='#y$year2'>$year2</a>&nbsp;";
      } else {
         $dovos = true;
         $dov .= "<a class='wb' href='#y$year2'>$year2</a>&nbsp;";
      }
  }
  $year2++;
}

echo "<FONT class='smallerTextWh'>Index:<BR>".$dov."</FONT>\n";

?>




</center></td></tr>

<tr><td>





<TABLE summary="" bgcolor="#D2B48C" border="1" width="100%">
<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 summary="" border="0" width="100%">
<tr><td>&nbsp;</td><td>links in black</td><td><FONT color=#A52A2A>= file can be viewed now</font></td></tr>
<tr><td>&nbsp;</td><td><FONT color=#FFFFFF>links in white</font></td><td><FONT color=#A52A2A>= file has not be found by Fido historians</FONT></td></tr>
<tr><td>&nbsp;</td><td><FONT color=#FFFF00>links in yellow</font></td><td><FONT color=#A52A2A>= file scheduled to be added to collection</FONT></td></tr>
<tr><td>&nbsp;</td><td><FONT color=#FF0000>links in red</font></td><td><FONT color=#A52A2A>= exceptions, addtl. info available</FONT></td></tr>
<tr><td>&nbsp;</td><td bgcolor=#338899><FONT color=#FFFF00>Background dark</font></td><td><FONT color=#A52A2A>= pre makenl distributions</FONT></td></tr>
<tr><td>&nbsp;</td><td bgcolor=#66cccc valign="top"><FONT color=#FFFF00>Background light</font></td><td><FONT color=#A52A2A>= regular makenl distribution since #219/1987</FONT></td></tr>

</table>
</TH>
</TR><TR>
<TH colspan=12 bgcolor=#A52A2A height=5></TH>
</TR>

<tr><td>



<?php

// if startyear = year, loop will not be triggered !

if ($startyear==$actyear) {
  $triggeronce = true;
}

while ((($year<$actyear) AND ($year<$lastyear)) OR ($triggeronce)) {
  $triggeronce = false;

  $sikdatum = $datum;
  $year=date("Y",$datum);
  $tyr = $year;
  $fidoyear=($tyr - 1984)+1;


  // $label = "<a  href='#y$year'>$year</a>&nbsp;";
  // $label = "<a href='#y$year'></a>";
  $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<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;
                        }
                     }
                  } 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<br>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<br>Pointdiff";
                              $workdir[$counts][2]  = "Boss";
                              $workdir[$counts][3]  = 72;
                           }
                        } else {
                           $counts++;
                           $workdir[$counts][0]  = $tmpp[0];
                           $workdir[$counts][1]  = "R34<br>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<br>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<br>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<br>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<br>Pointdiff";
                                 $workdir[$counts][2]  = "Poss";
                                 $workdir[$counts][3]  = 82;
                              }
                           } else {
                              $counts++;
                              $workdir[$counts][0]  = $tmpp[0];
                              $workdir[$counts][1]  = "R46<br>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<br>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<br>Pointdiff";
                                    $workdir[$counts][2]  = "Poss";
                                    $workdir[$counts][3]  = 92;
                                 }
                              } else {
                                 $counts++;
                                 $workdir[$counts][0]  = $tmpp[0];
                                 $workdir[$counts][1]  = "R50<br>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<br>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<br>Pointdiff";
                                     $workdir[$counts][2]  = "Boss";
                                     $workdir[$counts][3]  = 102;
                                  }
                                } else {
                                   $counts++;
                                   $workdir[$counts][0]  = $tmpp[0];
                                   $workdir[$counts][1]  = "R29<br>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<br>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<br>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 "<a href='#y$year'>$year</a>&nbsp;";
     $day=date("z",$datum)+1;   // ???
     $week=1;
     //  $sikday = $day;

     if ($slct==3) {
        $listtype.="<br>[".$fidoyear."]";
     }


     if ($j==1) {
        echo "<tr><TH rowspan=".(6*$counts)." bgcolor='#A52A2A'>&nbsp; <FONT class=smallTextY ><a name=\"y$year\">".date("Y",$datum)."</a></FONT> &nbsp;</TH>";
        echo "<TH rowspan=6 bgcolor='#338899'>&nbsp; ".$listtype;
     } else {
        echo "<tr><TH rowspan=6 bgcolor='#338899'>&nbsp; ".$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 "&nbsp;</FONT></TH>\n";
           // echo "<TH bgcolor=#338899><FONT color=#FFFFFF>&nbsp;</FONT></TH>\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="&nbsp;";
              $printweek="&nbsp;";
           } 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="&nbsp;";
              $printweek="&nbsp;";
           } else {
              if  (($slct==32) && ($year==2001) && ($day<180)) {
                 $printday="&nbsp;";
                 $printweek="&nbsp;";
              } else {  
                 if (($slct==34) &&  (($year==1992) && ($day==157)) ) {
                    $printday="&nbsp;";
                    $printweek="&nbsp;";
                 } 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="<a href=\"".$reqpath.$fnrq."\" class='infobox'>$printday<span>".$exception["note"][$fnd]."</span></a>";
                $printweek="<a href=\"".$reqpath.$fnrq."\" class='s241'>$printweek</a>";
             } else {
                if ((((($year==1987) && ($day>212)) OR (($year>1987)))  ) && ($slct!=3))  {
                   //  DEFAULT
                   $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 {
             $srch[0]=$slct;
             $srch[1]=$year;
             $srch[2]=$day;
             $fnd = excep_find($srch,$exception);
             if ($fnd>-1) {
               // Exceptions
               $printday="<div class='infobox'>$printday<span>".$exception["note"][$fnd]."</span></div>";
               $printweek="<div class='infobox'>$printweek<span>".$exception["note"][$fnd]."</span></div>";
             } else {
                if (($year>$actyear-1)) {
                  $printday="<FONT color=#FFFF00>".$printday."</FONT>\n";
                  $printweek="<FONT color=#FFFF00>".$printweek."</FONT>\n";
                } else {
                  $printday="<FONT color=#FFFFFF>".$printday."</FONT>\n";
                  $printweek="<FONT color=#FFFFFF>".$printweek."</FONT>\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="<a href=\"".$reqpath.$filename."\" class='infobox'>$printday<span>".$exception["note"][$fnd]."</span></a>";
                  $printweek="<a href=\"".$reqpath.$filename."\" class='infobox'>$printweek<span>".$exception["note"][$fnd]."</span></a>";
               } else {
                  if ((((($year==1987) && ($day>212)) OR (($year>1987)))  ) && ($slct!=3))  {
                     //  DEFAULT
                     $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 {
             $srch[0]=$slct;
             $srch[1]=$year;
             $srch[2]=$day;
             $fnd = excep_find($srch,$exception);
             if ($fnd>-1) {
               // Exceptions
               $printday="<div class='infobox'>$printday<span>".$exception["note"][$fnd]."</span></div>";
               $printweek="<div class='infobox'>$printweek<span>".$exception["note"][$fnd]."</span></div>";
             } else {
                if (($year>$actyear-1)) {
                  $printday="<FONT color=#FFFF00>".$printday."</FONT>\n";
                  $printweek="<FONT color=#FFFF00>".$printweek."</FONT>\n";
                } else {
                  $printday="<FONT color=#FFFFFF>".$printday."</FONT>\n";
                  $printweek="<FONT color=#FFFFFF>".$printweek."</FONT>\n";
                }
             }
          }
        }

        if ($slct==3) {
           echo "<TH bgcolor=#338899>";
           echo $printweek."</TH>\n";
        } else {
           if ((($year==1987) && ($day>212)) OR (($year>1987)) ) {
                 echo "<TH bgcolor=#66cccc>";
           } else {
                 echo "<TH bgcolor=#338899>";
           }
           echo $printday."</TH>\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 "</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 "&nbsp;</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 -->
<tr>
<TH colspan=12>&nbsp;</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>
&nbsp; ftp://ftp.fidonet.org/fidonet/fido-history - &nbsp;FIDO-HISTORY PROJECT (The Original) &nbsp; @ ftp.fidonet.org
 (Offline)<br>
&nbsp; Ruth Argust - <A href="http://www.rcat.com/fido_public/"
class=wb>&nbsp;The Original FidoNet Nodelist Archives &nbsp;</A>@ The Great
White South BBS<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; (Archive: 550 not available)<br>
&nbsp; Tony Campbell - <A
href="http://www.textfiles.com/fidonet-on-the-internet/nodediff.htm"
class=wb>&nbsp; FOTI Nodelist / Nodediff Archive Page &nbsp;</A>@ TheLitterBox 
BBS<br>
&nbsp; Frank Robbins - <A
href="http://www.winramturbo.com/fnsp/arch-nodelist-diff.htm" class=wb>The
FidoNet Showcase Project</a><br>
&nbsp; Michael Cronsten - <A href="http://www.fidonet.m.nu/nodlistor_diffar/"
class=wb>&nbsp; Swedisch Fidonet</A><br>
&nbsp; Gisbert Rudolph - <a href="ftp://ftp.grudolph.de/pub/fidohist/"
class=wb>&nbsp; Fido History Project (2)</a><br>
&nbsp; Ulrich Schroeter - <a
href="ftp://ambrosia60.dnsalias.net/service/0_ARCHIV" class=wb>&nbsp; Fidonet
Archive - Fido History Project (3)</a> @ Ambrosia60<br>
&nbsp; Steven Leeman - <a href="http://www.fido.be/nodelist.php" class=wb>&nbsp; Fidonet
Archive - Reorganized</a> @ skynetbbs<br>
&nbsp; Alex Woick -   Wombaz; Michiel v.d. Vlist - @ vlist.eu; Gero Dirk Lachner - @ geros-castle
</FONT>
</TH>
</TR><TR>
<TH colspan=12 bgcolor=#A52A2A height=5></TH>
</TR>
</TABLE>

</td></tr></table>



</center>
</body>
</html>