<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <HTML> <HEAD> <?php if (file_exists('/ambrosia60RDhhead.inc')) { include '/ambrosia60RDhhead.inc'; } ?> <!-- Configuration starts in the Body section --> <title>The Fidonet's :: NodeList/Pointlist(s)/Fidonews Archive</title> <!-- META http-equiv=Content-Type content="text/html; charset=windows-1252" --> <META NAME="ROBOTS" CONTENT="INDEX,NOFOLLOW"> <!-- meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" --> <!-- meta http-equiv="Content-Type" content="text/html; charset=utf-8" --> <!-- meta name="viewport" content="width=device-width, initial-scale=1.0" --> <meta name="description" content="FIDO-HISTORY-PROJECT 3rd Generation - The ultimative weekly updated Fidonet Nodelist, Pointlist, Fidonews Archive from 1984 until today"> <meta name="Author" content="Public | Ulrich Schroeter, Kees van Eeten"> <META HTTP-EQUIV="imagetoolbar" CONTENT="no"> <meta name="content-language" content="EN"> <meta name="KeyWords" content="Fidonet,Fido,Fido-History-Project,Ambrosia,Archiv,1984,2012,Nodelist,Pointlist,Fidonews"> <?php if (file_exists('socialshareprivacy.inc')) { include 'socialshareprivacy.inc'; } else { if (file_exists('../socialshareprivacy.inc')) { include '../socialshareprivacy.inc'; } } if (file_exists('../ambrosia.css')) { ?> <link rel="stylesheet" href="/ambrosia.css" type="text/css"> <?php } ?> <link rel="stylesheet" href="fhp2.css" type="text/css"> <!--[if IE 5]> <link rel="stylesheet" href="iefhp2.css" type="text/css"> <![endif]--> </HEAD> <!-- BODY bgcolor='#104375' text='#FFFFFF' leftmargin='0' topmargin='0' marginheight='0' marginwidth='0' --> <BODY class="fhp2"> <?php include '/ambrosia60RDhead.inc'; ?> <div class="fhp2"> <?php if (file_exists("head2.inc")) { include 'head2.inc'; } else { if (file_exists("../head2.inc")) { include '../head2.inc'; } } ?> <div id="header" class="fhp2"> <ul> <li><a href="/fidonet/fido-history-project.htm">Documentation</a></li> <li id="current"><a href="/fidonet/nodelist.php">Archive View</a></li> <li><a href="/fidonet/nlarchive2.php">Database Search</a></li> <li><a href="/fidonet/fidonet-nodelist-archive.htm">Nodelist Archive DB Structure</a></li> <li><a href="/fidonet/fidobase.htm">FidoBase Docu</a></li> </ul> </div> <div class="fhp2b"> <!-- div id="mainout" --> <!-- table summary="" border="0" width="100%"><tr> <td style="background: #104375; color: #FFFFFF; margin: 0;" --> <?php // ================================================================================= // CONSTANTS for linking to the Fido-History-Project Archive // Edit these values to point to your Archive root //ini_set('MAX_EXECUTION_TIME', -1); //set_time_limit(5*60); see line 313 $reqpath=""; $basepath="/"; $basepath2= ""; if (file_exists("fhp3.inc")) { include 'fhp3.inc'; } else { if (file_exists("../fhp3.inc")) { include '../fhp3.inc'; } else { // fallback for Kees $reqpath="/archiv"; $basepath="/fidohist/"; $basepath2= "/home/ambrosia60"; } } // ================================================================================= // Version History $version = "6.2.15"; // 20.08.2018 Reactivate R46 segments, special version for r46 segments named by daynumber -1 // // & daynumber -2 incl. last 5 view // $version = "6.2.14"; // 17.08.2018 Reactivate R46 segments // $version = "6.2.13"; // 31.05.2018 R45PNT boss starting #152/2018 & "Last 5" view // $version = "6.2.12"; // 27.01.2018 R20PNT fixes since #100/2015 & "Last 5" view // $version = "6.2.11"; // 24.01.2018 Add R33PNT starting 2018 to "Last 5" view // $version = "6.2.10"; // 06.11.2017 Re-Add R29PNT starting 2017 to "Last 5" view // $version = "6.2.9"; // 06.11.2017 Re-Add R29PNT starting 2017 // $version = "6.2.8"; // 20.10.2017 default to "Last 5" // $version = "6.2.7"; // 29.05.2017 footer links updated // $version = "6.2.6"; // 09.01.2015 R22, R23, R48 pntlst removal, R20 Pntlst add, last5 updated // // Z2PNT #360/14, #002/15 exception // $version = "6.2.5"; // 04.10.2013 R28 PointDiff #242/2013 last published, // Last-5 view updated (removed dead lists/diffs) // $version = "6.2.4"; // 14.09.2013 Nodelist#256 exception, Zone1+Zone3 missing // $version = "6.2.3"; // 07.09.2013 Nodelist#249 exception, Zone3 missing // $version = "6.2.2"; // 30.08.2013 CSS update // $version = "6.2.1"; // 16.08.2013 R31pnt exceptions #221, #228 // $version = "6.2.0"; // 07.08.2013 CSS improvements, switch to UTF-8 display // $version = "6.1.1"; // 18.05.2013 switch host from ambrosia60.dnsalias.net to ambrosia60.dtdns.net // $version = "6.1.0"; // 24.12.2012 SEO enhancement, link alt + title tags // $version = "6.0.3"; // 16.11.2012 Z2PNT #349 prob // $version = "6.0.2"; // 19.11.2012 Z2PNT #237, #314, #321 probs // $version = "6.0.1"; // 03.11.2012 CSS and code tables design corrections // $version = "6.0.0"; // 21.10.2012 CSS re-design, moved styles to fhp2.css and iefhp2.css // // some minor design changes, new update on fhp2.css // $version = "5.8.4"; // 20.08.2012 FidoNews # correction in last 5 weeks view // $version = "5.8.3"; // 18.08.2012 Nodelist #216/2012 exception, missing zones 1,3,4 // $version = "5.8.2"; // 03.10.2011 code cleanups div + center // $version = "5.8.1"; // 28.08.2011 major code cleanups / using css div instead of tables // // using flush() and php.ini output_buffering = Off // // read http://php.net/manual/en/function.flush.php // // auto block output if a block build is finished // $version = "5.7.3"; // 22.08.2011 minor code cleanups // $version = "5.7.2"; // 21.08.2011 Nodelist #217/#224 fixes // $version = "5.7.1"; // 16.08.2011 Nodelist #161/#168 fixes // // R23pnt fixes 147-210/11, R31pnt #203,#210/11 // $version = "5.7.0"; // 08.08.2011 make nodelist.php php 5.3 compatible // $version = "5.6.13"; // 29.05.2011 Exceptions: R22PNT #133/11, // R23pnt 042/11 - 140/11 fixed // R34pnt #042, #049, #105 and #112/11 missing // R48pnt #063/11 missing // R50PNT_D updates // $version = "5.6.12"; // 20.12.2010 R50PNT_D + R23PNT updates // $version = "5.6.11"; // 22.11.2010 added R50PNT diffs, exceptions: R31PNT exception 316/10, 323/10 // // R23PNT exceptions 274-309/10 // $version = "5.6.10"; // 10.10.2010 cont. R23- and R50PNT exceptions, R31PNT exception 267/10 // $version = "5.6.09"; // 23.09.2010 cont. R50PNT exceptions // $version = "5.6.08"; // 23.08.2010 Nodelist #218/10, cont. R23PNT and R50PNT exceptions, // // limited last R46pnt #177/2009, Z2PNT #218/10 exception // $version = "5.6.07"; // 09.07.2010 cont. R22PNT, R23PNT and R50PNT exceptions // $version = "5.6.06"; // 08.06.2010 cont. R50PNT and R23PNT exceptions // $version = "5.6.05"; // 16.05.2010 R50PNT exceptions #099/10 - #134/10 // $version = "5.6.04"; // 08.04.2010 R50PNT exceptions #092/10 - #099/10, R23PNT #001-106 // $version = "5.6.03"; // 08.04.2010 R50PNT exceptions #043/10 - #092/10 // $version = "5.6.02"; // 09.01.2010 R50PNT exceptions #345/09 - #043/10 // $version = "5.6.01"; // 04.01.2010 Day# 001 prob non leap year on 5 days list // $version = "5.5.20"; // 17.12.2009 NODEDIFF.338/09 late distribution // // R22PNT, R23PNT, R50PNT repairs // $version = "5.5.19"; // 23.11.2009 R22PNT #303 missing, #303 repair // // R23PNT List #296/09 - #310/09 // // and Diffs #296/09 - #317/09 missing // // R50PNT Diff #310-#324 missing, repaired // $version = "5.5.18"; // 02.11.2009 R50PNT #296 missing, #303 repair // $version = "5.5.17"; // 19.10.2009 R22PNT #282 missing // // Z2PNT.Z37 wrong archive name with #289 // // content, also Z2PNT_D.Z37, corrected Z37 // // and Z89, also R50PNT_D recovers/re-diffs // // added 4th tab fidobase project // // r23pnt #261 - #289 repair / recovery // $version = "5.5.16"; // 26.09.2009 Nodelist #268 missing Zone,2, line // // R23PNT #004/08 - #200/08 repairs // $version = "5.5.15"; // 23.09.2009 R50PNT #247, #254 missing, // // continuous R50PNT_D missing exception // // R23PNT #326/08 - #261/09 repairs // $version = "5.5.14"; // 18.08.2009 continuous R50PNT_D missing exception // // and missing R22PNT #212 // $version = "5.5.13"; // 03.08.2009 continuous R50PNT_D missing exception // $version = "5.5.12"; // 17.07.2009 R50PNT #184, #191, #198/09 archive exception // // (incl. also #284/08, #291/08, #298/08) // $version = "5.5.11"; // 07.07.2009 R50PNT #184/09 archive exception (incl. also #284/08) // $version = "5.5.10"; // 08.05.2009 continuous R50PNT missing crc exception // $version = "5.5.09"; // 24.04.2009 R50PNT.114 exception // $version = "5.5.08"; // 12.04.2009 R50PNT.107 exception // $version = "5.5.07"; // 12.04.2009 R50PNT.093 and .100 exception // $version = "5.5.06"; // 17.03.2009 fixed filedownload link in 'last 5 weeks' view // $version = "5.5.05"; // 16.03.2009 some more fixes about lower and uppercase filesnames, lowercase dirs // $version = "5.5.04"; // 16.03.2009 allows lower and uppercase filesnames, lowercase dirs // // also works with last 5 weeks view // $version = "5.5.03"; // 16.03.2009 allows lower and uppercase filesnames, lowercase dirs // $version = "5.5.02"; // 09.03.2009 R50PNT #058 exception // $version = "5.5.01"; // 23.01.2009 added all lists last 5 weeks view // $version = "5.4.05"; // 22.01.2009 added tabbed navigation to the FHP // $version = "5.4.04"; // 21.01.2009 R45POINT exceptions '07 and '08 // $version = "5.4.03"; // 19.01.2009 R50PNT exceptions, html header modifications // $version = "5.4.02"; // 14.01.2009 R50PNT #184/04 exception, modified exceptions system // $version = "5.4.01"; // 14.01.2009 using Include file for site deployment // $version = "5.3.05"; // 12.01.2009 R46PNT exception daynumber #248/03 - #255/03, #262-#360/03, // #002 - #.../04, new R45. R46, R50, Z2 pointlists and diffs // add fnews 2007 week 53 exception // $version = "5.3.04"; // 09.01.2009 R50PNT exception daynumber #361/08, #002/09, #009/09 // $version = "5.3.03"; // 01.01.2009 R50PNT exception daynumber #002 (#361) // $version = "5.3.02"; // 26.12.2008 R50PNT exception daynumber #361, started R46PNT inclusion // $version = "5.3.01"; // 11.12.2008 Make the script unix compatible, some path corrections // $version = "5.2.05"; // 5.12.2008 R50PNT.333 missing, this is a repair compile from #333 and #340 // R24PNT.333 and Z2PNT.333 changed format to FTS-5000 aware // $version = "5.2.04"; // 26.11.2008 R31PNT 2008 exceptions // $version = "5.2.03"; // 14.11.2008 R50PNT.312 missing, this is a repair compile from #305 and #319 // $version = "5.2.02"; // 10.10.2008 R50PNT + R50PNT_D crc missmatched, Z2PNT_D #284/08 distributed in full // $version = "5.2.01"; // 06.10.2008 re-add R50 Boss Pointlist segments // $version = "5.1.14"; // 12.09.2008 NDL exception: 235-249/08, late distribution // $version = "5.1.13"; // 23.07.2008 NDL exception: 193/200 08, late distribution // $version = "5.1.12"; // 04.06.2008 NDL exception found: 127/1999, missing Host,2:244 // $version = "5.1.11"; // 03.05.2008 Website inclusion w/o framesets // $version = "5.1.10"; // 02.05.2008 R31PNT.123 exception 123/08 // $version = "5.1.09"; // 21.02.2008 added Nodelist exception 253/88 // $version = "5.1.08"; // 20.01.2008 Configuration moved to the beginning of the // // Body section // $version = "5.1.07"; // 19.01.2008 Checked links list, converted to relative links // // for portability of the project website // $version = "5.1.06"; // 18.01.2008 Z2PNT: added R22 Poss list // $version = "5.1.05"; // 05.01.2008 Z2PNT: Poss or (not and) Boss format display // $version = "5.1.04"; // 02.01.2008 R23 pointlist(s) re-added // $version = "5.1.03"; // 28.12.2007 added R48 pointlist(s) // $version = "5.1.02"; // 24.12.2007 Z2PNT exceptions, year index correction // $version = "5.1.01"; // 23.12.2007 new Z2PNT boss version // // modified exception A link color on hover // $version = "5.0.02"; // 26.6.2007 R46 pointlists 2004, added R45 pointlists 2004,2005 // // Z2PNT, Z2PNT_D 2002 and 2003 // // from source Oleg Tews, add credits Oleg Tews // $version = "5.0.01"; // 21.5.2007 Z2PNT and R50PNT #138 exception added // $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 $today = getdate(); $actyear = $today['year']; $lastyear = $actyear; $phpver = phpversion(); if ($phpver < '4.1.0') { $_POST = $HTTP_POST_VARS; } if (isset($_POST['code_criterion'])) { $code_criterion=intval($_POST['code_criterion']); } else { // default ; $code_criterion=0; $code_criterion=4; } if (isset($_POST['zone_criterion'])) { $zone_criterion=intval($_POST['zone_criterion']); } else { $zone_criterion=0; } if (isset($_POST['Clear_Fields'])) { $Clear_Fields=$_POST['Clear_Fields']; } else { $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==4) { $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"]; // set_time_limit(1200); ?> <center> <FONT class="header">- FIDO-HISTORY PROJECT: Archive -</FONT><br> <!-- Table main 1.1 begin --> <table summary="FHP Header" class="fhp2b"> <tr class="fhp2b"><td class="fhp2b"><center><FONT class="heading">(3rd Generation, 1984-<?php echo $actyear; ?> ff.)</FONT></center></td></tr> <tr class="fhp2b"><td class="fhp2b"><FONT class="heading">* NodeList's / NodeDiff's</FONT></td></tr> <tr class="fhp2b"><td class="fhp2b"><FONT class="heading">* PointList's / PointDiff's</FONT></td></tr> <tr class="fhp2b"><td class="fhp2b"><FONT class="heading">* Fidonews</FONT></td></tr> </table> <!-- Table main 1.1 end --> <br> More infos about the project you will find on the<br> <a class="nl" href="fido-history-project.htm">Fido-History-Project 3rd Generation Project Site</a><br> <br> <!-- /div --> <div class="fhp2mainout"> <center> <!-- DIV ALIGN="CENTER" --> <FORM class="fhp2mainout" METHOD="POST" ACTION="<?php echo $oscript; ?>"> <!-- TABLE summary="" BGCOLOR="#FFCCCC" CELLPADDING="3" BORDER="1" CAPTION="Search Criteria" --> <!-- Table main 2.1 begin --> <!-- switch to background #FFCCCC --> <TABLE summary="FHP Search Criteria" class="fhp2c"> <!-- ROW 1 --> <TR class="fhp2d"> <TD class="fhp2cCenter"><IMG SRC="images/fido_dog.gif" HEIGHT="44" BORDER="0" alt="Fido dog" class="fhp2d"></TD> <TD class="fhp2cTopLeft"> <!-- Table main 2.2 begin --> <TABLE summary="FHP Search Criteria : Top" class="fhp2c"> <TR class="fhp2d"> <TD class="fhp2d"> <FIELDSET class="fhp2cS"><LEGEND>List(s)</LEGEND> <!-- Table main 2.3 begin --> <TABLE summary="FHP Search Criteria : Type selection" class="fhp2d"> <TR class="fhp2d"> <TD class="fhp2dTopLeft"> <?php if ($code_criterion==1) { ?> <INPUT class="fhp2d" TYPE="radio" NAME="code_criterion" VALUE="1" checked> Nodelist/Nodediff</TD> <?php } else { ?> <INPUT class="fhp2d" TYPE="radio" NAME="code_criterion" VALUE="1"> Nodelist/Nodediff</TD> <?php } ?> <?php if ($code_criterion==2) { ?> <TD class="fhp2dTopLeft"><INPUT class="fhp2d" TYPE="radio" NAME="code_criterion" VALUE="2" checked> Pointlist/Pointdiff</TD> <?php } else { ?> <TD class="fhp2dTopLeft"><INPUT class="fhp2d" TYPE="radio" NAME="code_criterion" VALUE="2" > Pointlist/Pointdiff</TD> <?php } ?> <?php if ($code_criterion==3) { ?> <TD class="fhp2dTopLeft"><INPUT class="fhp2d" TYPE="radio" NAME="code_criterion" VALUE="3" checked> Fidonews</TD> <?php } else { ?> <TD class="fhp2dTopLeft"><INPUT class="fhp2d" TYPE="radio" NAME="code_criterion" VALUE="3" > Fidonews</TD> <?php } ?> <?php if ($code_criterion==4) { ?> <TD class="fhp2dTopLeft"><INPUT class="fhp2d" TYPE="radio" NAME="code_criterion" VALUE="4" checked> Last 5</TD> <?php } else { ?> <TD class="fhp2dTopLeft"><INPUT class="fhp2d" TYPE="radio" NAME="code_criterion" VALUE="4" > Last 5</TD> <?php } ?> </TR> </TABLE> </FIELDSET></TD> <!-- Table main 2.3 end --> </TR> </TABLE></TD> <!-- Table main 2.2 end --> </TR> <!-- ROW 2 --> <TR class="fhp2d"> <TD class="fhp2cCenter"> <!-- Table main 2.2.2 begin --> <!-- BGCOLOR="#FFcccc" CELLPADDING="1" CELLSPACING="0" --> <TABLE summary="FHP Search Criteria : Process" class="fhp2d"> <TR class="fhp2d"><TD class="fhp2d"><INPUT class="fhp2f" TYPE="SUBMIT" NAME="Submit_button" VALUE="Select"></TD></TR> <TR class="fhp2d"><TD class="fhp2d"><INPUT class="fhp2f" TYPE="SUBMIT" NAME="Clear_Fields" VALUE="Clear"></TD></TR></TABLE> <!-- Table main 2.2.2 end --> </TD> <TD class="fhp2c"> <FIELDSET class="fhp2cS"><LEGEND>Pointlist Selection</LEGEND> <!-- Table main 2.2.3 begin --> <TABLE summary="FHP Search Criteria : lists individual selection" class="fhp2d"> <TR class="fhp2d"> <TD class="fhp2d"> <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, Boss]</option>\n"; echo "<option value=\"25\""; if ($zone_criterion==25) { echo " selected"; } echo ">Region 20 (Scandinavian countries) [Boss]</option>\n"; echo "<option value=\"55\""; if ($zone_criterion==55) { echo " selected"; } echo ">Region 22 (Finland) [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=\"65\""; if ($zone_criterion==65) { echo " selected"; } echo ">Region 33 (Italy) [Boss]</option>\n"; echo "<option value=\"70\""; if ($zone_criterion==70) { echo " selected"; } echo ">Region 34 (Spain) [Boss, Fake]</option>\n"; echo "<option value=\"75\""; if ($zone_criterion==75) { echo " selected"; } echo ">Region 45 (Belarus) [Poss]</option>\n"; echo "<option value=\"78\""; if ($zone_criterion==78) { echo " selected"; } echo ">Region 45 (Belarus) [Boss]</option>\n"; echo "<option value=\"80\""; if ($zone_criterion==80) { echo " selected"; } echo ">Region 46 (Ukraine + Moldova) [Poss]</option>\n"; echo "<option value=\"85\""; if ($zone_criterion==85) { echo " selected"; } echo ">Region 48 (Poland) [Boss]</option>\n"; echo "<option value=\"90\""; if ($zone_criterion==90) { echo " selected"; } echo ">Region 50 (Russia) [Poss, Boss]</option>\n"; ?> </select> </TD> </TR> </TABLE> </FIELDSET> <!-- Table main 2.2.3 end --> </TD> </TR> </TABLE></FORM><!-- /DIV --> <!-- Table main 2.1 end --> <P ALIGN="CENTER"><FONT SIZE="1" color="#ffffff">Form based upon: <a class="ext" 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 class="nl" 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="ext" target="_blank" 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-<?php echo $actyear; ?>, (v<?php echo $version ?>)</FONT></P> </center> </div> <?php // :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: // ::::: // ::::: Section Header End // ::::: // :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: // subfunction(s) // indaterange($testdate,filemtime($basepath2.$lfnam1)) function indaterange($testd0,$filet) { // $datum=mktime(0,0,0,date("m",$datum),date("d",$datum)+7,date("Y",$datum)); $td2 = mktime(0,0,0,date("m",$testd0),date("d",$testd0),date("Y",$testd0)); $td1 = mktime(0,0,0,date("m",$testd0),date("d",$testd0)-7,date("Y",$testd0)); // date("F d Y H:i:s.",filemtime("test.txt")); // February 14 2006 13:22:46. $tdt = mktime(0,0,0,date("m",$filet),date("d",$filet),date("Y",$filet)); if (($tdt >= $td1) && ($tdt <= $td2)) { return True; } return False; } // 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 (isset($b["year"][$pos])) { if ($a[1]!=$b["year"][$pos]) { $stop = True; } } else { $stop = True; } } } } return $rval; } // NODELIST, POINTLISTS, FIDONEWS EXCEPTIONS -- Begin // sort by year // FIDONEWS : (($year==1985) $ei = 0; $exception["type"][$ei]="3"; $exception["year"][$ei]=1985; $exception["days"][$ei]="326,333,340,347,354,361"; // "47,48,49,50,51,52"; $exception["note"][$ei]= " <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) $ei++; $exception["type"][$ei]="3"; $exception["year"][$ei]=1987; $exception["days"][$ei]="338,345,352,359"; $exception["note"][$ei]= " <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) $ei++; $exception["type"][$ei]="1,2"; $exception["year"][$ei]=1987; $exception["days"][$ei]="219"; $exception["note"][$ei]= " <b>Info 1987:</b><br />The first Nodediff was 1987/219 per the author of MakeNl."; // NODELIST : (($year==1988) && ($day==253) $ei++; $exception["type"][$ei]="1,2"; $exception["year"][$ei]=1988; $exception["days"][$ei]="253"; $exception["note"][$ei]= " <b>Info 253/1988:</b><br />CRC mismatched."; // R24 pointlist : ((($slct==33) || ($slct==34)) && (($year==1992) && ($day==157)) $ei++; $exception["type"][$ei]="33,34"; $exception["year"][$ei]=1992; $exception["days"][$ei]="157"; $exception["note"][$ei]= " <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 $ei++; $exception["type"][$ei]="31,32,33,34"; $exception["year"][$ei]=1993; $exception["days"][$ei]="176"; $exception["note"][$ei]= " <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) ) || $ei++; $exception["type"][$ei]="1,2"; $exception["year"][$ei]=1993; $exception["days"][$ei]="176"; $exception["note"][$ei]= " <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) $ei++; $exception["type"][$ei]="3"; $exception["year"][$ei]=1996; $exception["days"][$ei]="159,166,173,180"; // "23,24,25,26"; $exception["note"][$ei]= " <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 $ei++; $exception["type"][$ei]="1,2"; $exception["year"][$ei]=1997; $exception["days"][$ei]="122"; $exception["note"][$ei]= " <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."; $ei++; $exception["type"][$ei]="1,2"; $exception["year"][$ei]=1999; $exception["days"][$ei]="127"; $exception["note"][$ei]= " <b>Info 127/1999:</b><br />Host 2:244 missing, results Net 2:244 Nodes moved into Net 2:2411"; // FIDONEWS : (($year==2000) $ei++; $exception["type"][$ei]="3"; $exception["year"][$ei]=2000; $exception["days"][$ei]="14"; $exception["note"][$ei]= " <b>Info 2000:</b><br />FNEWS(17)#02 has a naming error: FNEWS1802<br />but publishing date is correct.<br />Renamed to FNEWS1702.NWS."; $ei++; $exception["type"][$ei]="92"; $exception["year"][$ei]=2000; $exception["days"][$ei]="112"; $exception["note"][$ei]= " <b>Info Diff #112/00:</b><br />R50PNT_D.112 recovered from informations of R50PNT_D.119 and Z2PNT_D.112."; // R24 pointlist : ((($slct==31) || ($slct==32)) && (($year==2001) && ($day==173)) ) $ei++; $exception["type"][$ei]="31,32"; $exception["year"][$ei]=2001; $exception["days"][$ei]="173"; $exception["note"][$ei]= " <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."; $ei++; $exception["type"][$ei]="81,82"; $exception["year"][$ei]=2003; $exception["days"][$ei]="248,255"; $exception["note"][$ei]= " <b>Info Diff 248/03, 255/03:</b><br />PNT46REG.248 distribution skipped.<br />This is a Diff compile by Z2PK from repaired lists #241/03 upto #255/03 and recovery of full lists #248 and #255/03 for continuous diff compile."; $ei++; $exception["type"][$ei]="81"; $exception["year"][$ei]=2003; $exception["days"][$ei]="262,269,276,283,290,297,304,311,318,325,332,339,346,353,360"; $exception["note"][$ei]= " <b>Info PNT46REG 262/03 - 360/03:</b><br />recovered lists #255 - #360."; $ei++; $exception["type"][$ei]="81"; $exception["year"][$ei]=2004; $exception["days"][$ei]="002,009,016,023,030"; $exception["note"][$ei]= " <b>Info PNT46REG 002/04 - 030/04:</b><br />recovered lists #002 - #030/04."; $ei++; $exception["type"][$ei]="91,92"; $exception["year"][$ei]=2004; $exception["days"][$ei]="184,191"; $exception["note"][$ei]= " <b>Info List/Diff #184/04, #191/04:</b><br />R50PNT.184 has as header info day# 191.<br />Diff #191 doesn't compile.<br />Just rename'd R50PNT.184 to R50PNT.191"; $ei++; $exception["type"][$ei]="91,92"; $exception["year"][$ei]=2004; $exception["days"][$ei]="331,338,345,352,359,366"; $exception["note"][$ei]= " <b>Info List/Diff #331/04 - #366/04:</b><br />R50PNT #331 - #366 has been recovered from diffs #345-#366.<br />Diff #331 and #338 just copies of #345 with different headers."; $ei++; $exception["type"][$ei]="91,92"; $exception["year"][$ei]=2005; $exception["days"][$ei]="7,14"; $exception["note"][$ei]= " <b>Info List/Diff #007/05, #014/05:</b><br />R50PNT.007 and R50PNT.014 have a wrong year (2004) in header information."; // NODELIST : 2005 35 // 035/2005 ? zone 4 problem with 0Ah within lines // results in compile problem by some compilers $ei++; $exception["type"][$ei]="1,2"; $exception["year"][$ei]=2005; $exception["days"][$ei]="35"; $exception["note"][$ei]= " <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 $ei++; $exception["type"][$ei]="1,2"; $exception["year"][$ei]=2005; $exception["days"][$ei]="42"; $exception["note"][$ei]= " <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 $ei++; $exception["type"][$ei]="1,2"; $exception["year"][$ei]=2006; $exception["days"][$ei]="314"; $exception["note"][$ei]= " <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 $ei++; $exception["type"][$ei]="1,2"; $exception["year"][$ei]=2006; $exception["days"][$ei]="321,328,335,342"; $exception["note"][$ei]= " <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 $ei++; $exception["type"][$ei]="1,2"; $exception["year"][$ei]=2006; $exception["days"][$ei]="286"; $exception["note"][$ei]= " <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 $ei++; $exception["type"][$ei]="1,2"; $exception["year"][$ei]=2007; $exception["days"][$ei]="75"; $exception["note"][$ei]= " <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."; // Z2PNT : ($slct==22) // ($year==2007) && ($day>=096)) // 096-138 Diff Patched /2007 no official distribution $ei++; $exception["type"][$ei]="21,22"; $exception["year"][$ei]=2007; $exception["days"][$ei]="96,103,110,117,124,131,138"; $exception["note"][$ei]= " <b>Info:</b><br />Z2PNT exception #138:<br />Between Z2PNT.089 and Z2PNT.138 there was no official Diff distribution.<br />Z2PNT.138 was distributed in full.<br />The missing Diff patches and lists were build by RPK24 to handle an uninterupted Z2PNT and Z2PNT_D distribution."; // R50PNT : ($slct==22) // ($year==2007) && ($day>=096)) // 096-138 Diff Patched /2007 no official distribution $ei++; $exception["type"][$ei]="91"; $exception["year"][$ei]=2007; $exception["days"][$ei]="96,103,110,124,131"; $exception["note"][$ei]= " <b>Info:</b><br />R50PNT exceptions:<br />Between R50PNT.089 and R50PNT.138 there was no official Diff and only two full lists (#117 and #138) distribution.<br />R50PNT.117 and R50PNT.138 were distributed in full.<br />The missing Diff patches and lists were build by RPK24 to handle an uninterupted R50PNT and R50PNT_D distribution."; // R50PNT_D : ($slct==22) // ($year==2007) && ($day>=096)) // 096-138 Diff Patched /2007 no official distribution $ei++; $exception["type"][$ei]="91"; $exception["year"][$ei]=2007; $exception["days"][$ei]="138"; $exception["note"][$ei]= " <b>Info:</b><br />R50PNT exception:<br />After R50PNT.138 there was no official R50PNT distribution as Alexey Antonyuk resigned as Z2PK and RPK."; $ei++; $exception["type"][$ei]="92"; $exception["year"][$ei]=2007; $exception["days"][$ei]="96,103,110,117,124,131,138"; $exception["note"][$ei]= " <b>Info:</b><br />R50PNT exceptions:<br />Between R50PNT.089 and R50PNT.138 there was no official Diff and only two full lists (#117 and #138) distribution.<br />R50PNT.117 and R50PNT.138 were distributed in full.<br />The missing Diff patches and lists were build by RPK24 to handle an uninterupted R50PNT and R50PNT_D distribution.<br /><br />There was no R50PNT distribution after #138 as Alexey Antonyuk resigned as Z2PK."; // Z2PNT : ($slct==22) // ($year==2007) && ($day>=096)) // 096-138 Diff Patched /2007 no official distribution $ei++; $exception["type"][$ei]="21,22"; $exception["year"][$ei]=2007; $exception["days"][$ei]="145,152,159,166,173,180,187,194,201,208,215,222,229,236,243,250,257,264,271,278,285,292,299,306,313,320,327,334,341,348"; $exception["note"][$ei]= " <b>Info:</b><br />Z2PNT exception 2007:<br />From Z2PNT.145 to Z2PNT.348 there was no official Z2PNT distribution.<br />Alexey Antonyuk resigned as Z2PK.<br />The next official distribution was #355.<br />"; $ei++; $exception["type"][$ei]="26,27"; $exception["year"][$ei]=2007; $exception["days"][$ei]="145,152,159,166,173,180,187,194,201,208,215,222,229,236,243,250,257,264,271,278,285,292,299,306,313,320,327,334,341,348"; $exception["note"][$ei]= " <b>Info:</b><br />Z2PNT exception 2007:<br />From Z2PNT.145 to Z2PNT.348 there was no official Z2PNT distribution.<br />Alexey Antonyuk resigned as Z2PK.<br />The Boss format files in the archive are files from an inofficial late compile of some actual regional segments from the Fido-History-Archive end of Dec '07.<br />There was no Diff file #145 caused by the format change from Poss to Boss.<br />The first official distribution was #355.<br />"; $ei++; $exception["type"][$ei]="76"; $exception["year"][$ei]=2007; $exception["days"][$ei]="313"; $exception["note"][$ei]= " <b>Info #313/07:</b><br />recovered R45POINT.313 from #306 and #320."; $ei++; $exception["type"][$ei]="26,27"; $exception["year"][$ei]=2007; $exception["days"][$ei]="355"; $exception["note"][$ei]= " <b>Info:</b><br />Z2PNT exception 2007:<br />Z2PNT.355 reinstalled official Z2PNT distribution.<br />#355 distributed as list only.<br />No Diff were released.<br />Ulrich Schroeter steps in Z2PK.<br />"; $ei++; $exception["type"][$ei]="76"; $exception["year"][$ei]=2008; $exception["days"][$ei]="109"; $exception["note"][$ei]= " <b>Info #109/08:</b><br />recovered R45POINT.109 from #102 and #116."; $ei++; $exception["type"][$ei]="51,52,53,54"; $exception["year"][$ei]=2008; $exception["days"][$ei]="123"; $exception["note"][$ei]= " <b>Info:</b><br />R31PNT exception 2008:<br />Point4d.123 content distributed as Point4d.a16 (overwrites #116)<br />Point4d.a16 renamed to Point4d.a23."; $ei++; $exception["type"][$ei]="1,2"; $exception["year"][$ei]=2008; $exception["days"][$ei]="193,200"; $exception["note"][$ei]= " <b>Info 193/08, 200/08:</b><br />Late distribution, all changes of #193 and #200 are in #193, #200 for sync only."; $ei++; $exception["type"][$ei]="1,2"; $exception["year"][$ei]=2008; $exception["days"][$ei]="235,242,249"; $exception["note"][$ei]= " <b>Info 235 - 249/08:</b><br />Late distribution."; $ei++; $exception["type"][$ei]="93,94"; $exception["year"][$ei]=2008; $exception["days"][$ei]="277"; $exception["note"][$ei]= " <b>Info 277/08:</b><br />First distribution day number #274 as Boss format under new RPK Evgeny Vetrov<br />not included in Z2PNT.277 yet.<br />Segment contains an addtl. Ctrl+Z that prevents inclusion of full segment."; $ei++; $exception["type"][$ei]="26,27"; $exception["year"][$ei]=2008; $exception["days"][$ei]="284"; $exception["note"][$ei]= " <b>Info 284/08:</b><br />Starting Z2PNT.284 added R50PNT distribution.<br />Included a repaired R50PNT segment (as of R50PNT.284 Ctrl+Z and CRC problems).<br />Z2PNT_D.284 distributed in full as a side effect of R50PNT inclusion (too many differences).<br />Diff#284 Download version is a late compiled Diff."; $ei++; $exception["type"][$ei]="93,94"; $exception["year"][$ei]=2008; $exception["days"][$ei]="284"; $exception["note"][$ei]= " <b>Info 284/08:</b><br />R50PNT and R50PNT_D #284 crc errors<br />Segment contains an addtl. Ctrl+Z that prevents inclusion and/or compile of full list.<br />There is also an official #283 distributed."; $ei++; $exception["type"][$ei]="94"; $exception["year"][$ei]=2008; $exception["days"][$ei]="291"; $exception["note"][$ei]= " <b>Info Diff 291/08:</b><br />R50PNT.284 and R50PNT_D.291 doesnt match. <br />Diff contains a different first line as the official #284 full list."; $ei++; $exception["type"][$ei]="93,94"; $exception["year"][$ei]=2008; $exception["days"][$ei]="312"; $exception["note"][$ei]= " <b>Info List/Diff 312/08:</b><br />No official R50PNT.312 distribution.<br />This is a repair compile from<br />#305 and #319 that works with the<br />#319 Diff for editnl compilers."; $ei++; $exception["type"][$ei]="51"; $exception["year"][$ei]=2008; $exception["days"][$ei]="186"; $exception["note"][$ei]= " <b>Info R31 Pointlist:</b><br />#186 Boss format list has been recovered."; $ei++; $exception["type"][$ei]="51,53"; $exception["year"][$ei]=2008; $exception["days"][$ei]="207"; $exception["note"][$ei]= " <b>Info R31 Pointlist:</b><br />#207 Point and Boss format lists has been recovered."; $ei++; $exception["type"][$ei]="31,32"; $exception["year"][$ei]=2008; $exception["days"][$ei]="333"; $exception["note"][$ei]= " <b>R24PNT Info #333/08:</b><br />Changed Boss format starting R24PNT.333 to be FTS-5000 aware.<br />Removed mandatory leading commas."; $ei++; $exception["type"][$ei]="26,27"; $exception["year"][$ei]=2008; $exception["days"][$ei]="333"; $exception["note"][$ei]= " <b>Z2PNT Info 333/08:</b><br />Changed Boss format starting Z2PNT.333 to be FTS-5000 aware.<br />Removed mandatory leading commas."; $ei++; $exception["type"][$ei]="93,94"; $exception["year"][$ei]=2008; $exception["days"][$ei]="333,340"; $exception["note"][$ei]= " <b>Info List/Diff 333/08:</b><br />No official R50PNT.333 distribution.<br />This is a repair compile from<br />the #326 and #340 full lists that works with the<br />#333 Diff for editnl compilers.<br />#340 is also a fixed Diff version for distribution."; $ei++; $exception["type"][$ei]="93,94"; $exception["year"][$ei]=2008; $exception["days"][$ei]="361"; $exception["note"][$ei]= " <b>Info List/Diff 361/08:</b><br />R50PNT #361 distributed as R50PNT.2<br />with a wrong daynumber and a wrong header<br />line. This is a repair compile."; $ei++; $exception["type"][$ei]="26,27"; $exception["year"][$ei]=2008; $exception["days"][$ei]="361"; $exception["note"][$ei]= " <b>Info 361/08:</b><br />Starting Z2PNT.361 added R46PNT distribution."; $ei++; $exception["type"][$ei]="61"; $exception["year"][$ei]=2008; $exception["days"][$ei]="004,011,018,025,032,039,046,053,060,067,074,081,088,095,102,109,116,123,130,137,144,151,158,165,172,179,186,193,200"; $exception["note"][$ei]= " <b>Info List #004/08 - #200/08:</b><br />Some R23PNT missing<br />and wrong line termination problems<br />Fixed with Diffing #004/08 - #200/08<br />CRC recalculated."; $ei++; $exception["type"][$ei]="62"; $exception["year"][$ei]=2008; $exception["days"][$ei]="011,018,025,032,039,046,053,060,067,074,081,088,095,102,109,116,123,130,137,144,151,158,165,172,179,186,193,200"; $exception["note"][$ei]= " <b>Info List #004/08 - #200/08:</b><br />Some R23PNT missing<br />and wrong line termination problems<br />Fixed with Diffing #004/08 - #200/08<br />CRC recalculated."; $ei++; $exception["type"][$ei]="61"; $exception["year"][$ei]=2008; $exception["days"][$ei]="207,214,221,228,235,242,249,256,263,270,277,284,291,298,305,312,319,326,333,340,347,354,361"; $exception["note"][$ei]= " <b>Info List #207/08 - #326/08 - #361/08:</b><br />R23PNT missing<br />and wrong line termination problems<br />Fixed with Diffing #207/08 - #326/08<br />and #326/08 - #226/09<br />CRC recalculated."; $ei++; $exception["type"][$ei]="62"; $exception["year"][$ei]=2008; $exception["days"][$ei]="207,214,221,228,235,242,249,256,263,270,277,284,291,298,305,312,319,326,333,340,347,354,361"; $exception["note"][$ei]= " <b>Info List #214/08 - #326/08 - #361/08:</b><br />R23PNT's missing<br />and wrong line termination problems<br />Fixed with Diffing<br />CRC recalculated."; $ei++; $exception["type"][$ei]="93,94"; $exception["year"][$ei]=2009; $exception["days"][$ei]="002"; $exception["note"][$ei]= " <b>Info List/Diff 002/09:</b><br />R50PNT.002 distributed as R50PNT.361<br />with a wrong daynumber and a wrong header<br />line. This is a repair compile."; $ei++; $exception["type"][$ei]="94"; $exception["year"][$ei]=2009; $exception["days"][$ei]="009"; $exception["note"][$ei]= " <b>Info Diff 009/09:</b><br />R50PNT.009 distributed w/o Diff.<br />This is a Diff compile by Z2PK from repaired lists #361/08 and #002/09."; $ei++; $exception["type"][$ei]="94"; $exception["year"][$ei]=2009; $exception["days"][$ei]="016,023"; $exception["note"][$ei]= " <b>Info Diff 016-023/09:</b><br />R50PNT.016 and R50PNT.023 distributed w/o Diff.<br />This is a Diff compile by Z2PK."; $ei++; $exception["type"][$ei]="94"; $exception["year"][$ei]=2009; $exception["days"][$ei]="030,037,044,079,086,156,219"; // $exception["note"][$ei]= " <b>Info Diff #030, 037 and others:</b><br />Missing R50PNT Diff.<br />Diff created by Z2PK.<br />Re-Diffing replaces<br />heavily increased DIFFs<br />build with new PLDiff 1.10-b6"; $ei++; $exception["type"][$ei]="93,94"; $exception["year"][$ei]=2009; $exception["days"][$ei]="058,065"; $exception["note"][$ei]= " <b>Info Diff 058-065/09:</b><br />R50PNT.058 distributed twice times. The first one with CRC 07722, the 2nd one is a #058 replacement with CRC 09335 to which Diff #065 relates.<br />Diff #058 archive contains both Diff versions. R50PNT.058 is the last corrected one."; $ei++; $exception["type"][$ei]="93,94"; $exception["year"][$ei]=2009; $exception["days"][$ei]="093,100"; $exception["note"][$ei]= " <b>Info List/Diff 093/09 and 100/09:</b><br />Missing R50PNT.093.<br />R50PNT.100 w/o CRC.<br />Wrong day# extension (z0).<br />This is a repair compile / diff."; $ei++; $exception["type"][$ei]="93,94"; $exception["year"][$ei]=2009; $exception["days"][$ei]="107"; $exception["note"][$ei]= " <b>Info List/Diff 107/09:</b><br />R50PNT.107 w/o CRC.<br />Wrong day# extension (z7).<br />This is a repair compile / diff."; $ei++; $exception["type"][$ei]="93,94"; $exception["year"][$ei]=2009; $exception["days"][$ei]="114,121,128"; $exception["note"][$ei]= " <b>Info List/Diff 114, 121, 128/09:</b><br />R50PNT w/o CRC.<br />Diff missing.<br />This is a repair compile / diff."; $ei++; $exception["type"][$ei]="94"; $exception["year"][$ei]=2009; $exception["days"][$ei]="135,142,149,163,170,177,184,191,198,205,212,226,233,240,247,254,261,268,275,282,289"; // ,219,226,233,240,247,254,261,268,275"; $exception["note"][$ei]= " <b>Info List/Diff #135 ff.:</b><br />Missing R50PNT Diff.<br />Diff created by Z2PK."; $ei++; $exception["type"][$ei]="93"; $exception["year"][$ei]=2009; $exception["days"][$ei]="184,191,198"; $exception["note"][$ei]= " <b>Info List #184/09, #191/09, #198/09:</b><br />R50PNT archive exception<br />Orig archive contains also segments from last year (i.e. #284/08)<br />file that confuses test script<br />that prevents Z2PNT inclusion."; $ei++; $exception["type"][$ei]="56"; $exception["year"][$ei]=2009; $exception["days"][$ei]="212"; $exception["note"][$ei]= " <b>Info List #212/09:</b><br />R22PNT #212 missing<br />compiled from #205 and #219 by Z2PK"; $ei++; $exception["type"][$ei]="93"; $exception["year"][$ei]=2009; $exception["days"][$ei]="247,254"; $exception["note"][$ei]= " <b>Info List #247/09, #254/09:</b><br />R50PNT missing<br />Repaired from generated Diff's."; $ei++; $exception["type"][$ei]="61,62"; $exception["year"][$ei]=2009; $exception["days"][$ei]="002,009,016,023,030,037,044,051,058,065,072,079,086,093,100,107,114,121,128,135,142,149,156,163,170,177,184,191,198,205,212,219,226,233,240,247,254,261"; $exception["note"][$ei]= " <b>Info List #002/09 - #261/09:</b><br />R23PNT's missing<br />and wrong line termination problems<br />Fixed with Diffing #326/08 - #261/09<br />CRC recalculated."; $ei++; $exception["type"][$ei]="1,2"; $exception["year"][$ei]=2009; $exception["days"][$ei]="268"; $exception["note"][$ei]= " <b>Info:</b><br />Zone 2 Nodelist exception:<br />Zone,2,.. line missing<br />results in Zone 2 nodes becomes Zone 0 nodes."; $ei++; $exception["type"][$ei]="56"; $exception["year"][$ei]=2009; $exception["days"][$ei]="282"; $exception["note"][$ei]= " <b>Info List #282/09:</b><br />R22PNT #282 missing<br />compiled from #275 and #289 by Z2PK"; $ei++; $exception["type"][$ei]="26,27"; $exception["year"][$ei]=2009; $exception["days"][$ei]="037,289"; $exception["note"][$ei]= " <b>Info: Z2PNT and Z2PNT_D exception #289/2009:</b><br />Z2PNT.289 tic'd as Z37.<br />That overwrites Z37 released 6.2.09<br />Repaired by Z2PK.<br />Archives Z37 contains 037 and<br />Z89 containts #289 files."; $ei++; $exception["type"][$ei]="61,62"; $exception["year"][$ei]=2009; $exception["days"][$ei]="268,275,282,289"; $exception["note"][$ei]= " <b>Info List #268/09 - #282/09<br>and Diffs #268/09 - #289/09:</b><br />R23PNT's missing<br />and wrong line termination problems<br />Fixed with Diffing #261/09 - #289/09<br />CRC recalculated."; $ei++; $exception["type"][$ei]="93"; $exception["year"][$ei]=2009; $exception["days"][$ei]="296"; $exception["note"][$ei]= " <b>Info List #296/09:</b><br />R50PNT missing<br />Repaired from generated Diff's."; $ei++; $exception["type"][$ei]="94"; $exception["year"][$ei]=2009; $exception["days"][$ei]="296,303"; $exception["note"][$ei]= " <b>Info List/Diff #296 ff.:</b><br />Missing R50PNT Diff.<br />Diff created by Z2PK."; $ei++; $exception["type"][$ei]="56"; $exception["year"][$ei]=2009; $exception["days"][$ei]="303"; $exception["note"][$ei]= " <b>Info List #303/09:</b><br />R22PNT #303 missing<br />compiled from #296 and #310 by Z2PK"; $ei++; $exception["type"][$ei]="61,62"; $exception["year"][$ei]=2009; $exception["days"][$ei]="296,303,310,317"; $exception["note"][$ei]= " <b>Info List #296/09 - #310/09<br>and Diffs #296/09 - #317/09:</b><br />R23PNT's missing<br />and wrong line termination problems<br />Fixed with Diffing #289/09 - #317/09<br />CRC recalculated."; $ei++; $exception["type"][$ei]="94"; $exception["year"][$ei]=2009; $exception["days"][$ei]="310,317"; $exception["note"][$ei]= " <b>Info List/Diff #310 ff.:</b><br />Missing R50PNT Diff.<br />Diff created by Z2PK."; $ei++; $exception["type"][$ei]="56"; $exception["year"][$ei]=2009; $exception["days"][$ei]="324"; $exception["note"][$ei]= " <b>Info List #324/09:</b><br />R22PNT #324 missing<br />compiled from #317 and #331 by Z2PK"; $ei++; $exception["type"][$ei]="61,62"; $exception["year"][$ei]=2009; $exception["days"][$ei]="324,331"; $exception["note"][$ei]= " <b>Info List #324/09 - #331/09</b><br />R23PNT's missing<br />and wrong line termination problems<br />Fixed with Diffing #317/09 - #331/09<br />CRC recalculated."; $ei++; $exception["type"][$ei]="1,2"; $exception["year"][$ei]=2009; $exception["days"][$ei]="338"; $exception["note"][$ei]= " <b>Info #338/2009:</b><br />Zone 2 Nodediff/Nodelist exception:<br />late distribution."; $ei++; $exception["type"][$ei]="94"; $exception["year"][$ei]=2009; $exception["days"][$ei]="324,331,338,345,352,359"; $exception["note"][$ei]= " <b>Info List/Diff #324 ff.:</b><br />Missing R50PNT Diff.<br />Diff created by Z2PK."; $ei++; $exception["type"][$ei]="61,62"; $exception["year"][$ei]=2009; $exception["days"][$ei]="345,352,359"; $exception["note"][$ei]= " <b>Info List #345/09 ff.</b><br />R23PNT's missing<br />and wrong line termination problems<br />Fixed with Diffing, CRC recalculated."; $ei++; $exception["type"][$ei]="93,94"; $exception["year"][$ei]=2010; $exception["days"][$ei]="001,029,036"; $exception["note"][$ei]= " <b>Info List/Diff #001:</b><br />Missing R50PNT List and Diff.<br />List rebuild and Diff created by Z2PK."; $ei++; $exception["type"][$ei]="94"; $exception["year"][$ei]=2010; $exception["days"][$ei]="008,015,022,043"; $exception["note"][$ei]= " <b>Info List/Diff #008 ff.:</b><br />Missing R50PNT Diff.<br />Diff created by Z2PK."; $ei++; $exception["type"][$ei]="61,62"; $exception["year"][$ei]=2010; $exception["days"][$ei]="001,008,015,022,029,036,043,050,057,064,071,078,085,092,099,106"; $exception["note"][$ei]= " <b>Info List #001/10 - #106/10.</b><br />R23PNT's missing<br />and wrong line termination problems<br />Fixed with Diffing, CRC recalculated."; $ei++; $exception["type"][$ei]="93,94"; $exception["year"][$ei]=2010; $exception["days"][$ei]="050,057,064,071,078"; $exception["note"][$ei]= " <b>Info List/Diff #050 ff.:</b><br />Missing R50PNT List and Diff.<br />List rebuild and Diff created by Z2PK."; $ei++; $exception["type"][$ei]="94"; $exception["year"][$ei]=2010; $exception["days"][$ei]="085"; $exception["note"][$ei]= " <b>Info Diff #085 ff.:</b><br />Missing R50PNT Diff.<br />Diff created by Z2PK."; $ei++; $exception["type"][$ei]="26,27"; $exception["year"][$ei]=2010; $exception["days"][$ei]="099"; $exception["note"][$ei]= " <b>Info: Z2PNT and Z2PNT_D exception #099/2010:</b><br />Z2PNT.099 w/ missing R50PNT segment as of compile error at RPK level.<br />Patch created by Z2PK with R50PNT.085 for next Z2PNT.106."; $ei++; $exception["type"][$ei]="93,94"; $exception["year"][$ei]=2010; $exception["days"][$ei]="092,099"; $exception["note"][$ei]= " <b>Info List/Diff #092 ff.:</b><br />R50PNT List received w/o Pointlines as of compile error at RPK level.<br />List recovered from #085 and Diffs created by Z2PK."; $ei++; $exception["type"][$ei]="61,62"; $exception["year"][$ei]=2010; $exception["days"][$ei]="113,127,155,169,176"; $exception["note"][$ei]= " <b>Info List #113/10 ff.</b><br />R23PNT's wrong line termination problems<br />Fixed with Diffing, CRC recalculated."; $ei++; $exception["type"][$ei]="61,62"; $exception["year"][$ei]=2010; $exception["days"][$ei]="120,134,141,148,162"; $exception["note"][$ei]= " <b>Info List #120/10 ff.</b><br />R23PNT's missing<br />and wrong line termination problems<br />Fixed with Diffing, CRC recalculated."; $ei++; $exception["type"][$ei]="93,94"; $exception["year"][$ei]=2010; $exception["days"][$ei]="120,141,148,162,169,176,183"; $exception["note"][$ei]= " <b>Info List/Diff #120 ff.</b><br />Missing R50PNT List and Diff.<br />List rebuild and Diff created by Z2PK."; $ei++; $exception["type"][$ei]="94"; $exception["year"][$ei]=2010; $exception["days"][$ei]="106,113,127,134,155,190"; $exception["note"][$ei]= " <b>Info Diff #106 ff.</b><br />Missing R50PNT Diff.<br />Diff created by Z2PK."; $ei++; $exception["type"][$ei]="56"; $exception["year"][$ei]=2010; $exception["days"][$ei]="162"; $exception["note"][$ei]= " <b>Info List #162/10:</b><br />R22PNT #162 missing<br />compiled from #155 and #169 by Z2PK"; $ei++; $exception["type"][$ei]="61,62"; $exception["year"][$ei]=2010; $exception["days"][$ei]="176,183,190,197,204,211"; $exception["note"][$ei]= " <b>Info List #183/10 ff.</b><br />R23PNT's missing<br />and wrong line termination problems<br />Fixed with Diffing, CRC recalculated."; $ei++; $exception["type"][$ei]="1,2"; $exception["year"][$ei]=2010; $exception["days"][$ei]="218"; $exception["note"][$ei]= " <b>Info 218/10:</b><br />Region 23 removed from Nodelist as of RC23's fault, sending a faulty segment.<br />Reapplied in #225/10."; $ei++; $exception["type"][$ei]="26,27"; $exception["year"][$ei]=2010; $exception["days"][$ei]="218"; $exception["note"][$ei]= " <b>Info:</b><br />Removed R46PNT from Z2PNT distribution.<br />Last R46PNT update was #177/2009.<br />Also R23PNT gets removed by R23 removal from Nodelist. Thus relates to RC23's fault sending a faulty R23 segment to ZC2. So therefor also R23PNT gets removed from Z2PNT."; $ei++; $exception["type"][$ei]="61,62"; $exception["year"][$ei]=2010; $exception["days"][$ei]="218"; $exception["note"][$ei]= " <b>Info List #218/10</b><br />Region 23 removed from Nodelist as of RC's 23 fault.<br />R23 points therefor also removed.<br />Will be re-added in #225/10."; $ei++; $exception["type"][$ei]="61,62"; $exception["year"][$ei]=2010; $exception["days"][$ei]="225"; $exception["note"][$ei]= " <b>Info List #225/10.</b><br />R23PNT re-applied.<br />Wrong line termination problems<br />Fixed with Diffing, CRC recalculated."; $ei++; $exception["type"][$ei]="93,94"; $exception["year"][$ei]=2010; $exception["days"][$ei]="197,204,225,246"; $exception["note"][$ei]= " <b>Info List/Diff #197 ff.</b><br />Missing R50PNT List and Diff.<br />List rebuild and Diff created by Z2PK."; $ei++; $exception["type"][$ei]="94"; $exception["year"][$ei]=2010; $exception["days"][$ei]="211,218,232,239,253,260,267,274,281,288,295,302,309,316,323,330,337,344,351,365"; $exception["note"][$ei]= " <b>Info Diff #211 ff.</b><br />Missing R50PNT Diff.<br />Diff created by Z2PK."; $ei++; $exception["type"][$ei]="51,52,53,54"; $exception["year"][$ei]=2010; $exception["days"][$ei]="267"; $exception["note"][$ei]= " <b>Info:</b><br />R31PNT exception 267/10:<br />Point4d.267 missing. Diff'd from #260 and #274 by Z2PK"; $ei++; $exception["type"][$ei]="61,62"; $exception["year"][$ei]=2010; $exception["days"][$ei]="232,239,246,253,260,267,274,281,288,295,302,309,316,323,330,337,344"; $exception["note"][$ei]= " <b>Info R23PNT #232/10 ff missing and/or</b><br />R23PNT Wrong line termination problems<br />Fixed with Diffing, CRC recalculated."; $ei++; $exception["type"][$ei]="51,52,53,54"; $exception["year"][$ei]=2010; $exception["days"][$ei]="316,323"; $exception["note"][$ei]= " <b>Info:</b><br />R31PNT exception 316/10:<br />Point4d.316 missing. Reconstructed from #309 and #323 by Z2PK"; $ei++; $exception["type"][$ei]="56"; $exception["year"][$ei]=2011; $exception["days"][$ei]="133"; $exception["note"][$ei]= " <b>Info List #133/11:</b><br />R22PNT #133 missing<br />PLdiff'd and compiled from #126 and #140 by Z2PK"; $ei++; $exception["type"][$ei]="61,62"; $exception["year"][$ei]=2011; $exception["days"][$ei]="042,049,056,063,070,077,084,091,098,105,112,119,126,133,140"; $exception["note"][$ei]= " <b>Info R23PNT #042/11 ff missing and/or</b><br />R23PNT Wrong line termination problems<br />Fixed with Diffing, CRC recalculated."; $ei++; $exception["type"][$ei]="42,49,71,73"; $exception["year"][$ei]=2011; $exception["days"][$ei]="042,049,105,112"; $exception["note"][$ei]= " <b>Info Region 34 pointlist #042, #049, #105 and #112/11 missing</b>"; $ei++; $exception["type"][$ei]="86"; $exception["year"][$ei]=2011; $exception["days"][$ei]="063"; $exception["note"][$ei]= " <b>Info Region 48 pointlist #063/11 missing</b><br />Fixed with Diffing, by Z2PK."; $ei++; $exception["type"][$ei]="94"; $exception["year"][$ei]=2011; $exception["days"][$ei]="007,014,021,028,035,042,049,056,063,070,077,084,091,098,105,112,119,126,133,140,147"; $exception["note"][$ei]= " <b>Info R50pnt Diff #007/11 ff.</b><br />Diff manualy created by Z2PK."; $ei++; $exception["type"][$ei]="1"; $exception["year"][$ei]=2011; $exception["days"][$ei]="161"; $exception["note"][$ei]= " <b>Info #161/2011:</b><br />missing Nodelist #161"; $ei++; $exception["type"][$ei]="2"; $exception["year"][$ei]=2011; $exception["days"][$ei]="168"; $exception["note"][$ei]= " <b>Info #168/2011:</b><br />missing Nodediff #168<br />full distributed Nodelist #168<br />Diff with pldiff re-created."; $ei++; $exception["type"][$ei]="61,62"; $exception["year"][$ei]=2011; $exception["days"][$ei]="147,154,161,168,175,182,189,196,203,210"; $exception["note"][$ei]= " <b>Info R23PNT #147/11 ff missing and/or</b><br />R23PNT Wrong line termination problems<br />Fixed with Diffing, CRC recalculated."; $ei++; $exception["type"][$ei]="51,52"; $exception["year"][$ei]=2011; $exception["days"][$ei]="203,210"; $exception["note"][$ei]= " <b>Info:</b><br />R31PNT missing #203 and #210/11:<br />Reconstructed from #203 and #217 by Z2PK"; $ei++; $exception["type"][$ei]="1,2"; $exception["year"][$ei]=2011; $exception["days"][$ei]="217,224,231"; $exception["note"][$ei]= " <b>Info #217-#231/2011:</b><br />missing Nodediffs #217 and #224 were built at ZC2's system, but not distributed thru fileechoes, downloadable thru ftp only.<br />Late distributed diffs #217, #224 and #231 differs from the first distribution set, so 2 different versions of #231 came out.<br>'Official' working revision #231 has CRC: 62202"; $ei++; $exception["type"][$ei]="1,2"; $exception["year"][$ei]=2012; $exception["days"][$ei]="216"; $exception["note"][$ei]= " <b>Info #216/2012:</b><br />missing Zones 1, 3, 4.<br />Late distributed diffs #216, #223 and #230."; // Z2PNT // $ei++; $exception["type"][$ei]="26,27"; $exception["year"][$ei]=2012; $exception["days"][$ei]="237,314,321"; $exception["note"][$ei]= " <b>Info:</b><br />Z2PNT exception #237, #314, #321:<br />Z2PNT.314 and Z2PNT.321 compile did happen<br />but did run in a distribution problem.<br />Z2PNT.321 packed as Z2PNT.Z37 so #237 becomes overwritten.<br />#237 (.Z37) Z2PNT + Z2PNT_D) corrected<br />Diff's #314 (.Z14) and #321 (.Z21) rehatched.<br />Z2PNT #314 added, Z2PNT #321 replaced"; $ei++; $exception["type"][$ei]="26,27"; $exception["year"][$ei]=2012; $exception["days"][$ei]="349"; $exception["note"][$ei]= " <b>Info:</b><br />Z2PNT exception #349:<br />Z2PNT.349 first run (crc 00999) ends with 0 bossnodes found from nodelist index.<br />Fixed by 2nd recompile, finished with crc [24146].<br />Z2PNT.349 redistributed with TIC replace."; $ei++; $exception["type"][$ei]="51,52,53,54"; $exception["year"][$ei]=2013; $exception["days"][$ei]="221,228"; $exception["note"][$ei]= " <b>Info:</b>R31PNT exception 2013:<br />R31PNT distribution stops working.<br />Received Point4d.220 instead of #221<br />received Point4d.227 instead of #228<br />Manualy renamed to #221 and #228"; $ei++; $exception["type"][$ei]="42"; $exception["year"][$ei]=2013; $exception["days"][$ei]="242"; $exception["note"][$ei]= " <b>Info:</b>R28diff 2013:<br />R28PNT diff distribution terminated.<br />Last R28PNT-Diff published is 242/2013."; $ei++; $exception["type"][$ei]="1,2"; $exception["year"][$ei]=2013; $exception["days"][$ei]="249,256"; $exception["note"][$ei]= " <b>Info 249/13, 256/13:</b><br />249: Zone#3 segment lost,<br />256: Zone#1 and Zone#3 segment lost.<br />Patched revisions in archive."; // Z2PNT // $ei++; $exception["type"][$ei]="26,27"; $exception["year"][$ei]=2014; $exception["days"][$ei]="360"; $exception["note"][$ei]= " <b>Info:</b><br />Z2PNT exception #360/2014:<br />Z2PNT.360 2014 and Z2PNT.002 2015 late distribution."; $ei++; $exception["type"][$ei]="26,27"; $exception["year"][$ei]=2015; $exception["days"][$ei]="002"; $exception["note"][$ei]= " <b>Info:</b><br />Z2PNT exception #002/2015:<br />Z2PNT.360 2014 and Z2PNT.002 2015 late distribution."; // NODELIST, POINTLISTS, FIDONEWS EXCEPTIONS -- End // :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: // some local functions // rat returns last position of string searched function rat($such,$string) { $rtlen = strlen($string); $slen = strlen($such); $rtpos = 0; for ($j=$rtlen; $j > 0; $j--) { $rtchr = substr($string,$j,$slen); if ($rtchr==$such) { if ($rtpos==0) { $rtpos = $j; $j = 0; } } } return $rtpos; } // returns first position of string searched function at($such,$string) { $slen = strlen($such); $rtlen = strlen($string); $rtpos = 0; for ($j=0; $j < $rtlen; $j++) { $rtchr = substr($string,$j,$slen); if ($rtchr==$such) { if ($rtpos==0) { $rtpos = $j; $j = $rtlen; } } } return $rtpos; } // macro for strlen() function len($t) { return strlen($t); } // :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: $datum=mktime(0,0,0,01,06,1984); // startdate 6.1.1984 $year = date("Y",$datum); // skip to start year? // if startyear > actyear do nothing // :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: // ::::: // ::::: Main Section // ::::: Lists or Last5 view // ::::: // :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: if ($code_criterion!=4) { // != last 5 // :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: // ::::: // ::::: Section I Nodelists, Pointlists // ::::: // :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: if ($code_criterion<2) { $startyear=1984; // nodelist // elseif section begin } elseif ($code_criterion==3) { $startyear=1984; // fidonews } elseif ($zone_criterion==20) { // z2pnt $startyear=1999; } elseif ($zone_criterion==25) { // r20pnt // formats: Boss $startyear=2014; } elseif (($zone_criterion==30)) { // r24 // formats: Fake, Boss $startyear=1989; } elseif (($zone_criterion==40)) { // r28 // formats: Fidouser, Boss $startyear=1997; } elseif (($zone_criterion==50)) { // r31 // formats: V7, Boss $startyear=1998; } elseif (($zone_criterion==55)) { // r22 // formats: Poss $startyear=2008; $lastyear =2014; } elseif (($zone_criterion==60)) { // r23 // formats: Boss, Fake $startyear=1992; $lastyear =2014; } elseif (($zone_criterion==65)) { // r33 // formats: Boss $startyear=2018; // $lastyear =2014; } elseif (($zone_criterion==70)) { // r34 // formats: Boss, Fake $startyear=2001; } elseif (($zone_criterion==75)) { // r45 // formats: Poss $startyear=2004; $lastyear =2018; } elseif (($zone_criterion==78)) { // r45 // formats: Boss $startyear=2018; // $lastyear =2018; } elseif (($zone_criterion==80)) { // r46 // formats: Poss $startyear=1997; // $lastyear =2009; } elseif (($zone_criterion==85)) { // r48 // formats: Boss $startyear=2007; $lastyear =2014; } elseif (($zone_criterion==90)) { // r50 // formats: Poss, Boss $startyear=1997; } elseif (($zone_criterion==100)) { // r29 // formats: Boss, V7 $startyear=1997; // $lastyear =2001; // elseif 101 ? startyear 2017 (again) } // elseif section end $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; ?> <!-- Table main 3.1 begin --> <div class="fhp2mainout"> <center> <TABLE summary="FHP Search Form : index output window" width="680" class="fhp2"> <tr class="fhp2"><td class="fhp2"><center> <?php while ($year2<=$actyear) { if (substr($year2,3,1)=="0") { $dovos = true; $dov .= "<br><a class='wb' href='#y$year2'>$year2</a> "; } else { if ($dovos) { $dov .= "| <a class='wb' href='#y$year2'>$year2</a> "; } else { $dovos = true; $dov .= "<a class='wb' href='#y$year2'>$year2</a> "; } } $year2++; } echo "<FONT class='smallerTextWh'>Index:<BR>".$dov."</FONT>\n"; ?> </center></td></tr> </table> </center> </div> <!-- Table main 3.2 begin --> <!-- TABLE summary="FHP Search Form : main output window" border="0" width="80%"> <tr><td><center--> <!-- div align="center" --> <div class="fhp2mainout"> <center> <TABLE summary="FHP Search Form : main output window : Legend title" class="fhp2a0"> <tbody class="fhp2a0"> <TR class="fhp2a0"> <TH colspan="12" class="fhp2a1"></TH> </TR><TR class="fhp2a0"> <TH colspan="12" class="fhp2a2"> <center>Legend</center> <!-- Table main 3.3 begin --> <table summary="FHP Search Form : main output window : Legend" class="fhp2a2a"> <tr class="fhp2a2a"><td class="fhp2a2a"> </td><td class="fhp2a2b"><FONT color="#000000">links in black</FONT></td><td class="fhp2a2a">= file can be viewed now</td></tr> <tr class="fhp2a2a"><td class="fhp2a2a"> </td><td class="fhp2a2b"><FONT color="#FFFFFF">links in white</font></td><td class="fhp2a2a">= file has not be found by Fido historians</td></tr> <tr class="fhp2a2a"><td class="fhp2a2a"> </td><td class="fhp2a2b">links in yellow</td><td class="fhp2a2a">= file scheduled to be added to collection</td></tr> <tr class="fhp2a2a"><td class="fhp2a2a"> </td><td class="fhp2a2b"><FONT color="#FF0000">links in red</font></td><td class="fhp2a2a">= exceptions, addtl. info available</td></tr> <tr class="fhp2a2a"><td class="fhp2a2a"> </td><td class="fhp2a2pre">Background dark</td><td class="fhp2a2a">= pre makenl distributions</td></tr> <tr class="fhp2a2a"><td class="fhp2a2a"> </td><td class="fhp2a2b">Background light</td><td class="fhp2a2a">= regular makenl distribution since #219/1987</td></tr> </table> <!-- FHP Search Form : main output window : Legend --> <!-- Table main 3.3 end --> </TH> </TR><TR class="fhp2a0"> <TH colspan="12" class="fhp2a1"></TH> </TR> </tbody> </table> <!-- FHP Search Form : main output window : Legend title --> <!-- Table main 3.2 end --> <!-- Table main 3.2.2 begin --> <!-- TABLE summary="FHP Search Form : main output window : lists output default" bgcolor="#D2B48C" border="1" width="720"> <tr><td --> </center> </div> <div class="fhp2mainout"> <center> <?php // if startyear = year, loop will not be triggered ! if ($startyear==$actyear) { $triggeronce = true; } while ((($year<$actyear) AND ($year<$lastyear)) OR ($triggeronce)) { // new table ? ?> <TABLE summary="FHP Search Form : main output window : list by year" class="fhp2a0"> <TBODY class="fhp2a0"> <!-- tr class="fhp2a0"> is dupe, go line 2140 ff. <td --> <!-- div id="lby" --> <?php $triggeronce = false; $sikdatum = $datum; $year=date("Y",$datum); $tyr = $year; $fidoyear=($tyr - 1984)+1; // $label = "<a class="nl" href='#y$year'>$year</a> "; // $label = "<a class="nl" 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; } } elseif ($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<br>(World)"; $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<br>(World)"; $workdir[$counts][2] = ""; $workdir[$counts][3] = 2; } } else { $counts++; $workdir[$counts][0] = $tmpp[0]; $workdir[$counts][1] = "Nodelist<br>(World)"; $workdir[$counts][2] = ""; $workdir[$counts][3] = 1; } } elseif ($zone_criterion==20) { // z2pnt $tmpp[0]=sprintf("pntlist/z2/%04d/poss",$year); $tmpp[1]=sprintf("pntlist/z2/%04d/poss/diff",$year); $tmpp[2]=sprintf("pntlist/z2/%04d/boss",$year); $tmpp[3]=sprintf("pntlist/z2/%04d/boss/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<br>(Europe)"; $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<br>(Europe)"; $workdir[$counts][2] = "Poss"; $workdir[$counts][3] = 22; } } else { $tmpd=$basepath2.$basepath.$tmpp[2]; if (is_dir($tmpd)) { // BOSS dir exists // do nothing } else { $counts++; $workdir[$counts][0] = $tmpp[0]; $workdir[$counts][1] = "Z2<br>Pointlist<br>(Europe)"; $workdir[$counts][2] = "Poss"; $workdir[$counts][3] = 21; } } $tmpd=$basepath2.$basepath.$tmpp[2]; if (is_dir($tmpd)) { // Nodelist dir exists $counts++; $workdir[$counts][0] = $tmpp[2]; $workdir[$counts][1] = "Z2<br>Pointlist<br>(Europe)"; $workdir[$counts][2] = "Boss"; $workdir[$counts][3] = 26; $tmpd=$basepath2.$basepath.$tmpp[3]; if (is_dir($tmpd)) { // Nodediff dir exists $counts++; $workdir[$counts][0] = $tmpp[3]; $workdir[$counts][1] = "Z2<br>Pointdiff<br>(Europe)"; $workdir[$counts][2] = "Boss"; $workdir[$counts][3] = 27; } //} else { // $counts++; // $workdir[$counts][0] = $tmpp[2]; // $workdir[$counts][1] = "Z2<br>Pointlist"; // $workdir[$counts][2] = "Boss"; // $workdir[$counts][3] = 26; } } elseif ($zone_criterion==25) { // r20 // formats: Boss $tmpp[0]=sprintf("pntlist/r20/%04d/boss",$year); $tmpd=$basepath2.$basepath.$tmpp[0]; if (is_dir($tmpd)) { // Nodelist dir exists $counts++; $workdir[$counts][0] = $tmpp[0]; $workdir[$counts][1] = "R20<br>Pointlist (R20)"; $workdir[$counts][2] = "Boss"; $workdir[$counts][3] = 25; } else { $counts++; $workdir[$counts][0] = $tmpp[0]; $workdir[$counts][1] = "R20<br>Pointlist (R20)"; $workdir[$counts][2] = "Boss"; $workdir[$counts][3] = 25; } } elseif ($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 (DE)"; $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 (DE)"; $workdir[$counts][2] = "Boss"; $workdir[$counts][3] = 32; } } else { $counts++; $workdir[$counts][0] = $tmpp[0]; $workdir[$counts][1] = "R24<br>Pointlist (DE)"; $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 (DE)"; $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 (DE)"; $workdir[$counts][2] = "Fakenet"; $workdir[$counts][3] = 34; } } } elseif ($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 (NL,BE)"; $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 (NL,BE)"; $workdir[$counts][2] = "Boss"; $workdir[$counts][3] = 42; } } else { $counts++; $workdir[$counts][0] = $tmpp[0]; $workdir[$counts][1] = "R28<br>Pointlist (NL,BE)"; $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 (NL,BE)"; $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 (NL,BE)"; $workdir[$counts][2] = "Fidouser"; $workdir[$counts][3] = 44; } } } elseif ($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 (AT)"; $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 (AT)"; $workdir[$counts][2] = "Boss"; $workdir[$counts][3] = 52; } } else { $counts++; $workdir[$counts][0] = $tmpp[0]; $workdir[$counts][1] = "R31<br>Pointlist (AT)"; $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 (AT)"; $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 (AT)"; $workdir[$counts][2] = "Points,V7"; $workdir[$counts][3] = 54; } } } elseif ($zone_criterion==55) { // r22 // formats: Poss $tmpp[0]=sprintf("pntlist/r22/%04d/poss",$year); $tmpd=$basepath2.$basepath.$tmpp[0]; if (is_dir($tmpd)) { // Nodelist dir exists $counts++; $workdir[$counts][0] = $tmpp[0]; $workdir[$counts][1] = "R22<br>Pointlist (FI)"; $workdir[$counts][2] = "Poss"; $workdir[$counts][3] = 56; } else { $counts++; $workdir[$counts][0] = $tmpp[0]; $workdir[$counts][1] = "R22<br>Pointlist (FI)"; $workdir[$counts][2] = "Poss"; $workdir[$counts][3] = 56; } } elseif ($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 (DK)"; $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 (DK)"; $workdir[$counts][2] = "Boss"; $workdir[$counts][3] = 62; } } else { $counts++; $workdir[$counts][0] = $tmpp[0]; $workdir[$counts][1] = "R23<br>Pointlist (DK)"; $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 (DK)"; $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 (DK)"; $workdir[$counts][2] = "Fakenet"; $workdir[$counts][3] = 64; } } } elseif ($zone_criterion==65) { // r33 // formats: Boss $tmpp[0]=sprintf("pntlist/r33/%04d/boss",$year); $tmpp[1]=sprintf("pntlist/r33/%04d/boss/diff",$year); $tmpd=$basepath2.$basepath.$tmpp[0]; if (is_dir($tmpd)) { // Nodelist dir exists $counts++; $workdir[$counts][0] = $tmpp[0]; $workdir[$counts][1] = "R33<br>Pointlist (I)"; $workdir[$counts][2] = "Boss"; $workdir[$counts][3] = 66; $tmpd=$basepath2.$basepath.$tmpp[1]; if (is_dir($tmpd)) { // Nodediff dir exists $counts++; $workdir[$counts][0] = $tmpp[1]; $workdir[$counts][1] = "R33<br>Pointdiff (I)"; $workdir[$counts][2] = "Boss"; $workdir[$counts][3] = 67; } } else { $counts++; $workdir[$counts][0] = $tmpp[0]; $workdir[$counts][1] = "R33<br>Pointlist (I)"; $workdir[$counts][2] = "Boss"; $workdir[$counts][3] = 66; } } elseif ($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 (ES)"; $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 (ES)"; $workdir[$counts][2] = "Boss"; $workdir[$counts][3] = 72; } } else { $counts++; $workdir[$counts][0] = $tmpp[0]; $workdir[$counts][1] = "R34<br>Pointlist (ES)"; $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 (ES)"; $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 (ES)"; $workdir[$counts][2] = "Fakenet"; $workdir[$counts][3] = 74; } } } elseif ($zone_criterion==75) { // r45 // formats: Poss $tmpp[0]=sprintf("pntlist/r45/%04d/poss",$year); $tmpp[1]=sprintf("pntlist/r45/%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] = "R45<br>Pointlist (BY)"; $workdir[$counts][2] = "Poss"; $workdir[$counts][3] = 76; $tmpd=$basepath2.$basepath.$tmpp[1]; if (is_dir($tmpd)) { // Nodediff dir exists $counts++; $workdir[$counts][0] = $tmpp[1]; $workdir[$counts][1] = "R45<br>Pointdiff (BY)"; $workdir[$counts][2] = "Poss"; $workdir[$counts][3] = 77; } } else { $counts++; $workdir[$counts][0] = $tmpp[0]; $workdir[$counts][1] = "R45<br>Pointlist (BY)"; $workdir[$counts][2] = "Poss"; $workdir[$counts][3] = 76; } } elseif ($zone_criterion==78) { // r45 // formats: Boss $tmpp[0]=sprintf("pntlist/r45/%04d/boss",$year); $tmpp[1]=sprintf("pntlist/r45/%04d/boss/diff",$year); $tmpd=$basepath2.$basepath.$tmpp[0]; if (is_dir($tmpd)) { // Nodelist dir exists $counts++; $workdir[$counts][0] = $tmpp[0]; $workdir[$counts][1] = "R45<br>Pointlist (BY)"; $workdir[$counts][2] = "Boss"; $workdir[$counts][3] = 78; $tmpd=$basepath2.$basepath.$tmpp[1]; if (is_dir($tmpd)) { // Nodediff dir exists $counts++; $workdir[$counts][0] = $tmpp[1]; $workdir[$counts][1] = "R45<br>Pointdiff (BY)"; $workdir[$counts][2] = "Boss"; $workdir[$counts][3] = 79; } } else { $counts++; $workdir[$counts][0] = $tmpp[0]; $workdir[$counts][1] = "R45<br>Pointlist (BY)"; $workdir[$counts][2] = "Boss"; $workdir[$counts][3] = 78; } } elseif ($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 (UA)"; $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 (UA)"; $workdir[$counts][2] = "Poss"; $workdir[$counts][3] = 82; } } else { $counts++; $workdir[$counts][0] = $tmpp[0]; $workdir[$counts][1] = "R46<br>Pointlist (UA)"; $workdir[$counts][2] = "Poss"; $workdir[$counts][3] = 81; } } elseif ($zone_criterion==85) { // r48 // formats: Boss $tmpp[0]=sprintf("pntlist/r48/%04d/boss",$year); $tmpp[1]=sprintf("pntlist/r48/%04d/boss/diff",$year); $tmpd=$basepath2.$basepath.$tmpp[0]; if (is_dir($tmpd)) { // Nodelist dir exists $counts++; $workdir[$counts][0] = $tmpp[0]; $workdir[$counts][1] = "R48<br>Pointlist (PL)"; $workdir[$counts][2] = "Boss"; $workdir[$counts][3] = 86; $tmpd=$basepath2.$basepath.$tmpp[1]; if (is_dir($tmpd)) { // Nodediff dir exists $counts++; $workdir[$counts][0] = $tmpp[1]; $workdir[$counts][1] = "R48<br>Pointdiff (PL)"; $workdir[$counts][2] = "Boss"; $workdir[$counts][3] = 87; } } else { $counts++; $workdir[$counts][0] = $tmpp[0]; $workdir[$counts][1] = "R48<br>Pointlist (PL)"; $workdir[$counts][2] = "Boss"; $workdir[$counts][3] = 86; } } elseif ($zone_criterion==90) { // r50 // formats: Poss, Boss if ($year < 2008) { $tmpp[0]=sprintf("pntlist/r50/%04d/poss",$year); $tmpp[1]=sprintf("pntlist/r50/%04d/poss/diff",$year); $tmpp[2]=sprintf("pntlist/r50/%04d/boss",$year); $tmpp[3]=sprintf("pntlist/r50/%04d/boss/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 (RU)"; $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 (RU)"; $workdir[$counts][2] = "Poss"; $workdir[$counts][3] = 92; } } else { $counts++; $workdir[$counts][0] = $tmpp[0]; $workdir[$counts][1] = "R50<br>Pointlist (RU)"; $workdir[$counts][2] = "Poss"; $workdir[$counts][3] = 91; } } $tmpd=$basepath2.$basepath.$tmpp[2]; if (is_dir($tmpd)) { // Nodelist dir exists $counts++; $workdir[$counts][0] = $tmpp[2]; $workdir[$counts][1] = "R50<br>Pointlist (RU)"; $workdir[$counts][2] = "Boss"; $workdir[$counts][3] = 93; $tmpd=$basepath2.$basepath.$tmpp[3]; if (is_dir($tmpd)) { // Nodediff dir exists $counts++; $workdir[$counts][0] = $tmpp[3]; $workdir[$counts][1] = "R50<br>Pointdiff (RU)"; $workdir[$counts][2] = "Boss"; $workdir[$counts][3] = 94; } } } elseif ($zone_criterion==100) { // r29 // formats: Boss, V7 $tmpp[0]=sprintf("pntlist/r29/%04d/boss",$year); $tmpp[1]=sprintf("pntlist/r29/%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 (BE)"; $workdir[$counts][2] = "Boss"; if ($year < 2005) { $workdir[$counts][3] = 101; } else { $workdir[$counts][3] = 105; } $tmpd=$basepath2.$basepath.$tmpp[1]; if (is_dir($tmpd)) { // Nodediff dir exists $counts++; $workdir[$counts][0] = $tmpp[1]; $workdir[$counts][1] = "R29<br>Pointdiff (BE)"; $workdir[$counts][2] = "Boss"; $workdir[$counts][3] = 102; } } else { $counts++; $workdir[$counts][0] = $tmpp[0]; $workdir[$counts][1] = "R29<br>Pointlist (BE)"; $workdir[$counts][2] = "Boss"; if ($year < 2005) { $workdir[$counts][3] = 101; } else { $workdir[$counts][3] = 105; } } $tmpd=$basepath2.$basepath.$tmpp[2]; if (is_dir($tmpd)) { // Nodelist dir exists $counts++; $workdir[$counts][0] = $tmpp[2]; $workdir[$counts][1] = "R29<br>Pointlist (BE)"; $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 (BE)"; $workdir[$counts][2] = "Points,V7"; $workdir[$counts][3] = 104; } } } // end code_criterion 3 // $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]; $atext = "Fidonet ".preg_replace("/<br>/"," ",$listtype)." ".$ptype; // Reset $datum = $sikdatum; $year=date("Y",$datum); $tyr = $year; $fidoyear=($tyr - 1984)+1; // echo "<a class="nl" href='#y$year'>$year</a> "; $day=date("z",$datum)+1; // ??? $week=1; // $sikday = $day; if ($slct==3) { $listtype.="<br>[".$fidoyear."]"; } if ($j==1) { echo "<tr class='fhp2a0'><TH width='15%' rowspan='".(6*$counts)."' class='fhp2a1'> <FONT class='smallTextY'><a class='smallTextY' name='y".$year."'>".date("Y",$datum)."</a></FONT> </TH>"; echo "<TH width='15%' rowspan='6' class='fhp2a3pre'> ".$listtype; } else { echo "<tr class='fhp2a0'><TH width='15%' rowspan='6' class='fhp2a3pre'> ".$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 width='7%' class='fhp2a2c'>"; } else { echo "<TH width='7%' class='fhp2a2cpre'>"; } echo " </TH>\n"; // echo "<TH bgcolor=#338899><FONT color=#FFFFFF> </FONT></TH>\n"; $teller=1; } else { $teller=0; } } $fnwsex = False; $filename = ""; $filename2 = ""; $filename3 = ""; while ((($day<367) && (date("Y",$datum)==$tyr)) || ($fnwsex)) { $fnwsex = False; $testdate = $datum; // echo "$testdate<br>\r\n"; is timestamp format // $year=date("Y",$datum); if ($slct==3) { // FIDONEWS Exceptions if ((($year==1984) && ($week<48)) || (($year==1986) && ($week==52)) || ( ($week==53) && ( ($year==1988) || ($year==1993) || ($year==1999) || ($year==2004) || ($year==2010) )) ) { // 1993/53 results in mismatch between nodediff day friday publishing // and fidonews publishing day on sunday #52/1993 is 26th Dec. 1993 // same happens in 1986 #51 in 86 is published 29th Dec // same happens in 1988 #52 in 88 is published 26th Dec $printday=" "; $printweek=" "; } else { if (($year==1984)) { $printday=$day; $printweek=$week-47; } else { $printday=$day; $printweek=$week; } } } else { // some exceptions, no daynumber display if (($year==1984) && ($day<153)) { // all before #153/1984 $printday=" "; $printweek=" "; } elseif (($slct==32) && ($year==2001) && ($day<180)) { $printday=" "; $printweek=" "; } elseif (($slct==34) && (($year==1992) && ($day==157)) ) { $printday=" "; $printweek=" "; } elseif (($slct==21) && (($year==2007) && ( ($day>138) && ($day<355)) ) ) { $printday=$day; $printweek=$week; } elseif (($slct==21) && (($year==2007) && ($day>348) ) ) { $printday=" "; $printweek=" "; } elseif (($slct==22) && (($year==2007) && ( ($day>138) && ($day<355)) ) ) { $printday=$day; $printweek=$week; } elseif (($slct==22) && (($year==2007) && ($day>348) ) ) { $printday=" "; $printweek=" "; } elseif (($slct==26) && (($year==2007) && ($day<145)) ) { $printday=" "; $printweek=" "; } elseif (($slct==27) && (($year==2007) && ($day<145)) ) { $printday=" "; $printweek=" "; } elseif ((($slct==65) || ($slct==66) || ($slct==67)) && ($year==2018) && ($day<26)) { $printday=" "; $printweek=" "; } elseif (($slct==86) && (($year==2007) && ($day<362))) { $printday=" "; $printweek=" "; } elseif (($slct==56) && (($year==2008) && ($day<11))) { $printday=" "; $printweek=" "; } elseif ((($slct==75) || ($slct==76) || ($slct==77) ) && (($year==2018) && ($day>145))) { $printday=" "; $printweek=" "; } elseif ((($slct==78) || ($slct==79)) && (($year==2018) && ($day<152))) { $printday=" "; $printweek=" "; } elseif (($slct==91) && (($year==2007) && ($day>138))) { $printday=" "; $printweek=" "; } elseif (($slct==92) && (($year==2007) && ($day>138))) { $printday=" "; $printweek=" "; } elseif (($slct==93) && (($year==2008) && ($day<277))) { $printday=" "; $printweek=" "; } elseif (($slct==94) && (($year==2008) && ($day<277))) { $printday=" "; $printweek=" "; } elseif ((($slct==81) || ($slct==82)) && (($year==2009) && ($day>177))) { $printday=" "; $printweek=" "; } elseif ((($slct==81) || ($slct==82)) && (($year==2010) || ($year==2011) || ($year==2012) || ($year==2013) )) { $printday=" "; $printweek=" "; } else { // regular daynumber display $printday=$day; $printweek=$week; } } $filename2=""; $filename3=""; if ($slct==1) { $filename=sprintf("nodelist/%04d/nl%02s-%03d.zip",$year,substr($year,2,2),$day); } elseif ($slct==2) { $filename=sprintf("nodelist/%04d/diff/nodediff.z%s",$year, substr("00".$day,strlen($day),2)); } elseif ($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)); } } elseif ($slct==21) { // z2pnt poss list $filename=sprintf("pntlist/z2/%04d/poss/z2pnt.z%s",$year, substr("00".$day,strlen($day),2)); } elseif ($slct==22) { // z2pnt poss diff $filename=sprintf("pntlist/z2/%04d/poss/diff/z2pnt_d.z%s",$year, substr("00".$day,strlen($day),2)); } elseif ($slct==26) { // z2pnt boss list $filename=sprintf("pntlist/z2/%04d/boss/z2pnt.z%s",$year, substr("00".$day,strlen($day),2)); } elseif ($slct==27) { // z2pnt boss diff $filename=sprintf("pntlist/z2/%04d/boss/diff/z2pnt_d.z%s",$year, substr("00".$day,strlen($day),2)); } elseif ($slct==25) { // r20 // formats: Boss list $filename=sprintf("pntlist/r20/%04d/boss/r20pnt.z%s",$year, substr("00".$day,strlen($day),2)); if ($year > 2015) { $filename=sprintf("pntlist/r20/%04d/boss/r20pnt.%s",$year, substr("000".$day,strlen($day),3)); } elseif ($year==2015 && $day > 100) { $filename=sprintf("pntlist/r20/%04d/boss/r20pnt.%s",$year, substr("000".$day,strlen($day),3)); } } elseif ($slct==31) { // r24 // formats: Boss list $filename=sprintf("pntlist/r24/%04d/boss/r24pnt.z%s",$year, substr("00".$day,strlen($day),2)); } elseif ($slct==32) { // r24 // formats: Boss diff $filename=sprintf("pntlist/r24/%04d/boss/diff/r24pnt_d.z%s",$year, substr("00".$day,strlen($day),2)); } elseif ($slct==41) { // r28 // formats: Boss list $filename=sprintf("pntlist/r28/%04d/boss/p28-list.z%s",$year, substr("00".$day,strlen($day),2)); } elseif ($slct==42) { // r28 // formats: Boss diff $filename=sprintf("pntlist/r28/%04d/boss/diff/p28-diff.z%s",$year, substr("00".$day,strlen($day),2)); } elseif ($slct==51) { // r31 // formats: Boss list $filename=sprintf("pntlist/r31/%04d/boss/r31pnt.z%s",$year, substr("00".$day,strlen($day),2)); } elseif ($slct==52) { // r31 // formats: Boss diff $filename=sprintf("pntlist/r31/%04d/boss/diff/r31pnt_d.z%s",$year, substr("00".$day,strlen($day),2)); } elseif ($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)); } elseif ($slct==34) { // r24 // formats: fake diff $filename=sprintf("pntlist/r24/%04d/fake/diff/pr24diff.z%s",$year, substr("00".$day,strlen($day),2)); } elseif ($slct==53) { // r31 // formats: v7 list $filename=sprintf("pntlist/r31/%04d/v7/point4d.a%s",$year, substr("00".$day,strlen($day),2)); } elseif ($slct==54) { // r31 // formats: v7 diff (not avail) $filename=sprintf("pntlist/r31/%04d/v7/diff/point4d.z%s",$year, substr("00".$day,strlen($day),2)); } elseif ($slct==56) { // r22pnt poss list $filename=sprintf("pntlist/r22/%04d/poss/r22pnt.z%s",$year, substr("00".$day,strlen($day),2)); } elseif ($slct==43) { // r28 // formats: fidouser list $filename=sprintf("pntlist/r28/%04d/fidouser/pointl%s.zip",$year, substr("00".$day,strlen($day),2)); } elseif ($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)); } elseif ($slct==61) { // r23 // formats: Boss list $filename=sprintf("pntlist/r23/%04d/boss/r23pnt.z%s",$year, substr("00".$day,strlen($day),2)); } elseif ($slct==62) { // r23 // formats: Boss diff $filename=sprintf("pntlist/r23/%04d/boss/diff/r23pnt_d.z%s",$year, substr("00".$day,strlen($day),2)); } elseif ($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)); } elseif ($slct==64) { // r23 // formats: fake diff $filename=sprintf("pntlist/r23/%04d/fake/diff/dkp-diff.z%s",$year, substr("00".$day,strlen($day),2)); } elseif ($slct==66) { // r33 // formats: Boss list $filename=sprintf("pntlist/r33/%04d/boss/r33pnt.z%s",$year, substr("00".$day,strlen($day),2)); } elseif ($slct==67) { // r33 // formats: Boss diff $filename=sprintf("pntlist/r33/%04d/boss/diff/r33pnt_d.z%s",$year, substr("00".$day,strlen($day),2)); } elseif ($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)); } elseif ($slct==72) { // r34 // formats: Boss diff $filename=sprintf("pntlist/r34/%04d/boss/diff/ptdifr34.z%s",$year, substr("00".$day,strlen($day),2)); } elseif ($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)); } elseif ($slct==74) { // r34 // formats: fake diff $filename=sprintf("pntlist/r34/%04d/fake/diff/pdiffr34.z%s",$year, substr("00".$day,strlen($day),2)); } elseif ($slct==76) { // r45pnt poss list $filename=sprintf("pntlist/r45/%04d/poss/r45point.z%s",$year, substr("00".$day,strlen($day),2)); } elseif ($slct==77) { // r45pnt poss diff $filename=sprintf("pntlist/r45/%04d/poss/diff/r45pdiff.z%s",$year, substr("00".$day,strlen($day),2)); } elseif ($slct==78) { // r45pnt boss list $filename=sprintf("pntlist/r45/%04d/boss/r45pnt.z%s",$year, substr("00".$day,strlen($day),2)); } elseif ($slct==79) { // r45pnt boss diff $filename=sprintf("pntlist/r45/%04d/boss/diff/r45pnt_d.z%s",$year, substr("00".$day,strlen($day),2)); } elseif ($slct==81) { // r46pnt poss list $filename=sprintf("pntlist/r46/%04d/poss/pnt46reg.z%s",$year, substr("00".$day,strlen($day),2)); // or daynumber - 1 $daym1 = $day-1; $filename2=sprintf("pntlist/r46/%04d/poss/pnt46reg.z%s",$year, substr("00".$daym1,strlen($daym1),2)); // or daynumber - 2 $daym2 = $day-2; $filename3=sprintf("pntlist/r46/%04d/poss/pnt46reg.z%s",$year, substr("00".$daym2,strlen($daym2),2)); } elseif ($slct==82) { // r46pnt poss diff $filename=sprintf("pntlist/r46/%04d/poss/diff/r46pdiff.z%s",$year, substr("00".$day,strlen($day),2)); $filename2=sprintf("pntlist/r46/%04d/poss/diff/r46pdiff.%s",$year, substr("000".$day,strlen($day),3)); } elseif ($slct==86) { // r48pnt boss list $filename=sprintf("pntlist/r48/%04d/boss/point_48.z%s",$year, substr("00".$day,strlen($day),2)); } elseif ($slct==87) { // r48pnt boss diff $filename=sprintf("pntlist/r48/%04d/boss/diff/pointd48.z%s",$year, substr("00".$day,strlen($day),2)); } elseif ($slct==91) { // r50pnt poss list $filename=sprintf("pntlist/r50/%04d/poss/r50pnt.z%s",$year, substr("00".$day,strlen($day),2)); } elseif ($slct==92) { // r50pnt poss diff $filename=sprintf("pntlist/r50/%04d/poss/diff/r50pnt_d.z%s",$year, substr("00".$day,strlen($day),2)); } elseif ($slct==93) { // r50pnt boss list $filename=sprintf("pntlist/r50/%04d/boss/r50pnt.z%s",$year, substr("00".$day,strlen($day),2)); } elseif ($slct==94) { // r50pnt boss diff $filename=sprintf("pntlist/r50/%04d/boss/diff/r50pnt_d.z%s",$year, substr("00".$day,strlen($day),2)); } elseif ($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)); } elseif ($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)); } elseif ($slct==105) { // r29pnt Boss NEW %s substr("00".$day,strlen($day),3) //$filename=sprintf("pntlist/r29/%04d/Boss/r29pnt.%03d",$year, $day); $filename=sprintf("pntlist/r29/%04d/boss/r29pnt.%s",$year, substr("000".$day,strlen($day),3)); } // end select 1 // $filename=$basepath.$filename; $dir1 = substr($filename,0,rat("/",$filename)+1); $filename = substr($filename,rat("/",$filename)+1); $lfnam1 = $basepath.$dir1.strtolower($filename); $ufnam1 = $basepath.$dir1.strtoupper($filename); //echo "[".$dir1."]\r\n"; //echo "[".$filename."]\r\n"; //echo "[".$lfnam1."]\r\n"; //echo "[".$ufnam1."]\r\n"; // [nodelist/1984] // [nl84-006.zip] // [/pub/fidohist/nodelist/1984nl84-006.zip] // [/pub/fidohist/nodelist/1984NL84-006.ZIP] // [nodelist/1984/] // [nl84-006.zip] // [/pub/fidohist/nodelist/1984/nl84-006.zip] // [/pub/fidohist/nodelist/1984/NL84-006.ZIP] $tcolor = 4; // 4: FFFF00 5: FFFFFF $bcolor = "#338899"; // pre: #338899 post:#66cccc $fvar = 0; if ($filename3!="") { // check filename3 variant // r46 pnt 2004: z02 ... is 002 ... and z03 ... 303 (!) only 1 exists // 2009: z35 ... is 037 ... and z35 is 135 // incorrect assumptions // check if filedate is in range of publishing date $dir3 = substr($filename3,0,rat("/",$filename3)+1); $filename3 = substr($filename3,rat("/",$filename3)+1); $lfnam3 = $basepath.$dir3.strtolower($filename3); $ufnam3 = $basepath.$dir3.strtoupper($filename3); if ($filename2!="") { $dir2 = substr($filename2,0,rat("/",$filename2)+1); $filename2 = substr($filename2,rat("/",$filename2)+1); $lfnam2 = $basepath.$dir2.strtolower($filename2); $ufnam2 = $basepath.$dir2.strtoupper($filename2); } else { $lfnam3 = $basepath.$dir3.strtolower($filename3); $ufnam3 = $basepath.$dir3.strtoupper($filename3); } // echo filemtime("test.txt"); // echo "<br />"; // echo "Last modified: ".date("F d Y H:i:s.",filemtime("test.txt")); // 1139919766 // Last modified: February 14 2006 13:22:46. if ( (file_exists($basepath2.$lfnam1)) OR (file_exists($basepath2.$lfnam2)) OR (file_exists($basepath2.$lfnam3)) OR (file_exists($basepath2.$ufnam1)) OR (file_exists($basepath2.$ufnam2)) OR (file_exists($basepath2.$ufnam3)) ) { // ^^^^^^^^^^^ fall 1 or ^^^^^ fall 2 or ^^^^^^^^ fall 3 $fnrq = ""; // find variant one of three $fndx = False; if ((file_exists($basepath2.$lfnam1))) { if (indaterange($testdate,filemtime($basepath2.$lfnam1))) { $fnrq = $lfnam1; $fndx = True; } } // } else { if (!($fndx)) { if ((file_exists($basepath2.$ufnam1))) { if (indaterange($testdate,filemtime($basepath2.$ufnam1))) { $fnrq = $ufnam1; $fndx = True; } } // } else { if (!($fndx)) { if ((file_exists($basepath2.$lfnam2))) { if (indaterange($testdate,filemtime($basepath2.$lfnam2))) { $fnrq = $lfnam2; $fndx = True; } } if (!($fndx)) { // } else { if ((file_exists($basepath2.$ufnam2))) { if (indaterange($testdate,filemtime($basepath2.$ufnam2))) { $fnrq = $ufnam2; $fndx = True; } } if (!($fndx)) { // } else { if ((file_exists($basepath2.$lfnam3))) { if (indaterange($testdate,filemtime($basepath2.$lfnam3))) { $fnrq = $lfnam3; $fndx = True; } } // } else { if (!($fndx)) { if ((file_exists($basepath2.$ufnam3))) { if (indaterange($testdate,filemtime($basepath2.$lfnam3))) { $fnrq = $ufnam3; $fndx = True; } } // } else { if (!($fndx)) { $fnrq = ""; } } } } } } if ($fndx) { $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."\" alt=\"".$atext." day#".$day."/".$year."\" title=\"".$atext." day#".$day."/".$year."\" class='s241'>$printweek</a>"; } else { if ((((($year==1987) && ($day>212)) OR (($year>1987))) ) ) { // && ($slct!=3) // DEFAULT $printday="<a href=\"".$reqpath.$fnrq."\" alt=\"".$atext." day#".$day."/".$year."\" title=\"".$atext." day#".$day."/".$year."\" class='s2'>$printday</a>"; $printweek="<a href=\"".$reqpath.$fnrq."\" alt=\"".$atext." day#".$day."/".$year."\" title=\"".$atext." day#".$day."/".$year."\" class='s2'>$printweek</a>"; } else { $printday="<a href=\"".$reqpath.$fnrq."\" alt=\"".$atext." day#".$day."/".$year."\" title=\"".$atext." day#".$day."/".$year."\" class='srch'>$printday</a>"; $printweek="<a href=\"".$reqpath.$fnrq."\" alt=\"".$atext." day#".$day."/".$year."\" title=\"".$atext." day#".$day."/".$year."\" 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=$printday."\n"; $printweek=$printweek."\n"; $tcolor = 4; // 4: FFFF00 5: FFFFFF } else { $printday=$printday."\n"; $printweek=$printweek."\n"; $tcolor = 5; // 4: FFFF00 5: FFFFFF } } } } 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=$printday."\n"; $printweek=$printweek."\n"; $tcolor = 4; // 4: FFFF00 5: FFFFFF } else { $printday=$printday."\n"; $printweek=$printweek."\n"; $tcolor = 5; // 4: FFFF00 5: FFFFFF } } } } else { if ($filename2!="") { $dir2 = substr($filename2,0,rat("/",$filename2)+1); $filename2 = substr($filename2,rat("/",$filename2)+1); $lfnam2 = $basepath.$dir2.strtolower($filename2); $ufnam2 = $basepath.$dir2.strtoupper($filename2); if ( (file_exists($basepath2.$lfnam1)) OR (file_exists($basepath2.$lfnam2)) OR (file_exists($basepath2.$ufnam1)) OR (file_exists($basepath2.$ufnam2)) ) { $fnrq = ""; if ((file_exists($basepath2.$lfnam1))) { $fnrq = $lfnam1; } else { if ((file_exists($basepath2.$ufnam1))) { $fnrq = $ufnam1; } else { if ((file_exists($basepath2.$lfnam2))) { $fnrq = $lfnam2; } else { if ((file_exists($basepath2.$ufnam2))) { $fnrq = $ufnam2; } else { $fnrq = ""; } } } } $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."\" alt=\"".$atext." day#".$day."/".$year."\" title=\"".$atext." day#".$day."/".$year."\" class='s241'>$printweek</a>"; } else { if ((((($year==1987) && ($day>212)) OR (($year>1987))) ) ) { // && ($slct!=3) // DEFAULT $printday="<a href=\"".$reqpath.$fnrq."\" alt=\"".$atext." day#".$day."/".$year."\" title=\"".$atext." day#".$day."/".$year."\" class='s2'>$printday</a>"; $printweek="<a href=\"".$reqpath.$fnrq."\" alt=\"".$atext." day#".$day."/".$year."\" title=\"".$atext." day#".$day."/".$year."\" class='s2'>$printweek</a>"; } else { $printday="<a href=\"".$reqpath.$fnrq."\" alt=\"".$atext." day#".$day."/".$year."\" title=\"".$atext." day#".$day."/".$year."\" class='srch'>$printday</a>"; $printweek="<a href=\"".$reqpath.$fnrq."\" alt=\"".$atext." day#".$day."/".$year."\" title=\"".$atext." day#".$day."/".$year."\" 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=$printday."\n"; $printweek=$printweek."\n"; $tcolor = 4; // 4: FFFF00 5: FFFFFF } else { $printday=$printday."\n"; $printweek=$printweek."\n"; $tcolor = 5; // 4: FFFF00 5: FFFFFF } } } } else { if ( (file_exists($basepath2.$lfnam1)) OR (file_exists($basepath2.$ufnam1)) ) { $fnrq = ""; if ((file_exists($basepath2.$lfnam1))) { $fnrq = $lfnam1; } else { if ((file_exists($basepath2.$ufnam1))) { $fnrq = $ufnam1; } else { $fnrq = ""; } } // 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.$fnrq."' class='infobox'>$printday<span>".$exception["note"][$fnd]."</span></a>"; $printweek="<a href='".$reqpath.$fnrq."' 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.$fnrq."' alt=\"".$atext." day#".$day."/".$year."\" title=\"".$atext." day#".$day."/".$year."\" class='s2'>$printday</a>"; $printweek="<a href=\"".$reqpath.$fnrq."\" alt=\"".$atext." day#".$day."/".$year."\" title=\"".$atext." day#".$day."/".$year."\" class='s2'>$printweek</a>"; } else { $printday="<a href='".$reqpath.$fnrq."' alt=\"".$atext." day#".$day."/".$year."\" title=\"".$atext." day#".$day."/".$year."\" class='srch'>$printday</a>"; $printweek="<a href='".$reqpath.$fnrq."' alt=\"".$atext." day#".$day."/".$year."\" title=\"".$atext." day#".$day."/".$year."\" 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=$printday."\n"; $printweek=$printweek."\n"; $tcolor = 4; // 4: FFFF00 5: FFFFFF } else { $printday=$printday."\n"; $printweek=$printweek."\n"; $tcolor = 5; // 4: FFFF00 5: FFFFFF } } } } } if ($slct==3) { if ($tcolor==4) { // $tcolor = 5; // 4: FFFF00 5: FFFFFF // $bcolor = "#338899"; // pre: #338899 post:#66cccc echo "<TH class='fhp2a4' width='7%'>"; echo $printweek."</TH>\n"; } else { echo "<TH class='fhp2a5' width='7%'>"; echo $printweek."</TH>\n"; } } else { if ((($year==1987) && ($day>212)) OR (($year>1987)) ) { // $tcolor = 5; // 4: FFFF00 5: FFFFFF // $bcolor = "#338899"; // pre: #338899 post:#66cccc if ($tcolor==4) { echo "<TH class='fhp2a4' width='7%'>"; } else { echo "<TH class='fhp2a5' width='7%'>"; } // echo "<TH bgcolor='#66cccc' width='40'>"; } else { if ($tcolor==4) { echo "<TH class='fhp2a4pre' width='7%'>"; } else { echo "<TH class='fhp2a5pre' width='7%'>"; } // echo "<TH bgcolor='#338899' width='40'>"; } echo $printday."</TH>\n"; } $day=$day+7; $week++; // week 53 exceptions if (($slct==3) && ((($year==1990) && ($week==53)) || (($year==1996) && ($week==53)) || (($year==2000) && ($week==53)) || (($year==2001) && ($week==53)) || (($year==2007) && ($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 class='fhp2a5'>"; } else { if ((($year==1987) && ($day>212)) OR (($year>1987)) ) { echo "<TH class='fhp2a5' width='7%'>"; } else { echo "<TH class='fhp2a5pre' width='7%'>"; } } echo " </TH>\n"; $teller++; } } echo "</tr>\n"; } echo "<TR class='fhp2a0'>\n"; echo "<TH colspan='12' class='fhp2a1'></TH>\n"; echo "</TR>\n"; $tmnth = date("n",$datum); $tday = date("j",$datum); $tyr = date("Y",$datum); //$year=$tyr+1; echo "</table>\n"; flush(); } ?> <!-- /td></tr> </table --> </center> </div> <?php } else { // :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: // ::::: // ::::: Section II last 5 weeks listing // ::::: // :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: // Codecriterion == 4 Last 5 weeks // echo "CODE CRITERION = 4"; // dirmask types: // only 1 $tmpp[0]=sprintf("pntlist/r50/%04d/poss",$year); // filemask types: // 1 $filename=sprintf("nodelist/%04d/nl%02s-%03d.zip",$year,substr($year,2,2),$day); // 2 $filename=sprintf("nodelist/%04d/diff/nodediff.z%s",$year, substr("00".$day,strlen($day),2)); // 3 $filename=sprintf("fidonews/%04d/fido%s%s.nws",$year,$fidoyear, substr("00".($week-47),strlen(($week-47)),2)); // $filename=sprintf("fidonews/%04d/fido%s%s.nws",$year,$fidoyear, substr("00".$week,strlen($week),2)); $llc = 0; $ll[$llc]['code_criterion'] = 1; $ll[$llc]['zone_criterion'] = 0; $ll[$llc]['list_criterion'] = 1; $ll[$llc]['dirmask'] = "nodelist/%04d"; $ll[$llc]['filemask'] = "nl%02s-%03d.zip"; $ll[$llc]['fmt'] = 1; $ll[$llc]['description'] = "Nodelist (World)"; $ll[$llc]['descfrmt'] = "Nodelist"; $ll[$llc]['format'] = ""; $ll[$llc]['startyear'] = 1984; $ll[$llc]['lastyear'] = 0; $llc++; $ll[$llc]['code_criterion'] = 1; $ll[$llc]['zone_criterion'] = 0; $ll[$llc]['list_criterion'] = 2; $ll[$llc]['dirmask'] = "nodelist/%04d/diff"; $ll[$llc]['filemask'] = "nodediff.z%s"; $ll[$llc]['fmt'] = 2; $ll[$llc]['description'] = "Nodediff (World)"; $ll[$llc]['descfrmt'] = "Nodediff"; $ll[$llc]['format'] = ""; $ll[$llc]['startyear'] = 1984; $ll[$llc]['lastyear'] = 0; // bedingt $llc++; $ll[$llc]['code_criterion'] = 2; $ll[$llc]['zone_criterion'] = 20; $ll[$llc]['list_criterion'] = 21; $ll[$llc]['dirmask'] = "pntlist/z2/%04d/poss"; $ll[$llc]['filemask'] = "z2pnt.z%s"; $ll[$llc]['fmt'] = 2; $ll[$llc]['description'] = "Z2 Pointlist (Europe)"; $ll[$llc]['descfrmt'] = "Z2<br>Pointlist"; $ll[$llc]['format'] = "Poss"; $ll[$llc]['startyear'] = 1999; $ll[$llc]['lastyear'] = 2007; // bedingt $llc++; $ll[$llc]['code_criterion'] = 2; $ll[$llc]['zone_criterion'] = 20; $ll[$llc]['list_criterion'] = 22; $ll[$llc]['dirmask'] = "pntlist/z2/%04d/poss/diff"; $ll[$llc]['filemask'] = "z2pnt_d.z%s"; $ll[$llc]['fmt'] = 2; $ll[$llc]['description'] = "Z2 Pointdiff (Europe)"; $ll[$llc]['descfrmt'] = "Z2<br>Pointdiff"; $ll[$llc]['format'] = "Poss"; $ll[$llc]['startyear'] = 1999; $ll[$llc]['lastyear'] = 2007; // yes $llc++; $ll[$llc]['code_criterion'] = 2; $ll[$llc]['zone_criterion'] = 20; $ll[$llc]['list_criterion'] = 26; $ll[$llc]['dirmask'] = "pntlist/z2/%04d/boss"; $ll[$llc]['filemask'] = "z2pnt.z%s"; $ll[$llc]['fmt'] = 2; $ll[$llc]['description'] = "Z2 Pointlist (Europe)"; $ll[$llc]['descfrmt'] = "Z2<br>Pointlist"; $ll[$llc]['format'] = "Boss"; $ll[$llc]['startyear'] = 2007; $ll[$llc]['lastyear'] = 0; // yes $llc++; $ll[$llc]['code_criterion'] = 2; $ll[$llc]['zone_criterion'] = 20; $ll[$llc]['list_criterion'] = 27; $ll[$llc]['dirmask'] = "pntlist/z2/%04d/boss/diff"; $ll[$llc]['filemask'] = "z2pnt_d.z%s"; $ll[$llc]['fmt'] = 2; $ll[$llc]['description'] = "Z2 Pointdiff (Europe)"; $ll[$llc]['descfrmt'] = "Z2<br>Pointdiff"; $ll[$llc]['format'] = "Boss"; $ll[$llc]['startyear'] = 2007; $ll[$llc]['lastyear'] = 0; // yes $llc++; $ll[$llc]['code_criterion'] = 2; $ll[$llc]['zone_criterion'] = 25; $ll[$llc]['list_criterion'] = 25; $ll[$llc]['dirmask'] = "pntlist/r20/%04d/boss"; $ll[$llc]['filemask'] = "r20pnt.%s"; $ll[$llc]['fmt'] = 4; $ll[$llc]['description'] = "R20 Pointlist (N-Europe)"; $ll[$llc]['descfrmt'] = "R20<br>Pointlist"; $ll[$llc]['format'] = "Boss"; $ll[$llc]['startyear'] = 2014; $ll[$llc]['lastyear'] = 0; // fehlt $llc++; $ll[$llc]['code_criterion'] = 2; $ll[$llc]['zone_criterion'] = 55; $ll[$llc]['list_criterion'] = 56; $ll[$llc]['dirmask'] = "pntlist/r22/%04d/poss"; $ll[$llc]['filemask'] = "r22pnt.z%s"; $ll[$llc]['fmt'] = 2; $ll[$llc]['description'] = "R22 Pointlist (FI)"; $ll[$llc]['descfrmt'] = "R22<br>Pointlist"; $ll[$llc]['format'] = "Poss"; $ll[$llc]['startyear'] = 2008; $ll[$llc]['lastyear'] = 2014; // fehlt $llc++; $ll[$llc]['code_criterion'] = 2; $ll[$llc]['zone_criterion'] = 60; $ll[$llc]['list_criterion'] = 61; $ll[$llc]['dirmask'] = "pntlist/r23/%04d/boss"; $ll[$llc]['filemask'] = "r23pnt.z%s"; $ll[$llc]['fmt'] = 2; $ll[$llc]['description'] = "R23 Pointlist (DK)"; $ll[$llc]['descfrmt'] = "R23<br>Pointlist"; $ll[$llc]['format'] = "Boss"; $ll[$llc]['startyear'] = 1992; $ll[$llc]['lastyear'] = 2014; // 2005 /* $llc++; $ll[$llc]['code_criterion'] = 2; $ll[$llc]['zone_criterion'] = 60; $ll[$llc]['list_criterion'] = 62; $ll[$llc]['dirmask'] = "pntlist/r23/%04d/boss/diff"; $ll[$llc]['filemask'] = "r23pnt_d.z%s"; $ll[$llc]['fmt'] = 2; $ll[$llc]['description'] = "R23 Pointdiff (DK)"; $ll[$llc]['descfrmt'] = "R23<br>Pointdiff"; $ll[$llc]['format'] = "Boss"; $ll[$llc]['startyear'] = 1992; $ll[$llc]['lastyear'] = 0; // 2005 */ // fehlt $llc++; $ll[$llc]['code_criterion'] = 2; $ll[$llc]['zone_criterion'] = 60; $ll[$llc]['list_criterion'] = 63; $ll[$llc]['dirmask'] = "pntlist/r23/%04d/fake"; $ll[$llc]['filemask'] = "dk-point.z%s"; $ll[$llc]['fmt'] = 2; $ll[$llc]['description'] = "R23 Pointlist (DK)"; $ll[$llc]['descfrmt'] = "R23<br>Pointlist"; $ll[$llc]['format'] = "Fakenet"; $ll[$llc]['startyear'] = 1992; $ll[$llc]['lastyear'] = 0; // 2005 // fehlt $llc++; $ll[$llc]['code_criterion'] = 2; $ll[$llc]['zone_criterion'] = 60; $ll[$llc]['list_criterion'] = 64; $ll[$llc]['dirmask'] = "pntlist/r23/%04d/fake/diff"; $ll[$llc]['filemask'] = "dkp-diff.z%s"; $ll[$llc]['fmt'] = 2; $ll[$llc]['description'] = "R23 Pointdiff (DK)"; $ll[$llc]['descfrmt'] = "R23<br>Pointdiff"; $ll[$llc]['format'] = "Fakenet"; $ll[$llc]['startyear'] = 1992; $ll[$llc]['lastyear'] = 0; // 2005 // yes $llc++; $ll[$llc]['code_criterion'] = 2; $ll[$llc]['zone_criterion'] = 30; $ll[$llc]['list_criterion'] = 31; $ll[$llc]['dirmask'] = "pntlist/r24/%04d/boss"; $ll[$llc]['filemask'] = "r24pnt.z%s"; $ll[$llc]['fmt'] = 2; $ll[$llc]['description'] = "R24 Pointlist (DE)"; $ll[$llc]['descfrmt'] = "R24<br>Pointlist"; $ll[$llc]['format'] = "Boss"; $ll[$llc]['startyear'] = 1989; $ll[$llc]['lastyear'] = 0; // yes $llc++; $ll[$llc]['code_criterion'] = 2; $ll[$llc]['zone_criterion'] = 30; $ll[$llc]['list_criterion'] = 32; $ll[$llc]['dirmask'] = "pntlist/r24/%04d/boss/diff"; $ll[$llc]['filemask'] = "r24pnt_d.z%s"; $ll[$llc]['fmt'] = 2; $ll[$llc]['description'] = "R24 Pointdiff (DE)"; $ll[$llc]['descfrmt'] = "R24<br>Pointdiff"; $ll[$llc]['format'] = "Boss"; $ll[$llc]['startyear'] = 1989; $ll[$llc]['lastyear'] = 0; // yes $llc++; $ll[$llc]['code_criterion'] = 2; $ll[$llc]['zone_criterion'] = 30; $ll[$llc]['list_criterion'] = 33; $ll[$llc]['dirmask'] = "pntlist/r24/%04d/fake"; $ll[$llc]['filemask'] = "points24.z%s"; $ll[$llc]['fmt'] = 2; $ll[$llc]['description'] = "R24 Pointlist (DE)"; $ll[$llc]['descfrmt'] = "R24<br>Pointlist"; $ll[$llc]['format'] = "Fakenet"; $ll[$llc]['startyear'] = 1989; $ll[$llc]['lastyear'] = 0; // yes $llc++; $ll[$llc]['code_criterion'] = 2; $ll[$llc]['zone_criterion'] = 30; $ll[$llc]['list_criterion'] = 34; $ll[$llc]['dirmask'] = "pntlist/r24/%04d/fake/diff"; $ll[$llc]['filemask'] = "pr24diff.z%s"; $ll[$llc]['fmt'] = 2; $ll[$llc]['description'] = "R24 Pointdiff (DE)"; $ll[$llc]['descfrmt'] = "R24<br>Pointdiff"; $ll[$llc]['format'] = "Fakenet"; $ll[$llc]['startyear'] = 1989; $ll[$llc]['lastyear'] = 0; // yes $llc++; $ll[$llc]['code_criterion'] = 2; $ll[$llc]['zone_criterion'] = 40; $ll[$llc]['list_criterion'] = 41; $ll[$llc]['dirmask'] = "pntlist/r28/%04d/boss"; $ll[$llc]['filemask'] = "p28-list.z%s"; $ll[$llc]['fmt'] = 2; $ll[$llc]['description'] = "R28 Pointlist (NL)"; $ll[$llc]['descfrmt'] = "R28<br>Pointlist"; $ll[$llc]['format'] = "Boss"; $ll[$llc]['startyear'] = 1997; $ll[$llc]['lastyear'] = 0; /* $llc++; $ll[$llc]['code_criterion'] = 2; $ll[$llc]['zone_criterion'] = 40; $ll[$llc]['list_criterion'] = 42; $ll[$llc]['dirmask'] = "pntlist/r28/%04d/boss/diff"; $ll[$llc]['filemask'] = "p28-diff.z%s"; $ll[$llc]['fmt'] = 2; $ll[$llc]['description'] = "R28 Pointdiff (NL)"; $ll[$llc]['descfrmt'] = "R28<br>Pointdiff"; $ll[$llc]['format'] = "Boss"; $ll[$llc]['startyear'] = 1997; $ll[$llc]['lastyear'] = 2013; */ // fehlt $llc++; $ll[$llc]['code_criterion'] = 2; $ll[$llc]['zone_criterion'] = 40; $ll[$llc]['list_criterion'] = 43; $ll[$llc]['dirmask'] = "pntlist/r28/%04d/fidouser"; $ll[$llc]['filemask'] = "pointl%s.zip"; $ll[$llc]['fmt'] = 2; $ll[$llc]['description'] = "R28 Pointlist (NL)"; $ll[$llc]['descfrmt'] = "R28<br>Pointlist"; $ll[$llc]['format'] = "Fidouser"; $ll[$llc]['startyear'] = 1997; $ll[$llc]['lastyear'] = 0; // fehlt $llc++; $ll[$llc]['code_criterion'] = 2; $ll[$llc]['zone_criterion'] = 40; $ll[$llc]['list_criterion'] = 44; $ll[$llc]['dirmask'] = "pntlist/r28/%04d/fidouser/diff"; $ll[$llc]['filemask'] = "pointl%s.zip"; $ll[$llc]['fmt'] = 2; $ll[$llc]['description'] = "R28 Pointdiff (NL)"; $ll[$llc]['descfrmt'] = "R28<br>Pointdiff"; $ll[$llc]['format'] = "Fidouser"; $ll[$llc]['startyear'] = 1997; $ll[$llc]['lastyear'] = 0; // fehlt $llc++; $ll[$llc]['code_criterion'] = 2; $ll[$llc]['zone_criterion'] = 100; $ll[$llc]['list_criterion'] = 101; $ll[$llc]['dirmask'] = "pntlist/r29/%04d/boss"; $ll[$llc]['filemask'] = "r29pnt_b.z%s"; $ll[$llc]['fmt'] = 2; $ll[$llc]['description'] = "R29 Pointlist (BE)"; $ll[$llc]['descfrmt'] = "R29<br>Pointlist"; $ll[$llc]['format'] = "Boss"; $ll[$llc]['startyear'] = 1997; $ll[$llc]['lastyear'] = 2001; // fehlt $llc++; $ll[$llc]['code_criterion'] = 2; $ll[$llc]['zone_criterion'] = 100; $ll[$llc]['list_criterion'] = 103; $ll[$llc]['dirmask'] = "pntlist/r29/%04d/v7"; $ll[$llc]['filemask'] = "r29pnt_p.z%s"; $ll[$llc]['fmt'] = 2; $ll[$llc]['description'] = "R29 Pointlist (BE)"; $ll[$llc]['descfrmt'] = "R29<br>Pointlist"; $ll[$llc]['format'] = "Points,V7"; $ll[$llc]['startyear'] = 1997; $ll[$llc]['lastyear'] = 2001; // yes $llc++; $ll[$llc]['code_criterion'] = 2; $ll[$llc]['zone_criterion'] = 100; $ll[$llc]['list_criterion'] = 105; $ll[$llc]['dirmask'] = "pntlist/r29/%04d/boss"; $ll[$llc]['filemask'] = "r29pnt.%s"; $ll[$llc]['fmt'] = 4; $ll[$llc]['description'] = "R29 Pointlist (BE)"; $ll[$llc]['descfrmt'] = "R29<br>Pointlist"; $ll[$llc]['format'] = "Boss"; $ll[$llc]['startyear'] = 2017; $ll[$llc]['lastyear'] = 0; // yes $llc++; $ll[$llc]['code_criterion'] = 2; $ll[$llc]['zone_criterion'] = 50; $ll[$llc]['list_criterion'] = 51; $ll[$llc]['dirmask'] = "pntlist/r31/%04d/boss"; $ll[$llc]['filemask'] = "r31pnt.z%s"; $ll[$llc]['fmt'] = 2; $ll[$llc]['description'] = "R31 Pointlist (AT)"; $ll[$llc]['descfrmt'] = "R31<br>Pointlist"; $ll[$llc]['format'] = "Boss"; $ll[$llc]['startyear'] = 1998; $ll[$llc]['lastyear'] = 0; // fehlt $llc++; $ll[$llc]['code_criterion'] = 2; $ll[$llc]['zone_criterion'] = 50; $ll[$llc]['list_criterion'] = 52; $ll[$llc]['dirmask'] = "pntlist/r31/%04d/boss/diff"; $ll[$llc]['filemask'] = "r31pnt_d.z%s"; $ll[$llc]['fmt'] = 2; $ll[$llc]['description'] = "R31 Pointlist (AT)"; $ll[$llc]['descfrmt'] = "R31<br>Pointlist"; $ll[$llc]['format'] = "Boss"; $ll[$llc]['startyear'] = 1998; $ll[$llc]['lastyear'] = 0; // yes $llc++; $ll[$llc]['code_criterion'] = 2; $ll[$llc]['zone_criterion'] = 50; $ll[$llc]['list_criterion'] = 53; $ll[$llc]['dirmask'] = "pntlist/r31/%04d/v7"; $ll[$llc]['filemask'] = "point4d.a%s"; $ll[$llc]['fmt'] = 2; $ll[$llc]['description'] = "R31 Pointlist (AT)"; $ll[$llc]['descfrmt'] = "R31<br>Pointlist"; $ll[$llc]['format'] = "Points,V7"; $ll[$llc]['startyear'] = 1998; $ll[$llc]['lastyear'] = 0; // fehlt $llc++; $ll[$llc]['code_criterion'] = 2; $ll[$llc]['zone_criterion'] = 50; $ll[$llc]['list_criterion'] = 54; $ll[$llc]['dirmask'] = "pntlist/r31/%04d/v7/diff"; $ll[$llc]['filemask'] = "point4d.z%s"; $ll[$llc]['fmt'] = 2; $ll[$llc]['description'] = "R31 Pointlist (AT)"; $ll[$llc]['descfrmt'] = "R31<br>Pointlist"; $ll[$llc]['format'] = "Points,V7"; $ll[$llc]['startyear'] = 1998; $ll[$llc]['lastyear'] = 0; $llc++; $ll[$llc]['code_criterion'] = 2; $ll[$llc]['zone_criterion'] = 65; $ll[$llc]['list_criterion'] = 66; $ll[$llc]['dirmask'] = "pntlist/r33/%04d/boss"; $ll[$llc]['filemask'] = "r33pnt.z%s"; $ll[$llc]['fmt'] = 2; $ll[$llc]['description'] = "R33 Pointlist (I)"; $ll[$llc]['descfrmt'] = "R33<br>Pointlist"; $ll[$llc]['format'] = "Boss"; $ll[$llc]['startyear'] = 2017; $ll[$llc]['lastyear'] = 0; /* $llc++; $ll[$llc]['code_criterion'] = 2; $ll[$llc]['zone_criterion'] = 70; $ll[$llc]['list_criterion'] = 71; $ll[$llc]['dirmask'] = "pntlist/r34/%04d/boss"; $ll[$llc]['filemask'] = "ptlstr34.z%s"; $ll[$llc]['fmt'] = 2; $ll[$llc]['description'] = "R34 Pointlist (ES)"; $ll[$llc]['descfrmt'] = "R34<br>Pointlist"; $ll[$llc]['format'] = "Boss"; $ll[$llc]['startyear'] = 2001; $ll[$llc]['lastyear'] = 0; $llc++; $ll[$llc]['code_criterion'] = 2; $ll[$llc]['zone_criterion'] = 70; $ll[$llc]['list_criterion'] = 72; $ll[$llc]['dirmask'] = "pntlist/r34/%04d/boss/diff"; $ll[$llc]['filemask'] = "ptdifr34.z%s"; $ll[$llc]['fmt'] = 2; $ll[$llc]['description'] = "R34 Pointdiff (ES)"; $ll[$llc]['descfrmt'] = "R34<br>Pointdiff"; $ll[$llc]['format'] = "Boss"; $ll[$llc]['startyear'] = 2001; $ll[$llc]['lastyear'] = 0; $llc++; $ll[$llc]['code_criterion'] = 2; $ll[$llc]['zone_criterion'] = 70; $ll[$llc]['list_criterion'] = 73; $ll[$llc]['dirmask'] = "pntlist/r34/%04d/fake"; $ll[$llc]['filemask'] = "pointr34.z%s"; $ll[$llc]['fmt'] = 2; $ll[$llc]['description'] = "R34 Pointlist (ES)"; $ll[$llc]['descfrmt'] = "R34<br>Pointlist"; $ll[$llc]['format'] = "Fakenet"; $ll[$llc]['startyear'] = 2001; $ll[$llc]['lastyear'] = 0; $llc++; $ll[$llc]['code_criterion'] = 2; $ll[$llc]['zone_criterion'] = 70; $ll[$llc]['list_criterion'] = 74; $ll[$llc]['dirmask'] = "pntlist/r34/%04d/fake/diff"; $ll[$llc]['filemask'] = "pdiffr34.z%s"; $ll[$llc]['fmt'] = 2; $ll[$llc]['description'] = "R34 Pointdiff (ES)"; $ll[$llc]['descfrmt'] = "R34<br>Pointdiff"; $ll[$llc]['format'] = "Fakenet"; $ll[$llc]['startyear'] = 2001; $ll[$llc]['lastyear'] = 0; */ $llc++; $ll[$llc]['code_criterion'] = 2; $ll[$llc]['zone_criterion'] = 78; $ll[$llc]['list_criterion'] = 78; $ll[$llc]['dirmask'] = "pntlist/r45/%04d/boss"; $ll[$llc]['filemask'] = "r45pnt.z%s"; $ll[$llc]['fmt'] = 2; $ll[$llc]['description'] = "R45 Pointlist (BY)"; $ll[$llc]['descfrmt'] = "R45<br>Pointlist"; $ll[$llc]['format'] = "Boss"; $ll[$llc]['startyear'] = 2018; $ll[$llc]['lastyear'] = 0; /* $llc++; $ll[$llc]['code_criterion'] = 2; $ll[$llc]['zone_criterion'] = 75; $ll[$llc]['list_criterion'] = 77; $ll[$llc]['dirmask'] = "pntlist/r45/%04d/poss/diff"; $ll[$llc]['filemask'] = "r45pdiff.z%s"; $ll[$llc]['fmt'] = 2; $ll[$llc]['description'] = "R45 Pointdiff (BY)"; $ll[$llc]['descfrmt'] = "R45<br>Pointdiff"; $ll[$llc]['format'] = "Poss"; $ll[$llc]['startyear'] = 2004; $ll[$llc]['lastyear'] = 0; */ $llc++; $ll[$llc]['code_criterion'] = 2; $ll[$llc]['zone_criterion'] = 80; $ll[$llc]['list_criterion'] = 81; $ll[$llc]['dirmask'] = "pntlist/r46/%04d/poss"; $ll[$llc]['filemask'] = "pnt46reg.z%s"; // $ll[$llc]['fmt'] = 2; $ll[$llc]['fmt'] = 5; $ll[$llc]['description'] = "R46 Pointlist"; $ll[$llc]['descfrmt'] = "R46<br>Pointlist"; $ll[$llc]['format'] = "Poss"; $ll[$llc]['startyear'] = 1997; $ll[$llc]['lastyear'] = 0; /* $llc++; $ll[$llc]['code_criterion'] = 2; $ll[$llc]['zone_criterion'] = 80; $ll[$llc]['list_criterion'] = 81; $ll[$llc]['dirmask'] = "pntlist/r46/%04d/poss/diff"; $ll[$llc]['filemask'] = "r46pdiff.z%s"; $ll[$llc]['fmt'] = 2; $ll[$llc]['description'] = "R46 Pointdiff"; $ll[$llc]['descfrmt'] = "R46<br>Pointdiff"; $ll[$llc]['format'] = "Poss"; $ll[$llc]['startyear'] = 1997; $ll[$llc]['lastyear'] = 0; */ // fehlt $llc++; $ll[$llc]['code_criterion'] = 2; $ll[$llc]['zone_criterion'] = 85; $ll[$llc]['list_criterion'] = 86; $ll[$llc]['dirmask'] = "pntlist/r48/%04d/boss"; $ll[$llc]['filemask'] = "point_48.z%s"; $ll[$llc]['fmt'] = 2; $ll[$llc]['description'] = "R48 Pointlist (PL)"; $ll[$llc]['descfrmt'] = "R48<br>Pointlist"; $ll[$llc]['format'] = "Boss"; $ll[$llc]['startyear'] = 2007; $ll[$llc]['lastyear'] = 0; // fehlt $llc++; $ll[$llc]['code_criterion'] = 2; $ll[$llc]['zone_criterion'] = 85; $ll[$llc]['list_criterion'] = 87; $ll[$llc]['dirmask'] = "pntlist/r48/%04d/boss/diff"; $ll[$llc]['filemask'] = "pointd48.z%s"; $ll[$llc]['fmt'] = 2; $ll[$llc]['description'] = "R48 Pointdiff (PL)"; $ll[$llc]['descfrmt'] = "R48<br>Pointdiff"; $ll[$llc]['format'] = "Boss"; $ll[$llc]['startyear'] = 2007; $ll[$llc]['lastyear'] = 0; // fehlt $llc++; $ll[$llc]['code_criterion'] = 2; $ll[$llc]['zone_criterion'] = 90; $ll[$llc]['list_criterion'] = 91; $ll[$llc]['dirmask'] = "pntlist/r50/%04d/poss"; $ll[$llc]['filemask'] = "r50pnt.z%s"; $ll[$llc]['fmt'] = 2; $ll[$llc]['description'] = "R50 Pointlist (RU)"; $ll[$llc]['descfrmt'] = "R50<br>Pointlist"; $ll[$llc]['format'] = "Poss"; $ll[$llc]['startyear'] = 1997; $ll[$llc]['lastyear'] = 2007; /* $llc++; $ll[$llc]['code_criterion'] = 2; $ll[$llc]['zone_criterion'] = 90; $ll[$llc]['list_criterion'] = 92; $ll[$llc]['dirmask'] = "pntlist/r50/%04d/poss/diff"; $ll[$llc]['filemask'] = "r50pnt_d.z%s"; $ll[$llc]['fmt'] = 2; $ll[$llc]['description'] = "R50 Pointdiff (RU)"; $ll[$llc]['descfrmt'] = "R50<br>Pointdiff"; $ll[$llc]['format'] = "Poss"; $ll[$llc]['startyear'] = 1997; $ll[$llc]['lastyear'] = 2007; */ // yes $llc++; $ll[$llc]['code_criterion'] = 2; $ll[$llc]['zone_criterion'] = 90; $ll[$llc]['list_criterion'] = 93; $ll[$llc]['dirmask'] = "pntlist/r50/%04d/boss"; $ll[$llc]['filemask'] = "r50pnt.z%s"; $ll[$llc]['fmt'] = 2; $ll[$llc]['description'] = "R50 Pointlist (RU)"; $ll[$llc]['descfrmt'] = "R50<br>Pointlist"; $ll[$llc]['format'] = "Boss"; $ll[$llc]['startyear'] = 2007; $ll[$llc]['lastyear'] = 0; /* $llc++; $ll[$llc]['code_criterion'] = 2; $ll[$llc]['zone_criterion'] = 90; $ll[$llc]['list_criterion'] = 94; $ll[$llc]['dirmask'] = "pntlist/r50/%04d/boss/diff"; $ll[$llc]['filemask'] = "r50pnt_d.z%s"; $ll[$llc]['fmt'] = 2; $ll[$llc]['description'] = "R50 Pointdiff (RU)"; $ll[$llc]['descfrmt'] = "R50<br>Pointdiff"; $ll[$llc]['format'] = "Boss"; $ll[$llc]['startyear'] = 2007; $ll[$llc]['lastyear'] = 0; */ // yes $llc++; $ll[$llc]['code_criterion'] = 3; $ll[$llc]['zone_criterion'] = 0; $ll[$llc]['list_criterion'] = 3; $ll[$llc]['dirmask'] = "fidonews/%04d"; $ll[$llc]['filemask'] = "fido%s%s.nws"; $ll[$llc]['fmt'] = 3; $ll[$llc]['description'] = "Fidonews"; $ll[$llc]['descfrmt'] = "Fidonews"; $ll[$llc]['format'] = ""; $ll[$llc]['startyear'] = 1984; $ll[$llc]['lastyear'] = 0; ?> <!-- TABLE summary="" border="0" width="80%"> <tr><td --> <!-- TABLE summary="FHP Search Form : main output window" border="0" width="80%"> <tr><td><center --> <!-- div align="center" --> <div class="fhp2mainout"> <center> <!-- Table main 3.4 begin --> <TABLE summary="FHP Search Form : main output window : Legend title" class="fhp2a0"> <tbody class="fhp2a0"> <TR class="fhp2a0"> <TH colspan="12" class="fhp2a1"></TH> </TR><TR class="fhp2a0"> <TH colspan="12" class="fhp2a2"> <center>Legend</center> <!-- Table main 3.4.1 begin --> <table summary="FHP Search Form : main output window : Legend" class="fhp2a2a"> <tr class="fhp2a2a"><td class="fhp2a2a"> </td><td class="fhp2a2b"><FONT color="#000000">links in black</FONT></td><td class="fhp2a2a">= file can be viewed now</td></tr> <tr class="fhp2a2a"><td class="fhp2a2a"> </td><td class="fhp2a2b"><FONT color="#FFFFFF">links in white</font></td><td class="fhp2a2a">= file has not be found by Fido historians</td></tr> <tr class="fhp2a2a"><td class="fhp2a2a"> </td><td class="fhp2a2b">links in yellow</td><td class="fhp2a2a">= file scheduled to be added to collection</td></tr> <tr class="fhp2a2a"><td class="fhp2a2a"> </td><td class="fhp2a2b"><FONT color="#FF0000">links in red</font></td><td class="fhp2a2a">= exceptions, addtl. info available</td></tr> <tr class="fhp2a2a"><td class="fhp2a2a"> </td><td class="fhp2a2pre">Background dark</td><td class="fhp2a2a">= pre makenl distributions</td></tr> <tr class="fhp2a2a"><td class="fhp2a2a"> </td><td class="fhp2a2b">Background light</td><td class="fhp2a2a">= regular makenl distribution since #219/1987</td></tr> </table> <!-- FHP Search Form : main output window : Legend --> <!-- Table main 3.4.1 end --> </TH> </TR><TR class="fhp2a0"> <TH colspan="12" class="fhp2a1"></TH> </TR> </tbody> </table> <!-- FHP Search Form : main output window : Legend title --> <!-- Table main 3.2 end --> <!-- Table main 3.2.2 begin --> <TABLE summary="FHP Search Form : main output window : lists output default" class="fhp2a0"> <TBODY class="fhp2a0"> <!-- tr><td --> <?php // Fidonews distribution is on Monday, so if Jan 1st is after Friday // but before or on Monday week 1 starts between Jan 1st and Jan 3rd // $today = getdate(); // $actyear = $today['year']; // $lastyear = $actyear; $heute=mktime(0,0,0,$today['mon'],$today['mday'],$today['year']); $datum=mktime(0,0,0,01,06,1984); // startdate 6.1.1984 $startyear=1984; // nodelist $fidoyear = ($startyear-1984)+1; $testyear= $startyear; // date("Y",$datum); $year = $testyear; $l5d[1] = 0; $l5d[2] = 0; $l5d[3] = 0; $l5d[4] = 0; $l5d[5] = 0; $l5w[1] = 0; $l5w[2] = 0; $l5w[3] = 0; $l5w[4] = 0; $l5w[5] = 0; $l5y[1] = 0; $l5y[2] = 0; $l5y[3] = 0; $l5y[4] = 0; $l5y[5] = 0; //if ($testyear<$startyear) { // echo "<tr><td>"; while ($year<=$actyear) { $sikdatum = $datum; $year=date("Y",$datum); // echo "[".$year."]"; $tyr = $year; $fidoyear=($tyr - 1984)+1; $day=date("z",$datum)+1; // ??? // calculate week for fidonews // // Fri 1 : // Sat 2 1 : // Sun 3 2 1 : // |1| .................:................................. // Mon 4 3 2 1 : // .................:................................. // Tue 5 4 3 2 : 1 // Wed 6 5 4 3 : 2 1 // Thu 7 6 5 4 : 3 2 1 // Fri 8 7 6 5 : 4 3 2 // Sat 9 8 7 6 : 5 4 3 // Sun 10 9 8 7 : 6 5 4 // |2| .................:................................. // Mon 11 10 9 8 : 7 6 5 // if ($day < 5) { $week=1; } else { $week=2; } $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)); //if (($day<367) && ($datum<=$heute)) { if ($datum<=$heute) { // leap year ? if ( ((int) ($year/4))==($year/4) ) { $testday = 367; } else { $testday = 366; } if ($day<$testday) { $l5d[1] = $l5d[2]; $l5d[2] = $l5d[3]; $l5d[3] = $l5d[4]; $l5d[4] = $l5d[5]; $l5d[5] = $day; $l5w[1] = $l5w[2]; $l5w[2] = $l5w[3]; $l5w[3] = $l5w[4]; $l5w[4] = $l5w[5]; $l5w[5] = $week; $l5y[1] = $l5y[2]; $l5y[2] = $l5y[3]; $l5y[3] = $l5y[4]; $l5y[4] = $l5y[5]; $l5y[5] = date("Y",$datum); } else { $l5d[1] = $l5d[2]; $l5d[2] = $l5d[3]; $l5d[3] = $l5d[4]; $l5d[4] = $l5d[5]; $l5d[5] = date("z",$datum)+1; $l5w[1] = $l5w[2]; $l5w[2] = $l5w[3]; $l5w[3] = $l5w[4]; $l5w[4] = $l5w[5]; $l5w[5] = 1; $l5y[1] = $l5y[2]; $l5y[2] = $l5y[3]; $l5y[3] = $l5y[4]; $l5y[4] = $l5y[5]; $l5y[5] = date("Y",$datum); } } } } // echo "</td></tr>"; $year=date("Y",$datum); $dovos = false; $dov = ""; $year2 = $year; echo "<tr class='fhp2a0'><TH colspan='2' class='fhp2a1'> </th>\r\n"; for ($j=1; $j <= 5; $j++) { echo "<TH class='fhp2a1' width='10%'><FONT class=\"smallTextY\">".$l5y[$j]."</FONT></th>\r\n"; } ?> <!-- /TH --> </TR> <?php // $llc++; // $ll[$llc]['code_criterion'] = 3; // $ll[$llc]['zone_criterion'] = 0; // $ll[$llc]['list_criterion'] = 3; // $ll[$llc]['dirmask'] = "fidonews/%04d"; // $ll[$llc]['filemask'] = "fido%s%s.nws"; // $ll[$llc]['fmt'] = 3; // $ll[$llc]['description'] = "Fidonews"; // $ll[$llc]['format'] = ""; // $ll[$llc]['startyear'] = 1984; // $ll[$llc]['lastyear'] = 0; $testdate = $heute; // date('d.m.Y',strtotime("+30 days")); // $datum=date("j.n.Y", time()+60*60*24*30); if (date("N",$testdate) < 5) { // Montag(1) -3, Dienstag(2) -4, Mittwoch(3) -5, Donnerstag(4) -6, Freitag(5) 0, Samstag(6) -1, Sonntag(7) -2 $td2 = date("Y-m-d", $testdate - ((60*60*24)*(2 + date("N",$testdate))) ); // $testdate - (2 + date("N",$testdate)); // echo "1: $td2<br>\r\n"; } else { if (date("N",$testdate) > 5) { $td2 = date("Y-m-d", $testdate + ((60*60*24)*(5 - date("N",$testdate))) ); // $testdate - (5 - date("N",$testdate)); // echo "2: $td2<br>\r\n"; } else { $td2 = date("Y-m-d",$testdate); // echo "3: $td2<br>\r\n"; } } $testdate = $td2; // startdate // $ddate = date("Y",$testdate)."-".date("m",$testdate)."-".date("d",$testdate); $ddate = $testdate; // echo "$ddate\r\n"; // $testdate = date("Y-m-d", $testdate - date("d",28)); // $testdate - 2; // startdate // // $ddate = date("Y",$testdate)."-".date("m",$testdate)."-".date("d",$testdate); // $ddate = $testdate; $testdate = date("Y-m-d", strtotime ($testdate)- (2419200+604800)); // $ddate = $testdate; // echo "$ddate\r\n"; $ddate = $testdate; // echo "1: $ddate<br>\r\n"; // $timestamp = strtotime ("2004-10-5"); // Timestamp wird erstellt // $neue_timestamp = $timestamp - 1209600; //- 14 tage // echo date("Y-m-d", $neue_timestamp); //neues Datum // $ddat2=mktime(0,0,0,date("m",$ddate),date("d",$ddate),date("Y",$ddate)); // $hlpts = strtotime($ddate); // $ddat2=mktime(0,0,0,date("m",$hlpts),date("d",$hlpts),date("Y",$hlpts)); // echo "1b: $ddat2<br>\r\n"; // 21.08.2018 04.12.1969 // 2: 21.08.2018 // 21.08.2018 04.12.1969 // 2: 17.08.2018 // 17.08.2018 04.12.1969 // 2: 17.08.2018 // 17.08.2018 01.01.1970 // 2: 2018-08-17 // 2018-08-17 01.01.1970 // 1970-01-01 // 2018-07-20 // 2020-01-03 // 2018-08-19 // $datum=mktime(0,0,0,date("m",$datum),date("d",$datum)+7,date("Y",$datum)); $lll = 0; for ($lc=0; $lc <= $llc; $lc++) { // $testdate = $testdate + 7; // echo date("Y-m-d", strtotime ("2004-10-5")-1209600); + 604800 7d $testdate = $ddate; $hlpts = strtotime($testdate); $ddat2=mktime(0,0,0,date("m",$hlpts),date("d",$hlpts),date("Y",$hlpts)); // echo "1b: $ddat2<br>\r\n"; $testdate = $ddat2; // echo "2: $testdate<br>\r\n"; // for $l5y[1] => $l5y[5]; $counts = 0; if (($ll[$lc]['startyear']<=$l5y[1]) && ( ($ll[$lc]['lastyear']==0) || ($l5y[5] <= $ll[$lc]['lastyear']) )) { $tmpp[0]=sprintf($ll[$lc]['dirmask'],$l5y[1]); // min year $tmpp[1]=sprintf($ll[$lc]['dirmask'],$l5y[5]); // max year $tmpd0=$basepath2.$basepath.$tmpp[0]; $tmpd1=$basepath2.$basepath.$tmpp[1]; if ( (is_dir($tmpd0)) || (is_dir($tmpd1)) ) { // first dir exists echo "<TR class='fhp2a0'>"; echo "<TH class='fhp2b1'> <FONT class='smallTextY'>".$ll[$lc]['description']."</FONT> </TH>"; echo "<TH class='fhp2a3pre'> "; // bgcolor #338899 ????? if ($ll[$lc]['format']!="") { echo "(".$ll[$lc]['format'].")\n"; } echo "</TH>\n"; for ($j=1; $j <= 5; $j++) { $testdate = strtotime ( date("Y-m-d H:i:s", ($testdate)+604800)); // echo "3: $testdate<br>\r\n"; // $testdate = timestamp ( date("Y-m-d H:i:s", ($testdate)+604800)); // $testdate = date("d.m.Y", strtotime ($testdate)+604800); // $l5d[1], $l5w[1], $l5y[1] $tmpp[0]=sprintf($ll[$lc]['dirmask'],$l5y[$j]); // pntlist/r24/2018 $tmpd = $basepath2.$basepath.$tmpp[0]; // server/share/pub/fidohist/pntlist/r24/2018 $tcolor = 4; $atext = "Fidonet ".preg_replace("/<br>/"," ",$ll[$lc]['description'])." ".$ll[$lc]['format']; if (is_dir($tmpd)) { // first dir exists / server/share/pub/fidohist/pntlist/r24/2018 $day = $l5d[$j]; $week = $l5w[$j]; $year = $l5y[$j]; $fidoyear=($year - 1984)+1; // regular daynumber display $printday=$day; // r46 variation ... in filename $printweek=$week; $filename2=""; switch ($ll[$lc]['fmt']) { case 5: // r46 2 formats day and day-1 $lfnam1 = strtolower(sprintf($ll[$lc]['filemask'], substr("00".$day,strlen($day),2))); $ufnam1 = strtoupper(sprintf($ll[$lc]['filemask'], substr("00".$day,strlen($day),2))); $fnrq = ""; $fndx = False; if ((file_exists($basepath2.$basepath.$tmpp[0]."/".$lfnam1))) { if (indaterange($testdate,filemtime($basepath2.$basepath.$tmpp[0]."/".$lfnam1))) { $fnrq = $lfnam1; $fndx = True; } } // } else { if (!($fndx)) { if ((file_exists($basepath2.$basepath.$tmpp[0]."/".$ufnam1))) { if (indaterange($testdate,filemtime($basepath2.$basepath.$tmpp[0]."/".$ufnam1))) { $fnrq = $ufnam1; $fndx = True; } } } if (!($fndx)) { $daym1 = $day - 1; $lfnam1 = strtolower(sprintf($ll[$lc]['filemask'], substr("00".$daym1,strlen($daym1),2))); $ufnam1 = strtoupper(sprintf($ll[$lc]['filemask'], substr("00".$daym1,strlen($daym1),2))); // // //ZSH1AMB1/VOL3/service/0_archiv.pnt46reg.z00 if ((file_exists($basepath2.$basepath.$tmpp[0]."/".$lfnam1))) { // echo "$basepath2$basepath$tmpp[0]"."/"."$lfnam1<br>\r\n"; // echo "$testdate<br>\r\n"; // echo date("Y-m-d H:i:s", ($testdate))."<br>\r\n"; /* //ZSH1AMB1/VOL3/service/0_archiv/pub/fidohist/pntlist/r46/2018/poss/pnt46reg.z00 606818 1970-01-08 01:33:38 //ZSH1AMB1/VOL3/service/0_archiv/pub/fidohist/pntlist/r46/2018/poss/pnt46reg.z07 1211618 1970-01-15 01:33:38 //ZSH1AMB1/VOL3/service/0_archiv/pub/fidohist/pntlist/r46/2018/poss/pnt46reg.z14 1816418 1970-01-22 01:33:38 //ZSH1AMB1/VOL3/service/0_archiv/pub/fidohist/pntlist/r46/2018/poss/pnt46reg.z21 2421218 1970-01-29 01:33:38 //ZSH1AMB1/VOL3/service/0_archiv/pub/fidohist/pntlist/r46/2018/poss/pnt46reg.z28 3026018 1970-02-05 01:33:38 */ if (indaterange($testdate,filemtime($basepath2.$basepath.$tmpp[0]."/".$lfnam1))) { $fnrq = $lfnam1; // echo "$fnrq<br>\r\n"; $fndx = True; } } // } else { if (!($fndx)) { if ((file_exists($basepath2.$basepath.$tmpp[0]."/".$ufnam1))) { if (indaterange($testdate,filemtime($basepath2.$basepath.$tmpp[0]."/".$ufnam1))) { $fnrq = $ufnam1; $fndx = True; } } } } if (!($fndx)) { $daym2 = $day - 1; $lfnam1 = strtolower(sprintf($ll[$lc]['filemask'], substr("00".$daym2,strlen($daym2),2))); $ufnam1 = strtoupper(sprintf($ll[$lc]['filemask'], substr("00".$daym2,strlen($daym2),2))); if ((file_exists($basepath2.$basepath.$tmpp[0]."/".$lfnam1))) { if (indaterange($testdate,filemtime($basepath2.$basepath.$tmpp[0]."/".$lfnam1))) { $fnrq = $lfnam1; $fndx = True; } } // } else { if (!($fndx)) { if ((file_exists($basepath2.$basepath.$tmpp[0]."/".$ufnam1))) { if (indaterange($testdate,filemtime($basepath2.$basepath.$tmpp[0]."/".$ufnam1))) { $fnrq = $ufnam1; $fndx = True; } } } } // $lfnam1 = $basepath.$tmpp[0]."/".$lfnam1a; // pub/fidohist/pntlist/r46/2018/filemask-lower.day-1 // $ufnaml = $basepath.$tmpp[0]."/".$ufnam1a; // pub/fidohist/pntlist/r46/2018/filemask-UPPER.day-1 // } else { if (!($fndx)) { // } else { // not found // $lfnam1 = $lfnam1a; // $ufnaml = $ufnam1a; $lfnam1 = strtolower(sprintf($ll[$lc]['filemask'], substr("00".$day,strlen($day),2))); $fnrq = $lfnam1; // echo "$lfnam1<br>\r\n"; // echo "$testdate<br>\r\n"; } $lfnam1 = $fnrq; $ufnam1 = ""; // echo "$lfnam1<br>\r\n"; break; case 4: $lfnam1 = strtolower(sprintf($ll[$lc]['filemask'], substr("000".$day,strlen($day),3))); $ufnam1 = strtoupper(sprintf($ll[$lc]['filemask'], substr("000".$day,strlen($day),3))); break; case 1: // path is no longer in sprintf(), $year removed $lfnam1 = strtolower(sprintf($ll[$lc]['filemask'],substr($year,2,2),$day)); $ufnam1 = strtoupper(sprintf($ll[$lc]['filemask'],substr($year,2,2),$day)); break; case 3: if (($year==1984)) { $lfnam1 = strtolower(sprintf($ll[$lc]['filemask'],$fidoyear, substr("00".($week-47),strlen(($week-47)),2))); $ufnam1 = strtoupper(sprintf($ll[$lc]['filemask'],$fidoyear, substr("00".($week-47),strlen(($week-47)),2))); } else { $lfnam1 = strtolower(sprintf($ll[$lc]['filemask'],$fidoyear, substr("00".$week,strlen($week),2))); $ufnam1 = strtoupper(sprintf($ll[$lc]['filemask'],$fidoyear, substr("00".$week,strlen($week),2))); } break; default: $lfnam1 = strtolower(sprintf($ll[$lc]['filemask'], substr("00".$day,strlen($day),2))); $ufnam1 = strtoupper(sprintf($ll[$lc]['filemask'], substr("00".$day,strlen($day),2))); break; } // $basepath2.$basepath.$tmpp[0]."/". $lfnam2 = $basepath.$tmpp[0]."/".$lfnam1; $ufnam2 = $basepath.$tmpp[0]."/".$ufnam1; //echo "$lfnam2<br>\r\n"; // $lfnam2 = $lfnam1; // $ufnam2 = $ufnam1; // $tmpd."/". // echo "[".$lfnam2."]\r\n"; // echo "[".$ufnam2."]\r\n"; // [/pub/fidohist/q:/service/0_archiv/pub/fidohist/nodelist/2009/nl2009-009.zip] // [/pub/fidohist/q:/service/0_archiv/pub/fidohist/nodelist/2009/NL-.ZIP] // [/pub/fidohist/nl2009-009.zip] // [/pub/fidohist/NL-.ZIP] // [/pub/fidohist/q:/service/0_archiv/pub/fidohist/nodelist/2009/nl2009-009.zip] // [/pub/fidohist/q:/service/0_archiv/pub/fidohist/nodelist/2009/NL-.ZIP] // [/pub/fidohist/nodelist/2009/nl2009-009.zip] // [/pub/fidohist/nodelist/2009/NL-.ZIP] // [/pub/fidohist/nodelist/2009/nl2009-009.zip] // [/pub/fidohist/nodelist/2009/NL2009-009.ZIP] // echo "debug: [".$basepath2."]\r\n"; if ( (file_exists($basepath2.$lfnam2)) OR (file_exists($basepath2.$ufnam2)) ) { $fnrq = ""; if ((file_exists($basepath2.$lfnam2))) { $fnrq = $basepath.$tmpp[0]."/".$lfnam1; } else { if ((file_exists($basepath2.$ufnam2))) { $fnrq = $basepath.$tmpp[0]."/".$ufnam1; } else { $fnrq = ""; } } // echo "$reqpath$fnrq<br>\r\n"; // echo "[".$fnrq."]\r\n"; // [/pub/fidohist/q:/service/0_archiv/pub/fidohist/nodelist/2009/nl2009-009.zip] // [/pub/fidohist/nl2009-009.zip] // [/pub/fidohist/q:/service/0_archiv/pub/fidohist/nodelist/2009/nl2009-009.zip] // [/pub/fidohist/nodelist/2009/nl2009-009.zip] // [/pub/fidohist/nodelist/2009/nl2009-009.zip] // should be // http://ambrosia60.dtdns.net/archiv/pub/fidohist/nodelist/2009/nl09-009.zip // |reqpath||-basepath-| |- tmpd ----| $srch[0]=$ll[$lc]['list_criterion']; $srch[1]=$year; $srch[2]=$day; $fnd = excep_find($srch,$exception); // echo "[".$reqpath."]\r\n"; // echo "[".$fnrq."]\r\n"; // [/archiv] // [q:/service/0_archiv/pub/fidohist/nodelist/2009/nl09-044.zip] // [/archiv] // [nodelist/2009/nl09-044.zip] // [/archiv] // [/pub/fidohist/nodelist/2009/nl09-044.zip] if ($fnd>-1) { // Exceptions $printday="<a href=\"".$reqpath.$fnrq."\" class='infobox'>$printday<span>".$exception["note"][$fnd]."</span></a>"; $printweek="<a href=\"".$reqpath.$fnrq."\" class='infobox'>$printweek<span>".$exception["note"][$fnd]."</span></a>"; } else { if ((((($year==1987) && ($day>212)) OR (($year>1987))) ) ) { // && ($ll[$lc]['list_criterion']!=3) // DEFAULT $printday="<a href=\"".$reqpath.$fnrq."\" alt=\"".$atext." day#".$day."/".$year."\" title=\"".$atext." day#".$day."/".$year."\" class='s2'>$printday</a>"; $printweek="<a href=\"".$reqpath.$fnrq."\" alt=\"".$atext." day#".$day."/".$year."\" title=\"".$atext." day#".$day."/".$year."\" class='s2'>$printweek</a>"; } else { $printday="<a href=\"".$reqpath.$fnrq."\" alt=\"".$atext." day#".$day."/".$year."\" title=\"".$atext." day#".$day."/".$year."\" class='srch'>$printday</a>"; $printweek="<a href=\"".$reqpath.$fnrq."\" alt=\"".$atext." day#".$day."/".$year."\" title=\"".$atext." day#".$day."/".$year."\" class='srch'>$printweek</a>"; } } } else { $srch[0]=$ll[$lc]['list_criterion']; $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=$printday."\n"; $printweek=$printweek."\n"; $tcolor = 4; } else { $printday=$printday."\n"; $printweek=$printweek."\n"; $tcolor = 5; } } } } else { $printday=" "; $printweek=" "; $tcolor = 4; } if ($ll[$lc]['list_criterion']==3) { if ($tcolor==4) { // ignore Fnews darker background echo "<TH class='fhp2a4'>"; } else { echo "<TH class='fhp2a5'>"; } // echo "<TH bgcolor='#338899'>"; echo $printweek."</TH>\n"; } else { if ((($year==1987) && ($day>212)) OR (($year>1987)) ) { if ($tcolor==4) { // echo "<TH bgcolor='#66cccc'>"; echo "<TH class='fhp2a4'>"; } else { echo "<TH class='fhp2a5'>"; } } else { if ($tcolor==4) { // echo "<TH bgcolor='#338899'>"; echo "<TH class='fhp2a4pre'>"; } else { echo "<TH class='fhp2a5pre'>"; } } echo $printday."</TH>\n"; } } echo "</TR>\r\n"; } } } ?> </TBODY> </table> </center> </div> <?php } // :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: // ::::: // ::::: Section Footer // ::::: // :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ?> <div class="fhp2mainout"> <center> <TABLE summary="FHP Search Form : main output window : footer" class="fhp2a0"> <TBODY class="fhp2a0"> <!-- /tr --> <!-- tr class='fhp2a0'> <TH colspan='12' class='fhp2b1'> </TH> </TR --> <TR class='fhp2a0'> <TH colspan='12' class='fhp2a1'></TH> </TR> <TR class='fhp2g'> <TH colspan='12' class='fhp2g1'>Credits - Original Collection of File Archives</TH> </TR> <TR class='fhp2g'> <TH colspan='12' class='fhp2g2'> <!-- FONT class='smallTextFade' --> ftp://ftp.fidonet.org/fidonet/fido-history - FIDO-HISTORY PROJECT (The Original) @ ftp.fidonet.org (Offline)<br> Ruth Argust - <A target='_blank' href='http://www.rcat.com/fido_public/' class='ext'> The Original FidoNet Nodelist Archives </A> @ The Great White South BBS (550 not avail)<br> Tony Campbell - <A target='_blank' href='http://www.textfiles.com/fidonet-on-the-internet/nodediff.htm' class='ext'> FOTI Nodelist / Nodediff Archive Page </A> @ TheLitterBox BBS<br> Frank Robbins - <!-- A target='_blank' href='http://www.winramturbo.com/fnsp/arch-nodelist-diff.htm' class='ext'> The FidoNet Showcase Project</a --> The FidoNet Showcase Project (Offline) <br> Michael Cronsten - <!-- A target='_blank' href='http://www.fidonet.m.nu/nodlistor_diffar/' class='ext' --> Swedisch Fidonet<!-- /A --> (Offline)<br> Gisbert Rudolph - <!-- a target='_blank' href='ftp://ftp.grudolph.de/pub/fidohist/' class='ext' --> Fido History Project (2) (ftp://ftp.grudolph.de/pub/fidohist/ Offline)<!-- /a --><br> Ulrich Schroeter - <a href='ftps://ambrosia60.dd-dns.de/service/0_ARCHIV' class='ext'> Fidonet Archive - Fido History Project (3) [FTPS link, use ftp client]</a> @ Ambrosia60<br> Steven Leeman - <a href='http://www.fido.be/nodelist.php' class='ext'> Fidonet Archive - Reorganized</a> @ skynetbbs<br> Alex Woick - Wombaz; Michiel v.d. Vlist - @ vlist.eu; Gero Dirk Lachner - @ geros-castle<br> Oleg Tews - <!-- a href='http://www.life.com.ua/fhist/' class='ext' --> Nodelist Archive (Offline)<!-- /a --> of<!-- a href='http://hub.polsl.katowice.pl/fido/history/history.php' class='ext' --> fidonet z2 nodehist robot (Offline)<!-- /a --><br> Pavel Gulchouck - Nodelist archive @ <a target='_blank' href='http://nodehist.fidonet.org.ua/' class='ext'>nodehist.fidonet.org.ua</a><br> Kees van Eeten - The Mirror Site @ <a href="http://fido.ddutch.nl/fidonet/nodelist.php" class='ext'>fido.ddutch.nl</a> <!-- /FONT --> </TH> </TR> <TR class='fhp2a0'> <TH colspan='12' class='fhp2a1'></TH> </TR> </TBODY> </TABLE> </center> </div> <!-- Table main 3.3.2 end --> </center> <!-- /td></tr></table --> </div> <!-- Table main 3.2.2 end --> <!-- /center --> <br> <br> <!-- /div --> <!-- /td></tr></table --> <!-- Table main 3.1 end --> <!-- /td></tr></table --> <!-- /td></tr></table --> <?php // f1 if (file_exists('footer2.inc')) { include 'footer2.inc'; } else { if (file_exists('../footer1.inc')) { include '../footer1.inc'; } } ?> </div> <?php include '/ambrosia60RDfooter.inc'; ?> </body> </html>