| * 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)
|
||||||||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
|
actyear do nothing
if ($code_criterion<2) {
$startyear=1984;
$fidoyear = 1;
} else {
if ($code_criterion==3) {
$startyear=1984;
$fidoyear = 1;
} else {
if ($zone_criterion==20) {
// z2pnt
$startyear=2001;
$fidoyear = 18;
} else {
if (($zone_criterion==30)) {
// r24
// formats: Fake, Boss
$startyear=1989;
$fidoyear = 6;
} else {
if (($zone_criterion==40)) {
// r28
// formats: Fidouser, Boss
$startyear=1997;
$fidoyear = 14;
} else {
if (($zone_criterion==50)) {
// r31
// formats: V7, Boss
$startyear=1998;
$fidoyear = 15;
} else {
if (($zone_criterion==60)) {
// r23
// formats: Boss, Fake
$startyear=1992;
$fidoyear = 9;
} else {
if (($zone_criterion==70)) {
// r34
// formats: Boss, Fake
$startyear=2001;
$fidoyear = 18;
}
}
}
}
}
}
}
}
$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));
}
}
}
$dovos = false;
$dov = "";
while ($year<$actyear) {
$sikdatum = $datum;
$year=date("Y",$datum);
$tyr = $year;
$fidoyear=($tyr - 1984)+1;
if (substr($year,3,1)=="0") {
// echo " $year | ||||||||||||||||||||||||||
| ".$label." ".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; } } while (($day<367) && (date("Y",$datum)==$tyr)) { if ($slct==3) { if (($year==1984) && ($week<48)) { $printday=" "; $printweek=" "; } else { if (($year==1984)) { $printday=$day; $printweek=$week-47; } else { $printday=$day; $printweek=$week; } } } else { if (($year==1984) && ($day<153)) { $printday=" "; $printweek=" "; } else { $printday=$day; $printweek=$week; } } $filename2=""; if ($slct==1) { $filename=sprintf("nodelist/%04d/nl%02s-%03d.zip",$year,substr($year,2,2),$day); } else { if ($slct==2) { $filename=sprintf("nodelist/%04d/diff/nodediff.z%s",$year, substr("00".$day,strlen($day),2)); } else { if ($slct==3) { if (($year==1984)) { $filename=sprintf("fidonews/%04d/fido%s%s.nws",$year,$fidoyear, substr("00".($week-47),strlen(($week-47)),2)); } else { $filename=sprintf("fidonews/%04d/fido%s%s.nws",$year,$fidoyear, substr("00".$week,strlen($week),2)); } } else { if ($slct==21) { // z2pnt poss list $filename=sprintf("pntlist/z2/%04d/Poss/z2pnt.z%s",$year, substr("00".$day,strlen($day),2)); } else { if ($slct==22) { // z2pnt poss diff $filename=sprintf("pntlist/z2/%04d/Poss/diff/z2pnt_d.z%s",$year, substr("00".$day,strlen($day),2)); } else { if ($slct==31) { // r24 // formats: Boss list $filename=sprintf("pntlist/r24/%04d/Boss/r24pnt.z%s",$year, substr("00".$day,strlen($day),2)); } else { if ($slct==32) { // r24 // formats: Boss diff $filename=sprintf("pntlist/r24/%04d/Boss/diff/r24pnt_d.z%s",$year, substr("00".$day,strlen($day),2)); } else { if ($slct==41) { // r28 // formats: Boss list $filename=sprintf("pntlist/r28/%04d/Boss/p28-list.z%s",$year, substr("00".$day,strlen($day),2)); } else { if ($slct==42) { // r28 // formats: Boss diff $filename=sprintf("pntlist/r28/%04d/Boss/Diff/p28-diff.z%s",$year, substr("00".$day,strlen($day),2)); } else { if ($slct==51) { // r31 // formats: Boss list $filename=sprintf("pntlist/r31/%04d/Boss/r31pnt.z%s",$year, substr("00".$day,strlen($day),2)); } else { if ($slct==52) { // r31 // formats: Boss diff $filename=sprintf("pntlist/r31/%04d/Boss/diff/r31pnt_d.z%s",$year, substr("00".$day,strlen($day),2)); } else { if ($slct==33) { // r24 // formats: Fake list // P24yyDDD.ZIP or POINTS24.Zdd $filename=sprintf("pntlist/r24/%04d/Fake/p24%s%03d.zip",$year,substr($year,2,2),$day); $filename2=sprintf("pntlist/r24/%04d/Fake/points24.z%s",$year, substr("00".$day,strlen($day),2)); } else { if ($slct==34) { // r24 // formats: fake diff $filename=sprintf("pntlist/r24/%04d/fake/diff/pr24diff.z%s",$year, substr("00".$day,strlen($day),2)); } else { if ($slct==53) { // r31 // formats: v7 list $filename=sprintf("pntlist/r31/%04d/v7/point4d.a%s",$year, substr("00".$day,strlen($day),2)); } else { if ($slct==54) { // r31 // formats: v7 diff (not avail) $filename=sprintf("pntlist/r31/%04d/v7/diff/point4dd.z%s",$year, substr("00".$day,strlen($day),2)); } else { if ($slct==43) { // r28 // formats: fidouser list $filename=sprintf("pntlist/r28/%04d/fidouser/pointl%s.zip",$year, substr("00".$day,strlen($day),2)); } else { if ($slct==44) { // r28 // formats: fidouser diff (not avail) $filename=sprintf("pntlist/r28/%04d/fidouser/diff/pointl%s.zip",$year, substr("00".$day,strlen($day),2)); } else { if ($slct==61) { // r23 // formats: Boss list $filename=sprintf("pntlist/r23/%04d/Boss/r23pnt.z%s",$year, substr("00".$day,strlen($day),2)); } else { if ($slct==62) { // r23 // formats: Boss diff $filename=sprintf("pntlist/r23/%04d/Boss/diff/r23pnt_d.z%s",$year, substr("00".$day,strlen($day),2)); } else { if ($slct==63) { // r23 // formats: Fake list // DK-POINT.Zdd $filename=sprintf("pntlist/r23/%04d/Fake/dk-point.z%s",$year, substr("00".$day,strlen($day),2)); } else { if ($slct==64) { // r23 // formats: fake diff $filename=sprintf("pntlist/r23/%04d/fake/diff/dkp-diff.z%s",$year, substr("00".$day,strlen($day),2)); } else { if ($slct==71) { // r34 // formats: Boss list $filename =sprintf("pntlist/r34/%04d/Boss/ptlstr34.z%s",$year, substr("00".$day,strlen($day),2)); $filename2=sprintf("pntlist/r34/%04d/Boss/ptlstr34.l%s",$year, substr("00".$day,strlen($day),2)); } else { if ($slct==72) { // r34 // formats: Boss diff $filename=sprintf("pntlist/r34/%04d/Boss/diff/ptdifr34.z%s",$year, substr("00".$day,strlen($day),2)); } else { if ($slct==73) { // r34 // formats: Fake list $filename =sprintf("pntlist/r34/%04d/Fake/pointr34.z%s",$year, substr("00".$day,strlen($day),2)); $filename2=sprintf("pntlist/r34/%04d/Fake/pointr34.l%s",$year, substr("00".$day,strlen($day),2)); } else { if ($slct==74) { // r34 // formats: fake diff $filename=sprintf("pntlist/r34/%04d/fake/diff/pdiffr34.z%s",$year, substr("00".$day,strlen($day),2)); } } } } } } } } } } } } } } } } } } } } } } } } } $filename=$basepath.$filename; if ($filename2!="") { $filename2=$basepath.$filename2; if ((file_exists($basepath2.$filename)) OR (file_exists($basepath2.$filename2))) { $fnrq = ""; if ((file_exists($basepath2.$filename))) { $fnrq = $filename; } else { $fnrq = $filename2; } if ($slct==3) { $printday="$printday"; $printweek="$printweek"; } else { if (((($year==1987) && ($day>212)) OR (($year>1987))) ) { $printday="$printday"; $printweek="$printweek"; } else { $printday="$printday"; $printweek="$printweek"; } } } else { if (($year>2006)) { $printday="".$day."\n"; $printweek="".$week."\n"; } } } else { if (file_exists($basepath2.$filename)) { if ($slct==3) { $printday="$printday"; $printweek="$printweek"; } else { if (((($year==1987) && ($day>212)) OR (($year>1987))) ) { $printday="$printday"; $printweek="$printweek"; } else { $printday="$printday"; $printweek="$printweek"; } } } else { if (($year>2006)) { $printday="".$day."\n"; $printweek="".$week."\n"; } } } if ($slct==3) { echo " | "; echo $printweek." | \n"; } else { if ((($year==1987) && ($day>212)) OR (($year>1987)) ) { echo ""; } else { echo " | "; } echo $printday." | \n"; } $day=$day+7; $week++; $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 " | ||||||||||||||||||||||||||
| \n";
echo "Index: "; echo $dov; echo " | ||||||||||||||||||||||||||
|
Ruth Argust - The Original FidoNet Nodelist Archives @ The Great White South BBS (Archive: 550 not available) Tony Campbell - FOTI Nodelist / Nodediff Archive Page @ TheLitterBox BBS Frank Robbins - The FidoNet Showcase Project Michael Cronsten - Swedisch Fidonet Gisbert Rudolph - Fido History Project (2) Ulrich Schroeter - Fidonet Archive - Fido History Project (3) @ Ambrosia60 Steven Leeman - Fidonet Archive - Reorganized @ skynetbbs Alex Woick - Wombaz; Michiel v.d. Vlist @ vlist.eu |
||||||||||||||||||||||||||