Changeset 114
- Timestamp:
- May 1, 2016, 11:13:57 PM (9 years ago)
- Location:
- trunk
- Files:
-
- 15 edited
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
trunk/.htaccess
r89 r114 10 10 11 11 RewriteEngine on 12 RewriteBase /dev/zdechovnet/trunk 12 #RewriteBase /zdechovnet 13 13 RewriteCond %{REQUEST_FILENAME} !-f 14 14 RewriteCond %{REQUEST_FILENAME} !-d -
trunk/Application/UWebSession.pas
r108 r114 108 108 THTMLString(Self.HtmlDocument.Body.SubItems.AddNew(THtmlString.Create)). 109 109 Text := Format(SError, [E.Message]); 110 if Assigned( GeneratePage) then ModuleBase.GeneratePage(Self, Page.Page)110 if Assigned(ModuleBase) then ModuleBase.GeneratePage(Self, Page.Page) 111 111 else GeneratePageDefault(Self, Page.Page); 112 112 end; -
trunk/Modules/Portal/UModulePortal.pas
r108 r114 253 253 254 254 TitleTag := THtmlString.Create; 255 TitleTag.Text := ShowHeader(ASession);255 //TitleTag.Text := ShowHeader(ASession); 256 256 HtmlDocument.Body.SubItems.Insert(0, TitleTag); 257 257 TitleTag := THtmlString.Create; 258 258 TitleTag.Text := ShowFooter(ASession); 259 HtmlDocument.Body.SubItems. Add(TitleTag);259 HtmlDocument.Body.SubItems.Insert(0, TitleTag); 260 260 //Page.Page.OnProduce(HandlerData); 261 261 HtmlDocument.Title := Page.Caption; … … 275 275 function TModulePortal.ShowFooter(Session: TWebSession): string; 276 276 begin 277 Result := ''; 277 278 //Time := Round(Now - $ScriptTimeStart, 2); 278 279 Result := Result + '<div id="Footer">' + -
trunk/Modules/Portal/UPagePortal.pas
r107 r114 231 231 // Show pannels 232 232 //if(IsInternetAddr()) echo('Internet'); else echo('LAN'); 233 // $Output .= $this->InfoBar();233 // $Output .= $this->InfoBar(); 234 234 Output := Output + '<table id="MainTable"><tr>'; 235 235 Session.Database.Select(DbRows, 'PanelColumn', '*'); … … 275 275 function TWebPagePortal.OnlineHostList: string; 276 276 begin 277 277 Result := ''; 278 278 end; 279 279 280 280 function TWebPagePortal.UserPanel: string; 281 281 begin 282 282 Result := ''; 283 283 end; 284 284 … … 299 299 function TWebPagePortal.WebcamPanel: string; 300 300 begin 301 301 Result := ''; 302 302 end; 303 303 -
trunk/Modules/ZdechovNET/UInternetPage.pas
r105 r114 41 41 42 42 '<table class="WideTable">' + 43 '<tr><th>Označení</th><th> Rychlost</th><th>Agregace</th><th>Cena [Kč/měsíc]</th></tr>' +44 '<tr><td>Zdarma</td><td align="center"> 128 kbit/s</td><td align="center"></td><td align="center">0</td></tr>' +45 '<tr><td> Pomalejší</td><td align="center">4 Mbit/s</td><td align="center">1:20</td><td align="center">190</td></tr>' +46 '<tr><td> Pomalý</td><td align="center">8 Mbit/s</td><td align="center">1:20</td><td align="center">260</td></tr>' +47 '<tr><td> Střední</td><td align="center">16 Mbit/s</td><td align="center">1:20</td><td align="center">360</td></tr>' +48 '<tr><td> Rychlý</td><td align="center">32 Mbit/s</td><td align="center">1:20</td><td align="center">520</td></tr>' +49 '<tr><td> Rychlejší</td><td align="center">64 Mbit/s</td><td align="center">1:20</td><td align="center">750</td></tr>' +43 '<tr><th>Označení</th><th>Minimální rychlost</th><th>Maximální rychlost</th><th>Cena [Kč/měsíc]</th></tr>' + 44 '<tr><td>Zdarma</td><td align="center">0 kbit/s</td><td align="center">256 kbit/s</td><td align="center">0</td></tr>' + 45 '<tr><td>Internet Garant 200k</td><td align="center">200 kbit/s</td><td align="center">140 Mbit/s</td><td align="center">190</td></tr>' + 46 '<tr><td>Internet Garant 500k</td><td align="center">500 kbit/s</td><td align="center">140 Mbit/s</td><td align="center">260</td></tr>' + 47 '<tr><td>Internet Garant 1M</td><td align="center">1 Mbit/s</td><td align="center">140 Mbit/s</td><td align="center">360</td></tr>' + 48 '<tr><td>Internet Garant 3M</td><td align="center">3 Mbit/s</td><td align="center">140 Mbit/s</td><td align="center">520</td></tr>' + 49 '<tr><td>Internet Garant 7M</td><td align="center">7 Mbit/s</td><td align="center">140 Mbit/s</td><td align="center">750</td></tr>' + 50 50 '</table>' + 51 51 '<br/>' + 52 'Minimální rychlost je garantovaná pro účastníka vyhrazená rychlost, pod kterou by přenosová rychlost neměla klesat.<br/>' + 53 'Maximální rychlost je volná kapacita nevyužitá ostatními účastníky. ' + 54 'Reálné maximum závisí na maximální kapacitě sítě a maximální dostupné kapacitě po trase k účastníkovi.<br/>' + 55 'Max. rychlosti pro jednotlivé technologie:<br/>' + 56 '<ul>' + 57 '<li>Kabelové připojení - 100 Mbit/s nebo 1 Gbit/s</li>' + 58 '<li>Bezdrátové připojení Wifi 802.11g - 20 Mbit/s</li>' + 59 '<li>Bezdrátové připojení Wifi 802.11n - 100 Mbit/s</li>' + 60 '<li>Bezdrátové připojení Wifi 802.11ac - 200 Mbit/s</li>' + 61 '</ul>' + 52 62 'Rychlost všech tarifů je symetrická, není omezován objem přenášených dat, ceny včetně DPH.<br/>' + 53 63 '<br/>' + 54 '<i>Aktualizováno: 1. 8.2011</i>';64 '<i>Aktualizováno: 1.5.2016</i>'; 55 65 end; 56 66 GeneratePage(Self); -
trunk/Packages/Common/UCommon.pas
r89 r114 7 7 uses 8 8 {$IFDEF Windows}Windows,{$ENDIF} 9 Classes, SysUtils, StrUtils, Dialogs, Process, LCLIntf, 9 Classes, SysUtils, StrUtils, Dialogs, Process, LCLIntf, LazFileUtils, 10 10 FileUtil; //, ShFolder, ShellAPI; 11 11 -
trunk/Packages/Common/UDebugLog.pas
r89 r114 6 6 7 7 uses 8 Classes, SysUtils, FileUtil, SpecializedList, SyncObjs ;8 Classes, SysUtils, FileUtil, SpecializedList, SyncObjs, LazFileUtils; 9 9 10 10 type -
trunk/Packages/CoolWeb/CoolWeb.lpk
r103 r114 1 <?xml version="1.0" ?>1 <?xml version="1.0" encoding="UTF-8"?> 2 2 <CONFIG> 3 3 <Package Version="4"> 4 4 <Name Value="CoolWeb"/> 5 <Type Value="RunAndDesignTime"/> 5 6 <AddToProjectUsesSection Value="True"/> 6 7 <Author Value="Chronos (robie@centrum.cz)"/> … … 9 10 <SearchPaths> 10 11 <IncludeFiles Value="WebServer"/> 11 <OtherUnitFiles Value="WebServer;Persistence;Network;Modules;Common;/usr/lib/mysql ;/usr/lib64/mysql"/>12 <OtherUnitFiles Value="WebServer;Persistence;Network;Modules;Common;/usr/lib/mysql/;/usr/lib64/mysql/"/> 12 13 <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> 13 14 </SearchPaths> … … 17 18 </SyntaxOptions> 18 19 </Parsing> 19 <Other>20 <CompilerMessages>21 <UseMsgFile Value="True"/>22 </CompilerMessages>23 <CompilerPath Value="$(CompPath)"/>24 </Other>25 20 </CompilerOptions> 26 21 <Description Value="Unit set for generating CGI or server web application."/> 27 22 <License Value="GNU/GPL"/> 28 23 <Version Minor="3"/> 29 <Files Count="1 7">24 <Files Count="18"> 30 25 <Item1> 31 26 <Filename Value="WebServer/UHTTPServer.pas"/> … … 104 99 <UnitName Value="LazIDEReg"/> 105 100 </Item17> 101 <Item18> 102 <Filename Value="Modules/UWebUser.pas"/> 103 <UnitName Value="UWebUser"/> 104 </Item18> 106 105 </Files> 107 <Type Value="RunAndDesignTime"/>108 106 <RequiredPkgs Count="8"> 109 107 <Item1> -
trunk/Packages/CoolWeb/CoolWeb.pas
r103 r114 5 5 unit CoolWeb; 6 6 7 {$warn 5023 off : no warning about unused units} 7 8 interface 8 9 … … 11 12 UTurboPowerForm, UHTTPSessionFile, UHTTPSessionMySQL, USqlDatabase, 12 13 UTCPServer, UPageList, UHtmlClasses, UMemoryStreamEx, UMIMEType, 13 UXmlClasses, UWebPage, UWebApp, LazIDEReg, LazarusPackageIntf;14 UXmlClasses, UWebPage, UWebApp, LazIDEReg, UWebUser, LazarusPackageIntf; 14 15 15 16 implementation -
trunk/Packages/CoolWeb/Modules/UWebUser.pas
r113 r114 1 unit U User;1 unit UWebUser; 2 2 3 3 {$mode Delphi}{$H+} -
trunk/Packages/CoolWeb/Network/UTCPServer.pas
r96 r114 13 13 //LibC, 14 14 {$ENDIF} 15 BlckSock, U Pool, UResetableThread;15 BlckSock, UResetableThread; 16 16 17 17 type -
trunk/Packages/CoolWeb/WebServer/UHTTPSessionFile.pas
r100 r114 6 6 7 7 uses 8 Classes, SysUtils, UHTTPServer, syncobjs, synacode, UCommon, FileUtil; 8 Classes, SysUtils, UHTTPServer, syncobjs, synacode, UCommon, FileUtil, 9 LazFileUtils; 9 10 10 11 type -
trunk/Packages/TemplateGenerics/Generic/GenericMatrix.inc
r84 r114 49 49 function Implode(RowSeparator, ColSeparator: string; Converter: TGMatrixToStringConverter): string; 50 50 procedure Explode(Text, Separator: string; Converter: TGMatrixFromStringConverter; SlicesCount: Integer = -1); 51 function IndexOf(Item: TGMatrixItem; Start: TGMatrixIndex = 0): TGMatrixIndex;52 function IndexOfList(List: TGMatrix; Start: TGMatrixIndex = 0): TGMatrixIndex;51 function IndexOf(Item: TGMatrixItem; Start: TGMatrixIndex): TGMatrixIndex; 52 function IndexOfList(List: TGMatrix; Start: TGMatrixIndex): TGMatrixIndex; 53 53 procedure Insert(Index: TGMatrixIndex; Item: TGMatrixItem); 54 54 procedure InsertList(Index: TGMatrixIndex; List: TGMatrix); -
trunk/ReadMe.txt
r65 r114 26 26 Je načítána ze souboru Config.ini 27 27 Zde je potřeba vyplnit přístupové údaje do databáze. 28 Apache server musí mít povolen CGI modul: a2enmod cgi 28 29 29 30 -
trunk/UCore.pas
r105 r114 10 10 UXmlClasses, UHtmlClasses, UUtils, UApplicationInfo, UHTTPServerTCP, 11 11 UHTTPSessionFile, UUser, SpecializedList, Registry, 12 UModularSystem, UWebSession ;12 UModularSystem, UWebSession, LazUTF8; 13 13 14 14 const … … 144 144 DatabasePassword := ReadString(SectionDatabase, 'DatabasePassword', 'password'); 145 145 FormatHTML := ReadBool(SectionGeneral, 'FormatHTML', False); 146 //Core.WebApp1.LogException := notReadBool(SectionGeneral, 'ShowException', False);146 WebApp1.LogException := ReadBool(SectionGeneral, 'ShowException', False); 147 147 NetworkAddress := ReadString(SectionHTTPServer, 'NetworkAddress', 'localhost'); 148 148 NetworkPort := ReadInteger(SectionHTTPServer, 'NetworkPort', 80); … … 170 170 WriteString(SectionDatabase, 'DatabasePassword', DatabasePassword); 171 171 WriteBool(SectionGeneral, 'FormatHTML', FormatHTML); 172 //WriteBool(SectionGeneral, 'ShowException', not Core.WebApp1.LogException);172 //WriteBool(SectionGeneral, 'ShowException', not WebApp1.LogException); 173 173 WriteString(SectionHTTPServer, 'NetworkAddress', NetworkAddress); 174 174 WriteInteger(SectionHTTPServer, 'NetworkPort', NetworkPort); -
trunk/ZdechovNET.lpi
r113 r114 55 55 <StackChecks Value="True"/> 56 56 </Checks> 57 <VerifyObjMethodCallValidity Value="True"/>58 57 </CodeGeneration> 59 58 <Linking>
Note:
See TracChangeset
for help on using the changeset viewer.