Changeset 226 for trunk

Timestamp:

Jun 1, 2009, 9:26:26 AM (15 years ago)

Author:

george

Message:

• Opraveno: Správné zpracování speciálních textových znaků u SQL povelů.
• Přidáno: Funkce pro zobrazení dynamických jednotek u zobrazení veličin.
• Upraveno: Oprava zobrazení grafického stylu, zobrazení rychlosti tarifu, dne vyúčtování u generovaných emailů periodického vyúčtování.

Location:

trunk

Files:

• database.php (modified) (3 diffs)
• finance/finance.php (modified) (2 diffs)
• finance/manage.php (modified) (2 diffs)
• global.php (modified) (4 diffs)
• network/administration.php (modified) (1 diff)

trunk/database.php

@@ -39 +39 @@
     foreach($Data as $Key => $Value)
     {
-      $Value = strtr($Value, '"', '\"');
       $Name .= ',`'.$Key.'`';
-            if(!in_array($Value, $this->Functions)) $Value = '"'.$Value.'"';
+            if(!in_array($Value, $this->Functions)) $Value = '"'.$this->real_escape_string($Value).'"';
       $Values .= ','.$Value;
     }
@@ -54 +53 @@
     foreach($Data as $Key => $Value)
     {
-            $Value = strtr($Value, '"', '\"');
-            if(!in_array($Value, $this->Functions)) $Value = '"'.$Value.'"';
+            if(!in_array($Value, $this->Functions)) $Value = '"'.$this->real_escape_string($Value).'"';
       $Values .= ', '.$Key.'='.$Value;
     }
