source: branches/web/Pages/UMainPage.pas

unit UMainPage;

{$mode delphi}{$H+}

interface

function MainPage: string;
  
implementation

uses
  USqlDatabase, UCore, SysUtils, UNews;

function MainPage: string;
var
  Output: string;
  DbRows: TDbRows;
  I: Integer;
  News: TNews;
begin
  Output := ShowHeader('<strong>ZděchovNET</strong> - komunitní počítačová síť', 'Rozcestní­k');
  Output := Output + '<table width="100%"><tr><td valign="top">' +
'<div class="Panel">' +
'<strong>Důležité odkazy:</strong><br />' +
InsertIcon('money.gif') + ' <a href="?p=finance">Finance</a><br />' +
InsertIcon('chart.gif') + ' <a href="?p=statistic">Statistika</a><br />' +
InsertIcon('prohledavac_sdileni.gif') + ' <a href="/share">Prohledat sdílení</a><br />' +
InsertIcon('comp.gif') + ' <a href="/userlist.php">Seznam uživatelů</a><br />' +
InsertIcon('comp.gif') + ' <a href="/hostlist.php">Seznam počítačů</a><br />' +
InsertIcon('sunrisechat.gif') + ' <a href="/sunrisechat/history.php">Historie SunriseChatu</a><br />' +
InsertIcon('sunrisechat.gif') + ' <a href="/sunrisechat/webchat.php">Webový SunriseChatu</a><br />' +
InsertIcon('discus.gif') + ' <a href="/forum">Diskusní fórum</a><br />' +
InsertIcon('openwebmail.gif') + ' <a href="https://centrala.zdechov.net/cgi-bin/openwebmail/openwebmail.pl">WebMail</a><br />' +
InsertIcon('apple.gif') + ' <a href="/jidelna">Jídelníček</a><br />' +
InsertIcon('clear.gif') + ' <a href="http://tv.zdechov.net/">Televize</a><br />' +
InsertIcon('cube.gif') + ' <a href="http://game.zdechov.net/">Herní server</a><br />' +
InsertIcon('cfix.gif') + ' <a href="/farnost">Rozpis mší</a><br />' +
InsertIcon('tel.gif') + ' <a href="/telseznam.php">Telefonní seznam</a><br />' +
InsertIcon('pripoj.gif') + ' <a href="/nabidky_pripojeni.php">Nabídky připojení</a><br />' +
InsertIcon('zapisy.gif') + ' <a href="/docs/zapisy/zapisy.php">Zápisy ze schůzí</a><br />' +
InsertIcon('lear.gif') + ' <a href="/mapy/mapa.php">Mapa Zděchova</a><br />' +
InsertIcon('otv_doby.gif') + '<a href="/otevreno.php">Otvírací doby</a><br />' +
InsertIcon('topologie.gif') + ' <a href="/is/topologie.php">Topologie sítě</a><br />' +
InsertIcon('satellite.gif') + ' <a href="/is/dostupnost.php">Dostupnost sítě</a><br />' +
InsertIcon('tech.gif') + ' <a href="/network.php">Technické informace</a><br />' +
InsertIcon('socer.gif') + ' <a href="http://fotbal.zdechov.net/">Fotbal Sokol Zděchov</a><br />' +
'</div><div class="Panel">' +
'<strong>Další odkazy:</strong><br />' +
InsertIcon('tv.gif') + ' <a href="/tkr.php">Kanály kabelovky</a><br />' +
InsertIcon('clear.gif') + ' <a href="/mapy/mapa_nabidka.php">Nabídka mapy</a><br />' +
InsertIcon('clear.gif') + ' <a href="/history.php">Historie sítě</a><br />' +
InsertIcon('electric.gif') + ' <a href="/merak.php">Měřič spotřeby</a><br />' +
InsertIcon('clear.gif') + ' <a href="/ukoly.php">Plány do budoucna</a><br />' +
InsertIcon('clear.gif') + ' <a href="/navody.php">Návody</a><br />' +
InsertIcon('info.gif') + ' <a href="/infokanal/index.htm">Infokanál</a><br />' +
InsertIcon('progman.gif') + ' <a href="/manualy.php">Programátorské manuály</a><br />' +
'</div></td><td valign="top">' +
'<div class="Panel">' +
'<strong>Vyhledávání:</strong><br />'+
InsertIcon('www_google_com.gif') + ' <a href="http://www.google.cz/">Google</a><br />' +
InsertIcon('morfeo.png') + ' <a href="http://morfeo.centrum.cz">Morfeo</a><br />' +
InsertIcon('www_centrum_cz.gif') + '<a href="http://www.centrum.cz">Centrum</a><br />' +
InsertIcon('www_seznam_cz.gif') + ' <a href="http://www.seznam.cz">Seznam</a><br />' +
InsertIcon('www_atlas_cz.gif') + ' <a href="http://www.atlas.cz">Atlas</a><br />' +
InsertIcon('www_tiscali_cz.gif') + ' <a href="http://www.tiscali.cz">Tiscali</a><br />' +
'</div><div class="Panel">' +
'<strong>Užitečné:</strong><br />'+
InsertIcon('clear.gif') + ' <a href="http://www.zdechov.net">Stránky naší sítě</a><br />' +
InsertIcon('www_tvinfo_cz.gif') + ' <a href="http://www.tvinfo.cz/live/televize/cz">Online TV</a><br />' +
InsertIcon('www_idos_cz.gif') + ' <a href="http://www.idos.cz/ConnForm.asp?tt=c">Jízdní řády</a><br />' +
InsertIcon('www_atlas_cz.gif') + ' <a href="http://tv.atlas.cz">TV programy</a><br />' +
InsertIcon('www_icq_com.gif') + ' Web ICQ <a href="javascript:openClient(''flash'')">Flash</a>&nbsp;<a href="javascript:openClient(''java'')">Java</a><br />' +
InsertIcon('www_centrum_cz.gif') + ' <a href="http://slovniky.centrum.cz">Slovníky</a><br />' +
InsertIcon('pocasi.gif') + ' <a href="http://www.meteopress.cz/">Počasí</a><br />' +
InsertIcon('www_tzones_cz.gif') + ' <a href="http://www.tzones.cz/">T-Mobile SMS</a><br />' +
InsertIcon('www_mvk_cz.png') + ' <a href="http://www.mvk.cz/">Knihovna&nbsp;Vsetín</a><br />' +
'</div><div class="Panel">' +
'<strong>Prodej počítačů:</strong><br />'+
InsertIcon('www_computershop_cz.png') + ' <a href="http://shop.computershop.cz/eshop/">SOFTCOM</a><br />' +
InsertIcon('www_alfacomp_cz.gif') + ' <a href="http://www.alfacomp.cz/php/zbozi.php?akc=2">Alfacomp</a><br />' +
InsertIcon('www_petracomp_cz.png') + ' <a href="http://www.petracomp.cz/">Petracomp</a><br />' +
InsertIcon('www_tsbohemia_cz.png') + ' <a href="http://interlink.tsbohemia.cz/">TS Bohemia</a><br />' +
'</div></td><td valign="top">' +
'<div class="Panel">';

  // Zobrazení seznamu online počítačů
  Output := Output + '<strong>Online počítače:</strong><br /><span style="font-size: smaller;">';
  DbRows := Database.Query('SELECT NetworkDevice.Name FROM NetworkDevice LEFT JOIN NetworkDeviceType ' +
  ' ON NetworkDeviceType.Id = NetworkDevice.Type WHERE (NetworkDeviceType.ShowOnline = 1) AND (NetworkDevice.Online = 1) ORDER BY NetworkDevice.Name');
  for I := 0 to DbRows.Count - 1 do with DbRows[I] do begin
    Output := Output + Values['Name'] + '<br />';
  end;
  DbRows.Free;
  Output := Output + '</span><br />';

  (*
  // Zobrazení seznamu dlužníkù
  Output := Output + '<strong>Dlužníci:</strong><br /><span style="font-size: smaller;">';
  DbRows := Database.Select('users', 'fullname', 'cash<0 ORDER BY cash');
  for I := 0 to DbRows.Count - 1 do with DbRows[I] do begin
    Output := Output + Values['fullname'] + '<br />';
  end;
  DbRows.Free;
  Output := Output + '</span>';
  Output := Output + '</td></tr></table>';
  *)
  
  (*
  // Zobrazení èasu bìhu poèítaèe
  Data = explode(' ', exec('uptime'));
  Data = array_slice($Data,3,-8);
  Uptime = '';
  foreach($Data as $Item)
  {
    if(strpos($Item,':')) $Uptime .= substr($Item,0,-1).' hodin';
    else $Uptime .= $Item.' ';
  }
  $Uptime = str_replace('2 days,','2 dny a',$Uptime);
 $Uptime = str_replace('3 days,','3 dny a',$Uptime);
$Uptime = str_replace('4 days,','4 dny a',$Uptime);
$Uptime = str_replace('days,','dní a',$Uptime);
$Uptime = str_replace('day,','den a',$Uptime);
$Uptime = str_replace('min,','minut',$Uptime);
echo('Server běží '.$Uptime);
*)
  Output := Output + '</div></td><td valign="top">';
  
(*  
$File = fopen('/tmp/temperature2','r');
$Teplota = fgets($File);
$Teplota = round($Teplota*10)/10;
fclose($File);

  Output := Output + '<table width="100%"><tr><td><strong>Aktuálnì:</strong></td><td align="right">'+
    '<img alt="Teplomer" width="10" height="18" src="images/teplomer3.png"><a href="statistic/trafficview2.php?type=temp">' + Teplota + '°C (mimo provoz)</a></td></tr></table>';
*)

  News := TNews.Create;
  News.LoadFromDb;
  with News do
    Output := Output + '<div onmouseout="skryj(predchozi)">' + ShowNews(5) + ShowNews(3) + ShowNews(1) + ShowNews(2) + ShowNews(4) + ShowNews(6) + ShowNews(8) + ShowNews(9) + ShowNews(10);
  News.Free;

  Output := Output + '<a href="?p=news-selection"><img src="images/rss20.png" alt="Aktuality přes RSS" /></a>  <a href="?p=news-selection">Automatické sledování novinek</a>'+
  '</div></td></tr></table>';
  Output := Output + ShowFooter;
  Result := Output;
end;

begin
  RegisterPage('index', @MainPage);
end.