Changeset 115
- Timestamp:
- May 2, 2016, 11:02:45 AM (9 years ago)
- Location:
- trunk
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Application/UWebSession.pas
r114 r115 108 108 THTMLString(Self.HtmlDocument.Body.SubItems.AddNew(THtmlString.Create)). 109 109 Text := Format(SError, [E.Message]); 110 if Assigned(ModuleBase) then ModuleBase.GeneratePage(Self, Page.Page) 111 else GeneratePageDefault(Self, Page.Page); 110 GeneratePage(Page.Page); 112 111 end; 113 112 end; … … 160 159 RegisterModule(TModuleFinance.Create(nil), True); 161 160 RegisterModule(TModuleNetwork.Create(nil), True); 162 RegisterModule(TModulePortal.Create(nil), True);161 //RegisterModule(TModulePortal.Create(nil), True); 163 162 RegisterModule(TModuleIS.Create(nil), True); 164 163 RegisterModule(TModuleNews.Create(nil), True); -
trunk/Modules/ZdechovNET/UAboutPage.pas
r105 r115 50 50 'Počítačová síť postupně vznikla jako přirozená reakce na tehdejší situaci v informačních technologiích a jako reakce na nedostupnost vhodného internetového připojení pro domácnosti v obci. ' + 51 51 'Členové komunity jsou mezi sebou propojeni pomocí kabelu nebo bezdrátové technologie Wi-Fi. K internetu jsou připojeni přes hlavní směrovač. ' + 52 'Připojení je negarantované, avšakprvořadým cílem je maximální spolehlivost, stabilita, rychlost a dostupnost připojení. ' +52 'Připojení je garantované s nonstop servisem a řešením problémů obvykle do 24 hodin a prvořadým cílem je maximální spolehlivost, stabilita, rychlost a dostupnost připojení. ' + 53 53 'Jelikož je obec odlehlá a obklopena vysokými kopci, jsou zde možnosti jiného kabelového či bezdrátového připojení značně omezené. Síť vedená místními aktivisty také přináší řadu nadstandardních komunitních služeb.<br/>' + 54 54 '<br/>' + 55 55 '<i>Důvody ke vzniku sítě:</i><br/>' + 56 56 '<ul>' + 57 '<li>Dosažení rychlejšího a levnějšího nepřetržitého sdíleného internetového připojení bez omezení dat</li>' + 57 58 '<li>Možnost komunikace mezi členy formou textu, zvuku či videa</li>' + 58 '<li>Dosažení rychlejšího a levnějšího nepřetržitého sdíleného internetového připojení bez omezení dat</li>' +59 59 '<li>Možnost šíření aktuálních informací z dění v obce</li>' + 60 60 '<li>Sdílení společných dat</li>' + 61 61 '<li>Společné hraní síťových her</li>' + 62 '<li>Zprovoznění užitečných služeb ( chat, aktuality, bazar, menu v jídelně, web kamery, aj.)</li>' +62 '<li>Zprovoznění užitečných služeb (IPTV, VoIP, chat, aktuality, bazar, menu v jídelně, web kamery, aj.)</li>' + 63 63 '</ul><br/>'; 64 64 … … 68 68 69 69 Text := Text + '<strong>Počty zákazníků:</strong><br/>' + 70 'Připojených domácností v obci: 1 03<br/>' +70 'Připojených domácností v obci: 124<br/>' + 71 71 'Připojených institucí: 1<br/>' + 72 'Hosting serverů: 4<br/>' +73 'Celkem: 1 08<br/>' +72 'Hosting serverů: 1<br/>' + 73 'Celkem: 126<br/>' + 74 74 '<br/>' + 75 75 '<strong>Technické parametry sítě</strong><br/>' + 76 'Internetové připojení: 80/80 Mbit/s, vyhrazené, symetrické, bez agregace, bez omezení přenesených dat, přes společnost <a href="http://www.inext.cz/">Internext 2000</a><br/>' +77 'Pokrytí obce signálem: asi 80%<br/>' +76 'Internetové připojení: 160/160 Mbit/s, vyhrazené, symetrické, bez agregace, bez omezení přenesených dat, přes společnost <a href="http://www.inext.cz/">Internext 2000</a><br/>' + 77 'Pokrytí obce signálem: asi 90%<br/>' + 78 78 'V připojených domácnostech celkem 365 občanů ze všech 600 (61 %)<br/>' + 79 79 '<br/>' + 80 '<i>Aktualizováno: 21.1.2011</i>';80 '<i>Aktualizováno: 1.5.2016</i>'; 81 81 end; 82 82 GeneratePage(Self); -
trunk/Modules/ZdechovNET/UModuleZdechovNET.pas
r108 r115 319 319 '<li><a href="http://wiki.zdechov.net/">Wiki</a></li>' + 320 320 '</ul><ul class="MenuItem2">'; //<li> </li>'; 321 if Assigned(ModuleBase.Pages.FindByName('uzivatel')) then begin321 if False and Assigned(ModuleBase.Pages.FindByName('uzivatel')) then begin 322 322 if ModuleUser.UserOnline.User = UnknownUser then begin 323 323 Text := Text + '</ul>' + … … 343 343 I: Integer; 344 344 TitleTag: THtmlString; 345 TopMenuTag: THtmlString; 345 346 begin 346 347 with ASession do begin -
trunk/Modules/ZdechovNET/UVoIPPage.pas
r105 r115 40 40 ' A v rámci sítě a těch co mají v obci VoIP od stejného operátora dokonce zdarma. <br/>' + 41 41 '<br/>' + 42 '<strong>Výhody volání přes VoIP</strong>' + 43 '<ol><li>Volání v síti zdarma</li>' + 44 '<li>Registrace, zřízení VoIP zdarma</li>' + 45 '<li>Nulový měsíční paušál</li>' + 46 '<li>Žádný závazek, dobíjíte kredit bez časového omezení</li>' + 47 '<li>Velká celorepubliková konkurence mnoha VoIP operátorů tlačí na nízké ceny hovorů na trhu</li>' + 48 '<li>Online výpis hovorů zdarma</li>' + 49 '<li>Běžné tel. číslo, možnost přenosu stávajícího čísla</li>' + 50 '<li>Lze využít i bez počátečních investic - softwarový telefon</li>' + 51 '<li>Pro telefonování nepotřebujete počítač - hardwarový VoIP telefon</li>' + 52 '</ol>' + 42 'Doporučujueme: <a href="http://www.odorik.cz/">VoIP Odorik</a>' + 43 '<ul><li>Zřízení zdarma</li>' + 44 '<li>Měsíční paušál: 0 Kč</li>' + 45 '<li>Tarifikace: 1+1 (sekundová)</li>' + 46 '<li>Volání v síti: <strong>0 Kč/minutu</strong></li>' + 47 '<li>Volání do pevných sítí: <strong>0,25 Kč/minutu mimo špičku, 0,49 Kč/minutu ve špičce</strong></li>' + 48 '<li>Volání do mobilních sítí: <strong>0,59 Kč/minutu</strong></li>' + 49 '<li>Přenesení vašeho čísla: 1300 Kč</li>' + 50 '<li>Volání z mobilního čísla na mobil: 1,5 Kč/minutu</strong></li>' + 51 '</ul>' + 53 52 '<br/>' + 54 '<a href="http://voip.mikrotech.cz/">Mikrotech</a>' + 55 '<ul><li>Zřízení zdarma</li>' + 56 '<li>Měsíční paušál: 0 Kč (1 Kč/měsíčně za číslo)</li>' + 57 '<li>Tarifikace: 1+1 (sekundová)</li>' + 58 '<li>V sítí Mikrotech: <strong>0 Kč/minutu</strong></li>' + 59 '<li>Volání do pevných sítí: <strong>0,24 - 0,5 Kč/minutu</strong></li>' + 60 '<li>Volání do mobilních sítí: <strong>1 Kč/minutu</strong></li>' + 61 '<li>Příchozí volání: <strong>plus 0,1 Kč/minutu</strong></li>' + 62 '<li>Přenesení vašeho čísla: 1500 Kč</li>' + 63 '</ul>' + 64 '<br/>' + 65 '<a href="http://voip.mikrotech.cz/doc/cenik_mikrotech.pdf">Ceník</a><br/>' + 66 '<br/>' + 67 '<a href="http://www.odorik.cz/">Odorik</a>' + 68 '<ul><li>Zřízení zdarma</li>' + 69 '<li>Měsíční paušál: 0 Kč</li>' + 70 '<li>Tarifikace: 1+1 (sekundová)</li>' + 71 '<li>Volání v sítí: <strong>0 Kč/minutu</strong></li>' + 72 '<li>Volání do pevných sítí: <strong>0,4 - 0,6 Kč/minutu</strong></li>' + 73 '<li>Volání do mobilních sítí: <strong>1,6 Kč/minutu</strong></li>' + 74 '<li>Přenesení vašeho čísla: 1300 Kč</li>' + 75 '</ul>' + 76 '<br/>' + 77 '<a href="https://www.odorik.cz/ceny.html">Ceník</a><br/>' + 78 '<br/>'; 53 '<a href="http://www.odorik.cz/ceny.html">Ceník</a><br/>' + 54 '<br/>'; 79 55 end; 80 56 GeneratePage(Self); -
trunk/Packages/CoolWeb/CoolWeb.pas
r114 r115 5 5 unit CoolWeb; 6 6 7 {$warn 5023 off : no warning about unused units}8 7 interface 9 8 -
trunk/ZdechovNET.lpr
r113 r115 29 29 Core.Run; 30 30 Run; 31 Printer.RawMode := True; // Avoid printer finalization exception31 //Printer.RawMode := True; // Avoid printer finalization exception 32 32 end; 33 33 end.
Note:
See TracChangeset
for help on using the changeset viewer.