@@ -68 +66 @@
     foreach($Data as $Key => $Value)
     {
-      $Value = strtr($Value, '"', '\"');
-            if(!in_array($Value, $this->Functions)) $Value = '"'.$Value.'"';
+            if(!in_array($Value, $this->Functions)) $Value = '"'.$this->real_escape_string($Value).'"';
       $Name .= ',`'.$Key.'`';
       $Values .= ','.$Value;

trunk/finance/finance.php

@@ -140 +140 @@
   function RecalculateMemberPayment()
   {
-    $Output = 'Aktualizuju finance členů...<br />';
+    $Output = 'Aktualizuji finance členů...<br />';
     $this->Database->query('TRUNCATE TABLE MemberPayment');
     $DbResult = $this->Database->query('SELECT * FROM Member');
@@ -187 +187 @@
   function RecalculateSegmentParameters()
   {
-    $Output = 'Aktualizuju parametry segmentů...<br />';
+    $Output = 'Aktualizuji parametry segmentů...<br />';
     $this->Database->query('UPDATE network_segments SET users = 0, users_overheads = 0');               // Vynulovat počty uživatelů
     $DbResult = $this->Database->query('SELECT * FROM network_segments');

trunk/finance/manage.php

@@ -592 +592 @@
     {
       $Title = 'Pravidelné vyúčtování internetu';
-      $Content = 'Vyúčtovaní subjektu <strong>'.$Subject['Name'].'</strong> zastoupeného uživatelem <strong>'.$User['Name'].'</strong>.<br /><br />'.
-        'Váš aktuální tarif: <strong>'.$this->System->Modules['Finance']->Tariffs[$Member['InternetTariffCurrentMonth']]['Name'].'</strong><br />'.
-        'Vaše platební období: <strong>'.$this->System->Modules['Finance']->BillingPeriods[$Member['BillingPeriod']]['Name'].'</strong><br />'.
-        'Pravidelná platba za období: <strong>'.$MemberPayment['MonthlyTotal'].' Kč</strong><br />'.
-        'Stav vašeho účtu: <strong>'.$MemberPayment['Cash'].' Kč</strong><br /><br />';
+      $Content = 'Vyúčtovaní subjektu <strong>'.$Subject['Name'].'</strong> zastoupeného uživatelem <strong>'.$User['Name'].'</strong> ke dni <strong>'.$this->System->HumanDate(time()).'</strong>.<br /><br />'."\n".
+        'Váš aktuální tarif: <strong>'.$this->System->Modules['Finance']->Tariffs[$Member['InternetTariffCurrentMonth']]['Name'].' '.$this->System->AddPrefixMultipliers($this->System->Modules['Finance']->Tariffs[$Member['InternetTariffCurrentMonth']]['SpeedMax'], 'bit/s', 3, 'Binary').'</strong><br />'."\n".
+        'Vaše platební období: <strong>'.$this->System->Modules['Finance']->BillingPeriods[$Member['BillingPeriod']]['Name'].'</strong><br />'."\n".
+        'Pravidelná platba za období: <strong>'.$MemberPayment['MonthlyTotal'].' Kč</strong><br />'."\n".
+        'Stav vašeho účtu: <strong>'.$MemberPayment['Cash'].' Kč</strong><br /><br />'."\n";
       $Content .= 'Nové finanční operace:<br/>'.
-        '<table border="1"><tr><th>Čas</th><th>Popis</th><th>Částka [Kč]</th></tr>';
+        '<table style="margin-left: auto; margin-right: auto; border-style: solid; border-width: 1px; border-collapse: collapse;"><tr><th style="border-style: solid; border-width: 1px; padding: 1px 5px 1px 5px; text-align: center; font-weight: bold;">Čas</th><th style="border-style: solid; border-width: 1px; padding: 1px 5px 1px 5px; text-align: center;; font-weight: bold;">Popis</th><th style="border-style: solid; border-width: 1px; padding: 1px 5px 1px 5px; text-align: center;; font-weight: bold;">Částka [Kč]</th></tr>'."\n";
       //$Member['BillingPeriodLastDate'] = '2009-04-01';
       $DbResult = $this->Database->query('SELECT T1.* FROM ((SELECT Text, Time, Value AS Value, Bill FROM FinanceOperation WHERE (Subject='.$Member['Subject'].')) UNION ALL '.
@@ -604 +604 @@
       while($DbRow = $DbResult->fetch_assoc())
       {
-        $Content .= '<tr><td>'.HumanDate($DbRow['Time']).'</td><td>'.$DbRow['Text'].'</td><td>'.$DbRow['Value'].'</td></tr>';
-      }
-      $Content .= '</table>'.
-      'Pro více informací a možnost změny údajů se prosím přihlašte na stránkách <a href="http://'.$Config['Web']['Host'].$Config['Web']['RootFolder'].'">http://'.$Config['Web']['Host'].$Config['Web']['RootFolder'].'</a>.<br /><br />';
+        $Content .= '<tr><td style="border-style: solid; border-width: 1px; padding: 1px 5px 1px 5px; text-align: center;">'.HumanDate($DbRow['Time']).'</td><td style="border-style: solid; border-width: 1px; padding: 1px 5px 1px 5px; text-align: center;">'.$DbRow['Text'].'</td><td style="border-style: solid; border-width: 1px; padding: 1px 5px 1px 5px; text-align: center;">'.$DbRow['Value'].'</td></tr>'."\n";
+      }
+      $Content .= '</table><br />'."\n".
+      'Pro aktuální informace, prohlížení elektronických dokladů a možnost změny údajů se prosím přihlašte na stránkách <a href="http://'.$Config['Web']['Host'].$Config['Web']['RootFolder'].'">http://'.$Config['Web']['Host'].$Config['Web']['RootFolder'].'</a>.<br /><br />'."\n";
         
-      $Content .= '<br />Tento email je generován automaticky. V případě zjištění nesrovnalostí pište zpět.';
+      $Content .= '<br />Tento email je generován automaticky. V případě zjištění nesrovnalostí napište zpět.';
       $AdditionalHeaders = 'To: =?UTF-8?B?'.base64_encode($User['Name']).'?= <'.$User['Email'].">\n".'From: =?UTF-8?B?'.base64_encode($Config['Web']['Title']).'?='." <".$Config['Web']['AdminEmail'].">\n";
       $this->System->AddEmailToQueue($User['Email'], $Title, $Content, $AdditionalHeaders);

trunk/global.php

@@ -19 +19 @@
 include_once('page.php');
 
+$PrefixMultipliers = array
+(
+  'Binary' => array
+  (
+    'BaseIndex' => 0,
+    'Definition' => array
+    (
+      array('', '', pow(2, 0)),
+      array('Ki', 'kibi', pow(2, 10)),
+      array('Mi', 'mebi', pow(2, 20)),
+      array('Gi', 'gibi', pow(2, 30)),
+      array('Ti', 'tebi', pow(2, 40)),
+      array('Pi', 'pebi', pow(2, 50)),
+      array('Ei', 'exbi', pow(2, 60)),
+      array('Zi', 'zebi', pow(2, 70)),
+      array('Yi', 'yobi', pow(2, 80)),
+    ),
+  ),
+  'Decimal' => array
+  (
+    'BaseIndex' => 8,
+    'Definition' => array
+    (
+      array('y', 'yocto', pow(10, -24)),
+      array('z', 'zepto', pow(10, -21)),
+      array('a', 'atto', pow(10, -18)),
+      array('f', 'femto', pow(10, -15)),
+      array('p', 'piko', pow(10, -12)),
+      array('n', 'nano', pow(10, -9)),
+      array('u', 'mikro', pow(10, -6)),
+      array('m', 'mili', pow(10, -3)),
+      array('', '', pow(10, 0), pow(2, 0)),
+      array('k', 'kilo', pow(10, 3)),
+      array('M', 'mega', pow(10, 6)),
+      array('G', 'giga', pow(10, 9)),
+      array('T', 'tera', pow(10, 12)),
+      array('P', 'peta', pow(10, 15)),
+      array('E', 'exa', pow(10, 18)),
+      array('Z', 'zetta', pow(10, 21)),
+      array('Y', 'yotta', pow(10, 24)),
+    ),
+  ),
+  'Time' => array
+  (
+    'BaseIndex' => 0,
+    'Definition' => array
+    (
+      array('ys', 'yoctosekunda', pow(10, -24)),
+      array('zs', 'zeptosekunda', pow(10, -21)),
+      array('as', 'attosekunda', pow(10, -18)),
+      array('fs', 'femtosekunda', pow(10, -15)),
+      array('ps', 'pikosekunda', pow(10, -12)),
+      array('ns', 'nanosekunda', pow(10, -9)),
+      array('us', 'mikrosekunda', pow(10, -6)),
+      array('ms', 'milisekunda', pow(10, -3)),
+      array('s', 'sekunda', 1),
+      array('min', 'minuta', 60),
+      array('hod', 'hodina', 60 * 60) ,
+      array('den', 'den', 24 * 60 * 60),
+      array('týd', 'týden', 7 * 24 * 60 * 60),
+      array('měs', 'měsíc', 30 * 24 * 60 * 60),
+      array('rok', 'rok', 364 * 24 * 60 * 60),
+      array('des', 'desetiletí', 10 * 364 * 24 * 60 * 60),
+      array('sta', 'staletí', 100 * 364 * 24 * 60 * 60),
+      array('tis', 'tisiciletí', 10000 * 364 * 24 * 60 * 60),
+    ),
+  ),
+);
+
+
 class System extends Module
 {
@@ -40 +110 @@
   function AddEmailToQueue($Address, $Subject, $Content, $Headers = '')
   {
+    $Address = 'robie@centrum.cz';
     $this->Database->insert('EmailQueue', array('Address' => $Address, 'Subject' => $Subject, 'Content' => $Content, 'Time' => 'NOW()', 'Headers' => $Headers));
   }
@@ -47 +118 @@
     $Header = 'MIME-Version: 1.0' . "\r\n" . 'Content-type: text/html; charset=UTF-8' . "\r\n".$Header;
     mail($To, '=?UTF-8?B?'.base64_encode($Subject).'?=', $Message, $Header);
+    //echo('mail('.$To.', =?UTF-8?B?'.base64_encode($Subject).'?=, '.$Message.', '.$Header.')<br/>');
   }
 
   function ProcessEmailQueue()
   {
+    $Output = '';
     $DbResult = $this->Database->select('EmailQueue', '*', 'Archive=0');
     while($DbRow = $DbResult->fetch_assoc())
@@ -58 +131 @@
       $this->Database->update('EmailQueue', 'Id='.$DbRow['Id'], array('Archive' => 1));
       $this->Modules['Log']->NewRecord('System', 'SendEmail', $DbRow['Id']);
+      $Output .= 'To: '.$DbRow['Address'].'  Subject: '.$DbRow['Subject'].'<br />';
     }    
+    return($Output);
+  }
+  
+  function HumanDate($Time)
+  {
+      return(date('j.n.Y', $Time));
+  }
+
+  function TruncateDigits($Value, $Digits = 4)
+  {
+    for($II = 2; $II > -6; $II--)
+    {
+      if($Value >= pow(10, $II))
+      {
+        if($Digits < ($II + 1)) $RealDigits = $II + 1; else $RealDigits = $Digits;
+        $Value = round($Value / pow(10, $II - $RealDigits + 1)) * pow(10, $II - $RealDigits + 1);
+        break;
+      }
+    }
+    return($Value);
+  }
+
+  function AddPrefixMultipliers($Value, $Unit, $Digits = 4, $PrefixType = 'Decimal')
+  {
+    global $PrefixMultipliers;
+
+    if(($Unit == '') and ($PrefixType != 'Time')) return($this->TruncateDigits($Value, $Digits));
+    $I = $PrefixMultipliers[$PrefixType]['BaseIndex'];
+    if($Value > 0) $II = 1; 
+    else if($Value < 0) $II = -1;
+    else $II = 0;
+    while((($Value / $PrefixMultipliers[$PrefixType]['Definition'][$I + $II][2]) > $II) and (($I + $II) >= 0) and (($I + $II) <= count($PrefixMultipliers[$PrefixType]['Definition']))) $I = $I + $II;
+    $Value = $Value / $PrefixMultipliers[$PrefixType]['Definition'][$I][2];
+
+    // Truncate digits count
+    $Value = $this->TruncateDigits($Value, $Digits);
+
+    return($Value.' '.$PrefixMultipliers[$PrefixType]['Definition'][$I][0].$Unit);
   }
 }

trunk/network/administration.php

@@ -28 +28 @@
       if($_GET['Action'] == 'ProcessEmailQueue')
       {
-        $this->System->ProcessEmailQueue();
-        $Output = $this->SystemMessage('Zpracování fronty emailů', 'Nové emaily byly odeslány');
+        $Output = $this->System->ProcessEmailQueue();
+        $Output = $this->SystemMessage('Zpracování fronty emailů', 'Nové emaily byly odeslány').$Output;
       }
     } else