Changeset 52
- Timestamp:
- May 1, 2011, 12:20:19 AM (14 years ago)
- Location:
- trunk
- Files:
-
- 3 added
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/CGI.lpi
r51 r52 50 50 </Item3> 51 51 </RequiredPackages> 52 <Units Count="8 5">52 <Units Count="86"> 53 53 <Unit0> 54 54 <Filename Value="CGI.lpr"/> 55 55 <IsPartOfProject Value="True"/> 56 56 <UnitName Value="CGI"/> 57 <IsVisibleTab Value="True"/> 57 58 <EditorIndex Value="1"/> 58 59 <WindowIndex Value="0"/> 59 60 <TopLine Value="1"/> 60 <CursorPos X=" 13" Y="15"/>61 <CursorPos X="5" Y="23"/> 61 62 <UsageCount Value="203"/> 62 63 <Loaded Value="True"/> … … 69 70 <EditorIndex Value="0"/> 70 71 <WindowIndex Value="0"/> 71 <TopLine Value=" 417"/>72 <CursorPos X=" 47" Y="432"/>72 <TopLine Value="1"/> 73 <CursorPos X="1" Y="11"/> 73 74 <UsageCount Value="200"/> 74 75 <Loaded Value="True"/> … … 93 94 <IsPartOfProject Value="True"/> 94 95 <UnitName Value="UCore"/> 95 <EditorIndex Value="1 2"/>96 <EditorIndex Value="14"/> 96 97 <WindowIndex Value="0"/> 97 98 <TopLine Value="1"/> … … 166 167 <IsPartOfProject Value="True"/> 167 168 <UnitName Value="UConfig"/> 168 <EditorIndex Value="1 0"/>169 <EditorIndex Value="12"/> 169 170 <WindowIndex Value="0"/> 170 171 <TopLine Value="7"/> … … 535 536 <WindowIndex Value="0"/> 536 537 <TopLine Value="1"/> 537 <CursorPos X="3 2" Y="10"/>538 <CursorPos X="33" Y="18"/> 538 539 <UsageCount Value="12"/> 539 540 <Loaded Value="True"/> … … 558 559 <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Common/UXmlClasses.pas"/> 559 560 <UnitName Value="UXmlClasses"/> 560 <EditorIndex Value="1 3"/>561 <WindowIndex Value="0"/> 562 <TopLine Value="1 44"/>563 <CursorPos X=" 2" Y="26"/>561 <EditorIndex Value="15"/> 562 <WindowIndex Value="0"/> 563 <TopLine Value="16"/> 564 <CursorPos X="1" Y="25"/> 564 565 <UsageCount Value="21"/> 565 566 <Loaded Value="True"/> … … 568 569 <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Common/UHtmlClasses.pas"/> 569 570 <UnitName Value="UHtmlClasses"/> 570 <EditorIndex Value="1 4"/>571 <EditorIndex Value="16"/> 571 572 <WindowIndex Value="0"/> 572 573 <TopLine Value="731"/> … … 579 580 <IsPartOfProject Value="True"/> 580 581 <UnitName Value="UWebObjects"/> 581 <EditorIndex Value=" 8"/>582 <EditorIndex Value="10"/> 582 583 <WindowIndex Value="0"/> 583 584 <TopLine Value="1"/> 584 585 <CursorPos X="1" Y="1"/> 585 <UsageCount Value="4 1"/>586 <UsageCount Value="42"/> 586 587 <Loaded Value="True"/> 587 588 <DefaultSyntaxHighlighter Value="Delphi"/> … … 606 607 <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UHTTPServer.pas"/> 607 608 <UnitName Value="UHTTPServer"/> 608 <EditorIndex Value="1 5"/>609 <EditorIndex Value="17"/> 609 610 <WindowIndex Value="0"/> 610 611 <TopLine Value="82"/> … … 654 655 <Unit68> 655 656 <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListObject.inc"/> 656 <WindowIndex Value="0"/> 657 <TopLine Value="22"/> 658 <CursorPos X="16" Y="22"/> 657 <EditorIndex Value="7"/> 658 <WindowIndex Value="0"/> 659 <TopLine Value="2"/> 660 <CursorPos X="14" Y="19"/> 659 661 <UsageCount Value="11"/> 662 <Loaded Value="True"/> 660 663 </Unit68> 661 664 <Unit69> … … 703 706 <Filename Value="../../PascalClassLibrary/Docking/CoolDocking/UCDClient.pas"/> 704 707 <UnitName Value="UCDClient"/> 705 <EditorIndex Value=" 9"/>708 <EditorIndex Value="11"/> 706 709 <WindowIndex Value="0"/> 707 710 <TopLine Value="1"/> … … 713 716 <Filename Value="../../PascalClassLibrary/Docking/CoolDocking/CoolDocking.pas"/> 714 717 <UnitName Value="CoolDocking"/> 715 <EditorIndex Value="1 1"/>718 <EditorIndex Value="13"/> 716 719 <WindowIndex Value="0"/> 717 720 <TopLine Value="1"/> … … 726 729 <ResourceBaseClass Value="DataModule"/> 727 730 <UnitName Value="UMainModule"/> 728 <IsVisibleTab Value="True"/> 729 <EditorIndex Value="5"/> 730 <WindowIndex Value="0"/> 731 <TopLine Value="163"/> 732 <CursorPos X="1" Y="177"/> 733 <UsageCount Value="23"/> 731 <EditorIndex Value="6"/> 732 <WindowIndex Value="0"/> 733 <TopLine Value="100"/> 734 <CursorPos X="46" Y="117"/> 735 <UsageCount Value="24"/> 734 736 <Loaded Value="True"/> 735 737 <LoadedDesigner Value="True"/> … … 762 764 <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UHTTPServerTCP.pas"/> 763 765 <UnitName Value="UHTTPServerTCP"/> 764 <EditorIndex Value=" 4"/>766 <EditorIndex Value="5"/> 765 767 <WindowIndex Value="0"/> 766 768 <TopLine Value="10"/> … … 780 782 <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UHTTPSessionMySQL.pas"/> 781 783 <UnitName Value="UHTTPSessionMySQL"/> 782 <EditorIndex Value=" 6"/>784 <EditorIndex Value="8"/> 783 785 <WindowIndex Value="0"/> 784 786 <TopLine Value="2"/> … … 793 795 <WindowIndex Value="0"/> 794 796 <TopLine Value="1"/> 795 <CursorPos X=" 28" Y="10"/>797 <CursorPos X="33" Y="8"/> 796 798 <UsageCount Value="11"/> 797 799 <Loaded Value="True"/> … … 800 802 <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/> 801 803 <UnitName Value="USqlDatabase"/> 802 <EditorIndex Value=" 7"/>803 <WindowIndex Value="0"/> 804 <TopLine Value=" 215"/>805 <CursorPos X=" 69" Y="223"/>804 <EditorIndex Value="9"/> 805 <WindowIndex Value="0"/> 806 <TopLine Value="95"/> 807 <CursorPos X="1" Y="110"/> 806 808 <UsageCount Value="11"/> 807 809 <Loaded Value="True"/> 808 810 </Unit84> 811 <Unit85> 812 <Filename Value="Modules/UPagesModule.pas"/> 813 <IsPartOfProject Value="True"/> 814 <ComponentName Value="PagesModule"/> 815 <ResourceBaseClass Value="DataModule"/> 816 <UnitName Value="UPagesModule"/> 817 <EditorIndex Value="4"/> 818 <WindowIndex Value="0"/> 819 <TopLine Value="1"/> 820 <CursorPos X="70" Y="442"/> 821 <UsageCount Value="21"/> 822 <Loaded Value="True"/> 823 <LoadedDesigner Value="True"/> 824 <DefaultSyntaxHighlighter Value="Delphi"/> 825 </Unit85> 809 826 </Units> 810 827 <JumpHistory Count="30" HistoryIndex="29"> 811 828 <Position1> 812 <Filename Value=" ../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>813 <Caret Line=" 55" Column="28" TopLine="38"/>829 <Filename Value="Modules/UPagesModule.pas"/> 830 <Caret Line="165" Column="37" TopLine="157"/> 814 831 </Position1> 815 832 <Position2> 816 <Filename Value=" ../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>817 <Caret Line=" 56" Column="28" TopLine="38"/>833 <Filename Value="Pages/UMainPage.pas"/> 834 <Caret Line="106" Column="1" TopLine="105"/> 818 835 </Position2> 819 836 <Position3> 820 <Filename Value=" ../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>821 <Caret Line=" 57" Column="28" TopLine="38"/>837 <Filename Value="Modules/UPagesModule.pas"/> 838 <Caret Line="207" Column="18" TopLine="189"/> 822 839 </Position3> 823 840 <Position4> 824 <Filename Value=" ../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>825 <Caret Line=" 58" Column="29" TopLine="38"/>841 <Filename Value="Modules/UPagesModule.pas"/> 842 <Caret Line="214" Column="18" TopLine="196"/> 826 843 </Position4> 827 844 <Position5> 828 <Filename Value=" ../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>829 <Caret Line=" 89" Column="63" TopLine="61"/>845 <Filename Value="Pages/UMainPage.pas"/> 846 <Caret Line="109" Column="55" TopLine="1"/> 830 847 </Position5> 831 848 <Position6> 832 <Filename Value=" ../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>833 <Caret Line=" 179" Column="37" TopLine="151"/>849 <Filename Value="Modules/UPagesModule.pas"/> 850 <Caret Line="67" Column="19" TopLine="47"/> 834 851 </Position6> 835 852 <Position7> 836 <Filename Value=" ../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>837 <Caret Line=" 187" Column="18" TopLine="159"/>853 <Filename Value="Modules/UPagesModule.pas"/> 854 <Caret Line="99" Column="19" TopLine="66"/> 838 855 </Position7> 839 856 <Position8> 840 <Filename Value=" ../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>841 <Caret Line=" 201" Column="45" TopLine="173"/>857 <Filename Value="Pages/UMainPage.pas"/> 858 <Caret Line="119" Column="1" TopLine="119"/> 842 859 </Position8> 843 860 <Position9> 844 <Filename Value=" ../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>845 <Caret Line="2 38" Column="38" TopLine="210"/>861 <Filename Value="Modules/UPagesModule.pas"/> 862 <Caret Line="202" Column="18" TopLine="200"/> 846 863 </Position9> 847 864 <Position10> 848 <Filename Value=" ../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>849 <Caret Line=" 246" Column="18" TopLine="218"/>865 <Filename Value="CGI.lpr"/> 866 <Caret Line="19" Column="44" TopLine="1"/> 850 867 </Position10> 851 868 <Position11> 852 <Filename Value=" ../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>853 <Caret Line="2 60" Column="46" TopLine="232"/>869 <Filename Value="CGI.lpr"/> 870 <Caret Line="23" Column="7" TopLine="1"/> 854 871 </Position11> 855 872 <Position12> 856 <Filename Value=" ../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>857 <Caret Line=" 266" Column="54" TopLine="238"/>873 <Filename Value="Modules/UPagesModule.pas"/> 874 <Caret Line="90" Column="62" TopLine="82"/> 858 875 </Position12> 859 876 <Position13> 860 <Filename Value=" ../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>861 <Caret Line=" 268" Column="18" TopLine="240"/>877 <Filename Value="Modules/UPagesModule.pas"/> 878 <Caret Line="92" Column="62" TopLine="84"/> 862 879 </Position13> 863 880 <Position14> 864 <Filename Value=" ../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>865 <Caret Line=" 269" Column="56" TopLine="241"/>881 <Filename Value="Pages/UMainPage.pas"/> 882 <Caret Line="129" Column="60" TopLine="123"/> 866 883 </Position14> 867 884 <Position15> 868 <Filename Value=" ../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>869 <Caret Line="2 72" Column="37" TopLine="244"/>885 <Filename Value="Modules/UPagesModule.pas"/> 886 <Caret Line="267" Column="36" TopLine="264"/> 870 887 </Position15> 871 888 <Position16> 872 <Filename Value=" ../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>873 <Caret Line="2 79" Column="18" TopLine="251"/>889 <Filename Value="Modules/UPagesModule.pas"/> 890 <Caret Line="269" Column="36" TopLine="266"/> 874 891 </Position16> 875 892 <Position17> 876 <Filename Value=" ../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>877 <Caret Line=" 290" Column="40" TopLine="262"/>893 <Filename Value="Modules/UPagesModule.pas"/> 894 <Caret Line="323" Column="62" TopLine="319"/> 878 895 </Position17> 879 896 <Position18> 880 <Filename Value=" ../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>881 <Caret Line="3 01" Column="37" TopLine="273"/>897 <Filename Value="Modules/UPagesModule.pas"/> 898 <Caret Line="330" Column="62" TopLine="326"/> 882 899 </Position18> 883 900 <Position19> 884 <Filename Value=" ../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>885 <Caret Line=" 305" Column="18" TopLine="277"/>901 <Filename Value="Pages/UMainPage.pas"/> 902 <Caret Line="57" Column="1" TopLine="47"/> 886 903 </Position19> 887 904 <Position20> 888 <Filename Value=" ../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>889 <Caret Line=" 308" Column="45" TopLine="280"/>905 <Filename Value="Pages/UMainPage.pas"/> 906 <Caret Line="11" Column="1" TopLine="1"/> 890 907 </Position20> 891 908 <Position21> 892 <Filename Value=" ../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>893 <Caret Line=" 365" Column="35" TopLine="337"/>909 <Filename Value="Modules/UPagesModule.pas"/> 910 <Caret Line="291" Column="33" TopLine="287"/> 894 911 </Position21> 895 912 <Position22> 896 <Filename Value=" ../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>897 <Caret Line=" 371" Column="32" TopLine="343"/>913 <Filename Value="Modules/UPagesModule.pas"/> 914 <Caret Line="293" Column="33" TopLine="289"/> 898 915 </Position22> 899 916 <Position23> 900 <Filename Value=" ../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>901 <Caret Line=" 378" Column="42" TopLine="350"/>917 <Filename Value="Pages/UMainPage.pas"/> 918 <Caret Line="56" Column="1" TopLine="25"/> 902 919 </Position23> 903 920 <Position24> 904 <Filename Value=" ../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>905 <Caret Line=" 63" Column="41" TopLine="37"/>921 <Filename Value="Modules/UPagesModule.pas"/> 922 <Caret Line="309" Column="1" TopLine="301"/> 906 923 </Position24> 907 924 <Position25> 908 <Filename Value=" ../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>909 <Caret Line=" 60" Column="46" TopLine="37"/>925 <Filename Value="Modules/UPagesModule.pas"/> 926 <Caret Line="316" Column="1" TopLine="303"/> 910 927 </Position25> 911 928 <Position26> 912 <Filename Value=" ../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>913 <Caret Line=" 71" Column="70" TopLine="43"/>929 <Filename Value="Modules/UPagesModule.pas"/> 930 <Caret Line="303" Column="31" TopLine="291"/> 914 931 </Position26> 915 932 <Position27> 916 <Filename Value=" ../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>917 <Caret Line=" 51" Column="7" TopLine="48"/>933 <Filename Value="Modules/UPagesModule.pas"/> 934 <Caret Line="295" Column="18" TopLine="278"/> 918 935 </Position27> 919 936 <Position28> 920 <Filename Value="Modules/U MainModule.pas"/>921 <Caret Line=" 166" Column="39" TopLine="149"/>937 <Filename Value="Modules/UPagesModule.pas"/> 938 <Caret Line="309" Column="18" TopLine="292"/> 922 939 </Position28> 923 940 <Position29> 924 <Filename Value=" ../../PascalClassLibrary/Network/CoolWeb/WebServer/UHTTPSessionMySQL.pas"/>925 <Caret Line="3 1" Column="44" TopLine="14"/>941 <Filename Value="Modules/UPagesModule.pas"/> 942 <Caret Line="357" Column="12" TopLine="340"/> 926 943 </Position29> 927 944 <Position30> 928 <Filename Value="Modules/U MainModule.pas"/>929 <Caret Line=" 54" Column="1" TopLine="22"/>945 <Filename Value="Modules/UPagesModule.pas"/> 946 <Caret Line="416" Column="18" TopLine="399"/> 930 947 </Position30> 931 948 </JumpHistory> -
trunk/CGI.lpr
r50 r52 5 5 uses 6 6 UCore, USqlDatabase, SysUtils, Contnrs, 7 UMainPage, UUser, UHTTPSessionMySQL, UHTTPSessionFile, 7 UMainPage, UUser, UHTTPSessionMySQL, UHTTPSessionFile, UPagesModule, 8 8 UCommon, UHTTPServer, UHTTPServerTCP, UHTTPServerCGI, UTCPServer, UPool, 9 9 UMemoryStreamEx, UMIMEType, UPageList, Interfaces, UMainModule; … … 11 11 begin 12 12 MainModule := TMainModule.Create(nil); 13 with MainModule do 13 PagesModule := TPagesModule.Create(nil); 14 with MainModule, PagesModule do 14 15 try 15 RegisterPage('internet', Internet);16 RegisterPage('hosting', Hosting);17 RegisterPage('historie', History);18 RegisterPage('dokumenty', Documents);19 RegisterPage('voip', VoIP);20 RegisterPage('odkazy', Links);21 RegisterPage('kontakt', Contact);22 RegisterPage('serverinfo', ServerInfo);23 RegisterPage('kamery', WebCam);24 RegisterPage('uzivatel', UserControl);25 RegisterPage('plany', P lans);26 RegisterPage('sit', Network);27 RegisterPage('', About);16 RegisterPage('internet', PageInternet); 17 RegisterPage('hosting', PageHosting); 18 RegisterPage('historie', PageHistory); 19 RegisterPage('dokumenty', PageDocuments); 20 RegisterPage('voip', PageVoIP); 21 RegisterPage('odkazy', PageLinks); 22 RegisterPage('kontakt', PageContact); 23 RegisterPage('serverinfo', PageServerInfo); 24 RegisterPage('kamery', PageWebCam); 25 RegisterPage('uzivatel', PageUserControl); 26 RegisterPage('plany', PagePlans); 27 RegisterPage('sit', PageNetwork); 28 RegisterPage('', PageAbout); 28 29 Run; 29 30 finally 30 Free; 31 MainModule.Free; 32 PagesModule.Free; 31 33 end; 32 34 end. -
trunk/Modules/UMainModule.pas
r51 r52 14 14 TMainModule = class; 15 15 16 TPageProducer = procedure(App: TMainModule; HandlerData: THTTPHandlerData);17 18 16 TRegistredPage = class 19 17 Name: string; 20 P roducer: TPageProducer;18 Page: TWebPage; 21 19 end; 22 20 … … 60 58 constructor Create(AOwner: TComponent); override; 61 59 destructor Destroy; override; 62 procedure RegisterPage(Name: string; P roducer: TPageProducer);60 procedure RegisterPage(Name: string; Page: TWebPage); 63 61 end; 64 62 … … 116 114 HtmlDocument.Body.SubItems.Add(TitleTag); 117 115 TopMenu; 118 Page.Producer(Self, HandlerData); 116 Page.Page.OnProduce(HandlerData); 117 HtmlDocument.Title := Page.Page.Caption; 119 118 TitleTag.Text := '<div class="TitlePanel"><span class="GlobalTitle">' + GlobalTitle + 120 119 '</span> - ' + HtmlDocument.Title + '</div>'; … … 131 130 end; 132 131 133 procedure TMainModule.RegisterPage(Name: string; P roducer: TPageProducer);132 procedure TMainModule.RegisterPage(Name: string; Page: TWebPage); 134 133 var 135 134 NewRegistredPage: TRegistredPage; … … 137 136 NewRegistredPage := TRegistredPage.Create; 138 137 NewRegistredPage.Name := Name; 139 NewRegistredPage.P roducer := Producer;138 NewRegistredPage.Page := Page; 140 139 Pages.Add(NewRegistredPage); 141 140 end; -
trunk/Pages/UMainPage.pas
r50 r52 9 9 UHTTPServer, UWebObjects; 10 10 11 procedure Links(App: TMainModule; HandlerData: THTTPHandlerData); 12 procedure History(App: TMainModule; HandlerData: THTTPHandlerData); 13 procedure Internet(App: TMainModule; HandlerData: THTTPHandlerData); 14 procedure VoIP(App: TMainModule; HandlerData: THTTPHandlerData); 15 procedure Hosting(App: TMainModule; HandlerData: THTTPHandlerData); 16 procedure About(App: TMainModule; HandlerData: THTTPHandlerData); 17 procedure Documents(App: TMainModule; HandlerData: THTTPHandlerData); 18 procedure Contact(App: TMainModule; HandlerData: THTTPHandlerData); 19 procedure ServerInfo(App: TMainModule; HandlerData: THTTPHandlerData); 20 procedure WebCam(App: TMainModule; HandlerData: THTTPHandlerData); 21 procedure UserControl(App: TMainModule; HandlerData: THTTPHandlerData); 22 procedure Plans(App: TMainModule; HandlerData: THTTPHandlerData); 23 procedure Network(App: TMainModule; HandlerData: THTTPHandlerData); 11 implementation 24 12 25 13 26 implementation27 14 28 procedure Links(App: TMainModule; HandlerData: THTTPHandlerData);29 begin30 App.HtmlDocument.Title := 'Odkazy';31 32 with App.HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin33 Text := '<strong>Odkazy související s obcí:</strong><br/>' +34 35 '<a href="http://www.zdechov.cz/">Obec Zděchov</a> - oficiální stránky obce<br/>' +36 '<a href="http://zdechovskagrapa.sweb.cz/">Zděchovská grapa</a> - místní motokrosové závody<br/>' +37 '<a href="http://www.snbzdechov.com/zavod.htm">Zděchovská třicítka</a> - tradiční běžkařský závod<br/>' +38 '<a href="http://www.snbzdechov.com/">Snowpark Zděchov</a> - areál se sjezdovkou pro lyžaře i snowboardisty<br/>' +39 '<a href="http://sdh.zdechov.net/">SDH Zděchov</a> - Sbor Dobrovolných Hasičů Zděchov<br/>' +40 '<a href="http://fotbal.zdechov.net/">TJ Sokol Zděchov</a> - stránky věnované Zděchovskému fotbalovému týmu<br/>' +41 '<a href="http://farnost.zdechov.net/">Farnost Zděchov</a> - informace k místní farnosti<br/>' +42 '<br/>' +43 44 '<strong>Odkazy související s okolím:</strong><br/>' +45 '<a href="http://www.valassko-hornovsacko.cz/">Valašsko - Horní Vsacko</a> - informační stránky oblasti<br/>' +46 '<br/>' +47 48 '<a HREF="http://www.toplist.cz/cgi-bin/stat.asp&menu=4096&menu=2048&menu=64&menu=1024&menu=512&menu=32&menu=256&menu=4&menu=128&menu=8&menu=16&menu=8192&' +49 'menu=2&menu=16384&menu=1&kdy=dnes&n=90148"><script language="JavaSc&ript" type="text/javascript">' +50 '<!--' +51 'document.write (\''<img align="right" src="http://toplist.cz/count.asp?id=90148&logo=mc&http=\''+escape(document.referrer)+\''&wi=\''+escape(window.screen.width)+\''&he=\''+escape(window.screen.height)' +52 '+\''&cd=\''+escape(window.screen.colorDepth)+\''&t=\''+escape(document.title)+\''" width=88 height=60 border=0 alt="TOPlist"/>'';' +53 '//--></script></a>' +54 55 '<strong>Komunitní sítě v okolí:</strong><br/>' +56 '<a href="http://www.hovnet.cz/">Hovnet</a> - síť v Hovězí, Janové, Huslenkách a dalších obcích<br/>' +57 //'<a href="http://czvk3.net/">czvk3net</a> - síť ve Valašských Kloboucích<br/>' +58 '<a href="http://hvfree.net/">HvFree.net</a> - síť v Tylovicích, Hážovicích, Viganticích a Hutisku<br/>' +59 '<a href="http://www.ustinet.cz/">Ústí.Net</a> - síť v Ústí u Vsetína<br/>' +60 '<br/>';61 end;62 end;63 64 procedure History(App: TMainModule; HandlerData: THTTPHandlerData);65 var66 DbRows: TDbRows;67 I: Integer;68 begin69 with App do begin70 HtmlDocument.Title := 'Historie sítě';71 72 with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin73 Text := '<table>';74 try75 DbRows := TDbRows.Create;76 Database.Query(DbRows, 'SELECT * FROM History ORDER BY Date DESC');77 for I := 0 to DbRows.Count - 1 do begin78 Text := Text + '<tr><td style="text-align: right; vertical-align: top;">' +79 HumanDate(SQLToDateTime(DbRows[I].Values['Date'])) + ' - </td><td>' +80 DbRows[I].Values['Text'] + '</td></tr>';81 end;82 finally83 DbRows.Free;84 end;85 Text := Text + '</table>';86 end;87 end;88 end;89 90 procedure Plans(App: TMainModule; HandlerData: THTTPHandlerData);91 var92 DbRows: TDbRows;93 I: Integer;94 begin95 with App do begin96 HtmlDocument.Title := 'Plánované projekty';97 98 with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin99 Text := '<table>';100 try101 DbRows := TDbRows.Create;102 Text := '<br/><strong>Plánované úkoly:</strong><br />' +103 '<div><ul>';104 Database.Query(DbRows, 'SELECT * FROM `Plans` WHERE `TimeFinished` IS NULL ORDER BY `TimeCreate`');105 for I := 0 to DbRows.Count - 1 do begin106 Text := Text + '<li>' + DbRows[I].Values['Description'] + '</li>';107 end;108 Text := Text + '</ul></div><br/>';109 110 Text := Text + '<br/><strong>Hotové úkoly:</strong><br />' +111 '<div><ul>';112 Database.Query(DbRows, 'SELECT * FROM `Plans` WHERE `TimeFinished` IS NOT NULL ORDER BY `TimeCreate`');113 for I := 0 to DbRows.Count - 1 do begin114 Text := Text + '<li>' + DbRows[I].Values['Description'] + '<br/>' +115 '<i style="padding-left: 30px;">' + DbRows[I].Values['Conclusion'] + '</i></li>';116 end;117 Text := Text + '</ul></div><br/>';118 119 finally120 DbRows.Free;121 end;122 Text := Text + '</table>';123 end;124 end;125 end;126 127 procedure Internet(App: TMainModule; HandlerData: THTTPHandlerData);128 begin129 with App do begin130 HtmlDocument.Title := 'Internet';131 132 with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin133 Text := Text + 'Hlavní náplní činnosti sítě je poskytovat výhodné připojení k internetu pro občany.<br/><br/>' +134 '<strong>Nabídka tarifů:</strong><br/>' +135 136 '<table class="WideTable">' +137 '<tr><th>Označení</th><th>Rychlost</th><th>Agregace</th><th>Cena [Kč/měsíc]</th></tr>' +138 '<tr><td>Zdarma</td><td align="center">128 kbit/s</td><td align="center"></td><td align="center">0</td></tr>' +139 '<tr><td>Pomalejší</td><td align="center">2 Mbit/s</td><td align="center">1:20</td><td align="center">190</td></tr>' +140 '<tr><td>Pomalý</td><td align="center">4 Mbit/s</td><td align="center">1:20</td><td align="center">260</td></tr>' +141 '<tr><td>Střední</td><td align="center">8 Mbit/s</td><td align="center">1:20</td><td align="center">360</td></tr>' +142 '<tr><td>Rychlý</td><td align="center">16 Mbit/s</td><td align="center">1:20</td><td align="center">520</td></tr>' +143 '<tr><td>Rychlejší</td><td align="center">32 Mbit/s</td><td align="center">1:20</td><td align="center">750</td></tr>' +144 '</table>' +145 '<br/>' +146 'Rychlost všech tarifů je symetrická, není omezován objem přenášených dat, ceny včetně DPH.<br/>' +147 '<br/>' +148 '<i>Aktualizováno: 1.7.2010</i>';149 end;150 end;151 end;152 153 procedure WebCam(App: TMainModule; HandlerData: THTTPHandlerData);154 const155 WebCamImage = 'images/webcam/webcam.jpg';156 RefreshInterval = 1;157 begin158 with App do begin159 HtmlDocument.Title := 'Webové kamery';160 161 with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin162 Text := '<table style="width: 100%"><tr><td style="width: 20%">' +163 '<strong>Kamery v okolí:</strong><br />' +164 '<a href="http://www.mestovsetin.cz/vismo/dokumenty2.asp?id_org=18676&id=480245">Vsetínské kamery</a><br />' +165 '<a href="http://www.huslenky.cz/?page=kamery&I=2">Kamery v Huslenkách</a><br/>' +166 '<a href="http://kamery.hovnet.cz/">Kamery v Hovnetu</a><br/>' +167 '</td><td style="width: 80%">';168 169 if FileExists(WebCamImage) then begin170 Text := Text + '<script language="JavaScript">' + #13#10 +171 ' var ImageURL = "' + NavigationLink('/' + WebCamImage) + '";' + #13#10 +172 '' + #13#10 +173 '// Force an immediate image load' + #13#10 +174 'var theTimer = setTimeout("reloadImage()", 1);' + #13#10 +175 '' + #13#10 +176 'function reloadImage()' + #13#10 +177 '{' + #13#10 +178 ' theDate = new Date();' + #13#10 +179 ' var url = ImageURL;' + #13#10 +180 ' url += "?dummy=";' + #13#10 +181 ' url += theDate.getTime().toString(10);' + #13#10 +182 ' // The above dummy cgi-parameter enforce a bypass of the browser image cache.' + #13#10 +183 ' // Here we actually load the image' + #13#10 +184 ' document.theImage.src = url;' + #13#10 +185 '' + #13#10 +186 ' // Reload the image every defined period' + #13#10 +187 ' theTimer = setTimeout("reloadImage()", ' + IntToStr(RefreshInterval * 1000) + ');' + #13#10 +188 '}' + #13#10 +189 '</script>' + #13#10 +190 191 '<br /><div align="center"><img name="theImage" src="" idth="640" height="480" alt="Webcam image"><br>Poslední aktualizace: ' +192 DateTimeToStr(FileDateToDateTime(FileAge(WebCamImage))) + '<br>Obnovování po ' + IntToStr(RefreshInterval) + ' sekundách</div><br />';193 end else Text := Text + '<br />Obrázek nenalezen.<br /><br />';194 Text := Text + '</td></tr></table>';195 end;196 end;197 end;198 199 procedure VoIP(App: TMainModule; HandlerData: THTTPHandlerData);200 begin201 with App do begin202 HtmlDocument.Title := 'VoIP';203 204 with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin205 Text := 'Volejte levněji do pevných a mobilních sítí s sekundovou tarifikací a bez měsíčního paušálu.<br/>' +206 '<br/>' +207 'Doporučujueme: <a href="http://voip.mikrotech.cz/">VoIP Mikrotech</a>' +208 '<ul><li>Zřízení zdarma</li>' +209 '<li>Měsíční paušál: 0 Kč</li>' +210 '<li>Tarifikace: 1+1 (sekundová)</li>' +211 '<li>V sítí Mikrotech: 0 Kč/minutu</li>' +212 '<li>Volání do pevných sítí: 0,5 Kč/minutu</li>' +213 '<li>Volání do mobilních sítí: 1,95 Kč/minutu</li>' +214 '<li>Přenesení vašeho čísla: 1200 Kč</li>' +215 '</ul><br/>' +216 217 '<strong>10 výhod volání s VoIP Mikrotech</strong>' +218 '<ol><li>Začnete ihned šetřit - volání v síti zdarma</li>' +219 '<li>Registrace, zřízení VoIP zdarma</li>' +220 '<li>0,- Kč měsíční paušál, pouze 1 Kč pronájem čísla</li>' +221 '<li>Žádný závazek, kredit bez časového omezení</li>' +222 '<li>Nejnižší ceny hovorů na trhu</li>' +223 '<li>Online výpis hovorů zdarma</li>' +224 '<li>Běžné tel. číslo, možnost přenosu stávajícího čísla</li>' +225 '<li>Za příchozí hovory Vám zaplatíme</li>' +226 '<li>Bez počátečních investic - softwarový telefon</li>' +227 '<li>Pro telefonování nepotřebujete počítač - hardwarový VoIP telefon</li>' +228 '</ol>';229 end;230 end;231 end;232 233 procedure Hosting(App: TMainModule; HandlerData: THTTPHandlerData);234 var235 I: Integer;236 DbRows: TDbRows;237 begin238 with App do begin239 HtmlDocument.Title := 'Hosting';240 241 with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin242 Text := 'V nabídce je provoz virtualizovaných Linuxových serverů dle dohodnutých parameterů.<br/><br/>' +243 '<strong>Standardní varianty:</strong><br/>' +244 '<table class="WideTable">' +245 '<tr><th>Označení</th><th>Rychlost</th><th>Vyhrazená paměť</th><th>Pevný disk</th><th>Procesor</th><th>Cena [Kč/měsíc]</th></tr>';246 try247 DbRows := TDbRows.Create;248 Database.Query(DbRows, 'SELECT * FROM VPSHosting ORDER BY Price DESC');249 for I := 0 to DbRows.Count - 1 do250 Text := Text + '<tr><td>' + DbRows[I].Values['Name'] + '</td><td align="center">' +251 DbRows[I].Values['Internet'] + '</td><td align="center">' + DbRows[I].Values['Memory'] +252 '</td><td align="center">' + DbRows[I].Values['Space'] + '</td><td align="center">' +253 DbRows[I].Values['CPU'] + '</td><td align="center">' + DbRows[I].Values['Price'] + '</td></tr>';254 finally255 DbRows.Free;256 end;257 Text := Text + '</table>' +258 '<br/>' +259 'Prvních 7 dní zdarma, denní zálohování disků, ceny včetně DPH<br/>' +260 'Použité technologie: <a href="http://www.linux.cz/">GNU/Linux</a>, <a href="http://openvz.org/">OpenVZ</a>, <a href="http://pve.proxmox.com/">Proxmox VE</a>, <a href="http://backuppc.sourceforge.net/">BackupPC</a><br/>' +261 '<br/>' +262 '<i>Aktualizováno: 3.4.2010</i><br/><br/>';263 264 Text := Text + '<p>Hosting je využíván především pro provoz herních serverů MMORPG her jako např. World of Warcraft (WoW), Lineage II, Aion, aj.</p>';265 Text := Text + '<p>Instalovat lze mnoho různých linuxových distribucí. Seznam některých OpenVZ šablon <a href="http://download.openvz.org/template/precreated/">zde</a> nebo '266 + '<a href="http://download.openvz.org/contrib/template/precreated/">zde</a></p>';267 268 Text := Text + '<strong>Projekty využívající VPS hosting</strong><br/><ul>';269 try270 DbRows := TDbRows.Create;271 Database.Query(DbRows, 'SELECT * FROM `HostedProject` WHERE `Active`=1 AND `WebHosting`=0');272 for I := 0 to DbRows.Count - 1 do273 if DbRows[I].Values['Homepage'] <> '' then274 Text := Text + '<li><a href="' + DbRows[I].Values['Homepage'] + '">' +275 DbRows[I].Values['Name'] + '</a></li>'276 else Text := Text + '<li>' + DbRows[I].Values['Name'] + '</li>';277 Text := Text + '</ul>';278 finally279 DbRows.Free;280 end;281 282 Text := Text + '<br/><strong>Projekty využívající web hosting</strong><br/><ul>';283 try284 DbRows := TDbRows.Create;285 Database.Query(DbRows, 'SELECT * FROM `HostedProject` WHERE `Active`=1 AND `WebHosting`=1');286 for I := 0 to DbRows.Count - 1 do287 Text := Text + '<li><a href="' + DbRows[I].Values['Homepage'] + '">' +288 DbRows[I].Values['Name'] + '</a></li>';289 Text := Text + '</ul>';290 finally291 DbRows.Free;292 end;293 end;294 end;295 end;296 297 procedure Network(App: TMainModule; HandlerData: THTTPHandlerData);298 var299 TextBlock: THtmlString;300 begin301 with App do begin302 HtmlDocument.Title := 'Síť';303 304 with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin305 Text := MakeLink('Historie', NavigationLink('/historie/')) + '<br/>' +306 MakeLink('Dokumenty', NavigationLink('/dokumenty/')) + '<br/>' +307 MakeLink('Plánované projekty', NavigationLink('/plany/')) + '<br/>';308 end;309 end;310 end;311 312 procedure About(App: TMainModule; HandlerData: THTTPHandlerData);313 var314 TextBlock: THtmlString;315 begin316 with App do begin317 HtmlDocument.Title := 'Úvod';318 319 with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin320 Text := '<img align="left" src="' + NavigationLink('/images/umisteni.gif') + '" alt="Umístění obce"/>' +321 '<a href="' + NavigationLink('/images/pokryti.jpg') + '">' +322 '<img align="right" src="' + NavigationLink('/images/pokryti_nahled.jpg') + '" width="170" height="334" alt="Pokrytí obce signálem"/></a>' +323 '<strong>Informace o obci:</strong><br/>' +324 'Vesnice Zděchov se nachází pár kilometrů od obce Huslenky, jihovýchodním směrem od Vsetína. ' +325 'Je zasazena do typicky valašské krajiny roztroušených usedlostí a jalovcových pasek. Stojí zde dochovalé stavby lidové architektury, klasicistní kostel Proměnění Páně a kamenný kříž z roku 1778.<br/>' +326 'Zděchov poskytuje ideální podmínky pro celeroční rekreaci. Najdete zde koupaliště, lyžařský vlek a motokrosovou trať. Prochází tudy modrá turistická značka, odsud také vede žlutá značka, která tvoří spojnici se zelenou.<br/>' +327 '<br/>' +328 '<strong>Informace o síti:</strong><br/>' +329 '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. ' +330 'Členové komunity jsou mezi sebou propojeni pomocí kabelu nebo bezdrátové technologie Wi-Fi. K internetu jsou připojeni přes hlavní směrovač. ' +331 'Připojení je negarantované, avšak prvořadým cílem je maximální spolehlivost, stabilita, rychlost a dostupnost připojení. ' +332 '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/>' +333 '<br/>' +334 '<i>Důvody ke vzniku sítě:</i><br/>' +335 '<ul>' +336 '<li>Možnost komunikace mezi členy formou textu, zvuku či videa</li>' +337 '<li>Dosažení rychlejšího a levnějšího nepřetržitého sdíleného internetového připojení bez omezení dat</li>' +338 '<li>Možnost šíření aktuálních informací z dění v obce</li>' +339 '<li>Sdílení společných dat</li>' +340 '<li>Společné hraní síťových her</li>' +341 '<li>Zprovoznění užitečných služeb (chat, aktuality, bazar, menu v jídelně, web kamery, aj.)</li>' +342 '</ul><br/>';343 344 Text := Text + '<br/>' +345 '<a href="' + NavigationLink('/images/pohlednice_stara.jpg') + '">' +346 '<img align="right" src="' + NavigationLink('/images/pohlednice_stara_mala.jpg') + '" alt="Stará pohlednice" /></a>';347 348 Text := Text + '<strong>Počty zákazníků:</strong><br/>' +349 'Připojených domácností v obci: 99<br/>' +350 'Připojených institucí: 1<br/>' +351 'Hosting serverů: 4<br/>' +352 'Celkem: 104<br/>' +353 '<br/>' +354 '<strong>Technické parametry sítě</strong><br/>' +355 'Internetové připojení: 40/40 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/>' +356 'Pokrytí obce signálem: asi 80%<br/>' +357 'V připojených domácnostech celkem 327 občanů ze všech 600 (55 %)<br/>' +358 '<br/>' +359 '<i>Aktualizováno: 3.7.2010</i>';360 end;361 end;362 end;363 364 procedure Documents(App: TMainModule; HandlerData: THTTPHandlerData);365 begin366 with App do begin367 HtmlDocument.Title := 'Dokumenty';368 369 with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin370 Text := '<strong>O obci:</strong><br/>' +371 372 IconedLink(NavigationLink('/docs/Zdechovska_historie_a_soucasnost.pdf'), 'Zděchovská historie a současnost') + ' (1,6 MB)<br/>' +373 '<img src="' + NavigationLink('/images/icons/pdf.gif') + '" alt=""> Zděchov - klíč od hřebene Javorníků - propagační publikace obce (kvalita ' +374 '<a href="' + NavigationLink('/docs/Zděchov - klíč od hřebene Javorníků (nízká kvalita).pdf') + '">nízká (1,8 MB)</a> ' +375 '<a href="' + NavigationLink('/docs/Zděchov - klíč od hřebene Javorníků (střední kvalita).pdf') + '">střední (3,7 MB)</a> ' +376 '<a href="' + NavigationLink('/docs/Zděchov - klíč od hřebene Javorníků (vysoká kvalita).pdf') + '">vysoká (7,2 MB)</a>)' +377 '<br/><br/>' +378 '<strong>Propagace sítě v obci:</strong><br/>' +379 380 IconedLink(NavigationLink('/docs/info_na_infokanal_1.6.2006.pdf'), 'Aktualita na infokanálu (1.6.2006)') + '<br/>' +381 IconedLink(NavigationLink('/docs/info_na_infokanal_4.3.2005.pdf'), 'Aktualita na infokanálu (4.3.2005)') + '<br/>' +382 IconedLink(NavigationLink('/docs/info_na_infokanal_24.9.2004.pdf'), 'Aktualita na infokanálu (24.9.2004)') + '<br/>' +383 IconedLink(NavigationLink('/docs/vyzva_do_infokanalu_15.8.2004.pdf'), 'Výzva do infokanálu (15.8.2004)') + '<br/>';384 end;385 end;386 end;387 388 procedure Contact(App: TMainModule; HandlerData: THTTPHandlerData);389 begin390 App.HtmlDocument.Title := 'Kontakt';391 392 with App.HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin393 Text := '<strong>Kontaktní informace</strong><br/>' +394 'Provozovatel: Ing. Jiří Hajda<br/>' +395 'Adresa: Zděchov 208, 75607<br/>' +396 'Telefon: 737785792<br/>' +397 'E-mail: <a href="mailto: robie@centrum.cz">robie@centrum.cz</a><br/>' +398 'Jabber: chronos@jabbim.cz<br/>' +399 'ICQ: <a href="http://www.icq.com/people/277158770">277158770</a><br/>' +400 'IČ: 75904535<br/>' +401 'DIČ: CZ8303255884<br/>' +402 'Bankovní účet: 218098370 / 0300<br/>';403 end;404 end;405 406 procedure UserControl(App: TMainModule; HandlerData: THTTPHandlerData);407 var408 PageName: string;409 NewForm: TQueryForm;410 NewGroup: TQueryFormGroup;411 NewItem: TQueryFormItem;412 begin413 App.HtmlDocument.Title := 'Uživatel';414 415 if HandlerData.Request.QueryParts.Count > 1 then PageName := HandlerData.Request.QueryParts[1]416 else PageName := '';417 with App.HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin418 if PageName = 'prihlaseni' then begin419 Text := 'Login';420 with App.HtmlDocument.Body, TQueryForm(SubItems.AddNew(TQueryForm.Create)) do begin421 Title := 'Přihlášení';422 ClassId := 'Form';423 with TQueryFormGroup(Groups.AddNew(TQueryFormGroup.Create)) do begin424 Title := 'Základní údaje';425 with TQueryFormItem(Rows.AddNew(TQueryFormItem.Create)) do begin426 Caption := 'Jméno';427 Hint := 'Zadejte vaše přihlašovací jméno';428 Required := True;429 end;430 with TQueryFormItem(Rows.AddNew(TQueryFormItem.Create)) do begin431 Caption := 'Heslo';432 Hint := 'Zadejte vaše heslo';433 Required := True;434 ItemType := fitPassword;435 end;436 end;437 end;438 end else Text := '';439 end;440 end;441 442 443 procedure ServerInfo(App: TMainModule; HandlerData: THTTPHandlerData);444 begin445 HandlerData.Session.Values['Test'] := 'Tst';446 MainModule.HTTPServer.ServerInfo(HandlerData);447 end;448 15 449 16 end.
Note:
See TracChangeset
for help on using the changeset viewer.