Changeset 134 for devel/web/UMainPage.pas

Timestamp:

Jan 14, 2009, 9:46:16 AM (15 years ago)

Author:

george

Message:

• Upraveno: Přepracována hlavní stránky a přidány další dvě stránky přehledu financí a seznam členů.
• Upraveno: Kompatibilita s Powtils 1.7.1.

Location:

devel/web

Files:

• . (modified) (1 prop)
• UMainPage.pas (modified) (1 diff)

devel/web/UMainPage.pas

@@ -1 +1 @@
 unit UMainPage;
 
+{$mode delphi}{$H+}
+
 interface
 
-uses
-  UHtmlClasses;
+function MainPage: string;
   
 implementation
 
+uses
+  USqlDatabase, UCore, UHtmlClasses, SysUtils;
+
+function ShowNews(Category: Integer): string;
 var
-  MainPage: THtmlPage;
+  DbRows: TDbRows;
+  Index: Integer;
+  FontSize: Integer;
+  I: Integer;
+  II: Integer;
+  Enclosures: TArrayOfString;
+const
+  NewsCountPerCategory = 3;
+  UploadedFilesFolder = 'aktuality/uploads/';  
+begin
+//  global $NewsCategoryNames, $NewsCountPerCategory, $UploadedFilesFolder;
+
+  DbRows := Database.Select('news_category', '*', 'id=' + IntToStr(Category));
+
+  Result := '<table cellspacing="0" cellpadding="0" border="0" width="100%" style="font-size: small; padding-bottom: 5px;"><tr>'+
+    '<td width="40%">' + DbRows[0].Values['caption'] + '</td><td width="80%" align="right">'+
+    '<a href="aktuality/index.php?category=' + IntToStr(Category) + '">Zobrazit všechny aktuality</a>&nbsp;';
+  if StrToInt(DbRows[0].Values['permission']) = 1 then Result := Result + '<a href="aktuality/index.php?action=add&amp;category=' + IntToStr(Category) + '">Přidat aktualitu</a>&nbsp;';
+  Result := Result + '</td></tr><tr><td colspan="2">'+
+    '<table cellspacing="0" width="100%" style="padding: 2px 2px 2px 2px; font-size: small; border-style: solid; border-color: red; border-width: 1; background-color: #FFF0F0;">';
+  Index := 0;
+  FontSize := 12;
+  DbRows := Database.Select('news', '*', 'category=' + IntToStr(Category) + ' ORDER BY date DESC LIMIT 0,' + IntToStr(NewsCountPerCategory));
+  for I := 0 to DbRows.Count - 1 do with DbRows[I] do begin
+    Result := Result + '<tr><td onmouseover="zobraz(''."''new".$Category.$Index."''".'')" style="cursor: pointer; margin: 0px;"><table cellspacing="0" cellpadding="0" style="padding: 0px; margin: 0px; font-size: small; color: red;" width="100%">'+
+      '<tr><td style="font-size: ' + IntToStr(FontSize) + 'pt"><strong>' + Values['title'] + '</strong></td>'+
+      '<td align="right" style="font-size: ' + IntToStr(FontSize) + 'pt">' + Values['author'] + ' (' + HumanDate(Values['date']) + ')</td></tr></table>'+
+      '<div id="new' + IntToStr(Category) + IntToStr(Index) + '" class="skryty" style="display: none; border-width: 1; border-style: solid; border-color: blue; padding: 3px; font-size: 9pt;">' + Values['content'];
+
+    if Values['enclosure'] <> '' then begin
+      Result := Result + '<br>Přílohy: ';
+      Enclosures := Explode(';', Values['enclosure']);
+            for II := 0 to High(Enclosures) do begin
+              // if(file_exists($UploadedFilesFolder.$Enclosure)) echo(' <a href="'.$UploadedFilesFolder.$Enclosure.'">'.$Enclosure.'</a>')
+      end;
+    end;
+    Result := Result + '</div></td></tr>';
+    Index := Index + 1;    
+    FontSize := FontSize - 2;
+  end;
+  Result := Result + '</table></td></tr></table>';
+end;
+
+function MainPage: string;
+var
+  Output: string;
+  DbRows: TDbRows;
+  I: Integer;
+begin
+  Output := ShowHeader('<strong>ZděchovNET</strong> - komunitní počítačová síť', 'Rozcestní­k');
+  Output := Output + '<script type="text/javascript">'+
+    '<!--'+
+    'function openClient(client_type)'+
+    '{'+
+    'if(client_type=="java")clientWindow = window.open("http://go.icq.com/icq2go/web.html","ICQ2Go","left=20,top=20,width=156,height=446,toolbar=0,resizable=0");'+
+    'else clientWindow = window.open("http://go.icq.com/icq2go/flicq.html","ICQ2Go","left=20,top=20,width=176,height=441,toolbar=0,resizable=0");'+
+    '}'+
+
+'var predchozi = ''first'';'+ 
+''+
+'function zobraz(idecko)'+
+'{'+
+'  skryj(predchozi);'+
+  'el=document.getElementById(idecko).style;'+
+  '  el.display=''block'';'+
+  'predchozi = idecko;'+
+  '}'+
+''+
+'function skryj(idecko)'+
+'{'+
+  'if(idecko != ''first'')'+
+  '{'+
+  '  el=document.getElementById(idecko).style;'+
+  '  el.display=''none'';'+
+  '}'+
+'}'+
+'//-->'+
+'</script>'+
+''+
+'<table width="100%"><tr><td valign="top">' +
+'<table width="100%">' +
+'<tr><td width="20%" valign="top">' +
+'<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-server.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>' +
+'<br>' +
+'<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="/sluzby.php">Seznam služeb</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>'+
+'<br>'+
+'</td><td width="13%" valign="top">'+
+'<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>'+
+'<br>'+
+'<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>'+
+'<br>'+
+'<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>'+
+'<br>' +
+'</td>' +
+'<td width="15%" valign="top">';
+  // Zobrazení seznamu online poèítaèù
+  Output := Output + '<strong>Online počítače:</strong><br><span style="font-size: smaller;">';
+  DbRows := Database.Select('hosts', 'name', 'online=1 AND show_online=1 ORDER BY 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 + '</td><td width="50%" valign="top" style="font-size: smaller;">';
+  
+(*  
+$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>';
+*)
+
+  Output := Output + '<div onmouseout="skryj(predchozi)">'+ ShowNews(5) + ShowNews(3) + ShowNews(1) + ShowNews(2) + ShowNews(4) + ShowNews(6) + ShowNews(8) + ShowNews(9) + ShowNews(10);
+
+  Output := Output + '<a href="aktuality/subscription.php"><img style="margin: 0px 0px 0px 0px;" border="0" src="images/rss20.png" alt="Aktuality pøes RSS"></a>  <a href="aktuality/subscription.php">Automatické sledování novinek</a>'+
+  '</div></td></tr></table>';
+  Output := Output + ShowFooter;
+  Result := Output;
+end;
+
+//var
+//  MainPage: THtmlPage;
 begin
   //MainPage := THtmlPage.Create;
-  
-  
+  RegisterPage('index', @MainPage);    
 end.