Changeset 103 for trunk/Modules/Portal/UPagePortal.pas

Timestamp:

Oct 8, 2012, 8:48:16 AM (12 years ago)

Author:

chronos

Message:

• Upraveno: TWebSession zobecněno pro možnost implementace více modulů s obsluhou vstupní stránky.

File:

• trunk/Modules/Portal/UPagePortal.pas (modified) (6 diffs)

trunk/Modules/Portal/UPagePortal.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, USqlDatabase, UUtils,
-  SpecializedDictionary;
+  SpecializedDictionary, UWebSession, SpecializedList;
 
 type
@@ -17 +17 @@
   private
     Session: TWebSession;
+    function ShowPanel(Title, Content: string; Menu: TListString = nil): string;
+    function SystemMessage(Title, Text: string): string;
     function ShowLinks(GroupId: Integer): string;
+    function Show: string;
+    function OnlineHostList: string;
+    function UserPanel: string;
+    function WebcamPanel: string;
   public
     { public declarations }
@@ -30 +36 @@
 
 uses
-  UCore;
+  UCore, UModuleUser, UWebObjects, UUser;
+
+function TWebPagePortal.SystemMessage(Title, Text: string): string;
+begin
+  Result := '<table align="center"><tr><td><div class="SystemMessage"><h3>' +
+    Title + '</h3><div>' + Text + '</div></div</td></tr></table>';
+end;
 
 procedure TWebPagePortal.DataModuleProduce(HandlerData: THTTPHandlerData);
 begin
-  Session := TWebSessionHandlerData);
+  Session := TWebSession(HandlerData);
   with TWebSession(HandlerData) do begin
 
@@ -50 +62 @@
     HyperlinkGroups := TDbRows.Create;
     Hyperlinks := TDbRows.Create;
-    Database.Query(HyperlinkGroups, 'SELECT * FROM `HyperlinkGroup` WHERE `Id`=' + IntToStr(GroupId));
+    Session.Database.Query(HyperlinkGroups, 'SELECT * FROM `HyperlinkGroup` WHERE `Id`=' + IntToStr(GroupId));
 
     Result := '';
-    Database.Query(Hyperlinks, 'SELECT * FROM `Hyperlink` WHERE (`Group`=' + IntToStr(GroupId) + ') AND (`Enable` = 1)');
+    Session.Database.Query(Hyperlinks, 'SELECT * FROM `Hyperlink` WHERE (`Group`=' + IntToStr(GroupId) + ') AND (`Enable` = 1)');
     for I := 0 to HyperLinks.Count - 1 do begin
       HyperLink := Hyperlinks[I];
@@ -60 +72 @@
         if Copy(HyperLink.Values['URL'], 1, 4) <> 'http' then
           HyperLink.Values['URL'] := NavigationLink(HyperLink.Values['URL']);
-        if((HyperLink.Values['PermissionModule'] = '') or
+        if ((HyperLink.Values['PermissionModule'] = '') or
         ((HyperLink.Values['PermissionModule'] <> '') and
-        Session.->Modules['User']->CheckPermission(HyperLink.Values['PermissionModule'], HyperLink.Values['PermissionOperation'])))
-        Result := Result + '<img alt="' + HyperLink.Values['Name'] + '" src="images/favicons/'.$HyperLink.Values['IconFile'].'" width="16" height="16" /> <a href="' + $HyperLink.Values['URL'] + '">' + HyperLink.Values['Name'] + '</a><br />';
+        Session.User.CheckPermission(HyperLink.Values['PermissionModule'], HyperLink.Values['PermissionOperation']))) then
+        Result := Result + '<img alt="' + HyperLink.Values['Name'] + '" src="images/favicons/' + HyperLink.Values['IconFile'] + '" width="16" height="16" /> <a href="' + HyperLink.Values['URL'] + '">' + HyperLink.Values['Name'] + '</a><br />';
     end;
-    Result := Panel(HyperlinkGroup['Name'], Result);
+    Result := ShowPanel(HyperlinkGroups[0].Values['Name'], Result);
 
   finally
@@ -73 +85 @@
 end;
 
