if(strlen($R1)<1)
{
$R1="LB";
}
if(strlen($language)<1)
{
$language="en";
}
if($language == "de")
{
$title="technische Detail-Übersicht für:
$RadioName";
$ti0="Info-Seite über Bonito %s Switchbox";
$t0="typische Switchbox";
$t1="Kabel-Anschluss";
$t2="typische Software";
$t3="gezipptes .PDF";
$t4="Bild";
$t5="nicht vorhanden";
$t6="für";
$t7="zurück zu den technischen Diensten";
$t8="Zurück";
$lh0="Empfänger / Sender";
$lh1="typische
Switchbox";
$lh2="Anschlussplan (RX)";
$lh2h="Anschlussplan (TX)";
$lh3="Variablen in RECCTRL.INI";
$lh4="Variablen in MRX.INI / RC50.INI";
$lu="unbekannt";
$wt="sehr wichtige Info";
$wi="Winradio-Info";
}
else
{
$ti0="InfoSite about Bonito %s Switchbox";
$t0="typical Switchbox";
$t1="Cable junktion";
$t2="typical Software";
$t3="zipped .PDF";
$t4="Image";
$t5="not available";
$t6="for";
$t7="back to the technical service site";
$t8="Back";
$lh0="Receiver / Transceiver";
$lh1="typical
Switchbox";
$lh2="junktion diagram (RX)";
$lh2="junktion diagram (TX)";
$lh3="Variables in RECCTRL.INI";
$lh4="Variables in MRX.INI / RC50.INI";
$lu="unknow";
$wt="very important info";
$wi="Winradio-Info";
}
if (substr($R1,0,1) == "D")
{
$buf="";
$fi = fopen ("$MyData/radios.dat", "r");
if($fi)
{
for($i=0; $i<$selectedRadio; $i++)
{
if(feof ($fi)) break;
$buf=fgets($fi,255);
}
fclose ($fi);
}
list ($RadioName, $IC_PCR, $BT_NAU, $IC_SWL, $RC_SWL, $RC_HAM, $DglM, $DglH, $DglP, $RecM, $RadM, $ConM, $RecH, $RadH, $ConH) = split ('[:]', $buf);
$inf="../infos/";
$swbx=MakeFileName("",$language,"_uni_swbx.htm");
$BT="BoardTerminal - MeteoCom - Meteoscan - NavalMeteo";
if($language == "de")
{
$title="technische Detail-Übersicht für:
$RadioName";
}
else
{
$title="technical detail overview for:
$RadioName";
}
if($selectedRadio == 54 || $selectedRadio == 55 || $selectedRadio == 56 || $selectedRadio == 57)
{
$tm1="IC-PCR";
$tm2="ProMeteo - $BT";
$tm3=MakeFileName($inf,$language,"_mar_pm98.htm");
$tm4=GetTitle($tm3);
$cm=$IC_PCR;
$th1="IC-SWL";
$cs=$IC_SWL;
$ch=$RC_HAM;
}
else
{
$tm2=$BT;
$tm3=MakeFileName($inf,$language,"_mar_bt98.htm");
$tm4=GetTitle($tm3);
$cm=$BT_NAU;
if($selectedRadio != 10 && $selectedRadio != 69)
{
$tm1="NautiCom";
$th1="RC-SWL";
$cs=$RC_SWL;
$ch=$RC_HAM;
}
else
{
$tm1="IC-PCR";
$th1="IC-SWL";
$cs=$IC_SWL;
$ch=$RC_HAM;
}
}
$th_4rc=MakeFileName($inf,$language,"_ham_rc40.htm");
$th_45rc=MakeFileName($inf,$language,"_ham_rc45.htm");
$th_5rc=MakeFileName($inf,$language,"_ham_rc50.htm");
$th_rc4=GetTitle($th_4rc);
$th_rc45=GetTitle($th_45rc);
$th_rc5=GetTitle($th_5rc);
print "
\n";
print "$title |
\n";
if(substr($R1,1,1) == 'M' || substr($R1,1,1) == 'B')
{
print "MARINE |
\n";
print "\n";
$tx=sprintf($ti0,$tm1);
print "$t0 : | ";
print "$tm1 | \n";
print "$t1 : | ";
if(strlen($cm)>0)
{
$tb=sprintf("cab%s.zip",$cm); $tl=sprintf("zip/%s",$tb); $ts=GetSize($tl);
print "$t3 , ";
$tb=sprintf("cab%s.pdf",$cm); $tl=sprintf("pdf/%s",$tb); $ts=GetSize($tl);
print "PDF-File , ";
$tb=sprintf("cab%s.gif",$cm); $tl=sprintf("images/%s",$tb); $ts=GetSize($tl);
print "GIF-$t4 | \n";
}
else
{
print "$t5 | ";
}
print "$t2 : | ";
print "$tm2 | \n";
print "RECCTL.INI : | ";
print "RECEIVER=$RecM ";
if($RadM>0)
{
print "ICOM_RADIO=$RadM ICOM_CONTROLLER=$ConM";
}
else
{
print "ICOM_RADIO=0 ICOM_CONTROLLER=0";
}
print " | |
\n";
}
if(substr($R1,1,1)=="H" || substr($R1,1,1)=="B")
{
print "HAM-RADIO |
\n";
print "\n";
$tx1=sprintf($ti0,$th1); $tx2=sprintf($ti0,"RC-HAM");
print "$t0 : | ";
print "$t6 RX = $th1 | ";
print "$t6 RX / TX = RC-HAM | \n";
print "$t1 : | ";
print "";
if(strlen($cs)>0)
{
$tb=sprintf("cab%s.zip",$cs); $tl=sprintf("zip/%s",$tb); $ts=GetSize($tl);
print "$t3 , ";
$tb=sprintf("cab%s.pdf",$cs); $tl=sprintf("pdf/%s",$tb); $ts=GetSize($tl);
print "PDF-File , ";
$tb=sprintf("cab%s.gif",$cs); $tl=sprintf("images/%s",$tb); $ts=GetSize($tl);
print "GIF-$t4 | \n";
}
else
{
print "$t5\n";
}
print "";
if(strlen($ch)>0)
{
$tb=sprintf("cab%s.zip",$ch); $tl=sprintf("zip/%s",$tb); $ts=GetSize($tl);
print "$t3 , ";
$tb=sprintf("cab%s.pdf",$ch); $tl=sprintf("pdf/%s",$tb); $ts=GetSize($tl);
print "PDF-File , ";
$tb=sprintf("cab%s.gif",$ch); $tl=sprintf("images/%s",$tb); $ts=GetSize($tl);
print "GIF-$t4 | \n";
}
else
{
print "$t5\n";
}
print " ";
print " | \n";
print "";
print "$t2 : | ";
print "RadioCom 4.0 ,RadioCom 4.5 , RadioCom 5.0 | \n";
print "MRX.INI / RC50.INI : | ";
print "RECEIVER=$RecH ";
if($RadH>0)
{
print "ICOM_RADIO=$RadH ICOM_CONTROLLER=$ConH";
}
else
{
print "ICOM_RADIO=0 ICOM_CONTROLLER=0";
}
print " | |
\n";
}
print "
\n";
}
else
{
print "
Bonito RadioList |
\n";
if(substr($R1,1,1) == 'M' || substr($R1,1,1) == 'B')
{
print "";
print "MARINE | \n";
print " | \n";
print "$lh0 | $lh1 | ";
print "$lh2 | $lh3 | \n";
print "$t3 | .PDF | ";
print "$t4 | RECEIVER | ";
print "ICOM_RADIO | ";
print "ICOM_CONTROLLER | \n";
$buf=""; $inf="../infos/";
$swbx=MakeFileName("",$language,"_uni_swbx.htm");
$fi = fopen ("$MyData/radios.dat", "r");
if($fi)
{
$i=0; $sx=0;
while(!feof ($fi))
{
$buf=fgets($fi,255);
list ($RadioName, $IC_PCR, $BT_NAU, $IC_SWL, $RC_SWL, $RC_HAM, $DglM, $DglH, $DglP, $RecM, $RadM, $ConM, $RecH, $RadH, $ConH) = split ('[:]', $buf);
$i++;
if(!($DglM == 1 || $DglM == 2))
{
if($sx==0)
{
$sx=1;
}
continue;
}
$sw=$lu;
if($sx==1)
{
print " | \n";
$sx=0;
}
$cm="";
switch ($DglM)
{
case 1: $sw="NautiCom"; $cm=$BT_NAU; break;
case 2: $sw="IC-PCR"; $cm=$IC_PCR; break;
}
$tx=sprintf($ti0,$sw);
print "$RadioName | $sw | ";
if(strlen($cm)>0)
{
$tb=sprintf("cab%s.zip",$cm); $tl=sprintf("zip/%s",$tb); $ts=GetSize($tl);
print "$tb | ";
$tb=sprintf("cab%s.pdf",$cm); $tl=sprintf("pdf/%s",$tb); $ts=GetSize($tl);
print "PDF | ";
$tb=sprintf("cab%s.gif",$cm); $tl=sprintf("images/%s",$tb); $ts=GetSize($tl);
print "GIF | ";
}
else
{
if($i==190) #winradio
{
print "$wi | ";
}
else
{
print "--- | ";
}
print "- | - | ";
}
print "$RecM | $RadM | $ConM | \n";
}
fclose ($fi);
}
print " |
\n";
}
if(substr($R1,1,1) == "H" || substr($R1,1,1) == "B")
{
print "";
print " | \n";
print " | \n";
print "$lh0 | ";
print "$lh1 | ";
print "$lh2 | ";
print "$lh2h | ";
print "$lh3 | \n";
print "$t3 | ";
print ".PDF | ";
print "$t4 | ";
print "$t3 | ";
print ".PDF | ";
print "$t4 | ";
print "RECIEVER | ";
print "ICOM_RADIO | ";
print "ICOM_CONTROLLER | \n";
$buf=""; $inf="../infos/";
$fi = fopen ("$MyData/radios.dat", "r");
if($fi)
{
$i=0; $sx=0;
while(!feof ($fi))
{
$buf=fgets($fi,255);
list ($RadioName, $IC_PCR, $BT_NAU, $IC_SWL, $RC_SWL, $RC_HAM, $DglM, $DglH, $DglP, $RecM, $RadM, $ConM, $RecH, $RadH, $ConH) = split ('[:]', $buf);
$i++;
if(!($DglH == 4 || $DglH == 8 || $DglH == 16))
{
if($sx==0)
{
$sx=1;
}
continue;
}
if($sx==1)
{
print " | \n";
$sx=0;
}
$sw=$lu;
$cs=""; $ch="";
switch ($DglH)
{
case 4: $sw="IC-SWL"; $cs=$IC_SWL; $ch=$RC_HAM;break;
case 8: $sw="RC-SWL"; $cs=$RC_SWL; $ch=$RC_HAM; break;
case 16: $sw="RC-HAM"; $cs=$RC_HAM; $ch=$RC_HAM; break;
}
$tx=sprintf($ti0,$sw);
print "$RadioName | $sw | ";
if(strlen($cs)>0)
{
$tb=sprintf("cab%s.zip",$cs); $tl=sprintf("zip/%s",$tb); $ts=GetSize($tl);
print "$tb | ";
$tb=sprintf("cab%s.pdf",$cs); $tl=sprintf("pdf/%s",$tb); $ts=GetSize($tl);
print "PDF | ";
$tb=sprintf("cab%s.gif",$cs); $tl=sprintf("images/%s",$tb); $ts=GetSize($tl);
print "GIF | ";
}
else
{
if($i==190) #winradio
{
print "$wi | ";
}
else
{
print "--- | ";
}
print "- | - | ";
}
if(strlen($ch)>0)
{
$tb=sprintf("cab%s.zip",$ch); $tl=sprintf("zip/%s",$tb); $ts=GetSize($tl);
print "$tb | ";
$tb=sprintf("cab%s.pdf",$ch); $tl=sprintf("pdf/%s",$tb); $ts=GetSize($tl);
print "PDF | ";
$tb=sprintf("cab%s.gif",$ch); $tl=sprintf("images/%s",$tb); $ts=GetSize($tl);
print "GIF | ";
}
else
{
print "--- | - | - | ";
}
print "$RecH | $RadH | $ConH | \n";
}
fclose ($fi);
}
print " |
\n";
}
print "
\n";
}
?>