| * NodeList's / NodeDiff's |
| * PointList's / PointDiff's |
| * Fidonews |
Form based upon: nodelist_search.php Version 1.2
Copyright © 2003 Jerry Schwartz 1:142/928 and WriteByNight
Nodelist lister script adopted from The FidoNet Showcase Project
Modified for Nodelist/Nodediff/Pointlist/Pointdiffs and Fidonews listing by U.Schroeter, 2007-, (v)
".$dov."\n"; ?> |
|
|||||||||||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| ".date("Y",$datum)." | "; echo "".$listtype; } else { echo " | ||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|
| ".$listtype;
}
if ($ptype!="") {
echo " (".$ptype.")\n"; } echo " | \n";
if ($slct==3) {
$teller=0;
} else {
if ($day!=1) {
if ((($year==1987) && ($day>212)) OR (($year>1987)) ) {
echo ""; } else { echo " | "; } echo " | \n"; // echo "\n"; $teller=1; } else { $teller=0; } } $fnwsex = False; while ((($day<367) && (date("Y",$datum)==$tyr)) || ($fnwsex)) { $fnwsex = False; if ($slct==3) { // 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==86) && (($year==2007) && ($day<362))) { $printday=" "; $printweek=" "; } elseif (($slct==56) && (($year==2008) && ($day<11))) { $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=" "; } else { // regular daynumber display $printday=$day; $printweek=$week; } } $filename2=""; if ($slct==1) { $filename=sprintf("nodelist/%04d/nl%02s-%03d.zip",$year,substr($year,2,2),$day); } 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==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==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==81) { // r46pnt poss list $filename=sprintf("pntlist/r46/%04d/poss/pnt46reg.z%s",$year, substr("00".$day,strlen($day),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)); } // 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 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="$printday".$exception["note"][$fnd].""; $printweek="$printweek"; } else { if ((((($year==1987) && ($day>212)) OR (($year>1987))) ) ) { // && ($slct!=3) // DEFAULT $printday="$printday"; $printweek="$printweek"; } else { $printday="$printday"; $printweek="$printweek"; } } } else { $srch[0]=$slct; $srch[1]=$year; $srch[2]=$day; $fnd = excep_find($srch,$exception); if ($fnd>-1) { // Exceptions $printday=" | "; echo $printweek." | \n"; } else { echo ""; echo $printweek." | \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 ""; } else { echo " | "; } // echo " | "; } else { if ($tcolor==4) { echo " | "; } else { echo " | "; } // echo " | "; } echo $printday." | \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 "
| "; } else { if ((($year==1987) && ($day>212)) OR (($year>1987)) ) { echo " | "; } else { echo " | "; } } echo " | \n"; $teller++; } } echo "|||||||||
| \n"; echo " | |||||||||||
|
|||||||||||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| "; 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 " | "; $year=date("Y",$datum); $dovos = false; $dov = ""; $year2 = $year; echo "||||||||||
| \r\n"; for ($j=1; $j <= 5; $j++) { echo " | ".$l5y[$j]." | \r\n"; } ?>|||||||||
|---|---|---|---|---|---|---|---|---|---|---|
| ".$ll[$lc]['description']." | "; echo ""; // bgcolor #338899 ????? if ($ll[$lc]['format']!="") { echo "(".$ll[$lc]['format'].")\n"; } echo " | \n"; for ($j=1; $j <= 5; $j++) { // $l5d[1], $l5w[1], $l5y[1] $tmpp[0]=sprintf($ll[$lc]['dirmask'],$l5y[$j]); $tmpd = $basepath2.$basepath.$tmpp[0]; $tcolor = 4; $atext = "Fidonet ".preg_replace("/"; } else { echo " | "; } // echo " | "; echo $printweek." | \n"; } else { if ((($year==1987) && ($day>212)) OR (($year>1987)) ) { if ($tcolor==4) { // echo ""; echo " | "; } else { echo " | "; } } else { if ($tcolor==4) { // echo " | "; echo " | "; } else { echo " | "; } } echo $printday." | \n"; } } echo "
| Credits - Original Collection of File Archives | |||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|
|
ftp://ftp.fidonet.org/fidonet/fido-history - FIDO-HISTORY PROJECT (The Original) @ ftp.fidonet.org
(Offline) Ruth Argust - The Original FidoNet Nodelist Archives @ The Great White South BBS (550 not avail) Tony Campbell - FOTI Nodelist / Nodediff Archive Page @ TheLitterBox BBS Frank Robbins - The FidoNet Showcase Project Michael Cronsten - Swedisch Fidonet (Offline) Gisbert Rudolph - Fido History Project (2) (ftp://ftp.grudolph.de/pub/fidohist/ Offline) Ulrich Schroeter - Fidonet Archive - Fido History Project (3) @ Ambrosia60 Steven Leeman - Fidonet Archive - Reorganized @ skynetbbs Alex Woick - Wombaz; Michiel v.d. Vlist - @ vlist.eu; Gero Dirk Lachner - @ geros-castle Oleg Tews - Nodelist Archive (Offline) of fidonet z2 nodehist robot (Offline) Pavel Gulchouck - Nodelist archive @ nodehist.fidonet.org.ua Kees van Eeten - The Mirror Site @ fido.ddutch.nl |
|||||||||||