+function TWebPagePortal.Show: string;
+var
+  Output: string;
+  Form: TQueryForm;
+  UserOptions: TQueryForm;
+  PanelColumn: TDictionaryStringString;
+  Panel: TDictionaryStringString;
+  Width: string;
+  DbRows: TDbRows;
+  DbRows2: TDbRows;
+  I, J: Integer;
+begin
+  Output := '';
+  with Session.Request do
+  if Query.SearchKey('Action') <> -1 then begin
+    if Query.Values['Action'] = 'CustomizeNewsSave' then begin
+      //Output := $this->System->Modules['News']->CustomizeSave();
+    end else
+    if Query.Values['Action'] = 'LoginForm' then begin
+      Form := TQueryForm.Create; // UserLogin
+      Form.AddNewAction('Přihlásit', '?Action=Login');
+      Output := Output + Form.AsXmlElement.AsString;
+      Output := Output + '<div class="Centred"><a href="?Action=UserRegister">Registrovat se</a> ' +
+        '<a href="?Action=PasswordRecovery">Obnova zapomenutého hesla</a></div>';
+    end else
+    if Query.Values['Action'] = 'Login' then begin
+      Form := TQueryForm.Create; // UserLogin
+      Form.Load(Session.Request.Post);
+      Session.UserOnline.Login(
+        Session.User.GetIdByNamePassword(
+      TQueryFormGroup(Form.Groups[0]).Rows.FindByName('Username').Value.Value,
+        TQueryFormGroup(Form.Groups[0]).Rows.FindByName('Password').Value.Value));
+      Output := Output + SystemMessage('Přihlášení', Result);
+      if Session.User.Id <> UnknownUser then begin
+        //Form.LoadValuesFromForm;
+        TQueryFormGroup(Form.Groups[0]).Rows.FindByName('Password').Value.Value := '';
+        Output := Output + Form.AsXmlElement.AsString;
+        Output := Output + '<div class="Centred"><a href="?Action=UserRegister">Registrovat se</a> ' +
+          '<a href="?Action=PasswordRecovery">Obnova zapomenutého hesla</a></div>';
+      end;
+    end else
+    if Query.Values['Action'] = 'Logout' then begin
+      Session.UserOnline.Logout;
+      Output := Output + SystemMessage('Odhlášení', 'Uživatel odhlášen');
+    end else
+    if Query.Values['Action'] = 'UserOptions' then begin
+      UserOptions := TQueryForm.Create; // UserOptions
+      //UserOptions.LoadValuesFromDatabase(Session.User.Id);
+      UserOptions.AddNewAction('Uložit', '?Action=UserOptionsSave');
+      Output := Output + UserOptions.AsXmlElement.AsString;
+    end else
+    if Query.Values['Action'] = 'UserOptionsSave' then begin
+      UserOptions := TQueryForm.Create; // UserOptions
+      UserOptions.Load(Session.Request.Post);
+      //UserOptions.SaveValuesToDatabase($this->System->Modules['User']->User['Id']);
+      Output := Output + SystemMessage('Nastavení', 'Nastavení uloženo.');
+      //this->System->Modules['Log']->NewRecord('User', 'Nastavení uživatele změněno', $UserOptions->Values['Name']);
+      //UserOptions.LoadValuesFromDatabase($this->System->Modules['User']->User['Id']);
+      UserOptions.AddNewAction('Uložit', '?Action=UserOptionsSave');
+      Output := Output + UserOptions.AsXmlElement.AsString;
+    end else
+    if Query.Values['Action'] = 'UserRegister' then begin
+      Form := TQueryForm.Create; //'UserRegister');
+      Form.Load(Session.Request.Post);
+      Form.AddNewAction('Uložit', '?Action=UserRegisterSave');
+      Output := Output + Form.AsXmlElement.AsString;
+    end else
+    if Query.Values['Action'] = 'UserRegisterConfirm' then begin
+      //Session.User.RegisterConfirm($_GET['User'], $_GET['H']);
+      Output := Output + SystemMessage('Potvrzení registrace', 'Registrace potvrzena');
+    end else
+    if Query.Values['Action'] = 'PasswordRecovery' then begin
+      Form := TQueryForm.Create; // PasswordRecovery
+      Form.AddNewAction('Obnovit', '?Action=PasswordRecovery2');
+      Output := Output + Form.AsXmlElement.AsString;
+    end else
+    if Query.Values['Action'] = 'PasswordRecovery2' then begin
+      Form := TQueryForm.Create; // PasswordRecovery
+      Form.Load(Session.Request.Post);
+      //Result = Session.User.PasswordRecoveryRequest($Form->Values['Name'], $Form->Values['Email']);
+      Output := Output + SystemMessage('Obnova hesla', Result);
+      //if Result <> USER_PASSWORD_RECOVERY_SUCCESS then begin
+        Output := Output + Form.AsXmlElement.AsString;
+      //end;
+    end else
+    if Query.Values['Action'] = 'PasswordRecoveryConfirm' then begin
+      //Session.User.PasswordRecoveryConfirm($_GET['User'], $_GET['H'], $_GET['P']);
+      Output := Output + SystemMessage('Obnova hesla', 'Potvrzení obnovení hesla');
+    end (*else
+    if Query.Values['Action'] = 'UserRegisterSave' then begin
+          Form := TQueryForm.Create; // UserRegister
+          Form.Load(Session.Request.Post);
+          Session.User.Register(Form->Values['Login'], $Form->Values['Password'], $Form->Values['Password2'], $Form->Values['Email'], $Form->Values['Name'], $Form->Values['PhoneNumber'], $Form->Values['ICQ']);
+          $Output := Output + $this->SystemMessage('Registrace nového účtu', $Result);
+          if Result <> USER_REGISTRATED then begin
+            Form.OnSubmit := '?Action=UserRegisterSave';
+            $Output := Output + Form.ShowEditForm;
+      end;
+    end else
+    if Query.Values['Action'] = 'MemberOptions' then begin
+          $UserOptions = new Form('MemberOptions');
+          $DbResult = $this->Database->query('SELECT Member.Id, Member.InternetTariffNextMonth, Member.FamilyMemberCount, Member.BillingPeriodNext, Subject.Name, Subject.AddressStreet, Subject.AddressTown, Subject.AddressPSC, Subject.IC, Subject.DIC FROM Member JOIN Subject ON Subject.Id = Member.Subject WHERE Member.Id='.$this->System->Modules['User']->User['Member']);
+          $DbRow = $DbResult->fetch_array();
+          foreach($UserOptions->Definition['Items'] as $Index => $Item)
+          begin
+            $UserOptions->Values[$Index] = $DbRow[$Index];
+          end;
+          $UserOptions->OnSubmit = '?Action=MemberOptionsSave';
+          $Output .= $UserOptions->ShowEditForm();
+     end else
+     if Query.Values['Action'] = 'MemberOptionsSave' then begin
+          $UserOptions = new Form('MemberOptions');
+          $UserOptions->LoadValuesFromForm();
+          if($UserOptions->Values['FamilyMemberCount'] < 0)
+            $UserOptions->Values['FamilyMemberCount'] = 0;
+          if($UserOptions->Values['BillingPeriodNext'] < 2)
+            $UserOptions->Values['BillingPeriodNext'] = 2;
+
+          $DbResult = $this->Database->update('Member', 'Id='.$this->System->Modules['User']->User['Member'], array('InternetTariffNextMonth' => $UserOptions->Values['InternetTariffNextMonth'], 'FamilyMemberCount' => $UserOptions->Values['FamilyMemberCount'], 'BillingPeriodNext' => $UserOptions->Values['BillingPeriodNext']));
+          $DbResult = $this->Database->query('SELECT Subject FROM Member WHERE Id='.$this->System->Modules['User']->User['Member']);
+          $Member = $DbResult->fetch_assoc();
+          $DbResult = $this->Database->update('Subject', 'Id='.$Member['Subject'], array('Name' => $UserOptions->Values['Name'], 'AddressStreet' => $UserOptions->Values['AddressStreet'], 'AddressTown' => $UserOptions->Values['AddressTown'], 'AddressPSC' => $UserOptions->Values['AddressPSC'], 'IC' => $UserOptions->Values['IC'], 'DIC' => $UserOptions->Values['DIC']));
+          $Output .= $this->SystemMessage('Nastavení', 'Nastavení domácnosti uloženo.');
+          $this->System->Modules['Log']->NewRecord('Member+Subject', 'Nastavení člena/subjektu změněno', $UserOptions->Values['Name']);
+          $DbResult = $this->Database->query('SELECT Member.Id, Member.InternetTariffNextMonth, Member.FamilyMemberCount, Member.BillingPeriodNext, Subject.Name, Subject.AddressStreet, Subject.AddressTown, Subject.AddressPSC, Subject.IC, Subject.DIC FROM Member JOIN Subject ON Subject.Id = Member.Subject WHERE Member.Id='.$this->System->Modules['User']->User['Member']);
+          $DbRow = $DbResult->fetch_array();
+          foreach($UserOptions->Definition['Items'] as $Index => $Item)
+          {
+            $UserOptions->Values[$Index] = $DbRow[$Index];
+          }
+          $UserOptions->OnSubmit = '?Action=MemberOptionsSave';
+          $Output .= $UserOptions->ShowEditForm();
+      end;
+    end *);
+
+    //Session.Database.Database := Config['Database']['Database'];
+
+    // Show pannels
+    //if(IsInternetAddr()) echo('Internet'); else echo('LAN');
+    //$Output .= $this->InfoBar();
+    Output := Output + '<table id="MainTable"><tr>';
+    Session.Database.Select(DbRows, 'PanelColumn', '*');
+    for I := 0 to DbRows.Count - 1 do begin
+      PanelColumn := DbRows[I];
+      if PanelColumn.Values['Width'] <> '' then
+          Width := ' width="' + PanelColumn.Values['Width'] + '"'
+        else Width := '';
+      Output := Output + '<td valign="top"' + Width + '>';
+      Session.Database.Query(DbRows2, 'SELECT * FROM `Panel` WHERE `PanelColumn`=' +
+        PanelColumn.Values['Id'] + ' ORDER BY `Order`');
+      for J := 0 to DbRows2.Count - 1 do
+        Panel := DbRows[J];
+        if Panel.Values['Module'] = 'HyperlinkGroup' then
+          Output := Output + ShowLinks(StrToInt(Panel.Values['Parameters']))
+        else if Panel.Values['Module'] = 'OnlineHostList' then
+          Output := Output + ShowPanel('Online počítače', OnlineHostList)
+        else if Panel.Values['Module'] = 'UserOptions' then
+        begin
+          if Session.User.Id <> UnknownUser then
+            Output := Output + ShowPanel('Přihlášený uživatel', UserPanel);
+        end else
+        if Panel.Values['Module'] = 'Webcam' then
+          Output := Output + ShowPanel('Kamery', WebcamPanel)
+        else if Panel.Values['Module'] = 'NewsGroupList' then
+//          Output := Output + Panel('Aktuality', $this->System->Modules['News']->Show(), array('<a href="?Action=CustomizeNews">Upravit</a>'));
+      end;
+      Output := Output + '</td>';
+    end;
+    Output := Output + '</table>';
+    Result := Output;
+  end;
+
+function TWebPagePortal.OnlineHostList: string;
+begin
+
+end;
+
+function TWebPagePortal.UserPanel: string;
+begin
+
+end;
+
+function TWebPagePortal.ShowPanel(Title, Content: string; Menu: TListString): string;
+var
+  I: Integer;
+  TitleCombined: string;
+begin
+  TitleCombined := '';
+  if Assigned(Menu) then
+    if Menu.Count > 0 then
+      for I := 0 to Menu.Count - 1 do
+        TitleCombined := TitleCombined + '<div class="Action">' + Menu[I] + '</div>';
+  Result := '<div class="Panel"><div class="Title">' + TitleCombined +
+    '</div><div class="Content">' + Content + '</div></div>';
+end;
+
+function TWebPagePortal.WebcamPanel: string;
+begin
+
+end;
 
 end.